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, KSRM80 or ASK) ? "
67 IFNDEF NUDSL,[ PRINTC /No known configuration for "MACH".
72 SETF [Readin Mode Paper Tape?]HRIFLG
73 SETF [Assemble BOOT? (If no, full DSKDMP)]BOOTSW
75 SETF [RH11/RP06 disk system?]RP06P
77 SETF [RH11/RM03 disk system?]RM03P
79 SETF [RH11/RM80 disk system?]RM80P
81 SETF [RH10 (MC-KL) disk control?]RH10P
83 SETF [AIKA disk control? (no => RP02/RP03)]DC10P
86 IFN RP06P+RM03P, RM80P==0
87 IFN RP06P+RM03P+RM80P, RH10P==0
88 IFN RP06P+RM03P+RM80P+RH10P, DC10P==0
89 IFN RP06P+RM03P+RM80P+RH10P+DC10P, RP10P==0
90 IFE RP06P+RM03P+RM80P+RH10P+DC10P, RP10P==1
92 IFE BOOTSW, SETF [Number of dirs? (DM-KA: 200., ML-KA: 250., AI-KA: 440., all others: 500.)]NUDSL
94 SETF [KS10 processor?]KS10P
95 IFE KS10P, SETF [KL10 processor? (no => KA10)]KL10P
97 IFN KS10P+KL10P, KA10P==0
98 IFE KS10P+KL10P, KA10P==1
100 RH11P==:RP06P+RM03P+RM80P
119 NOSYMS ;MAKE PAPER TAPE SHORTER
127 BLKIN=5 ;PSEUDO-CORE BLOCK IN CBUF
128 WRITE=6 ;NEG MEANS DUMP, RH 0 OR WRBIT
129 DIFF=7 ;DIFF CONO ALSO TEMP
130 HEAD=10 ;HEAD CONO ALSO TEMP
133 UNIT=13 ;UNIT AND M.A. DATAO
136 TT=16 ;ANOTHER JSP AC, ALSO VERY TEMP
137 BUFP=17 ;DBUF PNTR--LAST WORD USED
139 IF1,[ ;DON'T TAKE A WEEK AND A HALF TO ASSEMBLE.
140 RP, .INSRT SYSTEM;RP10 >
141 SC, .INSRT SYSTEM;DC10 >
142 RH, .INSRT SYSTEM;RH10 >
143 PH, .INSRT SYSTEM;RH11 >
144 IFN RP06P, .INSRT SYSTEM;RP06 >
145 IFN RM03P, .INSRT SYSTEM;RM03 >
146 IFN RM80P, .INSRT SYSTEM;RM80 >
147 IFE BOOTSW, .INSRT SYSTEM;FSDEFS >
148 IFE BOOTSW, KL, .INSRT SYSTEM;EPT >
149 KS, .INSRT SYSTEM;KSDEFS >
153 ;PARAMETER FILE FOR DSKDMP
155 MEMSIZ=1000000 ;ACTUAL SIZE OF MEM
156 IFNDEF DBGSW,DBGSW==0 ;1 TO DEBUG THIS WITH DDT
158 IFN DBGSW,MEMSIZ==MEMSIZ-10000 ;MOVE DOWN UNDER DDT IF DEBUG MODE
159 CORE==MEMSIZ-10000-<2000*NTUTBL> ;HIGHEST ADR ALWAYS IN CORE+1
160 CORES==CORE_<-12> ;BLK # OF ABOVE (FIRST OF BLKS SWAPPED OUT FOR BUFFER AREAS)
161 NSWBL==4+NTUTBL ;# BLOCKS SWAPPED OUT FOR BUFFER AREAS, +1 FOR DSKDMP ITSELF
162 HIGH==MEMSIZ-100 ;HIGHEST ADR LOADED/DUMPED+1
164 NDSK==8 ;MAX POSSIBLE. L$n$ DEFINES WHICH ARE REALLY THERE
168 PH, UBPG==:17 ; Use last (usable) page in Unibus map
172 KL, PAG=<BLKI 10,>-<BLKI>
175 IF1,[ PRINTX
\1c A = B
179 ; L$file LOAD FILE INTO CORE
180 ; T$file LOAD FILE INTO CORE AND GIVE SYMBOLS TO DDT AND START DDT
181 ; M$file LOAD FILE INTO CORE WITHOUT CLEARING CORE FIRST, DOESN'T LOAD SYMBOLS
183 ; D$file DUMP CORE INTO FILE
184 ; I$file VERIFY FILE AGAINST CORE
185 ; G$ START AT STARTING ADDRESS
186 ; U$dir; LIST DIRECTORY
187 ; F$ LIST CURRENT DIRECTORY
188 ; S$ LIST PACK IDS THEN MFD
189 ; nnn$ SET STARTING ADDRESS TO nnn
190 ; L$n$ PUT DISK n ONLINE
191 ; K$n$ TAKE DISK n OFFLINE
194 ; CMPERR VERIFY FAILED TO MATCH
195 ; DIRFUL DIRECTORY FULL
197 ; DIRNF DIRECTORY DOES NOT EXIST
199 ; PKNMTD FILE IS ON PACK THAT IS NOT MOUNTED
200 ; CKSERR CHECKSUM ERROR
202 ; NODDT CAN'T ADDRESS DDT SYMBOL TABLE (BUG)
204 ; SEEKFL DISK SEEK ERROR
205 ; CLOBRD DISK READ ERROR
206 ; CLOBWR DISK WRITE ERROR
207 ; DIRCLB DIR NAME DIFFERS, TUT DISAGREES WITH DIR
208 ; MFDCLB M.F.D. CLOBBERED
209 ; DSKLUZ DISK LOSSAGE (OFFLINE OR UNSAFE OR MASSBUS ERROR)
211 KS, LOC 4000 ; Avoid MTBOOT and KSRIM
215 MOVE T,.... ;THIS CODE BLTS THE FOLLOWING OFFSET CODE
216 BLT T,MEMSIZ-1-1 ;INTO HIGH MEMORY AND WRITES DSKDMP ON ITS
217 MOVE T,PROG+MEMSIZ-2-BEG+1
218 MOVEM T,BEG+MEMSIZ-2-BEG+1 ;AVOID LOSING DUE TO -1 BLT LOSSAGE
220 MOVSI T,-NDSK+1 ;MAKE ALL BUT DISK 0 BE DEAD (MUST DO L$ TO MAKE THEM ALIVE)
225 RP,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
226 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
227 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
233 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
240 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
242 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
251 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
254 PH,[ MOVEI T,%HYCLR ; Clear controller
255 IOWRQ T,%HRCS2 ; (Selects drive 0)
256 WBOOT0: IORDQ T,%HRCS1
258 JRST WBOOT0 ; Await drive available (well, it is a dual
259 ; ported drive... perhaps someday?)
262 ADDI BLOK,NSWBL ; FIRST BLOCK AFTER CORE BUFFER IS WHERE
271 TRNE TT,%HXTRE+%HXMCP
273 IFE DBGSW, JRST 4,. ; Formerly JRST MEMSIZ-400 (??)
276 RH,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
277 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
278 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
280 WBOOT0: DATAO DSK,[%HRDCL,,]
285 JRST WBOOT0 ;AWAIT DRIVE AVAILABLE
286 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
288 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
297 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
300 SC,[ MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
301 MOVEI BLOK,NBLKS+NSWBL
304 MOVEI BLOK,NBLKS+NSWBL+1
312 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
317 DCOPY ......(-LRIBLK_2&37774)
320 ......: DWRITE+DUNENB+DADR ;FOR READIN
321 DCOPY BEG(-2000_2&37774)
323 DCOPY BEG(-2000_2&37774)
330 KA, LOC 2000 ; MAKE OFFSET CONVENIENT
332 KS, LOC 6000 ; Avoid MTBOOT and KSRIM
333 PROG: OFFSET CORE+<<NSWBL-1>*2000>-.
334 ]IFN DBGSW,LOC MEMSIZ-2000
337 KA,[ CONO 635550 ;ENTER HERE, CLEAR WORLD
339 JFCL 1,[JRST 4,.] ;A PDP6??
340 LPMR [0]-2 ;TURN OFF EXEC PAGING
342 KL,[ CONO 327740 ;CLEAR APR
343 CONSZ PAG,660000 ;PAGING AND CACHE BETTER BE OFF
346 KS,[ CONO 127760 ; Enable, and Clear all.
348 TRNE B,60000 ; Paging and Tops-20 better be off.
350 SETZM 8SWIT0 ; Clear 8080 Communications area to prevent
351 MOVE B,[8SWIT0,,8SWIT0+1] ; mysterious IO behavior.
353 ;; If the machine has just been powered on, there is likely to be
354 ;; bad parity all over the place. I guess that isn't our problem
355 ;; as long as we don't touch any of it...
357 MOVSI B,-NDSK ;FOR NUMBER OF DISKS
358 SETOM PKNUM(B) ;SET DISK TO UNKNOWN
360 MOVE T,[JRST LOADG1] ;SET BOOTSTRAP TO MIDDLE OF WORLD
362 MOVE D,['DSKDMP] ;ANNOUNCE SELF
364 JRST READ ;CRLF AND BEGIN READING COMMANDS
367 CLEARM MEMSIZ-1 ;DON'T READ ANY MORE COMMANDS FROM MEMORY
368 SOS T,ERROR ;PICK UP ERROR CODE FROM THE AC FIELD OF
369 LDB T,[270400+T,,] ;THE JSR ERROR
371 JSP TT,PD ;PRINT OUT APPROPRIATE COMMENT
373 JRST READ ;BAD ERROR - NO MORE DISKING
375 KA, DATAI TTY,C ;FLUSH RANDOM CHARACTER
376 KS, SETZM 8CTYIN ; ".RESET"
377 TRO CMD,10 ;MAKE SURE PSEUDO-CORE IN CORE
378 JRST LOADG ;BY SIMULATING END OF LOADING, NON-GOING COMMAND
380 ERMESS: IRP XX,,[ECMP,EDIR,EEOF,ESNF,EFNF,EPNM,ECKS
381 EDSK,EDDT,EBUG,EC63,ECRD,ECWR,ECDR,EMFC,EDLZ]YY,,[CMPERR,DIRFUL
382 EOF,DIRNF,FNF,PKNMTD,CKSERR,DSKFUL,NODDT,?BUG?,SEEKFL
383 CLOBRD,CLOBWR,DIRCLB,MFDCLB,DSKLUZ]
388 PD: JSP P,CRLF ;TYPE A CR
390 JSP P,TYO ;AND A SPACE
392 PD1: ILDB C,B ;AND THE SIXBIT CONTENTS OF D
400 C12: IDIVI C,10. ;PRINT CONTENTS OF C AS A TWO-DIGIT
401 DPB C,[60600,,A] ;DECIMAL NUMBER PRECEDED
402 MOVEI D,(SIXBIT /#00/+A) ;BY <SPACE>#
406 WRCB: MOVEI UNIT,CBUF ;WRITE OUT CONTENTS OF CBUF
407 LSH BLKIN,-12 ;ON APPROPRIATE BLOCK
409 ADDI BLOK,-CORES(BLKIN)
412 LODUMP: MOVEI UNIT,CORE ;DEPENDING ON SIGN BIT OF WRITE, LOAD OR DUMP
413 HRRZ BLOK,CBLK ;PSEUDO-CORE (766000-775777)
421 FD: HRRZ C,B ;SET UP POINTER IN C TO FETCH OR DEPOSIT
422 ;CONTENTS OF ADDRESS IN RIGHT HALF OF B
423 IFN DBGSW, SKIPGE WRITE ;LOAD DDT WHEN IN DEBUG MODE
427 CAIGE C,CORE ;IF ADDR IS IN REAL CORE, RETURN IMMEDIATELY
429 FDX: CAIL C,(BLKIN) ;ADDR IS IN PSEUDO-CORE--CHECK IF RIGHT
430 CAILE C,1777(BLKIN) ;BLOCK IS IN CBUF
431 JRST FD3 ;IT'S NOT THERE--READ IT IN
432 FD4: SUBI C,-CORE(BLKIN) ;IT'S THERE--SET UP RIGHT POINTER IN C
433 JRST 1(P) ;AND RETURN
434 FD3: JUMPLE WRITE,FD3A ;IF DUMP OR VERIFY DON'T BOTHER
435 ;TO WRITE OUT CURRENT BLOCK
436 FD3B: JSP TT,WRCB ;IF LOAD, WRITE CURRENT BLOCK FIRST
437 FD3A: MOVEI UNIT,CBUF
440 LDB BLOK,[121000,,BLKIN]
442 MOVEI BLOK,-CORES(BLOK)
443 JSP TT,RDM ;READ IN CORRECT BLOCK
444 JRST FD4 ;SET UP POINTER AND RETURN
446 GBP: IDIVI C,6 ;TURN USER DIRECTORY CHARACTER ADDR IN C
447 IMULI A,-60000 ;INTO A BYTE POINTER
452 WD: AOBJN BUFP,WD1 ;READ, WRITE, OR VERIFY WORD IN D FROM, INTO,
453 JSP TT,NXTBLK ;OR AGAINST WORD IN DBUF
454 JSP TT,WRDB ;TIME TO REFILL OR EMPTY DBUF
455 MOVSI BUFP,-2000 ;RESET BUFFER POINTER
456 WD1: JUMPG WRITE,WD2 ;JUMP ON LOAD
457 JUMPL WRITE,WD3 ;JUMP ON WRITE
458 CAME D,DBUF(BUFP) ;HERE IF VERIFY
459 JSR ECMP,ERROR ;VERIFY COMPARE LOST
461 WD2: SKIPA D,DBUF(BUFP) ;LOAD
462 WD3: MOVEM D,DBUF(BUFP) ;DUMP
465 NXTTUT: HRRZ B,CU ;SELECT NEXT UNIT AND READ ITS TUT
471 JRST 1(TT) ;SKIP IF NO MORE
473 JRST NXTTUT ;UNIT NOT ON LINE
474 RDTUT: MOVEI BLOK,TUTBLK ;READ TUT OF CURRENT UNIT
476 SETOM PKNUM(B) ;ALWAYS READ HEADER FOR TUT
477 IFG NTUTBL-1,[ ;READ IN MULTI-BLOCK TUT
478 HRRM TT,RDTUTX ;SAVE RETURN ADDRESS
489 IBP DIRPT ;DO AN IDPB T,DIRPT CHECKING TO SEE IF
490 LDB DIFF,[1200,,DIRPT] ;RUNNING INTO NAME AREA
496 NXTBW: MOVE BLOK,LBLOCK ;FIND NEXT FREE BLOCK TO WRITE
499 JUMPN T,NXTBW1 ;JUMP IF VERY NEXT BLOCK NOT FREE
501 NXTBW5: SOJA HEAD,NXTBW4 ;GENERATE LOAD ADR IF FIRST TIME (COMPENSATE FOR LBLOCK OFF BY 1)
503 JRST NXTBW2 ;NO NEED TO MODIFY DIRECTORY YET
504 CLEARM BLKCNT ;14 IN A ROW--RESET COUNTER AND
505 NXTBW6: JSR NXTBW3 ;DPB BYTE INTO DIRECTORY
506 NXTBW2: MOVE BLOK,HEAD
508 JSR EDSK,ERROR ;NO MORE DISK LEFT
510 DPB T,TUTPT ;MARK BLOCK USED IN TUT
513 NXTBW1: ADDI HEAD,1 ;SEARCH FOR NEXT FREE BLOCK
517 SKIPLE T,BLKCNT ;COME UP WITH DESC BYTE FOR LAST FEW BLOCKS
520 JUMPL T,NXTBW5 ;FIRST TIME
521 MOVEI T,UDTKMX-1(BLOK)
522 CAIGE T,UDWPH ;CAN WE SAY SKIP N--TAKE 1?
524 NXTBW4: MOVEI BLOK,NXLBYT
533 NXTBLK: JUMPL WRITE,NXTBW ;GET NEXT BLOCK OF FILE--IF DUMP, FIND FREE
534 MOVE BLOK,LBLOCK ;BLOCK
535 NXTB6: SOSLE BLKCNT ;HAVE WE RUN OUT OF "TAKE N"?
536 AOJA BLOK,WRDB1 ;NO--TAKE NEXT BLOCK
537 ILDB T,DIRPT ;YES--GET NEXT DESC BYTE
539 JRST NXTB1 ;IT'S A LOAD ADDR
541 JUMPN T,NXTB2 ;IT'S A TAKE OR SKIP
542 CAIE CMD,'D ;IT'S 0 OR NULL--IF THIS IS A LOAD, IT'S AN
543 CAIN CMD,'K ;UNEXPECTED END OF FILE
544 JRST KILL1 ;IF DUMP OR KILL, O.K.
547 NXTB1: MOVEI BLOK,-UDWPH-1(T) ;LOAD ADR
552 DPB T,DIRPT ;IF KILLING FILE, ZERO THIS BYTE (OTHERS ZEROED AT KILL)
555 ADD BLOK,T ;GET COMPLETE BLOCK NUMBER
559 NXTB2: MOVEM T,BLKCNT
561 AOJA BLOK,WRDB1 ;TAKE N STARTING WITH NEXT ONE
562 ADDI BLOK,-UDTKMX+1(T) ;SKIP N-<MAX TAKE> AND TAKE 1
564 WRDB1: MOVEM BLOK,LBLOCK
568 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
569 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
570 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
571 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
574 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
575 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
576 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
577 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
578 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
580 WRD3: DPB WRITE,[360600,,DBLK] ;SET OP, UNIT SEL
581 DPB WRITE,[DUNFLD SEEK]
582 DPB WRITE,[DUNFLD RECAL]
583 HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
586 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
587 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
588 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
592 DPB HEAD,[DSECT DBLK]
594 DPB HEAD,[DSURF DBLK]
597 DATAO DPC,CLATT ;CLEAR ATTENTIONS
598 LSH DIFF,-8 ;EXTRA CYLINDER BIT FOR RP03
599 DPB DIFF,[DCYLXB DBLK]
600 DPB DIFF,[DCYLXB SEEK]
614 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
616 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
617 JSR ECWR,ERROR ;WRITE ERRORS AND
618 JSR ECRD,ERROR ;READ ERRORS
620 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
621 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
622 TRZ WRITE,-1 ;FLUSH GARBAGE
640 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
641 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
642 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
643 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
646 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
647 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
648 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
649 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
650 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
652 WRD3: TRNE UNIT,1777 ; Better be on a page boundary!
654 LDB DIFF,[111100,,UNIT] ; Point Unibus map at page in question
655 TRO DIFF,%UQFST+%UQVAL
656 IOWRQ DIFF,UBAPAG+UBPG_1
658 IOWRQ DIFF,UBAPAG+UBPG_1+1
659 LDB DIFF,[000300,,WRITE] ; Select drive
661 JSP HEAD,RHCHEK ; Check for immediate trouble
662 MOVEI DIFF,%HMRDP ; Init the drive
664 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
665 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
666 WRD5: MOVNI DIFF,4000
667 IOWRQ DIFF,%HRWC ; 4000 half words
669 IOWRQ DIFF,%HRBA ; "Byte" base address
672 IOWRQ DIFF,%HRCYL ; Desire cylinder
676 DPB DIFF,[$HATRK HEAD]
677 IOWRQ HEAD,%HRADR ; Desire track and sector
681 IOWRQ DIFF,%HRCS1 ; Do it (implied seek)
682 WRD7: IORDQ DIFF,%HRCS1
683 TRNN DIFF,%HXRDY ; Wait for controller to finish
685 TRNN DIFF,%HXTRE+%HXMCP ; Trouble?
686 JRST WRDX ; Nope, exit
688 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
689 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
690 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
691 JSR ECWR,ERROR ;WRITE ERRORS AND
692 JSR ECRD,ERROR ;READ ERRORS
694 WRDX: TRZ WRITE,-1 ;FLUSH GARBAGE
697 WRD0: MOVEI DIFF,%HYCLR ; Clear controller
699 LDB DIFF,[000300,,WRITE] ; Select drive
701 MOVEI DIFF,%HMCLR ; Clear drive
703 JSP HEAD,RHCHEK ; Immediate lossage?
704 MOVEI DIFF,%HMREC ; Recalibrate
710 TRNE DIFF,%HSPIP ; WAIT FOR DRIVE TO FINISH
712 ANDI DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY+%HSERR
713 CAIE DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY
717 ;;; JSP HEAD,RHCHEK to check for errors.
718 RHCHEK: IORDQ DIFF,%HRCS1
719 TRNE DIFF,%HXTRE+%HXMCP
725 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
726 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
727 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
728 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
731 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
732 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
733 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
734 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
735 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
737 WRD3: HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
738 CONI DSK,HEAD ;SET WORD COUNT TO ONE BLOCK
739 TLNE HEAD,(%HID22) ;ACCORDING TO TYPE OF CHANNEL
742 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
743 SOS @ICWA ;ADJUST FOR DF10 LOSSAGE
744 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
745 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
746 WRD5: MOVSI DIFF,%HRDCL(UNIT)
747 HRRI DIFF,%HMRDP ;INIT THE DRIVE
752 MOVEM HEAD,DBLK ;SAVE CYLINDER
756 DPB HEAD,[$HATRK DIFF]
757 TLO DIFF,%HRADR(UNIT)
760 TLO DIFF,%HRCYL(UNIT)
762 MOVSI DIFF,%HRCTL(UNIT)
767 JSP HEAD,RHSET ;DO IT (USE IMPLIED SEEK)
773 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
774 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
775 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
776 JSR ECWR,ERROR ;WRITE ERRORS AND
777 JSR ECRD,ERROR ;READ ERRORS
779 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
780 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
781 TRZ WRITE,-1 ;FLUSH GARBAGE
784 WRD0: MOVSI DIFF,%HRDCL(UNIT)
787 MOVSI DIFF,%HRDCL(UNIT)
794 MOVSI DIFF,%HRSTS(UNIT)
798 ANDI DIFF,%HSVV+%HSRDY+%HSMOL+%HSERR
799 CAIE DIFF,%HSVV+%HSRDY+%HSMOL
803 ;RH10 HACKING ROUTINES. CALL BY JSP HEAD,. DIFF HAS REGISTER ADDRESS IN LH, DATA IN RH.
804 RHSET: TLOA DIFF,%HRLOD
805 RHGET: TLZ DIFF,%HRLOD
817 \f;SC DISK IO ROUTINE
819 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
820 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
821 WRM: HRRI WRITE,60#120 ;WRITE ON MASTER UNIT
822 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
825 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
826 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
827 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
828 WR: HRRI WRITE,60#120 ;WRITE ON CURRENT UNIT
829 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
831 WRD3: DPB WRITE,[330700,,DBLK] ;SET OP, UNIT SEL
832 DPB UNIT,[DCCA DBLK+1] ; & CORE ADDR
833 DPB UNIT,[DCCA DBLK1+1]
834 LDB UNIT,[400,,WRITE] ;ISOLATE FROM GARBAGE
835 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
836 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
839 DPB HEAD,[DSECT DBLK]
841 DPB HEAD,[DSURF DBLK]
843 CONO DC0,DCCSET\DCDENB ;RESET ALL, THEN SET DCDENB
846 SKIPLE DIFF,PKNUM(UNIT)
848 MOVE DIFF,QTRAN(UNIT) ;READ PACK ID
849 DPB DIFF,[DUNFLD GPKID]
852 ADDI DIFF,NCYLS+XCYLS
853 DPB DIFF,[DCYL GPKID]
854 DATAO DC0,[DJMP GPKID]
859 CONO DC0,DCCSET\DCDENB ;RESET POSSIBLE "FUTURE" IP OR RLCERR
860 LDB DIFF,[DPKID RPKID]
861 MOVEM DIFF,PKNUM(UNIT)
862 WRD4: DPB DIFF,[DPKID DBLK]
864 DPB DIFF,[3300,,DBLK1]
865 MOVE DIFF,QTRAN(UNIT)
866 DPB DIFF,[DUNFLD DBLK]
868 LDB DIFF,[DCYL DBLK] ;2ND HALF UNIT
869 ADDI DIFF,NCYLS+XCYLS
871 WRD4A: DATAO DC0,[DJMP DBLK]
877 TRNN DIFF,2 ;DO RECALIBRATE 2 OUT OF 4 RETRIES
879 WRD0: AOSLE ERRCT ;POSITIONER ERROR--CHECK ERROR COUNT
880 JSR EC63,ERROR ;TOO MANY--GIVE UP
881 DATAO DC0,[DSPC+DSRCAL+DSWINF]
884 JRST WRD5 ;TRY AGAIN AFTER RESETTING UNIT
886 WRD2: HRRZM BLOK,BADBLK
887 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
889 TRNE WRITE,40 ;GIVE UP--DISTINGUISH BETWEEN
890 JSR ECWR,ERROR ;WRITE ERRORS AND
891 JSR ECRD,ERROR ;READ ERRORS
893 WRDX: DPB BLOK,[XWBLK XWDS] ;PNTR TO PREV BLOCK
894 LDB UNIT,[DCCA DBLK+1] ;RESTORE ADR
895 TRZ WRITE,-1 ;FLUSH GARBAGE
899 DCOPY .(-2000_2&37774)
900 DCOPY XWDS(-4_2&37774)
902 DCOPY .(-2000_2&37774)
903 DCOPY XWDS(-4_2&37774)
906 GPKID: DSPC+DSCRHD+DSWIDX+DSWNUL+DUNENB+TUTCYL_11.+TUTSRF_6+TUTSEC
911 ;JSP P,TYI RETURNS CHAR IN C.
912 ;JSP P,TYI0 ALSO SKIPS IF NO INPUT AVAILABLE.
913 TYI: ILDB C,MEMSIZ-1 ;CHECK FOR COMMANDS FROM MEMORY
914 JUMPN C,(P) ;FOUND ONE--RETURN
916 TYI0: ;ENTRY TO SKIP IF NO INPUT AVAILABLE
926 KL,[ MOVEI C,3400 ;DDT MODE INPUT
938 JRST (P) ;DON'T ECHO GRITCHES
941 ;JSP P,TYO TYPES OUT CHAR IN C. CLOBBERS A,C.
943 ; JRST (P) ;DON'T ECHO COMMANDS FROM MEMORY
944 KA,[ HRRZ A,C ;COMPUTE PARITY
974 JUMPGE C,(P) ;CHECK FOR CRLF (AS OPPOSED TO ECHOING A CR)
975 SKIPA C,C12 ;TYPE AN LF
979 TYI1: HRRZ C,-1(P) ;NO INPUT AVAILABLE
981 JRST TYI ;WAIT FOR IT
982 JRST 1(P) ;CALL WAS TO TYI0, SKIP RETURN
986 MOVSI WRITE,-1 ;MAKE THIS INFO MORE CONVENIENT
991 DPB T,DIRPT ;CLOBBER CHARS READ FOR DUMP OR KILL
1000 LINKN1: CAMGE D,[600,,B] ;THROUGH WITH FN2?
1007 LINKN: TLNN D,770000
1009 IDPB T,D ;FILL OUT WITH SPACES
1012 LINKQ: ILDB TT,DIRPT
1017 READ: MOVEI BLKIN,CORE
1019 MOVEI CMD,0 ;INITIALIZE COMMAND
1020 READ1A: MOVEI WRITE,0 ;INITIALIZE NUMBER
1021 MOVSI B,(SIXBIT \@\) ;INITIALIZE 1ST FILE NAME
1023 READ3A: MOVSI B,(SIXBIT \@\) ;INITIALIZE CURRENT FILE NAME
1027 JRST READ ;IF RUBOUT START OVER
1030 JRST ALTMOD ;JUMP IF 33, 175, 176
1031 ASH WRITE,3 ;DOES NOT CHANGE SIGN OF WRITE
1034 TLOA WRITE,400000 ;NON-NUMERIC CHAR--MAKE WRITE NEGATIVE
1035 ADDI WRITE,-"0(C) ;NUMERIC CHAR--ACCUMULATE NUMBER
1037 JRST READ3 ;SET SYSTEM NAME
1039 JRST READ1 ;SET FIRST FILE NAME
1041 JSP P,TYI ;QUOTED CHARACTER
1042 CAIGE C,140 ;CHECK FOR LOWER CASE
1044 JUMPL C,DOIT ;IF LESS THAN 40 (EXC. ^Q) END OF COMMAND
1045 TLNE D,770000 ;SKIP IF ALREADY SIX CHARS
1052 JRST DOIT ;IF COMMAND IS U GO LIST DIRECTORY
1054 ONOFF: CAIGE WRITE,NDSK
1055 DPB CMD,[100,,QDED(WRITE)] ;LOW BIT OF CMD DETERMINES ON/OFF LINE STATUS
1056 JRST READ ; (K=13, L=14)
1058 ALT1: LDB CMD,D ;PICK UP COMMAND CHAR
1061 JRST READ1A ;GET FILE NAME
1062 JRST DOIT ;DON'T WANT FILE NAME--GO TO WORK
1065 JSP P,TYO ;ECHO DOLLAR SIGN
1066 JUMPLE WRITE,ALT2 ;JUMP IF NOT <NUMBER><ALTMODE> LAST TYPED
1067 JUMPN CMD,ONOFF ;JUMP IF <CMD><ALTMODE><NUMBER><ALTMODE>
1068 HRRM WRITE,SADR ;SET STARTING ADDR
1072 TLCN D,360000 ;SKIP IF SINGLE CHARACTER BEFORE <ALTMODE>
1073 JUMPE CMD,ALT1 ;JUMP IF NO COMMAND ALREADY TYPED
1074 DOIT: MOVEM B,FN2 ;STORE SECOND FILE NAME
1076 HRRM B,CU ;MAKE MASTER UNIT CURRENT UNIT
1078 JSP P,LODUMP ;DUMP OUT PSEUDO-CORE
1083 MLOOK2: MOVSI WRITE,1 ;MAKE WRITE INDICATE LOAD
1086 JSP TT,RD ;READ MASTER DIRECTORY TO FIND WHERE USER DIRECTORY IS
1088 CAME T,[SIXBIT/M.F.D./]
1094 JRST LISTS ;LIST DISK ID'S AND SYSTEM NAMES
1096 MLOOK: CAMN C,DIR+MNUNAM(T) ;LOOK UP SYSTEM NAME
1101 JSR ESNF,ERROR ;NOT FOUND
1103 MLOOK1: MOVEI BLOK,2*NUDSL-2000(T) ;CONVERT USER SLOT TO BLOCK NUMBER
1105 HRRM BLOK,UDBLK ;REMEMBER FOR KILL OR DUMP
1107 JSP TT,RDM ;READ USER DIRECTORY
1108 ULOOK: CAME C,DIR+UDNAME
1109 JSR ECDR,ERROR ;WRONG ONE??
1112 JRST LISTFC ;LIST USER DIRECTORY
1117 ULOOK1: CAMN A,DIR+UNFN1(T) ;LOOK UP FILE NAME
1120 TDNN TT,DIR+UNRNDM(T) ;IS THIS FILE FOR REAL?
1122 ULOOK2: ADDI T,LUNBLK
1125 CAIE CMD,'D ;IF NOT FOUND BETTER BE DUMP
1128 ULOOK4: SKIPN DIR+UNFN1(T) ;FIND FREE SLOT FOR NEW FILE
1133 MOVNI T,LUNBLK ;NO FREE SLOTS--TRY TO EXTEND NAME AREA DOWN
1138 CAMGE T,DIR+UDNAMP ;DID WE RUN INTO DESCRIPTOR AREA?
1142 ULOOK3: HRRM T,DMP4 ;IF FILE FOUND, SAVE SLOT NUMBER FOR DUMP
1143 LDB C,[UNDSCP DIR+UNRNDM(T)]
1145 MOVEM C,DIRPT ;SET UP DESCRIPTOR AREA BYTE POINTER
1147 TDNE TT,DIR+UNRNDM(T)
1148 JRST LINK ;FILE IS A LINK
1149 LDB A,[UNPKN DIR+UNRNDM(T)]
1150 ULOOK5: CAMN A,TUT+QPKNUM ;SEE IF IT'S MOUNTED
1156 LOAD: CAIE CMD,'D ;GET HERE IF FILE FOUND
1157 CAIN CMD,'K ;IF DUMP OR KILL, DELETE IT
1159 ZERO: MOVEI TT,CORE-1
1160 TRNN CMD,20 ;SKIP IF T$ SYMBOL LOADING COMMAND
1162 MOVEI B,DDT-1 ;ASSUME ALWAYS USING MOBY DDT
1163 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1164 JSR EDDT,ERROR ;CAN'T GET IT??
1165 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1166 CAME B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1168 SKIPE D,-2(C) ;FLUSH ALL BUT INITIAL SYMBOLS
1173 MOVEI TT,-1(D) ;DON'T ZERO SYMBOL TABLE NOR DDT
1175 JRST LOAD1 ;NON-ZEROING COMMAND
1176 SETZM 40 ;BEGIN CLEARING CORE
1177 MOVE T,[40,,41] ;SET UP BLT POINTER
1178 ;CODE TO SKIP OVER NXM
1179 ZERO2: CAIG TT,10*2000-1(T) ;MORE THAN 8K LEFT TO ZERO?
1180 JRST ZERO4 ;NO, ZERO REMAINING WORDS AND PROCEED
1181 MOVE D,T ;AVOID KA/KL INCOMPAT BY COPYING BLT PNTR
1182 BLT D,10*2000-1(T) ;ZERO NEXT 8K
1183 ZERO3: ADDI T,10*2000 ;MOVE DEST OF BLT PNTR UP 8K
1184 ANDCMI T,1777 ;ROUND DOWN TO 1K BOUNDARY
1185 KA, CONO 10000 ;CLEAR NXM
1186 MOVES (T) ;SET NXM IF HOLE
1187 KA, CONSZ 10000 ;NXM GENERATED?
1188 KA, JRST ZERO3 ;YES, GO TO NEXT 8K
1189 JRST ZERO2 ;NO, CLEAR THIS 8K
1191 ZERO4: BLT T,(TT) ;AND CLEAR TO TOP BOUNDARY
1193 JRST LOAD1 ;IF SYMBOL-LOADING COMMAND, STOP THERE
1195 MOVE T,[CBUF,,CBUF+1]
1198 MOVE BLOK,CBLK ;-NSWBL IN LH
1199 JSP TT,WRM ;CLEAR PSEUDO-CORE
1201 LOAD1: SETZB BUFP,BLKCNT ;SET UP BUFP SO FIRST CALL TO WD WILL READ
1202 LOAD2: JSP P,WD ;FIRST BLOCK OF FILE
1203 CAME D,[JRST 1] ;LOOK FOR END OF SBLK LOADER
1205 CAIN CMD,'I ;IF VERIFY, START SIMULATING DUMP
1207 LOAD3: JSP P,WD ;READ BLOCK HEADER
1208 JUMPGE D,LOADS ;IT'S A JUMP BLOCK
1211 JSR LOADB ;LOAD LOGICAL BLOCK INTO CORE
1215 LOAD4: JSP P,WD ;LOAD A LOGICAL BLOCK--AOBJN POINTER IN B,
1216 ROT A,1 ;BLOCK HEADER IN A (FOR CHECKSUM)
1217 ADD A,D ;ADD NEW WORD INTO CHECKSUM
1218 JSP P,FD ;AND PREPARE TO SMASH IT AWAY
1219 JRST .+2 ;LOCATION CAN'T BE LOADED
1220 MOVEM D,(C) ;SMASH WORD AWAY
1223 CAMN A,D ;CHECK THE CHECKSUM
1225 JSR ECKS,ERROR ;BAD CHECKSUM
1228 JRST LOADG0 ;DON'T LOAD SYMBOLS NOR SADR
1229 MOVEM D,NXTBW3 ;SAVE S.A.
1230 MOVEI B,DDT-1 ;ASSUME IS ALWAYS MOBY DDT.
1231 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1232 JSR EDDT,ERROR ;CAN'T GET IT??
1234 JRST LOADJ ;AIN'T GOT NO DDT, IGNORE SYMBOLS
1235 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1236 CAMN B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1237 JSP P,FD ;FETCH SYMBOL TABLE POINTER
1241 LOADS1: MOVE B,DDTM2 ;GET LOWEST SYMBOL LOC SO FAR
1242 JSP P,WD ;GET SYMBOL BLOCK HEADER
1243 JUMPGE D,LOADS2 ;JUMP IF END OF SYMBOLS
1244 TRNE D,-1 ;SKIP IF REALLY SYMBOLS AND NOT SOME OTHER BRAIN-DAMAGED CRUFT
1248 ADD B,D ;EFFECTIVELY SUBTRACTS LENGTH OF BLOCK FROM BOTH HALVES
1249 MOVEM B,DDTM2 ;OF SYMBOL TABLE POINTER
1250 HRL B,D ;SET UP AOBJN POINTER IN B
1251 HRLZ A,D ;AND RECREATE HEADER IN A
1252 JSR LOADB ;LOAD THE SYMBOLS
1255 LOADBD: HLRO B,D ;-# WORDS TO SKIP (NOT COUNTING CHECKSUM)
1258 JRST LOADS1 ;TRY NEXT SYMBOL BLOCK
1260 LOADS2: MOVE D,DDTM2 ;GET UPDATED DDT SYMBOL PNTR
1261 LOADS4: MOVEI B,DDT-2 ;WE KNOW WHERE IT ALWAYS GOES
1262 JSP P,FD ;PUT BACK SYMBOL TABLE POINTER
1263 JSR EBUG,ERROR ;CAN'T PUT IT BACK??
1265 MOVEI B,DDT-4 ;GIVE STARTING ADDRESS TO DDT
1270 MOVEI D,DDT ;AND SET DSKDMP START ADDRESS TO DDT
1271 LOADJ: HRRM D,SADR ;SET STARTING ADDRESS FROM JUMP BLOCK
1272 LOADG0: MOVE T,BOOTNS ;APPROP DISK WAIT FOR NON BUSY INSTR
1274 LOADG: JSP TT,WRCB ;MAKE SURE ALL LOADED CRUFT IN PSEUDO-CORE IS OUT
1276 JSP P,LODUMP ;AND LOAD IT ALL IN
1278 JRST READ ;NON-GOING COMMAND
1280 PH,[ MOVSI B,-LSWPADR
1281 GO1: IORD DIFF,SWPCS1
1282 TRNN DIFF,%HXRDY ; Wait for controller
1294 GO1: CONSZ DSK,%HIBSY
1309 SC, DATAO DC0,[DJMP SWPOUT]
1314 JRST LOADG1 ;SHUT UP IF KEY HIT
1315 MOVE C,TUT+QPKNUM ;TYPE PACK NUMBER
1317 MOVE D,TUT+QPAKID ;AND I.D.
1319 JSP TT,NXTTUT ;SAME FOR ALL DIRECTORIES
1322 LISTS1: CAIGE T,2000
1323 JSP P,TYI0 ;STOP TYPING IF TTI FLAG ON
1325 SKIPE D,DIR+MNUNAM(T)
1326 JSP TT,PD ;TYPE OUT USER NAME
1330 LISTFC: MOVE T,DIR+UDNAMP
1332 KA, CONSO TTY,40 ;STOP TYPING IF TTI FLAG ON
1333 KS, SKIPN 8CTYIN ; Stop typing if character waiting
1336 SKIPN DIR+UNFN1(T) ;SKIP IF FILE IN THIS SLOT
1339 LDB C,[UNPKN DIR+UNRNDM(T)]
1340 JSP TT,PNO ;TYPE PACK NUMBER
1342 JSP TT,PD2 ;TYPE FIRST FILE NAME
1344 JSP TT,PD2 ;AND SECOND FILE NAME
1345 LISTF2: ADDI T,LUNBLK
1348 KILL: JSP TT,NXTB6 ;GET HERE ON KILL OR DUMP OF EXISTING FILE
1349 MOVEI T,0 ;ZERO BYTES IN USER DIRECTORY DESCIPTOR AREA
1350 DPB T,DIRPT ;NXTB6 JUMPS TO KILL1 AT END OF FILE
1354 CAIGE T,TUTLK-1 ;SOS USAGE OF THIS BLOCK
1355 SOJL T,[JSR ECDR,ERROR]
1359 KILL1: HRRZ T,DMP4 ;CLEAR OUT USER DIRECTORY SLOT
1362 CLEARM DIR+UNRNDM(T)
1365 JRST KILDMP ;IF KILL DON'T DUMP
1366 JRST DMP4 ;MUST DUMP ON SAME UNIT
1368 DUMP0: MOVE T,DIR+UDNAMP ;GET HERE IF SLOT CREATED AT BOTTOM OF NAME AREA
1369 DUMP: HRRM T,DMP4 ;GET HERE IF EMPTY SLOT FOUND IN NAME AREA
1370 DMP0: MOVEI D,0 ;GET HERE IF USING SLOT OF OLD FILE
1371 DMP1: ;MOVE C,TUT+QSWAPA
1372 MOVEI C,0 ;NOTE START AT 0 NOT QSWAPA
1375 HRLZ B,B ;LH(B) COUNTS BLOCKS, RH(B) COUNTS FREE BLOCKS
1379 KA, SUBI B,1 ;THIS RELIES ON CARRY PROPAGATING FROM RH TO LH IN AOBJN
1380 KL, HRRI B,-1(B) ;ON KI10, KL10 CHANGE SUBI B,1 TO HRRI B,-1(B)
1381 KS, HRRI B,-1(B) ;KS too...
1383 CAIG B,(D) ;RH OF D IS HIGHEST SO FAR, LH SAYS WHICH UNIT
1384 JRST DMP5 ;NOT BETTER THAN RECORD
1385 MOVE D,B ;NEW RECORD--RECORD IT
1387 DMP5: JSP TT,NXTTUT ;TRY NEXT
1389 ;FALLS THROUGH AT END
1390 DMP3: HLRM D,CU ;SET CURRENT UNIT TO ONE WITH MOST FREE BLOCKS
1391 JSP TT,RDTUT ;GET ITS TUT
1395 MOVEM A,DIR+UNFN1(T) ;PUT CRUFT INTO SLOT
1396 MOVEM B,DIR+UNFN2(T)
1397 SETOM DIR+UNDATE(T) ; Unknown creation date
1398 HRROI C,777000 ; Unknown reference date
1399 MOVEM C,DIR+UNREF(T) ; Unknown author, 36. bit bytes
1400 SC,[ MOVEM A,XWDS+XWFN1
1404 ] MOVE C,DIR+UDESCP ;PUT DESCRIPTOR CHARACTER ADDRESS
1405 MOVE B,TUT+QPKNUM ;AND PACK NUMBER
1407 MOVEM C,DIR+UNRNDM(T) ;INTO USER DIRECTORY SLOT
1408 ;MOVE C,TUT+QSWAPA ;COMMENTED OUT INSN DUMPS INTO FILE AREA
1409 MOVEI C,0 ;DUMP INTO SWAPPING AREA TO AVOID Y FILES
1410 MOVEM C,LBLOCK ;A DAEMON WILL COPY INTO FILE AREA AFTER SALVAGE
1412 MOVEM C,TUTPT ;INITIALIZE TUT POINTER
1415 MOVEM C,DIRPT ;INITIALIZE DESCRIPTOR AREA POINTER
1416 SETOB WRITE,BLKCNT ;FORCE NXTBW TO LOAD ADR
1417 KA, HRLOI BUFP,-2001-1 ;SET UP BUFP SO FIRST WORD GOES IN DBUF+0
1418 KL, HRLOI BUFP,-2001
1419 KS, HRLOI BUFP,-2001
1421 JSP P,WD ;END OF SBLK LOADER
1425 DUMP.5: MOVSI WRITE,-'I(CMD) ;GET HERE IF VERIFY--SET WRITE NEGATIVE IF
1426 MOVEI B,40 ;DUMP AND ZERO IF VERIFY--FIRST ADDR DUMPED IS 40
1432 MOVEI B,DDT-3 ;SET UP TO NOT DUMP SYMBOLS AS PART OF CORE IMAGE
1435 SKIPN A,(C) ;GET PNTR TO BUILT IN SYMBOLS
1436 JRST DUMP4 ;NO DDT, DON'T HACK THIS
1437 HRRM A,DUMP7 ;THIS IS WHERE WE START DUMPING AGAIN
1438 MOVEM A,DUMP9K ;THIS WILL BE INITIAL SYMBOL TABLE PNTR WHEN DDT LOADED
1440 ADD A,1(C) ;GET MINUS SIZE OF NON-BUILTIN SYMBOL TABLE IN RH(A)
1441 HRL A,1(C) ;GET PNTR TO SYMBOL TABLE
1442 HLRM A,DUMP6 ;THIS IS WHERE WE STOP DUMPING
1443 MOVSM A,DUMP9S ;SAVE AOBJN PNTR TO NON-BUILTIN SYMBOLS
1444 MOVE A,-1(C) ;PICK UP START ADDRESS
1445 MOVEM A,DUMP9J ;SAVE
1446 MOVE B,-2(C) ;DUMP LOW CORE (ACS) OUT OF PLACE SAVED IN DDT
1447 HLLZ A,B ;HERE B HAS ADDRESS DUMPING FROM
1448 JRST DUMP3B ;AND A AND D HAVE VIRTUAL ADDRESS
1450 DUMP1: ;SKIP OVER NXM ON DUMPING
1451 KA,[ CONSO 10000 ;NXM SET?
1452 JRST DUMP1A ;NO, CONTINUE IN SEQUENCE
1453 ADDI B,10*2000-1 ;SKIP 8K
1454 TRZ B,1777 ;ROUND DOWN TO 8K BOUDARY
1455 CONO 10000 ;CLEAR NXM
1458 DUMP6: CAIGE B,. ;SKIP IF REACHED SYMBOL TABLE
1460 DUMP7: MOVEI B,. ;SKIP OVER SYMBOLS, DUMP DDT
1461 HLLOS DUMP6 ;DEFUSE TEST
1463 JRST DUMPJ ;TIME TO WRITE JUMP BLOCK AND SYMBOL TABLE
1464 SKIPN (C) ;LOOK FOR NON-ZEROES
1466 MOVE A,B ;SAVE START OF BLOCK
1467 DUMP2: TLZ A,-1 ;LOOK FOR TWO CONSECUTIVE ZEROES
1468 DUMP2A: CAIL B,200(A) ;BUT DON'T DUMP MORE THAN 200 WORDS AT A TIME
1472 JRST DUMP3 ;END OF CORE, WRITE OUT LAST BLOCK
1474 AOJA B,DUMP2 ;NONZERO
1475 TLON A,-1 ;ZERO, WAS PREV LOC ZERO ALSO?
1476 AOJA B,DUMP2A ;NO, CHECK FOLLOWING LOC
1477 SOJA B,DUMP3 ;YES, DUMP THE NON-ZERO THAT PRECEDES IT
1479 DUMP3: HRRM B,DUMP4 ;SAVE ADDRESS TO CONTINUE SEARCH
1480 SUBM A,B ;RH(B) GETS MINUS THE LENGTH OF THE BLOCK
1481 HRL A,B ;SET UP HEADER IN A
1483 DUMP3B: MOVE D,A ;AND D
1484 JSP P,WD ;WRITE HEADER
1486 JSR EBUG,ERROR ;CAN'T FETCH WORD WE FETCHED BEFORE??
1489 ADD A,D ;COMPUTE CHECKSUM
1490 JSP P,WD ;WRITE DATA WORD
1493 JSP P,WD ;WRITE OUT CHECKSUM
1494 DUMP4: MOVEI B,. ;AND CONTINUE SEARCHING
1495 JUMPN B,DUMP1 ;IF MRC EVER SEES THIS --SELFMODIFYING CODE-- ....
1496 JRST DUMP9 ;FINISHED DUMPING SYMBOLS
1500 HRROI D,DDT-2 ;BUGGER THE SYMBOL TABLE
1508 DMP9J1: SKIPN D,DUMP9J
1510 JSP P,WD ;WRITE OUT JUMP BLOCK
1511 SKIPN B,DUMP9S ;WRITE SYMBOLS
1512 JRST DUMP9 ;NO SYMBOLS
1514 HLLZS DUMP4 ;DUMP SYMBOL BLOCK, RETURN TO DUMP9
1517 DUMP9: JUMPE WRITE,LOADG1 ;IF VERIFY, THAT'S ALL
1520 JSP P,WD ;SECOND JUMP BLOCK
1521 HRRZ T,DMP4 ; GET POINTER TO NAME AREA
1523 DPB BUFP,[UNWRDC+DIR+UNRNDM(T)]
1525 JSP TT,WRDB ;WRITE OUT LAST BLOCK
1527 JSR NXTBW3 ;STORE LAST DESCRIPTOR BYTE
1529 JSR NXTBW3 ;AND INDICATE END OF FILE
1530 LDB T,[360600,,DIRPT]
1534 SUBI TT,6*<DIR+UDDESC>-5-1(T)
1535 HRRZM TT,DIR+UDESCP ;INDICATE NEW END OF DESCRIPTOR AREA
1536 KILDMP: MOVEI UNIT,TUT
1538 JSP TT,WRD ;WRITE OUT TUT ON THIS UNIT
1545 HRRM B,KD2 ;WRITE OUT USER DIRECTORY ON ALL UNITS
1562 GTP: SKIPGE TUT+QPKNUM
1563 JSR EBUG,ERROR ;MUST BE OLD-STYLE TUT?
1565 JUMPL C,[JSR EBUG,ERROR]
1567 IMULI A,-10000*TUTBYT
1568 HRLI C,440000+TUTBYT_6(A)
1572 SC,[ ;LOGICAL TO PHYSICAL DISK MAPPING
1573 QTRAN: 0 ;INDEX BY LOG DSK #
1574 1 ;4.9 => USE HIGH HALF OF DRIVE, RH = PHYS DRIVE #
1575 2 ;(NO LONGER DOES ANYTHING, NOW THAT MEMOWRECKS ARE GONE,
1576 3 ; BUT KEEP AROUND JUST IN CASE EVER NEEDED AGAIN.)
1581 IFL .-QTRAN-NDSK,.ERR QTRAN LOSES!!
1584 ERRCT: 0 ;ERROR COUNTER
1585 DDTM2: 0 ;DDT SYMBOL TABLE POINTER
1586 DUMP9J: 0 ;START INSTRUCTION (AT DUMP9)
1587 DUMP9S: 0 ;SYMBOL TABLE POINTER (AT DUMP9)
1588 DUMP9K: 0 ;INITIAL SYMBOL TABLE PNTR (AT DUMP9)
1589 LBLOCK: 0 ;LAST BLOCK WRITTEN OR READ
1590 BLKCNT: 0 ;NUMBER OF BLOCKS READ OR WRITTEN CONSECUTIVELY
1591 DIRPT: 0 ;DESCRIPTOR AREA BYTE POINTER
1592 TUTPT: 0 ;TUT BYTE POINTER
1595 PKNUM: REPEAT NDSK,-1 ;PACK NUMBER INDEXED BY DRIVE NUMBER
1596 QDED: BLOCK NDSK ;-1 IF DRIVE NOT TO BE USED
1599 BOOTNS: RP, CONSZ DPC,BUSY
1600 SC, CONSZ DC0,DSSACT
1601 RH, CONSZ DSK,%HIBSY
1602 PH, IORD B,SWPCS1 ; UGH!
1606 IFL BEG+1677-., .ERR BLOAT
1607 INFORM SPACE LEFT,\BEG+1677-.
1610 BADBLK: 0 ;BLOCK WITH HDWE ERROR
1611 INFORM BADBLK,\.-1-BEG+<MEMSIZ-2000>
1619 CBOOT: CLEARM MEMSIZ-1 ;BOOTSTRAP
1622 IFE BOOTSW, JRST BEG ;OR CONSZ DPC,BUSY OR JRST LOADG1
1623 IFN BOOTSW, CONSZ DPC,BUSY
1625 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1632 BOOT0: TRNN B,RP03BT
1634 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
1640 BOOT1: HLLZS BOOT0 ;PREVENT TRNN FROM SKIPPING AGAIN
1654 CLATT1: DEASEC ALLATT
1655 SWPSK: DSEEKC+200._22.
1656 SWPIN1: DWRITC+200._22.+3_17.+2._12.+ICWA ;NBLKS 4
1657 SWPIN2: DREADC+200._22.+4_17.+8._12.+ICWA
1658 SWPOU1: DWRITC+200._22.+4_17.+8._12.+ICWA
1659 SWPOU2: DREADC+200._22.+3_17.+2_12.+ICWA
1660 IFN NSWBL-5, .ERR THE PRECEDING 4 CONSTANTS ARE WRONG!
1661 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1662 RP3ADJ: <<MCYLS#NCYLS>&377>_22.+<.BM DCYLXB>
1665 SKWAIT: DATAI DPC,A ;AWAIT SEEK DONE UNIT 0
1676 WAIT: CONSO DPC,DONE
1680 PH,[ ;; Initially we could not use IORDQ or IOWRQ because they were
1681 ;; macros that used a literal. There is nothing to stop us now,
1682 ;; except the fact that this code works fine and is as small as you
1683 ;; could possibly want.
1686 IFE BOOTSW, JRST BEG ; or IORD B,SWPCS1 or JRST LOADG1
1687 IFN BOOTSW, IORD B,SWPCS1
1690 KS, WREBR 0 ; No paging or caching
1692 IOWR A,SWPCS2 ; Select drive
1693 BOOT0: IORD A,SWPCS1
1695 JRST BOOT0 ; Await drive available
1697 BOOT1: HLRZ A,SWPVAL(B)
1699 BOOT2: IORD A,SWPCS1
1700 TRNN A,%HXRDY ; Wait for controller
1702 TRNE A,%HXTRE+%HXMCP ; Lossage?
1707 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1708 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1711 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1712 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1714 SWPADR: UBAQ,,UBAPAG+UBPG_1 ; Set up Unibus map
1715 UBAQ,,UBAPAG+UBPG_1+1
1716 UBAQ,,%HRCS2 ; Clear controller
1717 SWPCS2: UBAQ,,%HRCS2 ; Select drive
1718 SWPCS1: UBAQ,,%HRCS1 ; Initialize
1719 UBAQ,,%HRCYL ; Desire cylinder
1720 UBAQ,,%HRWC ; Set (half) word count
1721 UBAQ,,%HRBA ; Set Unibus address
1722 UBAQ,,%HRADR ; Desire track and sector
1723 UBAQ,,%HRCS1 ; Write
1724 UBAQ,,%HRWC ; Reset (half) word count
1725 UBAQ,,%HRBA ; Reset Unibus address
1726 UBAQ,,%HRADR ; Desire track and sector
1730 IFN BEG&1777, .ERR BEG does not lie on a page boundary?
1732 ;;; LH FOR SWAP IN, RH FOR SWAP OUT
1733 SWPVAL: %UQVAL+%UQFST+BEG_-9,,%UQVAL+%UQFST+BEG_-9 ; Set up Unibus map
1734 %UQVAL+%UQFST+BEG_-9+1,,%UQVAL+%UQFST+BEG_-9+1
1735 %HYCLR,,%HYCLR ; Clear controller
1737 %HMRDP,,%HMRDP ; Initialize
1738 NCYLS,,NCYLS ; Desire cylinder
1739 -1700*2,,-1700*2 ; Set (half) word count
1740 UBPG_14,,UBPG_14 ; Set Unibus address
1741 ZZ1,,ZZ2 ; Desire track and sector
1742 %HMWRT,,%HMWRT ; Write
1743 -1700*2,,-1700*2 ; Reset (half) word count
1744 UBPG_14,,UBPG_14 ; Reset Unibus address
1745 ZZ2,,ZZ1 ; Desire track and sector
1746 %HMRED,,%HMRED ; Read
1747 IFN .-SWPVAL-LSWPADR, .ERR SWPVAL wrong length.
1758 IFE BOOTSW, JRST BEG ;OR CONSZ DSK,%HIBSY OR JRST LOADG1
1759 IFN BOOTSW, CONSZ DSK,%HIBSY
1761 KL, CONSZ PAG,660000 ;PAGING AND CACHE MUST BE DISABLED
1763 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1767 BOOT0: DATAO DSK,[%HRDCL,,]
1772 JRST BOOT0 ;AWAIT DRIVE AVAILABLE
1779 BOOT1: DATAO DSK,SWPIN1(B)
1789 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1790 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1793 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1794 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1797 SWPIN1: %HRLOD+%HRDCL,,%HMRDP
1798 SWPIN2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1799 SWPIN3: %HRLOD+%HRADR,,ZZ1
1800 SWPIN4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1801 SWPIN5: %HRLOD+%HRADR,,ZZ2
1802 SWPIN6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1804 SWPOU1: %HRLOD+%HRDCL,,%HMRDP
1805 SWPOU2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1806 SWPOU3: %HRLOD+%HRADR,,ZZ2
1807 SWPOU4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1808 SWPOU5: %HRLOD+%HRADR,,ZZ1
1809 SWPOU6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1811 CBLK: -NSWBL,,NBLKS+NBLKSC ;AVOID CYLINDER 406 WHICH KLDCP USES
1813 WAIT: CONSO DSK,%HIDON
1819 IFE BOOTSW, JRST BEG ;OR CONSZ DC0,DSSACT OR JRST LOADG1
1820 IFN BOOTSW, CONSZ DC0,DSSACT
1829 DADR==NCYLS_13+<<NSWBL-1>/2>_6+<<NSWBL-1>&1> ;ADDR OF LAST BLOCK IN CORE BUFFER
1830 DADR1==NCYLS_13+<NSWBL/2>_6+<NSWBL&1> ;ADDR OF NEXT BLOCK (CONTAINS
1831 SWPIN: DWRITE+DUNENB+DADR ; WORKING COPY OF DSKDMP)
1832 DCOPY BEG(-2000_2&37774)
1835 DCOPY BEG(-2000_2&37774)
1838 DCOPY BEG(-1700_2&37774)
1839 DCSKIP (-104_2&37774)
1841 DCOPY BEG(-1700_2&37774)
1842 DCSKIP (-104_2&37774)
1845 SWPOUT: DWRITE+DUNENB+DADR1
1846 DCOPY BEG(-2000_2&37774)
1849 DCOPY BEG(-2000_2&37774)
1852 DCOPY BEG(-1700_2&37774)
1853 DCSKIP (-104_2&37774)
1855 DCOPY BEG(-1700_2&37774)
1856 DCSKIP (-104_2&37774)
1859 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1860 WAIT: CONSZ DC0,DSSACT
1863 SADR: JRST BOOT ;AND GO TO PROGRAM TO BE STARTED
1864 SYSN: SIXBIT /./ ;CURRENT DIRECTORY
1865 IFG .+1-MEMSIZ,.ERR BOOT BLOAT
1867 IFE BOOTSW,{ ;CURLY BRACKETS TO AVOID ERROR MESSAGE
1871 ;THESE ARE THE BLOCKS THAT GET WRITTEN ON DISK
1872 ; STARTING AT THE BEGINNING OF THE FIRST EXTRA CYLINDER
1874 CBUF: BLOCK 2000 ;PSEUDO-CORE BUFFER
1875 DBUF: BLOCK 2000 ;DISK BUFFER
1876 DIR: BLOCK 2000 ;DIRECTORY BUFFER
1877 TUT: BLOCK 2000*NTUTBL ;TUT BUFFER
1878 IFN .-BEG,.ERR BLOCKS LOST
1879 ; BLOCK 2000 ;CORE OVERLAYED BY DSKDMP
1880 ; BLOCK 2000 ;COPY OF DSKDMP
1881 ; BLOCK 2000 ;SPARE COPY OF DSKDMP
1885 IFN BOOTSW, END CBOOT