(FILECREATED "11-Sep-84 01:31:21" ("compiled on " {ERIS}MSGLAFITE.;2) " 8-Sep-84 01:10:18" recompiled changes: MSG.SetLafiteLength in "INTERLISP-D 8-Sep-84 ..." dated " 8-Sep-84 01:22:25") (FILECREATED "11-Sep-84 01:31:04" {ERIS}MSGLAFITE.;2 3715 changes to: (FNS MSG.SetLafiteLength) previous date: " 4-NOV-83 16:36:21" {ERIS}MSGLAFITE.;1) ConvertMsgToLafiteA0001 D1 (NAME ERRORSET P 0 MsgCtr F 1 MsgStream F 2 RESETVARSLST F 3 LafiteStream F 4 MsgFileName F 5 LafiteFileName F 6 LafiteLengthPtr F 7 MsgLength F 10Q LafiteLength F 11Q MsgFile F 12Q LafiteFile F 13Q RESETY F 14Q HeaderLength) À gWg c chhhRc¿gWg c chhhRc¿kQ Q l Ùýñ³@i ¿HkÙi ¿oi ¿Ti ¿oi ¿Ui ¿oi ¿i hciS c ¿Q c¿QSW c¿VWWØS ¿oi ¿Hkظ°ƒ(267Q PRIN1 256Q MSG.SetLafiteLength 241Q MSG.TransferMsg 227Q MSG.GetMsgLength 220Q MSG.LafiteHeader 206Q TERPRI 201Q PRIN1 170Q PRIN1 162Q PRIN1 151Q PRIN1 143Q PRIN1 132Q PRIN1 122Q TERPRI 107Q GETEOFPTR 103Q GETFILEPTR 55Q GETSTREAM 50Q OPENFILE 17Q GETSTREAM 12Q OPENFILE) (45Q OUTPUT 40Q CLOSEF 7 INPUT 2 CLOSEF) ( 263Q "!" 175Q "." 156Q " to " 137Q " messages transfered from ") ConvertMsgToLafite D1 (P 12Q RESETZ P 11Q RESETY P 10Q LISPXHIST P 7 LafiteLengthPtr P 6 LafiteLength P 5 MsgLength P 4 LafiteStream P 3 LafiteFileName P 2 MsgStream P 1 MsgFileName P 0 HeaderLength I 1 LafiteFile I 0 MsgFile F 13Q LISPXHIST F 14Q RESETVARSLST) , lqW! Wog ‘h‚g_ ¿O´h(50Q ERROR! 40Q RESETRESTORE 25Q ConvertMsgToLafiteA0001) (33Q ERROR 22Q INTERNAL) ( 17Q (ConvertMsgToLafiteA0001)) MSG.FlushLine D1 (I 0 Stream) @ l ð²û@ l ð´@ (12Q PEEKC) NIL () MSG.GetMsgLength D1 (P 1 Length P 0 Char I 0 Stream) 7 @ Xl,ð²ú0@ Xdgðœ¿J Y@ I¼Kµ Lh[º°ßL&»°Ú(43Q MSG.FlushLine 36Q PACK 21Q READC) (26Q ;) () MSG.LafiteHeader D1 (P 0 LengthPtr I 0 OutputStream) #o@ @ @ Xo@ @ H(37Q TERPRI 33Q PRIN1 22Q GETFILEPTR 16Q TERPRI 12Q PRIN1) NIL ( 27Q "00000 00024 US " 6 "*start*") MSG.SetLafiteLength D1 (P 0 OldPtr I 2 LafiteStream I 1 Length I 0 LengthPtr) B B@ oAB BH h(31Q SETFILEPTR 24Q PRINTNUM 13Q SETFILEPTR 3 GETFILEPTR) NIL ( 17Q (FIX 5 NIL T)) MSG.TransferMsg D1 (P 3 Ctr P 1 Char P 0 LafiteLength I 2 MsgLength I 1 LafiteStream I 0 MsgStream) 'j1Bk»ºKJñ³@ Yl ð©AI ¿HkظKkØ[°çH(30Q BOUT) NIL () (PRETTYCOMPRINT MSGLAFITECOMS) (RPAQQ MSGLAFITECOMS ((P (SETQQ PRIME-FILE MSGLAFITE.LISP)) (RECORDS) (VARS) (FNS ConvertMsgToLafite MSG.FlushLine MSG.GetMsgLength MSG.LafiteHeader MSG.SetLafiteLength MSG.TransferMsg))) (SETQQ PRIME-FILE MSGLAFITE.LISP) (PUTPROPS MSGLAFITE COPYRIGHT ("Xerox Corporation" 1984)) NIL