LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031306. :SYSTEM-TYPE :LOGICAL :VERSION 16. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-SOURCE" "IO") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758636843. :AUTHOR "REL3" :LENGTH-IN-BYTES 2322. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;;;-*- Mode:Common-Lisp; Package:SYSTEM-INTERNALS; Base:10 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (C) 1986,1987 Texas Instruments Incorporated. All rights reserved.;;;  HW   12/8/86   Defined IO-AUX defsystem that will get made after cold-load. ;;;  MBC  12/11/86  IO-AUX not patchable, simply put its patches in IO.;;;  HW   01/20/87  Moved "Tenex-family" from IO-AUX to PATHNAME defsystem.;;;  HW   01/29/87  Moved "ITS" from IO-AUX to PATHNAME defsystem.;;;  HW   02/03/87  Added Download stuff to IO and IO-AUX. Also auxilliary file for PRIM.;;;  HW   03/04/87  Changed name of PRIM's mcr to "sys:io;prim.mcr";;; 03.05.87  DAB  Changed :patchable and added :warnings-pathname-default(Defsystem IO   ;These are cold loaded  (:Name "Disk-Io")  (:Pathname-Default "SYS:Io;")  (:patchable "SYS: PATCH.IO;" PATCH) ;03.05.87 DAB  (:warnings-pathname-default "SYS: CWARNS; IO.lisp") ;03.05.87 DAB  (:Module Defs  (  "Disk-Definitions"  "Disk-Inits"  ))  (:Module Rest ( "Disk-Io" "Disk-Partition" "Disk-Rqb-Resource" "Disk-Label-Primitives" "Cfg-Primitives" "Disk-Label-Intermediates" ))  (:Compile-Load Defs)  (:Compile-Load Rest (:Fasload Defs))   )(DEFSYSTEM IO-AUX   ;These are not cold-loaded  (:name "IO-AUX")  (:pathname-default "SYS:IO;")  (:module Edit ( "Disk-Label-Editor" ))    (:module Misc ( "baldir" "dribbl" "install-prim" ))  (:module Aux  ( "sys:io;prim.mcr";contains PRIM [Also used for BOOT] for Explorer I "sys:io;boot.mcr"      ;contains BOOT for Exploprer II ))  (:module Pathnames ( "sys:pathname;unix"  ))  (:module Exports ( "exports-sys" "exports-fs" ))  (:module Defs ( "defs" ))    (:Compile-Load Edit )  (:Compile-Load Misc )  (:compile-Load Pathnames)  (:compile-Load Exports)  (:compile-load Defs)  (:auxiliary Aux)  )  k like set-cfg-boot-data. Accepts a USER-TYPE keyword.;;;    04.23.87 DAB     Fixed CHECK-ROM-CRC Array dimension to big. Fixed INITIALIZE-CFG-PARTITION- added partition comments,;;;                     Fixed Get-Cfg-load-Data returns only partition name, not cpu type.Fixed FIND-MODULE-FROM-RQB;;;                     to use string-equal instead of equal.;;;  Advertised functions:;;;  ----------------------;;;Copy-cfg-ModuleCopy a module from one cfg band to another;;;;;;Set-Cfg-Boot-DataSet Boot slot, unit, & partition name;;;;;;Get-Cfg-Boot-DataGet Boot name, unit, & slot;;;;;;Set-Cfg-Load-DataSet Load slot, unit, & partition name (Explorer CPU only);;;;;;Get-Cfg-Load-DataGet Load name, unit, & slot (Explore