(FILECREATED " 4-NOV-83 17:07:35" ("compiled on " {PHYLUM}DMRUSSELL>8200INTERFACE.;4) " 4-NOV-83 00:25:34" recompiled exprs: PutOriginalInRDH RemoveCopiesFromOutputTray RemoveOriginalFromRDH in WORK dated " 4-NOV-83 11:24:23") (FILECREATED " 4-NOV-83 17:05:48" {PHYLUM}DMRUSSELL>8200INTERFACE.;4 34034 changes to: ( FNS PutOriginalInRDH RemoveCopiesFromOutputTray RemoveOriginalFromRDH) previous date: "26-SEP-83 16:07:57" {PHYLUM}DMRUSSELL>8200INTERFACE.;3) CloseBottomPaperTray D1 (F 0 JobState) Pll (14Q SetBitOff) (3 JobState) () CloseDocumentCover D1 NIL hNIL NIL () CloseRDH D1 (F 0 JobState) Pll (14Q SetBitOff) (3 JobState) () CloseTopPaperTray D1 NIL gNIL (2 Used) () CreateSimulate8200MenuA0308 D1 (I 0 X) @ (4 EVAL) NIL () CreateSimulate8200Menu D1 (F 2 Simulate8200Menu) X`dodldldgdodg dgjdndhHdI hn&l c(123Q ADDMENU) (61Q DEFAULTMENUHELDFN 52Q CLRPROMPT 33Q CreateSimulate8200MenuA0308 2 MENUTYPE#) ( 43Q "8200 User Actions" 10Q (("Open RDH" OpenRDH) ("Close RDH" CloseRDH) ("Open Top Paper Tray" OpenTopPaperTray) ("Close Top Paper Tray" CloseTopPaperTray) ("Open Bottom Paper Tray" OpenBottomPaperTray) ("Close Bottom Paper Tray" CloseBottomPaperTray) ("Open Document Cover" OpenDocumentCover) ("Close Document Cover" CloseDocumentCover) (" --- " OpenDocumentCover) ("Move copies from output to RDH" MoveOutputRDH) ("Put original on glass" PutOriginalOnGlass) ("Remove original from glass" RemoveOriginalFromGlass) ("Put original in RDH" PutOriginalInRDH) ("Remove original from RDH" RemoveOriginalFromRDH) ("Remove copies from output tray" RemoveCopiesFromOutputTray) ("Reverse Originals" ReverseOriginals) ("Load paper into Top Paper Tray" LoadPaperIntoTopPaperTray) ("Remove paper from Top Paper Tray" RemovePaperFromTopPaperTray))) Get8200 D1 (P 0 fix I 1 prop I 0 array) AgAdg@l(ljNgg@ll Adg@l(kjg@l(ljAdg@l(ljg@l(ljAdg@l(ljgAdg@l(ljggAdg@l(kjhgg@ll Adg@ll g@l(ljAdg@l(l jgAdg@ gAdg@ g@l(ljAdg@l(ljg@lk Adg@l(ljgAdg@l(ljgg@l(l jAdg@l(ljg@l(ljAdg@l(kjg@l(ljAdg@l(ljg@l(ljAgAdg@l(ljggAdg@l(kjgg@ll Adg@l(l@jg@l(ljAdg@l(l jg@l(l@jAdg@l(ljgAdg@ gAdg@l(ljcggAdg@l(ljDggAdg@ gAdg@ g@l(l jAgAdg@l(l jgg@l(l@jAdg@l(ljg@ll Adg@l(kjg@l(ljAdg@l(ljg@l(l@jAdg@l(ljg@l(ljAdg@l(l@jg@l(l jAdg@l(ljg@l(l jAdg@l(ljg@l(ljAgAdg@l(ljggAdg@ g@ll@ AgAdg@l(l@jgg@l(kjAdg@l(ljg@l(ljAdg@l(ljg@ AgAdg@l(l@j2gg@ Adg@ll g@l(ljAdg@l(ljgAdg@l(l@jggAdg@l(ljgg@lk Adg@ll g@ll Adg@ll g@ll Adg @ll@ o H@H oA (2741Q HELP 2730Q Get8200 2716Q FIXSPELL 2706Q Get8200Led 2664Q Get8200Led 2646Q Get8200Led 2625Q Get8200Led 2607Q Get8200Led 2566Q Get8200Led 2412Q Get8200Led 2371Q Get8200TechStatusCodes 2317Q Get8200State 2144Q Get8200Led 2126Q Get8200Reduction 1537Q Get8200Led 1401Q Get8200PaperTray 1357Q Get8200Output 1237Q Get8200OpStatusCode 1071Q Get8200Led 513Q Get8200Led 435Q Get8200CopyMode 413Q Get8200Copy 330Q Get8200Led 307Q Get8200Led 54Q Get8200Led) (2672Q X7Led 2652Q X6Led 2633Q X5Led 2613Q X4Led 2574Q X3Led 2555Q X2Led 2551Q on 2525Q UTPTLight 2516Q UnloadTopPaperTray 2512Q on 2466Q UOTLight 2457Q UnloadOutputTray 2437Q USShroudOpen 2416Q TurnAroundTransport 2377Q TopTrayFeederLed 2363Q TechStatusCode 2357Q on 2333Q SCSILight 2324Q StatusCodeSeeInstructions 2311Q State 2271Q StaplerPresent 2250Q StaplerCover 2230Q StandbyRelayNOT 2210Q ShadeOpen 2204Q on 2160Q STTTSLight 2151Q SetsTooThickToStaple 2132Q SetsTooThickLed 2117Q ReductionButton 2110Q Reduction 2104Q on 2060Q RLight 2051Q Ready 2031Q RXShroudOpen 2011Q RDHStackingJam 1770Q RDHSlowOffPlaten 1750Q RDHShingleFeed 1727Q RDHRightCover 1707Q RDHReturnJam 1666Q RDHOpen 1646Q RDHMotorOff 1625Q RDHMotor 1605Q RDHMisfeed 1564Q RDHLeftCover 1545Q ProcessorCover 1525Q PopSensorLed 1505Q PopReset 1464Q PopJam 1460Q on 1434Q PWLight 1425Q PleaseWait 1405Q PaperUnderPopSensor 1372Q PaperTrayButton 1363Q PaperTray 1350Q OutputButton 1341Q Output 1335Q on 1311Q OFULight 1302Q OriginalsFaceUp 1276Q on 1252Q OFDLight 1243Q OriginalsFaceDown 1230Q OpStatusCode 1221Q OperatorStatusCode 1201Q OffsettingCatchTrayPosition 1160Q OffsettingCatchTray 1140Q ModuleInterlockNOT 1117Q MisStrip 1077Q MainPaperTrayDoor 1057Q MainFeederLed 1053Q on 1030Q LCITTLight 1021Q LoadCopiesInTopTray 1015Q on 771Q LPBFPTLight 762Q LastPageBottomFirstPageTop 742Q JamSwitch5 722Q JamSwitch4 701Q JamSwitch3 662Q JamSwitch2 641Q FuserUnderTemperature 621Q FuserOverTempNOT 600Q FuserJamReset 574Q on 550Q FPBLPTLight 541Q FirstPageBottomLastPageTop 521Q FinisherCover 502Q EmptyTopTrayLed 462Q DocumentInRDH 441Q DeveloperDoor 426Q CopyModeButton 417Q CopyMode 404Q CopyButton 375Q Copy 355Q CompilerExitSwitch 334Q CompilerEntrySwitch 315Q CloseRDHLed 275Q ClosePaperDoorLed 271Q on 246Q CDCLight 237Q CloseDocumentCover 233Q on 212Q CBPTDLight 203Q CloseBottomPaperTrayDoor 163Q CleanPopSensor 142Q CTransport 122Q BeltMistrackNOT 101Q BTransport 62Q BSkiis 42Q AddPaperLed 36Q off 12Q APLight 3 AddPaper) ( 2735Q "Unknown prop in Get8200:" 2713Q (APLight AddPaper AddPaperLed BSkiis BTransport BeltMistrackNOT CBPTDLight CDCLight CTransport CleanPopSensor CloseBottomPaperTrayDoor CloseDocumentCover ClosePaperDoorLed CloseRDHLed CompilerEntrySwitch CompilerExitSwitch Copy CopyButton CopyMode CopyModeButton DeveloperDoor DocumentInRDH EmptyTopTrayLed FPBLPTLight FinisherCover FirstPageBottomLastPageTop FuserJamReset FuserOverTempNOT FuserUnderTemperature JamSwitch2 JamSwitch3 JamSwitch4 JamSwitch5 LCITTLight LPBFPTLight LastPageBottomFirstPageTop LoadCopiesInTopTray MainFeederLed MainPaperTrayDoor MisStrip ModuleInterlockNOT OFDLight OFULight OffsettingCatchTray OffsettingCatchTrayPosition OpStatusCode OperatorStatusCode OriginalsFaceDown OriginalsFaceUp Output OutputButton PWLight PaperTray PaperTrayButton PaperUnderPopSensor PleaseWait PopJam PopReset PopSensorLed ProcessorCover RDHLeftCover RDHMisfeed RDHMotor RDHMotorOff RDHOpen RDHReturnJam RDHRightCover RDHShingleFeed RDHSlowOffPlaten RDHStackingJam RLight RXShroudOpen Ready Reduction ReductionButton SCSILight STTTSLight SetsTooThickLed SetsTooThickToStaple ShadeOpen StandbyRelayNOT StaplerCover StaplerPresent State StatusCodeSeeInstructions TechStatusCode TopTrayFeederLed TurnAroundTransport UOTLight USShroudOpen UTPTLight UnloadOutputTray UnloadTopPaperTray X2Led X3Led X4Led X5Led X6Led X7Led)) Get8200Copy D1 (L (0 array)) ,@dl(l jgl(ljg@l(ljgNIL (51Q Lighter 32Q Darker 15Q Normal) () Get8200CopyMode D1 (L (0 array)) +@dl(ljgl(kjg@l(ljgNIL (50Q TwoSidedOriginalsAndCopies 31Q TwoSidedCopies 15Q OneSidedCopies) () Get8200Led D1 (L (2 mask 1 elt 0 array)) .@dA(BjgAk(Bjg@Al(BjggNIL (53Q off 47Q flashing 30Q blinking 13Q on) () Get8200OpStatusCode D1 (I 0 array) kXl@H(jH iHkذhdk5@k(l jg@k(ljg@k(ljgo@k( dl@l(ljgo@l( dl@l(ljo@l( dl@l(l?jo@l( dl+@l(ljg@l(ljgo@l( dl#@l(ljg@l(ljggdlF@l(ljg@l(ljg@l(ljg@l(kjgo@l( dli@l(ljg@l(l@jg@l(l jg@l(ljg@l(ljg@l(ljg@l(ljggdl i@l (ljg@l (l@jg@l (l jg@l (ljg@l (ljg@l (ljg@l (ljggdl i@l (ljg@l (l@jg@l (l jg@l (ljg@l (ljg@l (ljg@l (ljggdl `@l (ljg@l (l@jg@l (l jg@l (lj&@l (ljg@l (lj@l (ljgdl '@l (ljg@l (kjo@l ( dl 9@l (ljg@l (ljg@l (ljgo@l ( lg@l(ljg@l(l@jg@l(l jg@l(ljg@l(ljg@l(ljg@l(ljgg(1541Q HELP 1444Q HELP 516Q HELP 335Q HELP 256Q HELP 220Q HELP 162Q HELP 121Q HELP) (1714Q A19 1710Q A15 1672Q B01 1654Q B02 1636Q A18 1620Q B04 1602Q B05 1564Q B03 1525Q A13 1507Q A14 1471Q A16 1416Q A12 1371Q F01 1337Q E16 1306Q F02 1270Q C30 1252Q E15 1225Q D24 1221Q D25 1203Q D26 1165Q D27 1147Q D28 1131Q D29 1113Q D30 1075Q D31 1050Q D16 1044Q D17 1026Q D18 1010Q D19 772Q D20 754Q D21 736Q D22 720Q D23 673Q D08 667Q D09 651Q D10 633Q D11 615Q D12 577Q D13 561Q D14 543Q D15 502Q D00 465Q D01 447Q D03 431Q D07 404Q A17 400Q A11 362Q A10 321Q C20 303Q C10 146Q E10 106Q B06 71Q B07 54Q B08) ( 1532Q "illegal 8200 fault, byte 13:" 1435Q "illegal 8200 fault, byte 12:" 507Q "illegal 8200 fault, byte 7:" 326Q "illegal 8200 fault, byte 5:" 247Q "illegal 8200 fault, byte 4:" 211Q "illegal 8200 fault, byte 3:" 153Q "illegal 8200 fault, byte 2:" 113Q "illegal 8200 fault, byte 1:") Get8200Output D1 (L (0 array)) +@dl(ljgl(ljg@l(kjgNIL (50Q CollatedUnstapled 32Q Uncollated 15Q CollatedStapled) () Get8200PaperTray D1 (L (0 array)) @dl(l jgl(ljgNIL (33Q Bottom 15Q Top) () Get8200Reduction D1 (L (0 array)) 7@dl(ljgl(ljlb@dl(ljlJl(ljlANIL (15Q FullSize) () Get8200State D1 (I 0 array) o@l(k (14Q NTH) NIL ( 3 (ComponentControl TechRep NotReady Ready Printing RunNotPrint LampTest Initialization)) Get8200TechStatusCodes D1 (L (0 array)) oNIL NIL ( 3 "not yet implemented") GetAddPaperMsg D1 (I 1 array I 0 addPaper) "oAg gooo (37Q CONCAT 12Q Get8200) (15Q Top 7 PaperTray) ( 34Q " paper tray." 30Q "bottom" 23Q "top" 3 "Add paper to ") GetMessage D1 (P 0 message I 1 array I 0 indicator) F@dlAolJo@dlbogHHH@ l@AlH(65Q MKSTRING) (44Q Message) ( 40Q "98%%" 24Q "74%%" 12Q "65%%") LoadPaperIntoTopPaperTray D1 NIL hNIL NIL () MoveCopiesFromOutputToRDH D1 NIL n (13Q PutOriginalInRDH 10Q BLOCK 2 RemoveCopiesFromOutputTray) NIL () MoveOutputRDH D1 NIL o (6 PRINT) NIL ( 3 "Move output from tray to RDH") OpenBottomPaperTray D1 (F 0 JobState) Pll (14Q SetBit) (3 JobState) () OpenDocumentCover D1 NIL hNIL NIL () OpenRDH D1 (F 0 JobState) Pll (14Q SetBit) (3 JobState) () OpenTopPaperTray D1 NIL hNIL NIL () ParseSimulate8200Menu D1 (I 2 Z I 1 Y I 0 X) @ (4 EVAL) NIL () Push8200Button D1 (I 0 button F 0 8200Server F 1 Simulate8200 F 2 JobState) -QR@ @ Pgg@hhP @ (52Q ServerPush8200Button 45Q REMOTEVAL 20Q PushSimulatedButton 13Q Simulate8200StateChange) (32Q QUOTE 27Q ServerPush8200Button 5 JobState) () PushSimulatedButton D1 (I 0 button) r@dk4dl.dl(dl"dldldldldl dj@g@ddgg@ddgg@dgӿo h(156Q HELP) (143Q ReductionButton 133Q OutputButton 124Q PaperTrayButton 113Q StartPrint 104Q CopyModeButton 73Q Clear) ( 153Q "Button of unknown type in PushSimulatedButton") Put8200 D1 (I 2 newvalue I 1 field I 0 array) DAg6@lBdgl%glBdglglo *o (101Q HELP 70Q HELP) (54Q RunNotPrint 43Q Print 30Q Ready 16Q NotReady 3 State) ( 76Q "2: Illegal Value in Put8200" 65Q "Illegal Value in Put8200") PutOriginalInRDH D1 (F 2 JobState F 3 FaceDown) YRll `dodl dodg dgjdndhHdI  ghic(114Q MENU 14Q SetBit) (117Q FaceUp 61Q DEFAULTMENUHELDFN 52Q CLRPROMPT 17Q MENUTYPE# 3 JobState) ( 43Q "Select One Orientation:" 25Q (("Originals face up" (QUOTE FaceUp)) ("Originals face down" (QUOTE FaceDown)))) PutOriginalOnGlass D1 NIL gNIL (2 This) () Read8200 D1 (P 0 state I 1 jobstate I 0 array F 4 8200Server F 5 Simulate8200 F 6 JobState) uUVT!hhoT `d hH2@lg bH!kI Jl@JK*JkغIYoH @(161Q HELP 103Q ARRAY 60Q ServerRead8200 47Q EVAL 35Q REMOTEVAL) (100Q BYTE 65Q Reading8200Flg 41Q Reading8200Flg 24Q Reading8200Flg 10Q JobState) ( 155Q "Error from 8200 server:" 31Q (ServerRead8200)) RemoveCopiesFromOutputTray D1 (F 0 JobState) Pll@ (14Q SetBitOff) (3 JobState) () RemoveOriginalFromGlass D1 NIL n (5 BLOCK) NIL () RemoveOriginalFromRDH D1 (F 0 JobState) Pll (14Q SetBitOff) (3 JobState) () RemovePaperFromTopPaperTray D1 NIL hNIL NIL () ReverseOriginals D1 NIL hNIL NIL () Select8200Feature D1 (P 7 fix P 6 b P 2 button P 1 array P 0 current I 0 feature) PYoh[1ho!M9h o@ ZIg g>I @Lg LiK@hNg _M]bNiIJ Jg Xd oJ H@J HJgXJ(230Q Push8200Button 215Q HELP 201Q MEMB 171Q Get8200 141Q FIXSPELL 112Q MEMB 74Q Read8200 62Q Get8200 52Q HELP 5 Read8200) (241Q Settings 175Q Settings 135Q Settings 106Q Settings 65Q ComponentControl 57Q State) ( 211Q "No current selection for " 46Q "Unknown button in Select8200Feature" 27Q (OutputButton PaperTrayButton CopyButton CopyModeButton ReductionButton) 12Q (OutputButton PaperTrayButton CopyButton CopyModeButton ReductionButton)) SelectNumberOfCopies D1 (P 0 x I 0 noc) g @Hdjhl Hl X(26Q Push8200Button 5 Push8200Button) (2 Clear) () SetBit D1 (L (2 bit 1 elt 0 array)) @A@A(B*NIL NIL () SetBitOff D1 (L (2 bit 1 elt 0 array)) @A@A(Bm*NIL NIL () (PRETTYCOMPRINT 8200INTERFACECOMS) (RPAQQ 8200INTERFACECOMS ((FNS * 8200INTERFACEFNS) (MACROS * 8200INTERFACEMACROS) (PROP Settings CopyButton CopyModeButton OutputButton PaperTrayButton ReductionButton) (PROP Message A12 APLight AddPaper B01 B02 Bottom CBPTDLight CDCLight CollatedStapled CollatedUnstapled CopyButton CopyModeButton E10 FPBLPTLight FullSize Initialization LCITTLight LPBFPTLight LampTest NotReady OFDLight OFULight OneSidedCopies OutputButton PWLight PaperTrayButton Printing RDHLeftCover RDHRightCover RLight Ready ReductionButton RunNotPrint SCSILight STTTSLight TechRep Top TwoSidedCopies TwoSidedOriginalsAndCopies UOTLight UTPTLight) (RECORDS * 8200INTERFACERECORDS) (P (LOAD? (QUOTE EVALSERVER.DCOM))) (VARS * 8200INTERFACEVARS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQQ 8200INTERFACEFNS (CloseBottomPaperTray CloseDocumentCover CloseRDH CloseTopPaperTray CreateSimulate8200Menu Get8200 Get8200Copy Get8200CopyMode Get8200Led Get8200OpStatusCode Get8200Output Get8200PaperTray Get8200Reduction Get8200State Get8200TechStatusCodes GetAddPaperMsg GetMessage LoadPaperIntoTopPaperTray MoveCopiesFromOutputToRDH MoveOutputRDH OpenBottomPaperTray OpenDocumentCover OpenRDH OpenTopPaperTray ParseSimulate8200Menu Push8200Button PushSimulatedButton Put8200 PutOriginalInRDH PutOriginalOnGlass Read8200 RemoveCopiesFromOutputTray RemoveOriginalFromGlass RemoveOriginalFromRDH RemovePaperFromTopPaperTray ReverseOriginals Select8200Feature SelectNumberOfCopies SetBit SetBitOff)) (RPAQQ 8200INTERFACEMACROS (EltAnd Get8200OnOffLight)) (PUTPROPS EltAnd MACRO ((array elt mask) (GREATERP (LOGAND (ELT array elt) mask) 0))) (PUTPROPS Get8200OnOffLight MACRO ((array elt mask) (COND ((EltAnd array elt mask) (QUOTE on)) (T ( QUOTE off))))) (PUTPROPS CopyButton Settings (Normal Darker Lighter)) (PUTPROPS CopyModeButton Settings (OneSidedCopies TwoSidedCopies TwoSidedOriginalsAndCopies)) (PUTPROPS OutputButton Settings (CollatedUnstapled CollatedStapled Uncollated)) (PUTPROPS PaperTrayButton Settings (Bottom Top)) (PUTPROPS ReductionButton Settings (FullSize 98 74 65)) (PUTPROPS A12 Message "Document handler (RDH) cover open.") (PUTPROPS APLight Message GetAddPaperMsg) (PUTPROPS AddPaper Message GetAddPaperMessage) (PUTPROPS B01 Message "B01: Two-sided copies should not be selected.") (PUTPROPS B02 Message "B02: Stapled output should not be selected.") (PUTPROPS Bottom Message "Standard Paper") (PUTPROPS CBPTDLight Message "Close bottom paper tray door") (PUTPROPS CDCLight Message "Close document cover") (PUTPROPS CollatedStapled Message "Collated and Stapled") (PUTPROPS CollatedUnstapled Message "Collated and Unstapled") (PUTPROPS CopyButton Message "Copy") (PUTPROPS CopyModeButton Message "Copy Mode") (PUTPROPS E10 Message (of a paper jam.)) (PUTPROPS FPBLPTLight Message "First page bottom, last page top") (PUTPROPS FullSize Message "Full Size") (PUTPROPS Initialization Message "The 8200 is initializing") (PUTPROPS LCITTLight Message "Load copies in top tray") (PUTPROPS LPBFPTLight Message "Last page bottom, first page top") (PUTPROPS LampTest Message "The 8200 is doing a lamp test.") (PUTPROPS NotReady Message "The 8200 is not ready.") (PUTPROPS OFDLight Message "Originals face down") (PUTPROPS OFULight Message "Place originals in RDH, face up") (PUTPROPS OneSidedCopies Message "One-Sided Copies") (PUTPROPS OutputButton Message "Output") (PUTPROPS PWLight Message "Please wait") (PUTPROPS PaperTrayButton Message "Make Copies On") (PUTPROPS Printing Message "The 8200 is Printing") (PUTPROPS RDHLeftCover Message "RDH left cover is open") (PUTPROPS RDHRightCover Message "RDH right cover is open") (PUTPROPS RLight Message "Ready") (PUTPROPS Ready Message "The 8200 is Ready") (PUTPROPS ReductionButton Message "Reduction") (PUTPROPS RunNotPrint Message "The 8200 is running but not printing") (PUTPROPS SCSILight Message "Status code, see instructions") (PUTPROPS STTTSLight Message "Sets too thick to staple") (PUTPROPS TechRep Message "The 8200 is in Tech Rep status ") (PUTPROPS Top Message "Paper Supplied by Operator") (PUTPROPS TwoSidedCopies Message "Two-Sided Copies") (PUTPROPS TwoSidedOriginalsAndCopies Message "Two-Sided Originals and Copies") (PUTPROPS UOTLight Message "Unload output tray") (PUTPROPS UTPTLight Message "Unload top paper tray") (RPAQQ 8200INTERFACERECORDS (8200Status)) (DATATYPE 8200Status (array)) (/DECLAREDATATYPE (QUOTE 8200Status) (QUOTE (POINTER))) (LOAD? (QUOTE EVALSERVER.DCOM)) (RPAQQ 8200INTERFACEVARS (8200Server NotReadyReasons (SimulationStatusWindow NIL))) (RPAQQ 8200Server NIL) (RPAQQ NotReadyReasons NIL) (RPAQQ SimulationStatusWindow NIL) NIL