(FILECREATED " 4-DEC-83 13:22:04" {PHYLUM}<LISPCORE>SOURCES>TDISKDLION.;8 6602
changes to: (FNS \DL.DISKINIT \DL.ACTONVMEMFILE \DL.ACTONVMEMPAGE \DL.DISKSEEK \DL.XFERDISK
\DL.DISKOP \D2V \V2HDSEC \V2CYL INITDLIONDISK)
previous date: " 4-DEC-83 12:28:09" {PHYLUM}<LISPCORE>SOURCES>TDISKDLION.;7)
(* Copyright (c) 1983 by Xerox Corporation)
(PRETTYCOMPRINT TDISKDLIONCOMS)
(RPAQQ TDISKDLIONCOMS [(VARS DDFNS \TRIDENTFLG)
(FNS \DL.DISKINIT \DL.ACTONVMEMFILE \DL.ACTONVMEMPAGE \DL.DISKSEEK
\DL.XFERDISK \DL.DISKOP \D2V \V2HDSEC \V2CYL)
(FNS INITDLIONDISK)
(DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
LLFAULT)
(GLOBALVARS SEC/HD SEC/CYL \DISKTYPE))
(DECLARE: DONTEVAL@LOAD DOCOPY (P (INITDLIONDISK])
(RPAQQ DDFNS (\DL.DISKINIT \DL.ACTONVMEMFILE \DL.ACTONVMEMPAGE \DL.DISKSEEK \DL.XFERDISK \DL.DISKOP
\D2V \V2HDSEC \V2CYL))
(RPAQQ \TRIDENTFLG NIL)
(DEFINEQ
(\DL.DISKINIT
[LAMBDA NIL (* bvm: "31-MAR-83 23:07")
(COND
((NEQ 0 (LOGAND 32 (\DEVICE.INPUT 3)))
(SETQQ \DISKTYPE \SA4000)
(SETQ SEC/HD 28)
(SETQ SEC/CYL 224))
((NEQ 0 (LOGAND 64 (\DEVICE.INPUT 6)))
(SETQQ \DISKTYPE \QUANTUM)
(SETQ SEC/HD 16)
(SETQ SEC/CYL 128))
(T (SETQQ \DISKTYPE \SA1000)
(SETQ SEC/HD 16)
(SETQ SEC/CYL 64])
(\DL.ACTONVMEMFILE
[LAMBDA (FILEPAGE BUFFER NPAGES WRITEFLAG) (* bvm: " 4-APR-83 12:58")
(DECLARE (GLOBALVARS \FPTOVP))
(FRPTQ NPAGES (\DL.ACTONVMEMPAGE (COND
(\FPTOVP (* New way, page is in boot file)
(* Pilot page is zero-based, vmem page is one-base)
(SUB1 FILEPAGE))
(T (* Old way, page is in sysout after initial core image)
(IPLUS 3069 FILEPAGE)))
BUFFER WRITEFLAG)
(* the simple IPLUS here is actually converting from sysout file page number into a raw disk address.
Obviously, this will have to change, since it assumes, e.g., no bad pages in this region of the disk)
(SETQ BUFFER (\ADDBASE BUFFER WORDSPERPAGE))
(add FILEPAGE 1])
(\DL.ACTONVMEMPAGE
[LAMBDA (FILEPAGE BUFFER WRITEFLAG) (* bvm: "31-MAR-83 22:47")
(PROG ((LINKBASE (ADDBASE \IOCBPAGE 127))
(I 42))
LP [COND
((OR (IGREATERP (\GETBASE LINKBASE 3)
FILEPAGE)
(EQ 0 (\GETBASE LINKBASE 3)))
(RETURN (\DL.XFERDISK (IPLUS (\D2V (\GETBASE LINKBASE 1)
(\GETBASE LINKBASE 2))
(IDIFFERENCE FILEPAGE (\GETBASE LINKBASE 0)))
BUFFER WRITEFLAG]
(SETQ LINKBASE (\ADDBASE LINKBASE 3))
(COND
((EQ 0 I)
(RAID)
(RETURN)))
(SETQ I (SUB1 I))
(GO LP])
(\DL.DISKSEEK
[LAMBDA (CYL) (* bvm: "31-MAR-83 22:47")
(PROG [SEEKBITS (DISP (IDIFFERENCE CYL (\GETBASE \IOCBPAGE 9]
(COND
((ZEROP DISP)
(RETURN 0)))
(SETQ SEEKBITS 1056)
(COND
((IGREATERP 0 DISP)
(SETQ DISP (IMINUS DISP)))
(T (SETQ SEEKBITS 1120)))
(\PUTBASE \IOCBPAGE 87 (LOGOR SEEKBITS 128))
(\PUTBASE \IOCBPAGE 89 SEEKBITS)
(\PUTBASE \IOCBPAGE 81 (ADD1 (LOGXOR DISP 65535)))
(\PUTBASE \IOCBPAGE 9 CYL)
(RETURN (\DL.DISKOP 338])
(\DL.XFERDISK
[LAMBDA (DA BUFFER WRITEFLG) (* bvm: "31-MAR-83 22:47")
(\DL.DISKSEEK (\V2CYL DA))
(PROG ((RETRYCNT 10)
(HDSEC (\V2HDSEC DA))
STATUS)
LP (\PUTBASE \IOCBPAGE 10 HDSEC)
(\PUTBASE \IOCBPAGE 64 1)
(\PUTBASE \IOCBPAGE 75 (COND
(WRITEFLG 1083)
(T 1072)))
(\PUTBASE \IOCBPAGE 77 (SUB1 (fetch (POINTER PAGE#) of BUFFER)))
(\PUTBASE \IOCBPAGE 78 (COND
(WRITEFLG 28)
(T 30)))
(\PUTBASE \IOCBPAGE 79 (LOGOR (LOGAND (\GETBASE \IOCBPAGE 79)
2047)
(LLSH (LOGAND HDSEC 65280)
3)))
(\PUTBASE \IOCBPAGE 80 (LOGOR (LOGAND (\GETBASE \IOCBPAGE 80)
2047)
(LLSH (LOGAND HDSEC 65280)
3))) (* DSKRD1=DISKOP)
(COND
((ZEROP (\DL.DISKOP 355))
(RETURN T)))
(SETQ RETRYCNT (SUB1 RETRYCNT))
(COND
((ZEROP RETRYCNT)
(RAID))
(T (GO LP])
(\DL.DISKOP
[LAMBDA (IOCB) (* edited: "16-MAR-83 11:57")
(\PUTBASE \IOPAGE 1 IOCB)
(\PUTBASE \IOCBPAGE 3 256)
(\DEVICE.OUTPUT 32 3)
(until (ZEROP (LOGAND (\GETBASE \IOCBPAGE 3)
256)))
(LOGAND 63 (\GETBASE \IOCBPAGE 3])
(\D2V
[LAMBDA (CYL HDSEC) (* lmm "13-DEC-82 17:40")
(PROG ((HD (FOLDLO HDSEC 256))
(SEC (IMOD HDSEC 256)))
(RETURN (IPLUS (ITIMES CYL SEC/CYL)
(ITIMES HD SEC/HD)
SEC])
(\V2HDSEC
[LAMBDA (DA) (* scp " 8-MAR-83 02:20")
(* returns the head and sector number, packed into one
word, for the disk address DA)
(PROG ((SEC (IMOD DA SEC/HD))
(HD (IQUOTIENT (IMOD DA SEC/CYL)
SEC/HD)))
(RETURN (LOGOR (LLSH HD 8)
SEC])
(\V2CYL
[LAMBDA (DA) (* scp " 8-MAR-83 02:22")
(* returns the cylinder number of virtual disk address
DA)
(IQUOTIENT DA SEC/CYL])
)
(DEFINEQ
(INITDLIONDISK
[LAMBDA NIL (* bvm: "31-MAR-83 22:45")
(MAPC (QUOTE (\MAKENUMBER \SETGLOBALVAL.UFN \RPLPTR.UFN \HTFIND \SLOWIPLUS2 \SLOWIDIFFERENCE
\SLOWLLSH1 \SLOWLLSH8 \SLOWLRSH1 \SLOWLRSH8 \SLOWLOGOR2 \SLOWLOGAND2
\SLOWLOGXOR2 \SLOWIGREATERP \SLOWIQUOTIENT \SLOWITIMES2 IMOD IREMAINDER)
)
(FUNCTION \LOCKFN))
(MAPC DDFNS (FUNCTION \LOCKFN))
(MAPC (QUOTE (\SMALLNEGSPACE \IOCBPAGE \MDSTypeTable \HTCOLL \HTMAIN \VMBASEDP SEC/HD SEC/CYL
\DISKTYPE))
(FUNCTION \LOCKVAR])
)
(DECLARE: EVAL@COMPILE DONTCOPY
(FILESLOAD (LOADCOMP)
LLFAULT)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(ADDTOVAR GLOBALVARS SEC/HD SEC/CYL \DISKTYPE)
)
)
(DECLARE: DONTEVAL@LOAD DOCOPY
(INITDLIONDISK)
)
(PUTPROPS TDISKDLION COPYRIGHT ("Xerox Corporation" 1983))
(DECLARE: DONTCOPY
(FILEMAP (NIL (963 5730 (\DL.DISKINIT 973 . 1390) (\DL.ACTONVMEMFILE 1392 . 2257) (\DL.ACTONVMEMPAGE
2259 . 2880) (\DL.DISKSEEK 2882 . 3485) (\DL.XFERDISK 3487 . 4501) (\DL.DISKOP 4503 . 4804) (\D2V 4806
. 5048) (\V2HDSEC 5050 . 5455) (\V2CYL 5457 . 5728)) (5731 6316 (INITDLIONDISK 5741 . 6314)))))
STOP