(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-May-2023 21:39:52" ("compiled on " {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>PMAP.;2) "10-May-2023 09:23:17" brecompiled changes%: nothing in "FULL 10-May-2023 ..." dated "10-May-2023 09:23:21") (FILECREATED "11-May-2023 21:39:25" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>PMAP.;2 58865 :EDIT-BY "lmm" :CHANGES-TO (VARS PMAPCOMS) :PREVIOUS-DATE "19-Jul-2022 23:17:41" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>PMAP.;1) ADDMAPBUFFER :D8 (L (1 ERRORFLG 0 TEMP)) hNIL NIL () \ALLOCMAPBUFFER :D8 (P 2 \INTERRUPTABLE) >`l HHdnInHlkId`NIL (59 SYSTEMBUFFERLIST 51 SYSTEMBUFFERLIST 4 |BUFFERTYPE#|) () CHECKBUFFERREFVAL :D8 (L (0 BUFF) P 0 \INTERRUPTABLE) 2@dj@@j@NIL (45 BUFFER 34 BUFFER 23 BUFFER 9 BUFFER) () \WRITEOUTBUFFERS :D8 (L (1 STREAM 0 BUFFER)) @gA@0@d IHhZH&J @1dHj AHAj 0hA@@ @j jdhA@Aj 0jdh(124 \WRITEPAGES 119 CHECKBUFFERREFVAL 49 \WRITEPAGES 26 CHECKBUFFERREFVAL) (165 STREAM 154 BUFFER 146 STREAM 130 BUFFER 111 BUFFER 92 STREAM 82 BUFFER 74 STREAM 63 BUFFER 11 BUFFER) () \CLEARMAP :D8 (L (2 USERFLG 1 PAGES 0 STREAM) P 1 \INTERRUPTABLE) @lj@ B@kHA@j@h@2JhABJjhiAJJA3JK@JZ2@ JZJ[Z(155 \RELEASEBUFFER) (183 BUFFER 169 BUFFER 163 BUFFER 143 BUFFER 137 STREAM 121 BUFFER 111 BUFFER 90 BUFFER 70 STREAM 60 STREAM 50 STREAM 28 FDEV 21 STREAM 5 STREAM) () DOPMAP :D8 (L (2 VMEMPAGE 1 STREAM 0 PAGE#)) A@B B(7 \READPAGES) NIL () FINDPTRSBUFFER :D8 (L (1 NOERRORFLG 0 PTR)) 9`HhAh@HHHX@o (54 ERROR) (38 BUFFER 25 BUFFER 4 SYSTEMBUFFERLIST) ( 49 "not a MAPPAGE pointer") FORGETPAGES :D8 (L (2 TOPAGE 1 FROMPAGE 0 STREAM)) BAAB@2!HIAHdABHdBHj.Hdj@HHIJ3@H2H@ J@2XvHZXPh(147 \RELEASEBUFFER) (195 BUFFER 183 BUFFER 177 BUFFER 168 BUFFER 157 STREAM 135 BUFFER 129 STREAM 115 BUFFER 105 BUFFER 97 STREAM 83 BUFFER 69 BUFFER 54 BUFFER 35 BUFFER 16 STREAM) () \GETMAPBUFFER :D8 NIL ``j`j5`j `j`dZ`dIYdDjIdj4HIIj IjI(188 \ALLOCMAPBUFFER) (174 BUFFER 163 BUFFER 152 BUFFER 146 BUFFER 132 BUFFER 119 BUFFER 108 BUFFER 98 MAPEMPTYBUFFERLIST 90 MAPEMPTYBUFFERLIST 83 BUFFER 77 MAPEMPTYBUFFERLIST 67 BUFFER 62 MAPEMPTYBUFFERLIST 52 BUFFER 47 MAPEMPTYBUFFERLIST 35 BUFFER 30 MAPEMPTYBUFFERLIST 18 BUFFER 13 MAPEMPTYBUFFERLIST 4 MAPEMPTYBUFFERLIST) () LOCKMAP :D8 (L (0 PTR)) @NIL NIL () MAPAFTERCLOSE :D8 (L (0 STREAM)) #@ `@` h(23 \GETSTREAM 5 \CLEARMAP) (32 DEFAULTMAPFILE 18 DEFAULTMAPFILE 10 DEFAULTMAPFILE) () MAPBUFFERCOUNT :D8 (L (0 AVAILFLG)) B`jHI@h HjhHjhhHIkعNIL (53 BUFFER 38 BUFFER 23 BUFFER 4 SYSTEMBUFFERLIST) () MAPPAGE :D8 (L (2 READONLY 1 FILE 0 PAGE#)) yA Hd 0jHo H dg@Hi g$@Hi BH@H@kj Ho (118 ERROR 105 \SETEOF 81 \MAPPAGE 64 \MAPPAGE 47 \GETACCESS 40 ERROR 5 \GETSTREAM) (90 STREAM 70 BOTH 53 INPUT 22 FDEV 15 STREAM) ( 113 "must be open for input to map." 35 "not page-mappable") MAPWORD :D8 (L (1 FILE 0 FILEADR)) @A @n(7 MAPPAGE) NIL () \RELEASEBUFFER :D8 (L (1 STREAM 0 BUFFER)) @`@NIL (18 MAPEMPTYBUFFERLIST 10 MAPEMPTYBUFFERLIST 5 BUFFER) () RELEASINGVMEMPAGE :D8 (L (0 PTR)) @i dkkjhi(6 FINDPTRSBUFFER) (13 BUFFER) () RESTOREMAP :D8 (L (1 PAGES 0 STREAM)) @ @2BIKAAhLdcUIdjrIdjHINIHI IKIZYLhLLMIMiIJHIY2H VIY(185 \RELEASEBUFFER 103 DOPMAP 5 \GETSTREAM) (200 BUFFER 194 BUFFER 173 BUFFER 167 STREAM 146 BUFFER 122 BUFFER 110 BUFFER 96 BUFFER 87 BUFFER 76 BUFFER 68 STREAM 54 BUFFER 39 BUFFER 11 STREAM) () UNLOCKMAP :D8 (L (0 PTR)) @NIL NIL () \MAPPAGE :D8 (L (2 USERFLG 1 STREAM 0 FILEPAGE#) P 5 \INTERRUPTABLE) A2AH Xd@@BHkHjHHjHjjkHHXKIA4XJKAlj!HjH jvATKH@AH H@HA2AH2HBkHA 0jA jHA \HLHA f@aHjHHjJHHA2AH2HHjHdjJIkرwj(358 \WRITEOUTBUFFERS 345 \COLLECTDIRTYBUFS 235 DOPMAP 230 CHECKBUFFERREFVAL 146 \GETMAPBUFFER 18 \GETMAPBUFFER) (488 BUFFER 474 BUFFER 465 BUFFER 455 STREAM 444 STREAM 438 BUFFER 427 BUFFER 421 BUFFER 406 BUFFER 395 BUFFER 382 BUFFER 367 BUFFER 337 BUFFER 324 STREAM 311 STREAM 300 BUFFER 292 STREAM 278 BUFFER 268 STREAM 257 STREAM 251 BUFFER 241 BUFFER 217 BUFFER 211 BUFFER 195 BUFFER 180 BUFFER 164 STREAM 155 BUFFER 137 STREAM 119 BUFFER 101 BUFFER 93 BUFFER 81 BUFFER 70 BUFFER 57 BUFFER 43 BUFFER 28 BUFFER 5 STREAM) () \COLLECTDIRTYBUFS :D8 (L (1 STREAM 0 FIRSTPAGE)) @kQA2]d]dH%Mdj?Md j0A MMA 0jMi\HkԸLJ KhZK&INIL (97 STREAM 86 BUFFER 78 STREAM 69 BUFFER 52 BUFFER 37 BUFFER 23 BUFFER 11 STREAM) () \SETIODIRTY :D8 (L (1 PAGENUMBER 0 STREAM)) 7@2X hdAHk H(18 SHOULDNT) (47 BUFFER 38 BUFFER 26 BUFFER 8 STREAM) () WORDCONTENTS :D8 (L (0 PTR)) @NIL NIL () SETWORDCONTENTS :D8 (L (1 N 0 PTR)) @di @o @AA(20 ERROR 7 FINDPTRSBUFFER) NIL ( 15 "not a PMAP buffer.") /SETWORDCONTENTS :D8 (L (1 N 0 PTR) F 0 LISPXHIST) Pg@dh @AA(20 UNDOSAVE) (7 /SETWORDCONTENTS) () WORDOFFSET :D8 (L (1 N 0 PTR)) @ANIL NIL () \MAKE.PMAP.DEVICE :D8 (L (0 DEVICE)) 0@k@@kP@k`@k@k@k0@kp@g,@g.@g0@g:@gT@gR@gN@gP@gV@g<@g>@g@@gZ@dB@dBg@gB@NIL (298 \PAGED.FORCEOUTPUT 293 FDEV 284 NILL 277 FDEV 265 FDEV 255 \PAGED.GETNEXTBUFFER 250 FDEV 241 \BUFFERED.BOUTS 236 FDEV 227 \BUFFERED.BINS 222 FDEV 213 \PAGEDEOFP 208 FDEV 199 \PAGED.SETEOFPTR 194 FDEV 185 \PAGEDGETEOFPTR 180 FDEV 171 \PAGEDGETFILEPTR 166 FDEV 157 \PAGEDSETFILEPTR 152 FDEV 143 \PAGEDBACKFILEPTR 138 FDEV 129 \PAGEDREADP 124 FDEV 115 \BUFFERED.PEEKBIN 110 FDEV 101 \BUFFERED.BOUT 96 FDEV 87 \BUFFERED.BIN 82 FDEV 71 FDEV 60 FDEV 49 FDEV 38 FDEV 27 FDEV 16 FDEV 5 FDEV) () \PAGEDBACKFILEPTR :D8 (L (0 STREAM) P 0 \INTERRUPTABLE) @dl@l @ @j@jZ0@ddj5dd 0jdd @j 0@j@h@dmnk@dkٹjIIjZJh(72 \SETIODIRTY 27 \UPDATEOF 20 \LISPERROR) NIL () \PAGEDSETFILEPTR :D8 (L (1 INDX 0 STREAM) P 2 \INTERRUPTABLE) @ AAnH@H@UI@I@d 0j@d @j 0@j@h@H@Ih(84 \SETIODIRTY 5 \UPDATEOF) (132 STREAM 122 STREAM 112 STREAM 102 STREAM 91 STREAM 77 STREAM 62 STREAM 50 STREAM 38 STREAM 26 STREAM) () \PAGED.INCFILEPTR :D8 (L (1 AMOUNT 0 STREAM) P 0 \INTERRUPTABLE) 0@A@nIJIԺIn%jIwJnIkYպjJjnInkٹ@ @d 0j@d @j 0@j@h@J@IhjA@ i@dI@h@Ih(173 \UPDATEOF 112 \SETIODIRTY 83 \UPDATEOF) (209 STREAM 196 STREAM 184 STREAM 158 STREAM 149 STREAM 140 STREAM 130 STREAM 119 STREAM 105 STREAM 90 STREAM 18 STREAM 8 STREAM) () \PAGEDGETFILEPTR :D8 (L (0 STREAM)) @@NIL (15 STREAM 5 STREAM) () \PAGEDGETEOFPTR :D8 (L (0 STREAM)) @ @@(5 \UPDATEOF) (21 STREAM 11 STREAM) () \PAGEDREADP :D8 (L (1 FLG 0 STREAM) F 2 \PRIMTERMSA) g@ h]AhhVR@ IlHɀIHɀ jHIkh!@@@ @ h@ (99 \BACKCCODE.EOLC 91 \PAGEDEOFP 85 \INCCODE.EOLC 55 GETHASH 23 \PEEKCCODE.EOLC 5 \PAGEDEOFP) (48 CHARTABLE 38 CHARTABLE) () \PAGEDEOFP :D8 (L (0 STREAM)) o@dk@ @@@H@jjkjY@I@hH@i(19 \UPDATEOF) (101 STREAM 87 STREAM 75 STREAM 56 STREAM 45 STREAM 37 STREAM 26 STREAM 6 STREAM) () \PAGED.GETNEXTBUFFER :D8 (L (2 NOERRORFLG 1 WHATFOR 0 STREAM) P 4 \INTERRUPTABLE) @@"@j@@l IAg@n@i@d 0jd @j 0@j@hIn@jY@HkXH@ZBHJjI@4AdgBh@ g@HZ@IH@ [@JHnHJj@j@n@Ki(191 \MAPPAGE 183 SHOULDNT 155 \EOF.ACTION 73 \SETIODIRTY 28 \LISPERROR) (161 WRITE 141 READ 36 READ) () \PAGED.FORCEOUTPUTA0003 :D8 (L (1 Y 0 X)) A@NIL (13 BUFFER 5 BUFFER) () \PAGED.FORCEOUTPUT :D8 (L (0 STREAM) P 0 \INTERRUPTABLE) @g bddljr@ @d 0j@d @j 0@j@h@@2\Ig !I>@ @jLd jLJKhZYLK&ZddJdKkJKkԻJJh@ (246 \WRITEOUTBUFFERS 140 \TRUNCATEFILE 127 SORT 69 \SETIODIRTY 36 \UPDATEOF 10 \GETSTREAM) (217 BUFFER 201 BUFFER 184 BUFFER 160 BUFFER 147 BUFFER 122 \PAGED.FORCEOUTPUTA0003 110 STREAM 97 STREAM 87 STREAM 76 STREAM 62 STREAM 47 STREAM 19 STREAM 5 OUTPUT) () \UPDATEOF :D8 (L (0 STREAM)) 5@+@@@d@ (50 \SETEOF) (43 STREAM 35 STREAM 23 STREAM 15 STREAM 5 STREAM) () \READPAGES :D8 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @ ^@ABlHNIL (12 FDEV 5 STREAM) () \WRITEPAGES :D8 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) !@ @ `@ABlH(5 \UPDATEOF) (18 FDEV 11 STREAM) () \SETEOF :D8 (L (2 EO 1 EP 0 STREAM) P 0 \INTERRUPTABLE) nBABbBnb@A@B@pA@@BX@dAA@d 0j@d @j 0@j@hnh(118 \SETIODIRTY) (156 STREAM 146 STREAM 136 STREAM 125 STREAM 111 STREAM 96 STREAM 82 STREAM 69 STREAM 59 STREAM 48 STREAM 39 STREAM 30 STREAM) () \PAGED.SETEOFPTR :D8 (L (1 NBYTES 0 STREAM)) AAn@HI dgR@lj?@Hk@@HI H@ InI @H @HI ihdgg@lj@HI i(155 SHOULDNT 148 \SETEOF 103 \TRUNCATEFILE 95 \SETIODIRTY 88 \CLEARBYTES 77 \MAPPAGE 70 FORGETPAGES 64 \SETEOF 18 \NEWLENGTHIS) (130 STREAM 121 LONGER 113 SAME 54 STREAM 34 STREAM 24 SHORTER) () \NEWLENGTHIS :D8 (L (2 OFF 1 PGE 0 STREAM)) C@ @AjHgHj@BXjHdjgg(5 \UPDATEOF) (64 SHORTER 58 SAME 39 STREAM 27 LONGER 11 STREAM) () PPBUFS :D8 (L (0 BUF0)) T@Xi hoi Hi oi Hi oi H(71 PRIN1 59 PRIN1 51 PRIN1 39 PRIN1 24 PRIN1 11 TERPRI) (78 BUFFER 31 BUFFER) ( 65 "] " 45 ": " 18 "[") (PRETTYCOMPRINT PMAPCOMS) (RPAQQ PMAPCOMS ((* ; "Page mapping primitives. This file is shared with VAX.") (FNS ADDMAPBUFFER \ALLOCMAPBUFFER CHECKBUFFERREFVAL \WRITEOUTBUFFERS \CLEARMAP DOPMAP FINDPTRSBUFFER FORGETPAGES \GETMAPBUFFER LOCKMAP MAPAFTERCLOSE MAPBUFFERCOUNT MAPPAGE MAPWORD \RELEASEBUFFER RELEASINGVMEMPAGE RESTOREMAP UNLOCKMAP \MAPPAGE \COLLECTDIRTYBUFS \SETIODIRTY) (FNS WORDCONTENTS SETWORDCONTENTS /SETWORDCONTENTS WORDOFFSET) (EXPORT (PROP BYTEMACRO WORDCONTENTS SETWORDCONTENTS WORDOFFSET)) (COMS ( ADDVARS (DEFAULTMAPFILE) (SYSTEMBUFFERLIST) (MAPEMPTYBUFFERLIST)) (GLOBALVARS SYSTEMBUFFERLIST MAPEMPTYBUFFERLIST DEFAULTMAPFILE)) (COMS (* ; "Functions for page-mapped devices") (DECLARE%: DONTCOPY (EXPORT (MACROS \RELEASECPAGE))) (FNS \MAKE.PMAP.DEVICE \PAGEDBACKFILEPTR \PAGEDSETFILEPTR \PAGED.INCFILEPTR \PAGEDGETFILEPTR \PAGEDGETEOFPTR \PAGEDREADP \PAGEDEOFP \PAGED.GETNEXTBUFFER \PAGED.FORCEOUTPUT \UPDATEOF \READPAGES \WRITEPAGES) (FNS \SETEOF \PAGED.SETEOFPTR \NEWLENGTHIS) ( DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "For TEXTOFD") (P (PUTD (QUOTE \PAGEDBIN) (GETD (QUOTE \BUFFERED.BIN)) T) (PUTD (QUOTE \PAGEDPEEKBIN) (GETD (QUOTE \BUFFERED.PEEKBIN)) T)))) (FNS PPBUFS) ( DECLARE%: DONTCOPY (RECORDS BUFFER) EVAL@COMPILE (MACROS GETBUFFERPTR CHECKBUFFERREF CPBUFFERP BUFFERINUSEP UNDIRTY DIRTYP) (I.S.OPRS INBUFS)) (INITRECORDS BUFFER) (LOCALVARS . T))) (PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0))) (PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N))) (PUTPROPS WORDOFFSET BYTEMACRO ((PTR N) (\ADDBASE PTR N))) (ADDTOVAR DEFAULTMAPFILE) (ADDTOVAR SYSTEMBUFFERLIST) (ADDTOVAR MAPEMPTYBUFFERLIST) (PUTD (QUOTE \PAGEDBIN) (GETD (QUOTE \BUFFERED.BIN)) T) (PUTD (QUOTE \PAGEDPEEKBIN) (GETD (QUOTE \BUFFERED.PEEKBIN)) T) (/DECLAREDATATYPE (QUOTE BUFFER) (QUOTE (POINTER XPOINTER POINTER POINTER FLAG FLAG FLAG)) (QUOTE (( BUFFER 0 POINTER) (BUFFER 2 XPOINTER) (BUFFER 4 POINTER) (BUFFER 6 POINTER) (BUFFER 6 (FLAGBITS . 0)) (BUFFER 6 (FLAGBITS . 16)) (BUFFER 6 (FLAGBITS . 32)))) (QUOTE 8)) NIL