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 3 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
108 NOSYMS ;MAKE PAPER TAPE SHORTER
116 BLKIN=5 ;PSEUDO-CORE BLOCK IN CBUF
117 WRITE=6 ;NEG MEANS DUMP, RH 0 OR WRBIT
118 DIFF=7 ;DIFF CONO ALSO TEMP
119 HEAD=10 ;HEAD CONO ALSO TEMP
122 UNIT=13 ;UNIT AND M.A. DATAO
125 TT=16 ;ANOTHER JSP AC, ALSO VERY TEMP
126 BUFP=17 ;DBUF PNTR--LAST WORD USED
128 IF1,[ ;DON'T TAKE A WEEK AND A HALF TO ASSEMBLE.
129 RP, .INSRT SYSTEM;RP10 >
130 SC, .INSRT SYSTEM;DC10 >
131 RH, .INSRT SYSTEM;RH10 >
132 PH, .INSRT SYSTEM;RH11 >
133 IFN RP06P, .INSRT SYSTEM;RP06 >
134 IFN RM03P, .INSRT SYSTEM;RM03 >
135 IFE BOOTSW, .INSRT SYSTEM;FSDEFS >
136 IFE BOOTSW, KL, .INSRT SYSTEM;EPT >
137 KS, .INSRT SYSTEM;KSDEFS >
141 ;PARAMETER FILE FOR DSKDMP
143 MEMSIZ=1000000 ;ACTUAL SIZE OF MEM
144 IFNDEF DBGSW,DBGSW==0 ;1 TO DEBUG THIS WITH DDT
146 IFN DBGSW,MEMSIZ==MEMSIZ-10000 ;MOVE DOWN UNDER DDT IF DEBUG MODE
147 CORE==MEMSIZ-10000-<2000*NTUTBL> ;HIGHEST ADR ALWAYS IN CORE+1
148 CORES==CORE_<-12> ;BLK # OF ABOVE (FIRST OF BLKS SWAPPED OUT FOR BUFFER AREAS)
149 NSWBL==4+NTUTBL ;# BLOCKS SWAPPED OUT FOR BUFFER AREAS, +1 FOR DSKDMP ITSELF
150 HIGH==MEMSIZ-100 ;HIGHEST ADR LOADED/DUMPED+1
152 NDSK==8 ;MAX POSSIBLE. L$n$ DEFINES WHICH ARE REALLY THERE
156 PH, UBPG==:17 ; Use last (usable) page in Unibus map
160 KL, PAG=<BLKI 10,>-<BLKI>
163 IF1,[ PRINTX
\1c A = B
167 ; L$file LOAD FILE INTO CORE
168 ; T$file LOAD FILE INTO CORE AND GIVE SYMBOLS TO DDT AND START DDT
169 ; M$file LOAD FILE INTO CORE WITHOUT CLEARING CORE FIRST, DOESN'T LOAD SYMBOLS
171 ; D$file DUMP CORE INTO FILE
172 ; I$file VERIFY FILE AGAINST CORE
173 ; G$ START AT STARTING ADDRESS
174 ; U$dir; LIST DIRECTORY
175 ; F$ LIST CURRENT DIRECTORY
176 ; S$ LIST PACK IDS THEN MFD
177 ; nnn$ SET STARTING ADDRESS TO nnn
178 ; L$n$ PUT DISK n ONLINE
179 ; K$n$ TAKE DISK n OFFLINE
182 ; CMPERR VERIFY FAILED TO MATCH
183 ; DIRFUL DIRECTORY FULL
185 ; DIRNF DIRECTORY DOES NOT EXIST
187 ; PKNMTD FILE IS ON PACK THAT IS NOT MOUNTED
188 ; CKSERR CHECKSUM ERROR
190 ; NODDT CAN'T ADDRESS DDT SYMBOL TABLE (BUG)
192 ; SEEKFL DISK SEEK ERROR
193 ; CLOBRD DISK READ ERROR
194 ; CLOBWR DISK WRITE ERROR
195 ; DIRCLB DIR NAME DIFFERS, TUT DISAGREES WITH DIR
196 ; MFDCLB M.F.D. CLOBBERED
197 ; DSKLUZ DISK LOSSAGE (OFFLINE OR UNSAFE OR MASSBUS ERROR)
199 KS, LOC 4000 ; Avoid MTBOOT and KSRIM
203 MOVE T,.... ;THIS CODE BLTS THE FOLLOWING OFFSET CODE
204 BLT T,MEMSIZ-1-1 ;INTO HIGH MEMORY AND WRITES DSKDMP ON ITS
205 MOVE T,PROG+MEMSIZ-2-BEG+1
206 MOVEM T,BEG+MEMSIZ-2-BEG+1 ;AVOID LOSING DUE TO -1 BLT LOSSAGE
208 MOVSI T,-NDSK+1 ;MAKE ALL BUT DISK 0 BE DEAD (MUST DO L$ TO MAKE THEM ALIVE)
213 RP,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
214 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
215 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
221 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
228 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
230 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
239 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
242 PH,[ MOVEI T,%HYCLR ; Clear controller
243 IOWRQ T,%HRCS2 ; (Selects drive 0)
244 WBOOT0: IORDQ T,%HRCS1
246 JRST WBOOT0 ; Await drive available (well, it is a dual
247 ; ported drive... perhaps someday?)
250 ADDI BLOK,NSWBL ; FIRST BLOCK AFTER CORE BUFFER IS WHERE
259 TRNE TT,%HXTRE+%HXMCP
261 IFE DBGSW, JRST 4,. ; Formerly JRST MEMSIZ-400 (??)
264 RH,[ MOVEI T,ICWA+2 ;SET UP CHANNEL JUMP
265 MOVEM T,ICWA ;IN INITIAL CHANNEL ADDRESS
266 SETZM ICWA+1 ;AND CLEAR REMAINING STUFF
268 WBOOT0: DATAO DSK,[%HRDCL,,]
273 JRST WBOOT0 ;AWAIT DRIVE AVAILABLE
274 MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
276 ADDI BLOK,NSWBL ;FIRST BLOCK AFTER CORE BUFFER IS WHERE DSKDMP LIVES
285 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
288 SC,[ MOVEI UNIT,BEG ;MAGIC BLOCK THEN STARTS IT
289 MOVEI BLOK,NBLKS+NSWBL
292 MOVEI BLOK,NBLKS+NSWBL+1
300 IFE DBGSW,JRST 4,. ;FORMERLY JRST MEMSIZ-400 (??)
305 DCOPY ......(-LRIBLK_2&37774)
308 ......: DWRITE+DUNENB+DADR ;FOR READIN
309 DCOPY BEG(-2000_2&37774)
311 DCOPY BEG(-2000_2&37774)
318 KA, LOC 2000 ; MAKE OFFSET CONVENIENT
320 KS, LOC 6000 ; Avoid MTBOOT and KSRIM
321 PROG: OFFSET CORE+<<NSWBL-1>*2000>-.
322 ]IFN DBGSW,LOC MEMSIZ-2000
325 KA,[ CONO 635550 ;ENTER HERE, CLEAR WORLD
327 JFCL 1,[JRST 4,.] ;A PDP6??
328 LPMR [0]-2 ;TURN OFF EXEC PAGING
330 KL,[ CONO 327740 ;CLEAR APR
331 CONSZ PAG,660000 ;PAGING AND CACHE BETTER BE OFF
334 KS,[ CONO 127760 ; Enable, and Clear all.
336 TRNE B,60000 ; Paging and Tops-20 better be off.
338 SETZM 8SWIT0 ; Clear 8080 Communications area to prevent
339 MOVE B,[8SWIT0,,8SWIT0+1] ; mysterious IO behavior.
341 ;; If the machine has just been powered on, there is likely to be
342 ;; bad parity all over the place. I guess that isn't our problem
343 ;; as long as we don't touch any of it...
345 MOVSI B,-NDSK ;FOR NUMBER OF DISKS
346 SETOM PKNUM(B) ;SET DISK TO UNKNOWN
348 MOVE T,[JRST LOADG1] ;SET BOOTSTRAP TO MIDDLE OF WORLD
350 MOVE D,['DSKDMP] ;ANNOUNCE SELF
352 JRST READ ;CRLF AND BEGIN READING COMMANDS
355 CLEARM MEMSIZ-1 ;DON'T READ ANY MORE COMMANDS FROM MEMORY
356 SOS T,ERROR ;PICK UP ERROR CODE FROM THE AC FIELD OF
357 LDB T,[270400+T,,] ;THE JSR ERROR
359 JSP TT,PD ;PRINT OUT APPROPRIATE COMMENT
361 JRST READ ;BAD ERROR - NO MORE DISKING
363 KA, DATAI TTY,C ;FLUSH RANDOM CHARACTER
364 KS, SETZM 8CTYIN ; ".RESET"
365 TRO CMD,10 ;MAKE SURE PSEUDO-CORE IN CORE
366 JRST LOADG ;BY SIMULATING END OF LOADING, NON-GOING COMMAND
368 ERMESS: IRP XX,,[ECMP,EDIR,EEOF,ESNF,EFNF,EPNM,ECKS
369 EDSK,EDDT,EBUG,EC63,ECRD,ECWR,ECDR,EMFC,EDLZ]YY,,[CMPERR,DIRFUL
370 EOF,DIRNF,FNF,PKNMTD,CKSERR,DSKFUL,NODDT,?BUG?,SEEKFL
371 CLOBRD,CLOBWR,DIRCLB,MFDCLB,DSKLUZ]
376 PD: JSP P,CRLF ;TYPE A CR
378 JSP P,TYO ;AND A SPACE
380 PD1: ILDB C,B ;AND THE SIXBIT CONTENTS OF D
388 C12: IDIVI C,10. ;PRINT CONTENTS OF C AS A TWO-DIGIT
389 DPB C,[60600,,A] ;DECIMAL NUMBER PRECEDED
390 MOVEI D,(SIXBIT /#00/+A) ;BY <SPACE>#
394 WRCB: MOVEI UNIT,CBUF ;WRITE OUT CONTENTS OF CBUF
395 LSH BLKIN,-12 ;ON APPROPRIATE BLOCK
397 ADDI BLOK,-CORES(BLKIN)
400 LODUMP: MOVEI UNIT,CORE ;DEPENDING ON SIGN BIT OF WRITE, LOAD OR DUMP
401 HRRZ BLOK,CBLK ;PSEUDO-CORE (766000-775777)
409 FD: HRRZ C,B ;SET UP POINTER IN C TO FETCH OR DEPOSIT
410 ;CONTENTS OF ADDRESS IN RIGHT HALF OF B
411 IFN DBGSW, SKIPGE WRITE ;LOAD DDT WHEN IN DEBUG MODE
415 CAIGE C,CORE ;IF ADDR IS IN REAL CORE, RETURN IMMEDIATELY
417 FDX: CAIL C,(BLKIN) ;ADDR IS IN PSEUDO-CORE--CHECK IF RIGHT
418 CAILE C,1777(BLKIN) ;BLOCK IS IN CBUF
419 JRST FD3 ;IT'S NOT THERE--READ IT IN
420 FD4: SUBI C,-CORE(BLKIN) ;IT'S THERE--SET UP RIGHT POINTER IN C
421 JRST 1(P) ;AND RETURN
422 FD3: JUMPLE WRITE,FD3A ;IF DUMP OR VERIFY DON'T BOTHER
423 ;TO WRITE OUT CURRENT BLOCK
424 FD3B: JSP TT,WRCB ;IF LOAD, WRITE CURRENT BLOCK FIRST
425 FD3A: MOVEI UNIT,CBUF
428 LDB BLOK,[121000,,BLKIN]
430 MOVEI BLOK,-CORES(BLOK)
431 JSP TT,RDM ;READ IN CORRECT BLOCK
432 JRST FD4 ;SET UP POINTER AND RETURN
434 GBP: IDIVI C,6 ;TURN USER DIRECTORY CHARACTER ADDR IN C
435 IMULI A,-60000 ;INTO A BYTE POINTER
440 WD: AOBJN BUFP,WD1 ;READ, WRITE, OR VERIFY WORD IN D FROM, INTO,
441 JSP TT,NXTBLK ;OR AGAINST WORD IN DBUF
442 JSP TT,WRDB ;TIME TO REFILL OR EMPTY DBUF
443 MOVSI BUFP,-2000 ;RESET BUFFER POINTER
444 WD1: JUMPG WRITE,WD2 ;JUMP ON LOAD
445 JUMPL WRITE,WD3 ;JUMP ON WRITE
446 CAME D,DBUF(BUFP) ;HERE IF VERIFY
447 JSR ECMP,ERROR ;VERIFY COMPARE LOST
449 WD2: SKIPA D,DBUF(BUFP) ;LOAD
450 WD3: MOVEM D,DBUF(BUFP) ;DUMP
453 NXTTUT: HRRZ B,CU ;SELECT NEXT UNIT AND READ ITS TUT
459 JRST 1(TT) ;SKIP IF NO MORE
461 JRST NXTTUT ;UNIT NOT ON LINE
462 RDTUT: MOVEI BLOK,TUTBLK ;READ TUT OF CURRENT UNIT
464 SETOM PKNUM(B) ;ALWAYS READ HEADER FOR TUT
465 IFG NTUTBL-1,[ ;READ IN MULTI-BLOCK TUT
466 HRRM TT,RDTUTX ;SAVE RETURN ADDRESS
477 IBP DIRPT ;DO AN IDPB T,DIRPT CHECKING TO SEE IF
478 LDB DIFF,[1200,,DIRPT] ;RUNNING INTO NAME AREA
484 NXTBW: MOVE BLOK,LBLOCK ;FIND NEXT FREE BLOCK TO WRITE
487 JUMPN T,NXTBW1 ;JUMP IF VERY NEXT BLOCK NOT FREE
489 NXTBW5: SOJA HEAD,NXTBW4 ;GENERATE LOAD ADR IF FIRST TIME (COMPENSATE FOR LBLOCK OFF BY 1)
491 JRST NXTBW2 ;NO NEED TO MODIFY DIRECTORY YET
492 CLEARM BLKCNT ;14 IN A ROW--RESET COUNTER AND
493 NXTBW6: JSR NXTBW3 ;DPB BYTE INTO DIRECTORY
494 NXTBW2: MOVE BLOK,HEAD
496 JSR EDSK,ERROR ;NO MORE DISK LEFT
498 DPB T,TUTPT ;MARK BLOCK USED IN TUT
501 NXTBW1: ADDI HEAD,1 ;SEARCH FOR NEXT FREE BLOCK
505 SKIPLE T,BLKCNT ;COME UP WITH DESC BYTE FOR LAST FEW BLOCKS
508 JUMPL T,NXTBW5 ;FIRST TIME
509 MOVEI T,UDTKMX-1(BLOK)
510 CAIGE T,UDWPH ;CAN WE SAY SKIP N--TAKE 1?
512 NXTBW4: MOVEI BLOK,NXLBYT
521 NXTBLK: JUMPL WRITE,NXTBW ;GET NEXT BLOCK OF FILE--IF DUMP, FIND FREE
522 MOVE BLOK,LBLOCK ;BLOCK
523 NXTB6: SOSLE BLKCNT ;HAVE WE RUN OUT OF "TAKE N"?
524 AOJA BLOK,WRDB1 ;NO--TAKE NEXT BLOCK
525 ILDB T,DIRPT ;YES--GET NEXT DESC BYTE
527 JRST NXTB1 ;IT'S A LOAD ADDR
529 JUMPN T,NXTB2 ;IT'S A TAKE OR SKIP
530 CAIE CMD,'D ;IT'S 0 OR NULL--IF THIS IS A LOAD, IT'S AN
531 CAIN CMD,'K ;UNEXPECTED END OF FILE
532 JRST KILL1 ;IF DUMP OR KILL, O.K.
535 NXTB1: MOVEI BLOK,-UDWPH-1(T) ;LOAD ADR
540 DPB T,DIRPT ;IF KILLING FILE, ZERO THIS BYTE (OTHERS ZEROED AT KILL)
543 ADD BLOK,T ;GET COMPLETE BLOCK NUMBER
547 NXTB2: MOVEM T,BLKCNT
549 AOJA BLOK,WRDB1 ;TAKE N STARTING WITH NEXT ONE
550 ADDI BLOK,-UDTKMX+1(T) ;SKIP N-<MAX TAKE> AND TAKE 1
552 WRDB1: MOVEM BLOK,LBLOCK
556 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
557 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
558 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
559 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
562 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
563 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
564 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
565 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
566 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
568 WRD3: DPB WRITE,[360600,,DBLK] ;SET OP, UNIT SEL
569 DPB WRITE,[DUNFLD SEEK]
570 DPB WRITE,[DUNFLD RECAL]
571 HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
574 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
575 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
576 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
580 DPB HEAD,[DSECT DBLK]
582 DPB HEAD,[DSURF DBLK]
585 DATAO DPC,CLATT ;CLEAR ATTENTIONS
586 LSH DIFF,-8 ;EXTRA CYLINDER BIT FOR RP03
587 DPB DIFF,[DCYLXB DBLK]
588 DPB DIFF,[DCYLXB SEEK]
602 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
604 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
605 JSR ECWR,ERROR ;WRITE ERRORS AND
606 JSR ECRD,ERROR ;READ ERRORS
608 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
609 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
610 TRZ WRITE,-1 ;FLUSH GARBAGE
628 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
629 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
630 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
631 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
634 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
635 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
636 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
637 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
638 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
640 WRD3: TRNE UNIT,1777 ; Better be on a page boundary!
642 LDB DIFF,[111100,,UNIT] ; Point Unibus map at page in question
643 TRO DIFF,%UQFST+%UQVAL
644 IOWRQ DIFF,UBAPAG+UBPG_1
646 IOWRQ DIFF,UBAPAG+UBPG_1+1
647 LDB DIFF,[000300,,WRITE] ; Select drive
649 JSP HEAD,RHCHEK ; Check for immediate trouble
650 MOVEI DIFF,%HMRDP ; Init the drive
652 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
653 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
654 WRD5: MOVNI DIFF,4000
655 IOWRQ DIFF,%HRWC ; 4000 half words
657 IOWRQ DIFF,%HRBA ; "Byte" base address
660 IOWRQ DIFF,%HRCYL ; Desire cylinder
664 DPB DIFF,[$HATRK HEAD]
665 IOWRQ HEAD,%HRADR ; Desire track and sector
669 IOWRQ DIFF,%HRCS1 ; Do it (implied seek)
670 WRD7: IORDQ DIFF,%HRCS1
671 TRNN DIFF,%HXRDY ; Wait for controller to finish
673 TRNN DIFF,%HXTRE+%HXMCP ; Trouble?
674 JRST WRDX ; Nope, exit
676 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
677 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
678 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
679 JSR ECWR,ERROR ;WRITE ERRORS AND
680 JSR ECRD,ERROR ;READ ERRORS
682 WRDX: TRZ WRITE,-1 ;FLUSH GARBAGE
685 WRD0: MOVEI DIFF,%HYCLR ; Clear controller
687 LDB DIFF,[000300,,WRITE] ; Select drive
689 MOVEI DIFF,%HMCLR ; Clear drive
691 JSP HEAD,RHCHEK ; Immediate lossage?
692 MOVEI DIFF,%HMREC ; Recalibrate
698 TRNE DIFF,%HSPIP ; WAIT FOR DRIVE TO FINISH
700 ANDI DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY+%HSERR
701 CAIE DIFF,%HSDPR+%HSMOL+%HSVV+%HSRDY
705 ;;; JSP HEAD,RHCHEK to check for errors.
706 RHCHEK: IORDQ DIFF,%HRCS1
707 TRNE DIFF,%HXTRE+%HXMCP
713 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
714 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
715 WRM: HRRI WRITE,10 ;WRITE ON MASTER UNIT
716 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
719 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
720 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
721 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
722 WR: HRRI WRITE,10 ;WRITE ON CURRENT UNIT
723 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
725 WRD3: HRLI UNIT,-2000 ;ADDRESS COMES IN IN `UNIT'
726 CONI DSK,HEAD ;SET WORD COUNT TO ONE BLOCK
727 TLNE HEAD,(%HID22) ;ACCORDING TO TYPE OF CHANNEL
730 LDB UNIT,[300,,WRITE] ;ISOLATE FROM GARBAGE
731 SOS @ICWA ;ADJUST FOR DF10 LOSSAGE
732 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
733 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
734 WRD5: MOVSI DIFF,%HRDCL(UNIT)
735 HRRI DIFF,%HMRDP ;INIT THE DRIVE
740 MOVEM HEAD,DBLK ;SAVE CYLINDER
744 DPB HEAD,[$HATRK DIFF]
745 TLO DIFF,%HRADR(UNIT)
748 TLO DIFF,%HRCYL(UNIT)
750 MOVSI DIFF,%HRCTL(UNIT)
755 JSP HEAD,RHSET ;DO IT (USE IMPLIED SEEK)
761 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
762 JRST WRD0 ;RECALIBRATE AND TRY AGAIN
763 TRNE WRITE,10 ;GIVE UP--DISTINGUISH BETWEEN
764 JSR ECWR,ERROR ;WRITE ERRORS AND
765 JSR ECRD,ERROR ;READ ERRORS
767 WRDX: HRRZ UNIT,@ICWA ;RESTORE ADDR
768 ADDI UNIT,1 ;COMPENSATE FOR IOWD LOSSAGE
769 TRZ WRITE,-1 ;FLUSH GARBAGE
772 WRD0: MOVSI DIFF,%HRDCL(UNIT)
775 MOVSI DIFF,%HRDCL(UNIT)
782 MOVSI DIFF,%HRSTS(UNIT)
786 ANDI DIFF,%HSVV+%HSRDY+%HSMOL+%HSERR
787 CAIE DIFF,%HSVV+%HSRDY+%HSMOL
791 ;RH10 HACKING ROUTINES. CALL BY JSP HEAD,. DIFF HAS REGISTER ADDRESS IN LH, DATA IN RH.
792 RHSET: TLOA DIFF,%HRLOD
793 RHGET: TLZ DIFF,%HRLOD
805 \f;SC DISK IO ROUTINE
807 WRDM: SKIPL WRITE ;SEE WHETHER LOAD OR DUMP/VERIFY
808 RDM: TRZA WRITE,(WRITE) ;READ FROM MASTER UNIT
809 WRM: HRRI WRITE,60#120 ;WRITE ON MASTER UNIT
810 MU: IORI WRITE,0 ;MASTER UNIT SELECT STORED HERE
813 WRDB: MOVEI UNIT,DBUF ;READ OR WRITE DBUF FROM/ON CURRENT UNIT
814 WRD: SKIPL WRITE ;READ OR WRITE FROM/ON CURRENT UNIT
815 RD: TRZA WRITE,(WRITE) ;READ FROM CURRENT UNIT
816 WR: HRRI WRITE,60#120 ;WRITE ON CURRENT UNIT
817 CU: IORI WRITE,0 ;CURRENT UNIT SELECT STORED HERE
819 WRD3: DPB WRITE,[330700,,DBLK] ;SET OP, UNIT SEL
820 DPB UNIT,[DCCA DBLK+1] ; & CORE ADDR
821 DPB UNIT,[DCCA DBLK1+1]
822 LDB UNIT,[400,,WRITE] ;ISOLATE FROM GARBAGE
823 MOVNI DIFF,16. ;INITIALIZE ERROR COUNTER
824 MOVEM DIFF,ERRCT ;15. LOSSES PERMITTED
827 DPB HEAD,[DSECT DBLK]
829 DPB HEAD,[DSURF DBLK]
831 CONO DC0,DCCSET\DCDENB ;RESET ALL, THEN SET DCDENB
834 SKIPLE DIFF,PKNUM(UNIT)
836 MOVE DIFF,QTRAN(UNIT) ;READ PACK ID
837 DPB DIFF,[DUNFLD GPKID]
840 ADDI DIFF,NCYLS+XCYLS
841 DPB DIFF,[DCYL GPKID]
842 DATAO DC0,[DJMP GPKID]
847 CONO DC0,DCCSET\DCDENB ;RESET POSSIBLE "FUTURE" IP OR RLCERR
848 LDB DIFF,[DPKID RPKID]
849 MOVEM DIFF,PKNUM(UNIT)
850 WRD4: DPB DIFF,[DPKID DBLK]
852 DPB DIFF,[3300,,DBLK1]
853 MOVE DIFF,QTRAN(UNIT)
854 DPB DIFF,[DUNFLD DBLK]
856 LDB DIFF,[DCYL DBLK] ;2ND HALF UNIT
857 ADDI DIFF,NCYLS+XCYLS
859 WRD4A: DATAO DC0,[DJMP DBLK]
865 TRNN DIFF,2 ;DO RECALIBRATE 2 OUT OF 4 RETRIES
867 WRD0: AOSLE ERRCT ;POSITIONER ERROR--CHECK ERROR COUNT
868 JSR EC63,ERROR ;TOO MANY--GIVE UP
869 DATAO DC0,[DSPC+DSRCAL+DSWINF]
872 JRST WRD5 ;TRY AGAIN AFTER RESETTING UNIT
874 WRD2: HRRZM BLOK,BADBLK
875 AOSG ERRCT ;HARDWARE ERROR--CHECK COUNTER
877 TRNE WRITE,40 ;GIVE UP--DISTINGUISH BETWEEN
878 JSR ECWR,ERROR ;WRITE ERRORS AND
879 JSR ECRD,ERROR ;READ ERRORS
881 WRDX: DPB BLOK,[XWBLK XWDS] ;PNTR TO PREV BLOCK
882 LDB UNIT,[DCCA DBLK+1] ;RESTORE ADR
883 TRZ WRITE,-1 ;FLUSH GARBAGE
887 DCOPY .(-2000_2&37774)
888 DCOPY XWDS(-4_2&37774)
890 DCOPY .(-2000_2&37774)
891 DCOPY XWDS(-4_2&37774)
894 GPKID: DSPC+DSCRHD+DSWIDX+DSWNUL+DUNENB+TUTCYL_11.+TUTSRF_6+TUTSEC
899 ;JSP P,TYI RETURNS CHAR IN C.
900 ;JSP P,TYI0 ALSO SKIPS IF NO INPUT AVAILABLE.
901 TYI: ILDB C,MEMSIZ-1 ;CHECK FOR COMMANDS FROM MEMORY
902 JUMPN C,(P) ;FOUND ONE--RETURN
904 TYI0: ;ENTRY TO SKIP IF NO INPUT AVAILABLE
914 KL,[ MOVEI C,3400 ;DDT MODE INPUT
926 JRST (P) ;DON'T ECHO GRITCHES
929 ;JSP P,TYO TYPES OUT CHAR IN C. CLOBBERS A,C.
931 ; JRST (P) ;DON'T ECHO COMMANDS FROM MEMORY
932 KA,[ HRRZ A,C ;COMPUTE PARITY
962 JUMPGE C,(P) ;CHECK FOR CRLF (AS OPPOSED TO ECHOING A CR)
963 SKIPA C,C12 ;TYPE AN LF
967 TYI1: HRRZ C,-1(P) ;NO INPUT AVAILABLE
969 JRST TYI ;WAIT FOR IT
970 JRST 1(P) ;CALL WAS TO TYI0, SKIP RETURN
974 MOVSI WRITE,-1 ;MAKE THIS INFO MORE CONVENIENT
979 DPB T,DIRPT ;CLOBBER CHARS READ FOR DUMP OR KILL
988 LINKN1: CAMGE D,[600,,B] ;THROUGH WITH FN2?
997 IDPB T,D ;FILL OUT WITH SPACES
1000 LINKQ: ILDB TT,DIRPT
1005 READ: MOVEI BLKIN,CORE
1007 MOVEI CMD,0 ;INITIALIZE COMMAND
1008 READ1A: MOVEI WRITE,0 ;INITIALIZE NUMBER
1009 MOVSI B,(SIXBIT \@\) ;INITIALIZE 1ST FILE NAME
1011 READ3A: MOVSI B,(SIXBIT \@\) ;INITIALIZE CURRENT FILE NAME
1015 JRST READ ;IF RUBOUT START OVER
1018 JRST ALTMOD ;JUMP IF 33, 175, 176
1019 ASH WRITE,3 ;DOES NOT CHANGE SIGN OF WRITE
1022 TLOA WRITE,400000 ;NON-NUMERIC CHAR--MAKE WRITE NEGATIVE
1023 ADDI WRITE,-"0(C) ;NUMERIC CHAR--ACCUMULATE NUMBER
1025 JRST READ3 ;SET SYSTEM NAME
1027 JRST READ1 ;SET FIRST FILE NAME
1029 JSP P,TYI ;QUOTED CHARACTER
1030 CAIGE C,140 ;CHECK FOR LOWER CASE
1032 JUMPL C,DOIT ;IF LESS THAN 40 (EXC. ^Q) END OF COMMAND
1033 TLNE D,770000 ;SKIP IF ALREADY SIX CHARS
1040 JRST DOIT ;IF COMMAND IS U GO LIST DIRECTORY
1042 ONOFF: CAIGE WRITE,NDSK
1043 DPB CMD,[100,,QDED(WRITE)] ;LOW BIT OF CMD DETERMINES ON/OFF LINE STATUS
1044 JRST READ ; (K=13, L=14)
1046 ALT1: LDB CMD,D ;PICK UP COMMAND CHAR
1049 JRST READ1A ;GET FILE NAME
1050 JRST DOIT ;DON'T WANT FILE NAME--GO TO WORK
1053 JSP P,TYO ;ECHO DOLLAR SIGN
1054 JUMPLE WRITE,ALT2 ;JUMP IF NOT <NUMBER><ALTMODE> LAST TYPED
1055 JUMPN CMD,ONOFF ;JUMP IF <CMD><ALTMODE><NUMBER><ALTMODE>
1056 HRRM WRITE,SADR ;SET STARTING ADDR
1060 TLCN D,360000 ;SKIP IF SINGLE CHARACTER BEFORE <ALTMODE>
1061 JUMPE CMD,ALT1 ;JUMP IF NO COMMAND ALREADY TYPED
1062 DOIT: MOVEM B,FN2 ;STORE SECOND FILE NAME
1064 HRRM B,CU ;MAKE MASTER UNIT CURRENT UNIT
1066 JSP P,LODUMP ;DUMP OUT PSEUDO-CORE
1071 MLOOK2: MOVSI WRITE,1 ;MAKE WRITE INDICATE LOAD
1074 JSP TT,RD ;READ MASTER DIRECTORY TO FIND WHERE USER DIRECTORY IS
1076 CAME T,[SIXBIT/M.F.D./]
1082 JRST LISTS ;LIST DISK ID'S AND SYSTEM NAMES
1084 MLOOK: CAMN C,DIR+MNUNAM(T) ;LOOK UP SYSTEM NAME
1089 JSR ESNF,ERROR ;NOT FOUND
1091 MLOOK1: MOVEI BLOK,2*NUDSL-2000(T) ;CONVERT USER SLOT TO BLOCK NUMBER
1093 HRRM BLOK,UDBLK ;REMEMBER FOR KILL OR DUMP
1095 JSP TT,RDM ;READ USER DIRECTORY
1096 ULOOK: CAME C,DIR+UDNAME
1097 JSR ECDR,ERROR ;WRONG ONE??
1100 JRST LISTFC ;LIST USER DIRECTORY
1105 ULOOK1: CAMN A,DIR+UNFN1(T) ;LOOK UP FILE NAME
1108 TDNN TT,DIR+UNRNDM(T) ;IS THIS FILE FOR REAL?
1110 ULOOK2: ADDI T,LUNBLK
1113 CAIE CMD,'D ;IF NOT FOUND BETTER BE DUMP
1116 ULOOK4: SKIPN DIR+UNFN1(T) ;FIND FREE SLOT FOR NEW FILE
1121 MOVNI T,LUNBLK ;NO FREE SLOTS--TRY TO EXTEND NAME AREA DOWN
1126 CAMGE T,DIR+UDNAMP ;DID WE RUN INTO DESCRIPTOR AREA?
1130 ULOOK3: HRRM T,DMP4 ;IF FILE FOUND, SAVE SLOT NUMBER FOR DUMP
1131 LDB C,[UNDSCP DIR+UNRNDM(T)]
1133 MOVEM C,DIRPT ;SET UP DESCRIPTOR AREA BYTE POINTER
1135 TDNE TT,DIR+UNRNDM(T)
1136 JRST LINK ;FILE IS A LINK
1137 LDB A,[UNPKN DIR+UNRNDM(T)]
1138 ULOOK5: CAMN A,TUT+QPKNUM ;SEE IF IT'S MOUNTED
1144 LOAD: CAIE CMD,'D ;GET HERE IF FILE FOUND
1145 CAIN CMD,'K ;IF DUMP OR KILL, DELETE IT
1147 ZERO: MOVEI TT,CORE-1
1148 TRNN CMD,20 ;SKIP IF T$ SYMBOL LOADING COMMAND
1150 MOVEI B,DDT-1 ;ASSUME ALWAYS USING MOBY DDT
1151 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1152 JSR EDDT,ERROR ;CAN'T GET IT??
1153 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1154 CAME B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1156 SKIPE D,-2(C) ;FLUSH ALL BUT INITIAL SYMBOLS
1161 MOVEI TT,-1(D) ;DON'T ZERO SYMBOL TABLE NOR DDT
1163 JRST LOAD1 ;NON-ZEROING COMMAND
1164 SETZM 40 ;BEGIN CLEARING CORE
1165 MOVE T,[40,,41] ;SET UP BLT POINTER
1166 ;CODE TO SKIP OVER NXM
1167 ZERO2: CAIG TT,10*2000-1(T) ;MORE THAN 8K LEFT TO ZERO?
1168 JRST ZERO4 ;NO, ZERO REMAINING WORDS AND PROCEED
1169 MOVE D,T ;AVOID KA/KL INCOMPAT BY COPYING BLT PNTR
1170 BLT D,10*2000-1(T) ;ZERO NEXT 8K
1171 ZERO3: ADDI T,10*2000 ;MOVE DEST OF BLT PNTR UP 8K
1172 ANDCMI T,1777 ;ROUND DOWN TO 1K BOUNDARY
1173 KA, CONO 10000 ;CLEAR NXM
1174 MOVES (T) ;SET NXM IF HOLE
1175 KA, CONSZ 10000 ;NXM GENERATED?
1176 KA, JRST ZERO3 ;YES, GO TO NEXT 8K
1177 JRST ZERO2 ;NO, CLEAR THIS 8K
1179 ZERO4: BLT T,(TT) ;AND CLEAR TO TOP BOUNDARY
1181 JRST LOAD1 ;IF SYMBOL-LOADING COMMAND, STOP THERE
1183 MOVE T,[CBUF,,CBUF+1]
1186 MOVE BLOK,CBLK ;-NSWBL IN LH
1187 JSP TT,WRM ;CLEAR PSEUDO-CORE
1189 LOAD1: SETZB BUFP,BLKCNT ;SET UP BUFP SO FIRST CALL TO WD WILL READ
1190 LOAD2: JSP P,WD ;FIRST BLOCK OF FILE
1191 CAME D,[JRST 1] ;LOOK FOR END OF SBLK LOADER
1193 CAIN CMD,'I ;IF VERIFY, START SIMULATING DUMP
1195 LOAD3: JSP P,WD ;READ BLOCK HEADER
1196 JUMPGE D,LOADS ;IT'S A JUMP BLOCK
1199 JSR LOADB ;LOAD LOGICAL BLOCK INTO CORE
1203 LOAD4: JSP P,WD ;LOAD A LOGICAL BLOCK--AOBJN POINTER IN B,
1204 ROT A,1 ;BLOCK HEADER IN A (FOR CHECKSUM)
1205 ADD A,D ;ADD NEW WORD INTO CHECKSUM
1206 JSP P,FD ;AND PREPARE TO SMASH IT AWAY
1207 JRST .+2 ;LOCATION CAN'T BE LOADED
1208 MOVEM D,(C) ;SMASH WORD AWAY
1211 CAMN A,D ;CHECK THE CHECKSUM
1213 JSR ECKS,ERROR ;BAD CHECKSUM
1216 JRST LOADG0 ;DON'T LOAD SYMBOLS NOR SADR
1217 MOVEM D,NXTBW3 ;SAVE S.A.
1218 MOVEI B,DDT-1 ;ASSUME IS ALWAYS MOBY DDT.
1219 JSP P,FD ;GET DDT'S SYMBOL TABLE POINTER
1220 JSR EDDT,ERROR ;CAN'T GET IT??
1222 JRST LOADJ ;AIN'T GOT NO DDT, IGNORE SYMBOLS
1223 HRROS B,(C) ;TELL DDT ITS SYMBOL TABLE WAS BUGGERED
1224 CAMN B,[-1,,DDT-2] ;VERIFY THAT IT'S REALLY A MOBY DDT LIKE WE THOUGHT
1225 JSP P,FD ;FETCH SYMBOL TABLE POINTER
1229 LOADS1: MOVE B,DDTM2 ;GET LOWEST SYMBOL LOC SO FAR
1230 JSP P,WD ;GET SYMBOL BLOCK HEADER
1231 JUMPGE D,LOADS2 ;JUMP IF END OF SYMBOLS
1232 TRNE D,-1 ;SKIP IF REALLY SYMBOLS AND NOT SOME OTHER BRAIN-DAMAGED CRUFT
1236 ADD B,D ;EFFECTIVELY SUBTRACTS LENGTH OF BLOCK FROM BOTH HALVES
1237 MOVEM B,DDTM2 ;OF SYMBOL TABLE POINTER
1238 HRL B,D ;SET UP AOBJN POINTER IN B
1239 HRLZ A,D ;AND RECREATE HEADER IN A
1240 JSR LOADB ;LOAD THE SYMBOLS
1243 LOADBD: HLRO B,D ;-# WORDS TO SKIP (NOT COUNTING CHECKSUM)
1246 JRST LOADS1 ;TRY NEXT SYMBOL BLOCK
1248 LOADS2: MOVE D,DDTM2 ;GET UPDATED DDT SYMBOL PNTR
1249 LOADS4: MOVEI B,DDT-2 ;WE KNOW WHERE IT ALWAYS GOES
1250 JSP P,FD ;PUT BACK SYMBOL TABLE POINTER
1251 JSR EBUG,ERROR ;CAN'T PUT IT BACK??
1253 MOVEI B,DDT-4 ;GIVE STARTING ADDRESS TO DDT
1258 MOVEI D,DDT ;AND SET DSKDMP START ADDRESS TO DDT
1259 LOADJ: HRRM D,SADR ;SET STARTING ADDRESS FROM JUMP BLOCK
1260 LOADG0: MOVE T,BOOTNS ;APPROP DISK WAIT FOR NON BUSY INSTR
1262 LOADG: JSP TT,WRCB ;MAKE SURE ALL LOADED CRUFT IN PSEUDO-CORE IS OUT
1264 JSP P,LODUMP ;AND LOAD IT ALL IN
1266 JRST READ ;NON-GOING COMMAND
1268 PH,[ MOVSI B,-LSWPADR
1269 GO1: IORD DIFF,SWPCS1
1270 TRNN DIFF,%HXRDY ; Wait for controller
1282 GO1: CONSZ DSK,%HIBSY
1297 SC, DATAO DC0,[DJMP SWPOUT]
1302 JRST LOADG1 ;SHUT UP IF KEY HIT
1303 MOVE C,TUT+QPKNUM ;TYPE PACK NUMBER
1305 MOVE D,TUT+QPAKID ;AND I.D.
1307 JSP TT,NXTTUT ;SAME FOR ALL DIRECTORIES
1310 LISTS1: CAIGE T,2000
1311 JSP P,TYI0 ;STOP TYPING IF TTI FLAG ON
1313 SKIPE D,DIR+MNUNAM(T)
1314 JSP TT,PD ;TYPE OUT USER NAME
1318 LISTFC: MOVE T,DIR+UDNAMP
1320 KA, CONSO TTY,40 ;STOP TYPING IF TTI FLAG ON
1321 KS, SKIPN 8CTYIN ; Stop typing if character waiting
1324 SKIPN DIR+UNFN1(T) ;SKIP IF FILE IN THIS SLOT
1327 LDB C,[UNPKN DIR+UNRNDM(T)]
1328 JSP TT,PNO ;TYPE PACK NUMBER
1330 JSP TT,PD2 ;TYPE FIRST FILE NAME
1332 JSP TT,PD2 ;AND SECOND FILE NAME
1333 LISTF2: ADDI T,LUNBLK
1336 KILL: JSP TT,NXTB6 ;GET HERE ON KILL OR DUMP OF EXISTING FILE
1337 MOVEI T,0 ;ZERO BYTES IN USER DIRECTORY DESCIPTOR AREA
1338 DPB T,DIRPT ;NXTB6 JUMPS TO KILL1 AT END OF FILE
1342 CAIGE T,TUTLK-1 ;SOS USAGE OF THIS BLOCK
1343 SOJL T,[JSR ECDR,ERROR]
1347 KILL1: HRRZ T,DMP4 ;CLEAR OUT USER DIRECTORY SLOT
1350 CLEARM DIR+UNRNDM(T)
1353 JRST KILDMP ;IF KILL DON'T DUMP
1354 JRST DMP4 ;MUST DUMP ON SAME UNIT
1356 DUMP0: MOVE T,DIR+UDNAMP ;GET HERE IF SLOT CREATED AT BOTTOM OF NAME AREA
1357 DUMP: HRRM T,DMP4 ;GET HERE IF EMPTY SLOT FOUND IN NAME AREA
1358 DMP0: MOVEI D,0 ;GET HERE IF USING SLOT OF OLD FILE
1359 DMP1: ;MOVE C,TUT+QSWAPA
1360 MOVEI C,0 ;NOTE START AT 0 NOT QSWAPA
1363 HRLZ B,B ;LH(B) COUNTS BLOCKS, RH(B) COUNTS FREE BLOCKS
1367 KA, SUBI B,1 ;THIS RELIES ON CARRY PROPAGATING FROM RH TO LH IN AOBJN
1368 KL, HRRI B,-1(B) ;ON KI10, KL10 CHANGE SUBI B,1 TO HRRI B,-1(B)
1369 KS, HRRI B,-1(B) ;KS too...
1371 CAIG B,(D) ;RH OF D IS HIGHEST SO FAR, LH SAYS WHICH UNIT
1372 JRST DMP5 ;NOT BETTER THAN RECORD
1373 MOVE D,B ;NEW RECORD--RECORD IT
1375 DMP5: JSP TT,NXTTUT ;TRY NEXT
1377 ;FALLS THROUGH AT END
1378 DMP3: HLRM D,CU ;SET CURRENT UNIT TO ONE WITH MOST FREE BLOCKS
1379 JSP TT,RDTUT ;GET ITS TUT
1383 MOVEM A,DIR+UNFN1(T) ;PUT CRUFT INTO SLOT
1384 MOVEM B,DIR+UNFN2(T)
1385 SETOM DIR+UNDATE(T) ; Unknown creation date
1386 HRROI C,777000 ; Unknown reference date
1387 MOVEM C,DIR+UNREF(T) ; Unknown author, 36. bit bytes
1388 SC,[ MOVEM A,XWDS+XWFN1
1392 ] MOVE C,DIR+UDESCP ;PUT DESCRIPTOR CHARACTER ADDRESS
1393 MOVE B,TUT+QPKNUM ;AND PACK NUMBER
1395 MOVEM C,DIR+UNRNDM(T) ;INTO USER DIRECTORY SLOT
1396 ;MOVE C,TUT+QSWAPA ;COMMENTED OUT INSN DUMPS INTO FILE AREA
1397 MOVEI C,0 ;DUMP INTO SWAPPING AREA TO AVOID Y FILES
1398 MOVEM C,LBLOCK ;A DAEMON WILL COPY INTO FILE AREA AFTER SALVAGE
1400 MOVEM C,TUTPT ;INITIALIZE TUT POINTER
1403 MOVEM C,DIRPT ;INITIALIZE DESCRIPTOR AREA POINTER
1404 SETOB WRITE,BLKCNT ;FORCE NXTBW TO LOAD ADR
1405 KA, HRLOI BUFP,-2001-1 ;SET UP BUFP SO FIRST WORD GOES IN DBUF+0
1406 KL, HRLOI BUFP,-2001
1407 KS, HRLOI BUFP,-2001
1409 JSP P,WD ;END OF SBLK LOADER
1413 DUMP.5: MOVSI WRITE,-'I(CMD) ;GET HERE IF VERIFY--SET WRITE NEGATIVE IF
1414 MOVEI B,40 ;DUMP AND ZERO IF VERIFY--FIRST ADDR DUMPED IS 40
1420 MOVEI B,DDT-3 ;SET UP TO NOT DUMP SYMBOLS AS PART OF CORE IMAGE
1423 SKIPN A,(C) ;GET PNTR TO BUILT IN SYMBOLS
1424 JRST DUMP4 ;NO DDT, DON'T HACK THIS
1425 HRRM A,DUMP7 ;THIS IS WHERE WE START DUMPING AGAIN
1426 MOVEM A,DUMP9K ;THIS WILL BE INITIAL SYMBOL TABLE PNTR WHEN DDT LOADED
1428 ADD A,1(C) ;GET MINUS SIZE OF NON-BUILTIN SYMBOL TABLE IN RH(A)
1429 HRL A,1(C) ;GET PNTR TO SYMBOL TABLE
1430 HLRM A,DUMP6 ;THIS IS WHERE WE STOP DUMPING
1431 MOVSM A,DUMP9S ;SAVE AOBJN PNTR TO NON-BUILTIN SYMBOLS
1432 MOVE A,-1(C) ;PICK UP START ADDRESS
1433 MOVEM A,DUMP9J ;SAVE
1434 MOVE B,-2(C) ;DUMP LOW CORE (ACS) OUT OF PLACE SAVED IN DDT
1435 HLLZ A,B ;HERE B HAS ADDRESS DUMPING FROM
1436 JRST DUMP3B ;AND A AND D HAVE VIRTUAL ADDRESS
1438 DUMP1: ;SKIP OVER NXM ON DUMPING
1439 KA,[ CONSO 10000 ;NXM SET?
1440 JRST DUMP1A ;NO, CONTINUE IN SEQUENCE
1441 ADDI B,10*2000-1 ;SKIP 8K
1442 TRZ B,1777 ;ROUND DOWN TO 8K BOUDARY
1443 CONO 10000 ;CLEAR NXM
1446 DUMP6: CAIGE B,. ;SKIP IF REACHED SYMBOL TABLE
1448 DUMP7: MOVEI B,. ;SKIP OVER SYMBOLS, DUMP DDT
1449 HLLOS DUMP6 ;DEFUSE TEST
1451 JRST DUMPJ ;TIME TO WRITE JUMP BLOCK AND SYMBOL TABLE
1452 SKIPN (C) ;LOOK FOR NON-ZEROES
1454 MOVE A,B ;SAVE START OF BLOCK
1455 DUMP2: TLZ A,-1 ;LOOK FOR TWO CONSECUTIVE ZEROES
1456 DUMP2A: CAIL B,200(A) ;BUT DON'T DUMP MORE THAN 200 WORDS AT A TIME
1460 JRST DUMP3 ;END OF CORE, WRITE OUT LAST BLOCK
1462 AOJA B,DUMP2 ;NONZERO
1463 TLON A,-1 ;ZERO, WAS PREV LOC ZERO ALSO?
1464 AOJA B,DUMP2A ;NO, CHECK FOLLOWING LOC
1465 SOJA B,DUMP3 ;YES, DUMP THE NON-ZERO THAT PRECEDES IT
1467 DUMP3: HRRM B,DUMP4 ;SAVE ADDRESS TO CONTINUE SEARCH
1468 SUBM A,B ;RH(B) GETS MINUS THE LENGTH OF THE BLOCK
1469 HRL A,B ;SET UP HEADER IN A
1471 DUMP3B: MOVE D,A ;AND D
1472 JSP P,WD ;WRITE HEADER
1474 JSR EBUG,ERROR ;CAN'T FETCH WORD WE FETCHED BEFORE??
1477 ADD A,D ;COMPUTE CHECKSUM
1478 JSP P,WD ;WRITE DATA WORD
1481 JSP P,WD ;WRITE OUT CHECKSUM
1482 DUMP4: MOVEI B,. ;AND CONTINUE SEARCHING
1483 JUMPN B,DUMP1 ;IF MRC EVER SEES THIS --SELFMODIFYING CODE-- ....
1484 JRST DUMP9 ;FINISHED DUMPING SYMBOLS
1488 HRROI D,DDT-2 ;BUGGER THE SYMBOL TABLE
1496 DMP9J1: SKIPN D,DUMP9J
1498 JSP P,WD ;WRITE OUT JUMP BLOCK
1499 SKIPN B,DUMP9S ;WRITE SYMBOLS
1500 JRST DUMP9 ;NO SYMBOLS
1502 HLLZS DUMP4 ;DUMP SYMBOL BLOCK, RETURN TO DUMP9
1505 DUMP9: JUMPE WRITE,LOADG1 ;IF VERIFY, THAT'S ALL
1508 JSP P,WD ;SECOND JUMP BLOCK
1509 HRRZ T,DMP4 ; GET POINTER TO NAME AREA
1511 DPB BUFP,[UNWRDC+DIR+UNRNDM(T)]
1513 JSP TT,WRDB ;WRITE OUT LAST BLOCK
1515 JSR NXTBW3 ;STORE LAST DESCRIPTOR BYTE
1517 JSR NXTBW3 ;AND INDICATE END OF FILE
1518 LDB T,[360600,,DIRPT]
1522 SUBI TT,6*<DIR+UDDESC>-5-1(T)
1523 HRRZM TT,DIR+UDESCP ;INDICATE NEW END OF DESCRIPTOR AREA
1524 KILDMP: MOVEI UNIT,TUT
1526 JSP TT,WRD ;WRITE OUT TUT ON THIS UNIT
1533 HRRM B,KD2 ;WRITE OUT USER DIRECTORY ON ALL UNITS
1550 GTP: SKIPGE TUT+QPKNUM
1551 JSR EBUG,ERROR ;MUST BE OLD-STYLE TUT?
1553 JUMPL C,[JSR EBUG,ERROR]
1555 IMULI A,-10000*TUTBYT
1556 HRLI C,440000+TUTBYT_6(A)
1560 SC,[ ;LOGICAL TO PHYSICAL DISK MAPPING
1561 QTRAN: 0 ;INDEX BY LOG DSK #
1562 1 ;4.9 => USE HIGH HALF OF DRIVE, RH = PHYS DRIVE #
1563 2 ;(NO LONGER DOES ANYTHING, NOW THAT MEMOWRECKS ARE GONE,
1564 3 ; BUT KEEP AROUND JUST IN CASE EVER NEEDED AGAIN.)
1569 IFL .-QTRAN-NDSK,.ERR QTRAN LOSES!!
1572 ERRCT: 0 ;ERROR COUNTER
1573 DDTM2: 0 ;DDT SYMBOL TABLE POINTER
1574 DUMP9J: 0 ;START INSTRUCTION (AT DUMP9)
1575 DUMP9S: 0 ;SYMBOL TABLE POINTER (AT DUMP9)
1576 DUMP9K: 0 ;INITIAL SYMBOL TABLE PNTR (AT DUMP9)
1577 LBLOCK: 0 ;LAST BLOCK WRITTEN OR READ
1578 BLKCNT: 0 ;NUMBER OF BLOCKS READ OR WRITTEN CONSECUTIVELY
1579 DIRPT: 0 ;DESCRIPTOR AREA BYTE POINTER
1580 TUTPT: 0 ;TUT BYTE POINTER
1583 PKNUM: REPEAT NDSK,-1 ;PACK NUMBER INDEXED BY DRIVE NUMBER
1584 QDED: BLOCK NDSK ;-1 IF DRIVE NOT TO BE USED
1587 BOOTNS: RP, CONSZ DPC,BUSY
1588 SC, CONSZ DC0,DSSACT
1589 RH, CONSZ DSK,%HIBSY
1590 PH, IORD B,SWPCS1 ; UGH!
1594 IFL BEG+1677-., .ERR BLOAT
1595 INFORM SPACE LEFT,\BEG+1677-.
1598 BADBLK: 0 ;BLOCK WITH HDWE ERROR
1599 INFORM BADBLK,\.-1-BEG+<MEMSIZ-2000>
1607 CBOOT: CLEARM MEMSIZ-1 ;BOOTSTRAP
1610 IFE BOOTSW, JRST BEG ;OR CONSZ DPC,BUSY OR JRST LOADG1
1611 IFN BOOTSW, CONSZ DPC,BUSY
1613 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1620 BOOT0: TRNN B,RP03BT
1622 MOVEI B,MBLKS ;UNIT 0 IS AN RP03, ADJUST WORLD
1628 BOOT1: HLLZS BOOT0 ;PREVENT TRNN FROM SKIPPING AGAIN
1642 CLATT1: DEASEC ALLATT
1643 SWPSK: DSEEKC+200._22.
1644 SWPIN1: DWRITC+200._22.+3_17.+2._12.+ICWA ;NBLKS 4
1645 SWPIN2: DREADC+200._22.+4_17.+8._12.+ICWA
1646 SWPOU1: DWRITC+200._22.+4_17.+8._12.+ICWA
1647 SWPOU2: DREADC+200._22.+3_17.+2_12.+ICWA
1648 IFN NSWBL-5, .ERR THE PRECEDING 4 CONSTANTS ARE WRONG!
1649 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1650 RP3ADJ: <<MCYLS#NCYLS>&377>_22.+<.BM DCYLXB>
1653 SKWAIT: DATAI DPC,A ;AWAIT SEEK DONE UNIT 0
1664 WAIT: CONSO DPC,DONE
1668 PH,[ ;; Initially we could not use IORDQ or IOWRQ because they were
1669 ;; macros that used a literal. There is nothing to stop us now,
1670 ;; except the fact that this code works fine and is as small as you
1671 ;; could possibly want.
1674 IFE BOOTSW, JRST BEG ; or IORD B,SWPCS1 or JRST LOADG1
1675 IFN BOOTSW, IORD B,SWPCS1
1678 KS, WREBR 0 ; No paging or caching
1680 IOWR A,SWPCS2 ; Select drive
1681 BOOT0: IORD A,SWPCS1
1683 JRST BOOT0 ; Await drive available
1685 BOOT1: HLRZ A,SWPVAL(B)
1687 BOOT2: IORD A,SWPCS1
1688 TRNN A,%HXRDY ; Wait for controller
1690 TRNE A,%HXTRE+%HXMCP ; Lossage?
1695 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1696 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1699 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1700 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1702 SWPADR: UBAQ,,UBAPAG+UBPG_1 ; Set up Unibus map
1703 UBAQ,,UBAPAG+UBPG_1+1
1704 UBAQ,,%HRCS2 ; Clear controller
1705 SWPCS2: UBAQ,,%HRCS2 ; Select drive
1706 SWPCS1: UBAQ,,%HRCS1 ; Initialize
1707 UBAQ,,%HRCYL ; Desire cylinder
1708 UBAQ,,%HRWC ; Set (half) word count
1709 UBAQ,,%HRBA ; Set Unibus address
1710 UBAQ,,%HRADR ; Desire track and sector
1711 UBAQ,,%HRCS1 ; Write
1712 UBAQ,,%HRWC ; Reset (half) word count
1713 UBAQ,,%HRBA ; Reset Unibus address
1714 UBAQ,,%HRADR ; Desire track and sector
1718 IFN BEG&1777, .ERR BEG does not lie on a page boundary?
1720 ;;; LH FOR SWAP IN, RH FOR SWAP OUT
1721 SWPVAL: %UQVAL+%UQFST+BEG_-9,,%UQVAL+%UQFST+BEG_-9 ; Set up Unibus map
1722 %UQVAL+%UQFST+BEG_-9+1,,%UQVAL+%UQFST+BEG_-9+1
1723 %HYCLR,,%HYCLR ; Clear controller
1725 %HMRDP,,%HMRDP ; Initialize
1726 NCYLS,,NCYLS ; Desire cylinder
1727 -1700*2,,-1700*2 ; Set (half) word count
1728 UBPG_14,,UBPG_14 ; Set Unibus address
1729 ZZ1,,ZZ2 ; Desire track and sector
1730 %HMWRT,,%HMWRT ; Write
1731 -1700*2,,-1700*2 ; Reset (half) word count
1732 UBPG_14,,UBPG_14 ; Reset Unibus address
1733 ZZ2,,ZZ1 ; Desire track and sector
1734 %HMRED,,%HMRED ; Read
1735 IFN .-SWPVAL-LSWPADR, .ERR SWPVAL wrong length.
1746 IFE BOOTSW, JRST BEG ;OR CONSZ DSK,%HIBSY OR JRST LOADG1
1747 IFN BOOTSW, CONSZ DSK,%HIBSY
1749 KL, CONSZ PAG,660000 ;PAGING AND CACHE MUST BE DISABLED
1751 MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
1755 BOOT0: DATAO DSK,[%HRDCL,,]
1760 JRST BOOT0 ;AWAIT DRIVE AVAILABLE
1767 BOOT1: DATAO DSK,SWPIN1(B)
1777 ZZ1==<NSWBL-1>*SECBLK ;BLOCK CONTAINING CORE SWAPPED OUT TO BRING DSKDMP IN
1778 ZZ2==<NSWBL>*SECBLK ;DSKDMP RESIDENCE BLOCK
1781 ZZ1==ZZ3*400+<ZZ1-NSECS*ZZ3> ;CONVERT ADDR TO DISK FORMAT
1782 ZZ2==ZZ4*400+<ZZ2-NSECS*ZZ4>
1785 SWPIN1: %HRLOD+%HRDCL,,%HMRDP
1786 SWPIN2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1787 SWPIN3: %HRLOD+%HRADR,,ZZ1
1788 SWPIN4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1789 SWPIN5: %HRLOD+%HRADR,,ZZ2
1790 SWPIN6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1792 SWPOU1: %HRLOD+%HRDCL,,%HMRDP
1793 SWPOU2: %HRLOD+%HRCYL,,NCYLS+1 ;AVOID CYLINDER 406 WHICH KLDCP USES
1794 SWPOU3: %HRLOD+%HRADR,,ZZ2
1795 SWPOU4: %HRLOD+%HRCTL,,%HMWRT+ICWA_6
1796 SWPOU5: %HRLOD+%HRADR,,ZZ1
1797 SWPOU6: %HRLOD+%HRCTL,,%HMRED+ICWA_6
1799 CBLK: -NSWBL,,NBLKS+NBLKSC ;AVOID CYLINDER 406 WHICH KLDCP USES
1801 WAIT: CONSO DSK,%HIDON
1807 IFE BOOTSW, JRST BEG ;OR CONSZ DC0,DSSACT OR JRST LOADG1
1808 IFN BOOTSW, CONSZ DC0,DSSACT
1817 DADR==NCYLS_13+<<NSWBL-1>/2>_6+<<NSWBL-1>&1> ;ADDR OF LAST BLOCK IN CORE BUFFER
1818 DADR1==NCYLS_13+<NSWBL/2>_6+<NSWBL&1> ;ADDR OF NEXT BLOCK (CONTAINS
1819 SWPIN: DWRITE+DUNENB+DADR ; WORKING COPY OF DSKDMP)
1820 DCOPY BEG(-2000_2&37774)
1823 DCOPY BEG(-2000_2&37774)
1826 DCOPY BEG(-1700_2&37774)
1827 DCSKIP (-104_2&37774)
1829 DCOPY BEG(-1700_2&37774)
1830 DCSKIP (-104_2&37774)
1833 SWPOUT: DWRITE+DUNENB+DADR1
1834 DCOPY BEG(-2000_2&37774)
1837 DCOPY BEG(-2000_2&37774)
1840 DCOPY BEG(-1700_2&37774)
1841 DCSKIP (-104_2&37774)
1843 DCOPY BEG(-1700_2&37774)
1844 DCSKIP (-104_2&37774)
1847 CBLK: -NSWBL,,NBLKS ;DISK ADDR OF CORE BUFFER, - # BLOCKS IN LH
1848 WAIT: CONSZ DC0,DSSACT
1851 SADR: JRST BOOT ;AND GO TO PROGRAM TO BE STARTED
1852 SYSN: SIXBIT /./ ;CURRENT DIRECTORY
1853 IFG .+1-MEMSIZ,.ERR BOOT BLOAT
1855 IFE BOOTSW,{ ;CURLY BRACKETS TO AVOID ERROR MESSAGE
1859 ;THESE ARE THE BLOCKS THAT GET WRITTEN ON DISK
1860 ; STARTING AT THE BEGINNING OF THE FIRST EXTRA CYLINDER
1862 CBUF: BLOCK 2000 ;PSEUDO-CORE BUFFER
1863 DBUF: BLOCK 2000 ;DISK BUFFER
1864 DIR: BLOCK 2000 ;DIRECTORY BUFFER
1865 TUT: BLOCK 2000*NTUTBL ;TUT BUFFER
1866 IFN .-BEG,.ERR BLOCKS LOST
1867 ; BLOCK 2000 ;CORE OVERLAYED BY DSKDMP
1868 ; BLOCK 2000 ;COPY OF DSKDMP
1869 ; BLOCK 2000 ;SPARE COPY OF DSKDMP
1873 IFN BOOTSW, END CBOOT