(FILECREATED "20-JUL-83 11:53:48" {PHYLUM}<LISPCORE>SOURCES>LLSUBRS.;14
 4413   

      changes to:  (FNS \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)

      previous date: "24-MAY-83 23:27:10" {PHYLUM}<LISPCORE>SOURCES>LLSUBRS.;13)


(* Copyright (c) 1983 by Xerox Corporation)

(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
    ((OPCODES SUBRCALL 8 0])

(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))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (733 2778 (\uCodeCheck 743 . 818) (was\StackOverflow 820 . 901) (\NWWInterrupt 903 . 980
) (was\PageFault 982 . 1043) (\StatsOverflow 1045 . 1123) (NOOPSUBR 1125 . 1197) (\BACKGROUNDSUBR 1199
 . 1278) (\CHECKBCPLPASSWORD 1280 . 1374) (DISKPARTITION 1376 . 1437) (DSPBOUT 1439 . 1516) (\DSPRATE 
1518 . 1603) (\GATHERSTATS 1605 . 1678) (\GETPACKETBUFFER 1680 . 1745) (\LISPFINISH 1747 . 1823) (
\MOREVMEMFILE 1825 . 1909) (RAID 1911 . 2000) (\READRAWPBI 2002 . 2062) (\WRITERAWPBI 2064 . 2137) (
SETSCREENCOLOR 2139 . 2214) (SHOWDISPLAY 2216 . 2314) (\PUPLEVEL1STATE 2316 . 2392) (\WRITESTATS 2394
 . 2531) (\CONTEXTSWITCH 2533 . 2612) (\COPYSYS0SUBR 2614 . 2688) (\WRITEMAP 2690 . 2776)))))
STOP