github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 12:05:41 +00:00
Code Issues Projects Releases Wiki Activity

Add documents from envos/LISPCORE/internal/docs (#812)

Browse Source
This commit is contained in:
Larry Masinter
2022-07-02 22:08:47 -07:00
committed by GitHub
parent 32128f5e19
commit f86be45834
146 changed files with 3031 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

138
docs/internal/codeimage.bltchar Normal file
View File

@@ -0,0 +1,138 @@
\BLTCHAR
114 opcodes
1 free variable lookup (possibly more)
100: 21 160 6 BIND ; [pvar0] .. [pvar6]
103: 100 IVAR CHARCODE
104: 154 377 SIC 255
106: 345 LOGAND2
107: 134 PVAR_ [pvar4]
110: 277 POP
111: 102 IVAR DISPLAYDATA
112: 144 COPY
113: 311 76 GETBASEPTR.N
115: 100 IVAR CHARCODE
116: 343 LRSH8
117: 360 EQ
120: 246 TJUMP-> 130
130: 311 16 GETBASEPTR.N
132: 225 FJUMP-> 141
141: 102 IVAR DISPLAYDATA
142: 311 0 GETBASEPTR.N
144: 133 PVAR_ [pvar3]
145: 102 IVAR DISPLAYDATA
146: 311 60 GETBASEPTR.N
150: 114 PVAR [pvar4]
151: 320 ADDBASE
152: 310 0 GETBASE.N
154: 330 IPLUS2
155: 131 PVAR_ [pvar1]
156: 102 IVAR DISPLAYDATA
157: 311 30 GETBASEPTR.N
161: 361 IGREATERP
162: 235 FJUMP-> 201
(freplace (\DISPLAYDATA DDXPOSITION) of DISPLAYDATA with (IPLUS CURX (\DSPGETCHARWIDTH CHAR8CODE DISPLAYDATA)))
201: 102 IVAR DISPLAYDATA
202: 113 PVAR [pvar3]
203: 102 IVAR DISPLAYDATA
204: 311 20 GETBASEPTR.N
206: 114 PVAR [pvar4]
207: 320 ADDBASE
210: 310 0 GETBASE.N
212: 330 IPLUS2
213: 24 0 RPLPTR.N
215: 277 POP
216: 102 IVAR DISPLAYDATA
217: 311 4 GETBASEPTR.N
221: 270 PVAR_^ [pvar0]
222: 113 PVAR [pvar3]
223: 110 PVAR [pvar0]
224: 330 IPLUS2
225: 273 PVAR_^ [pvar3]
226: 111 PVAR [pvar1]
227: 110 PVAR [pvar0]
230: 330 IPLUS2
231: 131 PVAR_ [pvar1]
232: 102 IVAR DISPLAYDATA
233: 310 43 GETBASE.N
235: 130 PVAR_ [pvar0]
236: 361 IGREATERP
237: 221 FJUMP-> 242
242: 113 PVAR [pvar3]
243: 102 IVAR DISPLAYDATA
244: 310 42 GETBASE.N
246: 130 PVAR_ [pvar0]
247: 361 IGREATERP
250: 221 FJUMP-> 253
253: 110 PVAR [pvar0]
254: 272 PVAR_^ [pvar2]
255: 111 PVAR [pvar1]
256: 112 PVAR [pvar2]
257: 361 IGREATERP
260: 264 170 NFJUMPX-> 450
262: 102 IVAR DISPLAYDATA
263: 311 52 GETBASEPTR.N
265: 130 PVAR_ [pvar0]
266: 6 14 256 DTEST PILOTBBT
271: 310 11 GETBASE.N
273: 152 '0
274: 360 EQ
275: 263 152 TJUMPX-> 447
277: 150 'NIL
300: 135 PVAR_ [pvar5]
301: 276 PVAR_^ [pvar6]
302: 127 16 FVARX \SOFTCURSORP
304: 262 42 FJUMPX-> 346
346: 101 IVAR DISPLAYSTREAM
347: 140 30 161 GVAR \TOPWDS
352: 360 EQ
353: 255 TJUMP-> 372
372: 110 PVAR [pvar0]
373: 112 PVAR [pvar2]
374: 315 2 PUTBASE.N
376: 277 POP
377: 110 PVAR [pvar0]
400: 111 PVAR [pvar1]
401: 112 PVAR [pvar2]
402: 331 IDIFFERENCE
403: 315 10 PUTBASE.N
405: 277 POP
406: 110 PVAR [pvar0]
407: 102 IVAR DISPLAYDATA
410: 311 22 GETBASEPTR.N
412: 114 PVAR [pvar4]
413: 320 ADDBASE
414: 310 0 GETBASE.N
416: 112 PVAR [pvar2]
417: 330 IPLUS2
420: 113 PVAR [pvar3]
421: 331 IDIFFERENCE
422: 315 6 PUTBASE.N
424: 277 POP
425: 110 PVAR [pvar0]
426: 152 '0
427: 166 PILOTBITBLT
430: 277 POP
431: 116 PVAR [pvar6]
432: 231 FJUMP-> 445
445: 151 'T
446: 20 RETURN