(FILECREATED " 5-Sep-84 17:30:24" {ERIS}<LISPCORE>SOURCES>LLSUBRS.;2
 4296   

      changes to:  (FNS DISKPARTITION)

      previous date: "20-JUL-83 11:53:48" {ERIS}<LISPCORE>SOURCES>LLSUBRS.;1)


(* Copyright (c) 1983, 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LLSUBRSCOMS)

(RPAQQ LLSUBRSCOMS
 ((FNS * (PROGN \INITSUBRS))
		    (VARS \INITSUBRS)
		    (PROP ARGNAMES * (PROGN \INITSUBRS))))
(DEFINEQ

(\uCodeCheck

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 0 1)
     DUMMY])

(was\StackOverflow

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 1 1)
     DUMMY])

(\NWWInterrupt

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 2 1)
     DUMMY])

(was\PageFault

  [LAMBDA NIL
    ((OPCODES SUBRCALL 3 0])

(\StatsOverflow

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 4 1)
     DUMMY])

(NOOPSUBR

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 5 1)
     DUMMY])

(\BACKGROUNDSUBR

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 6 1)
     DUMMY])

(\CHECKBCPLPASSWORD

  [LAMBDA (PASS VECTOR)
    ((OPCODES SUBRCALL 7 2)
     PASS VECTOR])

(DISKPARTITION

  [LAMBDA NIL                                                (* hts: " 5-Sep-84 17:18")

    (SELECTQ (MACHINETYPE)
	     ((DORADO DOLPHIN)
	       ((OPCODES SUBRCALL 8 0)))
	     (DANDELION (\DFSCurrentVolume))
	     NIL])

(DSPBOUT

  [LAMBDA (CHARCODE)
    ((OPCODES SUBRCALL 9 1)
     CHARCODE])

(\DSPRATE

  [LAMBDA (AC0 AC1 AC2)
    ((OPCODES SUBRCALL 10 3)
     AC0 AC1 AC2])

(\GATHERSTATS

  [LAMBDA (FID)
    ((OPCODES SUBRCALL 11 1)
     FID])

(\GETPACKETBUFFER

  [LAMBDA NIL
    ((OPCODES SUBRCALL 12 0])

(\LISPFINISH

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 13 1)
     DUMMY])

(\MOREVMEMFILE

  [LAMBDA (FILEPAGE)
    ((OPCODES SUBRCALL 14 1)
     FILEPAGE])

(RAID

  [LAMBDA (MESS1 MESS2 FLG)
    ((OPCODES SUBRCALL 15 3)
     MESS1 MESS2 FLG])

(\READRAWPBI

  [LAMBDA NIL
    ((OPCODES SUBRCALL 16 0])

(\WRITERAWPBI

  [LAMBDA (PBI)
    ((OPCODES SUBRCALL 17 1)
     PBI])

(SETSCREENCOLOR

  [LAMBDA (FLG)
    ((OPCODES SUBRCALL 18 1)
     FLG])

(SHOWDISPLAY

  [LAMBDA (BASE RASTERWIDTH)
    ((OPCODES SUBRCALL 19 2)
     BASE RASTERWIDTH])

(\PUPLEVEL1STATE

  [LAMBDA (FLG)
    ((OPCODES SUBRCALL 20 1)
     FLG])

(\WRITESTATS

  [LAMBDA (TYPE X1 X2 X3 X4 X5 X6 X7 X8 X9 X10)
    ((OPCODES SUBRCALL 21 11)
     TYPE X1 X2 X3 X4 X5 X6 X7 X8 X9 X10])

(\CONTEXTSWITCH

  [LAMBDA (DUMMY)
    ((OPCODES SUBRCALL 22 1)
     DUMMY])

(\COPYSYS0SUBR

  [LAMBDA (FID)
    ((OPCODES SUBRCALL 23 1)
     FID])

(\WRITEMAP

  [LAMBDA (VP RP FLAGS)
    ((OPCODES SUBRCALL 24 3)
     VP RP FLAGS])
)

(RPAQQ \INITSUBRS
 (\uCodeCheck was\StackOverflow \NWWInterrupt was\PageFault \StatsOverflow NOOPSUBR 
			       \BACKGROUNDSUBR \CHECKBCPLPASSWORD DISKPARTITION DSPBOUT \DSPRATE 
			       \GATHERSTATS \GETPACKETBUFFER \LISPFINISH \MOREVMEMFILE RAID 
			       \READRAWPBI \WRITERAWPBI SETSCREENCOLOR SHOWDISPLAY \PUPLEVEL1STATE 
			       \WRITESTATS \CONTEXTSWITCH \COPYSYS0SUBR \WRITEMAP))

(PUTPROPS \uCodeCheck ARGNAMES
 (DUMMY))

(PUTPROPS was\StackOverflow ARGNAMES
 (DUMMY))

(PUTPROPS \NWWInterrupt ARGNAMES
 (DUMMY))

(PUTPROPS \StatsOverflow ARGNAMES
 (DUMMY))

(PUTPROPS NOOPSUBR ARGNAMES
 (DUMMY))

(PUTPROPS \BACKGROUNDSUBR ARGNAMES
 (DUMMY))

(PUTPROPS \CHECKBCPLPASSWORD ARGNAMES
 (PASS VECTOR))

(PUTPROPS DISKPARTITION ARGNAMES
 NIL)

(PUTPROPS DSPBOUT ARGNAMES
 (CHARCODE))

(PUTPROPS \DSPRATE ARGNAMES
 (AC0 AC1 AC2))

(PUTPROPS \GATHERSTATS ARGNAMES
 (FID))

(PUTPROPS \GETPACKETBUFFER ARGNAMES
 NIL)

(PUTPROPS \LISPFINISH ARGNAMES
 (DUMMY))

(PUTPROPS \MOREVMEMFILE ARGNAMES
 (FILEPAGE))

(PUTPROPS RAID ARGNAMES
 (MESS1 MESS2 FLG))

(PUTPROPS \READRAWPBI ARGNAMES
 NIL)

(PUTPROPS \WRITERAWPBI ARGNAMES
 (PBI))

(PUTPROPS SETSCREENCOLOR ARGNAMES
 (FLG))

(PUTPROPS SHOWDISPLAY ARGNAMES
 (BASE RASTERWIDTH))

(PUTPROPS \PUPLEVEL1STATE ARGNAMES
 (FLG))

(PUTPROPS \WRITESTATS ARGNAMES
 (TYPE X1 X2 X3 X4 X5 X6 X7 X8 X9 X10))

(PUTPROPS \CONTEXTSWITCH ARGNAMES
 (DUMMY))

(PUTPROPS \COPYSYS0SUBR ARGNAMES
 (FID))

(PUTPROPS \WRITEMAP ARGNAMES
 (VP RP FLAGS))
(PUTPROPS LLSUBRS COPYRIGHT ("Xerox Corporation" 1983 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (427 2656 (\uCodeCheck 437 . 512) (was\StackOverflow 514 . 595) (\NWWInterrupt 597 . 674
) (was\PageFault 676 . 737) (\StatsOverflow 739 . 817) (NOOPSUBR 819 . 891) (\BACKGROUNDSUBR 893 . 972
) (\CHECKBCPLPASSWORD 974 . 1068) (DISKPARTITION 1070 . 1315) (DSPBOUT 1317 . 1394) (\DSPRATE 1396 . 
1481) (\GATHERSTATS 1483 . 1556) (\GETPACKETBUFFER 1558 . 1623) (\LISPFINISH 1625 . 1701) (
\MOREVMEMFILE 1703 . 1787) (RAID 1789 . 1878) (\READRAWPBI 1880 . 1940) (\WRITERAWPBI 1942 . 2015) (
SETSCREENCOLOR 2017 . 2092) (SHOWDISPLAY 2094 . 2192) (\PUPLEVEL1STATE 2194 . 2270) (\WRITESTATS 2272
 . 2409) (\CONTEXTSWITCH 2411 . 2490) (\COPYSYS0SUBR 2492 . 2566) (\WRITEMAP 2568 . 2654)))))
STOP