@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