@MASM,SE TPF$.LISP-ASM
MASM 6R2 (950816 1614:49) 1998 Apr 29 Wed 1338:27
COPYRIGHT (c) 1994 Unisys Corporation.
All rights reserved.
UNISYS PROPRIETARY
1. AXR$.
2. $(6) LIT.
3. /. REGISTER ASSIGNMENTS (DON'T FOOL WITH THESE)
000000000001 4. XT EQU 001
000000000002 5. XF EQU 002
000000000003 6. XC EQU 003
000000000004 7. XL EQU 004
000000000005 8. XP EQU 005
000000000006 9. XI EQU 006
000000000007 10. XR EQU 007
000000000010 11. XW EQU 010
000000000011 12. XO EQU 011
000000000012 13. XW1 EQU 012
000000000014 14. XX EQU 014
000000000015 15. XY EQU 015
000000000016 16. XV EQU 016
000000000020 17. XA EQU 020
000000000022 18. XXA EQU 022
000000000033 19. XMCNT EQU 033
000000000117 20. XFLAG EQU 0117
21. . OTHER CONSTANTS
000000000003 22. RH EQU 3
000000000004 23. LH EQU 4
24. PAIR FORM 18,18
25. PF FORM 6,6,6,18.
26. ESCC EQU '!'. (MUST ALSO CHANGE DELIMS)
27. STRC EQU '"'. (DITTO)
28. CTRCHR EQU ':'
29. /. COMMON LISP MACROS
30. . LOAD VALUE REGISTER
31. LOAD* PROC
32. I EQU LOAD(1,1)
33. J EQU (I=0)++(I>16)
34. DO J=0 ,
35. LMA,RH XV,STACK-I,XF.
36. DO J ,
37. LMA,U XV,I.
38. END
39. . STORE VALUE REGISTER
40. STORE* PROC
41. DO STORE=0 ,
42. SA XV,STACK,*XT.
43. DO STORE>0 ,
44. SA XV,STACK-STORE(1,1),XF.
45. END
46. . MOVE VALUES TO STACK
47. MOVE* PROC
48. XX* PROC
49. LOAD MOVE(1,I)
50. STORE
51. END
52. I DO MOVE(1) , XX.
53. END
54. . ENTER FUNCTION
55. CALL* PROC
56. LMJ XL,ENTRY.
57. END
58. . ENTER ROUTINE
59. CALLR* PROC
60. LMJ XL,ENTRYR.
61. END
62. . LEAVE FUNCTION
63. RETURN* PROC
64. J EXIT.
65. END
66. . MARK STACK
67. MARK* PROC
68. SX XT,CSTAK,*XC.
69. END
70. . PREPARE TO APPLY FUNCTION
71. LETS* PROC
72. MARK
73. L,U R3,LETS(1,1).
74. S R3,STACK,*XT.
75. END
76. . GET NODE TYPE
77. GETYPE* PROC
78. AND,U XV,PAGMSK.
79. SSL XV+1,PAGBIT.
80. LA,S3 XV+1,PAGTAB,XV+1.
81. END
82. . GET CAR OR CDR
83. UPLOW PROC
84. UPPER* NAME 4
85. LOWER* NAME 3
86. LMA UPLOW(1,1),0,XV,UPLOW(0,0). 87. END
88. . FOLLOW CAR-CDR CHAIN
89. CHAIN* PROC
90. I DO CHAIN(1) ,
91. LMA XV,0,XV,CHAIN(1,I).
92. END
93. . BUILD NODE IN MEMORY
94. NODE* PROC
95. LMJ XL,STORIT(NODE(1,1)).
96. END
97. . PUT MESSAGE IN PRINT LINE
98. EDIT PROC
99. EDIT* NAME 1
100. EDITA* NAME 0
101. LMJ XR,EDCHAR-EDIT(0,0).
102. I DO EDIT(1) , +(EDIT(1,I)).
103. END
104. . POP TOP OF STACK
105. POP* PROC
106. LXM,U XT,1,XT.
107. END
108. /. SET UP ATOMIC SYMBOL TO BE LOADED WITH SYSTEM
109. AT PROC
110. ATOM* NAME
111. AF FORM 18,12,6.
112. HT* FUNC . COMPUTE HASH TOTAL
113. X(1) EQU 0.
114. I DO AT(2) ,
115. J DO 6 ,
116. X(1) EQU X(1)+(AT(2,I)*/(6*J-36)**077).
117. END X(1).
118. $(2)
119. * AF AT(1,1),HT(0),AT(2).
120. + $(10).
121. $(10)
122. I DO AT(2) , + AT(2,I).
123. DO 1 , END
124. CHARAT* NAME
125. AF FORM 18,12,6.
126. X(1) EQU AT(1,1).
127. LOOP NAME
128. $(2) AF 0,X(1),1.
129. + $(10).
130. $(10) + X(1)*/30
131. X(1) EQU X(1)+1.
132. DO X(1)>AT(2,1) , END
133. GO LOOP
134. END
135. /. PARAMETERS TO DEFINE SYSTEM
136. . STACK SIZES
000000004000 137. STAKL EQU 2048. LENGTH OF VALUE STACK
000000002000 138. CSTKL EQU 1024. LENGTH OF CONTROL STACK
139. $(10)
10 000000 140. CSTK RES CSTKL+512. CONTROL STACK
000000040000 141. CSTAK EQU 040000
142. $(0)
0 000000 143. STK RES STAKL. VALUE STACK
000000040000 144. STACK EQU 040000.
145. . SETUP PAGE PARAMETERS
000000000007 146. PAGBIT EQU 7. PAGES ARE 128 WORDS LONG TODAY
000000000200 147. PAGSIZ EQU 1*/PAGBIT
000000377600 148. PAGMSK EQU (0377777*/-PAGBIT)*/PAGBIT
000000002000 149. PAGNUM EQU 1*/(17-PAGBIT)
000000000000 150. PAGLIS(2) EQU 0
000000000000 151. PAGLIS(1) EQU 0
152. . PROCEDURE TO GENERATE PAGES
153. PAGES* PROC
154. X EQU PAGES(1,2)
155. XXX(1) EQU PAGES(1,1)
156. $(X)
157. LOOP NAME
158. + PAGLIS(X)
159. DO XXX(2) ,PAGLIS*(X) EQU $-1
160. RES PAGSIZ-1
161. XXX(1) EQU XXX(1)-1
162. DO XXX(1)>0 , GO LOOP
163. XXX(2) EQU 1
164. END
165. . PROCEDURE NECESSARY AT END TO FINISH THINGS OFF
166. WINDUP* PROC
167. $(7)
168. ENDCHK* . END I-BANK CHECKSUM
169. $(6)
170. AVAIL* + PAGLIS(2). D-BANK AVAILABLE PAGE LIST
171. + PAGLIS(1) I-BANK '' '' ''
172. END
173. /. GENERATE AVAILABLE SPACE & ATOMS LOADED WITH SYSTEM
174. $(2)
2 000000 000000000000 175. PAGES 4,2
000200 000000000000
000400 000000000200
000600 000000000400
176. BEGAT
001000 001000 0000 01 177. NIL ATOM NIL 'NIL@@@'
001001 000000003000
10 003000 231621000000
00 16 00 00 0 001000 178. KNIL EQUF NIL,,U.
2 001002 775706 0000 01 179. QUOTE ATOM -EVQUOT 'QUOTE@'
001003 000000003001
10 003001 263224311200
2 001004 006443 0000 01 180. ATOM CONS 'CONS@@'
001005 000000003002
10 003002 102423300000
2 001006 006464 0000 01 181. ATOM EQ 'EQ@@@@'
001007 000000003003
10 003003 122600000000
2 001010 006447 0000 01 182. ATOM IFATOM 'ATOM@@'
001011 000000003004
10 003004 063124220000
2 001012 001643 0000 01 183. ATOM EVAL 'EVAL@@'
001013 000000003005
10 003005 123306210000
2 001014 775720 0006 01 184. ATOM -EVLAM 'LAMBDA'
001015 000000003006
10 003006 210622071106
2 001016 775702 0000 01 185. ATOM -EVCOND 'COND@@'
001017 000000003007
10 003007 102423110000
2 001020 775654 0000 01 186. ATOM -EVDO 'DO@@@@'
001021 000000003010
10 003010 112400000000
2 001022 002531 0000 01 187. ATOM PRINT 'PRINT@'
001023 000000003011
10 003011 252716233100
2 001024 003176 0000 01 188. ATOM PRINA 'PRIN1@'
001025 000000003012
10 003012 252716236100
2 001026 003510 0000 01 189. ATOM READ 'READ@@'
001027 000000003013
10 003013 271206110000
2 001030 003662 0000 01 190. ATOM TOKEN 'TOKEN@'
001031 000000003014
10 003014 312420122300
191. $(2)
192. CHARS .
2 001032 000046 0000 01 193. ATOM LPROG 0
001033 000000003015
10 003015 000000000000
2 001034 000000 0001 01 194. CHARAT 01 'E'
001035 000000003016
10 003016 010000000000
2 001036 000000 0002 01
001037 000000003017
10 003017 020000000000
2 001040 000000 0003 01
001041 000000003020
10 003020 030000000000
2 001042 000000 0004 01
001043 000000003021
10 003021 040000000000
2 001044 000000 0005 01
001045 000000003022
10 003022 050000000000
2 001046 000000 0006 01
001047 000000003023
10 003023 060000000000
2 001050 000000 0007 01
001051 000000003024
10 003024 070000000000
2 001052 000000 0010 01
001053 000000003025
10 003025 100000000000
2 001054 000000 0011 01
001055 000000003026
10 003026 110000000000
2 001056 000000 0012 01
001057 000000003027
10 003027 120000000000
2 001060 001000 0000 01 195. ATOM NIL 'F@@@@@'
001061 000000003030
10 003030 130000000000
2 001062 000000 0014 01 196. CHARAT 'G' 'S'
001063 000000003031
10 003031 140000000000
2 001064 000000 0015 01
001065 000000003032
10 003032 150000000000
2 001066 000000 0016 01
001067 000000003033
10 003033 160000000000
2 001070 000000 0017 01
001071 000000003034
10 003034 170000000000
2 001072 000000 0020 01
001073 000000003035
10 003035 200000000000
2 001074 000000 0021 01
001075 000000003036
10 003036 210000000000
2 001076 000000 0022 01
001077 000000003037
10 003037 220000000000
2 001100 000000 0023 01
001101 000000003040
10 003040 230000000000
2 001102 000000 0024 01
001103 000000003041
10 003041 240000000000
2 001104 000000 0025 01
001105 000000003042
10 003042 250000000000
2 001106 000000 0026 01
001107 000000003043
10 003043 260000000000
2 001110 000000 0027 01
001111 000000003044
10 003044 270000000000
2 001112 000000 0030 01
001113 000000003045
10 003045 300000000000
2 001114 001114 0000 01 197. TRU ATOM TRU 'T@@@@@'
001115 000000003046
10 003046 310000000000
2 001116 000000 0032 01 198. CHARAT 'U' 076
001117 000000003047
10 003047 320000000000
2 001120 000000 0033 01
001121 000000003050
10 003050 330000000000
2 001122 000000 0034 01
001123 000000003051
10 003051 340000000000
2 001124 000000 0035 01
001125 000000003052
10 003052 350000000000
2 001126 000000 0036 01
001127 000000003053
10 003053 360000000000
2 001130 000000 0037 01
001131 000000003054
10 003054 370000000000
2 001132 000000 0040 01
001133 000000003055
10 003055 400000000000
2 001134 000000 0041 01
001135 000000003056
10 003056 410000000000
2 001136 000000 0042 01
001137 000000003057
10 003057 420000000000
2 001140 000000 0043 01
001141 000000003060
10 003060 430000000000
2 001142 000000 0044 01
001143 000000003061
10 003061 440000000000
2 001144 000000 0045 01
001145 000000003062
10 003062 450000000000
2 001146 000000 0046 01
001147 000000003063
10 003063 460000000000
2 001150 000000 0047 01
001151 000000003064
10 003064 470000000000
2 001152 000000 0050 01
001153 000000003065
10 003065 500000000000
2 001154 000000 0051 01
001155 000000003066
10 003066 510000000000
2 001156 000000 0052 01
001157 000000003067
10 003067 520000000000
2 001160 000000 0053 01
001161 000000003070
10 003070 530000000000
2 001162 000000 0054 01
001163 000000003071
10 003071 540000000000
2 001164 000000 0055 01
001165 000000003072
10 003072 550000000000
2 001166 000000 0056 01
001167 000000003073
10 003073 560000000000
2 001170 000000 0057 01
001171 000000003074
10 003074 570000000000
2 001172 000000 0060 01
001173 000000003075
10 003075 600000000000
2 001174 000000 0061 01
001175 000000003076
10 003076 610000000000
2 001176 000000 0062 01
001177 000000003077
10 003077 620000000000
2 001200 000000 0063 01
001201 000000003100
10 003100 630000000000
2 001202 000000 0064 01
001203 000000003101
10 003101 640000000000
2 001204 000000 0065 01
001205 000000003102
10 003102 650000000000
2 001206 000000 0066 01
001207 000000003103
10 003103 660000000000
2 001210 000000 0067 01
001211 000000003104
10 003104 670000000000
2 001212 000000 0070 01
001213 000000003105
10 003105 700000000000
2 001214 000000 0071 01
001215 000000003106
10 003106 710000000000
2 001216 000000 0072 01
001217 000000003107
10 003107 720000000000
2 001220 000000 0073 01
001221 000000003110
10 003110 730000000000
2 001222 000000 0074 01
001223 000000003111
10 003111 740000000000
2 001224 000000 0075 01
001225 000000003112
10 003112 750000000000
2 001226 000000 0076 01
001227 000000003113
10 003113 760000000000
2 001230 001011 0000 01 199. ATOM LISP 'LISP@@'
001231 000000003114
10 003114 211630250000
2 001232 006557 0000 02 200. ATOM FUNARG 'FUNCTI','ON@@@@'
001233 000000003115
10 003115 133223103116
003116 242300000000
2 001234 771156 0000 02 201. ATOM -DEFSPEC 'DEFSPE','C@@@@@'
001235 000000003117
10 003117 111213302512
003120 100000000000
2 001236 771154 0010 01 202. ATOM -DEFMAC 'DEFMAC'
001237 000000003121
10 003121 111213220610
2 001240 007016 0000 01 203. ATOM MAPC 'MAPC@@'
001241 000000003122
10 003122 220625100000
2 001242 006422 0006 01 204. ATOM RPLACA 'RPLACA'
001243 000000003123
10 003123 272521061006
2 001244 006427 0011 01 205. ATOM RPLACD 'RPLACD'
001245 000000003124
10 003124 272521061011
2 001246 775475 0023 01 206. ATOM -EVRET 'RETURN'
001247 000000003125
10 003125 271231322723
2 001250 010176 0000 02 207. ATOM IFNUM 'NUMBER','P@@@@@'
001251 000000003126
10 003126 233222071227
003127 250000000000
2 001252 000051 0000 01 208. ATOM LISTEM-1 'LIST@@'
001253 000000003130
10 003130 211630310000
2 001254 006434 0000 01 209. ATOM NULL 'NULL@@'
001255 000000003131
10 003131 233221210000
2 001256 004721 0036 01 210. ATOM MEMORY 'MEMORY'
001257 000000003132
10 003132 221222242736
2 001260 010171 0000 01 211. ATOM ZEROP 'ZEROP@'
001261 000000003133
10 003133 371227242500
2 001262 007122 0000 01 212. ATOM EQUAL 'EQUAL@'
001263 000000003134
10 003134 122632062100
2 001264 010226 0000 02 213. ATOM GREAT 'GREATE','RP@@@@'
001265 000000003135
10 003135 142712063112
003136 272500000000
2 001266 010232 0000 01 214. ATOM LESS 'LESSP@'
001267 000000003137
10 003137 211230302500
2 001270 010235 0025 01 215. ATOM MINUSP 'MINUSP'
001271 000000003140
10 003140 221623323025
2 001272 010266 0000 01 216. ATOM PLUS 'PLUS@@'
001273 000000003141
10 003141 252132300000
2 001274 010273 0000 01 217. ATOM TIMES 'TIMES@'
001275 000000003142
10 003142 311622123000
2 001276 010320 0000 02 218. ATOM DIFFER 'DIFFER','ENCE@@'
001277 000000003143
10 003143 111613131227
003144 122310120000
2 001300 010324 0000 02 219. ATOM DIV 'QUOTIE','NT@@@@'
001301 000000003145
10 003145 263224311612
003146 233100000000
2 001302 010331 0000 02 220. ATOM REM 'REMAIN','DER@@@'
001303 000000003147
10 003147 271222061623
003150 111227000000
2 001304 775555 0000 01 221. ATOM -EVPROG 'PROG@@'
001305 000000003151
10 003151 252724140000
2 001306 775466 0000 01 222. ATOM -EVGO 'GO@@@@'
001307 000000003152
10 003152 142400000000
2 001310 002373 0000 01 223. ATOM SET 'SET@@@'
001311 000000003153
10 003153 301231000000
2 001312 006566 0022 01 224. ATOM GENSYM 'GENSYM'
001313 000000003154
10 003154 141223303622
2 001314 007264 0027 01 225. ATOM MEMBER 'MEMBER'
001315 000000003155
10 003155 221222071227
2 001316 007624 0011 01 226. ATOM APPEND 'APPEND'
001317 000000003156
10 003156 062525122311
2 001320 004177 0015 01 227. ATOM READCH 'READCH'
001321 000000003157
10 003157 271206111015
2 001322 007716 0000 01 228. ATOM INDEX 'INDEX@'
001323 000000003160
10 003160 162311123500
2 001324 007635 0000 01 229. ATOM NCONC 'NCONC@'
001325 000000003161
10 003161 231024231000
2 001326 775412 0000 01 230. ATOM -SETQ 'SETQ@@'
001327 000000003162
10 003162 301231260000
2 001330 010434 0000 01 231. ATOM LOGOR 'LOGOR@'
001331 000000003163
10 003163 212414242700
2 001332 010437 0027 01 232. ATOM LOGXOR 'LOGXOR'
001333 000000003164
10 003164 212414352427
2 001334 010442 0011 01 233. ATOM LOGAND 'LOGAND'
001335 000000003165
10 003165 212414062311
2 001336 010455 0000 02 234. ATOM LSHIFT 'LEFTSH','IFT@@@'
001337 000000003166
10 003166 211213313015
003167 161331000000
2 001340 003371 0016 01 235. ATOM TERPRI 'TERPRI'
001341 000000003170
10 003170 311227252716
2 001342 006434 0000 01 236. ATOM NULL 'NOT@@@'
001343 000000003171
10 003171 232431000000
2 001344 004203 0000 02 237. ATOM CLEARB 'CLEARB','UFF@@@'
001345 000000003172
10 003172 102112062707
003173 321313000000
2 001346 007750 0031 01 238. ATOM OBLIST 'OBLIST'
001347 000000003174
10 003174 240721163031
2 001350 007614 0015 01 239. ATOM LENGTH 'LENGTH'
001351 000000003175
10 003175 211223143115
2 001352 007446 0000 01 240. ATOM GET 'GET@@@'
001353 000000003176
10 003176 141231000000
2 001354 007424 0000 01 241. ATOM PUTP 'PUT@@@'
001355 000000003177
10 003177 253231000000
2 001356 010112 0023 01 242. ATOM SCODE '*BEGIN'
001357 000000003200
10 003200 500712141623
2 001360 010127 0000 01 243. ATOM ECODE '*EMIT@'
001361 000000003201
10 003201 501222163100
2 001362 010115 0000 01 244. ATOM ORG '*ORG@@'
001363 000000003202
10 003202 502427140000
2 001364 010164 0000 01 245. ATOM EPT '*EPT@@'
001365 000000003203
10 003203 501225310000
2 001366 010024 0000 01 246. ATOM IFSPEC '*SPEC@'
001367 000000003204
10 003204 503025121000
2 001370 775621 0000 01 247. ATOM -EVAND 'AND@@@'
001371 000000003205
10 003205 062311000000
2 001372 775632 0000 01 248. ATOM -EVOR 'OR@@@@'
001373 000000003206
10 003206 242700000000
2 001374 010051 0012 01 249. ATOM IFTYPE 'IFTYPE'
001375 000000003207
10 003207 161331362512
2 001376 006763 0000 02 250. ATOM ONTO 'MAPLIS','T@@@@@'
001377 000000003210
10 003210 220625211630
003211 310000000000
2 001400 007573 0012 01 251. ATOM DEFINE 'DEFINE'
001401 000000003212
10 003212 111213162312
2 001402 007566 0000 01 252. ATOM CSET 'CSET@@'
001403 000000003213
10 003213 103012310000
2 001404 770217 0000 01 253. ATOM -CSETQ 'CSETQ@'
001405 000000003214
10 003214 103012312600
2 001406 007167 0000 01 254. ATOM SUBST 'SUBST@'
001407 000000003215
10 003215 303207303100
2 001410 010262 0000 01 255. ATOM ADD1 'ADD1@@'
001411 000000003216
10 003216 061111610000
2 001412 010314 0000 01 256. ATOM SUB1 'SUB1@@'
001413 000000003217
10 003217 303207610000
2 001414 775713 0000 01 257. ATOM -EVFLAM 'LAMDA@'
001415 000000003220
10 003220 210622110600
2 001416 006412 0000 01 258. ATOM TCAR '*CAR@@'
001417 000000003221
10 003221 501006270000
2 001420 006416 0000 01 259. ATOM TCDR '*CDR@@'
001421 000000003222
10 003222 501011270000
2 001422 010206 0000 01 260. ATOM FIXP 'FIXP@@'
001423 000000003223
10 003223 131635250000
2 001424 010216 0025 01 261. ATOM FLOATP 'FLOATP'
001425 000000003224
10 003224 132124063125
2 001426 010401 0000 01 262. ATOM MINUS 'MINUS@'
001427 000000003225
10 003225 221623323000
2 001430 007461 0000 01 263. ATOM PROP 'PROP@@'
001431 000000003226
10 003226 252724250000
2 001432 007473 0000 02 264. ATOM REMPR 'REMPRO','P@@@@@'
001433 000000003227
10 003227 271222252724
003230 250000000000
2 001434 007652 0000 02 265. ATOM REVERS 'REVERS','E@@@@@'
001435 000000003231
10 003231 271233122730
003232 120000000000
2 001436 010414 0027 01 266. ATOM ENTIER 'ENTIER'
001437 000000003233
10 003233 122331161227
2 001440 007012 0000 01 267. ATOM MAP 'MAP@@@'
001441 000000003234
10 003234 220625000000
2 001442 006603 0000 01 268. ATOM AMB 'AMB@@@'
001443 000000003235
10 003235 062207000000
2 001444 006767 0000 01 269. ATOM INTO 'INTO@@'
001445 000000003236
10 003236 162331240000
2 001446 006763 0000 01 270. ATOM ONTO 'ONTO@@'
001447 000000003237
10 003237 242331240000
2 001450 007714 0000 01 271. ATOM ONDEX 'ONDEX@'
001451 000000003240
10 003240 242311123500
2 001452 005113 0000 01 272. ATOM DUMP 'DUMP@@'
001453 000000003241
10 003241 113222250000
2 001454 005663 0000 01 273. ATOM LODE 'LOAD@@'
001455 000000003242
10 003242 212406110000
2 001456 007516 0000 01 274. ATOM PFLAG 'FLAG@@'
001457 000000003243
10 003243 132106140000
2 001460 007530 0014 01 275. ATOM TFLAG 'IFFLAG'
001461 000000003244
10 003244 161313210614
2 001462 007542 0014 01 276. ATOM RFLAG 'UNFLAG'
001463 000000003245
10 003245 322313210614
2 001464 007606 0000 01 277. ATOM ERASE 'ERASE@'
001465 000000003246
10 003246 122706301200
2 001466 010026 0024 01 278. ATOM IFMAC '*MACRO'
001467 000000003247
10 003247 502206102724
2 001470 010045 0023 01 279. ATOM IFCHN '*CHAIN'
001471 000000003250
10 003250 501015061623
2 001472 010030 0000 01 280. ATOM IFDEF '*DEF@@'
001473 000000003251
10 003251 501112130000
2 001474 006767 0027 01 281. ATOM INTO 'MAPCAR'
001475 000000003252
10 003252 220625100627
2 001476 775605 0000 01 282. ATOM -EVSTAK 'STACK@'
001477 000000003253
10 003253 303106102000
2 001500 007261 0000 02 283. ATOM L1X 'MANIFE','ST@@@@'
001501 000000003254
10 003254 220623161312
003255 303100000000
2 001502 003235 0000 02 284. ATOM CURCOL 'CURRCO','L@@@@@'
001503 000000003256
10 003256 103227271024
003257 210000000000
2 001504 006703 0000 01 285. ATOM BREAK 'BREAK@'
001505 000000003260
10 003260 072712062000
2 001506 006733 0000 02 286. ATOM UNBREAK 'UNBREA','K@@@@@'
001507 000000003261
10 003261 322307271206
003262 200000000000
2 001510 001352 0000 02 287. ATOM REQUEST 'REQUES','T@@@@@'
001511 000000003263
10 003263 271226321230
003264 310000000000
2 001512 004205 0021 01 288. ATOM SETCOL 'SETCOL'
001513 000000003265
10 003265 301231102421
2 001514 003174 0000 01 289. ATOM PRINA-2 'PRIN2@'
001515 000000003266
10 003266 252716236200
2 001516 775574 0000 02 290. ATOM -EVTRY 'ATTEMP','T@@@@@'
001517 000000003267
10 003267 063131122225
003270 310000000000
2 001520 001425 0000 01 291. ATOM ERROR 'ERROR@'.
001521 000000003271
10 003271 122727242700
2 001522 004710 0000 01 292. ATOM TIMER 'TIME@@'.
001523 000000003272
10 003272 311622120000
2 001524 004261 0000 02 293. ATOM COMPRESS 'COMPRE','SS@@@@'.
001525 000000003273
10 003273 102422252712
003274 303000000000
2 001526 003316 0000 02 294. ATOM EXPLODE 'EXPLOD','E@@@@@'.
001527 000000003275
10 003275 123525212411
003276 120000000000
2 001530 003314 0000 02 295. ATOM EXPLODE-2 'EXPLOD','E2@@@@'.
001531 000000003277
10 003277 123525212411
003300 126200000000
2 001532 004717 0012 01 296. ATOM GCTIME 'GCTIME'.
001533 000000003301
10 003301 141031162212
2 001534 003274 0000 02 297. ATOM PLENGTH 'PLENGT','H@@@@@'.
001535 000000003302
10 003302 252112231431
003303 150000000000
2 001536 003272 0000 02 298. ATOM PLENGTH-2 'PLENGT','H2@@@@'.
001537 000000003304
10 003304 252112231431
003305 156200000000
2 001540 001444 0027 01 299. ATOM BACKTR 'BACKTR'.
001541 000000003306
10 003306 070610203127
2 001542 004723 0000 01 300. ATOM DATE 'DATE@@'
001543 000000003307
10 003307 110631120000
2 001544 004744 0000 01 301. ATOM DTIME 'DTIME@'
001545 000000003310
10 003310 113116221200
2 001546 007667 0000 01 302. ATOM NTH 'NTH@@@'
001547 000000003311
10 003311 233115000000
2 001550 007333 0000 01 303. ATOM ASSOC 'ASSOC@'
001551 000000003312
10 003312 063030241000
2 001552 002054 0000 01 304. ATOM ALIST 'ALIST@'
001553 000000003313
10 003313 062116303100
2 001554 010063 0000 01 305. ATOM EXAM '*EXAM@'
001555 000000003314
10 003314 501235062200
2 001556 010075 0000 02 306. ATOM DEPOSIT '*DEPOS','IT@@@@'
001557 000000003315
10 003315 501112252430
003316 163100000000
2 001560 004763 0000 01 307. ATOM GROW 'GROW@@'
001561 000000003317
10 003317 142724340000
2 001562 004747 0000 01 308. ATOM PACK '*PACK@'
001563 000000003320
10 003320 502506102000
2 001564 004216 0025 01 309. ATOM BACKSP 'BACKSP'
001565 000000003321
10 003321 070610203025
2 001566 004244 0000 02 310. ATOM READMC 'READMA','C@@@@@'
001567 000000003322
10 003322 271206112206
003323 100000000000
2 001570 004233 0000 01 311. ATOM DELIM 'DELIM@'
001571 000000003324
10 003324 111221162200
2 001572 004410 0014 01 312. ATOM GSTRNG 'STRING'
001573 000000003325
10 003325 303127162314
2 001574 004414 0007 01 313. ATOM GATSYM 'ATSYMB'
001575 000000003326
10 003326 063130362207
2 001576 003245 0031 01 314. ATOM PLIMIT 'PLIMIT'
001577 000000003327
10 003327 252116221631
2 001600 003500 0000 01 315. ATOM SPACE 'SPACE@'
001601 000000003330
10 003330 302506101200
2 001602 771304 0000 01 316. ATOM -EVKONS 'KONS@@'.
001603 000000003331
10 003331 202423300000
2 001604 006515 0000 01 317. ATOM GETCAR-1 'KAR@@@'.
001605 000000003332
10 003332 200627000000
2 001606 006536 0000 01 318. ATOM GETCDR-1 'KDR@@@'.
001607 000000003333
10 003333 201127000000 319. /$(2)
2 001610 320. ENDAT RES PAGSIZ-(($-BEGAT)**(PAGSIZ-1))
002000 000000000600 321. PAGES 100,2
002200 000000002000
002400 000000002200
002600 000000002400
003000 000000002600
003200 000000003000
003400 000000003200
003600 000000003400
004000 000000003600
004200 000000004000
004400 000000004200
004600 000000004400
005000 000000004600
005200 000000005000
005400 000000005200
005600 000000005400
006000 000000005600
006200 000000006000
006400 000000006200
006600 000000006400
007000 000000006600
007200 000000007000
007400 000000007200
007600 000000007400
010000 000000007600
010200 000000010000
010400 000000010200
010600 000000010400
011000 000000010600
011200 000000011000
011400 000000011200
011600 000000011400
012000 000000011600
012200 000000012000
012400 000000012200
012600 000000012400
013000 000000012600
013200 000000013000
013400 000000013200
013600 000000013400
014000 000000013600
014200 000000014000
014400 000000014200
014600 000000014400
015000 000000014600
015200 000000015000
015400 000000015200
015600 000000015400
016000 000000015600
016200 000000016000
016400 000000016200
016600 000000016400
017000 000000016600
017200 000000017000
017400 000000017200
017600 000000017400
020000 000000017600
020200 000000020000
020400 000000020200
020600 000000020400
021000 000000020600
021200 000000021000
021400 000000021200
021600 000000021400
022000 000000021600
022200 000000022000
022400 000000022200
022600 000000022400
023000 000000022600
023200 000000023000
023400 000000023200
023600 000000023400
024000 000000023600
024200 000000024000
024400 000000024200
024600 000000024400
025000 000000024600
025200 000000025000
025400 000000025200
025600 000000025400
026000 000000025600
026200 000000026000
026400 000000026200
026600 000000026400
027000 000000026600
027200 000000027000
027400 000000027200
027600 000000027400
030000 000000027600
030200 000000030000
030400 000000030200
030600 000000030400
031000 000000030600
031200 000000031000
031400 000000031200
031600 000000031400
032000 000000031600
032200 000000032000
032400 000000032200
032600 000000032400
322. $(8).
8 000000 323. WK0 RES 1
000001 324. SAVEA0 RES 2
000003 325. OPSHUN RES 1
000004 326. CKSUM RES 2
327. $(6)
6 000000 000000000000 328. + 0
00 15 00 00 0 000000 329. JUSTCG EQUF $-1,,S1. JUST FINISHED GARBAGE COLLECTION
00 14 00 00 0 000000 330. GROWN EQUF $-1,,S2. IBANK EXPANDED TO THE HILT
00 13 00 00 0 000000 331. INTFLG EQUF $-1,,S3. BREAK DURING GC
000001 777776 743776 332. STAKE + -1,STK-STACK+STAKL-1.
000002 000000 002000 333. CSTKE + 0,CSTKL.
334. /. TYPES OF NODES
000000000000 335. CONSED EQU 0. CONSED NODES, MUST ALWAYS BE 0
000000000001 336. INTGER EQU 1. INTEGERS
000000000002 337. OCTAL EQU 2. OCTALS
000000000003 338. REAL EQU 3. FLOATING POINT
000000000004 339. SYSTEM EQU 4. PAGES OUT OF BOUNDS
000000000005 340. CODE EQU 5. COMPILED CODE
000000000006 341. LINKER EQU 6. LINKAGE NODES
000000000007 342. SYMBOL EQU 7. ATOMIC SYMBOLS
000000000010 343. STRING EQU 8. STRINGS
000000000011 344. SUSP EQU 9. SUSPENDED EVALUATION
000000000011 345. MAXTYP EQU 9.
000000000012 346. NUMTYPS EQU MAXTYP+1.
347. . NODE SIZES
000000000001 348. SIZE(CONSED) EQU 1
000000000001 349. SIZE(INTGER) EQU 1
000000000001 350. SIZE(REAL) EQU 1
000000000001 351. SIZE(OCTAL) EQU 1
000000000002 352. SIZE(LINKER) EQU 2
000000000002 353. SIZE(SYMBOL) EQU 2
000000000001 354. SIZE(STRING) EQU 1
000000000001 355. SIZE(SUSP) EQU 1.
356. . NODE BANKS
000000000001 357. BANK(CODE) EQU 1. COMPILED CODE GOES INTO IBANK
358. . PROCEDURE TO MAKE TYPTAB ENTRY
359. IPRO* PROC
360. LMJ XR,GETPAG.
361. PAIR GP(I-1),PUT(I-1).
362. PF BANK(I-1),SIZE(I-1),I-1,0.
363. END
364. . GENERATE TYPE TABLE
365. $(4)
366. TYPTAB .
4 000000 74 13 07 00 0 000163 367. I DO NUMTYPS ,STORIT(I-1) IPRO.
000001 000242 000077
000002 00 01 00 000000
000003 74 13 07 00 0 000163
000004 000216 000100
000005 00 01 01 000000
000006 74 13 07 00 0 000163
000007 000216 000100
000010 00 01 02 000000
000011 74 13 07 00 0 000163
000012 000216 000100
000013 00 01 03 000000
000014 74 13 07 00 0 000163
000015 000000 000000
000016 00 00 04 000000
000017 74 13 07 00 0 000163
000020 000230 000121
000021 01 00 05 000000
000022 74 13 07 00 0 000163
000023 000242 000107
000024 00 02 06 000000
000025 74 13 07 00 0 000163
000026 000242 000110
000027 00 02 07 000000
000030 74 13 07 00 0 000163
000031 000242 000077
000032 00 01 10 000000
000033 74 13 07 00 0 000163
000034 000242 000077
000035 00 01 11 000000 368. /. SETUP NODE FLAGS
369. NFLAGS.
00 15 00 00 0 000036 370. NFLG1 EQUF NFLAGS,,S1. NODE CAN BE JUMPED TO
000000000001 371. NF1(SYSTEM) EQU 1
000000000001 372. NF1(LINKER) EQU 1
000000000001 373. NF1(CODE) EQU 1
00 14 00 00 0 000036 374. NFLG2 EQUF NFLAGS,,S2. DON'T FIX TYPTAB DURING TRASH
000000000001 375. NF2(CODE) EQU 1
000000000001 376. NF2(SYSTEM) EQU 1
00 13 00 00 0 000036 377. NFLG3 EQUF NFLAGS,,S3. TYPE IS A NUMBER
000000000001 378. NF3(INTGER) EQU 1
000000000001 379. NF3(OCTAL) EQU 1
000000000001 380. NF3(REAL) EQU 1
00 12 00 00 0 000036 381. NFLG4 EQUF NFLAGS,,S4. KEEP THIS TYPE PACKED
00 11 00 00 0 000036 382. NFLG5 EQUF NFLAGS,,S5. EQ TEST SUFFICIENT FOR TYPE
000000000001 383. NF5(SYSTEM) EQU 1
000000000001 384. NF5(CODE) EQU 1
000000000001 385. NF5(LINKER) EQU 1
000000000001 386. NF5(SYMBOL) EQU 1
387. . GENERATE NODE FLAG TABLE
388. I DO NUMTYPS ,
4 000036 000 000 000 000 389. + NF1(I-1),NF2(I-1),NF3(I-1),
000037 0000 0000 0000 390. NF4(I-1),NF5(I-1),NF6(I-1). 391. /. PAGE TABLE
392. $(4)
4 000040 393. PAGTAB RES PAGNUM
394. . HASH TABLE
395. HASH
002040 000000000000 396. DO 64 , + 0.
002041 000000000000
002042 000000000000
002043 000000000000
002044 000000000000
002045 000000000000
002046 000000000000
002047 000000000000
002050 000000000000
002051 000000000000
002052 000000000000
002053 000000000000
002054 000000000000
002055 000000000000
002056 000000000000
002057 000000000000
002060 000000000000
002061 000000000000
002062 000000000000
002063 000000000000
002064 000000000000
002065 000000000000
002066 000000000000
002067 000000000000
002070 000000000000
002071 000000000000
002072 000000000000
002073 000000000000
002074 000000000000
002075 000000000000
002076 000000000000
002077 000000000000
002100 000000000000
002101 000000000000
002102 000000000000
002103 000000000000
002104 000000000000
002105 000000000000
002106 000000000000
002107 000000000000
002110 000000000000
002111 000000000000
002112 000000000000
002113 000000000000
002114 000000000000
002115 000000000000
002116 000000000000
002117 000000000000
002120 000000000000
002121 000000000000
002122 000000000000
002123 000000000000
002124 000000000000
002125 000000000000
002126 000000000000
002127 000000000000
002130 000000000000
002131 000000000000
002132 000000000000
002133 000000000000
002134 000000000000
002135 000000000000
002136 000000000000
002137 000000000000 397. /. FUNCTION ENTRY & EXIT (STACK HANDLING ROUTINES)
398. $(3).
3 000000 06 02 02 03 0 037777 399. ENTRY SX,H1 XF,CSTAK-1,XC. SAVE FUNCTION BASE
000001 26 00 02 03 0 037777 400. LXM XF,CSTAK-1,XC. SET NEW FUNCTION BASE
000002 04 03 17 03 0 037777 401. S,RH XFLAG,CSTAK-1,XC. SET FLAG FOR EXIT
000003 74 04 00 00 0 000006 402. J ENTRYR+2.
000004 06 02 02 03 0 037777 403. ENTRYR SX,H1 XF,CSTAK-1,XC. SAVE FUNCTION BASE
000005 26 00 02 03 0 037777 404. LXM XF,CSTAK-1,XC. SET NEW FUNCTION BASE
000006 27 00 14 02 0 040000 405. LX XX,STACK,XF. ADDRESS OF FUNCTION
000007 06 00 04 02 0 040000 406. SX XL,STACK,XF. SAVE RETURN & ALIST
000010 74 13 04 14 0 000000 407. LMJ XL,0,XX. LINK TO FUNCTION
000011 27 00 04 02 0 040000 408. EXIT LX XL,STACK,XF. RESET RETURN & ALIST
000012 26 00 01 00 0 000002 409. LXM XT,XF. RESET TOP OF STACK
000013 26 02 02 03 0 037777 410. LXM,H1 XF,CSTAK-1,XC. RESET FUNCTION BASE
000014 60 03 00 03 0 037777 411. TP,RH CSTAK-1,XC. ENTERED VIA ENTRY OR ENTRYR?
000015 01 00 02 01 2 040000 412. STORE. ENTRY: PUSH VALUE ONTO STACK
000016 01 00 02 02 0 040000
000017 70 00 03 04 0 000000 413. JGD XC,0,XL. POP CSTAK & RETURN
414. . ENTRY FOR ITERATIVE FORMS (ALIAS TAIL-RECURSIONS)
000020 10 00 01 03 0 037777 415. ENTRYI L XY,CSTAK-1,XC. WHERE FUNCTION IS
000021 46 17 15 00 3 177776 416. LXI,XU XY,-1.
000022 06 00 01 03 0 037777 417. S XT,CSTAK-1,XC.
000023 27 00 01 00 0 000002 418. L XT,XF.
000024 25 16 01 00 0 000001 419. AN,U XT,1.
000025 10 00 00 15 2 040000 420. L XX,STACK,*XY. GET FUNCTION
000026 26 16 04 00 0 000011 421. LXM,U XL,EXIT. JUST IN CASE
000027 53 00 01 03 0 037777 422. TNE XY,CSTAK-1,XC. MORE ARGUMENTS?
000030 70 00 03 14 0 000000 423. JGD XC,0,XX. POP CSTAK AND GO TO FUNCTION
000031 10 00 02 15 2 040000 424. L XV,STACK,*XY. MOVE AN ARGUMENT UP IN THE STACK
000032 01 00 02 01 2 040000 425. S XV,STACK,*XT.
000033 74 04 00 00 0 000027 426. J $-4.
427. .
428. . ESTABLISH TRAP POINT
429. . LMJ XL,TRAP.
430. . XV = TRAP CHAIN
431. .
000034 06 03 05 03 0 040000 432. TRAP S,RH XP,CSTAK,XC.
000035 27 16 05 03 2 000000 433. L,U XP,0,*XC.
000036 06 04 01 03 0 040000 434. S,LH XT,CSTAK,XC.
000037 06 03 02 03 2 040000 435. S,RH XF,CSTAK,*XC.
000040 06 00 04 01 0 040000 436. S XL,STACK,XT.
000041 01 03 02 01 2 040000 437. S,RH XV,STACK,*XT.
000042 74 04 00 04 0 000000 438. J 0,XL.
439. .
440. . REMOVE TRAP POINT
441. . LMJ XL,UNTRAP.
442. .
000043 26 04 01 05 0 040001 443. UNTRAP LXM,LH XT,CSTAK+1,XP.
000044 26 03 02 05 0 040001 444. LXM,RH XF,CSTAK+1,XP.
000045 26 00 03 00 0 000005 445. LXM XC,XP.
000046 26 03 05 05 0 040000 446. LXM,RH XP,CSTAK,XP.
000047 46 04 04 01 0 040000 447. LXI,LH XL,STACK,XT.
000050 74 04 00 04 0 000000 448. J 0,XL.
449. /. MAKE LIST OF ELEMENTS IN STACK
3 000051 27 00 15 00 0 000002 450. LX XY,XF.
000052 12 03 02 02 0 037000 451. LISTEM LOAD NIL.
000053 12 16 02 00 0 001000
000054 27 00 14 00 0 000001 452. LX XX,XT.
000055 06 00 04 01 2 040000 453. SX XL,STACK,*XT.
000056 14 16 00 00 0 000001 454. A,U XX,1.
000057 10 00 03 00 0 000016 455. LA XV+1,XV.
000060 53 00 01 00 0 000014 456. TNE XY,XX.
000061 74 04 00 00 0 000065 457. J $+4.
000062 10 00 02 14 0 040000 458. LA XV,STACK,XX.
000063 74 13 04 00 0 000000 459. NODE CONSED
000064 74 04 00 00 0 000055 460. J LISTEM+3.
000065 27 00 04 01 0 040001 461. LX XL,STACK+1,XT.
000066 27 00 01 00 0 000014 462. L XT,XX.
000067 25 16 01 00 0 000001 463. AN,U XT,1.
000070 74 04 00 04 0 000000 464. J 0,XL.
465. . MOVE ELEMENTS OF LIST ONTO STACK
000071 53 16 02 00 0 001000 466. STAKEM TNE XV,KNIL.
000072 74 04 00 04 0 000000 467. J 0,XL.
000073 12 04 04 16 0 000000 468. UPPER XA.
000074 01 00 04 01 2 040000 469. SA XA,STACK,*XT.
000075 12 03 02 16 0 000000 470. LOWER XV.
000076 74 04 00 00 0 000071 471. J STAKEM.
472. /.
473. PUT(CONSED) . STORE CONSED NODE, XV=CAR, XV+1=CDR
474. PUT(STRING) . STORE STRING, XV=CHARS, XV+1=LINK
475. PUT(SUSP) . STORE SUSPENSION, EV=EXPR,XV+1=ALIST
3 000077 46 00 17 00 0 000016 476. LXI XV+1,XV. BUILD WORD
477. PUT(INTGER) . STORE NUMBER, XV+1=NUMBER
478. PUT(OCTAL)
479. PUT(REAL)
000100 27 03 16 07 0 000001 480. LX,RH XV,1,XR. NEXT AVAILABLE WORD
000101 10 00 06 16 0 000000 481. LA XXA,0,XV.
000102 01 03 06 07 0 000001 482. SA,RH XXA,1,XR.
000103 06 00 17 16 0 000000 483. SX XV+1,0,XV. STORE WORD
000104 14 16 17 00 0 000001 484. A,U XMCNT,1. UP MEMORY CNTR
000105 74 01 06 04 0 000000 485. JNZ XXA,0,XL. RETURN
000106 74 04 00 00 0 000157 486. J NUPAGE.
487. PUT(LINKER) . STORE LINKAGE NODE, XV=2ND WORD,XV+1=JUMPTO
000107 46 04 17 00 0 000323 488. LXI,LH XV+1,(LMJ XL,BADI).
489. PUT(SYMBOL) . STORE ATOMIC SYMBOL, XV=PNAME, XV+1=PROP LIST
000110 27 00 10 00 0 000016 490. LX XW,XV.
000111 27 03 16 07 0 000001 491. LX,RH XV,1,XR.
000112 10 00 06 16 0 000000 492. LA XXA,0,XV.
000113 01 03 06 07 0 000001 493. SA,RH XXA,1,XR.
000114 06 00 10 16 0 000001 494. SX XW,1,XV.
000115 01 00 03 16 0 000000 495. SA XV+1,0,XV.
000116 14 16 17 00 0 000002 496. A,U XMCNT,2. UP MEMORY CNTR
000117 74 01 06 04 0 000000 497. JNZ XXA,0,XL.
000120 74 04 00 00 0 000157 498. J NUPAGE.
499. /. EMIT COMPILED CODE, XV+1 = INSTRUCTION.
500. PUT(CODE)
3 000121 10 03 02 00 0 000003 501. LA,RH XV,T5REC. ADD OF INST
000122 01 00 03 16 0 000000 502. SA XV+1,0,XV.
000123 10 04 00 00 0 000004 503. LA,LH XX,T5REC+1.
000124 74 00 00 00 0 000127 504. JZ XX,$+3. IS JUMP TO BE PLUGGED?
000125 01 03 02 14 0 000000 505. SA,RH XV,0,XX.
000126 05 04 00 00 0 000004 506. SZ,LH T5REC+1.
000127 51 03 00 00 0 000004 507. TNZ,RH T5REC+1.
000130 01 03 02 00 0 000004 508. SA,RH XV,T5REC+1. CAPTURE BEGINNING ADDRESS
000131 10 00 00 00 0 000003 509. LA XX,T5REC.
000132 72 04 00 00 0 000324 510. AH XX,(-1,1). TO NEXT WORD
000133 01 00 00 00 0 000003 511. SA XX,T5REC.
000134 14 16 17 00 0 000001 512. A,U XMCNT,1. UP MEMORY CNTR
000135 50 04 00 00 0 000003 513. TZ,LH T5REC. LAST WORD IN BLOCK?
000136 74 04 00 04 0 000000 514. J 0,XL.
000137 10 03 00 00 0 000005 515. LA,RH XX,T5REC+2.
000140 74 00 00 00 0 000146 516. JZ XX,P5NP.
000141 46 04 14 14 0 000000 517. LXI,LH XX,0,XX. SET FOR NEXT BLOCK
000142 06 00 14 00 0 000003 518. SX XX,T5REC.
000143 27 03 14 14 0 000000 519. LX,RH XX,0,XX.
000144 06 03 14 00 0 000005 520. SX,RH XX,T5REC+2.
000145 74 04 00 00 0 000150 521. J P5CJ.
000146 10 16 00 00 0 000163 522. P5NP LA,U XX,GETPAG.
000147 01 03 00 00 0 000017 523. SA,RH XX,STORIT(CODE). SET TO GET NEW PAGE
000150 10 04 00 00 0 000325 524. P5CJ LA,LH XX,(J BADI).
000151 53 04 00 16 0 000000 525. TNE,LH XX,0,XV. INST NOT A JUMP?
000152 74 04 00 04 0 000000 526. J 0,XL.
000153 10 00 00 00 0 000325 527. LA XX,(J BADI).
000154 01 00 00 16 0 000000 528. SA XX,0,XV. PUT JUMP
000155 01 04 02 00 0 000004 529. SA,LH XV,T5REC+1. SET PLUGGER
000156 74 04 00 00 0 000017 530. J STORIT(CODE). RE-EMIT INSTRUCTION
531. $(6).
6 000003 000000000000 532. T5REC +0
000004 000000000000 533. +0
000005 000000000000 534. +0
535. $(3).
536. /. SET TRAP FOR NEW PAGE NEXT TIME
3 000157 25 16 07 00 0 000001 537. NUPAGE ANX,U XR,1.
000160 10 16 06 00 0 000163 538. LA,U XXA,GETPAG.
000161 01 03 06 07 0 000000 539. SA,RH XXA,0,XR.
000162 74 04 00 04 0 000000 540. J 0,XL.
541. . CREATE NEW PAGE
000163 71 12 02 00 0 000012 542. GETPAG DS XV,GCXV.
000164 27 15 10 07 0 000001 543. L,S1 XW,1,XR.
000165 10 00 02 10 0 000321 544. L XV,AVAIL,XW.
000166 50 16 00 10 0 000000 545. TZ,U 0,XW. DBANK PREFERRED?
000167 74 04 00 00 0 000260 546. J GPIBANK.
000170 74 00 02 00 0 000252 547. JZ XV,GPNODB. NO PAGES LEFT?
000171 50 15 00 00 0 000000 548. TZ JUSTCG.
000172 74 04 00 00 0 000176 549. J GPOK.
000173 10 13 03 07 0 000001 550. L,S3 XV+1,1,XR.
000174 50 12 00 17 0 000036 551. TZ NFLG4,XV+1. SHALL WE KEEP IT PACKED?
000175 74 04 00 00 0 000314 552. J TRASH. YES, COLLECT GARBAGE
000176 05 15 00 00 0 000000 553. GPOK SZ JUSTCG.
000177 10 00 03 16 0 000000 554. LA XV+1,0,XV.
000200 01 00 03 10 0 000321 555. SA XV+1,AVAIL,XW.
000201 20 16 02 00 0 000200 556. AU,U XV,PAGSIZ.
000202 01 00 03 00 0 000000 557. SA XV+1,WK0.
000203 42 16 02 00 1 177600 558. AND,U XV,PAGMSK.
000204 73 02 03 00 0 000007 559. SSL XV+1,PAGBIT.
000205 25 16 07 00 0 000001 560. ANX,U XR,1.
000206 27 04 10 07 0 000002 561. LX,LH XW,2,XR.
000207 06 04 10 17 0 000040 562. SX,LH XW,PAGTAB,XV+1. PLANT TYPE IN PAGE TABLE
000210 27 00 10 07 0 000001 563. LX XW,1,XR.
000211 06 03 10 07 0 000000 564. SX,RH XW,0,XR. PLUG STORAGE JUMP
000212 27 04 17 07 0 000001 565. LX,LH XV+1,1,XR.
000213 24 16 07 00 0 000001 566. AX,U XR,1.
000214 10 16 06 00 0 000000 567. LA,U XXA,0.
000215 74 04 00 17 0 000000 568. J 0,XV+1. INITIALIZE PAGE
569. GP(INTGER) . INITIALIZE PAGE OF NUMBERS
570. GP(OCTAL)
571. GP(REAL)
000216 05 00 00 16 0 000000 572. SZ 0,XV.
000217 14 16 02 00 0 000001 573. AA,U XV,1.
000220 01 00 06 16 0 000000 574. SA XXA,0,XV.
000221 10 00 06 00 0 000016 575. LA XXA,XV.
000222 14 16 02 00 0 000001 576. AA,U XV,1.
000223 42 16 02 00 0 000037 577. AND,U XV,037.
000224 74 01 03 00 0 000220 578. JNZ XV+1,GP(REAL)+2.
000225 52 00 02 00 0 000000 579. TE XV,WK0.
000226 74 04 00 00 0 000216 580. J GP(REAL).
000227 74 04 00 00 0 000247 581. J GPOUT.
582. GP(CODE) . INITIALIZE PAGE OF COMPILED CODE
000230 46 16 16 00 0 000200 583. LXI,U XV,PAGSIZ.
000231 06 00 16 00 0 000003 584. SX XV,T5REC.
000232 05 03 00 00 0 000005 585. SZ,RH T5REC+2.
000233 23 16 01 00 0 000176 586. LR,U R1,PAGSIZ-2.
000234 05 00 00 16 0 000000 587. SZ 0,XV.
000235 24 16 16 00 0 000001 588. AX,U XV,1.
000236 70 04 01 00 0 000234 589. JGD R1,$-2.
000237 10 00 00 00 0 000325 590. LA XX,(J BADI).
000240 01 00 00 16 0 000000 591. SA XX,0,XV.
000241 74 04 00 00 0 000247 592. J GPOUT.
593. GP(CONSED) . INITIALIZE OTHER PAGES
594. GP(LINKER)
595. GP(SYMBOL)
596. GP(STRING)
597. GP(SUSP)
000242 01 00 06 16 0 000000 598. SA XXA,0,XV.
000243 10 00 06 00 0 000016 599. LA XXA,XV.
000244 14 14 02 07 0 000001 600. AA,S2 XV,1,XR.
000245 52 00 02 00 0 000000 601. TE XV,WK0.
000246 74 04 00 00 0 000242 602. J GP(SYMBOL)
000247 01 03 06 07 0 000001 603. GPOUT SA,RH XXA,1,XR.
000250 71 13 02 00 0 000012 604. DL XV,GCXV.
000251 74 04 00 10 0 000000 605. J 0,XW.
000252 51 15 00 00 0 000000 606. GPNODB TNZ JUSTCG.
000253 74 04 00 00 0 000314 607. J TRASH.
000254 27 16 10 00 0 000001 608. L,U XW,1.
000255 10 00 02 10 0 000321 609. L XV,AVAIL,XW. TRY IBANK
000256 74 01 02 00 0 000176 610. JNZ XV,GPOK.
000257 74 04 00 00 0 000314 611. J TRASH.
000260 74 01 02 00 0 000176 612. GPIBANK JNZ XV,GPOK.
000261 50 14 00 00 0 000000 613. TZ GROWN. IBANK SWOLLEN?
000262 74 04 00 00 0 000305 614. J GPNOIB. YES
000263 71 12 00 00 0 000001 615. DS A0,SAVEA0.
000264 10 02 01 00 0 000251 616. L,H1 XV-1,BANKENDS.
000265 40 16 01 00 0 000177 617. OR,U XV-1,PAGSIZ-1.
000266 14 16 02 00 0 000001 618. A,U XV,1.
000267 40 16 02 00 0 000777 619. OR,U XV,0777.
000270 10 16 00 17 0 005000 620. L,U XX,5*01000,XV+1.
U 000271 54 16 00 00 3 173776 621. TNG,U XX,FRSTD$-04001.
000272 74 04 00 00 0 000275 622. J $+3.
000273 04 14 17 00 0 000000 623. S XFLAG,GROWN.
U 000274 10 16 00 00 3 176776 624. L,U XX,FRSTD$-01001.
000275 01 02 00 00 0 000251 625. S,H1 XX,BANKENDS.
000276 10 16 03 14 0 000001 626. L,U XV+1,1,XX.
U 000277 72 11 00 00 0 000000 627. ER MCORE$. ADD 5 CORE BLOCKS TO IBANK
000300 10 16 01 00 0 000000 628. L,U XV-1,0.
000301 74 13 14 00 0 005014 629. LMJ XX,MAKPAG. BUILD AVAILABLE PAGE LIST
000302 01 00 01 00 0 000322 630. S XV-1,AVAIL+1.
000303 71 13 00 00 0 000001 631. DL A0,SAVEA0.
000304 74 04 00 00 0 000164 632. J GETPAG+1. AND TRY AGAIN
000305 51 15 00 00 0 000000 633. GPNOIB TNZ JUSTCG.
000306 74 04 00 00 0 000314 634. J TRASH.
000307 27 16 10 00 0 000000 635. L,U XW,0. TRY DBANK
000310 10 00 02 10 0 000321 636. L XV,AVAIL,XW.
000311 54 16 02 00 1 000000 637. TNG,U XV,0200000. IF BEFORE 65K.
000312 74 04 00 00 0 000176 638. J GPOK.
000313 74 04 00 00 0 000602 639. J EXHAUST. THAT'S ALL FOLKS 640. /. COMMENCE GARBAGE COLLECTION
3 000314 06 00 06 00 0 000006 641. TRASH SX XI,GCXI. SAVE REGISTERS
000315 06 00 04 00 0 000007 642. SX XL,GCXL.
000316 71 12 00 00 0 000010 643. DS XX,GCXX.
000317 71 12 04 00 0 000014 644. DS XA,GCXA.
000320 01 00 06 00 0 000016 645. SA XA+2,GCXA+2.
U 000321 72 11 00 00 0 000000 646. ER CPU$.
000322 01 00 00 00 0 000007 647. SA A0,GTIME+1.
000323 27 16 06 00 0 000077 648. LX,U XI,63.
000324 10 03 02 06 0 002040 649. LA,RH XV,HASH,XI. MARK FROM HASH TABLE
000325 74 13 04 00 0 000637 650. LMJ XL,MARK.
000326 70 00 06 00 0 000324 651. JGD XI,$-2.
000327 27 00 06 00 0 000001 652. LX XI,STAKE.
000330 12 03 02 06 0 040000 653. MRKL LMA,RH XV,STACK,XI. MARK FROM STACK
000331 74 13 04 00 0 000637 654. LMJ XL,MARK.
000332 12 04 02 06 2 040000 655. LMA,LH XV,STACK,*XI.
000333 74 13 04 00 0 000637 656. LMJ XL,MARK.
000334 10 00 04 00 0 000006 657. LA XA,XI.
000335 52 00 04 00 0 000001 658. TE XA,XT.
000336 74 04 00 00 0 000330 659. J MRKL.
000337 12 04 02 00 0 000007 660. LMA,LH XV,GCXL.
000340 74 13 04 00 0 000637 661. LMJ XL,MARK. MARK ASSOCIATION LIST
000341 12 03 02 00 0 000004 662. LMA,RH XV,T5REC+1.
000342 74 13 04 00 0 000637 663. LMJ XL,MARK. MARK BEGIN ADDR FOR CODE
000343 10 00 02 00 0 000043 664. L XV,APQ.
000344 74 13 04 00 0 000637 665. LMJ XL,MARK. MARK FILES TO CLOSE
000345 10 04 02 00 0 000024 666. L,LH XV,XREGS+XL.
000346 74 13 04 00 0 000637 667. LMJ XL,MARK. MARK BACKUP A-LIST
000347 27 16 06 00 0 000077 668. LX,U XI,63.
000350 10 03 02 06 0 000113 669. LA,RH XV,DELIMS,XI. MARK READMACROS
000351 74 13 04 00 0 000637 670. LMJ XL,MARK.
000352 70 00 06 00 0 000350 671. JGD XI,$-2.
000353 10 13 00 07 0 000001 672. LA,S3 XX,1,XR. MARK CURRENT OBJECT
000354 74 04 00 14 0 000355 673. J $+1,XX.
000355 74 04 00 00 0 000377 674. I DO NUMTYPS , J PN(I-1)
000356 74 04 00 00 0 000403
000357 74 04 00 00 0 000403
000360 74 04 00 00 0 000403
000361 74 04 00 00 0 000000
000362 74 04 00 00 0 000376
000363 74 04 00 00 0 000367
000364 74 04 00 00 0 000377
000365 74 04 00 00 0 000374
000366 74 04 00 00 0 000377
675. PN(LINKER)
000367 10 00 04 00 0 000013 676. LA XA,GCXV+1.
000370 53 16 04 00 0 006346 677. TNE,U XA,FOLLOW.
000371 74 04 00 00 0 000403 678. J PN(REAL).
000372 12 04 02 00 0 000012 679. LMA,LH XV,GCXV.
000373 74 04 00 00 0 000400 680. J PN(CONSED)+1.
681. PN(STRING)
000374 12 03 02 00 0 000013 682. LMA,RH XV,GCXV+1.
000375 74 04 00 00 0 000402 683. J PN(INTGER)-1.
684. PN(CODE)
000376 05 00 00 00 0 000012 685. SZ GCXV.
686. PN(CONSED)
687. PN(SYMBOL)
688. PN(SUSP)
000377 12 03 02 00 0 000013 689. LMA,RH XV,GCXV+1.
000400 74 13 04 00 0 000637 690. LMJ XL,MARK.
000401 12 03 02 00 0 000012 691. LMA,RH XV,GCXV.
000402 74 13 04 00 0 000637 692. LMJ XL,MARK.
693. PN(INTGER)
694. PN(OCTAL)
695. PN(REAL)
696. .
697. . SWEEP MEMORY TO GATHER GARBAGE
000403 10 16 00 00 0 000011 698. L,U XX,NUMTYPS-1.
000404 05 00 00 14 0 000011 699. SZ NAVS,XX.
000405 70 00 14 00 0 000404 700. JGD XX,$-1.
000406 27 16 06 00 0 001777 701. L,U XI,PAGNUM-1.
000407 10 13 00 06 0 000040 702. BROOM LA,S3 XX,PAGTAB,XI. SCAN PAGE TABLE
000410 10 03 04 14 0 000011 703. LA,RH XA,NAVS,XX.
000411 10 16 05 00 0 000100 704. LA,U XA+1,PAGSIZ/2.
000412 10 00 02 00 0 000006 705. LA XV,XI.
000413 73 12 02 00 0 000007 706. LSSL XV,PAGBIT.
000414 20 16 02 00 0 000200 707. AU,U XV,PAGSIZ.
000415 74 04 00 14 0 000416 708. SWB J $+1,XX. BRAKOUT TO SWEEP PAGE
000416 74 04 00 00 0 000504 709. I DO NUMTYPS , J SWEEP(I-1)
000417 74 04 00 00 0 000446
000420 74 04 00 00 0 000446
000421 74 04 00 00 0 000446
000422 74 04 00 00 0 000535
000423 74 04 00 00 0 000465
000424 74 04 00 00 0 000442
000425 74 04 00 00 0 000430
000426 74 04 00 00 0 000471
000427 74 04 00 00 0 000504
710. SWEEP(SYMBOL)
000430 10 04 06 16 0 000001 711. LA,LH XA+2,1,XV.
000431 74 03 06 00 0 000435 712. JN XA+2,$+4. ACTIVE?
000432 01 00 04 16 0 000000 713. SWP7 SA XA,0,XV.
000433 10 00 04 00 0 000016 714. LA XA,XV.
000434 70 01 01 00 0 000436 715. JGD XA+1,$+2.
000435 02 04 06 16 0 000001 716. SNA,LH XA+2,1,XV.
000436 14 16 02 00 0 000002 717. AA,U XV,2.
000437 52 00 02 00 0 000017 718. TE XV,XV+1.
000440 74 04 00 14 0 000416 719. J SWB+1,XX.
000441 74 04 00 00 0 000516 720. J SWEEPN.
721. SWEEP(LINKER)
000442 10 03 06 16 0 000000 722. LA,RH XA+2,0,XV.
000443 74 02 06 00 0 000432 723. JP XA+2,SWP7.
000444 02 03 06 16 0 000000 724. SNA,RH XA+2,0,XV.
000445 74 04 00 00 0 000436 725. J SWP7+4.
726. SWEEP(INTGER)
727. SWEEP(REAL)
728. SWEEP(OCTAL)
000446 10 16 05 00 0 000174 729. LA,U XA+1,PAGSIZ-PAGSIZ/32.
000447 01 00 03 00 0 000017 730. SA XV+1,GCWK0.
000450 10 00 06 16 0 000000 731. SWP1 LA XA+2,0,XV.
000451 05 00 00 16 0 000000 732. SZ 0,XV.
000452 14 16 02 00 0 000001 733. AA,U XV,1.
000453 72 03 06 00 0 000457 734. JNS XA+2,$+4. ACTIVE?
000454 01 00 04 16 0 000000 735. SA XA,0,XV.
000455 10 00 04 00 0 000016 736. LA XA,XV.
000456 15 16 05 00 0 000001 737. ANA,U XA+1,1.
000457 14 16 02 00 0 000001 738. AA,U XV,1.
000460 42 16 02 00 0 000037 739. AND,U XV,037.
000461 74 01 03 00 0 000453 740. JNZ XV+1,SWP1+3.
000462 52 00 02 00 0 000017 741. TE XV,GCWK0.
000463 74 04 00 00 0 000450 742. J SWP1.
000464 74 04 00 00 0 000516 743. J SWEEPN.
744. SWEEP(CODE)
000465 51 03 00 06 0 000040 745. TNZ,RH PAGTAB,XI.
000466 74 04 00 00 0 000525 746. J SWEEPR+1.
000467 05 03 00 06 0 000040 747. SZ,RH PAGTAB,XI.
000470 74 04 00 00 0 000535 748. J SWEEP(SYSTEM)
749. SWEEP(STRING)
000471 10 16 05 00 0 000200 750. LA,U XA+1,PAGSIZ.
000472 10 03 06 16 0 000000 751. LA,RH XA+2,0,XV.
000473 74 03 06 00 0 000477 752. JN XA+2,$+4.
000474 01 00 04 16 0 000000 753. SA XA,0,XV.
000475 10 00 04 00 0 000016 754. LA XA,XV.
000476 70 01 01 00 0 000500 755. JGD XA+1,$+2.
000477 02 03 06 16 0 000000 756. SNA,RH XA+2,0,XV.
000500 14 16 02 00 0 000001 757. AA,U XV,1.
000501 52 00 02 00 0 000017 758. TE XV,XV+1.
000502 74 04 00 00 0 000472 759. J SWEEP(STRING)+1.
000503 74 04 00 00 0 000516 760. J SWEEPN.
761. SWEEP(CONSED)
762. SWEEP(SUSP)
000504 10 16 05 00 0 000200 763. LA,U XA+1,PAGSIZ.
000505 10 04 06 16 0 000000 764. LA,LH XA+2,0,XV.
000506 74 03 06 00 0 000512 765. JN XA+2,$+4.
000507 01 00 04 16 0 000000 766. SA XA,0,XV.
000510 10 00 04 00 0 000016 767. LA XA,XV.
000511 70 01 01 00 0 000513 768. JGD XA+1,$+2.
000512 02 04 06 16 0 000000 769. SNA,LH XA+2,0,XV.
000513 14 16 02 00 0 000001 770. AA,U XV,1.
000514 52 00 02 00 0 000017 771. TE XV,XV+1.
000515 74 04 00 00 0 000505 772. J SWEEP(CONSED)+1.
000516 74 00 05 00 0 000524 773. SWEEPN JZ XA+1,SWEEPR. ENTIRE PAGE GARBAGE?
000517 01 03 05 06 0 000040 774. SA,RH XA+1,PAGTAB,XI.
000520 14 04 05 14 0 000011 775. AA,LH XA+1,NAVS,XX.
000521 01 04 05 14 0 000011 776. SA,LH XA+1,NAVS,XX.
000522 01 03 04 14 0 000011 777. SA,RH XA,NAVS,XX.
000523 74 04 00 00 0 000535 778. J SWEEP(SYSTEM)
000524 15 16 02 00 0 000200 779. SWEEPR ANA,U XV,PAGSIZ.
000525 27 16 17 00 0 000000 780. LX,U XV+1,0.
U 000526 54 16 02 00 0 000000 781. TNG,U XV,FRSTD$
000527 27 16 17 00 0 000001 782. LX,U XV+1,1.
000530 10 00 04 17 0 000321 783. LA XA,AVAIL,XV+1. ADD TO AVAILABLE PAGE LIST
000531 01 00 04 16 0 000000 784. SA XA,0,XV.
000532 01 00 02 17 0 000321 785. SA XV,AVAIL,XV+1.
000533 10 00 04 00 0 000326 786. LA XA,(SYSTEM*/18).
000534 01 00 04 06 0 000040 787. SA XA,PAGTAB,XI.
788. SWEEP(SYSTEM)
000535 70 00 06 00 0 000407 789. JGD XI,BROOM. AND ON TO NEXT PAGE
000536 27 00 06 00 0 000327 790. LX XI,(-3,3*MAXTYP).
000537 10 03 00 00 0 000010 791. LA,RH XX,GCNUM.
000540 14 16 00 00 0 000001 792. AA,U XX,1.
000541 01 00 00 00 0 000010 793. SA XX,GCNUM.
000542 10 13 00 06 0 000002 794. GCDL LA,S3 XX,TYPTAB+2,XI.
000543 50 14 00 14 0 000036 795. TZ NFLG2,XX.
000544 74 04 00 00 0 000553 796. J GCDN.
000545 10 03 04 14 0 000011 797. LA,RH XA,NAVS,XX. NEW SPACE LIST
000546 10 16 02 00 0 000163 798. LA,U XV,GETPAG.
000547 74 00 04 00 0 000551 799. JZ XA,$+2.
000550 10 03 02 06 0 000001 800. LA,RH XV,TYPTAB+1,XI.
000551 01 03 04 06 0 000002 801. SA,RH XA,TYPTAB+2,XI.
000552 01 03 02 06 0 000000 802. SA,RH XV,TYPTAB,XI.
000553 74 12 06 00 0 000542 803. GCDN JMGI XI,GCDL.
U 000554 72 11 00 00 0 000000 804. ER CPU$.
000555 15 00 00 00 0 000007 805. ANA A0,GTIME+1.
000556 14 00 00 00 0 000006 806. AA A0,GTIME.
000557 01 00 00 00 0 000006 807. SA A0,GTIME.
000560 05 00 00 00 0 000007 808. SZ GTIME+1.
000561 25 16 07 00 0 000001 809. ANX,U XR,1.
000562 27 00 06 00 0 000006 810. LX XI,GCXI.
000563 27 00 04 00 0 000007 811. LX XL,GCXL.
000564 50 13 00 00 0 000000 812. TZ INTFLG.
000565 74 04 00 00 0 001247 813. J IINTDO. GO DO DELAYED BREAK
000566 71 13 00 00 0 000010 814. DL XX,GCXX.
000567 71 13 02 00 0 000012 815. DL XV,GCXV.
000570 71 13 04 00 0 000014 816. DL XA,GCXA.
000571 10 00 06 00 0 000016 817. LA XA+2,GCXA+2.
000572 50 03 00 07 0 000002 818. TZ,RH 2,XR.
000573 74 04 00 07 0 000000 819. J 0,XR.
000574 50 15 00 00 0 000000 820. TZ JUSTCG.
000575 74 04 00 00 0 000602 821. J EXHAUST.
000576 04 15 17 00 0 000000 822. S XFLAG,JUSTCG.
000577 51 00 00 00 0 000321 823. TNZ AVAIL.
000600 50 00 00 00 0 000322 824. TZ AVAIL+1.
000601 74 04 00 07 0 000000 825. J 0,XR.
000602 10 00 05 00 0 000003 826. EXHAUST L A5,OPSHUN.
000603 44 16 05 00 0 000004 827. TEP,U A5,1*/('Z'-'X').
U 000604 72 11 00 00 0 000000 828. ER ERR$. STOP NOW IF X OPTION
000605 10 16 00 00 0 000330 829. P$RINT (PF 0,2,4,MESS1).
000606 10 00 00 14 0 000000
U 000607 72 11 00 00 0 000000
000610 27 16 06 00 0 000011 830. L,U XI,NUMTYPS-1.
000611 27 00 11 00 0 000331 831. L XO,(1,0).
000612 10 04 05 06 0 000011 832. EXHLP L,LH A5,NAVS,XI.
000613 10 00 07 00 0 000332 833. L A7,(' ').
000614 01 00 07 11 0 000050 834. S A7,LINE,XO.
000615 10 16 06 06 0 000060 835. L,U A6,'0',XI.
000616 01 11 06 11 2 000050 836. S,S5 A6,LINE,*XO.
000617 73 05 05 00 0 000044 837. DSA A5,36.
000620 34 16 05 00 0 000012 838. DI,U A5,10.
000621 14 16 06 00 0 000060 839. A,U A6,'0'.
000622 73 03 06 00 0 000006 840. DSL A6,6.
000623 74 01 05 00 0 000617 841. JNZ A5,$-4.
000624 01 00 07 11 2 000050 842. S A7,LINE,*XO.
000625 70 00 06 00 0 000612 843. JGD XI,EXHLP.
000626 10 00 00 00 0 000333 844. L A0,(PF 0,2,2*NUMTYPS,LINE).
U 000627 72 11 00 00 0 000000 845. ER PRINT$.
000630 27 16 11 00 0 000000 846. L,U XO,0.
000631 74 04 00 00 0 001416 847. J SYSERR.
000632 221222242736 848. MESS1 'MEMORY IS EXHAUSTED'
000633 051630051235
000634 150632303112
000635 110505050505
849. /. MARKING SUBROUTINE
3 000636 27 00 16 00 0 000014 850. LX XV,XX.
000637 06 00 04 01 2 040000 851. MARK SX XL,STACK,*XT.
000640 06 04 16 01 0 040001 852. SX,LH XV,STACK+1,XT.
000641 42 16 02 00 1 177600 853. AND,U XV,PAGMSK.
000642 73 02 03 00 0 000007 854. SSL XV+1,PAGBIT.
000643 10 13 00 17 0 000040 855. LA,S3 XX,PAGTAB,XV+1.
000644 74 04 00 14 0 000645 856. MRKB J $+1,XX.
000645 74 04 00 00 0 000705 857. I DO NUMTYPS , J MRK(I-1).
000646 74 04 00 00 0 000672
000647 74 04 00 00 0 000672
000650 74 04 00 00 0 000672
000651 74 04 00 00 0 000701
000652 74 04 00 00 0 000737
000653 74 04 00 00 0 000722
000654 74 04 00 00 0 000657
000655 74 04 00 00 0 000713
000656 74 04 00 00 0 000705
858. MRK(SYMBOL)
000657 74 11 02 00 0 000723 859. JB XV,MRK(LINKER)+1.
000660 10 04 00 16 0 000001 860. LA,LH XX,1,XV.
000661 74 03 00 00 0 000701 861. JN XX,MARKX.
000662 02 04 00 16 0 000001 862. SNA,LH XX,1,XV. MAKE ACTIVE
000663 74 13 04 00 0 000636 863. LMJ XL,MARK-1. MARK NEXT ATOM = HASH
000664 12 03 02 16 0 000001 864. LMA,RH XV,1,XV.
000665 74 13 04 00 0 000637 865. LMJ XL,MARK. MARK PRINT NAME
000666 12 03 02 16 0 000000 866. LMA,RH XV,0,XV.
000667 74 13 04 00 0 000637 867. LMJ XL,MARK. MARK PROPERTY LIST
000670 12 04 02 16 0 000000 868. LMA,LH XV,0,XV.
000671 74 04 00 00 0 000640 869. J MARK+1. MARK VALUE
870. MRK(INTGER)
871. MRK(OCTAL)
872. MRK(REAL)
000672 42 16 02 00 0 000037 873. AND,U XV,037.
000673 15 00 02 00 0 000017 874. ANA XV,XV+1.
000674 10 00 00 16 0 000000 875. LA XX,0,XV.
000675 73 10 00 17 0 000000 876. LSSC XX,0,XV+1.
000676 40 16 00 00 0 000001 877. OR,U XX,1.
000677 73 00 01 17 0 000000 878. SSC XX+1,0,XV+1.
000700 01 00 01 16 0 000000 879. SA XX+1,0,XV. SET BIT WORD
880. MRK(SYSTEM)
000701 26 16 01 01 0 000001 881. MARKX POP.
000702 26 00 04 01 0 040000 882. LXM XL,STACK,XT.
000703 10 04 02 01 0 040001 883. LA,LH XV,STACK+1,XT.
000704 74 04 00 04 0 000000 884. J 0,XL.
885. MRK(CONSED)
886. MRK(SUSP)
000705 10 04 00 16 0 000000 887. LA,LH XX,0,XV.
000706 74 03 00 00 0 000701 888. JN XX,MARKX.
000707 02 04 00 16 0 000000 889. SNA,LH XX,0,XV.
000710 74 13 04 00 0 000636 890. LMJ XL,MARK-1. MARK CAR.
000711 12 03 02 16 0 000000 891. LMA,RH XV,0,XV.
000712 74 04 00 00 0 000640 892. J MARK+1.
893. MRK(STRING)
000713 10 03 00 16 0 000000 894. LA,RH XX,0,XV.
000714 74 03 00 00 0 000701 895. JN XX,MARKX.
000715 02 03 00 16 0 000000 896. SNA,RH XX,0,XV.
000716 10 00 02 00 0 000014 897. L XV,XX.
000717 52 16 02 00 0 001000 898. TE XV,KNIL.
000720 74 04 00 00 0 000713 899. J MRK(STRING). LOOP THROUGH STRING
000721 74 04 00 00 0 000701 900. J MARKX.
901. MRK(LINKER)
000722 74 10 02 00 0 000726 902. JNB XV,$+4.
000723 15 16 02 00 0 000001 903. ANA,U XV,1.
000724 06 04 16 01 0 040001 904. SX,LH XV,STACK+1,XT.
000725 74 04 00 14 0 000645 905. J MRKB+1,XX.
000726 10 03 00 16 0 000000 906. LA,RH XX,0,XV.
000727 74 03 00 00 0 000701 907. JN XX,MARKX.
000730 02 03 00 16 0 000000 908. SNA,RH XX,0,XV.
000731 53 16 00 00 0 006346 909. TNE,U XX,FOLLOW.
000732 74 04 00 00 0 000701 910. J MARKX.
000733 12 04 02 16 0 000001 911. LMA,LH XV,1,XV.
000734 74 13 04 00 0 000637 912. LMJ XL,MARK.
000735 12 03 02 16 0 000001 913. LMA,RH XV,1,XV.
000736 74 04 00 00 0 000640 914. J MARK+1.
915. MRK(CODE)
000737 50 03 00 17 0 000040 916. TZ,RH PAGTAB,XV+1.
000740 74 04 00 00 0 000701 917. J MARKX.
000741 01 03 02 17 0 000040 918. SA,RH XV,PAGTAB,XV+1.
000742 73 13 02 00 0 000053 919. LDSL XV,36+PAGBIT.
000743 01 04 02 01 0 040001 920. MRK5L SA,LH XV,STACK+1,XT. FOLLOW THRU COMPILED CODE
000744 74 13 14 00 0 006330 921. LMJ XX,IMASK. GENERATE ADDRESS MASK
000745 42 00 01 16 0 000000 922. AND XV-1,0,XV. GET ADDRESS
000746 74 13 04 00 0 000637 923. LMJ XL,MARK.
000747 14 16 02 00 0 000001 924. AA,U XV,1.
000750 42 16 02 00 0 000177 925. AND,U XV,PAGSIZ-1.
000751 74 01 03 00 0 000743 926. JNZ XV+1,MRK5L. MORE INSTRUCTIONS?
000752 74 04 00 00 0 000701 927. J MARKX.
928. $(6).
6 000006 000000000000 929. GTIME +0
000007 000000000000 930. +0
000010 000000000000 931. GCNUM +0
000011 932. NAVS RES NUMTYPS.
933. $(8).
8 000006 934. GCXI RES 1.
000007 935. GCXL RES 1.
000010 936. GCXX RES 2.
000012 937. GCXV RES 2.
000014 938. GCXA RES 3.
000017 939. GCWK0 RES 1.
940. /. INITIALIZE
941. $(10).
10 003334 01 00 05 00 0 000003 942. START SA A5,OPSHUN. CHECK IF BATCH OR DEMAND
003335 73 02 05 00 0 000027 943. SSL A5,23.
003336 42 16 05 00 0 000003 944. AND,U A5,3.
003337 74 11 06 00 0 003343 945. JB A6,IL5+2. C OPTION?
003340 74 01 06 00 0 003353 946. JNZ A6,IL4. B OPTION?
003341 52 16 04 00 0 000004 947. IL5 TE,U A4,4. DEMAND MODE?
003342 74 04 00 00 0 003353 948. J IL4.
003343 10 16 00 00 0 000077 949. LA,U XX,077.
003344 01 15 00 00 0 000213 950. SA XX,CMODE. SET CONVERSATIONAL MODE
003345 01 14 00 00 0 000213 951. SA XX,LMODE. SUPRESS INPUT LISTING
003346 10 16 00 00 0 000063 952. LA,U XX,LINE+11. SHORT PRINT LINE
003347 01 03 00 00 0 000041 953. SA XX,ELINE.
003350 10 16 00 00 0 001750 954. L,U XX,1000. SHORT BACKTRACE
003351 01 03 00 00 0 000035 955. S XX,BTFLAG.
003352 01 04 00 00 0 000035 956. S XX,BTFLGP.
957. IL4
U 003353 27 16 14 00 0 000000 958. LX,U XX,LASTD$.
003354 42 16 00 00 3 177000 959. AND,U XX,0777000.
003355 06 00 15 00 0 000002 960. SX XX+1,CSTKE. SET UP STACK POINTERS
003356 27 00 02 00 0 000001 961. LX XF,STAKE.
003357 27 00 01 00 0 000002 962. LX XT,XF.
003360 27 16 05 00 0 000000 963. LX,U XP,0.
003361 27 00 03 00 0 000334 964. LX XC,(1,CSTK-CSTAK).
003362 06 00 03 00 0 000320 965. SX XC,BEPTAB.
003363 27 00 14 00 0 000335 966. LX XX,(1,EPTAB-CSTAK).
003364 23 00 01 00 0 000317 967. LR R1,LEPTAB.
003365 22 00 03 14 2 040000 968. BT XC,CSTAK,*XX. TRANSFER ENTRY POINT TABLE
003366 27 16 14 00 0 000326 969. LX,U XX,(SYSTEM*/18).
003367 27 00 11 00 0 000336 970. LX XO,(1,PAGTAB).
003370 23 16 01 00 0 002000 971. LR,U R1,PAGNUM.
003371 22 00 11 14 2 000000 972. BT XO,0,*XX. INITIALIZE PAGE TABLE
003372 10 16 02 00 0 000000 973. LA,U XV,0.
003373 27 16 11 00 0 000000 974. LX,U XO,ENDCHK.
003374 25 16 11 00 0 000000 975. ANX,U XO,ENTRY.
003375 14 00 02 11 0 000000 976. AA XV,ENTRY,XO. COMPUTE CHECKSUM
003376 70 00 11 00 0 003375 977. JGD XO,$-1.
003377 01 00 02 00 0 000004 978. SA XV,CKSUM.
003400 27 16 11 00 0 001000 979. LX XO,KNIL.
003401 27 00 15 00 0 000011 980. LX XY,XO.
981. ILOOP . SET UP ATOMIC SYMBOLS
003402 42 16 01 00 1 177600 982. AND,U XY,PAGMSK.
003403 73 02 02 00 0 000007 983. SSL XY+1,PAGBIT.
003404 10 04 04 00 0 000027 984. LA,LH XA,STORIT(SYMBOL)+2.
003405 01 04 04 16 0 000040 985. SA,LH XA,PAGTAB,XY+1. SET PAGE TYPE TO SYMBOL
003406 12 03 02 02 0 037000 986. LOAD NIL.
003407 12 16 02 00 0 001000
003410 27 00 15 11 0 000001 987. LX XY,1,XO.
003411 24 10 15 11 0 000000 988. AX,S6 XY,0,XO.
989. IL1 . PUT AWAY PRINT NAME
003412 53 00 01 11 0 000001 990. TNE XY,1,XO.
003413 74 04 00 00 0 003425 991. J IL2.
003414 25 16 15 00 0 000001 992. ANX,U XY,1.
003415 10 00 03 00 0 000016 993. L XV+1,XV.
003416 10 01 02 15 0 000000 994. L,H2 XV,0,XY. 3 CHAR OF NAME
003417 74 00 02 00 0 003422 995. JZ XV,$+3.
003420 74 13 04 00 0 000030 996. NODE STRING.
003421 10 00 03 00 0 000016 997. L XV+1,XV.
003422 10 02 02 15 0 000000 998. L,H1 XV,0,XY. 3 CHAR OF NAME
003423 74 13 04 00 0 000030 999. NODE STRING.
003424 74 04 00 00 0 003412 1000. J IL1.
003425 27 11 14 11 0 000000 1001. IL2 LX,S5 XX,0,XO. HASH TOTAL
003426 46 03 16 14 0 002040 1002. LXI,RH XV,HASH,XX.
003427 01 00 02 11 0 000001 1003. SA XV,1,XO. SET HASH LINK & PNAME
003430 06 03 11 14 0 002040 1004. SX,RH XO,HASH,XX. ADD TO HASH TABLE
003431 12 03 02 02 0 037000 1005. LOAD NIL.
003432 12 16 02 00 0 001000
003433 01 03 02 11 0 000000 1006. SA,RH XV,0,XO. EMPTY PROPERTY LIST
003434 12 04 02 11 0 000000 1007. LM,LH XV,0,XO. CONSTANT BINDING
003435 74 00 02 00 0 003442 1008. JZ XV,IL6. AIN'T THERE ANY?
003436 01 00 02 03 2 040000 1009. S XV,CSTAK,*XC. PUT IN ENTRY POINT TABLE
003437 10 00 02 00 0 000317 1010. L XV,LEPTAB.
003440 14 16 02 00 0 000001 1011. A,U XV,1.
003441 01 00 02 00 0 000317 1012. S XV,LEPTAB.
003442 24 16 11 00 0 000002 1013. IL6 A,U XO,2. TO NEXT ATOMIC SYMBOL
003443 10 00 01 00 0 000011 1014. LA XY,XO.
003444 52 16 01 00 0 001610 1015. TE,U XY,ENDAT. DONE?
003445 74 04 00 00 0 003402 1016. J ILOOP.
003446 27 00 06 00 0 000331 1017. LX XI,(1,0). INITIALIZE I/O INDICES
003447 27 00 11 00 0 000331 1018. LX XO,(1,0).
003450 05 00 00 00 0 000033 1019. SZ XMCNT. INITIALIZE MEMORY CNTR
003451 23 00 17 00 0 000337 1020. L XFLAG,(-0). INITIALIZE FLAG
1021. IL3 . FILL IN AVAILABLE SYMBOL LIST
003452 42 16 01 00 0 000177 1022. AND,U XY,PAGSIZ-1.
003453 74 00 02 00 0 000753 1023. JZ XY+1,BEGIN.
003454 10 03 02 00 0 000027 1024. LA,RH XV,STORIT(SYMBOL)+2.
003455 01 03 02 15 0 000000 1025. SA,RH XV,0,XY. MAKE WORD AVAILABLE
003456 01 03 01 00 0 000027 1026. SA,RH XY,STORIT(SYMBOL)+2.
003457 10 16 04 00 0 000110 1027. LA,U XA,PUT(SYMBOL).
003460 01 03 04 00 0 000025 1028. SA,RH XA,STORIT(SYMBOL).
003461 24 16 15 00 0 000002 1029. AX,U XY,2.
003462 74 04 00 00 0 003452 1030. J IL3.
1031. /$(3).
3 000753 46 16 04 00 0 001000 1032. BEGIN LXI XL,KNIL.
000754 10 16 00 00 0 000340 1033. P$RINT (PF 0,1,3,MESS8)
000755 10 00 00 14 0 000000
U 000756 72 11 00 00 0 000000
U 000757 72 11 00 00 0 000000 1034. ER CPU$.
000760 01 00 00 00 0 000247 1035. S A0,ETIME.
000761 06 00 01 03 2 040000 1036. LETS LISP.
000762 23 16 03 00 0 001011
000763 04 00 03 01 2 040000
000764 74 13 04 00 0 000004 1037. CALLR.
000765 10 00 00 00 0 000043 1038. FINIS L XX,APQ.
000766 74 00 00 00 0 001001 1039. JZ XX,GOODBYE.
000767 12 04 02 14 0 000000 1040. LMA,LH XV,0,XX.
000770 12 03 00 14 0 000000 1041. LMA,RH XX,0,XX.
000771 01 00 00 00 0 000043 1042. S XX,APQ.
000772 74 13 04 00 0 006264 1043. LMJ XL,GETNAM.
000773 74 13 04 00 0 006305 1044. LMJ XL,BLANKS.
000774 71 13 00 00 0 000052 1045. DL XX,NAME+1.
000775 71 12 00 00 0 000025 1046. DS XX,BRKPT+2.
000776 10 00 00 00 0 000341 1047. L XX,(+4,BRKPT).
U 000777 72 11 00 00 0 000000 1048. ER CSF$.
001000 74 04 00 00 0 000765 1049. J FINIS.
001001 10 00 00 00 0 000342 1050. GOODBYE L A0,(PF 0,3,2,MESS2).
U 001002 72 11 00 00 0 000000 1051. ER PRINT$.
U 001003 72 11 00 00 0 000000 1052. ER EXIT$.
1053. $(6)
6 000023 000727202531 1054. BRKPT '@BRKPT '
000024 050505050505
000025 000000000000 1055. +0D
000026 000000000000
1056. $(3)
3 001004 616161600521 1057. MESS8 '1110 LISP'
001005 163025050505
1058. . *** UPDATE VERSION EACH ASSEMBLY *** .
001006 707564050505 1059. VERSION '8.4'
001007 122311052413 1060. MESS2 'END OF LISP'
001010 052116302505
001011 12 03 02 02 0 036670 1061. LISP MOVE GETEXP.
001012 12 16 02 00 0 001110
001013 01 00 02 01 2 040000
001014 01 00 02 02 0 040000
001015 10 00 03 00 0 000004 1062. L XV+1,XL.
001016 73 02 03 00 0 000022 1063. SSL XV+1,18.
001017 10 16 02 00 0 000046 1064. L,U XV,LPROG.
001020 74 13 04 00 0 000000 1065. NODE CONSED. MARK ASSOCIATION LIST
001021 46 00 04 00 0 000016 1066. LXI XL,XV.
001022 10 16 02 00 0 001127 1067. LISPRT L,U XV,LISPT.
001023 74 13 04 00 0 000034 1068. LMJ XL,TRAP.
001024 12 03 02 02 0 037777 1069. LOAD 1. MAKE SURE FN OK
001025 12 16 02 00 0 000001
001026 74 13 04 00 0 007044 1070. LMJ XL,CHKFN.
001027 01 00 02 01 2 040000 1071. STORE 1.
001030 01 00 02 02 0 037777
001031 05 00 00 00 0 000045 1072. LISPL SZ PFNAM.
001032 10 00 00 00 0 000343 1073. LA XX,(PF 012,043,0,CONTIN).
001033 10 00 04 00 0 000003 1074. L XA,OPSHUN.
001034 45 16 04 00 0 000004 1075. TOP,U XA,1*/('Z'-'X'). ERR QUICK IF X OPTION
U 001035 72 11 00 00 0 000000 1076. ER IALL$
001036 06 00 01 00 0 000021 1077. I DO X11 , S I,XREGS+I.
001037 06 00 02 00 0 000022
001040 06 00 03 00 0 000023
001041 06 00 04 00 0 000024
001042 06 00 05 00 0 000025
001043 06 00 06 00 0 000026
001044 06 00 07 00 0 000027
001045 06 00 10 00 0 000030
001046 06 00 11 00 0 000031
001047 06 00 12 00 0 000032
001050 06 00 13 00 0 000033
001051 26 16 06 00 0 000000 1078. LXM,U XI,0.
001052 06 00 01 03 2 040000 1079. LETS EVAL
001053 23 16 03 00 0 001643
001054 04 00 03 01 2 040000
001055 06 00 01 03 2 040000 1080. MARK
001056 12 03 02 02 0 037777 1081. MOVE 1
001057 12 16 02 00 0 000001
001060 01 00 02 01 2 040000
001061 01 00 02 02 0 040000
001062 04 12 17 00 0 000213 1082. S XFLAG,EVMODE.
001063 74 13 04 00 0 000000 1083. CALL. READ EXPRESSION
001064 05 12 00 00 0 000213 1084. SZ EVMODE.
001065 74 13 04 00 0 000004 1085. CALLR. EVALUATE IT
001066 10 16 00 00 0 000001 1086. L,U XX,1.
001067 53 14 00 00 0 000213 1087. TNE XX,LMODE.
001070 74 04 00 00 0 001031 1088. J LISPL. LOADING: NO PRINT
001071 01 07 00 00 0 000047 1089. S XX,PLINES.
001072 05 00 00 00 0 000045 1090. SZ PFNAM.
001073 06 00 01 03 2 040000 1091. LETS PRINT.
001074 23 16 03 00 0 002531
001075 04 00 03 01 2 040000
001076 01 00 02 01 2 040000 1092. STORE.
001077 01 00 02 02 0 040000
001100 74 13 07 00 0 003356 1093. EDIT
001101 330621321253 1094. 'VALUE: @'
001102 050005050505
001103 51 15 00 00 0 000213 1095. TNZ CMODE.
001104 74 13 14 00 0 003475 1096. LMJ XX,SENDDB.
001105 74 13 04 00 0 000004 1097. CALLR. PRINT VALUE
001106 05 00 00 00 0 000034 1098. SZ CCOUNT. REGISTER CONTINGENCY ROUTINE
001107 74 04 00 00 0 001031 1099. J LISPL.
1100. . DEFAULT EXPRESSION-GETTER
001110 10 14 00 00 0 000213 1101. GETEXP L XX,LMODE.
001111 53 16 00 00 0 000001 1102. TNE,U XX,1.
001112 74 04 00 00 0 003510 1103. J READ. LOADING: NO PRINT
001113 51 15 00 00 0 000213 1104. TNZ CMODE.
001114 74 04 00 00 0 001120 1105. J GEXP2.
001115 74 13 07 00 0 003356 1106. EDIT
001116 123306215300 1107. 'EVAL:@'
001117 74 04 00 00 0 001125 1108. J GEXP.
001120 74 13 07 00 0 003356 1109. GEXP2 EDIT
001121 123525271230 1110. 'EXPRESSION TO EVALUATE:@'
001122 301624230531
001123 240512330621
001124 320631125300
001125 74 13 14 00 0 003475 1111. GEXP LMJ XX,SENDDB.
001126 74 04 00 00 0 003510 1112. J READ.
1113. . TRAP LINKAGES
001127 777775 001141 1114. LISPT - 2,LISPT1. TRAP LINKAGES
001130 10 16 02 00 0 001127 1115. L,U XV,LISPT.
001131 74 13 04 00 0 000034 1116. LMJ XL,TRAP.
001132 74 04 00 00 0 002343 1117. J BADGO.
001133 777773 002361 1118. - 4,LISPT2.
001134 74 04 00 00 0 001142 1119. J LISPT1+1.
001135 777774 001133 1120. - 3,$-2.
001136 74 04 00 00 0 001142 1121. J LISPT1+1.
001137 777771 001135 1122. - 6,$-2.
001140 74 04 00 00 0 001142 1123. J LISPT1+1.
001141 000000 001137 1124. LISPT1 + 0,$-2.
001142 10 16 02 00 0 000000 1125. LA,U XV,0.
001143 27 16 14 00 0 000000 1126. LX,U XX,ENDCHK.
001144 25 16 14 00 0 000000 1127. ANX,U XX,ENTRY.
001145 14 00 02 14 0 000000 1128. AA XV,ENTRY,XX.
001146 70 00 14 00 0 001145 1129. JGD XX,$-1.
001147 53 00 02 00 0 000004 1130. TNE XV,CKSUM.
001150 74 04 00 00 0 001022 1131. J LISPRT.
001151 10 16 00 00 0 000344 1132. P$RINT (PF 0,2,5,MESS3).
001152 10 00 00 14 0 000000
U 001153 72 11 00 00 0 000000
001154 74 04 00 00 0 001204 1133. J ABORT.
001155 303630311222 1134. MESS3 'SYSTEM WAS CLOBBERED, SHAME!'
001156 053406300510
001157 212407071227
001160 121156053015
001161 062212550505
1135. . CONTINGENCY ROUTINE: HANDLES IOPR, IGDM, IRST, IINT & IERR
1136. $(6)
6 000027 000000000000 1137. +0
000030 000000000000 1138. +0
000031 000000000000 1139. CONTIN +0
000032 000000000000 1140. +0
000033 74 04 00 00 0 001162 1141. J CONRT.
000034 000000000000 1142. CCOUNT +0
1143. $(8)
8 000020 1144. XREGS RES 16.
1145. $(3)
3 001162 71 12 02 00 0 000027 1146. CONRT DS XV,CONTIN-2.
001163 10 00 02 00 0 000034 1147. LA XV,CCOUNT.
001164 14 16 02 00 0 000001 1148. AA,U XV,1.
001165 01 00 02 00 0 000034 1149. SA XV,CCOUNT.
001166 55 16 02 00 0 000012 1150. TG,U XV,10.
001167 74 04 00 00 0 001204 1151. J ABORT.
U 001170 72 11 00 00 0 000000 1152. ER CEND$.
001171 10 13 02 00 0 000031 1153. LA,S3 XV,CONTIN.
001172 53 16 02 00 0 000001 1154. TNE,U XV,1.
001173 74 04 00 00 0 001256 1155. J IOPR. ILLEGAL OP
001174 53 16 02 00 0 000002 1156. TNE,U XV,2.
001175 74 04 00 00 0 001264 1157. J IGDM. GUARD MODE
001176 53 16 02 00 0 000006 1158. TNE,U XV,6.
001177 74 04 00 00 0 004570 1159. J GOBAK. RESTART
001200 53 16 02 00 0 000010 1160. TNE,U XV,010.
001201 74 04 00 00 0 001242 1161. J IINT. CONSOLE INTERRUPT
001202 53 16 02 00 0 000012 1162. TNE,U XV,012.
001203 74 04 00 00 0 001207 1163. J IERR. ERROR
001204 10 16 00 00 0 000000 1164. ABORT LA,U XX,0. OTHER
U 001205 72 11 00 00 0 000000 1165. ER IALL$.
U 001206 72 11 00 00 0 000000 1166. ER ERR$
001207 10 15 02 00 0 000031 1167. IERR LA,S1 XV,CONTIN.
001210 53 16 02 00 0 000001 1168. TNE,U XV,1.
001211 74 04 00 00 0 001222 1169. J IOERR. I/O ERROR
001212 53 16 02 00 0 000002 1170. TNE,U XV,2.
001213 74 04 00 00 0 001226 1171. J SYMBERR. SYMBIONT ERROR
001214 52 16 02 00 0 000004 1172. TE,U XV,4.
001215 74 04 00 00 0 001204 1173. J ABORT.
001216 74 13 07 00 0 003356 1174. EDIT
001217 122705122727 1175. 'ER ERROR @'
001220 242705000505
001221 74 04 00 00 0 001235 1176. J CONTY.
001222 74 13 07 00 0 003356 1177. IOERR EDIT
001223 167424051227 1178. 'I/O ERROR @'
001224 272427050005
001225 74 04 00 00 0 001235 1179. J CONTY.
001226 10 14 02 00 0 000031 1180. SYMBERR L,S2 XV,CONTIN.
001227 53 16 02 00 0 000005 1181. TNE,U XV,5.
001230 74 04 00 00 0 004570 1182. J GOBAK. IGNORE BAD ADD CARD
001231 05 00 00 00 0 000045 1183. SZ PFNAM. CLOSE PRINT FILE
001232 74 13 07 00 0 003356 1184. EDIT
001233 303622070512 1185. 'SYMB ERROR @'
001234 272724270500
001235 10 14 02 00 0 000031 1186. CONTY L,S2 XV,CONTIN.
001236 74 13 04 00 0 003066 1187. LMJ XL,OCTOUT.
001237 74 13 07 00 0 003357 1188. EDITA
001240 530505050005 1189. ': @'
001241 74 04 00 00 0 001275 1190. J CONPA.
001242 10 15 02 00 0 000031 1191. IINT LA,S1 XV,CONTIN.
001243 52 16 02 00 0 000002 1192. TE,U XV,2.
001244 74 04 00 00 0 001204 1193. J ABORT.
001245 50 00 00 00 0 000007 1194. TZ GTIME+1.
001246 74 04 00 00 0 001252 1195. J $+4.
001247 05 13 00 00 0 000000 1196. IINTDO SZ INTFLG.
001250 11 16 04 00 0 000003 1197. LN,U XA,3.
001251 74 04 00 00 0 001475 1198. J UNWIND.
001252 71 13 02 00 0 000027 1199. DL XV,CONTIN-2. IINT DURING GARB. COLL.
001253 05 04 00 00 0 000031 1200. SZ,LH CONTIN.
001254 04 13 17 00 0 000000 1201. S XFLAG,INTFLG. SET FLAG TO DO IT LATER
001255 74 04 00 00 1 000031 1202. J *CONTIN.
001256 74 13 07 00 0 003356 1203. IOPR EDIT
001257 162121121406 1204. 'ILLEGAL INSTRUCTION: @'
001260 210516233031
001261 273210311624
001262 235305050005
001263 74 04 00 00 0 001275 1205. J CONPA.
001264 10 17 02 01 0 000000 1206. IGDM LA,XU XV,0,XT.
001265 74 03 02 00 0 001303 1207. JN XV,OVER. DID VALUE STACK OVERFLOW?
001266 10 17 02 03 0 040000 1208. LA,XU XV,CSTAK,XC.
001267 55 00 02 00 0 000002 1209. TG XV,CSTKE. IS CONTROL STACK OK?
001270 74 04 00 00 0 001303 1210. J OVER.
001271 74 13 07 00 0 003356 1211. EDIT
001272 143206271105 1212. 'GUARD MODE: @'
001273 222411125305
001274 000505050505
001275 10 03 02 00 0 000031 1213. CONPA LA,RH XV,CONTIN.
001276 74 13 04 00 0 003066 1214. LMJ XL,OCTOUT.
001277 74 13 14 00 0 003475 1215. LMJ XX,SENDDB.
001300 50 00 00 00 0 000007 1216. TZ GTIME+1.
001301 74 04 00 00 0 001204 1217. J ABORT. QUIT IF ERROR WHILE SYSTEM MARKED
001302 74 04 00 00 0 001416 1218. J SYSERR.
001303 10 16 00 00 0 000345 1219. OVER P$RINT (PF 0,2,3,MESS5).
001304 10 00 00 14 0 000000
U 001305 72 11 00 00 0 000000
001306 50 00 00 00 0 000007 1220. TZ GTIME+1
001307 74 04 00 00 0 000765 1221. J FINIS
1222. LOADXRS.
001310 27 00 01 00 0 000021 1223. I DO X11 , L I,XREGS+I.
001311 27 00 02 00 0 000022
001312 27 00 03 00 0 000023
001313 27 00 04 00 0 000024
001314 27 00 05 00 0 000025
001315 27 00 06 00 0 000026
001316 27 00 07 00 0 000027
001317 27 00 10 00 0 000030
001320 27 00 11 00 0 000031
001321 27 00 12 00 0 000032
001322 27 00 13 00 0 000033
001323 74 04 00 00 0 001031 1224. J LISPL.
001324 303106102005 1225. MESS5 'STACK OVERFLOW'
001325 243312271321
001326 243405050505 1226. /. REQUEST VALUE FROM USER (ABORT IF IN BATCH MODE).
3 001327 51 15 00 00 0 000213 1227. EVREAD TNZ CMODE. CONVERSATIONAL MODE?
001330 74 04 00 00 0 001416 1228. J SYSERR.
001331 74 13 07 00 0 003356 1229. EDIT
001332 151221255300 1230. 'HELP:@'
001333 74 13 14 00 0 003475 1231. LMJ XX,SENDDB.
001334 26 16 06 00 0 000000 1232. EVR1 LXM,U XI,0.
001335 06 00 01 03 2 040000 1233. LETS READ. READ VALUE
001336 23 16 03 00 0 003510
001337 04 00 03 01 2 040000
001340 04 12 17 00 0 000213 1234. S XFLAG,EVMODE.
001341 04 11 17 00 0 000213 1235. S XFLAG,AFSKIP.
001342 74 13 07 00 0 004627 1236. LMJ XR,RESETL.
001343 74 13 04 00 0 000004 1237. CALLR. READ EXPRESSION
001344 01 00 02 01 2 040000 1238. STORE 1.
001345 01 00 02 02 0 037777
001346 26 16 01 02 0 000000 1239. LXM,U XT,0,XF.
001347 25 16 01 00 0 000002 1240. AN,U XT,2.
001350 05 12 00 00 0 000213 1241. SZ EVMODE.
001351 74 04 00 00 0 001642 1242. J EVAL-1. EVALUATE IT
001352 06 00 01 03 2 040000 1243. REQUEST LETS PRINT
001353 23 16 03 00 0 002531
001354 04 00 03 01 2 040000
001355 12 03 02 02 0 037777 1244. MOVE 1
001356 12 16 02 00 0 000001
001357 01 00 02 01 2 040000
001360 01 00 02 02 0 040000
001361 74 13 04 00 0 000004 1245. CALLR
001362 74 04 00 00 0 001334 1246. J EVR1
1247. /. INITIATE BACKTRACE AFTER CALL TO :BACK
3 001363 11 16 04 00 0 000006 1248. BACK LN,U XA,6.
001364 05 00 00 00 0 000045 1249. SZ PFNAM.
001365 10 15 03 00 0 000221 1250. L,S1 XV+1,IMAGE+2.
001366 10 04 02 00 0 000035 1251. L XV,BTFLGP.
001367 53 16 03 00 0 000005 1252. TNE,U XV+1,' '.
001370 74 04 00 00 0 001476 1253. J UNWIND+1. DEFAULT
001371 12 03 02 02 0 040001 1254. LOAD 0777776.
001372 12 16 02 00 3 177776
001373 53 16 03 00 0 000031 1255. TNE,U XV+1,'T'.
001374 74 04 00 00 0 001476 1256. J UNWIND+1. FULL
001375 15 16 03 00 0 000060 1257. AN,U XV+1,'0'.
001376 01 00 03 00 0 000016 1258. S XV+1,XV.
001377 74 04 00 00 0 001476 1259. J UNWIND+1.
1260. . INITIATE BACKTRACE AFTER CALL TO :PEEK
001400 12 03 02 02 0 036364 1261. PEEK LOAD PEEKT.
001401 12 16 02 00 0 001414
001402 74 13 04 00 0 000034 1262. LMJ XL,TRAP.
001403 11 16 04 00 0 000007 1263. LN,U XA,7.
001404 74 13 04 00 0 001364 1264. LMJ XL,BACK+1.
001405 74 13 04 00 0 000043 1265. PEEKDN LMJ XL,UNTRAP.
001406 74 13 07 00 0 003356 1266. EDIT
001407 532512122005 1267. ':PEEK COMPLETED@'
001410 102422252112
001411 311211000505
001412 74 13 14 00 0 003450 1268. LMJ XX,SENDIT.
001413 74 04 00 00 0 004426 1269. J RCARD.
001414 777774 000000 1270. PEEKT - 3,0.
001415 74 04 00 00 0 001406 1271. J PEEKDN+1.
1272. . INITIATE BACKTRACE AFTER SYSTEM ERROR
001416 10 16 04 00 0 000000 1273. SYSERR L,U XA,0.
001417 10 00 02 00 0 000003 1274. L XV,OPSHUN.
001420 44 16 02 00 0 000004 1275. TEP,U XV,1*/('Z'-'X')
001421 74 04 00 00 0 001204 1276. J ABORT.
001422 74 13 07 00 0 004627 1277. LMJ XR,RESETL.
001423 10 03 02 00 0 000035 1278. L XV,BTFLAG.
001424 74 04 00 00 0 001476 1279. J UNWIND+1.
1280. . INITIATE BACKTRACE AFTER CALL TO ERROR
001425 05 00 00 01 2 040000 1281. ERROR SZ STACK,*XT.
001426 12 03 02 02 0 037777 1282. LOAD 1.
001427 12 16 02 00 0 000001
001430 10 00 04 16 0 000000 1283. L XA,0,XV.
001431 12 03 02 02 0 037776 1284. LOAD 2.
001432 12 16 02 00 0 000002
001433 74 00 02 00 0 001476 1285. JZ XV,UNWIND+1.
001434 53 16 02 00 0 001114 1286. TNE,U XV,TRU.
001435 12 03 02 02 0 037432 1287. LOAD (0777776).
001436 12 16 02 00 0 000346
001437 53 16 02 00 0 001000 1288. TNE XV,KNIL.
001440 12 03 02 02 0 037431 1289. LOAD (0).
001441 12 16 02 00 0 000347
001442 10 00 02 16 0 000000 1290. L XV,0,XV.
001443 74 04 00 00 0 001476 1291. J UNWIND+1.
1292. . SET SYSTEM BACKTRACE FLAG AND PRINT LIMITS
001444 05 00 00 01 2 040000 1293. BACKTR SZ STACK,*XT.
001445 12 03 02 02 0 037777 1294. LOAD 1.
001446 12 16 02 00 0 000001
001447 10 03 03 00 0 000035 1295. L XV+1,BTFLAG.
001450 74 00 02 00 0 001472 1296. JZ XV,BACKDN.
001451 53 16 02 00 0 001114 1297. TNE,U XV,TRU.
001452 12 03 02 02 0 037432 1298. LOAD (0777776).
001453 12 16 02 00 0 000346
001454 53 16 02 00 0 001000 1299. TNE XV,KNIL.
001455 12 03 02 02 0 037431 1300. LOAD (0).
001456 12 16 02 00 0 000347
001457 10 00 02 16 0 000000 1301. L XV,0,XV.
001460 01 03 02 00 0 000035 1302. S XV,BTFLAG.
001461 12 03 02 02 0 037776 1303. LOAD 2.
001462 12 16 02 00 0 000002
001463 74 00 02 00 0 001472 1304. JZ XV,BACKDN.
001464 12 04 00 16 0 000000 1305. UPPER XX.
001465 10 00 00 14 0 000000 1306. L XX,0,XX.
001466 01 04 00 00 0 000036 1307. S,LH XX,PLIMSB.
001467 12 03 00 16 0 000000 1308. LOWER XX.
001470 10 00 00 14 0 000000 1309. L XX,0,XX.
001471 01 03 00 00 0 000036 1310. S,RH XX,PLIMSB.
001472 74 00 03 00 0 006455 1311. BACKDN JZ XV+1,GFAL.
001473 74 03 03 00 0 006470 1312. JN XV+1,GTRU.
001474 74 04 00 00 0 000003 1313. J STORIT(INTGER).
1314. $(6)
6 000035 777776 777776 1315. + 0777776,0777776.
00 03 00 00 0 000035 1316. BTFLAG EQUF $-1,,RH.
00 04 00 00 0 000035 1317. BTFLGP EQUF $-1,,LH.
000036 000003 000012 1318. PLIMSB + 3,10. PRINT LIMITS FOR BACKTRACE
1319. $(3)
1320. /. UNWIND STACK TO TRAP AND BACKTRACE
3 001475 05 00 00 00 0 000016 1321. UNWIND SZ XV.
001476 06 00 04 01 2 040000 1322. S XL,STACK,*XT.
001477 01 04 04 00 0 000041 1323. S XA,ETNUM.
001500 01 03 02 00 0 000041 1324. S XV,ETBTF.
001501 06 03 05 00 0 000042 1325. S XP,ETSXP.
001502 05 04 00 00 0 000042 1326. SZ BTLAL.
001503 10 03 02 00 0 000036 1327. L,RH XV,PLIMSB.
001504 01 00 02 00 0 000040 1328. S XV,PLIML.
001505 06 03 01 00 0 000040 1329. S XT,ETSXT.
001506 10 03 01 00 0 000042 1330. ETLOOP L XY,ETSXP.
001507 74 01 01 00 0 001533 1331. JNZ XY,ETCHEK.
001510 26 16 01 01 0 000001 1332. POP. TRAP NOT FOUND
001511 11 16 04 00 0 000007 1333. LN,U XA,7.
001512 52 04 04 00 0 000041 1334. TE XA,ETNUM.
001513 74 04 00 00 0 001516 1335. J $+3. DO A NO-TRAP TRAP
001514 27 00 04 01 0 040000 1336. L XL,STACK,XT. WE'RE :PEEKING
001515 74 04 00 04 0 000000 1337. J 0,XL.
001516 74 13 07 00 0 003356 1338. EDIT
001517 122727242705 1339. 'ERROR @'
001520 000505050505
001521 10 04 02 00 0 000041 1340. L XV,ETNUM.
001522 74 13 04 00 0 003102 1341. LMJ XL,INTOUT.
001523 74 13 07 00 0 003357 1342. EDITA
001524 052324310513 1343. ' NOT FOUND@'
001525 243223110005
001526 74 13 14 00 0 003475 1344. LMJ XX,SENDDB.
001527 11 16 04 00 0 000004 1345. LN,U XA,4.
001530 53 04 04 00 0 000041 1346. TNE XA,ETNUM.
001531 74 04 00 00 0 001204 1347. J ABORT.
001532 74 04 00 00 0 001417 1348. J SYSERR+1.
001533 10 03 00 00 0 000040 1349. ETCHEK L XX,ETSXT.
001534 14 16 00 00 0 000001 1350. A,U XX,1.
001535 01 03 00 00 0 000040 1351. S XX,ETSXT.
001536 52 04 00 15 0 040001 1352. TE,LH XX,CSTAK+1,XY. IS THIS A TRAP POINT?
001537 74 04 00 00 0 001575 1353. J ETNEXT.
001540 10 03 04 15 0 040000 1354. L,RH XA,CSTAK,XY.
001541 01 03 04 00 0 000042 1355. S XA,ETSXP.
001542 10 03 02 14 0 040000 1356. L,RH XV,STACK,XX.
001543 42 16 02 00 1 177600 1357. GETYPE.
001544 73 02 03 00 0 000007
001545 10 13 03 17 0 000040
001546 74 00 03 00 0 001561 1358. JZ XV+1,ETLIST.
001547 53 16 02 00 0 001000 1359. TNE XV,KNIL.
001550 74 04 00 00 0 001575 1360. J ETNEXT.
001551 74 00 02 00 0 001575 1361. ETLOOK JZ XV,ETNEXT.
001552 10 04 04 16 0 000000 1362. L,LH XA,0,XV.
001553 26 16 04 16 0 000001 1363. LXM,U XL,1,XV.
001554 12 03 02 16 0 000000 1364. LM,RH XV,0,XV.
001555 52 04 04 00 0 000325 1365. TE,LH XA,(J BADI).
001556 52 04 04 00 0 000041 1366. TE XA,ETNUM. IS THIS THE TRAP WE WANT?
001557 74 04 00 00 0 001551 1367. J ETLOOK.
001560 74 04 00 00 0 001570 1368. J ETTRAP.
001561 12 04 00 16 0 000000 1369. ETLIST LM,LH XX,0,XV. XX = (TNUM TEXP)
001562 12 04 03 14 0 000000 1370. LM,LH XV+1,0,XX.
001563 10 00 04 17 0 000000 1371. L XA,0,XV+1.
001564 52 04 04 00 0 000041 1372. TE XA,ETNUM.
001565 74 04 00 00 0 001572 1373. J ETLIST1.
001566 12 03 02 14 0 000000 1374. LM,RH XV,0,XX.
001567 26 16 04 00 0 002122 1375. LXM,U XL,EVDO-1.
001570 27 16 05 15 0 000000 1376. ETTRAP L,U XP,0,XY.
001571 74 04 00 00 0 000043 1377. J UNTRAP.
001572 12 03 02 16 0 000000 1378. ETLIST1 LM,RH XV,0,XV.
001573 52 16 02 00 0 001000 1379. TE XV,KNIL.
001574 74 04 00 00 0 001561 1380. J ETLIST.
001575 10 03 04 00 0 000041 1381. ETNEXT L XA,ETBTF.
001576 74 00 04 00 0 001506 1382. JZ XA,ETLOOP. NO BACKTRACE
001577 10 03 00 00 0 000040 1383. L XX,ETSXT.
001600 10 04 02 14 0 040000 1384. L,LH XV,STACK,XX.
001601 74 03 02 00 0 001607 1385. JN XV,ETCALL. PRINT EXPRESSION
001602 74 02 04 00 0 001506 1386. JP XA,ETLOOP. ABBREVIATED BACKTRACE
001603 74 00 02 00 0 001620 1387. JZ XV,BTCFO.
001604 53 04 02 00 0 000042 1388. TNE XV,BTLAL. DIFFERENT ASSOCIATION LIST?
001605 74 04 00 00 0 001620 1389. J BTCFO.
001606 01 04 02 00 0 000042 1390. S XV,BTLAL.
001607 74 03 04 00 0 001612 1391. ETCALL JN XA,$+3.
001610 15 16 04 00 0 000001 1392. AN,U XA,1.
001611 01 03 04 00 0 000041 1393. S XA,ETBTF.
001612 74 13 07 00 0 003356 1394. EDIT
001613 057575750500 1395. ' ... @'
001614 10 03 00 00 0 000040 1396. L XX,ETSXT.
001615 12 04 02 14 0 040000 1397. LM,LH XV,STACK,XX.
001616 74 13 04 00 0 001630 1398. LMJ XL,BTPRIN.
001617 74 13 14 00 0 003450 1399. LMJ XX,SENDIT.
001620 10 04 04 00 0 000003 1400. BTCFO L,LH XA,OPSHUN.
001621 45 16 04 00 0 000004 1401. TOP,U XA,1*/('Z'-'F'-18).
001622 74 04 00 00 0 001506 1402. J ETLOOP.
001623 10 03 00 00 0 000040 1403. L XX,ETSXT.
001624 12 03 02 14 0 040000 1404. LM,RH XV,STACK,XX.
001625 74 13 04 00 0 001630 1405. LMJ XL,BTPRIN.
001626 74 13 14 00 0 003450 1406. LMJ XX,SENDIT.
001627 74 04 00 00 0 001506 1407. J ETLOOP.
001630 06 00 01 03 2 040000 1408. BTPRIN LETS PRIN11.
001631 23 16 03 00 0 002551
001632 04 00 03 01 2 040000
001633 01 00 02 01 2 040000 1409. STORE.
001634 01 00 02 02 0 040000
001635 10 04 02 00 0 000036 1410. L,LH XV,PLIMSB.
001636 01 00 02 01 2 040000 1411. STORE.
001637 01 00 02 02 0 040000
001640 05 00 00 00 0 000045 1412. SZ PFNAM.
001641 74 04 00 00 0 000004 1413. J ENTRYR.
1414. $(8)
8 000040 1415. RES 3.
00 03 00 00 0 000040 1416. ETSXT EQUF $-3,,RH.
00 04 00 00 0 000041 1417. ETNUM EQUF $-2,,LH.
00 03 00 00 0 000041 1418. ETBTF EQUF $-2,,RH.
00 03 00 00 0 000042 1419. ETSXP EQUF $-1,,RH.
00 04 00 00 0 000042 1420. BTLAL EQUF $-1,,LH.
1421. $(3)
1422. /. EVALUATE EXPRESSION
3 001642 26 16 04 00 0 000011 1423. LXM,U XL,EXIT.
001643 12 03 02 02 0 037777 1424. EVAL LOAD 1
001644 12 16 02 00 0 000001
001645 42 16 02 00 1 177600 1425. GETYPE
001646 73 02 03 00 0 000007
001647 10 13 03 17 0 000040
001650 74 00 03 00 0 001660 1426. JZ XV+1,EVALNA. IF NON-ATOMIC
001651 52 16 03 00 0 000007 1427. TE,U XV+1,SYMBOL. IS IT AN ATOMIC SYMBOL?
001652 74 04 00 00 0 000011 1428. RETURN
001653 50 04 00 16 0 000000 1429. TZ,LH 0,XV. NO CONSTANT BINDING?
001654 74 04 00 00 0 006413 1430. J TCAR+1.
001655 74 13 04 00 0 002447 1431. LMJ XL,LOOKUP. FIND ON ASSOCIATION LIST
001656 10 16 02 00 0 000000 1432. L,U XV,0.
001657 74 04 00 00 0 000011 1433. RETURN.
001660 02 04 02 02 0 037777 1434. EVALNA SNA,LH XV,STACK-1,XF. SAVE EXPRESSION FOR BACK-TRACE
001661 12 03 03 16 0 000000 1435. LOWER XV+1. (CDR FORM)
001662 12 04 02 16 0 000000 1436. UPPER XV. (CAR FORM)
001663 01 03 03 02 0 037777 1437. SA,RH XV+1,STACK-1,XF.
001664 42 16 02 00 1 177600 1438. GETYPE
001665 73 02 03 00 0 000007
001666 10 13 03 17 0 000040
001667 53 16 03 00 0 000007 1439. TNE,U XV+1,SYMBOL.
001670 61 00 00 16 0 000000 1440. TN 0,XV.
001671 74 04 00 00 0 001674 1441. J $+3. NORMAL FUNCTION
001672 12 04 00 16 0 000000 1442. LMA,LH XX,0,XV. MACRO OR SPECIAL FORM
001673 74 04 00 14 0 000000 1443. J 0,XX.
1444. . EVALUATE ELEMENTS OF LIST
001674 06 00 01 03 2 040000 1445. MARK.
001675 74 13 04 00 0 001705 1446. LMJ XL,EVALC.
001676 12 03 02 02 0 037777 1447. LOAD 1.
001677 12 16 02 00 0 000001
001700 53 16 02 00 0 001000 1448. TNE XV,KNIL. MORE TO EVALUATE?
001701 74 04 00 00 0 001713 1449. J EVALA. NO, APPLY FUNCTION.
001702 12 03 04 16 0 000000 1450. EVALD LOWER XA.
001703 01 03 04 02 0 037777 1451. SA,RH XA,STACK-1,XF.
001704 12 04 02 16 0 000000 1452. UPPER XV.
001705 06 00 01 03 2 040000 1453. EVALC LETS EVAL.
001706 23 16 03 00 0 001643
001707 04 00 03 01 2 040000
001710 01 00 02 01 2 040000 1454. STORE
001711 01 00 02 02 0 040000
001712 74 04 00 00 0 000000 1455. J ENTRY. EVALUATE AN ELEMENT
001713 12 03 02 02 0 037776 1456. EVALA LOAD 2.
001714 12 16 02 00 0 000002
001715 42 16 02 00 1 177600 1457. GETYPE
001716 73 02 03 00 0 000007
001717 10 13 03 17 0 000040
001720 50 15 00 17 0 000036 1458. TZ NFLG1,XV+1. PROPER TYPE FOR FUNCTION?
001721 74 04 00 00 0 000020 1459. J ENTRYI.
001722 74 13 04 00 0 007052 1460. LMJ XL,BADFN. NO: GO GET A FUNCTION
001723 01 00 02 01 2 040000 1461. STORE 2.
001724 01 00 02 02 0 037776
001725 74 04 00 00 0 000020 1462. J ENTRYI.
1463. /. APPLY LAMBDA EXPRESSION TO ARGUMENTS
3 001726 46 04 04 04 0 000000 1464. LXI,LH XL,0,XL. SET ENVIRONMENT
001727 12 03 02 04 0 000000 1465. APPLY LMA,RH XV,0,XL. LAMBDA EXPRESSION ADDRESS
001730 12 04 02 16 0 000000 1466. CHAIN LH.
001731 46 00 16 02 0 040000 1467. LXI XV,STACK,XF.
001732 01 00 02 03 2 040000 1468. SA XV,CSTAK,*XC.
001733 06 03 04 02 0 040000 1469. S,RH XL,STACK,XF.
001734 27 00 15 00 0 000002 1470. LX XY,XF.
001735 42 16 02 00 1 177600 1471. APLOOP GETYPE
001736 73 02 03 00 0 000007
001737 10 13 03 17 0 000040
001740 74 01 03 00 0 001766 1472. JNZ XV+1,APPD. NO MORE VARIABLES?
001741 12 03 03 16 0 000000 1473. LOWER XV+1.
001742 01 03 03 03 0 037777 1474. SA,RH XV+1,CSTAK-1,XC.
001743 12 04 02 16 0 000000 1475. UPPER XV.
001744 12 03 03 15 2 037777 1476. LMA,RH XV+1,STACK-1,*XY.
001745 52 00 01 00 0 000001 1477. TE XY,XT. MISSING ARGUMENT?
001746 74 04 00 00 0 001763 1478. J APP2.
001747 74 13 04 00 0 002004 1479. LMJ XL,APPBAD.
001750 051006232324 1480. ' CANNOT BE BOUND BECAUSE OF MISSING ARGUMENT@'
001751 310507120507
001752 243223110507
001753 121006323012
001754 052413052216
001755 303016231405
001756 062714322212
001757 233100050505
001760 74 13 04 00 0 002022 1481. LMJ XL,APPBX.
001761 10 16 03 00 0 000000 1482. LA,U XV+1,0.
001762 26 16 15 15 0 000001 1483. LXM,U XY,1,XY.
001763 74 13 04 00 0 002026 1484. APP2 LMJ XL,BINDER. ADD TO A-LIST
001764 10 03 02 03 0 037777 1485. LA,RH XV,CSTAK-1,XC.
001765 74 04 00 00 0 001735 1486. J APLOOP.
001766 46 16 16 00 0 000000 1487. APPD LXI,U XV,0.
001767 53 16 02 00 0 001000 1488. TNE XV,KNIL.
001770 74 04 00 00 0 001774 1489. J APPX.
001771 74 13 04 00 0 000052 1490. LMJ XL,LISTEM. LIST REST OF ARGS
001772 12 03 02 03 0 037777 1491. LMA,RH XV,CSTAK-1,XC.
001773 74 13 04 00 0 002026 1492. LMJ XL,BINDER. ADD TO A-LIST
001774 27 00 14 02 0 040000 1493. APPX LX XX,STACK,XF.
001775 10 04 04 03 0 037777 1494. LA,LH XA,CSTAK-1,XC.
001776 01 03 04 02 0 040000 1495. SA,RH XA,STACK,XF.
001777 12 03 02 14 0 000000 1496. LMA,RH XV,0,XX.
002000 12 03 02 16 0 000000 1497. CHAIN RH.
002001 27 00 01 00 0 000002 1498. LX XT,XF.
002002 25 16 01 00 0 000002 1499. ANX,U XT,2.
002003 70 00 03 00 0 002122 1500. JGD XC,EVDO-1.
002004 06 00 15 00 0 000043 1501. APPBAD SX XY,APPS.
002005 06 00 04 00 0 000044 1502. SX XL,APPS+1.
002006 01 04 02 00 0 000044 1503. SA,LH XV,APPS+1.
002007 06 00 01 03 2 040000 1504. LETS PRIN1.
002010 23 16 03 00 0 002544
002011 04 00 03 01 2 040000
002012 01 00 02 01 2 040000 1505. STORE
002013 01 00 02 02 0 040000
002014 74 13 07 00 0 003356 1506. EDIT
002015 340627231623 1507. 'WARNING, @'
002016 145605000505
002017 74 13 04 00 0 000004 1508. CALLR
002020 27 00 07 00 0 000044 1509. LX XR,APPS+1.
002021 74 04 00 00 0 003357 1510. J EDCHAR.
002022 74 13 14 00 0 003475 1511. APPBX LMJ XX,SENDDB.
002023 27 00 15 00 0 000043 1512. LX XY,APPS.
002024 10 04 02 00 0 000044 1513. LA,LH XV,APPS+1.
002025 74 04 00 04 0 000000 1514. J 0,XL.
1515. /. EFFECT BINDING
3 002026 06 00 04 00 0 000045 1516. BINDER SX XL,APPS+2.
002027 01 00 03 00 0 000043 1517. SA XV+1,APPS.
002030 42 16 02 00 1 177600 1518. GETYPE
002031 73 02 03 00 0 000007
002032 10 13 03 17 0 000040
002033 53 16 03 00 0 000007 1519. TNE,U XV+1,SYMBOL. NOT ATOMIC SYMBOL?
002034 50 04 00 16 0 000000 1520. TZ,LH 0,XV. NOT A CONSTANT?
002035 74 04 00 00 0 002045 1521. J BADVAR.
002036 10 00 03 00 0 000043 1522. LA XV+1,APPS.
002037 74 13 04 00 0 000000 1523. NODE CONSED. (VAR . VALUE)
002040 12 04 03 00 0 000045 1524. LMA,LH XV+1,APPS+2.
002041 74 13 04 00 0 000000 1525. NODE CONSED. ADD TO ASSOCIATION LIST
002042 01 04 02 00 0 000045 1526. SA,LH XV,APPS+2.
002043 27 00 04 00 0 000045 1527. BINDRX LX XL,APPS+2.
002044 74 04 00 04 0 000000 1528. J 0,XL.
002045 74 13 04 00 0 002004 1529. BADVAR LMJ XL,APPBAD.
002046 051630050623 1530. ' IS AN ILLEGAL VARIABLE@'
002047 051621211214
002050 062105330627
002051 160607211200
002052 74 13 04 00 0 002022 1531. LMJ XL,APPBX.
002053 74 04 00 00 0 002043 1532. J BINDRX.
1533. $(8)
8 000043 1534. APPS RES 3
1535. $(3)
1536. . RETURN CURRENT ASSOCIATION LIST
3 002054 06 00 04 01 0 040000 1537. ALIST S XL,STACK,XT.
002055 12 04 02 01 0 040000 1538. LM,LH XV,STACK,XT.
002056 74 04 00 00 0 000011 1539. RETURN.
1540. /. SPECIAL FORMS
1541. . LAMBDA
3 002057 12 03 02 02 0 037777 1542. EVLAM LOAD 1.
002060 12 16 02 00 0 000001
002061 10 16 03 00 0 001727 1543. LA,U XV+1,APPLY.
002062 74 13 04 00 0 000022 1544. NODE LINKER. BUILD LINK TO INTERPRETER
002063 74 04 00 00 0 000011 1545. RETURN
1546. . LAMDA
002064 27 00 16 00 0 000004 1547. EVFLAM LX XV,XL.
002065 26 00 16 02 0 037777 1548. LXM XV,STACK-1,XF.
002066 10 16 03 00 0 001726 1549. LA,U XV+1,APPLY-1.
002067 74 13 04 00 0 000022 1550. NODE LINKER.
002070 74 04 00 00 0 000011 1551. RETURN
1552. . QUOTE
002071 12 03 02 02 0 037777 1553. EVQUOT LOAD 1.
002072 12 16 02 00 0 000001
002073 12 04 02 16 0 000000 1554. CHAIN LH.
002074 74 04 00 00 0 000011 1555. RETURN
1556. . COND
002075 25 16 01 00 0 000001 1557. EVCOND ANX,U XT,1.
002076 12 03 02 02 0 037777 1558. LOAD 1.
002077 12 16 02 00 0 000001
002100 53 16 02 00 0 001000 1559. TNE XV,KNIL. NO MORE PAIRS
002101 74 04 00 00 0 000011 1560. RETURN
002102 12 03 04 16 0 000000 1561. LOWER XA. REST OF PAIRS
002103 01 03 04 02 0 037777 1562. SA,RH XA,STACK-1,XF.
002104 12 04 02 16 0 000000 1563. UPPER XV. FIRST PAIR.
002105 12 03 04 16 0 000000 1564. LOWER XA.
002106 01 00 04 02 0 037776 1565. SA XA,STACK-2,XF.
002107 74 13 04 00 0 001704 1566. LMJ XL,EVALC-1. EVALUATE PREDICATE
002110 26 16 01 01 0 000001 1567. POP.
002111 53 16 02 00 0 001000 1568. TNE XV,KNIL.
002112 74 04 00 00 0 002076 1569. J EVCOND+1. NEXT IF FALSE
002113 10 00 03 02 0 037776 1570. LA XV+1,STACK-2,XF.
002114 53 16 03 00 0 001000 1571. TNE XV+1,KNIL.
002115 74 04 00 00 0 000011 1572. RETURN.
002116 01 03 03 02 0 037777 1573. S,RH XV+1,STACK-1,XF.
002117 26 16 01 01 0 000001 1574. POP.
002120 74 04 00 00 0 002123 1575. J EVDO. EVAL REST OF PAIR
1576. . DO
002121 01 00 02 01 2 040000 1577. STORE 1.
002122 01 00 02 02 0 037777
002123 10 16 02 00 0 001000 1578. EVDO LA XV,KNIL.
002124 12 03 03 02 0 037777 1579. LMA,RH XV+1,STACK-1,XF.
002125 53 16 03 00 0 001000 1580. TNE XV+1,KNIL. MORE FORMS?
002126 74 04 00 00 0 000011 1581. RETURN
002127 12 03 02 02 0 037777 1582. EVDOL LOAD 1
002130 12 16 02 00 0 000001
002131 12 03 04 16 0 000000 1583. LOWER XA.
002132 12 04 02 16 0 000000 1584. UPPER XV.
002133 53 16 04 00 0 001000 1585. TNE XA,KNIL.
002134 74 04 00 00 0 002141 1586. J EVDOEND. IF LAST ONE
002135 01 03 04 02 0 037777 1587. S,RH XA,STACK-1,XF.
002136 74 13 04 00 0 001705 1588. LMJ XL,EVALC.
002137 26 16 01 01 0 000001 1589. POP
002140 74 04 00 00 0 002127 1590. J EVDOL.
002141 01 00 02 02 0 037777 1591. EVDOEND S XV,STACK-1,XF. CHANGE ARG TO EVAL,
002142 27 00 01 00 0 000002 1592. L XT,XF. MAKE STACK RIGHT.
002143 25 16 01 00 0 000002 1593. AN,U XT,2.
002144 74 04 00 00 0 001643 1594. J EVAL. AND EVALUATE IT.
1595. . OR
002145 12 03 02 02 0 037777 1596. EVOR LOAD 1
002146 12 16 02 00 0 000001
002147 53 16 02 00 0 001000 1597. TNE XV,KNIL.
002150 74 04 00 00 0 000011 1598. RETURN
002151 74 13 04 00 0 001702 1599. LMJ XL,EVALD.
002152 26 16 01 01 0 000001 1600. POP
002153 53 16 02 00 0 001000 1601. TNE XV,KNIL.
002154 74 04 00 00 0 002145 1602. J EVOR.
002155 74 04 00 00 0 000011 1603. RETURN
1604. . AND
002156 12 03 02 02 0 036664 1605. EVAND LOAD TRU.
002157 12 16 02 00 0 001114
002160 12 03 03 02 0 037777 1606. LMA,RH XV+1,STACK-1,XF.
002161 53 16 03 00 0 001000 1607. TNE XV+1,KNIL.
002162 74 04 00 00 0 000011 1608. RETURN
002163 12 03 02 02 0 037777 1609. LOAD 1.
002164 12 16 02 00 0 000001
002165 74 13 04 00 0 001702 1610. LMJ XL,EVALD.
002166 26 16 01 01 0 000001 1611. POP
002167 52 16 02 00 0 001000 1612. TE XV,KNIL.
002170 74 04 00 00 0 002157 1613. J EVAND+1.
002171 74 04 00 00 0 000011 1614. RETURN
1615. . STACK
002172 12 03 02 02 0 037777 1616. EVSTAK LOAD 1.
002173 12 16 02 00 0 000001
002174 74 13 04 00 0 001704 1617. LMJ XL,EVALC-1.
002175 26 00 01 00 0 000002 1618. LXM XT,XF.
002176 27 00 07 02 0 040000 1619. LX XR,STACK,XF.
002177 74 13 04 00 0 000071 1620. LMJ XL,STAKEM.
002200 26 02 02 03 0 037777 1621. LXM,H1 XF,CSTAK-1,XC.
002201 27 00 04 00 0 000007 1622. LX XL,XR.
002202 70 00 03 04 0 000000 1623. JGD XC,0,XL.
1624. . ATTEMPT
002203 12 03 02 02 0 037777 1625. EVTRY LOAD 1.
002204 12 16 02 00 0 000001
002205 12 03 02 16 0 000000 1626. LOWER XV.
002206 74 13 04 00 0 000034 1627. LMJ XL,TRAP.
002207 06 00 01 03 2 040000 1628. LETS EVAL.
002210 23 16 03 00 0 001643
002211 04 00 03 01 2 040000
002212 12 03 02 02 0 037777 1629. LOAD 1.
002213 12 16 02 00 0 000001
002214 12 04 02 16 0 000000 1630. UPPER XV.
002215 01 00 02 01 2 040000 1631. STORE
002216 01 00 02 02 0 040000
002217 74 13 04 00 0 000004 1632. CALLR.
002220 74 13 04 00 0 000043 1633. LMJ XL,UNTRAP.
002221 74 04 00 00 0 000011 1634. RETURN.
1635. /. YE OLDE PROGRAMME FEATURE
3 002222 12 03 02 02 0 037777 1636. EVPROG LOAD 1
002223 12 16 02 00 0 000001
002224 12 03 04 16 0 000000 1637. LOWER XA
002225 01 00 04 01 2 040000 1638. SA XA,STACK,*XT.
002226 01 03 04 02 0 037777 1639. SA,RH XA,STACK-1,XF.
002227 12 04 02 16 0 000000 1640. UPPER XV
002230 01 00 02 01 2 040000 1641. STORE
002231 01 00 02 02 0 040000
002232 53 16 02 00 0 001000 1642. EVPRV TNE XV,KNIL.
002233 74 04 00 00 0 002257 1643. J EVPRS.
002234 12 03 04 16 0 000000 1644. LOWER XA
002235 01 00 04 01 0 040001 1645. SA XA,STACK+1,XT.
002236 12 04 02 16 0 000000 1646. UPPER XV
002237 42 16 02 00 1 177600 1647. GETYPE
002240 73 02 03 00 0 000007
002241 10 13 03 17 0 000040
002242 74 01 03 00 0 002253 1648. JNZ XV+1,EVPRV1.
002243 12 04 04 16 0 000000 1649. UPPER XA.
002244 01 00 04 01 2 040000 1650. SA XA,STACK,*XT.
002245 12 03 02 16 0 000000 1651. LOWER XV
002246 74 13 04 00 0 001704 1652. LMJ XL,EVALC-1. GET INITIAL VALUE
002247 10 00 03 00 0 000016 1653. LA XV+1,XV.
002250 10 00 02 01 0 040002 1654. LA XV,STACK+2,XT.
002251 26 16 01 01 0 000002 1655. LXM,U XT,2,XT.
002252 74 04 00 00 0 002254 1656. J $+2.
002253 10 16 03 00 0 001000 1657. EVPRV1 LA XV+1,KNIL.
002254 74 13 04 00 0 002026 1658. LMJ XL,BINDER. ADD TO A-LIST
002255 10 00 02 01 0 040001 1659. LA XV,STACK+1,XT.
002256 74 04 00 00 0 002232 1660. J EVPRV.
002257 26 16 01 01 0 000001 1661. EVPRS POP
002260 10 16 02 00 0 002317 1662. L,U XV,PTRAP.
002261 74 13 04 00 0 000034 1663. LMJ XL,TRAP.
002262 12 03 02 02 0 037777 1664. EVPRL LOAD 1.
002263 12 16 02 00 0 000001
002264 52 16 02 00 0 001000 1665. TE XV,KNIL.
002265 74 04 00 00 0 002270 1666. J $+3.
002266 74 13 04 00 0 000043 1667. LMJ XL,UNTRAP.
002267 74 04 00 00 0 000011 1668. RETURN.
002270 12 03 04 16 0 000000 1669. LOWER XA
002271 01 03 04 02 0 037777 1670. SA,RH XA,STACK-1,XF.
002272 12 04 02 16 0 000000 1671. UPPER XV.
002273 42 16 02 00 1 177600 1672. GETYPE
002274 73 02 03 00 0 000007
002275 10 13 03 17 0 000040
002276 74 01 03 00 0 002262 1673. JNZ XV+1,EVPRL.
002277 74 13 04 00 0 001705 1674. LMJ XL,EVALC.
002300 26 16 01 01 0 000001 1675. POP
002301 74 04 00 00 0 002262 1676. J EVPRL.
1677. /. RETURN
3 002302 12 03 02 02 0 037777 1678. EVRET LOAD 1.
002303 12 16 02 00 0 000001
002304 12 04 02 16 0 000000 1679. UPPER XV.
002305 06 00 04 00 0 000047 1680. S XL,PVSAVE. SAVE ALIST
002306 01 03 02 00 0 000047 1681. S,RH XV,PVSAVE. AND EXPRESSION TO RETURN VALUE OF
002307 11 16 04 00 0 000001 1682. LN,U XA,1. THEN UNWIND STACK
002310 74 04 00 00 0 001475 1683. J UNWIND.
1684. . HANDLE GO
002311 12 03 02 02 0 037777 1685. EVGO LOAD 1.
002312 12 16 02 00 0 000001
002313 12 04 02 16 0 000000 1686. UPPER XV.
002314 01 00 02 00 0 000047 1687. S XV,PVSAVE.
002315 11 16 04 00 0 000002 1688. LN,U XA,2.
002316 74 04 00 00 0 001475 1689. J UNWIND.
002317 777775 002361 1690. PTRAP - 2,PTRAP1.
002320 10 00 04 00 0 000047 1691. L XA,PVSAVE.
002321 12 03 02 02 0 037776 1692. LOAD 2
002322 12 16 02 00 0 000002
002323 01 00 02 01 2 040000 1693. STORE 1
002324 01 00 02 02 0 037777
002325 12 03 02 02 0 037777 1694. EVGO2 LOAD 1
002326 12 16 02 00 0 000001
002327 53 16 02 00 0 001000 1695. TNE XV,KNIL.
002330 74 04 00 00 0 002343 1696. J BADGO.
002331 12 03 03 16 0 000000 1697. LOWER XV+1.
002332 01 00 03 02 0 037777 1698. SA XV+1,STACK-1,XF.
002333 12 04 02 16 0 000000 1699. UPPER XV.
002334 42 16 02 00 1 177600 1700. GETYPE
002335 73 02 03 00 0 000007
002336 10 13 03 17 0 000040
002337 74 00 03 00 0 002325 1701. JZ XV+1,EVGO2.
002340 15 00 02 00 0 000020 1702. ANA XV,XA.
002341 74 00 02 00 0 002260 1703. JZ XV,EVPRL-2.
002342 74 04 00 00 0 002325 1704. J EVGO2.
002343 74 13 07 00 0 003356 1705. BADGO EDIT
002344 142405000505 1706. 'GO @'
002345 06 00 01 03 2 040000 1707. LETS PRIN1.
002346 23 16 03 00 0 002544
002347 04 00 03 01 2 040000
002350 10 00 02 00 0 000047 1708. L XV,PVSAVE.
002351 01 00 02 01 2 040000 1709. STORE.
002352 01 00 02 02 0 040000
002353 74 13 04 00 0 000004 1710. CALLR.
002354 74 13 07 00 0 003357 1711. EDITA
002355 051621211214 1712. ' ILLEGAL@'
002356 062100050505
002357 74 13 14 00 0 003475 1713. LMJ XX,SENDDB.
002360 74 04 00 00 0 001416 1714. J SYSERR.
1715. LISPT2.
002361 777776 000000 1716. PTRAP1 - 1,0.
002362 10 03 02 00 0 000047 1717. L,RH XV,PVSAVE. EXPRESSION TO RETURN
002363 46 04 04 00 0 000047 1718. LXI,LH XL,PVSAVE. ALIST CURRENT AT RETURN
002364 74 04 00 00 0 002141 1719. J EVDOEND.
1720. /. ALTER BINDING ON ASSOCIATION LIST
3 002365 12 03 02 02 0 037777 1721. SETQ LOAD 1.
002366 12 16 02 00 0 000001
002367 12 04 04 16 0 000000 1722. UPPER XA
002370 01 03 04 02 0 037777 1723. SA,RH XA,STACK-1,XF.
002371 12 03 02 16 0 000000 1724. LOWER XV.
002372 74 13 04 00 0 001704 1725. LMJ XL,EVALC-1.
002373 12 03 02 02 0 037777 1726. SET LOAD 1.
002374 12 16 02 00 0 000001
002375 12 00 03 02 0 037776 1727. LMA XV+1,STACK-2,XF.
002376 71 12 02 03 0 040000 1728. DS XV,CSTAK,XC.
002377 74 13 04 00 0 002447 1729. LMJ XL,LOOKUP.
002400 01 16 03 00 0 000000 1730. S,U XV+1,0.
002401 10 00 02 00 0 000017 1731. L XV,XV+1.
002402 74 04 00 00 0 000011 1732. RETURN
002403 10 16 03 00 0 000000 1733. LUSTOR L,U XV+1,0.
002404 74 13 04 00 0 000000 1734. NODE CONSED. CREATE BINDING
002405 12 04 03 01 0 040001 1735. LMA,LH XV+1,STACK+1,XT.
002406 12 04 04 17 0 000000 1736. LMA,LH XA,0,XV+1.
002407 01 00 03 00 0 000046 1737. SA XV+1,LPROG.
002410 12 03 03 17 0 000000 1738. LMA,RH XV+1,0,XV+1.
002411 52 16 04 00 0 000046 1739. TE,U XA,LPROG.
002412 74 04 00 00 0 002406 1740. J $-4.
002413 74 13 04 00 0 000000 1741. NODE CONSED.
002414 10 00 03 00 0 000046 1742. LA XV+1,LPROG.
002415 01 03 02 17 0 000000 1743. SA,RH XV,0,XV+1.
002416 12 04 01 16 0 000000 1744. LM,LH XY,0,XV.
002417 26 16 01 01 0 000001 1745. POP.
002420 74 04 00 00 0 002526 1746. J LUGOON.
1747. $(8)
8 000046 1748. LPROG RES 1.
000047 1749. PVSAVE RES 1.
1750. $(3)
1751. . COMPILER ROUTINES FOR HANDLING FREE VARIABLES
1752. . ESTABLISH BINDING ON ASSOCIATION LIST
3 002421 06 00 04 01 2 040000 1753. BIND SX XL,STACK,*XT.
002422 73 01 02 00 0 000044 1754. DSC XV,36.
002423 74 13 04 00 0 000000 1755. NODE CONSED
002424 12 04 03 01 0 040001 1756. LMA,LH XV+1,STACK+1,XT.
002425 74 13 04 00 0 000000 1757. NODE CONSED.
002426 01 04 02 01 0 040001 1758. S,LH XV,STACK+1,XT.
002427 27 00 04 01 0 040001 1759. L XL,STACK+1,XT.
002430 12 04 02 16 0 000000 1760. CHAIN LH. RETURN PNTR TO PAIR
002431 26 16 01 01 0 000001 1761. POP.
002432 74 04 00 04 0 000000 1762. J 0,XL.
1763. . REMOVE BINDINGS
002433 74 00 03 04 0 000000 1764. UNBIND JZ XV+1,0,XL.
002434 06 00 04 01 0 040000 1765. SX XL,STACK,XT.
002435 10 04 00 01 0 040000 1766. LA,LH XX,STACK,XT.
002436 46 03 04 14 0 000000 1767. LXI,RH XL,0,XX.
002437 15 16 03 00 0 000001 1768. AN,U XV+1,1.
002440 74 04 00 00 0 002433 1769. J UNBIND.
1770. /. LOOKUP VARIABLE ON CURRENT ASSOCIATION LIST
3 002441 26 03 04 04 0 000000 1771. LXM,RH XL,0,XL.
002442 10 15 04 04 0 000000 1772. LOOKIE L,S1 XA,0,XL. COMPILER ENTRY
002443 53 15 04 00 0 000325 1773. TNE,S1 XA,(J BADI).
002444 74 04 00 00 0 002441 1774. J LOOKIE-1.
002445 71 12 02 03 0 040000 1775. DS XV,CSTAK,XC.
002446 10 03 02 04 0 000000 1776. L,RH XV,0,XL. GET ATOM ADDRESS
002447 06 00 04 01 0 040000 1777. LOOKUP S XL,STACK,XT.
002450 71 12 00 03 0 040002 1778. DS XX,CSTAK+2,XC.
002451 10 04 00 01 0 040000 1779. L,LH XX,STACK,XT. ASSOCIATION LIST
002452 51 04 00 16 0 000000 1780. TNZ,LH 0,XV. IS IT BY CHANCE A CONSTANT?
002453 74 04 00 00 0 002457 1781. J LULOOP.
002454 10 16 01 16 0 000000 1782. L,U XY,0,XV.
002455 46 16 15 00 0 002007 1783. LXI,U XY,LH*/8++XR.
002456 74 04 00 00 0 002470 1784. J LUFIX+1.
002457 53 16 00 00 0 001000 1785. LULOOP TNE XX,KNIL.
002460 74 04 00 00 0 002501 1786. J LUNOT. DIDN'T FIND IT
002461 12 04 01 14 0 000000 1787. LM,LH XY,0,XX.
002462 12 03 00 14 0 000000 1788. LM,RH XX,0,XX.
002463 52 04 02 15 0 000000 1789. TE,LH XV,0,XY. DESIRED BINDING?
002464 74 04 00 00 0 002457 1790. J LULOOP.
002465 51 03 00 15 0 000000 1791. TNZ,RH 0,XY.
002466 74 04 00 00 0 002501 1792. J LUNOT. IF MISSING ARGUMENT
002467 46 16 15 00 0 001407 1793. LUFIX LXI,U XY,RH*/8++XR.
002470 27 16 07 15 0 000000 1794. L,U XR,0,XY.
002471 23 00 02 00 0 000350 1795. L R2,(I$ 077,0,017,0,0,0).
002472 43 00 01 04 0 000000 1796. MLU XY,0,XL.
002473 01 00 02 03 0 040004 1797. S XY+1,CSTAK+4,XC.
002474 05 01 00 03 0 040004 1798. SZ,H2 CSTAK+4,XC.
002475 71 13 02 03 0 040000 1799. DL XV,CSTAK,XC.
002476 71 13 00 03 0 040002 1800. DL XX,CSTAK+2,XC.
002477 72 10 00 03 0 040004 1801. EX CSTAK+4,XC.
002500 74 04 00 04 0 000001 1802. J 1,XL.
002501 24 16 03 00 0 000004 1803. LUNOT A,U XC,4.
002502 25 16 01 00 0 000001 1804. AN,U XT,1.
002503 10 15 04 04 0 000000 1805. L,S1 XA,0,XL.
002504 54 16 04 00 0 000007 1806. TNG,U XA,07. ARE WE NOT STORING?
002505 74 04 00 00 0 002403 1807. J LUSTOR.
002506 06 00 01 03 2 040000 1808. LETS PRIN1.
002507 23 16 03 00 0 002544
002510 04 00 03 01 2 040000
002511 01 00 02 01 2 040000 1809. STORE
002512 01 00 02 02 0 040000
002513 74 13 07 00 0 003356 1810. EDIT
002514 322307243223 1811. 'UNBOUND @'
002515 110500050505
002516 74 13 04 00 0 000004 1812. CALLR
002517 74 13 14 00 0 003475 1813. LMJ XX,SENDDB.
002520 06 00 01 03 2 040000 1814. LETS EVREAD.
002521 23 16 03 00 0 001327
002522 04 00 03 01 2 040000
002523 74 13 04 00 0 000000 1815. CALL
002524 10 16 01 01 0 040001 1816. L,U XY,STACK+1,XT.
002525 26 16 01 01 0 000002 1817. LXM,U XT,2,XT.
002526 25 16 03 00 0 000004 1818. LUGOON AN,U XC,4.
002527 27 00 04 01 0 040000 1819. L XL,STACK,XT.
002530 74 04 00 00 0 002467 1820. J LUFIX.
1821. /. PRINT ROUTINE
3 002531 05 13 00 00 0 000041 1822. PRINT SZ LESC. CLEAR ESCAPE FLAG
002532 06 00 01 03 2 040000 1823. LETS PRIN1.
002533 23 16 03 00 0 002544
002534 04 00 03 01 2 040000
002535 12 03 02 02 0 037777 1824. MOVE 1.
002536 12 16 02 00 0 000001
002537 01 00 02 01 2 040000
002540 01 00 02 02 0 040000
002541 74 13 04 00 0 000004 1825. CALLR. EDIT OBJECT
002542 74 13 14 00 0 003450 1826. LMJ XX,SENDIT.
002543 74 04 00 00 0 007261 1827. J L1X.
1828. . EDITING ROUTINE
002544 10 04 02 00 0 000037 1829. PRIN1 L,LH XV,PLIMS.
002545 01 00 02 01 2 040000 1830. STORE. MOVE DEPTH
002546 01 00 02 02 0 040000
002547 10 03 02 00 0 000037 1831. L,RH XV,PLIMS.
002550 01 00 02 00 0 000040 1832. S XV,PLIML. SAVE LENGTH
002551 12 03 02 02 0 037777 1833. PRIN11 LOAD 1
002552 12 16 02 00 0 000001
002553 74 00 02 00 0 002700 1834. JZ XV,PRIN03+2. UNDEFINED?
002554 42 16 02 00 1 177600 1835. GETYPE
002555 73 02 03 00 0 000007
002556 10 13 03 17 0 000040
002557 10 00 02 16 0 000000 1836. LA XV,0,XV.
002560 74 04 00 17 0 002561 1837. J $+1,XV+1. BREAKOUT FOR TYPE
002561 74 04 00 00 0 002573 1838. I DO NUMTYPS , J PRNT(I-1)
002562 74 04 00 00 0 003102
002563 74 04 00 00 0 003066
002564 74 04 00 00 0 003126
002565 74 04 00 00 0 003016
002566 74 04 00 00 0 003016
002567 74 04 00 00 0 003016
002570 74 04 00 00 0 002702
002571 74 04 00 00 0 002737
002572 74 04 00 00 0 003016 1839. /. EDIT S-EXPRESSION
1840. PRNT(CONSED)
3 002573 12 03 02 02 0 037776 1841. LOAD 2. GET CURRENT DEPTH
002574 12 16 02 00 0 000002
002575 74 01 02 00 0 002600 1842. JNZ XV,$+3.
002576 10 16 02 00 0 000046 1843. L,U XV,'&'. TOO DEEP: JUST PRINT '&'
002577 74 04 00 00 0 002700 1844. J PRIN03+2.
002600 10 00 02 00 0 000040 1845. L XV,PLIML.
002601 01 00 02 03 2 040000 1846. S XV,CSTAK,*XC. SAVE LENGTH
002602 10 16 02 00 0 000051 1847. LA,U XV,'('.
002603 72 10 00 11 2 003421 1848. PRIN01 EX OUTPUT,*XO.
002604 10 00 02 03 0 037777 1849. L XV,CSTAK-1,XC. GET LENGTH
002605 74 01 02 00 0 002612 1850. JNZ XV,PRIN04.
002606 10 16 02 00 0 000041 1851. L,U XV,'-'. TOO LONG: PRINT '--'
002607 72 10 00 11 2 003421 1852. EX OUTPUT,*XO.
002610 72 10 00 11 2 003421 1853. EX OUTPUT,*XO.
002611 74 04 00 00 0 002676 1854. J PRIN03.
002612 15 16 02 00 0 000001 1855. PRIN04 AN,U XV,1. DECREASE LENGTH
002613 01 00 02 03 0 037777 1856. S XV,CSTAK-1,XC.
002614 12 03 02 02 0 037777 1857. LOAD 1
002615 12 16 02 00 0 000001
002616 74 13 04 00 0 006516 1858. LMJ XL,GETCAR.
002617 06 00 01 03 2 040000 1859. LETS PRIN11.
002620 23 16 03 00 0 002551
002621 04 00 03 01 2 040000
002622 01 00 02 01 2 040000 1860. STORE.
002623 01 00 02 02 0 040000
002624 12 03 02 02 0 037776 1861. LOAD 2.
002625 12 16 02 00 0 000002
002626 15 16 02 00 0 000001 1862. AN,U XV,1. DECREASE DEPTH COUNT
002627 01 00 02 01 2 040000 1863. STORE.
002630 01 00 02 02 0 040000
002631 74 13 04 00 0 000004 1864. CALLR. PRINT ELEMENT OF LIST
002632 12 03 02 02 0 037777 1865. LOAD 1
002633 12 16 02 00 0 000001
002634 74 13 04 00 0 006537 1866. LMJ XL,GETCDR.
002635 01 00 02 01 2 040000 1867. STORE 1.
002636 01 00 02 02 0 037777
002637 42 16 02 00 1 177600 1868. GETYPE
002640 73 02 03 00 0 000007
002641 10 13 03 17 0 000040
002642 74 01 03 00 0 002652 1869. JNZ XV+1,PRIN02.
002643 10 00 02 00 0 000050 1870. LA XV,LINE.
002644 61 17 00 11 0 000000 1871. TN,XU 0,XO.
002645 54 03 02 00 0 000041 1872. TLE XV,ELINE.
002646 74 04 00 00 0 002650 1873. J $+2.
002647 74 13 14 00 0 003450 1874. LMJ XX,SENDIT. IF LONG LINE AND PRINTING
002650 10 16 02 00 0 000005 1875. LA,U XV,' '.
002651 74 04 00 00 0 002603 1876. J PRIN01.
002652 53 16 02 00 0 001000 1877. PRIN02 TNE XV,KNIL.
002653 74 04 00 00 0 002676 1878. J PRIN03.
002654 10 16 02 00 0 000005 1879. LA,U XV,' '.
002655 72 10 00 11 2 003421 1880. EX OUTPUT,*XO.
002656 10 16 02 00 0 000075 1881. LA,U XV,'.'.
002657 72 10 00 11 2 003421 1882. EX OUTPUT,*XO.
002660 10 16 02 00 0 000005 1883. LA,U XV,' '.
002661 72 10 00 11 2 003421 1884. EX OUTPUT,*XO.
002662 06 00 01 03 2 040000 1885. LETS PRIN11.
002663 23 16 03 00 0 002551
002664 04 00 03 01 2 040000
002665 12 03 02 02 0 037777 1886. MOVE 1,2.
002666 12 16 02 00 0 000001
002667 01 00 02 01 2 040000
002670 01 00 02 02 0 040000
002671 12 03 02 02 0 037776
002672 12 16 02 00 0 000002
002673 01 00 02 01 2 040000
002674 01 00 02 02 0 040000
002675 74 13 04 00 0 000004 1887. CALLR.
002676 25 16 03 00 0 000001 1888. PRIN03 ANX,U XC,1. POP LENGTH
002677 10 16 02 00 0 000040 1889. LA,U XV,+')'.
002700 72 10 00 11 2 003421 1890. EX OUTPUT,*XO.
002701 74 04 00 00 0 000011 1891. RETURN.
1892. /. EDIT ATOMIC SYMBOL
1893. PRNT(SYMBOL)
3 002702 05 15 00 00 0 000041 1894. SZ LSTR. CLEAR STRING FLAG
002703 04 14 17 00 0 000041 1895. S XFLAG,LCHR1. SET 1ST CHAR FLAG
002704 12 03 02 02 0 037777 1896. LOAD 1.
002705 12 16 02 00 0 000001
002706 12 03 02 16 0 000001 1897. LMA,RH XV,1,XV. GET PRINT-NAME
002707 42 16 02 00 1 177600 1898. GETYPE.
002710 73 02 03 00 0 000007
002711 10 13 03 17 0 000040
002712 52 16 03 00 0 000001 1899. TE,U XV+1,INTGER. GENSYM?
002713 74 04 00 00 0 002744 1900. J STROUT+1. NO: PRINT STRING
1901. . EDIT GENSYM
002714 06 00 01 03 2 040000 1902. LETS PRIN11.
002715 23 16 03 00 0 002551
002716 04 00 03 01 2 040000
002717 12 03 02 02 0 037777 1903. LOAD 1.
002720 12 16 02 00 0 000001
002721 12 04 02 16 0 000001 1904. LMA,LH XV,1,XV.
002722 01 00 02 01 2 040000 1905. STORE
002723 01 00 02 02 0 040000
002724 12 03 02 02 0 037776 1906. MOVE 2.
002725 12 16 02 00 0 000002
002726 01 00 02 01 2 040000
002727 01 00 02 02 0 040000
002730 74 13 04 00 0 000004 1907. CALLR. PRINT HEADING
002731 12 03 02 02 0 037777 1908. LOAD 1.
002732 12 16 02 00 0 000001
002733 12 03 02 16 0 000001 1909. LMA,RH XV,1,XV.
002734 10 00 02 16 0 000000 1910. LA XV,0,XV.
002735 26 16 04 00 0 000011 1911. LXM,U XL,EXIT.
002736 74 04 00 00 0 003102 1912. J INTOUT. PRINT NUMBER 1913. /. EDIT STRING (INCLUDING ATOMIC SYMBOL PRINT-NAME)
1914. PRNT(STRING)
3 002737 04 15 17 00 0 000041 1915. S XFLAG,LSTR. SET STRING FLAG
002740 10 11 02 00 0 000100 1916. L XV,STRCHR.
002741 50 13 00 00 0 000041 1917. TZ LESC.
002742 72 10 00 11 2 003421 1918. EX OUTPUT,*XO. LEADING STRCHR IF PRIN2
002743 12 03 02 02 0 037777 1919. STROUT LOAD 1. GET STRING
002744 12 16 02 00 0 000001
002745 53 16 02 00 0 001000 1920. TNE XV,KNIL.
002746 74 04 00 00 0 003010 1921. J STRDN.
002747 10 02 03 16 0 000000 1922. L,H1 XV+1,0,XV. GET CHARACTERS
002750 12 03 02 16 0 000000 1923. CHAIN RH.
002751 01 00 02 01 2 040000 1924. STORE 1.
002752 01 00 02 02 0 037777
002753 73 12 03 00 0 000022 1925. LSSL XV+1,18.
002754 74 00 03 00 0 002743 1926. STR1 JZ XV+1,STROUT. NEXT WORD
002755 05 00 00 00 0 000016 1927. SZ XV.
002756 73 13 02 00 0 000006 1928. LDSL XV,6. NEXT CHAR
002757 51 13 00 00 0 000041 1929. TNZ LESC.
002760 74 04 00 00 0 003006 1930. J STR2. IF PRIN1
002761 51 15 00 00 0 000041 1931. TNZ LSTR. PRIN2:
002762 74 04 00 00 0 002766 1932. J $+4.
002763 53 11 02 00 0 000100 1933. TNE XV,STRCHR. STRING: NEED DOUBLE STRCHR?
002764 72 10 00 11 2 003421 1934. EX OUTPUT,*XO. YES
002765 74 04 00 00 0 003006 1935. J STR2.
002766 51 14 00 00 0 000041 1936. TNZ LCHR1. AT. SYMBOL: 1ST CHAR?
002767 74 04 00 00 0 002774 1937. J $+5. NO
002770 05 14 00 00 0 000041 1938. SZ LCHR1. YES: NOT ANY MORE
002771 10 03 06 16 0 000113 1939. L,RH XXA,DELIMS,XV. READMACRO?
002772 52 16 06 00 0 001000 1940. TE XXA,KNIL.
002773 74 04 00 00 0 003001 1941. J STRESC. YES:NEED ESCAPE
002774 10 04 06 16 0 000113 1942. L,LH XXA,DELIMS,XV. DELIMITER?
002775 52 16 06 00 0 001000 1943. TE XXA,KNIL.
002776 74 04 00 00 0 003001 1944. J STRESC. YES: NEED ESCAPE
002777 52 10 02 00 0 000100 1945. TE XV,ESCCHR. ESCAPE CHAR?
003000 74 04 00 00 0 003006 1946. J STR2. NO: NO ESCAPE NEEDED
003001 73 03 02 00 0 000006 1947. STRESC DSL XV,6.
003002 10 10 02 00 0 000100 1948. L XV,ESCCHR.
003003 72 10 00 11 2 003421 1949. EX OUTPUT,*XO.
003004 05 00 00 00 0 000016 1950. SZ XV.
003005 73 13 02 00 0 000006 1951. LDSL XV,6.
003006 72 10 00 11 2 003421 1952. STR2 EX OUTPUT,*XO.
003007 74 04 00 00 0 002754 1953. J STR1.
003010 50 13 00 00 0 000041 1954. STRDN TZ LESC. ALL DONE
003011 51 15 00 00 0 000041 1955. TNZ LSTR.
003012 74 04 00 00 0 000011 1956. RETURN.
003013 10 11 02 00 0 000100 1957. L XV,STRCHR. FINAL STRCHR IF NEEDED
003014 72 10 00 11 2 003421 1958. EX OUTPUT,*XO.
003015 74 04 00 00 0 000011 1959. RETURN.
1960. /. EDIT OUT OF BOUNDS ADDRESS
1961. PRNT(SYSTEM)
1962. PRNT(CODE)
1963. PRNT(LINKER)
1964. PRNT(SUSP)
3 003016 01 00 03 00 0 000101 1965. SA XV+1,NUMBER.
003017 10 16 02 00 0 000001 1966. LA,U XV,'['.
003020 72 10 00 11 2 003421 1967. EX OUTPUT,*XO.
003021 27 00 14 00 0 000351 1968. LX XX,(1,-1).
003022 23 16 01 00 0 002000 1969. LR,U R1,PAGNUM.
003023 10 16 02 00 0 000007 1970. OBO1 LA,U XV,SYMBOL.
003024 62 13 02 14 2 000041 1971. SE,S3 XV,PAGTAB+1,*XX.
003025 74 04 00 00 0 003054 1972. J OBON.
003026 27 00 15 00 0 000014 1973. LX XY,XX.
003027 73 12 01 00 0 000007 1974. LSSL XY,PAGBIT.
003030 46 16 15 00 0 000002 1975. LXI,U XY,2.
003031 10 16 04 00 0 000077 1976. L,U XA,PAGSIZ/2-1.
003032 12 03 02 02 0 037777 1977. LOAD 1.
003033 12 16 02 00 0 000001
003034 12 04 03 15 2 000000 1978. LMA,LH XV+1,0,*XY.
003035 53 00 02 00 0 000017 1979. TNE XV,XV+1.
003036 74 04 00 00 0 003041 1980. J $+3.
003037 70 01 00 00 0 003034 1981. JGD XA,$-3.
003040 74 04 00 00 0 003023 1982. J OBO1.
003041 25 16 15 00 0 000002 1983. ANX,U XY,2.
003042 06 00 01 03 2 040000 1984. LETS PRIN11.
003043 23 16 03 00 0 002551
003044 04 00 03 01 2 040000
003045 01 00 01 01 2 040000 1985. SA XY,STACK,*XT.
003046 12 03 02 02 0 037776 1986. MOVE 2.
003047 12 16 02 00 0 000002
003050 01 00 02 01 2 040000
003051 01 00 02 02 0 040000
003052 74 13 04 00 0 000004 1987. CALLR.
003053 74 04 00 00 0 003063 1988. J OBOX.
003054 10 00 02 00 0 000101 1989. OBON LA XV,NUMBER.
003055 74 13 04 00 0 003102 1990. LMJ XL,INTOUT.
003056 10 16 02 00 0 000053 1991. LA,U XV,':'.
003057 72 10 00 11 2 003421 1992. EX OUTPUT,*XO.
003060 12 03 02 02 0 037777 1993. LOAD 1.
003061 12 16 02 00 0 000001
003062 74 13 04 00 0 003066 1994. LMJ XL,OCTOUT.
003063 10 16 02 00 0 000002 1995. OBOX LA,U XV,']'.
003064 72 10 00 11 2 003421 1996. EX OUTPUT,*XO.
003065 74 04 00 00 0 000011 1997. RETURN.
1998. /. EDIT OCTAL NUMBER
1999. PRNT(OCTAL)
3 003066 10 16 03 00 0 000000 2000. OCTOUT LA,U XV+1,0.
003067 11 16 04 00 0 000001 2001. LN,U XA,1.
003070 73 03 02 00 0 000003 2002. DSL XV,3.
003071 14 16 04 00 0 000001 2003. AA,U XA,1.
003072 74 01 02 00 0 003070 2004. JNZ XV,$-2.
003073 10 16 02 00 0 000006 2005. LA,U XV,06.
003074 73 13 02 00 0 000003 2006. LDSL XV,3.
003075 72 10 00 11 2 003421 2007. EX OUTPUT,*XO.
003076 70 01 00 00 0 003073 2008. JGD XA,$-3.
003077 10 16 02 00 0 000026 2009. LA,U XV,'Q'.
003100 72 10 00 11 2 003421 2010. EX OUTPUT,*XO.
003101 74 04 00 04 0 000000 2011. J 0,XL.
2012. /. EDIT INTEGER
2013. PRNT(INTGER)
3 003102 06 00 01 03 0 040000 2014. INTOUT SX XT,CSTAK,XC.
003103 26 16 07 00 0 003112 2015. LXM,U XR,INTO1.
003104 74 02 02 07 0 000000 2016. JP XV,0,XR.
003105 10 00 03 00 0 000016 2017. LA XV+1,XV.
003106 10 16 02 00 0 000041 2018. LA,U XV,'-'.
003107 72 10 00 11 2 003421 2019. EX OUTPUT,*XO. EDIT MINUS SIGN
003110 11 00 02 00 0 000017 2020. LNA XV,XV+1.
003111 74 04 00 07 0 000000 2021. J 0,XR.
003112 73 03 02 00 0 000044 2022. INTO1 DSL XV,36.
003113 34 16 02 00 0 000012 2023. DI,U XV,10.
003114 01 00 03 01 2 040000 2024. SA XV+1,STACK,*XT.
003115 74 01 02 00 0 003112 2025. JNZ XV,$-3.
003116 10 00 02 01 0 040001 2026. LA XV,STACK+1,XT.
003117 14 16 02 00 0 000060 2027. AA,U XV,'0'.
003120 72 10 00 11 2 003421 2028. EX OUTPUT,*XO.
003121 26 16 01 01 0 000001 2029. POP.
003122 10 00 02 00 0 000001 2030. LA XV,XT.
003123 52 00 02 03 0 040000 2031. TE XV,CSTAK,XC.
003124 74 04 00 00 0 003116 2032. J $-6.
003125 74 04 00 04 0 000000 2033. J 0,XL.
2034. /. EDIT FLOATING POINT NUMBER
2035. PRNT(REAL)
3 003126 74 13 07 00 0 003104 2036. LMJ XR,INTOUT+2. SEND SIGN
003127 10 16 04 00 0 001750 2037. LA,U XA,1000.
003130 74 00 02 00 0 003142 2038. JZ XV,FPO2. ZERO?
003131 74 04 00 00 0 003133 2039. J $+2.
003132 76 02 02 00 0 000352 2040. FM XV,(10.0).
003133 54 00 02 00 0 000353 2041. FPO1 TNG XV,(1.0). GET IN RANGE 1.0 - 10.0
003134 70 01 00 00 0 003132 2042. JGD XA,$-2.
003135 54 00 02 00 0 000352 2043. TNG XV,(10.0).
003136 74 04 00 00 0 003142 2044. J FPO2
003137 14 16 04 00 0 000001 2045. AA,U XA,1.
003140 76 03 02 00 0 000352 2046. FD XV,(10.0).
003141 74 04 00 00 0 003133 2047. J FPO1.
003142 10 00 05 00 0 000354 2048. FPO2 LA XA+1,(0.000003).
003143 15 16 04 00 0 001750 2049. ANA,U XA,1000.
003144 01 00 02 00 0 000101 2050. SA XV,NUMBER.
003145 74 13 07 00 0 003160 2051. LMJ XR,FPDO. SEND FIRST DIGIT
003146 10 16 02 00 0 000075 2052. LA,U XV,'.'.
003147 72 10 00 11 2 003421 2053. EX OUTPUT,*XO. SEND DECIMAL POINT
003150 74 13 07 00 0 003160 2054. LMJ XR,FPDO. SEND ANOTHER DIGIT
003151 54 00 05 00 0 000101 2055. TNG XA+1,NUMBER. ARE WE DONE?
003152 74 04 00 00 0 003150 2056. J $-2.
003153 74 00 04 04 0 000000 2057. JZ XA,0,XL.
003154 10 16 02 00 0 000012 2058. LA,U XV,'E'.
003155 72 10 00 11 2 003421 2059. EX OUTPUT,*XO.
003156 10 00 02 00 0 000020 2060. LA XV,XA.
003157 74 04 00 00 0 003102 2061. J INTOUT.
003160 10 00 00 00 0 000101 2062. FPDO LA XX,NUMBER.
003161 76 00 00 00 0 000021 2063. FA XX,XA+1.
003162 10 16 02 00 0 000071 2064. LA,U XV,'9'.
003163 54 00 00 16 0 000021 2065. TNG XX,FPDIGS-060,XV.
003164 70 00 16 00 0 003163 2066. JGD XV,$-1.
003165 76 01 00 16 0 000021 2067. FAN XX,FPDIGS-060,XV.
003166 76 01 00 00 0 000021 2068. FAN XX,XA+1.
003167 76 02 00 00 0 000352 2069. FM XX,(10.0).
003170 01 00 00 00 0 000101 2070. SA XX,NUMBER.
003171 76 02 05 00 0 000352 2071. FM XA+1,(10.0).
003172 72 10 00 11 2 003421 2072. EX OUTPUT,*XO.
2074. /. EDIT INTO A SPECIFIED COLUMN
3 003174 04 13 17 00 0 000041 2075. S XFLAG,LESC. SET ESCAPE FLAG
003175 74 04 00 00 0 003177 2076. J PRINA+1.
003176 05 13 00 00 0 000041 2077. PRINA SZ LESC. CLEAR ESCAPE FLAG
003177 05 00 00 01 2 040000 2078. SZ STACK,*XT.
003200 12 03 02 02 0 037776 2079. LOAD 2
003201 12 16 02 00 0 000002
003202 74 00 02 00 0 003222 2080. JZ XV,PRINA1.
003203 10 00 04 16 0 000000 2081. LA XA,0,XV.
003204 15 16 04 00 0 000001 2082. ANA,U XA,1.
003205 42 16 04 00 0 000177 2083. AND,U XA,0177.
003206 10 16 04 00 0 000000 2084. LA,U XA,0.
003207 34 16 04 00 0 000006 2085. DI,U XA,6.
003210 14 16 04 00 0 000050 2086. AA,U XA,LINE.
003211 01 03 04 00 0 000042 2087. SA,RH XA,LINER.
003212 14 16 04 00 0 000001 2088. AA,U XA,1.
003213 01 03 04 00 0 000050 2089. SA,RH XA,LINE.
003214 14 16 05 00 0 000001 2090. AA,U XA+1,1.
003215 46 16 11 00 0 000001 2091. LXI,U XO,1.
003216 06 04 11 00 0 000042 2092. SX,LH XO,LINER.
003217 50 04 00 00 0 000042 2093. TZ,LH LINER.
003220 26 00 11 00 0 000021 2094. LXM XO,XA+1.
003221 01 04 05 00 0 000042 2095. SA,LH XA+1,LINER.
003222 06 00 01 03 2 040000 2096. PRINA1 LETS PRIN1.
003223 23 16 03 00 0 002544
003224 04 00 03 01 2 040000
003225 12 03 02 02 0 037777 2097. MOVE 1.
003226 12 16 02 00 0 000001
003227 01 00 02 01 2 040000
003230 01 00 02 02 0 040000
003231 74 13 04 00 0 000004 2098. CALLR.
003232 10 00 04 00 0 000355 2099. LA XA,(1,LINE).
003233 01 00 04 00 0 000042 2100. SA XA,LINER.
003234 74 04 00 00 0 007261 2101. J L1X.
2102. . GET CURRENT PRINT POSITION
003235 10 16 03 00 0 000001 2103. CURCOL L,U XV+1,1.
003236 51 16 00 11 0 000000 2104. TNZ,U 0,XO.
003237 74 04 00 00 0 000003 2105. J STORIT(INTGER).
003240 10 00 03 00 0 000050 2106. L XV+1,LINE.
003241 15 16 03 00 0 000051 2107. AN,U XV+1,LINE+1.
003242 31 16 03 00 0 000006 2108. MSI,U XV+1,6.
003243 14 16 03 11 0 000000 2109. A,U XV+1,0,XO.
003244 74 04 00 00 0 000003 2110. J STORIT(INTGER).
2111. /. SET NEW PRINT LIMITS
3 003245 05 00 00 01 2 040000 2112. PLIMIT SZ STACK,*XT.
003246 10 00 02 00 0 000037 2113. L XV,PLIMS.
003247 01 00 02 00 0 000040 2114. S XV,PLIML. SAVE OLD LIMITS
003250 12 03 02 02 0 037777 2115. LOAD 1.
003251 12 16 02 00 0 000001
003252 74 00 02 00 0 003261 2116. JZ XV,PLIM1. JUST RETURN CURRENT LIMITS
003253 12 04 03 16 0 000000 2117. UPPER XV+1.
003254 10 00 03 17 0 000000 2118. L XV+1,0,XV+1.
003255 01 04 03 00 0 000037 2119. S,LH XV+1,PLIMS.
003256 12 03 03 16 0 000000 2120. LOWER XV+1.
003257 10 00 03 17 0 000000 2121. L XV+1,0,XV+1.
003260 01 03 03 00 0 000037 2122. S,RH XV+1,PLIMS.
003261 10 03 03 00 0 000040 2123. PLIM1 L,RH XV+1,PLIML.
003262 74 13 04 00 0 000003 2124. NODE INTGER.
003263 01 00 02 01 2 040000 2125. STORE 1.
003264 01 00 02 02 0 037777
003265 10 04 03 00 0 000040 2126. L,LH XV+1,PLIML.
003266 74 13 04 00 0 000003 2127. NODE INTGER.
003267 12 03 03 02 0 037777 2128. LMA,RH XV+1,STACK-1,XF.
003270 74 13 04 00 0 000000 2129. NODE CONSED.
003271 74 04 00 00 0 000011 2130. RETURN.
2131. $(6)
6 000037 000012 000062 2132. PLIMS + 10,50. PRINT DEPTH, LENGTH
000040 000000000062 2133. PLIML + 50. TEMP STORAGE OF LENGTH
2134. $(3)
2135. /. COMPUTE LENGTH OF PRINTED OBJECT
3 003272 04 13 17 00 0 000041 2136. S XFLAG,LESC. SET ESCAPE FLAG
003273 74 04 00 00 0 003275 2137. J PLENGTH+1.
003274 05 13 00 00 0 000041 2138. PLENGTH SZ LESC. CLEAR ESCAPE FLAG
003275 05 00 00 00 0 000012 2139. SZ XW1. ZERO COUNTER
003276 06 00 11 00 0 000050 2140. S XO,XOSAV. SAVE XO
003277 27 00 11 00 0 000356 2141. L XO,(0,-1).
003300 06 00 01 03 2 040000 2142. LETS PRIN1.
003301 23 16 03 00 0 002544
003302 04 00 03 01 2 040000
003303 12 03 02 02 0 037777 2143. MOVE 1.
003304 12 16 02 00 0 000001
003305 01 00 02 01 2 040000
003306 01 00 02 02 0 040000
003307 74 13 04 00 0 000004 2144. CALLR.
003310 27 00 11 00 0 000050 2145. L XO,XOSAV. RESTORE XO
003311 10 00 03 00 0 000012 2146. L XV+1,XW1. GET COUNT
003312 74 13 04 00 0 000003 2147. NODE INTGER.
003313 74 04 00 00 0 000011 2148. RETURN.
2149. . EXPLODE ATOM INTO A LIST
003314 04 13 17 00 0 000041 2150. S XFLAG,LESC. SET ESCAPE FLAG
003315 74 04 00 00 0 003317 2151. J EXPLODE+1.
003316 05 13 00 00 0 000041 2152. EXPLODE SZ LESC. CLEAR ESCAPE FLAG
003317 06 00 11 00 0 000050 2153. S XO,XOSAV. SAVE XO
003320 27 00 11 00 0 000357 2154. L XO,(0,-2).
003321 27 00 12 00 0 000331 2155. L XW1,(1,0).
003322 06 00 01 03 2 040000 2156. LETS PRIN1.
003323 23 16 03 00 0 002544
003324 04 00 03 01 2 040000
003325 12 03 02 02 0 037777 2157. MOVE 1.
003326 12 16 02 00 0 000001
003327 01 00 02 01 2 040000
003330 01 00 02 02 0 040000
003331 74 13 04 00 0 000004 2158. CALLR.
003332 27 00 11 00 0 000050 2159. L XO,XOSAV. RESTORE XO
003333 25 16 12 00 0 000001 2160. AN,U XW1,1.
003334 46 16 12 00 3 177776 2161. LXI,U XW1,0777776.
003335 12 03 02 02 0 037000 2162. LOAD NIL.
003336 12 16 02 00 0 001000
003337 72 10 00 12 2 003345 2163. EXPLLP EX EXPLG,*XW1. GET A CHAR (BACKWARDS)
003340 73 12 03 00 0 000001 2164. LSSL XV+1,1.
003341 14 16 03 00 0 001032 2165. A,U XV+1,CHARS. CONVERT TO ATOM ADDRESS
003342 73 01 02 00 0 000044 2166. DSC XV,36.
003343 74 13 04 00 0 000000 2167. NODE CONSED.
003344 74 04 00 00 0 003337 2168. J EXPLLP.
003345 74 04 00 00 0 003347 2169. EXPLG J EXPLD.
2170. I DO 6 ,
003346 10 10 03 00 1 000051 2171. L XV+1,*NAME,,S1-I+1.
003347 10 00 06 00 0 000051 2172. EXPLD L XXA,NAME.
003350 15 16 06 00 0 000001 2173. AN,U XXA,1.
003351 53 16 06 00 0 000051 2174. TNE,U XXA,NAME.
003352 74 04 00 00 0 000011 2175. RETURN.
003353 01 00 06 00 0 000051 2176. S XXA,NAME.
003354 26 16 12 00 0 000006 2177. LXM,U XW1,6.
003355 74 04 00 00 0 003337 2178. J EXPLLP.
2179. /. SEND SYSTEM MESSAGE TO PRINT LINE
3 003356 74 13 14 00 0 003450 2180. LMJ XX,SENDIT.
003357 05 00 00 00 0 000045 2181. EDCHAR SZ PFNAM.
003360 10 16 04 00 0 000005 2182. EDCHL LA,U XA,5.
003361 10 00 03 07 0 000000 2183. LA XV+1,0,XR.
003362 10 16 02 00 0 000000 2184. LA,U XV,0.
003363 73 13 02 00 0 000006 2185. LDSL XV,6.
003364 74 00 02 07 0 000001 2186. JZ XV,1,XR.
003365 72 10 00 11 2 003421 2187. EX OUTPUT,*XO.
003366 70 01 00 00 0 003362 2188. JGD XA,$-4.
003367 24 16 07 00 0 000001 2189. AX,U XR,1.
003370 74 04 00 00 0 003360 2190. J EDCHL.
2191. . DUMP PRINT LINE
003371 05 00 00 01 2 040000 2192. TERPRI SZ STACK,*XT.
003372 05 00 00 00 0 000045 2193. SZ PFNAM.
003373 12 03 02 02 0 037777 2194. LOAD 1.
003374 12 16 02 00 0 000001
003375 74 00 02 00 0 003415 2195. JZ XV,TERPRI1.
003376 74 13 04 00 0 006264 2196. LMJ XL,GETNAM.
003377 74 13 04 00 0 006305 2197. LMJ XL,BLANKS.
003400 71 12 04 00 0 000045 2198. DS XA,PFNAM.
003401 12 03 02 02 0 037777 2199. LOAD 1.
003402 12 16 02 00 0 000001
003403 10 00 00 00 0 000043 2200. L XX,APQ.
003404 74 00 00 00 0 003411 2201. TERPRI2 JZ XX,INAPQ.
003405 53 04 02 14 0 000000 2202. TNE,LH XV,0,XX.
003406 74 04 00 00 0 003415 2203. J TERPRI1.
003407 12 03 00 14 0 000000 2204. LMA,RH XX,0,XX.
003410 74 04 00 00 0 003404 2205. J TERPRI2.
003411 10 00 03 00 0 000043 2206. INAPQ L XV+1,APQ.
003412 74 13 04 00 0 000000 2207. NODE CONSED.
003413 01 00 02 00 0 000043 2208. S XV,APQ.
003414 74 13 04 00 0 006323 2209. LMJ XL,ASSIGN.
003415 74 13 14 00 0 003450 2210. TERPRI1 LMJ XX,SENDIT.
003416 74 04 00 00 0 006455 2211. J GFAL.
2212. /. OUTPUT ROUTINE
3 003417 72 10 00 12 2 004162 2213. EX PUTIT,*XW1. COME HERE FOR EXPLODE
003420 24 16 12 00 0 000001 2214. A,U XW1,1. COME HERE FOR PLENGTH
003421 74 13 14 00 0 003424 2215. OUTPUT LMJ XX,OUTPT1.
2216. I DO 6 ,
003422 01 10 02 00 1 000050 2217. SA XV,*LINE,,S1-I+1.
003423 74 13 14 00 0 003434 2218. LMJ XX,OUTPT2.
003424 10 03 06 00 0 000042 2219. OUTPT1 LA,RH XXA,LINER.
003425 01 00 06 00 0 000050 2220. SA XXA,LINE.
003426 27 16 11 00 0 000026 2221. LX,U XO,22.
003427 10 00 06 00 0 000332 2222. LA XXA,(' ').
003430 01 00 06 11 0 000051 2223. SA XXA,LINE+1,XO.
003431 70 00 11 00 0 003430 2224. JGD XO,$-1.
003432 26 04 11 00 0 000042 2225. LXM,LH XO,LINER.
003433 74 04 00 00 0 003435 2226. J $+2.
003434 26 16 11 00 0 000001 2227. OUTPT2 LXM,U XO,1.
003435 46 16 11 00 0 000001 2228. LXI,U XO,1.
003436 10 00 06 00 0 000050 2229. LA XXA,LINE.
003437 14 16 06 00 0 000001 2230. AA,U XXA,1.
003440 01 00 06 00 0 000050 2231. SA XXA,LINE.
003441 15 16 00 00 0 000001 2232. AN,U XX,1.
003442 54 16 06 00 0 000077 2233. TNG,U XXA,LINE+23.
003443 74 04 00 14 0 000000 2234. J 0,XX.
003444 46 16 14 00 0 000000 2235. LXI,U XX,0.
003445 52 16 00 00 0 003457 2236. TE,U XX,SENDL-1. (UGH, DO I HATE TO DO IT!)
003446 01 00 00 00 0 000050 2237. S XX,XOSAV.
003447 74 04 00 00 0 003460 2238. J SENDL.
2239. /. PRINT LINE
3 003450 51 16 00 11 0 000000 2240. SENDIT TNZ,U 0,XO.
003451 74 04 00 14 0 000000 2241. J 0,XX. LINE EMPTY
003452 01 00 00 00 0 000050 2242. S XX,XOSAV.
003453 51 00 00 00 0 000045 2243. TNZ PFNAM.
003454 51 15 00 00 0 000213 2244. TNZ CMODE.
003455 74 04 00 00 0 003460 2245. J $+3.
003456 10 16 02 00 0 000077 2246. L,U XV,077.
003457 72 10 00 11 2 003421 2247. EX OUTPUT,*XO. STOP CODE IF SENDING TO TERMINAL
003460 10 00 00 00 0 000047 2248. SENDL L A0,LINE-1.
003461 50 00 00 00 0 000045 2249. TZ PFNAM.
003462 74 04 00 00 0 003465 2250. J ALTPRT.
U 003463 72 11 00 00 0 000000 2251. ER PRINT$.
003464 74 04 00 00 0 003470 2252. J SEND1.
003465 01 00 00 00 0 000044 2253. ALTPRT S A0,PFNAM-1.
003466 10 16 00 00 0 000044 2254. L,U A0,PFNAM-1.
U 003467 72 11 00 00 0 000000 2255. ER PRNTA$.
003470 10 16 06 00 0 000001 2256. SEND1 L,U XXA,1.
003471 01 07 06 00 0 000047 2257. S XXA,PLINES.
003472 26 16 11 00 0 000000 2258. LXM,U XO,0.
003473 10 00 00 00 0 000050 2259. L XX,XOSAV.
003474 74 04 00 14 0 000000 2260. J 0,XX.
2261. . PRINT LINE WITH DOUBLE SPACING
003475 10 16 06 00 0 000002 2262. SENDDB L,U XXA,2.
003476 01 07 06 00 0 000047 2263. S XXA,PLINES.
003477 74 04 00 00 0 003450 2264. J SENDIT.
2265. . SET LINE SPACING
003500 12 03 02 02 0 037777 2266. SPACE LOAD 1.
003501 12 16 02 00 0 000001
003502 10 00 06 16 0 000000 2267. L XXA,0,XV.
003503 74 00 06 00 0 003505 2268. JZ XXA,$+2.
003504 14 16 06 00 0 000001 2269. A,U XXA,1.
003505 01 07 06 00 0 000047 2270. S XXA,PLINES.
003506 74 04 00 00 0 006455 2271. J GFAL.
2272. /$(6).
6 000041 000000 000071 2273. + 0,LINE+17.
00 03 00 00 0 000041 2274. ELINE EQUF $-1,,RH.
00 15 00 00 0 000041 2275. LSTR EQUF $-1,,S1.
00 14 00 00 0 000041 2276. LCHR1 EQUF $-1,,S2.
00 13 00 00 0 000041 2277. LESC EQUF $-1,,S3.
000042 000001 000050 2278. LINER PAIR 1,LINE.
000043 000000 000000 2279. APQ +0,0
000044 000000000000 2280. +0
000045 000000000000 2281. PFNAM +0D
000046 000000000000
000047 00 01 26 000051 2282. PF 0,1,22,LINE+1.
00 07 00 00 0 000047 2283. PLINES EQUF $-1,,T1.
00 13 00 00 0 000047 2284. PWORDS EQUF $-1,,S3.
000050 2285. LINE RES 24.
2286. $(8)
8 000050 2287. XOSAV RES 1.
2288. $(3).
2289. /. READ ROUTINE
2290. CHA* FUNC
2291. END CHARS+2*CHA(1).
2292. IFIS* PROC
2293. ANU,U XV,CHA(IFIS(1,1)).
2294. JZ XV+1,IFIS(2,1).
2295. END
2296. IFNOT* PROC
2297. ANU,U XV,CHA(IFNOT(1,1)).
2298. JNZ XV+1,IFNOT(2,1).
2299. END
3 003507 777772 000000 2300. - 5,0.
003510 10 16 02 00 0 003507 2301. READ L,U XV,$-1.
003511 74 13 04 00 0 000034 2302. LMJ XL,TRAP.
003512 06 00 01 03 2 040000 2303. LETS REED.
003513 23 16 03 00 0 003520
003514 04 00 03 01 2 040000
003515 74 13 04 00 0 000004 2304. CALLR.
003516 74 13 04 00 0 000043 2305. LMJ XL,UNTRAP.
003517 74 04 00 00 0 000011 2306. RETURN.
003520 06 00 01 03 2 040000 2307. REED LETS READA.
003521 23 16 03 00 0 003632
003522 04 00 03 01 2 040000
003523 74 13 04 00 0 000004 2308. CALLR. GET A TOKEN
003524 74 02 02 00 0 000011 2309. JP XV,EXIT. RETURN IF NOT A DELIM
003525 11 00 02 00 0 000016 2310. LN XV,XV.
003526 21 16 02 00 0 001154 2311. IFIS '(' BRAK1. IS IT AN OPENING BRACKET?
003527 74 00 03 00 0 003534
003530 21 16 02 00 0 001034 2312. IFIS '[' BRAK1.
003531 74 00 03 00 0 003534
003532 21 16 02 00 0 001140 2313. IFNOT '<' EXIT.
003533 74 01 03 00 0 000011
003534 01 00 02 01 2 040000 2314. BRAK1 STORE
003535 01 00 02 02 0 040000
003536 06 00 01 03 2 040000 2315. READ1 LETS READA.
003537 23 16 03 00 0 003632
003540 04 00 03 01 2 040000
003541 74 13 04 00 0 000004 2316. CALLR. GET A TOKEN
003542 74 02 02 00 0 003626 2317. JP XV,READ13. IF NOT A DELIM
003543 11 00 02 00 0 000016 2318. LN XV,XV.
003544 21 16 02 00 0 001154 2319. IFIS '(' BRAK2. OPENING BRACKET?
003545 74 00 03 00 0 003552
003546 21 16 02 00 0 001034 2320. IFIS '[' BRAK2.
003547 74 00 03 00 0 003552
003550 21 16 02 00 0 001140 2321. IFNOT '<' READ11.
003551 74 01 03 00 0 003571
003552 06 00 01 03 2 040000 2322. BRAK2 LETS READ1.
003553 23 16 03 00 0 003536
003554 04 00 03 01 2 040000
003555 01 00 02 01 2 040000 2323. STORE
003556 01 00 02 02 0 040000
003557 74 13 04 00 0 000000 2324. CALL. READ SUBLIST
003560 06 00 01 03 2 040000 2325. READ1R LETS READ1.
003561 23 16 03 00 0 003536
003562 04 00 03 01 2 040000
003563 12 03 02 02 0 037777 2326. MOVE 1.
003564 12 16 02 00 0 000001
003565 01 00 02 01 2 040000
003566 01 00 02 02 0 040000
003567 74 13 04 00 0 000000 2327. CALL. READ REST OF SUBLIST
003570 74 04 00 00 0 006443 2328. J CONS.
003571 10 16 04 00 0 001154 2329. READ11 LA,U XA,CHA('(').
003572 21 16 02 00 0 001132 2330. IFIS ')' BRAK3. CLOSING BRACKET?
003573 74 00 03 00 0 003602
003574 10 16 04 00 0 001034 2331. LA,U XA,CHA('[').
003575 21 16 02 00 0 001036 2332. IFIS ']' BRAK3.
003576 74 00 03 00 0 003602
003577 10 16 04 00 0 001140 2333. LA,U XA,CHA('<').
003600 21 16 02 00 0 001144 2334. IFNOT '>' READ12.
003601 74 01 03 00 0 003605
003602 52 00 04 02 0 037777 2335. BRAK3 TE XA,STACK-1,XF. CORRECT ONE?
003603 25 16 06 00 0 000001 2336. ANX,U XI,1. REREAD CLOSING BRACKET
003604 74 04 00 00 0 006455 2337. J GFAL. CORRECT ONE?
003605 21 16 02 00 0 001224 2338. READ12 IFNOT '.' READ13.
003606 74 01 03 00 0 003626
003607 06 00 01 03 2 040000 2339. LETS REED.
003610 23 16 03 00 0 003520
003611 04 00 03 01 2 040000
003612 74 13 04 00 0 000000 2340. CALL. READ AFTER DOT
003613 06 00 01 03 2 040000 2341. LETS READ1.
003614 23 16 03 00 0 003536
003615 04 00 03 01 2 040000
003616 12 03 02 02 0 037777 2342. MOVE 1.
003617 12 16 02 00 0 000001
003620 01 00 02 01 2 040000
003621 01 00 02 02 0 040000
003622 74 13 04 00 0 000004 2343. CALLR. SKIP CLOSING BRACKET
003623 12 03 02 02 0 037776 2344. LOAD 2.
003624 12 16 02 00 0 000002
003625 74 04 00 00 0 000011 2345. RETURN
003626 01 00 02 01 2 040000 2346. READ13 STORE
003627 01 00 02 02 0 040000
003630 74 04 00 00 0 003560 2347. J READ1R.
2348. /. READ NEXT LISP ENTITY
3 003631 26 16 06 00 0 000000 2349. MACEND LXM,U XI,0. END OF CARD MACRO
2350. MACIGN . IGNORE CHAR MACRO
003632 72 10 00 06 2 004422 2351. READA EX INPUT,*XI. GET FIRST CHAR
003633 10 03 00 16 0 000113 2352. L,RH XX,DELIMS,XV.
003634 53 16 00 00 0 003717 2353. TNE,U XX,MACESC. ESCAPE CHAR?
003635 74 04 00 00 0 003702 2354. J TOKEN1. YES: IT'S A TOKEN
003636 52 16 00 00 0 001000 2355. TE XX,KNIL. READMACRO?
003637 74 04 00 14 0 000000 2356. J 0,XX. YES: CALL IT
003640 10 04 00 16 0 000113 2357. L,LH XX,DELIMS,XV.
003641 53 16 00 00 0 001000 2358. TNE XX,KNIL. DELIMITER?
003642 74 04 00 00 0 003702 2359. J TOKEN1. NO: GET REST OF TOKEN
003643 73 12 02 00 0 000001 2360. LSSL XV,1. YES
003644 14 16 02 00 0 001032 2361. A,U XV,CHARS.
003645 11 00 02 00 0 000016 2362. LN XV,XV. TELL REED IT'S A DELIM
003646 74 04 00 00 0 000011 2363. RETURN.
003647 06 00 01 03 2 040000 2364. MACQUO LETS REED. QUOTE MACRO
003650 23 16 03 00 0 003520
003651 04 00 03 01 2 040000
003652 74 13 04 00 0 000004 2365. CALLR. READ EXP TO BE QUOTED
003653 27 16 17 00 0 001000 2366. LX XV+1,KNIL.
003654 74 13 04 00 0 000000 2367. NODE CONSED
003655 27 00 17 00 0 000016 2368. LX XV+1,XV.
003656 12 03 02 02 0 036776 2369. LOAD QUOTE.
003657 12 16 02 00 0 001002
003660 74 13 04 00 0 000000 2370. NODE CONSED
003661 74 04 00 00 0 000011 2371. RETURN.
2372. /. PARSE OUT NEXT TOKEN FROM INPUT STREAM
2373. BREAK* PROC
2374. XX* PROC
2375. TNE,U XV,BREAK(I,1)**077.
2376. J BREAK(I,2).
2377. END
2378. I DO BREAK , XX.
2379. END
3 003662 72 10 00 06 2 004422 2380. TOKEN EX INPUT,*XI. GET A CHARACTER
003663 53 16 02 00 0 000005 2381. BREAK ' ',TOKEN. MOVE TO NON-SPACE
003664 74 04 00 00 0 003662
003665 74 02 02 00 0 003670 2382. JP XV,$+3.
003666 12 03 02 02 0 037000 2383. LOAD NIL. END OF COMPRESS
003667 12 16 02 00 0 001000
003670 74 04 00 00 0 000011 2384. RETURN.
003671 10 03 03 16 0 000113 2385. L,RH XV+1,DELIMS,XV.
003672 53 16 03 00 0 004144 2386. TNE,U XV+1,MACSTR. STRING?
003673 74 04 00 00 0 004144 2387. J MACSTR. YES
003674 10 04 03 16 0 000113 2388. L,LH XV+1,DELIMS,XV.
003675 53 16 03 00 0 001000 2389. TNE XV+1,KNIL. DELIMITER?
003676 74 04 00 00 0 003702 2390. J TOKEN1. NO
003677 73 12 02 00 0 000001 2391. LSSL XV,1. YES: RETURN IT
003700 24 16 16 00 0 001032 2392. AX,U XV,CHARS.
003701 74 04 00 00 0 000011 2393. RETURN
003702 26 16 10 00 0 003734 2394. TOKEN1 LXM,U XW,BR0. SET UP FOR ATOM
003703 46 16 10 00 0 004140 2395. LXI,U XW,NORMAL.
003704 05 00 00 00 0 000020 2396. SZ XA.
003705 05 00 00 00 0 000101 2397. SZ NUMBER
003706 05 00 00 00 0 000103 2398. SZ SIGN
003707 05 00 00 00 0 000102 2399. SZ OKTAL.
003710 27 00 12 00 0 000331 2400. LX XW1,(1,0).
003711 10 03 03 16 0 000113 2401. TOKEN2 L,RH XV+1,DELIMS,XV.
003712 53 16 03 00 0 003717 2402. TNE,U XV+1,MACESC.
003713 74 04 00 00 0 003717 2403. J MACESC. ESCAPE CHAR
003714 72 10 00 12 2 004162 2404. EX PUTIT,*XW1. STORE CHARACTER
003715 14 00 04 00 0 000016 2405. AA XA,XV.
003716 74 04 00 10 0 000000 2406. J 0,XW. BREAK OUT
003717 72 10 00 06 2 004422 2407. MACESC EX INPUT,*XI. ESCAPE: READ NEXT CHAR
003720 72 10 00 12 2 004162 2408. EX PUTIT,*XW1.
003721 14 00 04 00 0 000016 2409. AA XA,XV.
003722 46 16 10 00 0 004140 2410. CANCEL LXI,U XW,NORMAL.
003723 26 16 10 00 0 003724 2411. LXM,U XW,$+1.
003724 72 10 00 06 2 004422 2412. NEXTC EX INPUT,*XI.
003725 74 03 02 00 0 003731 2413. JN XV,BRD. END OF COMPRESS?
003726 10 04 03 16 0 000113 2414. L,LH XV+1,DELIMS,XV.
003727 53 16 03 00 0 001000 2415. TNE XV+1,KNIL. DELIMITER?
003730 74 04 00 00 0 003711 2416. J TOKEN2. NO
003731 27 00 17 00 0 000010 2417. BRD LX XV+1,XW. YES
003732 73 02 03 00 0 000022 2418. SSL XV+1,18.
003733 74 04 00 17 0 000000 2419. J 0,XV+1. TAKE FINAL BREAKOUT
003734 53 16 02 00 0 000010 2420. BR0 BREAK 'C',BRC '+',BRP
003735 74 04 00 00 0 004077
003736 53 16 02 00 0 000042
003737 74 04 00 00 0 003744
003740 52 16 02 00 0 000041 2421. TE,U XV,'-'.
003741 74 04 00 00 0 003745 2422. J BRP+1.
003742 10 16 03 00 0 000000 2423. LA,U XV+1,0.
003743 02 00 03 00 0 000103 2424. SNA XV+1,SIGN. SET SIGN NEGATIVE
003744 74 13 10 00 0 003724 2425. BRP LMJ XW,NEXTC. NEXT CHARACTER
003745 27 00 10 00 0 000360 2426. LX XW,(PAIR INT,BR02).
003746 15 16 02 00 0 000060 2427. BR01 ANA,U XV,'0'.
003747 74 03 02 00 0 003722 2428. JN XV,CANCEL. IF NOT NUMERIC
003750 55 16 02 00 0 000012 2429. TG,U XV,10. IS IT A DIGIT
003751 74 04 00 00 0 003722 2430. J CANCEL.
003752 10 00 03 00 0 000101 2431. LA XV+1,NUMBER.
003753 31 16 03 00 0 000012 2432. MSI,U XV+1,10. BUILD INTEGR
003754 14 00 03 00 0 000016 2433. A XV+1,XV.
003755 01 00 03 00 0 000101 2434. SA XV+1,NUMBER.
003756 73 03 02 00 0 000003 2435. DSL XV,3. BUILD OCTAL
003757 10 00 02 00 0 000102 2436. LA XV,OKTAL.
003760 73 13 02 00 0 000003 2437. LDSL XV,3.
003761 01 00 02 00 0 000102 2438. SA XV,OKTAL.
003762 74 04 00 00 0 003724 2439. J NEXTC.
003763 53 16 02 00 0 000012 2440. BR02 BREAK 'E',BRSI 'Q',BRSO.
003764 74 04 00 00 0 004043
003765 53 16 02 00 0 000026
003766 74 04 00 00 0 004053
003767 74 04 00 00 0 003746 2441. J BR01.
003770 53 16 02 00 0 000075 2442. INT BREAK '.',FPNUM.
003771 74 04 00 00 0 003776
003772 10 00 02 00 0 000101 2443. LA XV,NUMBER.
003773 41 00 02 00 0 000103 2444. XOR XV,SIGN.
003774 74 13 04 00 0 000003 2445. NODE INTGER. STORE INTEGER
003775 74 04 00 00 0 004142 2446. J TOKOUT.
003776 72 10 00 12 2 004162 2447. FPNUM EX PUTIT,*XW1.
003777 10 16 02 00 0 000233 2448. LA,U XV,0233.
004000 76 05 02 00 0 000101 2449. LCF XV,NUMBER. CONVERT TO FLOATING
004001 01 00 03 00 0 000101 2450. SA XV+1,NUMBER.
004002 46 16 10 00 0 004017 2451. LXI,U XW,FPEND.
004003 10 00 02 00 0 000352 2452. LA XV,(10.0).
004004 01 00 02 00 0 000102 2453. FPLOOP SA XV,OKTAL.
004005 74 13 10 00 0 003724 2454. LMJ XW,NEXTC. NEXT CHARACTER
004006 53 16 02 00 0 000012 2455. BREAK 'E',FPS.
004007 74 04 00 00 0 004062
004010 10 00 02 16 0 000021 2456. LA XV,FPDIGS-060,XV. BUILD FRACTIONAL PART
004011 76 03 02 00 0 000102 2457. FD XV,OKTAL.
004012 76 00 02 00 0 000101 2458. FA XV,NUMBER.
004013 01 00 02 00 0 000101 2459. SA XV,NUMBER.
004014 10 00 02 00 0 000102 2460. LA XV,OKTAL.
004015 76 02 02 00 0 000352 2461. FM XV,(10.0).
004016 74 04 00 00 0 004004 2462. J FPLOOP.
004017 10 00 02 00 0 000101 2463. FPEND LA XV,NUMBER.
004020 41 00 02 00 0 000103 2464. XOR XV,SIGN.
004021 74 13 04 00 0 000011 2465. NODE REAL
004022 74 04 00 00 0 004142 2466. J TOKOUT.
004023 41 00 02 00 0 000103 2467. SCALE XOR XV,SIGN.
004024 01 00 03 00 0 000104 2468. SA XV+1,SAVE.
004025 46 16 10 00 0 004041 2469. LXI,U XW,SCALE1.
004026 05 00 00 00 0 000103 2470. SZ SIGN.
004027 05 00 00 00 0 000101 2471. SZ NUMBER.
004030 74 13 10 00 0 003724 2472. LMJ XW,NEXTC.
004031 26 16 10 00 0 003746 2473. LXM,U XW,BR01.
004032 53 16 02 00 0 000042 2474. BREAK '+',NEXTC.
004033 74 04 00 00 0 003724
004034 52 16 02 00 0 000041 2475. TE,U XV,'-'.
004035 74 04 00 00 0 003746 2476. J BR01.
004036 10 16 02 00 0 000000 2477. LA,U XV,0.
004037 02 00 02 00 0 000103 2478. SNA XV,SIGN.
004040 74 04 00 00 0 003724 2479. J NEXTC.
004041 10 00 02 00 0 000101 2480. SCALE1 LA XV,NUMBER.
004042 74 04 00 04 0 000000 2481. J 0,XL.
004043 10 00 02 00 0 000101 2482. BRSI LA XV,NUMBER.
004044 74 13 04 00 0 004023 2483. LMJ XL,SCALE. GET SCALE FACTOR
004045 10 00 03 00 0 000104 2484. LA XV+1,SAVE.
004046 74 04 00 00 0 004050 2485. J $+2.
004047 31 16 03 00 0 000012 2486. MSI,U XV+1,10.
004050 70 00 16 00 0 004047 2487. JGD XV,$-1.
004051 74 13 04 00 0 000003 2488. NODE INTGER
004052 74 04 00 00 0 004142 2489. J TOKOUT.
004053 10 00 02 00 0 000102 2490. BRSO LA XV,OKTAL.
004054 74 13 04 00 0 004023 2491. LMJ XL,SCALE.
004055 31 16 02 00 0 000003 2492. MSI,U XV,3.
004056 10 00 03 00 0 000104 2493. LA XV+1,SAVE.
004057 73 10 03 16 0 000000 2494. LSSC XV+1,0,XV.
004060 74 13 04 00 0 000006 2495. NODE OCTAL.
004061 74 04 00 00 0 004142 2496. J TOKOUT.
004062 10 00 02 00 0 000101 2497. FPS LA XV,NUMBER.
004063 74 13 04 00 0 004023 2498. LMJ XL,SCALE. GET EXPONENT.
004064 10 00 03 00 0 000104 2499. LA XV+1,SAVE.
004065 61 00 00 00 0 000103 2500. TN SIGN.
004066 74 04 00 00 0 004071 2501. J FPS1.
004067 74 04 00 00 0 004074 2502. J FPS2.
004070 76 02 03 00 0 000352 2503. FM XV+1,(10.0).
004071 70 00 16 00 0 004070 2504. FPS1 JGD XV,$-1.
004072 74 04 00 00 0 004075 2505. J FPS2+1.
004073 76 03 03 00 0 000352 2506. FD XV+1,(10.0).
004074 70 00 16 00 0 004073 2507. FPS2 JGD XV,$-1.
004075 74 13 04 00 0 000011 2508. NODE REAL.
004076 74 04 00 00 0 004142 2509. J TOKOUT.
004077 10 16 02 00 0 000001 2510. BRC LA,U XV,1.
004100 01 00 02 00 0 000102 2511. SA XV,OKTAL.
004101 74 13 10 00 0 003724 2512. LMJ XW,NEXTC.
004102 53 16 02 00 0 000006 2513. BREAK 'A',BRCA 'D',BRCD 'R',BRCR.
004103 74 04 00 00 0 004111
004104 53 16 02 00 0 000011
004105 74 04 00 00 0 004113
004106 53 16 02 00 0 000027
004107 74 04 00 00 0 004121
004110 74 04 00 00 0 003722 2514. J CANCEL.
004111 10 16 02 00 0 000000 2515. BRCA LA,U XV,0.
004112 74 04 00 00 0 004114 2516. J $+2
004113 10 16 02 00 0 000001 2517. BRCD LA,U XV,1.
004114 73 03 02 00 0 000001 2518. DSL XV,1.
004115 10 00 02 00 0 000102 2519. LA XV,OKTAL.
004116 73 13 02 00 0 000001 2520. LDSL XV,1.
004117 01 00 02 00 0 000102 2521. SA XV,OKTAL.
004120 74 04 00 00 0 003724 2522. J NEXTC.
004121 46 16 10 00 0 004124 2523. BRCR LXI,U XW,CARCDR.
004122 26 16 10 00 0 003722 2524. LXM,U XW,CANCEL.
004123 74 04 00 00 0 003724 2525. J NEXTC.
004124 74 13 04 00 0 004327 2526. CARCDR LMJ XL,INTERN. PUT AWAY ATOM
004125 74 04 00 00 0 004142 2527. J TOKOUT. ALREADY THERE
004126 01 00 02 01 2 040000 2528. STORE
004127 01 00 02 02 0 040000
004130 10 00 02 00 0 000102 2529. LA XV,OKTAL.
004131 10 16 03 00 0 006346 2530. LA,U XV+1,FOLLOW.
004132 74 13 04 00 0 000022 2531. NODE LINKER
004133 10 00 03 00 0 000016 2532. LA XV+1,XV.
004134 26 16 01 01 0 000001 2533. POP
004135 10 00 02 01 0 040000 2534. LA XV,STACK,XT.
004136 01 04 03 16 0 000000 2535. SA,LH XV+1,0,XV. PLUG VALUE OF ATOM
004137 74 04 00 00 0 004142 2536. J TOKOUT.
004140 74 13 04 00 0 004327 2537. NORMAL LMJ XL,INTERN. PUT AWAY ATOM
004141 74 06 00 00 0 000000 2538. NOP . DON'T CARE IF NEW
004142 25 16 06 00 0 000001 2539. TOKOUT ANX,U XI,1. REPICK LAST CHARACTER
004143 74 04 00 00 0 000011 2540. RETURN
2541. . READ A STRING
004144 27 00 12 00 0 000331 2542. MACSTR LX XW1,(1,0).
004145 72 10 00 06 2 004422 2543. EX INPUT,*XI. READ TILL NEXT STRCHR
004146 74 03 02 00 0 004160 2544. JN XV,MCSTRD. END OF COMPRESS
004147 10 03 03 16 0 000113 2545. L,RH XV+1,DELIMS,XV.
004150 52 16 03 00 0 004144 2546. TE,U XV+1,MACSTR. STRCHR?
004151 74 04 00 00 0 004156 2547. J $+5. NO
004152 72 10 00 06 2 004422 2548. EX INPUT,*XI. YES
004153 10 03 03 16 0 000113 2549. L,RH XV+1,DELIMS,XV.
004154 52 16 03 00 0 004144 2550. TE,U XV+1,MACSTR. DOUBLE STRCHR = STRCHR
004155 74 04 00 00 0 004160 2551. J MCSTRD.
004156 72 10 00 12 2 004162 2552. EX PUTIT,*XW1.
004157 74 04 00 00 0 004145 2553. J MACSTR+1.
004160 74 13 14 00 0 004372 2554. MCSTRD LMJ XX,MAKSTR. CONSTRUCT THE STRING
004161 74 04 00 00 0 004142 2555. J TOKOUT.
2556. . PUT CHARS IN NAME BUFFER
004162 74 13 14 00 0 004165 2557. PUTIT LMJ XX,PUTIT1.
2558. I DO 6 ,
004163 01 10 02 00 1 000051 2559. SA XV,*NAME,,S1-I+1.
004164 74 13 14 00 0 004167 2560. LMJ XX,PUTIT2.
004165 10 16 06 00 0 000051 2561. PUTIT1 LA,U XXA,NAME.
004166 01 00 06 00 0 000051 2562. SA XXA,NAME.
004167 10 00 06 00 0 000051 2563. PUTIT2 LA XXA,NAME.
004170 52 16 06 00 0 000100 2564. TE,U XXA,NAME+23.
004171 14 16 06 00 0 000001 2565. AA,U XXA,1.
004172 01 00 06 00 0 000051 2566. SA XXA,NAME.
004173 05 00 00 00 1 000051 2567. SZ *NAME.
004174 01 15 02 00 1 000051 2568. SA,S1 XV,*NAME.
004175 26 16 12 00 0 000002 2569. LXM,U XW1,2.
004176 74 04 00 14 0 000000 2570. J 0,XX.
2571. /$(8).
8 000051 2572. NAME RES 24
000101 2573. NUMBER RES 1
000102 2574. OKTAL RES 1
000103 2575. SIGN RES 1
000104 2576. SAVE RES 1
2577. $(6).
6 000100 00 00 00 00 76 55 2578. + 0,0,0,0,STRC,ESCC.
00 11 00 00 0 000100 2579. STRCHR EQUF $-1,,S5.
00 10 00 00 0 000100 2580. ESCCHR EQUF $-1,,S6.
2581. FPDIGS .
000101 000000000000 2582. I DO 10 , +(I-1.0).
000102 201400000000
000103 202400000000
000104 202600000000
000105 203400000000
000106 203500000000
000107 203600000000
000110 203700000000
000111 204400000000
000112 204440000000
2583. . DELIMITER / READMACRO TABLE
000113 001000 001000 2584. DELIMS + NIL,NIL. @
000114 001114 001000 2585. + TRU,NIL. [
000115 001114 001000 2586. + TRU,NIL. ]
000116 001000 001000 2587. + NIL,NIL. #
000117 001000 001000 2588. + NIL,NIL. ^
000120 001114 003632 2589. + TRU,MACIGN. (SPACE)
000121 001000 001000 2590. DO 'Z'-'A'+1 , + NIL,NIL. (A - Z)
000122 001000 001000
000123 001000 001000
000124 001000 001000
000125 001000 001000
000126 001000 001000
000127 001000 001000
000130 001000 001000
000131 001000 001000
000132 001000 001000
000133 001000 001000
000134 001000 001000
000135 001000 001000
000136 001000 001000
000137 001000 001000
000140 001000 001000
000141 001000 001000
000142 001000 001000
000143 001000 001000
000144 001000 001000
000145 001000 001000
000146 001000 001000
000147 001000 001000
000150 001000 001000
000151 001000 001000
000152 001000 001000
000153 001114 001000 2591. + TRU,NIL. )
000154 001000 001000 2592. + NIL,NIL. -
000155 001000 001000 2593. + NIL,NIL. +
000156 001114 001000 2594. + TRU,NIL. <
000157 001000 001000 2595. + NIL,NIL. =
000160 001114 001000 2596. + TRU,NIL. >
000161 001000 001000 2597. + NIL,NIL. &
000162 001000 001000 2598. + NIL,NIL. $
000163 001000 001000 2599. + NIL,NIL. *
000164 001114 001000 2600. + TRU,NIL. (
000165 001000 001000 2601. + NIL,NIL. %
000166 001000 001000 2602. + NIL,NIL. :
000167 001114 003631 2603. + TRU,MACEND. ?
000170 001000 003717 2604. + NIL,MACESC. !
000171 001114 003632 2605. + TRU,MACIGN. ,
000172 001000 001000 2606. + NIL,NIL. \
000173 001000 001000 2607. DO '9'-'0'+1 , + NIL,NIL. (1 - 9)
000174 001000 001000
000175 001000 001000
000176 001000 001000
000177 001000 001000
000200 001000 001000
000201 001000 001000
000202 001000 001000
000203 001000 001000
000204 001000 001000
000205 001114 003647 2608. + TRU,MACQUO. '
000206 001000 001000 2609. + NIL,NIL.
000207 001000 001000 2610. + NIL,NIL. /
000210 001114 001000 2611. + TRU,NIL. .
000211 001000 004144 2612. + NIL,MACSTR. "
000212 001000 001000 2613. + NIL,NIL. (077)
2614. $(3).
2615. /. READ ONE CHARACTER.
3 004177 72 10 00 06 2 004422 2616. READCH EX INPUT,*XI.
004200 73 12 02 00 0 000001 2617. LSSL XV,1.
004201 24 16 16 00 0 001032 2618. AX,U XV,CHARS.
004202 74 04 00 00 0 000011 2619. RETURN
2620. . CLEAR INPUT BUFFER
004203 26 16 06 00 0 000000 2621. CLEARB LXM,U XI,0.
004204 74 04 00 00 0 006455 2622. J GFAL.
2623. . SET COLUMN FOR READ
004205 12 03 02 02 0 037777 2624. SETCOL LOAD 1.
004206 12 16 02 00 0 000001
004207 10 00 00 16 0 000000 2625. L XX,0,XV.
004210 73 05 00 00 0 000044 2626. DSA XX,36.
004211 34 16 00 00 0 000006 2627. DI,U XX,6.
004212 14 16 00 00 0 000220 2628. A,U XX,IMAGE+1.
004213 01 00 00 00 0 000217 2629. S XX,IMAGE.
004214 26 00 06 00 0 000015 2630. LXM XI,XX+1.
004215 74 04 00 00 0 006455 2631. J GFAL.
2632. . BACKSPACE ONE CHARACTER
004216 26 00 14 00 0 000006 2633. BACKSP LXM XX,XI.
004217 74 00 00 00 0 006455 2634. JZ XX,GFAL. BUFFER EMPTY
004220 53 16 00 00 0 000001 2635. TNE,U XX,1.
004221 74 04 00 00 0 004224 2636. J $+3.
004222 25 16 06 00 0 000001 2637. ANX,U XI,1.
004223 74 04 00 00 0 006470 2638. J GTRU. OK
004224 10 00 00 00 0 000217 2639. L XX,IMAGE. AT START OF WORD
004225 53 16 00 00 0 000220 2640. TNE,U XX,IMAGE+1. FIRST WORD IN IMAGE?
004226 74 04 00 00 0 006455 2641. J GFAL. YES
004227 15 16 00 00 0 000001 2642. AN,U XX,1. NO: MOVE TO PRECEEDING WORD
004230 01 00 00 00 0 000217 2643. S XX,IMAGE.
004231 26 16 06 00 0 000006 2644. LXM,U XI,6.
004232 74 04 00 00 0 006470 2645. J GTRU.
2646. . SET OR CLEAR DELIMITER FLAG
004233 05 00 00 01 2 040000 2647. DELIM SZ STACK,*XT.
004234 12 03 02 02 0 037777 2648. LOAD 1.
004235 12 16 02 00 0 000001
004236 10 15 00 16 0 000000 2649. L,S1 XX,0,XV. GET CHARACTER
004237 10 04 02 14 0 000113 2650. L,LH XV,DELIMS,XX. GET OLD FLAG
004240 12 03 03 02 0 037776 2651. LMA,RH XV+1,STACK-2,XF.
004241 74 00 03 00 0 000011 2652. JZ XV+1,EXIT. JUST RETURN IT
004242 01 04 03 14 0 000113 2653. S,LH XV+1,DELIMS,XX. SET NEW FLAG FIRST
004243 74 04 00 00 0 000011 2654. RETURN.
2655. . DEFINE OR CLEAR READMACRO
004244 05 00 00 01 2 040000 2656. READMC SZ STACK,*XT.
004245 12 03 02 02 0 037777 2657. LOAD 1.
004246 12 16 02 00 0 000001
004247 10 15 00 16 0 000000 2658. L,S1 XX,0,XV. GET CHARACTER
004250 10 03 02 14 0 000113 2659. L,RH XV,DELIMS,XX. GET OLD READMACRO (OR NIL)
004251 12 03 03 02 0 037776 2660. LMA,RH XV+1,STACK-2,XF.
004252 74 00 03 00 0 000011 2661. JZ XV+1,EXIT. JUST RETURN IT
004253 01 03 03 14 0 000113 2662. S,RH XV+1,DELIMS,XX. SET NEW READMACRO FIRST
004254 53 16 03 00 0 003717 2663. TNE,U XV+1,MACESC.
004255 01 10 00 00 0 000100 2664. S XX,ESCCHR. STORE NEW ESCAPE CHAR FOR PRIN2
004256 53 16 03 00 0 004144 2665. TNE,U XV+1,MACSTR.
004257 01 11 00 00 0 000100 2666. S XX,STRCHR. STORE NEW STRING CHAR FOR PRIN2
004260 74 04 00 00 0 000011 2667. RETURN.
2668. /. COMPRESS LIST INTO AN ATOM
2669. COMPRESS
3 004261 06 00 06 00 0 000152 2670. S XI,XISAV. SAVE XI
004262 27 00 06 00 0 000356 2671. L XI,(0,-1).
004263 12 03 02 02 0 037777 2672. LOAD 1.
004264 12 16 02 00 0 000001
004265 01 00 02 00 0 000105 2673. S XV,COMPL.
004266 06 00 01 03 2 040000 2674. LETS TOKEN.
004267 23 16 03 00 0 003662
004270 04 00 03 01 2 040000
004271 74 13 04 00 0 000004 2675. CALLR.
004272 27 00 06 00 0 000152 2676. L XI,XISAV. RESTORE XI
004273 74 04 00 00 0 000011 2677. RETURN.
2678. . COME HERE TO GET A CHAR
004274 10 00 02 00 0 000105 2679. COMPGC L XV,COMPL.
004275 53 16 02 00 0 001000 2680. TNE XV,KNIL.
004276 74 04 00 00 0 004311 2681. J COMPDN.
004277 12 03 03 16 0 000000 2682. LOWER XV+1.
004300 01 00 03 00 0 000105 2683. S XV+1,COMPL.
004301 12 04 02 16 0 000000 2684. UPPER XV.
004302 42 16 02 00 1 177600 2685. GETYPE.
004303 73 02 03 00 0 000007
004304 10 13 03 17 0 000040
004305 53 16 03 00 0 000007 2686. TNE,U XV+1,SYMBOL.
004306 12 03 02 16 0 000001 2687. LMA,RH XV,1,XV.
004307 10 15 02 16 0 000000 2688. L,S1 XV,0,XV.
004310 74 04 00 14 0 000000 2689. J 0,XX.
004311 11 16 02 00 0 000077 2690. COMPDN LN,U XV,077. STOP READING
004312 74 04 00 14 0 000000 2691. J 0,XX.
2692. $(8).
8 000105 2693. COMPL RES 1.
2694. $(3).
2695. /. GUARANTEE UNIQUENESS FOR ATOMIC SYMBOL
3 004313 10 16 04 00 0 000000 2696. INTERH LA,U XA,0. COMPUTE HASH TOTAL.
004314 27 16 14 00 0 000051 2697. LX,U XX,NAME.
004315 53 03 00 00 0 000051 2698. INTER1 TNE,RH XX,NAME. ADD UP CHARACTERS
004316 74 04 00 00 0 004327 2699. J INTERN.
004317 24 16 14 00 0 000001 2700. AX,U XX,1.
004320 14 15 04 14 0 000000 2701. I DO 6 , AA XA,0,XX,S1-I+1.
004321 14 14 04 14 0 000000
004322 14 13 04 14 0 000000
004323 14 12 04 14 0 000000
004324 14 11 04 14 0 000000
004325 14 10 04 14 0 000000
004326 74 04 00 00 0 004315 2702. J INTER1.
004327 01 00 04 00 0 000101 2703. INTERN SA XA,NUMBER. HASH TOTAL ALREADY COMPUTED
004330 27 10 14 00 0 000101 2704. LX,S6 XX,NUMBER.
004331 12 03 02 14 0 002040 2705. LMA,RH XV,HASH,XX.
004332 74 00 02 00 0 004357 2706. P7LOOP JZ XV,P7NEW. ATOM NOT IN HASH LIST?
004333 12 03 03 16 0 000001 2707. LMA,RH XV+1,1,XV. PNAME OF EXISTING ATOM
004334 27 16 14 00 0 000051 2708. LX,U XX,NAME.
004335 21 03 00 00 0 000051 2709. P7L1 ANU,RH XX,NAME.
004336 52 16 03 00 0 001000 2710. TE XV+1,KNIL. NO MORE PNAME?
004337 74 04 00 00 0 004343 2711. J P7L2.
004340 74 00 01 04 0 000000 2712. JZ XX+1,0,XL. NO MORE NAME?
004341 12 04 02 16 0 000001 2713. P7NA LMA,LH XV,1,XV. NEXT ATOM IN HASH LIST
004342 74 04 00 00 0 004332 2714. J P7LOOP.
004343 74 00 01 00 0 004341 2715. P7L2 JZ XX+1,P7NA.
004344 05 00 00 00 0 000015 2716. SZ XY.
004345 46 02 15 17 0 000000 2717. LXI,H1 XY,0,XV+1. GET 3 CHARS
004346 12 03 03 17 0 000000 2718. LMA,RH XV+1,0,XV+1.
004347 52 16 03 00 0 001000 2719. TE XV+1,KNIL.
004350 26 02 15 17 0 000000 2720. LXM,H1 XY,0,XV+1. GET NEXT 3 CHARS (0 IF NONE)
004351 24 16 14 00 0 000001 2721. AX,U XX,1. MOVE TO NEXT WORD
004352 52 00 01 14 0 000000 2722. TE XY,0,XX. TEST 6 CHARS
004353 74 04 00 00 0 004341 2723. J P7NA.
004354 52 16 03 00 0 001000 2724. TE XV+1,KNIL. AT END OF NAME?
004355 12 03 03 17 0 000000 2725. LMA,RH XV+1,0,XV+1 NO: MOVE TO NEXT 3 CHARS
004356 74 04 00 00 0 004335 2726. J P7L1.
004357 06 00 04 01 2 040000 2727. P7NEW SX XL,STACK,*XT.
004360 74 13 14 00 0 004372 2728. LMJ XX,MAKSTR. CONSTRUCT PRINT-NAME
004361 10 16 03 00 0 001000 2729. LA XV+1,KNIL. EMPTY PROPERTY LIST
004362 74 13 04 00 0 000025 2730. NODE SYMBOL. CREATE ATOMIC SYMBOL
004363 27 10 14 00 0 000101 2731. LX,S6 XX,NUMBER.
004364 12 03 01 14 0 002040 2732. LMA,RH XY,HASH,XX. ADD TO HASH LIST
004365 01 04 01 16 0 000001 2733. SA,LH XY,1,XV.
004366 01 03 02 14 0 002040 2734. SA,RH XV,HASH,XX.
004367 26 00 04 01 0 040001 2735. LXM XL,STACK+1,XT.
004370 26 16 01 01 0 000001 2736. POP
004371 74 04 00 04 0 000001 2737. J 1,XL. EXIT FOR NEW ATOM 2738. /. CONSTRUCT A STRING FROM NAME BUFFER
3 004372 12 03 02 02 0 037000 2739. MAKSTR LOAD NIL.
004373 12 16 02 00 0 001000
004374 10 03 01 00 0 000051 2740. L,RH XY,NAME.
004375 53 16 01 00 0 000051 2741. TNE,U XY,NAME.
004376 74 04 00 14 0 000000 2742. J 0,XX. DONE
004377 10 00 03 00 0 000016 2743. L XV+1,XV.
004400 10 01 02 15 0 000000 2744. L,H2 XV,0,XY. 3 CHARS
004401 74 00 02 00 0 004404 2745. JZ XV,$+3.
004402 74 13 04 00 0 000030 2746. NODE STRING.
004403 10 00 03 00 0 000016 2747. L XV+1,XV. 3 CHARS
004404 10 02 02 15 0 000000 2748. L,H1 XV,0,XY.
004405 74 13 04 00 0 000030 2749. NODE STRING.
004406 25 16 15 00 0 000001 2750. ANX,U XY,1.
004407 74 04 00 00 0 004374 2751. J MAKSTR+2.
2752. . CONVERT ATOMIC SYMBOL TO STRING
004410 12 03 02 02 0 037777 2753. GSTRNG LOAD 1.
004411 12 16 02 00 0 000001
004412 12 03 02 16 0 000001 2754. LMA,RH XV,1,XV.
004413 74 04 00 00 0 000011 2755. RETURN.
2756. . CONVERT STRING TO ATOMIC SYMBOL
004414 12 03 00 02 0 037777 2757. GATSYM LMA,RH XX,STACK-1,XF.
004415 74 13 04 00 0 006265 2758. LMJ XL,GETNAM+1.
004416 74 13 04 00 0 004313 2759. LMJ XL,INTERH.
004417 74 06 00 00 0 000000 2760. NOP.
004420 74 04 00 00 0 000011 2761. RETURN.
2762. /. INPUT ROUTINE
3 004421 74 13 14 00 0 004274 2763. LMJ XX,COMPGC. COME HERE FOR COMPRESS
004422 74 13 14 00 0 004425 2764. INPUT LMJ XX,INPUT1
2765. I DO 6 ,
004423 10 10 02 00 1 000217 2766. LA XV,*IMAGE,,S1-I+1.
004424 74 13 14 00 0 004475 2767. LMJ XX,INPUT2.
004425 01 00 00 00 0 000152 2768. INPUT1 S XX,XISAV.
004426 10 16 00 00 0 000361 2769. RCARD R$EAD (PAIR EOF,IMAGE+1).
004427 10 00 00 14 0 000000
U 004430 72 11 00 00 0 000000
004431 50 11 00 00 0 000213 2770. TZ AFSKIP.
004432 45 00 00 00 0 000362 2771. TOP A0,(1*/34).
004433 74 04 00 00 0 004435 2772. J $+2.
004434 74 04 00 00 0 004426 2773. J RCARD. SKIP @ADD STUFF
004435 05 11 00 00 0 000213 2774. SZ AFSKIP.
004436 44 00 00 00 0 000363 2775. TEP A0,(1*/31).
004437 74 04 00 00 0 004426 2776. J RCARD. IGNORE INFOR STUFF
004440 27 00 16 00 0 000332 2777. LX XV,(' ').
004441 06 00 16 14 0 000220 2778. SX XV,IMAGE+1,A0.
004442 01 13 00 00 0 000215 2779. S A0,RWORDS.
004443 46 16 14 00 0 000000 2780. LXI,U A0,0.
004444 14 16 00 00 0 000221 2781. AA,U A0,IMAGE+2.
004445 01 00 00 00 0 000216 2782. SA A0,IMAGE-1.
004446 10 00 00 00 0 000215 2783. LA A0,LFLAG.
004447 51 14 00 00 0 000213 2784. TNZ LMODE. NO LISTING?
U 004450 72 11 00 00 0 000000 2785. ER PRINT$
004451 10 15 00 00 0 000220 2786. LA,S1 XX,IMAGE+1.
004452 53 16 00 00 0 000053 2787. TNE,U XX,CTRCHR.
004453 74 04 00 00 0 004513 2788. J CONTRL.
004454 50 13 00 00 0 000213 2789. TZ DMODE.
004455 51 12 00 00 0 000213 2790. TNZ EVMODE.
004456 74 04 00 00 0 004471 2791. J INPUT3.
004457 10 00 00 00 0 000364 2792. L XX,(PF 0,2,5,MESS23).
004460 51 10 00 00 0 000213 2793. TNZ DSKIP.
U 004461 72 11 00 00 0 000000 2794. ER PRINT$.
004462 04 10 17 00 0 000213 2795. S XFLAG,DSKIP.
004463 74 04 00 00 0 004426 2796. J RCARD.
004464 100627113005 2797. MESS23 'CARDS SKIPPED IN DATA MODE'
004465 302016252512
004466 110516230511
004467 063106052224
004470 111205050505
004471 05 10 00 00 0 000213 2798. INPUT3 SZ DSKIP.
004472 10 00 00 00 0 000152 2799. L XX,XISAV.
004473 10 16 02 00 0 000217 2800. LA,U XV,IMAGE.
004474 01 00 02 00 0 000217 2801. SA XV,IMAGE.
004475 27 00 06 00 0 000365 2802. INPUT2 LX XI,(+1,1).
004476 10 00 02 00 0 000217 2803. LA XV,IMAGE. TO NEXT WORD
004477 14 16 02 00 0 000001 2804. AA,U XV,1.
004500 01 00 02 00 0 000217 2805. SA XV,IMAGE.
004501 55 00 02 00 0 000216 2806. TG XV,IMAGE-1.
004502 74 04 00 00 0 004425 2807. J INPUT1.
004503 72 10 00 06 2 004422 2808. EX INPUT,*XI.
004504 74 04 00 14 0 000000 2809. J 0,XX.
004505 10 16 00 00 0 000366 2810. EOF P$RINT (PF 0,2,2,MESS4).
004506 10 00 00 14 0 000000
U 004507 72 11 00 00 0 000000
004510 74 04 00 00 0 000765 2811. J FINIS.
004511 122311052413 2812. MESS4 'END OF FILE'
004512 051316211205
004513 27 16 16 00 0 000000 2813. CONTRL LX,U XV,0.
004514 10 00 00 16 0 004531 2814. LA XX,CTAB,XV.
004515 53 00 00 00 0 000220 2815. TNE XX,IMAGE+1.
004516 74 04 00 16 0 004532 2816. J CTAB+1,XV.
004517 24 16 16 00 0 000002 2817. AX,U XV,2.
004520 74 01 00 00 0 004514 2818. JNZ XX,CONTRL+1.
004521 10 16 00 00 0 000367 2819. P$RINT (PF 0,2,4,MESS6).
004522 10 00 00 14 0 000000
U 004523 72 11 00 00 0 000000
004524 74 04 00 00 0 004426 2820. J RCARD.
004525 102423312724 2821. MESS6 'CONTROL CARD MISPELED'
004526 210510062711
004527 052216302512
004530 211211050505
2822. CON* PROC
2823. XX FORM 6,30
2824. XX CTRCHR,CON(1,1)
2825. J CON(2,1)
2826. END
004531 53 2116302505 2827. CTAB CON 'LISP ' R2S
004532 74 04 00 00 0 004566
004533 53 3031242505 2828. CON 'STOP ' FINIS
004534 74 04 00 00 0 000765
004535 53 1235121005 2829. CON 'EXEC ' CSF
004536 74 04 00 00 0 004636
004537 53 3116221205 2830. CON 'TIME ' TIME
004540 74 04 00 00 0 004654
004541 53 2116303105 2831. CON 'LIST ' LON
004542 74 04 00 00 0 004575
004543 53 3223211630 2832. CON 'UNLIS' LOFF
004544 74 04 00 00 0 004577
004545 53 0706102005 2833. CON 'BACK ' BACK
004546 74 04 00 00 0 001363
004547 53 2424253005 2834. CON 'OOPS ' OOPS
004550 74 04 00 00 0 004572
004551 53 1106310605 2835. CON 'DATA ' SDATA
004552 74 04 00 00 0 004601
004553 53 2124061105 2836. CON 'LOAD ' SLOAD
004554 74 04 00 00 0 004603
004555 53 1223110505 2837. CON 'END ' ENDER
004556 74 04 00 00 0 004616
004557 53 1020253105 2838. CON 'CKPT ' CKPT
004560 74 04 00 00 0 005025
004561 53 2730312705 2839. CON 'RSTR ' RSTR
004562 74 04 00 00 0 005051
004563 53 2512122005 2840. CON 'PEEK ' PEEK
004564 74 04 00 00 0 001400
004565 000000000000 2841. + 0.
2842. /$(6)
6 000213 000000000000 2843. + 0.
00 15 00 00 0 000213 2844. CMODE EQUF $-1,,S1. CONVERSATIONAL FLAG
00 14 00 00 0 000213 2845. LMODE EQUF $-1,,S2. LISTING FLAG
00 13 00 00 0 000213 2846. DMODE EQUF $-1,,S3. DATA MODE FLAG
00 12 00 00 0 000213 2847. EVMODE EQUF $-1,,S4. EVALUATION MODE FLAG
00 11 00 00 0 000213 2848. AFSKIP EQUF $-1,,S5. SKIP @ADD STUFF FLAG
00 10 00 00 0 000213 2849. DSKIP EQUF $-1,,S6. SKIP DATA MESSAGE FLAG
000214 000000000000 2850. + 0.
00 03 00 00 0 000214 2851. LMDCNT EQUF $-1,,RH.
00 15 00 00 0 000214 2852. LMDSAV EQUF $-1,,S1.
000215 00 01 16 000220 2853. LFLAG PF 0,1,14,IMAGE+1.
00 07 00 00 0 000215 2854. RLINES EQUF LFLAG,,T1.
00 13 00 00 0 000215 2855. RWORDS EQUF LFLAG,,S3.
000216 2856. RES 1
000217 2857. IMAGE RES 24
2858. $(3).
2859. /. HANDLE VARIOUS CONTROL CARDS
3 004566 74 13 07 00 0 004627 2860. R2S LMJ XR,RESETL. RETURN TO SYSTEM
004567 05 13 00 00 0 000213 2861. SZ DMODE.
004570 11 16 04 00 0 000006 2862. GOBAK LN,U XA,6.
004571 74 04 00 00 0 001475 2863. J UNWIND.
004572 11 16 04 00 0 000005 2864. OOPS LN,U XA,5. RE-START READ ROUTINE
004573 26 16 06 00 0 000000 2865. LXM,U XI,0.
004574 74 04 00 00 0 001475 2866. J UNWIND.
004575 05 14 00 00 0 000213 2867. LON SZ LMODE. LISTING ON
004576 74 04 00 00 0 004426 2868. J RCARD.
004577 04 14 17 00 0 000213 2869. LOFF S XFLAG,LMODE.
004600 74 04 00 00 0 004426 2870. J RCARD.
004601 04 13 17 00 0 000213 2871. SDATA S XFLAG,DMODE. SET DATA MODE
004602 74 04 00 00 0 004426 2872. J RCARD.
004603 10 03 02 00 0 000214 2873. SLOAD L XV,LMDCNT. SET LOAD MODE
004604 74 00 02 00 0 004607 2874. JZ XV,$+3.
004605 14 16 02 00 0 000001 2875. A,U XV,1. NESTED :LOAD'S
004606 74 04 00 00 0 004612 2876. J $+4.
004607 10 14 03 00 0 000213 2877. L XV+1,LMODE. FIRST :LOAD
004610 01 15 03 00 0 000214 2878. S XV+1,LMDSAV.
004611 10 16 02 00 0 000001 2879. L,U XV,1.
004612 01 03 02 00 0 000214 2880. S XV,LMDCNT.
004613 10 16 02 00 0 000001 2881. L,U XV,1.
004614 01 14 02 00 0 000213 2882. S XV,LMODE.
004615 74 04 00 00 0 004426 2883. J RCARD.
004616 05 13 00 00 0 000213 2884. ENDER SZ DMODE. END DATA AND LOAD MODE
004617 10 03 02 00 0 000214 2885. L XV,LMDCNT.
004620 74 00 02 00 0 004426 2886. JZ XV,RCARD. NOT :LOADING
004621 15 16 02 00 0 000001 2887. AN,U XV,1.
004622 01 03 02 00 0 000214 2888. S XV,LMDCNT.
004623 74 01 02 00 0 004426 2889. JNZ XV,RCARD. STILL :LOADING
004624 10 15 02 00 0 000214 2890. L XV,LMDSAV.
004625 01 14 02 00 0 000213 2891. S XV,LMODE. RESTORE LISTING MODE
004626 74 04 00 00 0 004426 2892. J RCARD.
2893. . ROUTINE TO RESET LISTING MODE
004627 05 00 00 00 0 000045 2894. RESETL SZ PFNAM.
004630 51 03 00 00 0 000214 2895. TNZ LMDCNT.
004631 74 04 00 07 0 000000 2896. J 0,XR.
004632 10 15 00 00 0 000214 2897. L XX,LMDSAV.
004633 01 14 00 00 0 000213 2898. S XX,LMODE.
004634 05 03 00 00 0 000214 2899. SZ LMDCNT.
004635 74 04 00 07 0 000000 2900. J 0,XR.
2901. /. LINK TO EXEC TO HANDLE SYSTEM CONTROL CARD
3 004636 46 13 14 00 0 000215 2902. CSF LXI XX,RWORDS.
004637 26 16 14 00 0 000221 2903. LXM,U XX,IMAGE+2.
004640 05 15 00 00 0 000221 2904. SZ,S1 IMAGE+2.
U 004641 72 11 00 00 0 000000 2905. ER CSF$
004642 74 02 00 00 0 004570 2906. JP XX,GOBAK.
004643 01 00 00 00 0 000220 2907. SA XX,IMAGE+1.
004644 74 13 07 00 0 003356 2908. EDIT
004645 123512100527 2909. 'EXEC REJECTED: @'
004646 121712103112
004647 115305000505
004650 10 00 02 00 0 000220 2910. LA XV,IMAGE+1.
004651 74 13 04 00 0 003066 2911. LMJ XL,OCTOUT.
004652 74 13 14 00 0 003475 2912. LMJ XX,SENDDB.
004653 74 04 00 00 0 004570 2913. J GOBAK.
2914. /. PRINT TIMING INFORMATION
3 004654 74 13 07 00 0 003356 2915. TIME EDIT
004655 123306213206 2916. 'EVALUATION: @'
004656 311624235305
004657 000505050505
U 004660 72 11 00 00 0 000000 2917. ER CPU$.
004661 15 00 00 00 0 000247 2918. ANA A0,ETIME.
004662 10 00 02 00 0 000014 2919. LA XV,A0.
004663 74 13 04 00 0 004704 2920. LMJ XL,TIMED.
004664 74 13 07 00 0 003357 2921. EDITA
004665 560514062707 2922. ', GARBAGE: @'
004666 061412530500
004667 10 00 02 00 0 000006 2923. LA XV,GTIME.
004670 74 13 04 00 0 004704 2924. LMJ XL,TIMED.
004671 74 13 07 00 0 003357 2925. EDITA
004672 055100050505 2926. ' (@'
004673 10 00 02 00 0 000010 2927. LA XV,GCNUM.
004674 74 13 04 00 0 003102 2928. LMJ XL,INTOUT.
004675 74 13 07 00 0 003357 2929. EDITA
004676 405605221222 2930. '), MEMORY: @'
004677 242736530500
004700 10 00 02 00 0 000033 2931. LA XV,XMCNT.
004701 74 13 04 00 0 003102 2932. LMJ XL,INTOUT.
004702 74 13 14 00 0 003450 2933. LMJ XX,SENDIT.
004703 74 04 00 00 0 004570 2934. J GOBAK.
004704 14 16 02 00 0 000002 2935. TIMED A,U XV,2. CONVERT TO MSEC
004705 73 05 02 00 0 000044 2936. DSA XV,36.
004706 34 16 02 00 0 000005 2937. DI,U XV,5.
004707 74 04 00 00 0 003102 2938. J INTOUT.
2939. . RETURN TOTAL TIME IN MSEC
U 004710 72 11 00 00 0 000000 2940. TIMER ER CPU$.
004711 15 00 00 00 0 000247 2941. ANA A0,ETIME.
004712 10 00 03 00 0 000014 2942. LA XV+1,A0.
004713 14 16 03 00 0 000002 2943. TIMEST A,U XV+1,2.
004714 73 05 03 00 0 000044 2944. DSA XV+1,36.
004715 34 16 03 00 0 000005 2945. DI,U XV+1,5.
004716 74 04 00 00 0 000003 2946. J STORIT(INTGER).
2947. . RETURN GC TIME IN MSEC
004717 10 00 03 00 0 000006 2948. GCTIME L XV+1,GTIME.
004720 74 04 00 00 0 004713 2949. J TIMEST.
2950. .
2951. . RETURN # OF WORDS OF MEMORY USED SO FAR
004721 10 00 03 00 0 000033 2952. MEMORY L XV+1,XMCNT.
004722 74 04 00 00 0 000003 2953. J STORIT(INTGER).
2954. $(6).
6 000247 2955. ETIME RES 1.
2956. $(3).
2957. /. GET TODAY'S DATE
U 3 004723 72 11 00 00 0 000000 2958. DATE ER TDATE$.
004724 01 00 00 00 0 000106 2959. S A0,SDATE.
004725 10 15 03 00 0 000106 2960. L,S1 XV+1,SDATE. GET MONTH
004726 74 13 04 00 0 000003 2961. NODE INTGER.
004727 01 00 02 01 2 040000 2962. STORE.
004730 01 00 02 02 0 040000
004731 10 14 03 00 0 000106 2963. L,S2 XV+1,SDATE. GET DAY
004732 74 13 04 00 0 000003 2964. NODE INTGER.
004733 01 00 02 01 2 040000 2965. STORE.
004734 01 00 02 02 0 040000
004735 10 13 03 00 0 000106 2966. L,S3 XV+1,SDATE. GET YEAR
004736 14 16 03 00 0 000100 2967. A,U XV+1,64. GET RID OF OFFSET
004737 74 13 04 00 0 000003 2968. NODE INTGER.
004740 01 00 02 01 2 040000 2969. STORE.
004741 01 00 02 02 0 040000
004742 74 13 04 00 0 000051 2970. LMJ XL,LISTEM-1.
004743 74 04 00 00 0 000011 2971. RETURN.
2972. .
2973. . GET CURRENT TIME IN MSEC
U 004744 72 11 00 00 0 000000 2974. DTIME ER TIME$.
004745 10 00 03 00 0 000014 2975. L XV+1,A0.
004746 74 04 00 00 0 000003 2976. J STORIT(INTGER).
2977. .
2978. $(8)
8 000106 2979. SDATE RES 1.
2980. $(3)
2981. /. SET FLAG TO KEEP TYPE PACKED (OR CLEAR FLAGS)
3 004747 05 00 00 01 2 040000 2982. PACK SZ STACK,*XT.
004750 12 03 02 02 0 037777 2983. LOAD 1.
004751 12 16 02 00 0 000001
004752 74 01 02 00 0 004757 2984. JNZ XV,$+5.
004753 10 16 02 00 0 000011 2985. L,U XV,NUMTYPS-1. (*PACK) = CLEAR FLAGS
004754 05 12 00 16 0 000036 2986. SZ NFLG4,XV.
004755 70 00 16 00 0 004754 2987. JGD XV,$-1.
004756 74 04 00 00 0 006455 2988. J GFAL.
004757 12 00 02 16 0 000000 2989. LMA XV,0,XV. SET FLAG FOR INDICATED TYPE
004760 54 16 02 00 0 000012 2990. TLE,U XV,NUMTYPS.
004761 04 12 17 16 0 000036 2991. S XFLAG,NFLG4,XV.
004762 74 04 00 00 0 006455 2992. J GFAL.
2993. /. ADD MORE MEMORY TO SYSTEM
3 004763 10 00 02 00 0 000250 2994. GROW L XV,ENDMEM.
004764 40 16 02 00 0 000777 2995. OR,U XV,0777.
004765 14 16 03 00 0 000001 2996. A,U XV+1,1.
004766 01 00 03 00 0 000250 2997. S XV+1,ENDMEM.
004767 12 03 02 02 0 037431 2998. MOVE (0).
004770 12 16 02 00 0 000347
004771 01 00 02 01 2 040000
004772 01 00 02 02 0 040000
004773 12 03 02 02 0 037777 2999. LOAD 1.
004774 12 16 02 00 0 000001
004775 10 00 00 16 0 000000 3000. L XX,0,XV.
004776 73 12 00 00 0 000011 3001. LSSL XX,9.
004777 14 00 00 00 0 000250 3002. AA XX,ENDMEM.
005000 54 00 00 00 0 000250 3003. TNG XX,ENDMEM.
005001 10 00 00 00 0 000250 3004. L XX,ENDMEM.
005002 55 16 00 00 2 000000 3005. TG,U XX,0400000.
005003 10 16 00 00 2 000000 3006. LA,U XX,0400000.
005004 15 16 00 00 0 000001 3007. ANA,U XX,1.
005005 01 01 00 00 0 000251 3008. S,H2 A0,BANKENDS.
U 005006 72 11 00 00 0 000000 3009. ER MCORE$
005007 10 00 02 00 0 000250 3010. L XV,ENDMEM.
005010 01 00 00 00 0 000250 3011. S XX,ENDMEM.
005011 10 16 03 14 0 000001 3012. L,U XV+1,1,XX.
005012 10 00 01 00 0 000321 3013. LA XV-1,AVAIL.
005013 10 16 00 00 0 005022 3014. L,U XX,GROWX.
005014 53 16 03 16 0 000000 3015. MAKPAG TNE,U XV+1,0,XV.
005015 74 04 00 14 0 000000 3016. J 0,XX.
005016 01 00 01 16 0 000000 3017. S XV-1,0,XV.
005017 10 16 01 16 0 000000 3018. L,U XV-1,0,XV.
005020 14 16 02 00 0 000200 3019. A,U XV,PAGSIZ.
005021 74 04 00 00 0 005014 3020. J MAKPAG.
005022 01 00 01 00 0 000321 3021. GROWX S XV-1,AVAIL.
005023 10 00 03 00 0 000250 3022. L XV+1,ENDMEM.
005024 74 04 00 00 0 000006 3023. J STORIT(OCTAL).
3024. $(6).
U 6 000250 000000 000000 3025. ENDMEM PAIR 0,LASTD$
3026. $(3)
3027. /. CHECKPOINT ENTIRE SYSTEM
3 005025 71 13 00 00 0 000221 3028. CKPT DL A0,IMAGE+2.
005026 71 12 00 00 0 000252 3029. DS A0,CKPTIOPAK.
005027 05 00 00 00 0 000257 3030. SZ CKPTIOPAK+5.
U 005030 10 16 00 00 0 000000 3031. L,U A0,W$.
005031 01 14 00 00 0 000255 3032. S,S2 A0,CKPTIOPAK+3.
U 005032 10 16 00 00 0 000000 3033. L,U A0,FRSTD$.
005033 10 16 01 00 0 000251 3034. L,U A1,CKPTIOPAK-1.
005034 74 13 04 00 0 005077 3035. LMJ XL,CKPTIO.
U 005035 10 16 00 00 0 000000 3036. L,U A0,FRSTI$.
005036 10 02 01 00 0 000251 3037. L,H1 A1,BANKENDS.
005037 74 13 04 00 0 005077 3038. LMJ XL,CKPTIO.
005040 10 16 00 00 0 000260 3039. L,U A0,CKPTIOPAKE.
005041 10 01 01 00 0 000251 3040. L,H2 A1,BANKENDS.
005042 74 13 04 00 0 005077 3041. LMJ XL,CKPTIO.
005043 10 00 00 00 0 000370 3042. L A0,(PF 0,2,3,CKPTMSG).
U 005044 72 11 00 00 0 000000 3043. ER PRINT$.
005045 74 04 00 00 0 001310 3044. J LOADXRS.
005046 211630250510 3045. CKPTMSG 'LISP CHECKPOINTED'
005047 151210202524
005050 162331121105
005051 71 13 00 00 0 000221 3046. RSTR DL A0,IMAGE+2.
005052 71 12 00 00 0 000252 3047. DS A0,CKPTIOPAK.
005053 05 00 00 00 0 000257 3048. SZ CKPTIOPAK+5.
U 005054 10 16 00 00 0 000000 3049. L,U A0,R$.
005055 01 14 00 00 0 000255 3050. S,S2 A0,CKPTIOPAK+3.
U 005056 10 16 00 00 0 000000 3051. L,U A0,FRSTD$.
005057 10 16 01 00 0 000251 3052. L,U A1,CKPTIOPAK-1.
005060 74 13 04 00 0 005077 3053. LMJ XL,CKPTIO.
005061 10 02 00 00 0 000251 3054. L,H1 A0,BANKENDS.
U 005062 72 11 00 00 0 000000 3055. ER MCORE$.
U 005063 10 16 00 00 0 000000 3056. L,U A0,FRSTI$.
005064 10 02 01 00 0 000251 3057. L,H1 A1,BANKENDS.
005065 74 13 04 00 0 005077 3058. LMJ XL,CKPTIO.
005066 10 01 00 00 0 000251 3059. L,H2 A0,BANKENDS.
U 005067 72 11 00 00 0 000000 3060. ER MCORE$.
005070 10 16 00 00 0 000260 3061. L,U A0,CKPTIOPAKE.
005071 10 01 01 00 0 000251 3062. L,H2 A1,BANKENDS.
005072 74 13 04 00 0 005077 3063. LMJ XL,CKPTIO.
U 005073 72 11 00 00 0 000000 3064. ER CPU$.
005074 01 00 00 00 0 000247 3065. S A0,ETIME.
005075 05 00 00 00 0 000033 3066. SZ XMCNT.
005076 74 04 00 00 0 001310 3067. J LOADXRS.
005077 01 01 00 00 0 000256 3068. CKPTIO S,H2 A0,CKPTIOPAK+4.
005100 14 16 01 00 0 000001 3069. A,U A1,1.
005101 15 16 01 14 0 000000 3070. AN,U A1,0,A0.
005102 01 02 01 00 0 000256 3071. S,H1 A1,CKPTIOPAK+4.
005103 10 16 00 00 0 000252 3072. L,U A0,CKPTIOPAK.
U 005104 72 11 00 00 0 000000 3073. ER IOW$.
005105 14 16 01 00 0 000033 3074. A,U A1,27.
005106 10 16 00 00 0 000000 3075. L,U A0,0.
005107 34 16 00 00 0 000034 3076. DI,U A0,28.
005110 14 00 00 00 0 000257 3077. A A0,CKPTIOPAK+5.
005111 01 00 00 00 0 000257 3078. S A0,CKPTIOPAK+5.
005112 74 04 00 04 0 000000 3079. J 0,XL.
3080. $(6)
U 6 000251 000000 000000 3081. BANKENDS + LASTI$,LASTD$.
000252 000000000000 3082. CKPTIOPAK + 0D.
000253 000000000000
000254 000000000000 3083. + 0.
000255 000000000000 3084. + 0D.
000256 000000000000
000257 000000000000 3085. + 0.
3086. CKPTIOPAKE
3087. $(3)
3088. /. DUMP OBJECT ONTO FASTRAND
000000000077 3089. XREFTYP EQU 077.
3 005113 05 00 00 01 2 040000 3090. DUMP SZ STACK,*XT.
005114 12 03 02 02 0 037776 3091. LOAD 2. GET FILE NAME
005115 12 16 02 00 0 000002
005116 74 00 02 00 0 005155 3092. JZ XV,DUMP1. SAME AS LAST?
005117 42 16 02 00 1 177600 3093. GETYPE
005120 73 02 03 00 0 000007
005121 10 13 03 17 0 000040
005122 01 13 03 00 0 000273 3094. S XV+1,PFFLAG.
005123 74 01 03 00 0 005147 3095. JNZ XV+1,DUMP2. FILE NAME?
005124 12 04 02 16 0 000000 3096. UPPER XV.
005125 74 13 04 00 0 006264 3097. LMJ XL,GETNAM.
005126 74 13 04 00 0 006305 3098. LMJ XL,BLANKS.
005127 74 13 04 00 0 006323 3099. LMJ XL,ASSIGN.
005130 71 12 04 00 0 000274 3100. DS XA,PFPAK.
005131 71 12 04 00 0 000263 3101. DS XA,PAKET.
005132 12 03 02 02 0 037776 3102. LOAD 2.
005133 12 16 02 00 0 000002
005134 12 03 02 16 0 000000 3103. LOWER XV.
005135 74 13 04 00 0 006264 3104. LMJ XL,GETNAM. GET ELEMENT NAME
005136 74 13 04 00 0 006305 3105. LMJ XL,BLANKS.
005137 71 13 04 00 0 000052 3106. DL XA,NAME+1.
005140 71 12 04 00 0 000276 3107. DS XA,PFPAK+2.
005141 10 16 00 00 0 000274 3108. L,U A0,PFPAK.
U 005142 72 11 00 00 0 000000 3109. ER PFWL$. GET STARTING SECTOR
005143 01 00 01 00 0 000270 3110. S A1,PAKET+5.
005144 01 03 01 00 0 000273 3111. S A1,PFWL.
005145 01 00 01 00 0 000306 3112. S A1,PFPAK+10.
005146 74 04 00 00 0 005155 3113. J DUMP1.
005147 74 13 04 00 0 006264 3114. DUMP2 LMJ XL,GETNAM.
005150 74 13 04 00 0 006305 3115. LMJ XL,BLANKS.
005151 74 13 04 00 0 006323 3116. LMJ XL,ASSIGN.
005152 71 13 04 00 0 000052 3117. DL XA,NAME+1.
005153 71 12 04 00 0 000263 3118. DS XA,PAKET.
005154 05 00 00 00 0 000270 3119. SZ PAKET+5.
005155 10 16 00 01 0 040000 3120. DUMP1 LA,U XX,STACK,XT. SET ORIGIN OF SYMBOL TABLE
005156 46 16 14 00 0 000001 3121. LXI,U XX,1.
005157 01 00 00 00 0 000261 3122. SA XX,STS.
005160 05 00 00 01 0 040000 3123. SZ STACK,XT.
005161 10 00 04 00 0 000371 3124. LA XA,('C@@@@@').
005162 01 00 04 00 0 000110 3125. SA XA,SECTOR+1. CREATE SDF LABEL
005163 71 13 04 00 0 000263 3126. DL XA,PAKET.
005164 71 12 04 00 0 000111 3127. DS XA,SECTOR+2.
005165 71 13 04 00 0 000004 3128. DL XA,CKSUM.
005166 71 12 04 00 0 000113 3129. DS XA,SECTOR+4.
005167 10 04 04 00 0 000261 3130. LA,LH XA,STS.
005170 10 00 05 00 0 001006 3131. LA XA+1,MESS8+2.
005171 71 12 04 00 0 000115 3132. DS XA,SECTOR+6.
005172 10 16 04 00 0 005033 3133. LA,U XA,05033.
005173 01 07 04 00 0 000107 3134. SA,T1 XA,SECTOR.
005174 74 13 07 00 0 005650 3135. LMJ XR,DWRITE. WRITE LABEL
005175 10 16 04 00 0 005254 3136. L,U XA,PASS1.
005176 01 03 04 00 0 000260 3137. S,RH XA,BRKOUT.
005177 01 00 04 00 0 000007 3138. S XA,GTIME+1. SET SYSTEM MARKED FLAG
005200 06 00 06 00 0 000152 3139. S XI,XISAV.
005201 12 03 02 02 0 037777 3140. LOAD 1.
005202 12 16 02 00 0 000001
005203 74 13 04 00 0 005246 3141. LMJ XL,WALK. MARK OBJECT.
005204 10 16 04 00 0 005266 3142. LA,U XA,PASS2. SET PASS2 BREAKOUT
005205 01 03 04 00 0 000260 3143. SA,RH XA,BRKOUT.
005206 12 03 02 02 0 037777 3144. LOAD 1.
005207 12 16 02 00 0 000001
005210 74 13 04 00 0 005246 3145. LMJ XL,WALK. DUMP OBJECT
005211 27 00 06 00 0 000152 3146. L XI,XISAV.
005212 05 00 00 00 0 000007 3147. SZ GTIME+1.
005213 51 14 00 00 0 000107 3148. TNZ,S2 SECTOR.
005214 74 04 00 00 0 005220 3149. J $+4.
005215 10 16 04 00 0 000000 3150. LA,U XA,0.
005216 74 13 07 00 0 005642 3151. LMJ XR,ITEM. PAD LAST RECORD WITH 0'S
005217 74 04 00 00 0 005213 3152. J $-4.
005220 10 16 00 00 0 007733 3153. LA,U XX,07733.
005221 01 07 00 00 0 000107 3154. SA,T1 XX,SECTOR.
005222 10 00 04 00 0 000372 3155. LA XA,('$@EOF$').
005223 01 00 04 00 0 000110 3156. SA XA,SECTOR+1.
005224 74 13 07 00 0 005650 3157. LMJ XR,DWRITE. WRITE SDF END-OF-FILE
005225 10 00 04 00 0 000270 3158. LA XA,PAKET+5.
005226 21 16 04 00 0 000001 3159. ANU,U XA,1.
005227 01 00 05 00 0 000270 3160. S XA+1,PAKET+5.
005230 50 13 00 00 0 000273 3161. TZ PFFLAG.
005231 74 04 00 00 0 005242 3162. J DUMP4.
005232 21 03 04 00 0 000273 3163. ANU XA,PFWL.
005233 01 03 05 00 0 000305 3164. S,RH XA+1,PFPAK+9.
U 005234 72 11 00 00 0 000000 3165. ER TDATE$.
005235 73 00 00 00 0 000022 3166. SSC A0,18.
005236 01 00 00 00 0 000307 3167. S A0,PFPAK+11.
005237 11 16 00 00 0 000274 3168. LN,U A0,PFPAK.
005240 10 00 01 00 0 000020 3169. L A1,XA.
U 005241 72 11 00 00 0 000000 3170. ER PFI$.
005242 50 13 00 00 0 000000 3171. DUMP4 TZ INTFLG.
005243 74 04 00 00 0 001247 3172. J IINTDO. GO DO DELAYED BREAK
005244 74 04 00 00 0 006455 3173. J GFAL.
3174. /. OBJECT TRANSVERSAL FOR PASSES 1 & 2
3 005245 10 00 02 00 0 000014 3175. LA XV,XX.
005246 06 03 04 03 2 040000 3176. WALK SX,RH XL,CSTAK,*XC.
005247 01 04 02 03 0 037777 3177. SA,LH XV,CSTAK-1,XC.
005250 42 16 02 00 1 177600 3178. AND,U XV,PAGMSK.
005251 73 02 03 00 0 000007 3179. SSL XV+1,PAGBIT.
005252 27 13 06 17 0 000040 3180. LX,S3 XI,PAGTAB,XV+1. TYPE OF OBJECT
005253 74 04 00 00 0 000260 3181. J BRKOUT. BREAKOUT FOR TYPE & PASS
3182. PASS1.
005254 74 04 00 00 0 005300 3183. I DO NUMTYPS , J BST(I-1).
005255 74 04 00 00 0 005306
005256 74 04 00 00 0 005306
005257 74 04 00 00 0 005306
005260 74 04 00 00 0 005321
005261 74 04 00 00 0 005324
005262 74 04 00 00 0 005342
005263 74 04 00 00 0 005355
005264 74 04 00 00 0 005375
005265 74 04 00 00 0 005300
3184. PASS2.
005266 74 04 00 00 0 005435 3185. I DO NUMTYPS , J DMP(I-1).
005267 74 04 00 00 0 005445
005270 74 04 00 00 0 005445
005271 74 04 00 00 0 005445
005272 74 04 00 00 0 005456
005273 74 04 00 00 0 005473
005274 74 04 00 00 0 005515
005275 74 04 00 00 0 005537
005276 74 04 00 00 0 005611
005277 74 04 00 00 0 005435 3186. /. BREAKOUTS FOR PASS1 (BUILDING SYMBOL TABLE).
3187. BST(CONSED)
3188. BST(SUSP)
3 005300 10 04 00 16 0 000000 3189. LA,LH XX,0,XV.
005301 74 03 00 00 0 005402 3190. JN XX,BUILD. MARKED ALREADY?
005302 02 04 00 16 0 000000 3191. SNA,LH XX,0,XV. MARK NODE
005303 74 13 04 00 0 005245 3192. LMJ XL,WALK-1. FOLLOW CAR
005304 12 03 02 16 0 000000 3193. LMA,RH XV,0,XV.
005305 74 04 00 00 0 005247 3194. J WALK+1. FOLLOW CDR
3195. BST(INTGER)
3196. BST(OCTAL)
3197. BST(REAL)
005306 26 16 07 00 0 005401 3198. LXM,U XR,BST1.
005307 10 00 00 00 0 000016 3199. BSTN LA XX,XV.
005310 42 16 00 00 0 000037 3200. AND,U XX,037.
005311 15 00 00 00 0 000015 3201. ANA XX,XX+1.
005312 10 00 04 14 0 000000 3202. LA XA,0,XX. GET BIT TABLE
005313 73 03 04 15 0 000000 3203. DSL XA,0,XX+1. SHIFT TO BIT
005314 74 11 04 07 0 000001 3204. JB XA,1,XR. ALREADY MARKED?
005315 74 04 00 07 0 000000 3205. J 0,XR.
005316 14 16 04 00 0 000001 3206. BST2 AA,U XA,1.
005317 73 13 04 15 0 000000 3207. LDSL XA,0,XX+1.
005320 01 00 04 14 0 000000 3208. SA XA,0,XX. MARK WORD
3209. BST(SYSTEM)
005321 10 04 02 03 0 037776 3210. WALKX LA,LH XV,CSTAK-2,XC. RESET OBJECT
005322 26 00 04 03 0 037777 3211. LXM XL,CSTAK-1,XC.
005323 70 00 03 04 0 000000 3212. JGD XC,0,XL.
3213. BST(CODE)
005324 42 16 02 00 1 177600 3214. AND,U XV,PAGMSK.
005325 10 00 02 00 0 000017 3215. LA XV,XV+1.
005326 73 02 03 00 0 000007 3216. SSL XV+1,PAGBIT.
005327 50 03 00 17 0 000040 3217. TZ,RH PAGTAB,XV+1.
005330 74 04 00 00 0 005402 3218. J BUILD.
005331 01 03 02 17 0 000040 3219. SA,RH XV,PAGTAB,XV+1. MARK PAGE
005332 01 04 02 03 0 037777 3220. BST5L SA,LH XV,CSTAK-1,XC. FOLLOW THRU COMPILED CODE
005333 74 13 14 00 0 006330 3221. LMJ XX,IMASK. GENERATE ADDRESS MASK
005334 42 00 01 16 0 000000 3222. AND XV-1,0,XV. GET ADDRESS
005335 74 13 04 00 0 005246 3223. LMJ XL,WALK.
005336 14 16 02 00 0 000001 3224. AA,U XV,1.
005337 42 16 02 00 0 000177 3225. AND,U XV,PAGSIZ-1.
005340 74 01 03 00 0 005332 3226. JNZ XV+1,BST5L.
005341 74 04 00 00 0 005321 3227. J WALKX.
3228. BST(LINKER)
005342 10 03 00 16 0 000000 3229. LA,RH XX,0,XV.
005343 74 03 00 00 0 005402 3230. JN XX,BUILD. ALREADY MARKED?
005344 02 03 00 16 0 000000 3231. SNA,RH XX,0,XV.
005345 74 13 04 00 0 005245 3232. LMJ XL,WALK-1. FOLLOW JUMP-TO
005346 12 03 00 16 0 000000 3233. LMA,RH XX,0,XV.
005347 53 16 00 00 0 006346 3234. TNE,U XX,FOLLOW.
005350 74 04 00 00 0 005321 3235. J WALKX.
005351 12 04 02 16 0 000001 3236. LMA,LH XV,1,XV.
005352 74 13 04 00 0 005246 3237. LMJ XL,WALK.
005353 12 03 02 16 0 000001 3238. LMA,RH XV,1,XV.
005354 74 04 00 00 0 005247 3239. J WALK+1.
3240. BST(SYMBOL)
005355 10 03 00 16 0 000000 3241. LA,RH XX,0,XV.
005356 74 03 00 00 0 005402 3242. JN XX,BUILD. ALREADY MARKED?
005357 02 03 00 16 0 000000 3243. SNA,RH XX,0,XV.
005360 12 03 02 16 0 000001 3244. LMA,RH XV,1,XV. PRINT NAME
005361 42 16 02 00 1 177600 3245. GETYPE
005362 73 02 03 00 0 000007
005363 10 13 03 17 0 000040
005364 12 04 02 03 0 037777 3246. LMA,LH XV,CSTAK-1,XC.
005365 52 16 03 00 0 000001 3247. TE,U XV+1,INTGER. GENSYM?
005366 74 04 00 00 0 005371 3248. J BST7.
005367 12 04 02 16 0 000001 3249. LMA,LH XV,1,XV.
005370 74 13 04 00 0 005246 3250. LMJ XL,WALK. MARK GENSYM HEADING
005371 12 03 02 16 0 000000 3251. BST7 LMA,RH XV,0,XV.
005372 74 13 04 00 0 005246 3252. LMJ XL,WALK. FOLLOW PROPERTY LIST
005373 12 04 02 16 0 000000 3253. LMA,LH XV,0,XV.
005374 74 04 00 00 0 005247 3254. J WALK+1. FOLLOW VALUE
3255. BST(STRING)
005375 10 03 00 16 0 000000 3256. LA,RH XX,0,XV.
005376 74 03 00 00 0 005402 3257. JN XX,BUILD. MARKED ALREADY?
005377 02 03 00 16 0 000000 3258. SNA,RH XX,0,XV. MARK FIRST NODE
005400 74 04 00 00 0 005321 3259. J WALKX.
3260. /. MAKE ENTRY IN SYMBOL TABLE
3 005401 74 04 00 00 0 005316 3261. BST1 J BST2.
005402 74 13 04 00 0 005415 3262. BUILD LMJ XL,SRCH. LOOKUP IN SYMBOL TABLE
005403 74 04 00 00 0 005321 3263. J WALKX. ALREADY THERE?
005404 50 04 00 14 0 000001 3264. TZ,LH 1,XX. UPPER HALF EMPTY?
005405 74 04 00 00 0 005410 3265. J $+3.
005406 01 04 02 14 0 000001 3266. SA,LH XV,1,XX.
005407 74 04 00 00 0 005321 3267. J WALKX.
005410 01 00 02 14 0 000000 3268. SA XV,0,XX.
005411 10 04 00 00 0 000261 3269. LA,LH XX,STS.
005412 14 16 00 00 0 000001 3270. AA,U XX,1. ADD WORD TO SYMBOL TABLE
005413 01 04 00 00 0 000261 3271. SA,LH XX,STS.
005414 74 04 00 00 0 005321 3272. J WALKX.
3273. .
3274. . LOOK UP IN SYMBOL TABLE
3275. .
005415 26 00 14 00 0 000261 3276. SRCH LXM XX,STS.
005416 23 04 01 00 0 000261 3277. LR,LH R1,STS.
005417 46 16 14 00 3 177776 3278. LXI,U XX,-1.
005420 62 03 02 14 2 000000 3279. SE,RH XV,0,*XX.
005421 74 04 00 00 0 005426 3280. J SRCH1.
005422 46 16 14 00 0 000000 3281. LXI,U XX,0.
005423 15 03 00 00 0 000261 3282. ANA,RH XX,STS.
005424 12 00 00 00 0 000014 3283. LMA XX,XX.
005425 74 04 00 04 0 000000 3284. J 0,XL.
005426 26 00 14 00 0 000261 3285. SRCH1 LXM XX,STS.
005427 23 04 01 00 0 000261 3286. LR,LH R1,STS.
005430 62 04 02 14 2 000000 3287. SE,LH XV,0,*XX.
005431 74 04 00 04 0 000001 3288. J 1,XL.
005432 46 16 14 00 0 000000 3289. LXI,U XX,0.
005433 15 03 00 00 0 000261 3290. ANA,RH XX,STS.
005434 74 04 00 04 0 000000 3291. J 0,XL.
3292. /. BREAKOUTS FOR PASS 2 (DUMPING OBJECT)
3293. DMP(CONSED)
3294. DMP(SUSP)
3 005435 10 04 00 16 0 000000 3295. LA,LH XX,0,XV.
005436 74 02 00 00 0 005631 3296. JP XX,XREF. ALREADY CLEAR?
005437 02 04 00 16 0 000000 3297. SNA,LH XX,0,XV.
005440 74 13 07 00 0 005635 3298. LMJ XR,RECORD. WRITE RECORD
005441 12 04 02 16 0 000000 3299. LMA,LH XV,0,XV.
005442 74 13 04 00 0 005246 3300. LMJ XL,WALK. DUMP CAR
005443 12 03 02 16 0 000000 3301. LMA,RH XV,0,XV.
005444 74 04 00 00 0 005247 3302. J WALK+1. DUMP CDR
3303. DMP(INTGER)
3304. DMP(OCTAL)
3305. DMP(REAL)
005445 74 13 07 00 0 005307 3306. LMJ XR,BSTN. MARKED?
005446 74 04 00 00 0 005631 3307. J XREF. NO
005447 15 16 04 00 0 000001 3308. ANA,U XA,1.
005450 73 13 04 15 0 000000 3309. LDSL XA,0,XX+1.
005451 01 00 04 14 0 000000 3310. SA XA,0,XX. UNMARK
005452 74 13 07 00 0 005635 3311. LMJ XR,RECORD. WRITE RECORD
005453 10 00 04 16 0 000000 3312. LA XA,0,XV.
005454 74 13 07 00 0 005642 3313. LMJ XR,ITEM. WRITE BITS.
005455 74 04 00 00 0 005321 3314. J WALKX.
3315. DMP(SYSTEM)
005456 46 16 16 00 0 000000 3316. LXI,U XV,0.
005457 23 00 01 00 0 000317 3317. L R1,LEPTAB.
005460 10 00 00 00 0 000320 3318. L XX,BEPTAB.
005461 55 16 02 00 0 001000 3319. TG,U XV,01000.
005462 62 00 02 14 2 040000 3320. SE XV,CSTAK,*XX. LOOK UP ENTRY POINT
005463 10 00 00 00 0 000320 3321. L XX,BEPTAB. MUST BE STACK
005464 72 05 00 00 0 000320 3322. ANH XX,BEPTAB.
005465 73 12 00 00 0 000030 3323. LSSL XX,24.
005466 46 16 16 00 0 000004 3324. LXI,U XV,SYSTEM.
005467 14 00 02 00 0 000014 3325. A XV,XX.
005470 10 00 04 00 0 000016 3326. LA XA,XV.
005471 74 13 07 00 0 005642 3327. LMJ XR,ITEM. WRITE ITEM.
005472 74 04 00 00 0 005321 3328. J WALKX.
3329. DMP(CODE)
005473 27 00 14 00 0 000017 3330. LX XX,XV+1.
005474 42 16 02 00 0 000177 3331. AND,U XV,PAGSIZ-1.
005475 01 03 03 00 0 000262 3332. SA,RH XV+1,DMPWD. RELATIVE ADDRESS IN PAGE
005476 15 00 02 00 0 000017 3333. ANA XV,XV+1.
005477 51 03 00 14 0 000040 3334. TNZ,RH PAGTAB,XX. PAGE MARKED?
005500 74 04 00 00 0 005632 3335. J XREF+1.
005501 05 03 00 14 0 000040 3336. SZ,RH PAGTAB,XX.
005502 74 13 07 00 0 005636 3337. LMJ XR,RECORD+1. WRITE RECORD FOR PAGE
005503 01 04 02 03 0 037777 3338. DMP5L SA,LH XV,CSTAK-1,XC.
005504 10 00 04 16 0 000000 3339. LA XA,0,XV.
005505 74 13 07 00 0 005642 3340. LMJ XR,ITEM. WRITE INSTRUCTION
005506 74 13 14 00 0 006330 3341. LMJ XX,IMASK. GENERATE ADDRESS MASK
005507 42 00 01 16 0 000000 3342. AND XV-1,0,XV. GET ADDRESS
005510 74 13 04 00 0 005246 3343. LMJ XL,WALK. WRITE U-FIELD RECORD
005511 14 16 02 00 0 000001 3344. AA,U XV,1.
005512 42 16 02 00 0 000177 3345. AND,U XV,PAGSIZ-1.
005513 74 01 03 00 0 005503 3346. JNZ XV+1,DMP5L. MORE INSTRUCTIONS?
005514 74 04 00 00 0 005321 3347. J WALKX.
3348. DMP(LINKER)
005515 10 03 00 16 0 000000 3349. LA,RH XX,0,XV.
005516 74 02 00 00 0 005631 3350. JP XX,XREF. ALREADY CLEAR?
005517 02 03 00 16 0 000000 3351. SNA,RH XX,0,XV.
005520 74 13 07 00 0 005635 3352. LMJ XR,RECORD. WRITE RECORD
005521 12 03 02 16 0 000000 3353. LMA,RH XV,0,XV.
005522 74 13 04 00 0 005246 3354. LMJ XL,WALK. DUMP JUMPTO
005523 12 03 00 16 0 000000 3355. LMA,RH XX,0,XV.
005524 53 16 00 00 0 006346 3356. TNE,U XX,FOLLOW. NOT CAR-CDR CHAIN?
005525 74 04 00 00 0 005534 3357. J DMP6C.
005526 10 16 04 00 0 000000 3358. LA,U XA,0.
005527 74 13 07 00 0 005642 3359. LMJ XR,ITEM.
005530 12 04 02 16 0 000001 3360. LMA,LH XV,1,XV. DUMP SECOND WORD
005531 74 13 04 00 0 005246 3361. LMJ XL,WALK.
005532 12 03 02 16 0 000001 3362. LMA,RH XV,1,XV.
005533 74 04 00 00 0 005247 3363. J WALK+1.
005534 10 00 04 16 0 000001 3364. DMP6C LA XA,1,XV.
005535 74 13 07 00 0 005642 3365. LMJ XR,ITEM.
005536 74 04 00 00 0 005321 3366. J WALKX.
3367. DMP(SYMBOL)
005537 10 03 00 16 0 000000 3368. LA,RH XX,0,XV.
005540 74 02 00 00 0 005631 3369. JP XX,XREF. CLEAR ALREADY?
005541 02 03 00 16 0 000000 3370. SNA,RH XX,0,XV. UNMARK
005542 74 13 07 00 0 005635 3371. LMJ XR,RECORD.
005543 12 03 02 16 0 000001 3372. LMA,RH XV,1,XV.
005544 42 16 02 00 1 177600 3373. GETYPE
005545 73 02 03 00 0 000007
005546 10 13 03 17 0 000040
005547 12 04 02 03 0 037777 3374. LMA,LH XV,CSTAK-1,XC.
005550 52 16 03 00 0 000001 3375. TE,U XV+1,INTGER. GENSYM?
005551 74 13 04 00 0 006264 3376. LMJ XL,GETNAM. NO: GET PRINT-NAME
005552 10 00 04 00 0 000051 3377. LA XA,NAME.
005553 15 16 04 00 0 000051 3378. ANA,U XA,NAME. COMPUTE # OF WORDS
005554 53 16 03 00 0 000001 3379. TNE,U XV+1,INTGER. NOT GENSYM?
005555 10 16 04 00 0 000100 3380. LA,U XA,0100.
005556 50 04 00 16 0 000000 3381. TZ,LH 0,XV. NOT A CONSTANT?
005557 14 16 04 00 0 000200 3382. AA,U XA,0200.
005560 60 04 00 16 0 000000 3383. TP,LH 0,XV. NOT SPECIAL FORM?
005561 14 16 04 00 0 000400 3384. AA,U XA,0400.
005562 10 16 02 00 0 000051 3385. LA,U XV,NAME.
005563 52 16 03 00 0 000001 3386. TE,U XV+1,INTGER. GENSYM?
005564 74 04 00 00 0 005600 3387. J DMP7L+2.
005565 12 04 02 03 0 037777 3388. LMA,LH XV,CSTAK-1,XC.
005566 12 03 00 16 0 000001 3389. LMA,RH XX,1,XV.
005567 73 03 04 00 0 000014 3390. DSL XA,12.
005570 10 00 04 14 0 000000 3391. LA XA,0,XX. GET GENSYM #
005571 73 13 04 00 0 000014 3392. LDSL XA,12.
005572 74 13 07 00 0 005642 3393. LMJ XR,ITEM.
005573 12 04 02 16 0 000001 3394. LMA,LH XV,1,XV.
005574 74 13 04 00 0 005246 3395. LMJ XL,WALK. DUMP GENSYM HEAD
005575 74 04 00 00 0 005603 3396. J DMP7PL.
005576 24 16 16 00 0 000001 3397. DMP7L AX,U XV,1.
005577 10 00 04 16 0 000000 3398. LA XA,0,XV.
005600 74 13 07 00 0 005642 3399. LMJ XR,ITEM.
005601 52 00 02 00 0 000051 3400. TE XV,NAME. DONE WITH PNAME?
005602 74 04 00 00 0 005576 3401. J DMP7L.
005603 12 04 02 03 0 037777 3402. DMP7PL LMA,LH XV,CSTAK-1,XC.
005604 12 03 02 16 0 000000 3403. LMA,RH XV,0,XV.
005605 74 13 04 00 0 005246 3404. LMJ XL,WALK. DUMP PROPERTY LIST
005606 12 04 02 16 0 000000 3405. LMA,LH XV,0,XV.
005607 74 00 02 00 0 005321 3406. JZ XV,WALKX. NOT A CONSTANT?
005610 74 04 00 00 0 005247 3407. J WALK+1.
3408. DMP(STRING)
005611 10 03 00 16 0 000000 3409. LA,RH XX,0,XV.
005612 74 02 00 00 0 005631 3410. JP XX,XREF. ALREADY CLEAR?
005613 02 03 00 16 0 000000 3411. SNA,RH XX,0,XV.
005614 10 00 00 00 0 000016 3412. L XX,XV.
005615 74 13 04 00 0 006265 3413. LMJ XL,GETNAM+1. GET CHARACTERS
005616 10 00 04 00 0 000051 3414. LA XA,NAME.
005617 15 16 04 00 0 000051 3415. ANA,U XA,NAME.
005620 01 03 04 00 0 000262 3416. SA,RH XA,DMPWD.
005621 74 13 07 00 0 005636 3417. LMJ XR,RECORD+1. WRITE RECORD WITH # OF WORDS
005622 10 16 02 00 0 000051 3418. L,U XV,NAME.
005623 53 00 02 00 0 000051 3419. DMP8L TNE XV,NAME. DUMP CHARACTERS
005624 74 04 00 00 0 005321 3420. J WALKX.
005625 14 16 02 00 0 000001 3421. A,U XV,1.
005626 10 00 04 16 0 000000 3422. L XA,0,XV.
005627 74 13 07 00 0 005642 3423. LMJ XR,ITEM.
005630 74 04 00 00 0 005623 3424. J DMP8L.
3425. /. WRITE ENTRY FOR SYMBOL TABLE REFERENCE.
3 005631 05 03 00 00 0 000262 3426. XREF SZ,RH DMPWD. NO ADJUSTMENT
005632 27 16 07 00 0 005321 3427. LX,U XR,WALKX.
005633 27 16 06 00 0 000077 3428. LX,U XI,XREFTYP.
005634 74 04 00 00 0 005636 3429. J RECORD+1.
3430. . WRITE RECORD FOR NODE
005635 01 03 02 00 0 000262 3431. RECORD SA,RH XV,DMPWD. SET ADDRESS
005636 06 04 06 00 0 000262 3432. SX,LH XI,DMPWD. SET TYPE
005637 74 13 04 00 0 005415 3433. LMJ XL,SRCH. LOOKUP IN SYMBOL TABLE
005640 06 07 14 00 0 000262 3434. SX,T1 XX,DMPWD. SET INDEX IF FOUND
005641 10 00 04 00 0 000262 3435. LA XA,DMPWD.
3436. . WRITE 1 RECORD.
005642 27 14 14 00 0 000107 3437. ITEM LX,S2 XX,SECTOR.
005643 24 16 14 00 0 000001 3438. AX,U XX,1.
005644 06 07 14 00 0 000107 3439. SX,T1 XX,SECTOR.
005645 01 00 04 14 0 000107 3440. SA XA,SECTOR,XX. PUT WORD IN RECORD
005646 52 16 00 00 0 000033 3441. TE,U XX,27. FULL RECORD?
005647 74 04 00 07 0 000000 3442. J 0,XR.
U 005650 10 16 00 00 0 000000 3443. DWRITE LA,U XX,W$.
005651 01 14 00 00 0 000266 3444. SA,S2 XX,PAKET+3. SET FUNCTION
005652 10 00 00 00 0 000373 3445. LA XX,(28,SECTOR).
005653 01 00 00 00 0 000267 3446. SA XX,PAKET+4.
005654 10 16 00 00 0 000263 3447. LA,U XX,PAKET.
U 005655 72 11 00 00 0 000000 3448. ER IOW$. WRITE SECTOR ON DRUM
005656 10 00 00 00 0 000270 3449. LA XX,PAKET+5.
005657 14 16 00 00 0 000001 3450. AA,U XX,1.
005660 01 00 00 00 0 000270 3451. SA XX,PAKET+5. NEXT SECTOR ADDRESS
005661 05 07 00 00 0 000107 3452. SZ,T1 SECTOR.
005662 74 04 00 07 0 000000 3453. J 0,XR.
3454. /. LOAD OBJECT FROM FASTRAND
3 005663 05 00 00 01 2 040000 3455. LODE SZ STACK,*XT.
005664 06 00 06 00 0 000152 3456. SX XI,XISAV.
005665 12 03 02 02 0 037777 3457. LOAD 1. GET FILE
005666 12 16 02 00 0 000001
005667 74 00 02 00 0 005724 3458. JZ XV,LODE1. SAME AS LAST?
005670 42 16 02 00 1 177600 3459. GETYPE
005671 73 02 03 00 0 000007
005672 10 13 03 17 0 000040
005673 01 13 03 00 0 000273 3460. S XV+1,PFFLAG.
005674 74 01 03 00 0 005717 3461. JNZ XV+1,LODE2.
005675 12 04 02 16 0 000000 3462. UPPER XV.
005676 74 13 04 00 0 006264 3463. LMJ XL,GETNAM.
005677 74 13 04 00 0 006305 3464. LMJ XL,BLANKS.
005700 74 13 04 00 0 006323 3465. LMJ XL,ASSIGN.
005701 71 12 04 00 0 000274 3466. DS XA,PFPAK.
005702 71 12 04 00 0 000263 3467. DS XA,PAKET.
005703 12 03 02 02 0 037777 3468. LOAD 1.
005704 12 16 02 00 0 000001
005705 12 03 02 16 0 000000 3469. LOWER XV.
005706 74 13 04 00 0 006264 3470. LMJ XL,GETNAM.
005707 74 13 04 00 0 006305 3471. LMJ XL,BLANKS.
005710 71 13 04 00 0 000052 3472. DL XA,NAME+1.
005711 71 12 04 00 0 000276 3473. DS XA,PFPAK+2.
005712 10 16 00 00 0 000274 3474. L,U A0,PFPAK.
U 005713 72 11 00 00 0 000000 3475. ER PFS$.
005714 10 03 04 00 0 000306 3476. L,RH XA,PFPAK+10.
005715 01 00 04 00 0 000270 3477. S XA,PAKET+5.
005716 74 04 00 00 0 005724 3478. J LODE1.
005717 74 13 04 00 0 006264 3479. LODE2 LMJ XL,GETNAM.
005720 74 13 04 00 0 006305 3480. LMJ XL,BLANKS.
005721 74 13 04 00 0 006323 3481. LMJ XL,ASSIGN.
005722 71 12 04 00 0 000263 3482. DS XA,PAKET.
005723 05 00 00 00 0 000270 3483. SZ PAKET+5.
005724 10 16 00 03 0 040000 3484. LODE1 LA,U XX,CSTAK,XC. SET SYMBOL TABLE ORIGIN
005725 01 00 00 00 0 000261 3485. SA XX,STS.
005726 74 13 04 00 0 006260 3486. LMJ XL,FETCH1. BYPASS LABEL
005727 60 00 00 00 0 000107 3487. TP SECTOR. NOT END OF FILE?
005730 74 04 00 00 0 006455 3488. J GFAL.
005731 10 16 00 00 0 000033 3489. LA,U XX,27.
005732 01 14 00 00 0 000107 3490. SA,S2 XX,SECTOR.
005733 10 03 00 00 0 000017 3491. LA,RH XX,STORIT(CODE)
005734 10 00 01 00 0 000003 3492. LA XX+1,T5REC.
005735 71 12 00 00 0 000146 3493. DS XX,LODSAV.
005736 71 13 00 00 0 000004 3494. DL XX,T5REC+1.
005737 71 12 00 00 0 000150 3495. DS XX,LODSAV+2.
005740 74 13 04 00 0 005751 3496. LMJ XL,LOAD. LOAD OBJECT
005741 05 14 00 00 0 000107 3497. SZ,S2 SECTOR.
005742 71 13 00 00 0 000146 3498. DL XX,LODSAV.
005743 01 03 00 00 0 000017 3499. SA,RH XX,STORIT(CODE)
005744 01 00 01 00 0 000003 3500. SA XX+1,T5REC.
005745 71 13 00 00 0 000150 3501. DL XX,LODSAV+2.
005746 71 12 00 00 0 000004 3502. DS XX,T5REC+1.
005747 27 00 06 00 0 000152 3503. LX XI,XISAV.
005750 74 04 00 00 0 000011 3504. RETURN
3505. /. GET THE OBJECT IN
3 005751 06 00 04 01 2 040000 3506. LOAD SX XL,STACK,*XT. SAVE RETURN
005752 74 13 07 00 0 006250 3507. LMJ XR,FETCH. GET NEXT ITEM
005753 27 13 14 00 0 000262 3508. LX,S3 XX,DMPWD. GET RECORD TYPE
005754 73 03 02 00 0 000107 3509. DSL XV,71.
005755 53 16 00 00 0 000077 3510. TNE,U XX,XREFTYP.
005756 74 04 00 00 0 006220 3511. J LOD(XREFTYP).
005757 74 04 00 14 0 005760 3512. J $+1,XX. BREAKOUT
005760 74 04 00 00 0 005774 3513. I DO NUMTYPS , J LOD(I-1).
005761 74 04 00 00 0 006007
005762 74 04 00 00 0 006007
005763 74 04 00 00 0 006007
005764 74 04 00 00 0 006015
005765 74 04 00 00 0 006024
005766 74 04 00 00 0 006056
005767 74 04 00 00 0 006074
005770 74 04 00 00 0 006202
005771 74 04 00 00 0 005772
3514. LOD(SUSP)
005772 74 13 04 00 0 000033 3515. NODE SUSP.
005773 74 04 00 00 0 005775 3516. J LOD(CONSED)+1.
3517. LOD(CONSED)
005774 74 13 04 00 0 000000 3518. NODE CONSED. ALLOCATE NODE
005775 74 13 04 00 0 006235 3519. LMJ XL,CKSTI. FIX SYMBOL TABLE
005776 74 13 04 00 0 005751 3520. LMJ XL,LOAD.
005777 01 04 02 14 0 000000 3521. SA,LH XV,0,XX. PLUG CAR
006000 74 13 04 00 0 005751 3522. LMJ XL,LOAD. GET CDR
006001 01 03 02 14 0 000000 3523. SA,RH XV,0,XX. & PLUG IT
006002 12 04 02 01 0 040001 3524. LMA,LH XV,STACK+1,XT. ADD OF NODE
006003 26 00 04 01 0 040001 3525. LOADX LXM XL,STACK+1,XT.
006004 26 16 01 01 0 000001 3526. POP.
006005 12 04 00 01 0 040001 3527. LMA,LH XX,STACK+1,XT.
006006 74 04 00 04 0 000000 3528. J 0,XL. EXIT
3529. LOD(INTGER)
3530. LOD(OCTAL)
3531. LOD(REAL)
006007 31 16 00 00 0 000003 3532. MSI,U XX,3.
006010 74 13 04 14 0 000000 3533. LMJ XL,TYPTAB,XX. ALLOCATE NODE
006011 74 13 04 00 0 006235 3534. LMJ XL,CKSTI. FIX TABLE
006012 74 13 07 00 0 006250 3535. LMJ XR,FETCH.
006013 01 00 04 16 0 000000 3536. SA XA,0,XV. STORE BITS
006014 74 04 00 00 0 006003 3537. J LOADX.
3538. LOD(SYSTEM)
006015 10 07 00 00 0 000262 3539. L,T1 XX,DMPWD.
006016 74 00 00 00 0 006022 3540. JZ XX,LOD4X.
006017 72 04 00 00 0 000320 3541. AH XX,BEPTAB.
006020 10 00 02 14 0 037777 3542. L XV,CSTAK-1,XX. GET ENTRY POINT
006021 74 04 00 00 0 006003 3543. J LOADX.
006022 10 03 02 00 0 000262 3544. LOD4X L,RH XV,DMPWD.
006023 74 04 00 00 0 006003 3545. J LOADX.
3546. LOD(CODE)
006024 10 16 00 00 0 000163 3547. LA,U XX,GETPAG. SET TO GET NEW PAGE
006025 01 03 00 00 0 000017 3548. SA,RH XX,STORIT(CODE)
006026 74 13 04 00 0 000017 3549. NODE CODE
006027 14 16 17 00 0 000177 3550. A,U XMCNT,PAGSIZ-1. UPDATE MEMORY CNTR FOR WHOLE PAGE
006030 74 13 04 00 0 006235 3551. LMJ XL,CKSTI. FIX TABLE
006031 10 03 00 00 0 000262 3552. LA,RH XX,DMPWD.
006032 01 00 00 01 2 040000 3553. SA XX,STACK,*XT.
006033 74 13 07 00 0 006250 3554. LOD5L LMJ XR,FETCH. GET INSTRUCTION
006034 10 00 03 00 0 000016 3555. L XV+1,XV. SAVE POINTER
006035 10 16 02 00 0 000262 3556. L,U XV,DMPWD.
006036 74 13 14 00 0 006330 3557. LMJ XX,IMASK. GENERATE ADDRESS MASK
006037 11 00 01 00 0 000015 3558. LN XV-1,XV-1.
006040 42 00 01 16 0 000000 3559. AND XV-1,0,XV. MASK OUT OLD ADDRESS
006041 01 00 02 17 0 000000 3560. S XV,0,XV+1.
006042 74 13 04 00 0 005751 3561. LMJ XL,LOAD. GET U-FIELD
006043 12 04 01 01 0 040002 3562. LMA,LH XV-1,STACK+2,XT.
006044 40 00 02 15 0 000000 3563. OR XV,0,XV-1.
006045 01 00 03 15 0 000000 3564. SA XV+1,0,XV-1.
006046 20 16 01 00 0 000001 3565. AU,U XV-1,1.
006047 01 04 02 01 0 040002 3566. SA,LH XV,STACK+2,XT.
006050 42 16 02 00 0 000177 3567. AND,U XV,PAGSIZ-1.
006051 74 01 03 00 0 006033 3568. JNZ XV+1,LOD5L. MORE CODE?
006052 15 16 02 00 0 000200 3569. ANA,U XV,PAGSIZ.
006053 14 03 02 01 0 040001 3570. AA,RH XV,STACK+1,XT. ENTRY INTO CODE
006054 26 16 01 01 0 000001 3571. POP.
006055 74 04 00 00 0 006003 3572. J LOADX.
3573. LOD(LINKER)
006056 74 13 04 00 0 000022 3574. NODE LINKER. ALLOCATE NODE
006057 74 13 04 00 0 006235 3575. LMJ XL,CKSTI. FIX TABLE
006060 74 13 04 00 0 005751 3576. LMJ XL,LOAD. GET JUMPTO
006061 01 03 02 14 0 000000 3577. SA,RH XV,0,XX. & PLUG
006062 74 13 07 00 0 006250 3578. LMJ XR,FETCH.
006063 74 01 04 00 0 006071 3579. JNZ XA,LOD6C. CAR-CDR CHAIN?
006064 74 13 04 00 0 005751 3580. LMJ XL,LOAD. GET SECOND WORD
006065 01 04 02 14 0 000001 3581. SA,LH XV,1,XX.
006066 74 13 04 00 0 005751 3582. LMJ XL,LOAD.
006067 01 03 02 14 0 000001 3583. SA,RH XV,1,XX.
006070 74 04 00 00 0 006002 3584. J LOADX-1.
006071 12 04 02 01 0 040001 3585. LOD6C LMA,LH XV,STACK+1,XT.
006072 01 00 04 16 0 000001 3586. SA XA,1,XV.
006073 74 04 00 00 0 006003 3587. J LOADX.
3588. LOD(SYMBOL)
006074 01 00 04 00 0 000143 3589. SA XA,LOD7WK.
006075 74 13 07 00 0 006250 3590. LMJ XR,FETCH. GET INFO
006076 01 00 04 00 0 000144 3591. SA XA,LOD7WK+1.
006077 05 04 00 01 0 040001 3592. SZ,LH STACK+1,XT.
006100 10 11 00 00 0 000144 3593. LA,S5 XX,LOD7WK+1.
006101 01 00 00 01 2 040000 3594. SA XX,STACK,*XT.
006102 74 11 00 00 0 006114 3595. JB XX,LOD7GS. IS IT A GENSYM?
006103 10 10 02 00 0 000144 3596. LA,S6 XV,LOD7WK+1. MOVE IN PRINT NAME
006104 10 16 03 00 0 000051 3597. L,U XV+1,NAME.
006105 01 00 03 00 0 000051 3598. LOD7N S XV+1,NAME.
006106 74 00 02 00 0 006126 3599. JZ XV,LOD7ND.
006107 74 13 07 00 0 006250 3600. LMJ XR,FETCH. GET 6 CHAR
006110 15 16 02 00 0 000001 3601. AN,U XV,1.
006111 14 16 03 00 0 000001 3602. A,U XV+1,1.
006112 01 00 04 17 0 000000 3603. SA XA,0,XV+1.
006113 74 04 00 00 0 006105 3604. J LOD7N.
006114 10 00 03 00 0 000315 3605. LOD7GS LA XV+1,GENNO.
006115 14 16 03 00 0 000001 3606. AA,U XV+1,1. BUMP GENSYM COUNTER
006116 01 00 03 00 0 000315 3607. SA XV+1,GENNO.
006117 74 13 04 00 0 000003 3608. NODE INTGER.
006120 10 16 03 00 0 001000 3609. LA XV+1,KNIL.
006121 74 13 04 00 0 000025 3610. NODE SYMBOL.
006122 74 13 04 00 0 006233 3611. LMJ XL,CKSTI-2. FIX TABLE
006123 74 13 04 00 0 005751 3612. LMJ XL,LOAD. GET HEADING
006124 01 04 02 14 0 000001 3613. SA,LH XV,1,XX.
006125 74 04 00 00 0 006131 3614. J LOD7PL-1.
006126 74 13 04 00 0 004313 3615. LOD7ND LMJ XL,INTERH. ALLOCATE ATOM
006127 74 06 00 00 0 000000 3616. NOP . DONT CARE IF THERE
006130 74 13 04 00 0 006233 3617. LMJ XL,CKSTI-2. ENTER IN SYMBOL TABLE
006131 74 13 04 00 0 005751 3618. LMJ XL,LOAD.
006132 53 16 02 00 0 001000 3619. LOD7PL TNE XV,KNIL.
006133 74 04 00 00 0 006167 3620. J LOD7PD.
006134 27 00 07 00 0 000016 3621. LX XR,XV.
006135 27 03 06 16 0 000000 3622. LX,RH XI,0,XV.
006136 27 04 10 16 0 000000 3623. LX,LH XW,0,XV.
006137 12 04 00 01 0 040001 3624. LMA,LH XX,STACK+1,XT.
006140 12 00 02 00 0 000010 3625. LMA XV,XW.
006141 42 16 02 00 1 177600 3626. GETYPE
006142 73 02 03 00 0 000007
006143 10 13 03 17 0 000040
006144 74 00 03 00 0 006154 3627. JZ XV+1,LOD7PP. IS IT AT-VAL PAIR?
006145 12 03 01 14 0 000000 3628. LMA,RH XY,0,XX. PROP LIST
006146 53 16 01 00 0 001000 3629. TNE XY,KNIL.
006147 74 04 00 00 0 006162 3630. J LOD7AP.
006150 53 04 02 15 0 000000 3631. TNE,LH XV,0,XY. FLAG NOT THERE?
006151 74 04 00 00 0 006165 3632. J LOD7NP.
006152 12 00 00 00 0 000015 3633. LMA XX,XY.
006153 74 04 00 00 0 006145 3634. J $-6.
006154 12 04 04 10 0 000000 3635. LOD7PP LMA,LH XA,0,XW.
006155 74 13 04 00 0 007502 3636. LMJ XL,PLLU1. LOOK UP ATTRIBUTE ON OLD PL
006156 74 04 00 00 0 006162 3637. J $+4.
006157 12 03 04 10 0 000000 3638. LMA,RH XA,0,XW.
006160 01 03 04 16 0 000000 3639. SA,RH XA,0,XV. REPLACE VALUE
006161 74 04 00 00 0 006165 3640. J LOD7NP.
006162 06 03 07 14 0 000000 3641. LOD7AP SX,RH XR,0,XX.
006163 10 16 04 00 0 001000 3642. LA XA,KNIL.
006164 01 03 04 07 0 000000 3643. SA,RH XA,0,XR.
006165 10 00 02 00 0 000006 3644. LOD7NP LA XV,XI.
006166 74 04 00 00 0 006132 3645. J LOD7PL.
006167 10 10 04 01 0 040001 3646. LOD7PD LA,S6 XA,STACK+1,XT.
006170 45 16 04 00 0 000002 3647. TOP,U XA,02. CONSTANT?
006171 74 04 00 00 0 006177 3648. J LOD7X.
006172 74 13 04 00 0 005751 3649. LMJ XL,LOAD. GET VALUE
006173 01 04 02 14 0 000000 3650. SA,LH XV,0,XX.
006174 10 10 04 01 0 040001 3651. LA,S6 XA,STACK+1,XT.
006175 44 16 04 00 0 000004 3652. TEP,U XA,04. NOT SPECIAL FORM?
006176 02 04 02 14 0 000000 3653. SNA,LH XV,0,XX.
006177 12 04 02 01 0 040001 3654. LOD7X LMA,LH XV,STACK+1,XT.
006200 26 16 01 01 0 000001 3655. POP.
006201 74 04 00 00 0 006003 3656. J LOADX.
3657. LOD(STRING)
006202 01 00 04 00 0 000145 3658. S XA,LOD8WK.
006203 12 03 02 00 0 000262 3659. LMA,RH XV,DMPWD. GET # OF WORDS
006204 10 16 03 00 0 000051 3660. L,U XV+1,NAME.
006205 01 00 03 00 0 000051 3661. LOD8L S XV+1,NAME. MOVE CHARS TO NAME BUFFER
006206 74 00 02 00 0 006214 3662. JZ XV,LOD8D.
006207 74 13 07 00 0 006250 3663. LMJ XR,FETCH. 6 CHARS
006210 15 16 02 00 0 000001 3664. AN,U XV,1.
006211 14 16 03 00 0 000001 3665. A,U XV+1,1.
006212 01 00 04 17 0 000000 3666. S XA,0,XV+1.
006213 74 04 00 00 0 006205 3667. J LOD8L.
006214 74 13 14 00 0 004372 3668. LOD8D LMJ XX,MAKSTR. GET A STRING
006215 10 00 00 00 0 000145 3669. L XX,LOD8WK.
006216 74 13 04 00 0 006234 3670. LMJ XL,CKSTI-1. ENTER IN SYMBOL TABLE
006217 74 04 00 00 0 006003 3671. J LOADX.
3672. LOD(XREFTYP)
006220 10 07 00 00 0 000262 3673. LA,T1 XX,DMPWD.
006221 74 03 00 00 0 006226 3674. JN XX,LODSU. UPPER HALF?
006222 74 00 00 00 0 006022 3675. JZ XX,LOD4X.
006223 24 00 14 00 0 000261 3676. AX XX,STS.
006224 12 03 02 14 0 000000 3677. LMA,RH XV,0,XX.
006225 74 04 00 00 0 006231 3678. J LODSX.
006226 11 07 00 00 0 000262 3679. LODSU LNA,T1 XX,DMPWD.
006227 24 00 14 00 0 000261 3680. AX XX,STS.
006230 12 04 02 14 0 000000 3681. LMA,LH XV,0,XX.
006231 14 03 02 00 0 000262 3682. LODSX AA,RH XV,DMPWD.
006232 74 04 00 00 0 006003 3683. J LOADX.
3684. /. CHECK FOR ENTRY TO SYMBOL TABLE
3 006233 10 00 00 00 0 000143 3685. LA XX,LOD7WK.
006234 01 00 00 00 0 000262 3686. SA XX,DMPWD.
006235 01 04 02 01 0 040001 3687. CKSTI SA,LH XV,STACK+1,XT. SAVE ALLOCATED OBJECT
006236 10 07 00 00 0 000262 3688. LA,T1 XX,DMPWD. TABLE INDEX
006237 74 00 00 04 0 000000 3689. JZ XX,0,XL. NODNE?
006240 74 03 00 00 0 006244 3690. JN XX,CKSTI1. UPPER HALF?
006241 24 00 14 00 0 000261 3691. AX XX,STS.
006242 01 03 02 14 0 000000 3692. SA,RH XV,0,XX.
006243 74 04 00 04 0 000000 3693. J 0,XL.
006244 11 07 00 00 0 000262 3694. CKSTI1 LNA,T1 XX,DMPWD.
006245 24 00 14 00 0 000261 3695. AX XX,STS.
006246 01 04 02 14 0 000000 3696. SA,LH XV,0,XX.
006247 74 04 00 04 0 000000 3697. J 0,XL.
3698. . GET NEXT ITEM IN RECORD
006250 10 14 00 00 0 000107 3699. FETCH LA,S2 XX,SECTOR.
006251 14 16 00 00 0 000001 3700. AA,U XX,1.
006252 01 14 00 00 0 000107 3701. SA,S2 XX,SECTOR.
006253 10 00 04 14 0 000107 3702. LA XA,SECTOR,XX.
006254 01 00 04 00 0 000262 3703. SA XA,DMPWD.
006255 52 16 00 00 0 000034 3704. TE,U XX,28.
006256 74 04 00 07 0 000000 3705. J 0,XR.
006257 26 00 04 00 0 000007 3706. LXM XL,XR.
U 006260 10 16 00 00 0 000000 3707. FETCH1 LA,U XX,R$.
006261 74 13 07 00 0 005651 3708. LMJ XR,DWRITE+1.
006262 26 00 07 00 0 000004 3709. LXM XR,XL.
006263 74 04 00 00 0 006250 3710. J FETCH.
3711. /. GET PRINT NAME OF ATOMIC SYMBOL
3 006264 12 03 00 16 0 000001 3712. GETNAM LMA,RH XX,1,XV.
006265 27 16 15 00 0 000051 3713. LX,U XY,NAME.
006266 06 00 15 00 0 000051 3714. GETNL SX XY,NAME.
006267 53 16 00 00 0 001000 3715. TNE XX,KNIL. NOT DONE?
006270 74 04 00 04 0 000000 3716. J 0,XL.
006271 52 16 01 00 0 000100 3717. TE,U XY,NAME+23.
006272 24 16 15 00 0 000001 3718. AX,U XY,1.
006273 05 00 00 15 0 000000 3719. SZ 0,XY.
006274 10 02 04 14 0 000000 3720. L,H1 XA,0,XX. 3 CHARS
006275 01 02 04 15 0 000000 3721. S,H1 XA,0,XY.
006276 12 03 00 14 0 000000 3722. LMA,RH XX,0,XX.
006277 53 16 00 00 0 001000 3723. TNE XX,KNIL.
006300 74 04 00 00 0 006266 3724. J GETNL.
006301 10 02 04 14 0 000000 3725. L,H1 XA,0,XX. 3 CHARS
006302 01 01 04 15 0 000000 3726. S,H2 XA,0,XY.
006303 12 03 00 14 0 000000 3727. LMA,RH XX,0,XX.
006304 74 04 00 00 0 006266 3728. J GETNL.
3729. . CHANGE TRAILING ZEROES TO SPACES
006305 27 03 14 00 0 000051 3730. BLANKS LX,RH XX,NAME.
006306 10 16 01 00 0 000000 3731. LA,U XY,0.
006307 10 00 04 14 0 000000 3732. LA XA,0,XX.
006310 74 00 04 00 0 006314 3733. BLANK1 JZ XA,BLANK2.
006311 24 16 15 00 0 000006 3734. AX,U XY,6.
006312 73 13 03 00 0 000006 3735. LDSL XA-1,6.
006313 74 04 00 00 0 006310 3736. J BLANK1.
006314 10 00 04 00 0 000332 3737. BLANK2 LA XA,(' ').
006315 01 00 04 14 0 000001 3738. SA XA,1,XX.
006316 01 00 04 14 0 000002 3739. SA XA,2,XX.
006317 73 03 03 15 0 000000 3740. DSL XA-1,0,XY.
006320 01 00 04 14 0 000000 3741. SA XA,0,XX.
006321 71 13 04 00 0 000052 3742. DL XA,NAME+1.
006322 74 04 00 04 0 000000 3743. J 0,XL.
3744. . MAKE SURE FILE IS ASSIGNED
006323 71 13 04 00 0 000052 3745. ASSIGN DL XA,NAME+1.
006324 71 12 04 00 0 000312 3746. DS XA,CSFFN.
006325 10 16 00 00 0 000310 3747. L,U A0,CSFIM.
U 006326 72 11 00 00 0 000000 3748. ER CSF$.
006327 74 04 00 04 0 000000 3749. J 0,XL.
3750. . GENERATE ADDRESS MASK FOR AN INSTRUCTION (LEAVE IN XV-1)
006330 10 15 01 16 0 000000 3751. IMASK L,S1 XV-1,0,XV. ENTER WITH XV POINTING TO INST
006331 55 16 01 00 0 000070 3752. TG,U XV-1,070.
006332 74 04 00 00 0 006344 3753. J IMASKD. J = MINOR FUNC CODE: 16 BITS
006333 10 14 01 16 0 000000 3754. L,S2 XV-1,0,XV.
006334 73 02 01 00 0 000003 3755. SSL XV-1,3.
006335 52 16 01 00 0 000007 3756. TE,U XV-1,7.
006336 74 04 00 00 0 006344 3757. J IMASKD. J NOT 16 OR 17: 16 BITS
006337 10 13 01 16 0 000000 3758. L,S3 XV-1,0,XV.
006340 73 12 01 00 0 000040 3759. LSSL XV-1,32.
006341 74 01 01 00 0 006344 3760. JNZ XV-1,IMASKD. X NOT ZERO: 16 BITS
006342 10 16 01 00 1 177777 3761. L,U XV-1,0377777. OK: 17-BIT MASK
006343 74 04 00 14 0 000000 3762. J 0,XX.
006344 10 16 01 00 0 177777 3763. IMASKD L,U XV-1,0177777. 16-BIT MASK
006345 74 04 00 14 0 000000 3764. J 0,XX.
3765. /$(6)
6 000260 74 04 00 06 0 005254 3766. BRKOUT J PASS1,XI. PASSU-2 BREAKOUT SWITCH
000261 000000000000 3767. STS +0
000262 000000000000 3768. DMPWD +0
000263 050505050505 3769. PAKET ' '
000264 050505050505 3770. ' '
000265 000000000000 3771. DO 6 , +0
000266 000000000000
000267 000000000000
000270 000000000000
000271 000000000000
000272 000000000000
000273 000000 000000 3772. + 0,0
00 13 00 00 0 000273 3773. PFFLAG EQUF $-1,,S3.
00 03 00 00 0 000273 3774. PFWL EQUF $-1,,RH.
000274 312513470505 3775. PFPAK 'TPF$ '
000275 050505050505
000276 211630254711 3776. 'LISP$DUMP'
000277 322225050505
000300 000000000000 3777. + 0
000301 00 00 06 000000 3778. PF 0,0,6,0
000302 050505050505 3779. ' '
000303 050505050505
000304 000000000000 3780. + 0D
000305 000000000000
000306 000000000000 3781. + 0D
000307 000000000000
000310 000630145606 3782. CSFIM '@ASG,A '
000311 050505050505
000312 000000000000 3783. CSFFN + 0D
000313 000000000000
000314 057505050505 3784. ' . '
3785. $(8)
8 000107 3786. SECTOR RES 28
000143 3787. LOD7WK RES 2
000145 3788. LOD8WK RES 1
000146 3789. LODSAV RES 4
000152 3790. XISAV RES 1
3791. $(3)
3792. /. FOLLOW CAR-CDR CHAIN
3 006346 10 00 04 04 0 000000 3793. FOLLOW LA XA,0,XL.
006347 12 03 02 02 0 037777 3794. LOAD 1.
006350 12 16 02 00 0 000001
006351 10 00 00 00 0 000003 3795. LA XX,OPSHUN.
006352 74 11 00 00 0 006405 3796. JB XX,FOLLF. INHIBIT ATOM CHECK?
006353 73 03 04 00 0 000001 3797. FOLL1 DSL XA,1.
006354 74 00 04 00 0 000011 3798. JZ XA,EXIT.
006355 42 16 02 00 1 177600 3799. GETYPE
006356 73 02 03 00 0 000007
006357 10 13 03 17 0 000040
006360 74 01 03 00 0 006366 3800. JNZ XV+1,FOLLB.
006361 74 02 05 00 0 006364 3801. JP XA+1,$+3.
006362 12 03 02 16 0 000000 3802. CHAIN RH.
006363 74 04 00 00 0 006353 3803. J FOLL1.
006364 12 04 02 16 0 000000 3804. CHAIN LH.
006365 74 04 00 00 0 006353 3805. J FOLL1.
006366 06 00 01 03 2 040000 3806. FOLLB LETS PRIN1.
006367 23 16 03 00 0 002544
006370 04 00 03 01 2 040000
006371 01 00 02 01 2 040000 3807. STORE
006372 01 00 02 02 0 040000
006373 74 13 07 00 0 003356 3808. EDIT
006374 100623232431 3809. 'CANNOT TAKE CAR OR CDR OF @'
006375 053106201205
006376 100627052427
006377 051011270524
006400 130500050505
006401 74 13 04 00 0 000004 3810. CALLR.
006402 74 13 14 00 0 003475 3811. LMJ XX,SENDDB.
006403 74 04 00 00 0 001416 3812. J SYSERR.
006404 12 03 02 16 0 000000 3813. CHAIN RH.
006405 73 03 04 00 0 000001 3814. FOLLF DSL XA,1.
006406 74 00 04 00 0 000011 3815. JZ XA,EXIT.
006407 74 03 05 00 0 006404 3816. JN XA+1,FOLLF-1.
006410 12 04 02 16 0 000000 3817. CHAIN LH.
006411 74 04 00 00 0 006405 3818. J FOLLF.
006412 12 03 02 02 0 037777 3819. TCAR LOAD 1
006413 12 16 02 00 0 000001
006414 12 04 02 16 0 000000 3820. CHAIN LH.
006415 74 04 00 00 0 000011 3821. RETURN
006416 12 03 02 02 0 037777 3822. TCDR LOAD 1
006417 12 16 02 00 0 000001
006420 12 03 02 16 0 000000 3823. CHAIN RH.
006421 74 04 00 00 0 000011 3824. RETURN
3825. . REPLACE CAR OF NODE
006422 12 03 02 02 0 037777 3826. RPLACA LOAD 1.
006423 12 16 02 00 0 000001
006424 10 00 03 02 0 037776 3827. LA XV+1,STACK-2,XF.
006425 01 04 03 16 0 000000 3828. SA,LH XV+1,0,XV.
006426 74 04 00 00 0 000011 3829. RETURN
3830. . REPLACE CDR OF NODE
006427 12 03 02 02 0 037777 3831. RPLACD LOAD 1.
006430 12 16 02 00 0 000001
006431 10 00 03 02 0 037776 3832. LA XV+1,STACK-2,XF.
006432 01 03 03 16 0 000000 3833. SA,RH XV+1,0,XV.
006433 74 04 00 00 0 000011 3834. RETURN
3835. /. NULL PREDICATE
3 006434 12 03 02 02 0 037777 3836. NULL LOAD 1.
006435 12 16 02 00 0 000001
006436 52 16 02 00 0 001000 3837. TE XV,KNIL.
006437 74 04 00 00 0 006455 3838. J GFAL.
006440 12 03 02 02 0 036664 3839. LOAD TRU.
006441 12 16 02 00 0 001114
006442 74 04 00 00 0 000011 3840. RETURN
3841. . CONSTRUCT CONSED NODE
006443 10 00 02 01 0 040002 3842. CONS LA XV,STACK+2,XT.
006444 10 00 03 01 0 040001 3843. LA XV+1,STACK+1,XT.
006445 74 13 04 00 0 000000 3844. NODE CONSED
006446 74 04 00 00 0 000011 3845. RETURN
3846. . ATOM PREDICATE
006447 12 03 02 02 0 037777 3847. IFATOM LOAD 1.
006450 12 16 02 00 0 000001
006451 42 16 02 00 1 177600 3848. GETYPE
006452 73 02 03 00 0 000007
006453 10 13 03 17 0 000040
006454 74 01 03 00 0 006470 3849. JNZ XV+1,GTRU.
006455 12 03 02 02 0 037000 3850. GFAL LOAD NIL.
006456 12 16 02 00 0 001000
006457 74 04 00 00 0 000011 3851. RETURN
3852. . GET TYPE OF OBJECT (FOR COMPILED CODE)
006460 42 16 02 00 1 177600 3853. GETYP GETYPE
006461 73 02 03 00 0 000007
006462 10 13 03 17 0 000040
006463 74 04 00 04 0 000000 3854. J 0,XL.
3855. . EQ PREDICATE
006464 12 03 02 02 0 037777 3856. EQ LOAD 1.
006465 12 16 02 00 0 000001
006466 52 03 02 02 0 037776 3857. TE,RH XV,STACK-2,XF.
006467 74 04 00 00 0 006455 3858. J GFAL.
006470 12 03 02 02 0 036664 3859. GTRU LOAD TRU.
006471 12 16 02 00 0 001114
006472 74 04 00 00 0 000011 3860. RETURN
3861. /. PRIMITIVES FOR SUSPENDING CONS (CALLED KONS)
3 006473 12 03 02 02 0 037777 3862. EVKONS LOAD 1.
006474 12 16 02 00 0 000001
006475 12 03 04 16 0 000000 3863. LOWER XA.
006476 01 03 04 02 0 037777 3864. S,RH XA,STACK-1,XF.
006477 12 04 02 16 0 000000 3865. UPPER XV.
006500 10 00 03 00 0 000004 3866. L XV+1,XL.
006501 73 02 03 00 0 000022 3867. SSL XV+1,18.
006502 74 13 04 00 0 000033 3868. NODE SUSP.
006503 12 03 03 02 0 037777 3869. LM,RH XV+1,STACK-1,XF.
006504 01 03 02 02 0 037777 3870. S,RH XV,STACK-1,XF.
006505 12 04 02 17 0 000000 3871. LM,LH XV,0,XV+1.
006506 10 00 03 00 0 000004 3872. L XV+1,XL.
006507 73 02 03 00 0 000022 3873. SSL XV+1,18.
006510 74 13 04 00 0 000033 3874. NODE SUSP.
006511 10 00 03 02 0 037777 3875. L XV+1,STACK-1,XF.
006512 73 01 02 00 0 000044 3876. DSC XV,36.
006513 74 13 04 00 0 000000 3877. NODE CONSED.
006514 74 04 00 00 0 000011 3878. RETURN.
3879. .
006515 26 16 04 00 0 000011 3880. LXM,U XL,EXIT.
006516 01 00 02 01 0 040000 3881. GETCAR S XV,STACK,XT.
006517 12 04 02 16 0 000000 3882. UPPER XV.
006520 42 16 02 00 1 177600 3883. GETYPE
006521 73 02 03 00 0 000007
006522 10 13 03 17 0 000040
006523 52 16 03 00 0 000011 3884. TE,U XV+1,SUSP. IS IT A SUSPENSION?
006524 74 04 00 04 0 000000 3885. J 0,XL.
006525 25 16 01 00 0 000001 3886. AN,U XT,1.
006526 06 00 04 01 2 040000 3887. S XL,STACK,*XT.
006527 46 03 04 16 0 000000 3888. LXI,RH XL,0,XV. ALIST FROM SUSPENSION
006530 74 13 04 00 0 001704 3889. LMJ XL,EVALC-1. EVALUATE EXPRESSION
006531 10 00 03 01 0 040003 3890. L XV+1,STACK+3,XT. CONSED NODE
006532 01 04 02 17 0 000000 3891. S,LH XV,0,XV+1. REPLACE SUSPENSION (CAR PART)
006533 27 00 04 01 0 040002 3892. L XL,STACK+2,XT.
006534 26 16 01 01 0 000003 3893. LXM,U XT,3,XT.
006535 74 04 00 04 0 000000 3894. J 0,XL.
3895. .
006536 26 16 04 00 0 000011 3896. LXM,U XL,EXIT.
006537 01 00 02 01 0 040000 3897. GETCDR S XV,STACK,XT.
006540 12 03 02 16 0 000000 3898. LOWER XV.
006541 42 16 02 00 1 177600 3899. GETYPE
006542 73 02 03 00 0 000007
006543 10 13 03 17 0 000040
006544 52 16 03 00 0 000011 3900. TE,U XV+1,SUSP. IS IT SUSPENDED?
006545 74 04 00 04 0 000000 3901. J 0,XL.
006546 25 16 01 00 0 000001 3902. AN,U XT,1.
006547 06 00 04 01 2 040000 3903. S XL,STACK,*XT.
006550 46 03 04 16 0 000000 3904. LXI,RH XL,0,XV. ALIST
006551 74 13 04 00 0 001704 3905. LMJ XL,EVALC-1.
006552 10 00 03 01 0 040003 3906. L XV+1,STACK+3,XT.
006553 01 03 02 17 0 000000 3907. S,RH XV,0,XV+1. REPLACE OLD SUSPENSION
006554 27 00 04 01 0 040002 3908. L XL,STACK+2,XT.
006555 26 16 01 01 0 000003 3909. LXM,U XT,3,XT.
006556 74 04 00 04 0 000000 3910. J 0,XL.
3911. /. CAPTURE CLOSURE OF FUNCTION
3 006557 27 00 16 00 0 000004 3912. FUNARG LX XV,XL.
006560 26 00 16 01 0 040001 3913. LXM XV,STACK+1,XT. FUNCTION ADDRESS
006561 74 13 17 00 0 000022 3914. LMJ XV+1,STORIT(LINKER). BUILD LINKAGE NODE & EXIT
006562 46 04 04 04 0 000000 3915. LXI,LH XL,0,XL.
006563 12 03 00 04 0 000000 3916. LMA,RH XX,0,XL.
006564 26 16 04 00 0 000011 3917. LXM,U XL,EXIT.
006565 74 04 00 14 0 000000 3918. J 0,XX.
3919. . GENERATE FRESH ATOMIC SYMBOL
006566 12 03 02 02 0 036716 3920. GENSYM MOVE CHA('G').
006567 12 16 02 00 0 001062
006570 01 00 02 01 2 040000
006571 01 00 02 02 0 040000
006572 10 00 03 00 0 000315 3921. LA XV+1,GENNO. BUMP GENSYM COUNTER
006573 14 16 03 00 0 000001 3922. AA,U XV+1,1.
006574 01 00 03 00 0 000315 3923. SA XV+1,GENNO.
006575 74 13 04 00 0 000003 3924. NODE INTGER.
006576 10 16 03 00 0 001000 3925. LA XV+1,KNIL.
006577 74 13 04 00 0 000025 3926. NODE SYMBOL. CREATE NEW ATOMIC SYMBOL
006600 10 00 00 02 0 037777 3927. LA XX,STACK-1,XF.
006601 01 04 00 16 0 000001 3928. SA,LH XX,1,XV. PLUG HEADING
006602 74 04 00 00 0 000011 3929. RETURN
3930. $(6)
6 000315 000000000000 3931. GENNO +0
000316 000000000000 3932. RAND + 0.
3933. $(3)
3934. . AMBIGUITY FUNCTION
3 006603 12 00 01 00 0 000316 3935. AMB LM A1,RAND.
006604 74 01 01 00 0 006607 3936. JNZ A1,$+3.
U 006605 72 11 00 00 0 000000 3937. ER TDATE$.
006606 40 16 00 00 0 000001 3938. OR,U A0,1.
006607 30 00 01 00 0 000374 3939. MI A1,(0343277244615). THE FAMOUS 5**15
006610 12 00 02 00 0 000016 3940. LM A2,A2.
006611 01 00 02 00 0 000316 3941. S A2,RAND.
006612 10 16 00 02 0 000000 3942. L,U XX,0,XF.
006613 15 16 00 01 0 000001 3943. AN,U XX,1,XT.
006614 30 00 02 00 0 000014 3944. MI A2,XX.
006615 73 13 02 00 0 000001 3945. LDSL A2,1.
006616 14 16 02 01 0 000001 3946. A,U A2,1,XT.
006617 10 00 02 16 0 040000 3947. L XV,STACK,A2.
006620 74 04 00 00 0 000011 3948. RETURN
3949. /. DEFINE SPECIAL FORM
3 006621 10 16 01 00 0 006660 3950. DEFSPEC L,U XY,SEXPAND.
006622 74 04 00 00 0 006624 3951. J $+2.
3952. . DEFINE MACRO
006623 10 16 01 00 0 006670 3953. DEFMAC L,U XY,MEXPAND.
006624 12 03 02 02 0 037777 3954. LOAD 1.
006625 12 16 02 00 0 000001
006626 12 04 00 16 0 000000 3955. UPPER XX. GET NAME
006627 12 04 02 16 0 000000 3956. CHAIN RH,LH. GET 2ND ARG
006630 42 16 02 00 1 177600 3957. GETYPE.
006631 73 02 03 00 0 000007
006632 10 13 03 17 0 000040
006633 53 16 03 00 0 000007 3958. TNE,U XV+1,SYMBOL.
006634 61 00 00 16 0 000000 3959. TN 0,XV.
006635 74 04 00 00 0 006642 3960. J $+5. NORMAL FUNCTION
006636 12 04 03 16 0 000000 3961. LM,LH XV+1,0,XV. ALREADY MACRO OR SPECIAL FORM
006637 10 00 02 00 0 000014 3962. L XV,XX.
006640 02 04 03 16 0 000000 3963. SNA,LH XV+1,0,XV. ACT LIKE A MINUS CSETQ
006641 74 04 00 00 0 000011 3964. RETURN.
006642 01 03 00 02 0 037777 3965. S,RH XX,STACK-1,XF. SAVE NAME
006643 01 03 01 01 2 040000 3966. S,RH XY,STACK,*XT. SAVE TYPE
006644 74 13 04 00 0 001705 3967. LMJ XL,EVALC. GET FUNCTION ADDRESS
006645 74 13 04 00 0 007044 3968. LMJ XL,CHKFN. CHECK IT
006646 74 04 00 00 0 006650 3969. J $+2.
006647 12 03 02 02 0 037775 3970. DEFSPM LOAD 3. ENTRY FOR COMPILED CODE
006650 12 16 02 00 0 000003
006651 10 00 03 02 0 037776 3971. L XV+1,STACK-2,XF.
006652 74 13 04 00 0 000022 3972. NODE LINKER.
006653 10 00 03 00 0 000016 3973. L XV+1,XV.
006654 12 03 02 02 0 037777 3974. LOAD 1. GET NAME
006655 12 16 02 00 0 000001
006656 02 04 03 16 0 000000 3975. SNA,LH XV+1,0,XV. STASH NEGATIVE PNTR
006657 74 04 00 00 0 000011 3976. RETURN.
3977. . EXPAND SPECIAL FORM
006660 06 00 01 03 2 040000 3978. SEXPAND MARK.
006661 12 03 02 04 0 000000 3979. LMA,RH XV,0,XL. FUNCTION ADDRESS
006662 01 00 02 01 2 040000 3980. STORE.
006663 01 00 02 02 0 040000
006664 12 03 02 02 0 037777 3981. LOAD 1.
006665 12 16 02 00 0 000001
006666 74 13 04 00 0 000071 3982. LMJ XL,STAKEM. ARGS TO STACK.
006667 74 04 00 00 0 000020 3983. J ENTRYI. APPLY FUNCTION
3984. . EXPAND MACRO
006670 06 00 01 03 2 040000 3985. MEXPAND MARK
006671 12 03 02 04 0 000000 3986. LMA,RH XV,0,XL. FUNCTION ADDRESS
006672 01 00 02 01 2 040000 3987. STORE.
006673 01 00 02 02 0 040000
006674 12 03 02 02 0 037777 3988. LOAD 1.
006675 12 16 02 00 0 000001
006676 74 13 04 00 0 000071 3989. LMJ XL,STAKEM. ARGS TO STACK.
006677 74 13 04 00 0 000004 3990. CALLR. APPLY FUNCTION
006700 01 00 02 01 2 040000 3991. STORE 1.
006701 01 00 02 02 0 037777
006702 74 04 00 00 0 001642 3992. J EVAL-1. EVAL RESULT 3993. /. SET BREAK INTO FUNCTION
3 006703 12 03 02 02 0 037777 3994. BREAK LOAD 1. GET ATOMIC SYMBOL
006704 12 16 02 00 0 000001
006705 10 04 02 16 0 000000 3995. L,LH XV,0,XV.
006706 74 03 02 00 0 006710 3996. JN XV,$+2. SPECIAL FORM OR MACRO?
006707 74 13 04 00 0 007044 3997. LMJ XL,CHKFN. NO: MAKE SURE ITS A FUNCTION
006710 01 00 02 00 0 000153 3998. S XV,BRFN.
006711 12 03 02 02 0 037776 3999. LOAD 2. GET BREAK FUNCTION
006712 12 16 02 00 0 000002
006713 74 13 04 00 0 007044 4000. LMJ XL,CHKFN. MAKE SURE ITS A FUNCTION
006714 10 00 03 00 0 000016 4001. L XV+1,XV.
006715 12 03 02 02 0 037777 4002. LOAD 1.
006716 12 16 02 00 0 000001
006717 74 13 04 00 0 000000 4003. NODE CONSED.
006720 73 12 02 00 0 000022 4004. LSSL XV,18.
006721 26 00 16 00 0 000153 4005. LXM XV,BRFN.
006722 10 16 03 00 0 006744 4006. L,U XV+1,BREAKER.
006723 74 13 04 00 0 000022 4007. NODE LINKER. CREATE LINKAGE NODE
006724 10 00 03 00 0 000016 4008. L XV+1,XV.
006725 60 00 00 00 0 000153 4009. TP BRFN.
006726 11 00 03 00 0 000017 4010. LN XV+1,XV+1. NEGATIVE PNTR IF SF OR MAC
006727 12 03 02 02 0 037777 4011. LOAD 1.
006730 12 16 02 00 0 000001
006731 01 04 03 16 0 000000 4012. S,LH XV+1,0,XV. STASH PNTR
006732 74 04 00 00 0 000011 4013. RETURN.
4014. . REMOVE BREAK FROM FUNCTION
006733 12 03 02 02 0 037777 4015. UNBREAK LOAD 1.
006734 12 16 02 00 0 000001
006735 12 04 03 16 0 000000 4016. LMA,LH XV+1,0,XV.
006736 10 00 04 17 0 000000 4017. L XA,0,XV+1.
006737 52 00 04 00 0 000375 4018. TE XA,(LMJ XL,BREAKER).
006740 74 04 00 00 0 000011 4019. RETURN. NOT BROKEN!
006741 10 03 03 17 0 000001 4020. L,RH XV+1,1,XV+1.
006742 01 04 03 16 0 000000 4021. S,LH XV+1,0,XV.
006743 74 04 00 00 0 000011 4022. RETURN.
4023. $(8)
8 000153 4024. BRFN RES 1.
4025. $(3)
4026. . BREAK ROUTINE
3 006744 10 16 01 01 0 000001 4027. BREAKER L,U XY,1,XT.
006745 25 16 01 00 0 000002 4028. AN,U XT,2. MOVE UP 2 WORDS IN STACK
006746 53 16 01 02 0 000000 4029. BRMOVE TNE,U XY,0,XF.
006747 74 04 00 00 0 006754 4030. J $+5.
006750 10 03 04 15 0 040000 4031. L,RH XA,STACK,XY.
006751 01 00 04 15 0 037776 4032. S XA,STACK-2,XY.
006752 26 16 15 15 0 000001 4033. LXM,U XY,1,XY.
006753 74 04 00 00 0 006746 4034. J BRMOVE
006754 10 04 02 04 0 000000 4035. L,LH XV,0,XL.
006755 12 04 00 16 0 000000 4036. UPPER XX.
006756 01 00 00 02 0 037777 4037. S XX,STACK-1,XF. SET FUNCTION NAME
006757 12 03 00 04 0 000000 4038. LMA,RH XX,0,XL.
006760 01 00 00 02 0 037776 4039. S XX,STACK-2,XF.
006761 12 03 00 16 0 000000 4040. LOWER XX.
006762 74 04 00 14 0 000000 4041. J 0,XX. ENTER BREAK FUNCTION 4042. /. SEQUENCERS: ONTO (MAPLIST), INTO (MAPCAR), MAP, MAPC
3 006763 10 16 04 00 0 000077 4043. ONTO LA,U XA,077.
006764 74 04 00 00 0 006770 4044. J INTO+1.
006765 01 00 02 01 2 040000 4045. STORE
006766 01 00 02 02 0 040000
006767 10 16 04 00 0 000000 4046. INTO LA,U XA,0.
006770 01 00 04 03 2 040000 4047. SA XA,CSTAK,*XC.
006771 12 03 02 02 0 037776 4048. LOAD 2.
006772 12 16 02 00 0 000002
006773 74 13 04 00 0 007044 4049. LMJ XL,CHKFN. CHECK FN
006774 01 00 02 01 2 040000 4050. STORE 2.
006775 01 00 02 02 0 037776
006776 12 03 02 02 0 037777 4051. LOAD 1.
006777 12 16 02 00 0 000001
007000 53 16 02 00 0 001000 4052. TNE XV,KNIL.
007001 70 00 03 00 0 007005 4053. JGD XC,$+4.
007002 74 13 04 00 0 007032 4054. LMJ XL,MAPPER.
007003 01 00 02 01 2 040000 4055. STORE.
007004 01 00 02 02 0 040000
007005 74 04 00 00 0 007000 4056. J $-5.
007006 27 00 15 00 0 000002 4057. LX XY,XF.
007007 25 16 15 00 0 000002 4058. ANX,U XY,2.
007010 74 13 04 00 0 000052 4059. LMJ XL,LISTEM.
007011 74 04 00 00 0 000011 4060. RETURN.
007012 10 16 04 00 0 000077 4061. MAP LA,U XA,077.
007013 74 04 00 00 0 007017 4062. J MAPC+1.
007014 01 00 02 01 2 040000 4063. STORE.
007015 01 00 02 02 0 040000
007016 10 16 04 00 0 000000 4064. MAPC LA,U XA,0.
007017 01 00 04 03 2 040000 4065. SA XA,CSTAK,*XC.
007020 12 03 02 02 0 037776 4066. LOAD 2.
007021 12 16 02 00 0 000002
007022 74 13 04 00 0 007044 4067. LMJ XL,CHKFN. CHECK FN
007023 01 00 02 01 2 040000 4068. STORE 2.
007024 01 00 02 02 0 037776
007025 12 03 02 02 0 037777 4069. LOAD 1.
007026 12 16 02 00 0 000001
007027 53 16 02 00 0 001000 4070. TNE XV,KNIL. MORE?
007030 70 00 03 00 0 000011 4071. JGD XC,EXIT.
007031 26 16 04 00 0 007026 4072. LXM,U XL,$-3.
007032 12 03 04 16 0 000000 4073. MAPPER LOWER XA.
007033 01 00 04 02 0 037777 4074. SA XA,STACK-1,XF.
007034 51 03 00 03 0 037777 4075. TNZ,RH CSTAK-1,XC. ONTO?
007035 12 04 02 16 0 000000 4076. UPPER XV
007036 06 00 01 03 2 040000 4077. MARK
007037 10 00 04 02 0 037776 4078. LA XA,STACK-2,XF.
007040 01 00 04 01 2 040000 4079. SA XA,STACK,*XT.
007041 01 00 02 01 2 040000 4080. STORE
007042 01 00 02 02 0 040000
007043 74 04 00 00 0 000004 4081. J ENTRYR.
4082. /. CHECK XV TO SEE IF IT IS A FUNCTION
3 007044 74 00 02 00 0 007052 4083. CHKFN JZ XV,BADFN.
007045 42 16 02 00 1 177600 4084. GETYPE.
007046 73 02 03 00 0 000007
007047 10 13 03 17 0 000040
007050 50 15 00 17 0 000036 4085. TZ NFLG1,XV+1.
007051 74 04 00 04 0 000000 4086. J 0,XL. OK
007052 06 00 04 01 2 040000 4087. BADFN S XL,STACK,*XT. NO: SAVE RETURN
007053 74 13 14 00 0 003450 4088. LMJ XX,SENDIT.
007054 06 00 01 03 2 040000 4089. LETS PRIN1.
007055 23 16 03 00 0 002544
007056 04 00 03 01 2 040000
007057 01 00 02 01 2 040000 4090. STORE.
007060 01 00 02 02 0 040000
007061 74 13 04 00 0 000004 4091. CALLR.
007062 74 13 07 00 0 003357 4092. EDITA
007063 051630052324 4093. ' IS NOT A FUNCTION@'
007064 310506051332
007065 231031162423
007066 000505050505
007067 74 13 14 00 0 003475 4094. LMJ XX,SENDDB.
007070 06 00 01 03 2 040000 4095. LETS EVREAD.
007071 23 16 03 00 0 001327
007072 04 00 03 01 2 040000
007073 74 13 04 00 0 000004 4096. CALLR. GET A NEW FN
007074 27 00 04 01 0 040001 4097. L XL,STACK+1,XT. GET RETURN ADDR
007075 26 16 01 01 0 000001 4098. POP.
007076 74 04 00 00 0 007044 4099. J CHKFN. GO CHECK NEW FN 4100. /. COMPARE TWO S-EXPRESSIONS FOR EQUALITY
3 007077 74 01 03 00 0 006455 4101. EQUAL1 JNZ XV+1,GFAL.
007100 12 03 04 16 0 000000 4102. LOWER XA. BOTH LISTS
007101 01 00 04 02 0 037776 4103. SA XA,STACK-2,XF.
007102 12 04 02 16 0 000000 4104. UPPER XV.
007103 06 00 01 03 2 040000 4105. LETS EQUAL.
007104 23 16 03 00 0 007122
007105 04 00 03 01 2 040000
007106 01 00 02 01 2 040000 4106. STORE
007107 01 00 02 02 0 040000
007110 12 03 02 02 0 037777 4107. LOAD 1.
007111 12 16 02 00 0 000001
007112 12 03 04 16 0 000000 4108. LOWER XA
007113 01 00 04 02 0 037777 4109. SA XA,STACK-1,XF.
007114 12 04 02 16 0 000000 4110. UPPER XV.
007115 01 00 02 01 2 040000 4111. STORE
007116 01 00 02 02 0 040000
007117 74 13 04 00 0 000004 4112. CALLR.
007120 53 16 02 00 0 001000 4113. TNE XV,KNIL.
007121 74 04 00 00 0 000011 4114. RETURN
007122 12 03 02 02 0 037777 4115. EQUAL LOAD 1
007123 12 16 02 00 0 000001
007124 53 03 02 02 0 037776 4116. TNE,RH XV,STACK-2,XF.
007125 74 04 00 00 0 006470 4117. J GTRU. THEY'RE EQ
007126 42 16 02 00 1 177600 4118. GETYPE
007127 73 02 03 00 0 000007
007130 10 13 03 17 0 000040
007131 50 11 00 17 0 000036 4119. TZ NFLG5,XV+1.
007132 74 04 00 00 0 006455 4120. J GFAL. 1ST IS EQ-TYPE BUT NOT EQ
007133 10 00 00 00 0 000017 4121. L XX,XV+1.
007134 12 03 02 02 0 037776 4122. LOAD 2.
007135 12 16 02 00 0 000002
007136 42 16 02 00 1 177600 4123. GETYPE.
007137 73 02 03 00 0 000007
007140 10 13 03 17 0 000040
007141 74 00 00 00 0 007077 4124. JZ XX,EQUAL1. FIRST IS LIST STRUCTURE
007142 51 13 00 14 0 000036 4125. TNZ NFLG3,XX.
007143 74 04 00 00 0 007151 4126. J EQUAL2.
007144 51 13 00 17 0 000036 4127. TNZ NFLG3,XV+1. FIRST IS NUMBER
007145 74 04 00 00 0 006455 4128. J GFAL.
007146 74 13 10 00 0 010242 4129. LMJ XW,LEG. BOTH NUMBERS
007147 74 00 04 00 0 006470 4130. JZ XA,GTRU.
007150 74 04 00 00 0 006455 4131. J GFAL.
007151 52 16 03 00 0 000010 4132. EQUAL2 TE,U XV+1,STRING. FIRST MUST BE STRING
007152 74 04 00 00 0 006455 4133. J GFAL.
007153 10 00 03 02 0 037777 4134. L XV+1,STACK-1,XF. BOTH STRINGS
007154 10 02 00 16 0 000000 4135. EQUAL3 L,H1 XX,0,XV.
007155 52 02 00 17 0 000000 4136. TE,H1 XX,0,XV+1.
007156 74 04 00 00 0 006455 4137. J GFAL.
007157 12 03 02 16 0 000000 4138. LMA,RH XV,0,XV.
007160 53 03 02 17 0 000000 4139. TNE,RH XV,0,XV+1.
007161 74 04 00 00 0 006470 4140. J GTRU.
007162 12 03 03 17 0 000000 4141. LMA,RH XV+1,0,XV+1.
007163 52 16 02 00 0 001000 4142. TE XV,KNIL.
007164 53 16 03 00 0 001000 4143. TNE XV+1,KNIL.
007165 74 04 00 00 0 006455 4144. J GFAL.
007166 74 04 00 00 0 007154 4145. J EQUAL3.
4146. /. MAKE SUBSTITUTION IN S-EXPRESSION
3 007167 12 03 02 02 0 037777 4147. SUBST LOAD 1
007170 12 16 02 00 0 000001
007171 01 04 02 00 0 000154 4148. SA,LH XV,SUBWK.
007172 12 03 02 02 0 037776 4149. LOAD 2.
007173 12 16 02 00 0 000002
007174 01 03 02 00 0 000154 4150. SA,RH XV,SUBWK.
007175 06 00 01 03 2 040000 4151. LETS SUBST1.
007176 23 16 03 00 0 007205
007177 04 00 03 01 2 040000
007200 12 03 02 02 0 037775 4152. MOVE 3.
007201 12 16 02 00 0 000003
007202 01 00 02 01 2 040000
007203 01 00 02 02 0 040000
007204 74 04 00 00 0 000020 4153. J ENTRYI.
007205 06 00 01 03 2 040000 4154. SUBST1 LETS EQUAL.
007206 23 16 03 00 0 007122
007207 04 00 03 01 2 040000
007210 12 03 02 02 0 037777 4155. MOVE 1.
007211 12 16 02 00 0 000001
007212 01 00 02 01 2 040000
007213 01 00 02 02 0 040000
007214 12 03 02 00 0 000154 4156. LMA,RH XV,SUBWK.
007215 01 00 02 01 2 040000 4157. STORE
007216 01 00 02 02 0 040000
007217 74 13 04 00 0 000004 4158. CALLR
007220 21 16 02 00 0 001000 4159. ANU XV,KNIL.
007221 01 00 03 00 0 000155 4160. SA XV+1,SUBWK+1.
007222 12 04 02 00 0 000154 4161. LMA,LH XV,SUBWK.
007223 74 01 03 00 0 000011 4162. JNZ XV+1,EXIT.
007224 12 03 02 02 0 037777 4163. LOAD 1.
007225 12 16 02 00 0 000001
007226 42 16 02 00 1 177600 4164. GETYPE
007227 73 02 03 00 0 000007
007230 10 13 03 17 0 000040
007231 74 01 03 00 0 000011 4165. JNZ XV+1,EXIT.
007232 12 03 04 16 0 000000 4166. LOWER XA.
007233 01 00 04 01 2 040000 4167. SA XA,STACK,*XT.
007234 12 04 02 16 0 000000 4168. UPPER XV
007235 06 00 01 03 2 040000 4169. LETS SUBST1.
007236 23 16 03 00 0 007205
007237 04 00 03 01 2 040000
007240 01 00 02 01 2 040000 4170. STORE.
007241 01 00 02 02 0 040000
007242 74 13 04 00 0 000000 4171. CALL
007243 06 00 01 03 2 040000 4172. LETS SUBST1.
007244 23 16 03 00 0 007205
007245 04 00 03 01 2 040000
007246 12 03 02 02 0 037776 4173. MOVE 2.
007247 12 16 02 00 0 000002
007250 01 00 02 01 2 040000
007251 01 00 02 02 0 040000
007252 10 00 04 00 0 000155 4174. LA XA,SUBWK+1.
007253 01 00 04 02 0 037776 4175. SA XA,STACK-2,XF.
007254 74 13 04 00 0 000000 4176. CALL
007255 10 00 04 00 0 000155 4177. LA XA,SUBWK+1.
007256 40 00 04 02 0 037776 4178. OR XA,STACK-2,XF.
007257 01 00 05 00 0 000155 4179. SA XA+1,SUBWK+1.
007260 74 01 05 00 0 006443 4180. JNZ XA+1,CONS.
007261 12 03 02 02 0 037777 4181. L1X LOAD 1.
007262 12 16 02 00 0 000001
007263 74 04 00 00 0 000011 4182. RETURN
4183. $(8)
8 000154 4184. SUBWK RES 2
4185. $(3)
4186. /
4187. . IS ELEMENT MEMBER OF LIST
3 007264 12 03 02 02 0 037777 4188. MEMBER LOAD 1. GET ELEMENT
007265 12 16 02 00 0 000001
007266 42 16 02 00 1 177600 4189. GETYPE.
007267 73 02 03 00 0 000007
007270 10 13 03 17 0 000040
007271 51 11 00 17 0 000036 4190. TNZ NFLG5,XV+1.
007272 74 04 00 00 0 007304 4191. J MEMB2. NEED EQUAL CHECK
4192. . SIMPLE POINTER: DO A FAST MEMBER
007273 10 00 03 00 0 000016 4193. L XV+1,XV.
007274 12 03 02 02 0 037776 4194. LOAD 2. GET LIST
007275 12 16 02 00 0 000002
007276 53 16 02 00 0 001000 4195. MEMB1 TNE XV,KNIL.
007277 74 04 00 00 0 000011 4196. RETURN. NOT FOUND
007300 53 04 03 16 0 000000 4197. TNE,LH XV+1,0,XV.
007301 74 04 00 00 0 000011 4198. RETURN. FOUND
007302 12 03 02 16 0 000000 4199. LOWER XV.
007303 74 04 00 00 0 007276 4200. J MEMB1.
4201. . COMPLEX OBJECT: DO A SLOW MEMBER
007304 12 03 02 02 0 037776 4202. MEMB2 LOAD 2
007305 12 16 02 00 0 000002
007306 53 16 02 00 0 001000 4203. TNE XV,KNIL.
007307 74 04 00 00 0 000011 4204. RETURN. NOT FOUND
007310 12 04 04 16 0 000000 4205. UPPER XA.
007311 06 00 01 03 2 040000 4206. LETS EQUAL.
007312 23 16 03 00 0 007122
007313 04 00 03 01 2 040000
007314 12 03 02 02 0 037777 4207. MOVE 1.
007315 12 16 02 00 0 000001
007316 01 00 02 01 2 040000
007317 01 00 02 02 0 040000
007320 01 00 04 01 2 040000 4208. SA XA,STACK,*XT.
007321 74 13 04 00 0 000004 4209. CALLR
007322 10 00 03 00 0 000016 4210. L XV+1,XV.
007323 12 03 02 02 0 037776 4211. LOAD 2.
007324 12 16 02 00 0 000002
007325 52 16 03 00 0 001000 4212. TE XV+1,KNIL.
007326 74 04 00 00 0 000011 4213. RETURN. FOUND
007327 12 03 02 16 0 000000 4214. LOWER XV.
007330 01 00 02 01 2 040000 4215. STORE 2.
007331 01 00 02 02 0 037776
007332 74 04 00 00 0 007305 4216. J MEMB2+1.
4217. /. RETURN NTH MEMBER OF LIST WHOSE CAR IS ELEMENT
3 007333 12 03 02 02 0 037402 4218. ASSOC MOVE (1).
007334 12 16 02 00 0 000376
007335 01 00 02 01 2 040000
007336 01 00 02 02 0 040000
007337 12 03 02 02 0 037775 4219. LOAD 3. GET N
007340 12 16 02 00 0 000003
007341 10 00 04 16 0 000000 4220. L XA,0,XV.
007342 12 03 02 02 0 037777 4221. LOAD 1. GET ELEMENT
007343 12 16 02 00 0 000001
007344 42 16 02 00 1 177600 4222. GETYPE.
007345 73 02 03 00 0 000007
007346 10 13 03 17 0 000040
007347 51 11 00 17 0 000036 4223. TNZ NFLG5,XV+1.
007350 74 04 00 00 0 007367 4224. J ASSOC2. NEED EQUAL CHECK
4225. . SIMPLE POINTER: DO A FAST ASSOC
007351 10 00 03 00 0 000016 4226. L XV+1,XV.
007352 12 03 02 02 0 037776 4227. LOAD 2. GET LIST
007353 12 16 02 00 0 000002
007354 53 16 02 00 0 001000 4228. ASSOC1 TNE XV,KNIL.
007355 74 04 00 00 0 000011 4229. RETURN. NOT FOUND
007356 12 04 00 16 0 000000 4230. UPPER XX.
007357 12 03 02 16 0 000000 4231. LOWER XV.
007360 52 04 03 14 0 000000 4232. TE,LH XV+1,0,XX.
007361 74 04 00 00 0 007354 4233. J ASSOC1.
007362 15 16 04 00 0 000001 4234. AN,U XA,1. FOUND AN OCCURANCE
007363 55 16 04 00 0 000001 4235. TG,U XA,1.
007364 74 04 00 00 0 007354 4236. J ASSOC1. LOOK FOR ANOTHER
007365 10 00 02 00 0 000014 4237. L XV,XX. ALL DONE
007366 74 04 00 00 0 000011 4238. RETURN.
4239. . COMPLEX OBJECT: DO A SLOW ASSOC
007367 01 00 04 00 0 000156 4240. ASSOC2 S XA,ASSCNT. SAVE N
007370 12 03 02 02 0 037776 4241. LOAD 2.
007371 12 16 02 00 0 000002
007372 53 16 02 00 0 001000 4242. TNE XV,KNIL.
007373 74 04 00 00 0 000011 4243. RETURN. NOT FOUND
007374 12 03 04 16 0 000000 4244. LOWER XA.
007375 01 00 04 02 0 037776 4245. S XA,STACK-2,XF.
007376 12 04 02 16 0 000000 4246. UPPER XV.
007377 01 00 02 01 2 040000 4247. STORE 3.
007400 01 00 02 02 0 037775
007401 12 04 04 16 0 000000 4248. UPPER XA.
007402 06 00 01 03 2 040000 4249. LETS EQUAL.
007403 23 16 03 00 0 007122
007404 04 00 03 01 2 040000
007405 12 03 02 02 0 037777 4250. MOVE 1.
007406 12 16 02 00 0 000001
007407 01 00 02 01 2 040000
007410 01 00 02 02 0 040000
007411 01 00 04 01 2 040000 4251. S XA,STACK,*XT.
007412 74 13 04 00 0 000004 4252. CALLR.
007413 53 16 02 00 0 001000 4253. TNE XV,KNIL.
007414 74 04 00 00 0 007370 4254. J ASSOC2+1.
007415 10 00 04 00 0 000156 4255. L XA,ASSCNT. FOUND AN OCCURANCE
007416 15 16 04 00 0 000001 4256. AN,U XA,1.
007417 55 16 04 00 0 000001 4257. TG,U XA,1.
007420 74 04 00 00 0 007367 4258. J ASSOC2. LOOK FOR ANOTHER
007421 12 03 02 02 0 037775 4259. LOAD 3. ALL DONE
007422 12 16 02 00 0 000003
007423 74 04 00 00 0 000011 4260. RETURN.
4261. $(8).
8 000156 4262. ASSCNT RES 1.
4263. $(3).
4264. /. PUT VALUE ON PROPERTY LIST
3 007424 74 13 04 00 0 007500 4265. PUTP LMJ XL,PLLU. LOOKUP INDICATOR
007425 74 04 00 00 0 007433 4266. J PUTPN.
007426 10 00 04 02 0 037775 4267. LA XA,STACK-3,XF.
007427 01 03 04 16 0 000000 4268. PUTPP SA,RH XA,0,XV.
007430 12 03 02 02 0 037777 4269. LOAD 1.
007431 12 16 02 00 0 000001
007432 74 04 00 00 0 000011 4270. RETURN
007433 12 03 02 02 0 037776 4271. PUTPN LOAD 2
007434 12 16 02 00 0 000002
007435 10 00 03 02 0 037775 4272. LA XV+1,STACK-3,XF.
007436 74 13 04 00 0 000000 4273. NODE CONSED.
007437 10 00 03 02 0 037777 4274. LA XV+1,STACK-1,XF.
007440 12 03 03 17 0 000000 4275. LMA,RH XV+1,0,XV+1.
007441 74 13 04 00 0 000000 4276. NODE CONSED.
007442 10 00 04 00 0 000016 4277. LA XA,XV.
007443 12 03 02 02 0 037777 4278. LOAD 1.
007444 12 16 02 00 0 000001
007445 74 04 00 00 0 007427 4279. J PUTPP.
4280. . GET VALUE FROM PROPERTY LIST
007446 12 03 02 02 0 037777 4281. GET LOAD 1.
007447 12 16 02 00 0 000001
007450 42 16 02 00 1 177600 4282. GETYPE
007451 73 02 03 00 0 000007
007452 10 13 03 17 0 000040
007453 52 16 03 00 0 000007 4283. TE,U XV+1,SYMBOL.
007454 74 04 00 00 0 006455 4284. J GFAL.
007455 74 13 04 00 0 007500 4285. LMJ XL,PLLU.
007456 74 04 00 00 0 006455 4286. J GFAL.
007457 12 03 02 16 0 000000 4287. LOWER XV.
007460 74 04 00 00 0 000011 4288. RETURN.
4289. . GET PAIR FROM PROPERTY LIST.
007461 74 13 04 00 0 007500 4290. PROP LMJ XL,PLLU.
007462 74 04 00 00 0 007464 4291. J $+2.
007463 74 04 00 00 0 000011 4292. RETURN
007464 12 03 02 02 0 037775 4293. LOAD 3.
007465 12 16 02 00 0 000003
007466 74 13 04 00 0 007044 4294. LMJ XL,CHKFN. MAKE SURE 3RD ARG IS A FN
007467 06 00 01 03 2 040000 4295. MARK.
007470 01 00 02 01 2 040000 4296. STORE.
007471 01 00 02 02 0 040000
007472 74 04 00 00 0 000020 4297. J ENTRYI.
4298. . REMOVE PAIR FROM PROPERTY LIST.
007473 74 13 04 00 0 007500 4299. REMPR LMJ XL,PLLU.
007474 74 04 00 00 0 007430 4300. J PUTPP+1.
007475 12 03 02 15 0 000000 4301. LMA,RH XV,0,XY. PATCH AROUND PAIR
007476 01 03 02 14 0 000000 4302. SA,RH XV,0,XX.
007477 74 04 00 00 0 007430 4303. J PUTPP+1.
4304. . SEARCH PROPERTY LIST
007500 12 03 00 02 0 037777 4305. PLLU LMA,RH XX,STACK-1,XF.
007501 12 03 04 02 0 037776 4306. LMA,RH XA,STACK-2,XF.
007502 12 03 01 14 0 000000 4307. PLLU1 LMA,RH XY,0,XX.
007503 53 16 01 00 0 001000 4308. TNE XY,KNIL. MORE PROPERTY LIST?
007504 74 04 00 04 0 000000 4309. J 0,XL.
007505 12 04 02 15 0 000000 4310. LMA,LH XV,0,XY.
007506 42 16 02 00 1 177600 4311. GETYPE
007507 73 02 03 00 0 000007
007510 10 13 03 17 0 000040
007511 74 01 03 00 0 007514 4312. JNZ XV+1,PLLU2. IS IT A FLAG
007512 53 04 04 16 0 000000 4313. TNE,LH XA,0,XV. NOT DESIRED ATTRIBUTE?
007513 74 04 00 04 0 000001 4314. J 1,XL.
007514 10 00 00 00 0 000015 4315. PLLU2 LA XX,XY.
007515 74 04 00 00 0 007502 4316. J PLLU1.
4317. /. PUT FLAG ON PROPERTY LIST
3 007516 74 13 04 00 0 007547 4318. PFLAG LMJ XL,FLAGR. LOOK FOR FLAG
007517 74 04 00 00 0 007525 4319. J FLAGX.
007520 74 13 04 00 0 000000 4320. NODE CONSED.
007521 10 00 00 02 0 037777 4321. LA XX,STACK-1,XF. ADD FLAG TO PROPERTY LIST
007522 12 03 04 14 0 000000 4322. LMA,RH XA,0,XX.
007523 01 03 04 16 0 000000 4323. SA,RH XA,0,XV.
007524 01 03 02 14 0 000000 4324. SA,RH XV,0,XX.
007525 12 03 02 02 0 037777 4325. FLAGX LOAD 1.
007526 12 16 02 00 0 000001
007527 74 04 00 00 0 000011 4326. RETURN
4327. . TEST FLAG
007530 12 03 02 02 0 037777 4328. TFLAG LOAD 1.
007531 12 16 02 00 0 000001
007532 42 16 02 00 1 177600 4329. GETYPE
007533 73 02 03 00 0 000007
007534 10 13 03 17 0 000040
007535 52 16 03 00 0 000007 4330. TE,U XV+1,SYMBOL.
007536 74 04 00 00 0 006455 4331. J GFAL
007537 74 13 04 00 0 007547 4332. LMJ XL,FLAGR.
007540 74 04 00 00 0 006470 4333. J GTRU.
007541 74 04 00 00 0 006455 4334. J GFAL.
4335. . REMOVE FLAG
007542 74 13 04 00 0 007547 4336. RFLAG LMJ XL,FLAGR.
007543 74 04 00 00 0 007545 4337. J $+2.
007544 74 04 00 00 0 007525 4338. J FLAGX.
007545 12 03 02 17 0 000000 4339. LMA,RH XV,0,XV+1.
007546 74 04 00 00 0 007524 4340. J FLAGX-1.
4341. . SEARCH FOR FLAG
007547 10 00 00 02 0 037777 4342. FLAGR LA XX,STACK-1,XF.
007550 10 00 02 02 0 037776 4343. LA XV,STACK-2,XF.
007551 12 03 03 14 0 000000 4344. LMA,RH XV+1,0,XX.
007552 53 16 03 00 0 001000 4345. TNE XV+1,KNIL.
007553 74 04 00 04 0 000001 4346. J 1,XL.
007554 53 04 02 17 0 000000 4347. TNE,LH XV,0,XV+1.
007555 74 04 00 04 0 000000 4348. J 0,XL.
007556 10 00 00 00 0 000017 4349. LA XX,XV+1.
007557 74 04 00 00 0 007551 4350. J FLAGR+2.
4351. /. ESTABLISH CONSTANTS
3 007560 12 03 02 02 0 037777 4352. CSETQ LOAD 1.
007561 12 16 02 00 0 000001
007562 12 04 04 16 0 000000 4353. UPPER XA.
007563 01 03 04 02 0 037777 4354. SA,RH XA,STACK-1,XF.
007564 12 03 02 16 0 000000 4355. LOWER XV.
007565 74 13 04 00 0 001704 4356. LMJ XL,EVALC-1.
007566 12 03 02 02 0 037776 4357. CSET LOAD 2.
007567 12 16 02 00 0 000002
007570 12 03 03 02 0 037777 4358. LMA,RH XV+1,STACK-1,XF.
007571 01 04 02 17 0 000000 4359. SA,LH XV,0,XV+1.
007572 74 04 00 00 0 000011 4360. RETURN.
4361. . DEFINE FUNCTIONS.
007573 74 13 16 00 0 006766 4362. DEFINE LMJ XV,INTO-1.
007574 12 03 02 02 0 037777 4363. LOAD 1.
007575 12 16 02 00 0 000001
007576 12 03 02 16 0 000000 4364. LOWER XV.
007577 74 13 04 00 0 001704 4365. LMJ XL,EVALC-1.
007600 12 03 02 02 0 037777 4366. LOAD 1.
007601 12 16 02 00 0 000001
007602 12 04 02 16 0 000000 4367. CHAIN LH.
007603 01 00 02 01 2 040000 4368. STORE 1.
007604 01 00 02 02 0 037777
007605 74 04 00 00 0 006422 4369. J RPLACA.
4370. . ERASE ATOMIC SYMBOLS
007606 74 13 16 00 0 007015 4371. ERASE LMJ XV,MAPC-1.
007607 12 03 02 02 0 037777 4372. LOAD 1.
007610 12 16 02 00 0 000001
007611 10 16 04 00 0 001000 4373. LA XA,KNIL.
007612 01 00 04 16 0 000000 4374. SA XA,0,XV.
007613 74 04 00 00 0 000011 4375. RETURN
4376. /. GET LENGTH OF LIST
3 007614 12 03 02 02 0 037777 4377. LENGTH LOAD 1.
007615 12 16 02 00 0 000001
007616 10 16 03 00 0 000000 4378. LA,U XV+1,0.
007617 53 16 02 00 0 001000 4379. TNE XV,KNIL.
007620 74 04 00 00 0 000003 4380. J STORIT(INTGER).
007621 14 16 03 00 0 000001 4381. AA,U XV+1,1.
007622 12 03 02 16 0 000000 4382. CHAIN RH.
007623 74 04 00 00 0 007616 4383. J LENGTH+2.
4384. . APPEND TWO LISTS
007624 12 03 02 02 0 037777 4385. APPEND LOAD 1.
007625 12 16 02 00 0 000001
007626 74 13 04 00 0 000071 4386. LMJ XL,STAKEM.
007627 12 03 02 02 0 037776 4387. LOAD 2.
007630 12 16 02 00 0 000002
007631 27 00 15 00 0 000002 4388. LX XY,XF.
007632 25 16 15 00 0 000002 4389. ANX,U XY,2.
007633 74 13 04 00 0 000053 4390. LMJ XL,LISTEM+1.
007634 74 04 00 00 0 000011 4391. RETURN.
4392. . CONCATENATE TWO LISTS
007635 10 00 00 02 0 037777 4393. NCONC LA XX,STACK-1,XF.
007636 12 03 02 02 0 037776 4394. LOAD 2.
007637 12 16 02 00 0 000002
007640 53 16 00 00 0 001000 4395. TNE XX,KNIL.
007641 74 04 00 00 0 000011 4396. RETURN
007642 10 00 01 00 0 000014 4397. LA XY,XX.
007643 12 03 00 14 0 000000 4398. LMA,RH XX,0,XX.
007644 52 16 00 00 0 001000 4399. TE XX,KNIL.
007645 74 04 00 00 0 007642 4400. J $-3.
007646 01 03 02 15 0 000000 4401. SA,RH XV,0,XY.
007647 12 03 02 02 0 037777 4402. LOAD 1.
007650 12 16 02 00 0 000001
007651 74 04 00 00 0 000011 4403. RETURN
4404. . REVERSE A LIST
007652 10 16 03 00 0 001000 4405. REVERS LA XV+1,KNIL.
007653 12 03 02 02 0 037777 4406. LOAD 1.
007654 12 16 02 00 0 000001
007655 53 16 02 00 0 001000 4407. TNE XV,KNIL.
007656 74 04 00 00 0 007665 4408. J REVX.
007657 12 03 04 16 0 000000 4409. LOWER XA.
007660 01 00 04 02 0 037777 4410. SA XA,STACK-1,XF.
007661 12 04 02 16 0 000000 4411. UPPER XV.
007662 74 13 04 00 0 000000 4412. NODE CONSED
007663 10 00 03 00 0 000016 4413. LA XV+1,XV.
007664 74 04 00 00 0 007653 4414. J REVERS+1.
007665 10 00 02 00 0 000017 4415. REVX LA XV,XV+1.
007666 74 04 00 00 0 000011 4416. RETURN
4417. /. RETURN NTH SEGMENT OF LIST
3 007667 12 03 02 02 0 037776 4418. NTH LOAD 2. GET N
007670 12 16 02 00 0 000002
007671 10 00 04 16 0 000000 4419. L XA,0,XV.
007672 74 02 04 00 0 007703 4420. JP XA,NTHP.
007673 12 03 02 02 0 037777 4421. LOAD 1. N NEGATIVE: COMPUTE N+LENGTH+1
007674 12 16 02 00 0 000001
007675 14 16 04 00 0 000001 4422. A,U XA,1.
007676 53 16 02 00 0 001000 4423. TNE XV,KNIL.
007677 74 04 00 00 0 007702 4424. J $+3.
007700 12 03 02 16 0 000000 4425. CHAIN RH.
007701 74 04 00 00 0 007675 4426. J $-4.
007702 74 03 04 00 0 006455 4427. JN XA,GFAL. LIST TOO SHORT
007703 74 00 04 00 0 006455 4428. NTHP JZ XA,GFAL. DITTO
007704 12 03 02 02 0 037777 4429. LOAD 1.
007705 12 16 02 00 0 000001
007706 15 16 04 00 0 000001 4430. AN,U XA,1.
007707 74 00 04 00 0 000011 4431. JZ XA,EXIT.
007710 53 16 02 00 0 001000 4432. TNE XV,KNIL.
007711 74 04 00 00 0 000011 4433. RETURN. DITTO
007712 12 03 02 16 0 000000 4434. CHAIN RH.
007713 74 04 00 00 0 007706 4435. J $-5.
4436. /. ITERATE DOWN LIST
3 007714 10 16 04 00 0 001000 4437. ONDEX LA XA,KNIL.
007715 74 04 00 00 0 007717 4438. J INDEX+1.
007716 10 16 04 00 0 000000 4439. INDEX LA,U XA,0.
007717 01 04 04 02 0 037775 4440. SA,LH XA,STACK-3,XF.
007720 12 03 02 02 0 037775 4441. LOAD 3.
007721 12 16 02 00 0 000003
007722 74 13 04 00 0 007044 4442. LMJ XL,CHKFN. MAKE SURE WE HAVE A FN
007723 01 03 02 02 0 037775 4443. S,RH XV,STACK-3,XF.
007724 12 03 02 02 0 037776 4444. LOAD 2.
007725 12 16 02 00 0 000002
007726 12 03 03 02 0 037777 4445. LMA,RH XV+1,STACK-1,XF.
007727 53 16 03 00 0 001000 4446. TNE XV+1,KNIL. MORE LIST?
007730 74 04 00 00 0 000011 4447. RETURN.
007731 06 00 01 03 2 040000 4448. MARK
007732 10 00 00 02 0 037775 4449. LA XX,STACK-3,XF.
007733 01 00 00 01 2 040000 4450. SA XX,STACK,*XT.
007734 12 03 01 17 0 000000 4451. LMA,RH XY,0,XV+1.
007735 51 04 00 02 0 037775 4452. TNZ,LH STACK-3,XF. ONDEX?
007736 12 04 03 17 0 000000 4453. LMA,LH XV+1,0,XV+1.
007737 01 00 03 01 2 040000 4454. SA XV+1,STACK,*XT.
007740 06 00 01 03 2 040000 4455. MARK
007741 10 16 04 00 0 007723 4456. LA,U XA,INDEX+5.
007742 01 00 04 01 2 040000 4457. SA XA,STACK,*XT.
007743 01 00 01 01 2 040000 4458. SA XY,STACK,*XT.
007744 01 00 02 01 2 040000 4459. SA XV,STACK,*XT.
007745 01 00 00 01 2 040000 4460. SA XX,STACK,*XT.
007746 74 13 04 00 0 000000 4461. CALL
007747 74 04 00 00 0 000020 4462. J ENTRYI.
4463. /. APPLY FUNCTION TO EVERY ATOM IN SYSTEM
3 007750 12 03 02 02 0 027774 4464. OBLIST MOVE OBLPR.
007751 12 16 02 00 0 010004
007752 01 00 02 01 2 040000
007753 01 00 02 02 0 040000
007754 05 00 00 03 2 040000 4465. SZ CSTAK,*XC.
007755 12 03 02 02 0 037777 4466. LOAD 1.
007756 12 16 02 00 0 000001
007757 74 13 04 00 0 007044 4467. LMJ XL,CHKFN. MAKE SURE WE HAVE A FN
007760 01 00 02 01 2 040000 4468. STORE 1.
007761 01 00 02 02 0 037777
007762 10 03 00 03 0 037777 4469. OBL1 LA,RH XX,CSTAK-1,XC.
007763 53 16 00 00 0 000100 4470. TNE,U XX,64.
007764 70 00 03 00 0 006455 4471. JGD XC,GFAL.
007765 12 03 02 14 0 002040 4472. LMA,RH XV,HASH,XX.
007766 14 16 00 00 0 000001 4473. AA,U XX,1.
007767 01 03 00 03 0 037777 4474. SA,RH XX,CSTAK-1,XC.
007770 01 03 00 00 0 000157 4475. SA,RH XX,OBLF.
007771 74 00 02 00 0 007762 4476. OBL2 JZ XV,OBL1.
007772 12 04 04 16 0 000001 4477. LMA,LH XA,1,XV.
007773 01 04 04 03 0 037777 4478. SA,LH XA,CSTAK-1,XC.
007774 06 00 01 03 2 040000 4479. MARK
007775 10 00 00 02 0 037777 4480. LA XX,STACK-1,XF.
007776 01 00 00 01 2 040000 4481. SA XX,STACK,*XT.
007777 01 00 02 01 2 040000 4482. STORE
010000 01 00 02 02 0 040000
010001 74 13 04 00 0 000004 4483. CALLR
010002 10 04 02 03 0 037777 4484. LA,LH XV,CSTAK-1,XC.
010003 74 04 00 00 0 007771 4485. J OBL2.
010004 01 04 04 00 0 000157 4486. OBLPR SA,LH XA,OBLF.
010005 06 00 01 03 2 040000 4487. LETS PRIN1.
010006 23 16 03 00 0 002544
010007 04 00 03 01 2 040000
010010 12 03 02 02 0 037777 4488. MOVE 1.
010011 12 16 02 00 0 000001
010012 01 00 02 01 2 040000
010013 01 00 02 02 0 040000
010014 74 13 04 00 0 000004 4489. CALLR
010015 10 16 02 00 0 000005 4490. LA,U XV,' '.
010016 72 10 00 11 2 003421 4491. EX OUTPUT,*XO.
010017 10 00 00 00 0 000050 4492. LA XX,LINE.
010020 50 04 00 00 0 000157 4493. TZ,LH OBLF.
010021 55 03 00 00 0 000041 4494. TG XX,ELINE.
010022 74 13 14 00 0 003450 4495. LMJ XX,SENDIT.
010023 74 04 00 00 0 000011 4496. RETURN
4497. $(8).
8 000157 4498. OBLF RES 1
4499. $(3).
4500. /. TEST FOR VARIOUS LINKAGE NODES
3 010024 10 16 04 00 0 006660 4501. IFSPEC LA,U XA,SEXPAND.
010025 74 04 00 00 0 010031 4502. J IFT6.
010026 10 16 04 00 0 006670 4503. IFMAC LA,U XA,MEXPAND.
010027 74 04 00 00 0 010031 4504. J IFT6.
010030 10 16 04 00 0 001727 4505. IFDEF LA,U XA,APPLY.
010031 12 03 02 02 0 037777 4506. IFT6 LOAD 1.
010032 12 16 02 00 0 000001
010033 12 04 02 16 0 000000 4507. CHAIN LH.
010034 42 16 02 00 1 177600 4508. GETYPE
010035 73 02 03 00 0 000007
010036 10 13 03 17 0 000040
010037 53 16 03 00 0 000006 4509. TNE,U XV+1,LINKER.
010040 52 03 04 16 0 000000 4510. TE,RH XA,0,XV.
010041 74 04 00 00 0 006455 4511. J GFAL.
010042 10 00 03 16 0 000001 4512. LA XV+1,1,XV.
010043 12 03 02 16 0 000001 4513. LMA,RH XV,1,XV.
010044 74 04 00 04 0 000000 4514. J 0,XL.
010045 10 16 04 00 0 006346 4515. IFCHN LA,U XA,FOLLOW.
010046 74 13 04 00 0 010031 4516. LMJ XL,IFT6.
010047 74 13 04 00 0 000006 4517. NODE OCTAL.
010050 74 04 00 00 0 000011 4518. RETURN
010051 12 03 02 02 0 037777 4519. IFTYPE LOAD 1.
010052 12 16 02 00 0 000001
010053 42 16 02 00 1 177600 4520. GETYPE
010054 73 02 03 00 0 000007
010055 10 13 03 17 0 000040
010056 12 03 02 02 0 037776 4521. LOAD 2.
010057 12 16 02 00 0 000002
010060 52 00 03 16 0 000000 4522. TE XV+1,0,XV.
010061 74 04 00 00 0 006455 4523. J GFAL.
010062 74 04 00 00 0 006470 4524. J GTRU.
4525. /. EXAMINE WORD IN MEMORY
3 010063 12 03 02 02 0 037431 4526. EXAM MOVE (0).
010064 12 16 02 00 0 000347
010065 01 00 02 01 2 040000
010066 01 00 02 02 0 040000
010067 12 03 02 02 0 037776 4527. LOAD 2.
010070 12 16 02 00 0 000002
010071 12 03 03 02 0 037777 4528. LMA,RH XV+1,STACK-1,XF.
010072 14 00 03 16 0 000000 4529. A XV+1,0,XV.
010073 10 00 03 17 0 000000 4530. L XV+1,0,XV+1.
010074 74 04 00 00 0 000006 4531. J STORIT(OCTAL).
4532. . DEPOSIT WORD IN MEMORY
010075 12 03 02 02 0 037431 4533. DEPOSIT MOVE (0).
010076 12 16 02 00 0 000347
010077 01 00 02 01 2 040000
010100 01 00 02 02 0 040000
010101 12 03 02 02 0 037775 4534. LOAD 3.
010102 12 16 02 00 0 000003
010103 12 03 03 02 0 037776 4535. LMA,RH XV+1,STACK-2,XF.
010104 14 00 03 16 0 000000 4536. A XV+1,0,XV.
010105 12 03 02 02 0 037777 4537. LOAD 1.
010106 12 16 02 00 0 000001
010107 10 00 04 16 0 000000 4538. L XA,0,XV.
010110 01 00 04 17 0 000000 4539. S XA,0,XV+1.
010111 74 04 00 00 0 000011 4540. RETURN.
4541. /. SET BOUNDARY IN COMPILED CODE
3 010112 10 03 02 00 0 000004 4542. SCODE LA,RH XV,T5REC+1. ADDRESS OF LAST BOUNDARY
010113 05 00 00 00 0 000004 4543. SZ T5REC+1.
010114 74 04 00 00 0 000011 4544. RETURN
4545. . SET ORIGIN FOR COMPILED CODE
010115 12 03 02 02 0 037777 4546. ORG LOAD 1.
010116 12 16 02 00 0 000001
010117 42 16 02 00 1 177600 4547. AND,U XV,PAGMSK.
010120 14 16 03 00 0 000200 4548. AA,U XV+1,PAGSIZ.
010121 15 00 03 00 0 000016 4549. ANA XV+1,XV.
010122 01 04 03 00 0 000003 4550. SA,LH XV+1,T5REC. SET # WORDS LEFT IN PAGE
010123 01 03 02 00 0 000003 4551. SA,RH XV,T5REC. SET ORIGIN
010124 10 03 03 00 0 000020 4552. LA,RH XV+1,STORIT(CODE)+1.
010125 01 03 03 00 0 000017 4553. SA,RH XV+1,STORIT(CODE).
010126 74 04 00 00 0 000011 4554. RETURN
4555. . EMIT ONE INSTRUCTION
010127 05 00 00 01 2 040000 4556. ECODE SZ STACK,*XT.
010130 10 16 04 00 0 000000 4557. LA,U XA,0.
010131 12 03 02 02 0 037777 4558. CEM1 LOAD 1.
010132 12 16 02 00 0 000001
010133 42 16 02 00 1 177600 4559. GETYPE
010134 73 02 03 00 0 000007
010135 10 13 03 17 0 000040
010136 74 01 03 00 0 010145 4560. JNZ XV+1,CEM2.
010137 12 03 00 16 0 000000 4561. LOWER XX
010140 01 00 00 02 0 037777 4562. SA XX,STACK-1,XF.
010141 12 04 02 16 0 000000 4563. UPPER XV.
010142 40 00 04 16 0 000000 4564. OR XA,0,XV. OR INTO INSTRUCTION
010143 10 00 04 00 0 000021 4565. LA XA,XA+1.
010144 74 04 00 00 0 010131 4566. J CEM1.
010145 52 16 02 00 0 001000 4567. CEM2 TE XV,KNIL.
010146 14 00 04 16 0 000000 4568. AA XA,0,XV. DECREMENT IF NEEDED
010147 14 00 04 02 0 037776 4569. AA XA,STACK-2,XF. ADD IN ADDRESS
010150 10 00 03 00 0 000020 4570. LA XV+1,XA.
010151 74 13 04 00 0 000017 4571. NODE CODE
010152 74 04 00 00 0 000011 4572. RETURN
4573. . ILLEGAL INSTRUCTION EXECUTED
010153 74 13 07 00 0 003356 4574. BADI EDIT
010154 122727242705 4575. 'ERROR IN EXECUTION OF COMPILED CODE@'
010155 162305123512
010156 103231162423
010157 052413051024
010160 222516211211
010161 051024111200
010162 74 13 14 00 0 003475 4576. LMJ XX,SENDDB.
010163 74 04 00 00 0 001416 4577. J SYSERR.
4578. /. ENTRY POINTS NEEDED BY COMPILER
3 010164 12 03 02 02 0 037777 4579. EPT LOAD 1.
010165 12 16 02 00 0 000001
010166 10 00 02 16 0 000000 4580. LA XV,0,XV.
010167 10 00 02 16 0 000000 4581. L XV,EPTAB,XV.
4582.
4583.
010170 74 04 00 00 0 000011 4584. RETURN
4585. $(5)
5 000000 000000040000 4586. EPTAB + CSTAK. 0
000001 000000040000 4587. + STACK.
000002 000000000000 4588. + ENTRY.
000003 000000000004 4589. + ENTRYR.
000004 000000000011 4590. + EXIT.
000005 000000000052 4591. + LISTEM. 5
000006 000000006744 4592. + BREAKER
000007 000000010153 4593. + BADI.
000010 000000002442 4594. + LOOKIE.
000011 000000002421 4595. + BIND.
000012 000000000000 4596. + STORIT(CONSED). 10
000013 000000006455 4597. + GFAL.
000014 000000006557 4598. + FUNARG.
000015 000000006562 4599. + FUNARG+3.
000016 000000006670 4600. + MEXPAND.
000017 000000000040 4601. + PAGTAB. 15
000020 000000002433 4602. + UNBIND.
000021 000000006460 4603. + GETYP
000022 000000000071 4604. + STAKEM.
000023 000000006660 4605. + SEXPAND.
000024 000000006346 4606. + FOLLOW. 20
000025 000000001727 4607. + APPLY.
000026 000000001726 4608. + APPLY-1.
000027 000000000034 4609. + TRAP
000030 000000000043 4610. + UNTRAP.
000031 000000001475 4611. + UNWIND. 25
000032 000000000315 4612. + GENNO.
000033 000000006647 4613. + DEFSPM.
000034 000000000047 4614. + PVSAVE.
000035 000000000020 4615. + ENTRYI.
000036 000000000000 4616. DO 21 , +0
000037 000000000000
000040 000000000000
000041 000000000000
000042 000000000000
000043 000000000000
000044 000000000000
000045 000000000000
000046 000000000000
000047 000000000000
000050 000000000000
000051 000000000000
000052 000000000000
000053 000000000000
000054 000000000000
000055 000000000000
000056 000000000000
000057 000000000000
000060 000000000000
000061 000000000000
000062 000000000000
4617. $(6)
6 000317 000000000063 4618. LEPTAB + $(5)-EPTAB
000320 000000 000000 4619. BEPTAB + 0,0
4620. $(3)
4621. /. ARITHMETIC ROUTINES
3 010171 12 03 02 02 0 037777 4622. ZEROP LOAD 1
010172 12 16 02 00 0 000001
010173 50 00 00 16 0 000000 4623. TZ 0,XV.
010174 74 04 00 00 0 006455 4624. J GFAL.
010175 74 04 00 00 0 006470 4625. J GTRU.
4626. . CHECK FOR NUMBER
010176 12 03 02 02 0 037777 4627. IFNUM LOAD 1.
010177 12 16 02 00 0 000001
010200 42 16 02 00 1 177600 4628. GETYPE.
010201 73 02 03 00 0 000007
010202 10 13 03 17 0 000040
010203 50 13 00 17 0 000036 4629. TZ NFLG3,XV+1.
010204 74 04 00 00 0 006470 4630. J GTRU.
010205 74 04 00 00 0 006455 4631. J GFAL.
4632. . CHECK FOR INTEGER
010206 12 03 02 02 0 037777 4633. FIXP LOAD 1.
010207 12 16 02 00 0 000001
010210 42 16 02 00 1 177600 4634. GETYPE
010211 73 02 03 00 0 000007
010212 10 13 03 17 0 000040
010213 52 16 03 00 0 000003 4635. TE,U XV+1,REAL.
010214 74 04 00 00 0 006470 4636. J GTRU.
010215 74 04 00 00 0 006455 4637. J GFAL.
4638. . CHECK FOR REAL.
010216 12 03 02 02 0 037777 4639. FLOATP LOAD 1.
010217 12 16 02 00 0 000001
010220 42 16 02 00 1 177600 4640. GETYPE
010221 73 02 03 00 0 000007
010222 10 13 03 17 0 000040
010223 52 16 03 00 0 000003 4641. TE,U XV+1,REAL.
010224 74 04 00 00 0 006455 4642. J GFAL.
010225 74 04 00 00 0 006470 4643. J GTRU.
4644. /. ARITHMETIC PREDICATES
4645. . GREATER THAN
3 010226 74 13 10 00 0 010242 4646. GREAT LMJ XW,LEG.
010227 74 00 04 00 0 006455 4647. JZ XA,GFAL.
010230 74 02 04 00 0 006470 4648. JP XA,GTRU.
010231 74 04 00 00 0 006455 4649. J GFAL.
4650. . LESS THAN
010232 74 13 10 00 0 010242 4651. LESS LMJ XW,LEG.
010233 74 03 04 00 0 006470 4652. JN XA,GTRU.
010234 74 04 00 00 0 006455 4653. J GFAL.
4654. . NEGATIVE
010235 12 03 02 02 0 037777 4655. MINUSP LOAD 1.
010236 12 16 02 00 0 000001
010237 61 00 00 16 0 000000 4656. TN 0,XV.
010240 74 04 00 00 0 006455 4657. J GFAL.
010241 74 04 00 00 0 006470 4658. J GTRU.
4659. /. COMPARE ROUTINE
3 010242 74 13 04 00 0 010342 4660. LEG LMJ XL,TWONUM.
010243 74 04 00 00 0 010246 4661. J LEGF.
010244 15 00 04 00 0 000016 4662. ANA XA,XV.
010245 74 04 00 10 0 000000 4663. J 0,XW.
010246 76 01 04 00 0 000016 4664. LEGF FAN XA,XV.
010247 12 00 02 00 0 000016 4665. LMA XV,XV.
010250 74 00 02 00 0 010252 4666. JZ XV,$+2.
010251 76 03 04 00 0 000016 4667. FD XA,XV.
010252 74 02 04 00 0 010257 4668. JP XA,LEGP.
010253 76 00 04 00 0 000354 4669. FA XA,(0.000003).
010254 74 03 04 10 0 000000 4670. JN XA,0,XW.
010255 10 16 04 00 0 000000 4671. LA,U XA,0.
010256 74 04 00 10 0 000000 4672. J 0,XW.
010257 76 01 04 00 0 000354 4673. LEGP FAN XA,(0.000003).
010260 74 02 04 10 0 000000 4674. JP XA,0,XW.
010261 74 04 00 00 0 010255 4675. J LEGP-2.
4676. /. ADD ARGUMENTS
3 010262 12 03 02 02 0 037402 4677. ADD1 MOVE (1).
010263 12 16 02 00 0 000376
010264 01 00 02 01 2 040000
010265 01 00 02 02 0 040000
010266 10 16 04 00 0 000000 4678. PLUS LA,U XA,0.
010267 74 13 04 00 0 010300 4679. LMJ XL,NUMLIS.
010270 76 00 04 00 0 000016 4680. FA XA,XV.
010271 14 00 04 00 0 000016 4681. AA XA,XV.
010272 74 04 00 07 0 000000 4682. J 0,XR.
4683. . MULTIPLY ARGUMENTS
010273 10 16 04 00 0 000001 4684. TIMES LA,U XA,1.
010274 74 13 04 00 0 010300 4685. LMJ XL,NUMLIS.
010275 76 02 04 00 0 000016 4686. FM XA,XV.
010276 31 00 04 00 0 000016 4687. MSI XA,XV.
010277 74 04 00 07 0 000000 4688. J 0,XR.
4689. . HANDLE ALL NUMBERS IN STACK
010300 10 16 01 00 0 000000 4690. NUMLIS LA,U XV-1,0.
010301 26 16 07 00 0 010302 4691. LXM,U XR,$+1.
010302 26 16 01 01 0 000001 4692. POP
010303 10 00 02 01 0 040000 4693. LA XV,STACK,XT.
010304 10 00 00 00 0 000001 4694. LA XX,XT.
010305 52 00 00 00 0 000002 4695. TE XX,XF.
010306 74 04 00 00 0 010361 4696. J DONUM.
010307 25 16 01 00 0 000001 4697. ANX,U XT,1.
010310 74 01 01 00 0 010356 4698. JNZ XV-1,NUMFX. FLOATING ANSWER?
010311 10 00 03 00 0 000020 4699. NUMIX LA XV+1,XA.
010312 74 13 04 00 0 000003 4700. NODE INTGER
010313 74 04 00 00 0 000011 4701. RETURN
4702. /. SUBTRACT
3 010314 12 03 02 02 0 037402 4703. SUB1 MOVE (1).
010315 12 16 02 00 0 000376
010316 01 00 02 01 2 040000
010317 01 00 02 02 0 040000
010320 74 13 04 00 0 010342 4704. DIFFER LMJ XL,TWONUM.
010321 76 01 04 00 0 000016 4705. FAN XA,XV.
010322 15 00 04 00 0 000016 4706. ANA XA,XV.
010323 74 04 00 00 0 010311 4707. J NUMIX.
4708. . QUOTIENT
010324 74 13 04 00 0 010342 4709. DIV LMJ XL,TWONUM.
010325 76 03 04 00 0 000016 4710. FD XA,XV.
010326 73 05 04 00 0 000044 4711. DSA XA,36.
010327 34 00 04 00 0 000016 4712. DI XA,XV.
010330 74 04 00 00 0 010311 4713. J NUMIX.
4714. . REMAINDER
010331 74 13 04 00 0 010342 4715. REM LMJ XL,TWONUM.
010332 74 04 00 00 0 010337 4716. J REMR.
010333 73 05 04 00 0 000044 4717. DSA XA,36.
010334 34 00 04 00 0 000016 4718. DI XA,XV.
010335 10 00 03 00 0 000021 4719. LA XV+1,XA+1.
010336 74 04 00 00 0 010312 4720. J NUMIX+1.
010337 76 03 04 00 0 000016 4721. REMR FD XA,XV.
010340 10 00 03 00 0 000021 4722. LA XV+1,XA+1.
010341 74 04 00 00 0 010357 4723. J NUMFX+1.
4724. /. HANDLE TWO NUMBERS
3 010342 12 03 02 02 0 037777 4725. TWONUM LOAD 1.
010343 12 16 02 00 0 000001
010344 42 16 02 00 1 177600 4726. GETYPE
010345 73 02 03 00 0 000007
010346 10 13 03 17 0 000040
010347 10 16 01 00 0 000000 4727. LA,U XV-1,0.
010350 53 16 03 00 0 000003 4728. TNE,U XV+1,REAL.
010351 10 16 01 00 0 000233 4729. LA,U XV-1,0233.
010352 10 00 04 16 0 000000 4730. LA XA,0,XV.
010353 12 03 02 02 0 037776 4731. LOAD 2.
010354 12 16 02 00 0 000002
010355 74 13 07 00 0 010361 4732. LMJ XR,DONUM.
010356 10 00 03 00 0 000020 4733. NUMFX LA XV+1,XA.
010357 74 13 04 00 0 000011 4734. NODE REAL.
010360 74 04 00 00 0 000011 4735. RETURN
4736. /. PERFORM FIX TO FLOAT CONVERSIONS FOR A NUMBER
3 010361 42 16 02 00 1 177600 4737. DONUM GETYPE
010362 73 02 03 00 0 000007
010363 10 13 03 17 0 000040
010364 10 00 02 16 0 000000 4738. LA XV,0,XV. ACTUAL NUMBER
010365 74 01 01 00 0 010375 4739. JNZ XV-1,DONUMF. FLOATING MODE?
010366 52 16 03 00 0 000003 4740. TE,U XV+1,REAL. FIRST FLOATER?
010367 74 04 00 04 0 000001 4741. J 1,XL.
010370 10 00 00 00 0 000016 4742. LA XX,XV.
010371 10 16 01 00 0 000233 4743. LA,U XV-1,0233.
010372 76 05 01 00 0 000020 4744. LCF XV-1,XA.
010373 10 00 04 00 0 000016 4745. LA XA,XV.
010374 10 00 02 00 0 000014 4746. LA XV,XX.
010375 52 16 03 00 0 000003 4747. DONUMF TE,U XV+1,REAL.
010376 76 05 01 00 0 000016 4748. LCF XV-1,XV.
010377 72 10 00 04 0 000000 4749. EX 0,XL.
010400 74 04 00 07 0 000000 4750. J 0,XR.
4751. /. NEGATE
3 010401 12 03 02 02 0 037777 4752. MINUS LOAD 1.
010402 12 16 02 00 0 000001
010403 42 16 02 00 1 177600 4753. GETYPE
010404 73 02 03 00 0 000007
010405 10 13 03 17 0 000040
010406 51 13 00 17 0 000036 4754. TNZ NFLG3,XV+1. NUMBER?
010407 10 16 03 00 0 000002 4755. LA,U XV+1,OCTAL.
010410 10 00 00 00 0 000017 4756. LA XX,XV+1.
010411 31 16 00 00 0 000003 4757. MSI,U XX,3.
010412 11 00 03 16 0 000000 4758. LNA XV+1,0,XV.
010413 74 04 00 14 0 000000 4759. J TYPTAB,XX. STORE NODE & LEAVE
4760. . CONVERT TO INTEGER
010414 12 03 02 02 0 037777 4761. ENTIER LOAD 1.
010415 12 16 02 00 0 000001
010416 42 16 02 00 1 177600 4762. GETYPE
010417 73 02 03 00 0 000007
010420 10 13 03 17 0 000040
010421 52 16 03 00 0 000003 4763. TE,U XV+1,REAL. IS IT FLOATER?
010422 74 04 00 00 0 000011 4764. RETURN
010423 76 04 02 16 0 000000 4765. LUF XV,0,XV.
010424 73 05 03 00 0 000044 4766. DSA XV+1,36.
010425 15 16 02 00 0 000201 4767. ANA,U XV,0201.
010426 74 03 02 00 0 010430 4768. JN XV,$+2. BETWEEN 0 & 1?
010427 73 11 03 16 0 000012 4769. LDSC XV+1,10,XV. DESCALE
010430 74 00 04 00 0 000003 4770. JZ XV+2,STORIT(INTGER).
010431 74 02 03 00 0 000003 4771. JP XV+1,STORIT(INTGER).
010432 15 16 03 00 0 000001 4772. ANA,U XV+1,1.
010433 74 04 00 00 0 000003 4773. J STORIT(INTGER).
4774. /. LOGICAL ROUTINES
3 010434 10 16 03 00 0 000000 4775. LOGOR LA,U XV+1,0.
010435 74 13 04 00 0 010445 4776. LMJ XL,DOLOGS.
010436 40 00 03 16 0 000000 4777. OR XV+1,0,XV.
010437 10 16 03 00 0 000000 4778. LOGXOR LA,U XV+1,0.
010440 74 13 04 00 0 010445 4779. LMJ XL,DOLOGS.
010441 41 00 03 16 0 000000 4780. XOR XV+1,0,XV.
010442 11 16 03 00 0 000000 4781. LOGAND LNA,U XV+1,0.
010443 74 13 04 00 0 010445 4782. LMJ XL,DOLOGS.
010444 42 00 03 16 0 000000 4783. AND XV+1,0,XV.
010445 10 16 01 01 0 000000 4784. DOLOGS L,U XY,0,XT.
010446 26 16 15 15 0 000001 4785. LXM,U XY,1,XY.
010447 53 16 01 02 0 000000 4786. TNE,U XY,0,XF.
010450 74 04 00 00 0 010470 4787. J LOUT.
010451 10 00 02 15 0 040000 4788. LA XV,STACK,XY.
010452 72 10 00 04 0 000000 4789. EX 0,XL.
010453 10 00 03 00 0 000020 4790. LA XV+1,XV+2.
010454 74 04 00 00 0 010446 4791. J DOLOGS+1.
010455 12 03 02 02 0 037776 4792. LSHIFT LOAD 2
010456 12 16 02 00 0 000002
010457 10 00 00 16 0 000000 4793. LA XX,0,XV.
010460 12 03 02 02 0 037777 4794. LOAD 1.
010461 12 16 02 00 0 000001
010462 10 00 03 16 0 000000 4795. LA XV+1,0,XV.
010463 74 03 00 00 0 010466 4796. JN XX,$+3.
010464 73 12 03 14 0 000000 4797. LSSL XV+1,0,XX.
010465 74 04 00 00 0 010470 4798. J LOUT.
010466 11 00 00 00 0 000014 4799. LNA XX,XX.
010467 73 00 03 14 0 000000 4800. SSC XV+1,0,XX.
010470 74 13 04 00 0 000006 4801. LOUT NODE OCTAL.
010471 74 04 00 00 0 000011 4802. RETURN
6 000321 000000032600 4803. WINDUP
000322 000000000000
003334 4804. END START
6 000323 74 13 04 00 0 010153
000324 777776 000001
000325 74 04 00 00 0 010153
000326 000004000000
000327 777774 000033
000330 00 02 04 000632
000331 000001 000000
000332 050505050505
000333 00 02 24 000050
000334 000001 737777
000335 000001 737777
000336 000001 000040
000337 777777777777
000340 00 01 03 001004
000341 000004 000023
000342 00 03 02 001007
000343 12 43 00 000031
000344 00 02 05 001155
000345 00 02 03 001324
000346 000000777776
000347 000000000000
000350 77 00 17 00 0 000000
000351 000001 777776
000352 204500000000
000353 201400000000
000354 156622516334
000355 000001 000050
000356 000000 777776
000357 000000 777775
000360 003770 003763
000361 004505 000220
000362 200000000000
000363 020000000000
000364 00 02 05 004464
000365 000001 000001
000366 00 02 02 004511
000367 00 02 04 004525
000370 00 02 03 005046
000371 100000000000
000372 470012241347
000373 000034 000107
000374 343277244615
000375 74 13 04 00 0 006744
000376 000000000001
LOCATION COUNTERS: $(0) 004000 $(1) 000000 $(2) 033000 $(3) 010472 $(4) 002140 $(5) 000063
$(6) 000377 $(7) 000000 $(8) 000160 $(10) 003463
EXTERNAL REFERENCES: CEND$ CPU$ CSF$ ERR$ EXIT$ FRSTD$ FRSTI$
IALL$ IOW$ LASTD$ LASTI$ MCORE$ PFI$ PFS$ PFWL$
PRINT$ PRNTA$ READ$ R$ TDATE$ TIME$ W$
----------------------------------------------------------------------
PROCEDURE LIBRARY SEARCH TABLE
----------------------------------------------------------------------
FILE: INTERNAL : QUAL*FILE :PDPPROC: @ASGD :FILE IS:
# : NAME : NAME :SEARCH :BY MASM: @ASGD :
----------------------------------------------------------------------
1 : MASM$PF : * : NO : NO : NO :
2 : ASM$PF : * : NO : NO : NO :
3 : SI$$ : MRB *TPF$ : NO : NO : YES :
4 : PROC$ : SYS$LIB$ *PROC$ : YES : NO : YES :
5 : MASM : SYS$LIB$ *MASM : NO : NO : YES :
6 : SYSLIB : SYS$LIB$ *SYSLIB : YES : NO : YES :
7 : RLIB$ : SYS$ *RLIB$ : YES : NO : YES :
----------------------------------------------------------------------
END MASM - LINES: 31686 TIME: 6.080 STORAGE: 29386/21927 ERRORS: U(57)
@send,z
SEND 5R2A S75R3L 04/29/98 13:38:38