NIL 24←REDO 4 215 25←REDO 5 \MP.ERROR 26←(PRINTCODE IT] stkmin: 64 na: 4 pv: -1 startpc: 60 argtype: 0 framename: \MP.ERROR ntsize: 10 nlocals: 0 0: 64 2: 4 4: 177777 6: 60 10: 0 12: 1025 14: 10 16: 0 name table: 20: 1322 40: 3 IVAR 3: ARG2 22: 1323 42: 2 IVAR 2: ARG1 24: 1324 44: 1 IVAR 1: STRING 26: 1325 46: 0 IVAR 0: CODE 30: 0 50: 0 32: 0 52: 0 34: 0 54: 0 36: 0 56: 0 ---- 60: 140 2 33 GVAR \MACHINETYPE 63: 154 6 SIC 6 65: 360 EQ 66: 222 FJUMP-> 72 67: 100 IVAR CODE 70: 76 RAID 71: 20 RETURN 72: 101 IVAR STRING 73: 102 IVAR ARG1 74: 103 IVAR ARG2 75: 13 1 63 FN3 RAID 100: 20 RETURN 101: 0 -X- NIL 27←REDO 6 75 28←REDO 7 385 29←REDO 26 \LISPERROR 2A←RADIX[10] 16 43←REDO 6 117 44←REDO 7 901 45←REDO 38 901 not compiled code 46←REDO 6 117 47←REDO 5 } 48←REDO 8 UNDEFINED FUNCTION RED0 49←REDO 9 \LISPERROR 50←REDO 38 stkmin: 66 na: 3 pv: 0 startpc: 60 argtype: 0 framename: \LISPERROR ntsize: 4 nlocals: 0 0: 66 2: 3 4: 0 6: 60 10: 0 12: 1605 14: 4 16: 10 name table: 20: 1226 30: 140000 FVAR 0: \INTERRUPTABLE 22: 0 32: 0 24: 0 34: 0 26: 0 36: 0 Local args: 40: 6120 50: 2 IVAR 2: CONTINUEOKFLG 42: 106 52: 1 IVAR 1: N 44: 120 54: 0 IVAR 0: X 46: 0 56: 0 ---- 60: 101 IVAR N 61: 154 5 SIC 5 63: 360 EQ 64: 244 TJUMP-> 72 65: 101 IVAR N 66: 154 26 SIC 22 70: 360 EQ 71: 224 FJUMP-> 77 72: 100 IVAR X 73: 11 13 311 FN1 \STOP.DRIBBLE? 76: 277 POP 77: 120 FVAR \INTERRUPTABLE 100: 252 TJUMP-> 114 101: 154 22 SIC 18 103: 157 371 336 334 GCONST "Error in uninterruptable system code -- ↑N to continue into error handler" 107: 100 IVAR X 110: 13 2 25 FN3 \MP.ERROR 113: 277 POP 114: 101 IVAR N 115: 144 COPY 116: 5 1 TYPEP(SMALLP) 120: 227 FJUMP-> 131 121: 100 IVAR X 122: 150 'NIL 123: 32 CONS 124: 32 CONS 125: 11 12 163 FN1 ERRORX 130: 203 JUMP-> 135 131: 100 IVAR X 132: 12 2 361 FN2 ERROR 135: 102 IVAR CONTINUEOKFLG 136: 262 355 FJUMPX-> 113 140: 20 RETURN 141: 0 -X- NIL 51←REDO 10 333 52←REDO 11 \ADDBASE 53←REDO 38 stkmin: 70 na: 2 pv: 1 startpc: 50 argtype: 0 framename: \ADDBASE ntsize: 0 nlocals: 4 0: 70 2: 2 4: 1 6: 50 10: 0 12: 515 14: 0 16: 2000 Local args: 30: 74 40: 1 IVAR 1: D 32: 120 42: 0 IVAR 0: X 34: 0 44: 0 36: 0 46: 0 ---- 50: 100 IVAR X 51: 322 HILOC 52: 100 IVAR X 53: 323 LOLOC 54: 21 42 3 BIND [pvar0] [pvar1]; [pvar2] [pvar3] 57: 101 IVAR D 60: 4 NTYPX 61: 144 COPY 62: 154 2 SIC 2 64: 360 EQ 65: 231 FJUMP-> 100 66: 277 POP 67: 101 IVAR D 70: 310 0 GETBASE.N 72: 272 PVAR←↑ [pvar2] 73: 101 IVAR D 74: 310 1 GETBASE.N 76: 260 32 JUMPX-> 130 100: 144 COPY 101: 153 '1 102: 360 EQ 103: 262 60 FJUMPX-> 163 105: 277 POP 106: 101 IVAR D 107: 5 1 TYPEP(SMALLP) 111: 227 FJUMP-> 122 112: 152 '0 113: 101 IVAR D 114: 361 IGREATERP 115: 243 TJUMP-> 122 116: 152 '0 117: 272 PVAR←↑ [pvar2] 120: 101 IVAR D 121: 205 JUMP-> 130 122: 156 377 377 SICX 65535 125: 272 PVAR←↑ [pvar2] 126: 101 IVAR D 127: 323 LOLOC 130: 273 PVAR←↑ [pvar3] 131: 111 PVAR [pvar1] 132: 144 COPY 133: 156 377 377 SICX 65535 136: 113 PVAR [pvar3] 137: 331 IDIFFERENCE 140: 361 IGREATERP 141: 262 50 FJUMPX-> 211 143: 277 POP 144: 110 PVAR [pvar0] 145: 153 '1 146: 324 PLUS2 147: 270 PVAR←↑ [pvar0] 150: 111 PVAR [pvar1] 151: 156 377 377 SICX 65535 154: 113 PVAR [pvar3] 155: 331 IDIFFERENCE 156: 331 IDIFFERENCE 157: 153 '1 160: 331 IDIFFERENCE 161: 260 32 JUMPX-> 213 163: 154 3 SIC 3 165: 360 EQ 166: 227 FJUMP-> 177 167: 101 IVAR D 170: 11 3 277 FN1 \FIXP.FROM.FLOATP 173: 142 2 IVARX← D 175: 260 263 JUMPX-> 60 177: 101 IVAR D 200: 154 12 SIC 10 202: 12 3 205 FN2 \LISPERROR 205: 142 2 IVARX← D 207: 260 251 JUMPX-> 60 211: 113 PVAR [pvar3] 212: 324 PLUS2 213: 271 PVAR←↑ [pvar1] 214: 112 PVAR [pvar2] 215: 156 177 377 SICX 32767 220: 361 IGREATERP 221: 231 FJUMP-> 234 222: 110 PVAR [pvar0] 223: 156 377 377 SICX 65535 226: 112 PVAR [pvar2] 227: 331 IDIFFERENCE 230: 331 IDIFFERENCE 231: 153 '1 232: 331 IDIFFERENCE 233: 202 JUMP-> 237 234: 110 PVAR [pvar0] 235: 112 PVAR [pvar2] 236: 324 PLUS2 237: 111 PVAR [pvar1] 240: 321 VAG2 241: 20 RETURN 242: 0 -X- NIL 54←REDO 13 ILLEGAL ARG NIL 55←REDO 14 1958 56←REDO 15 \DOGC1 57←REDO 12 1526 58←REDO 6 117 59←REDO 12 1526 60←REDO 5 \GCMAPSCAN 61←REDO 38 stkmin: 70 na: 0 pv: 2 startpc: 30 argtype: 0 framename: \GCMAPSCAN ntsize: 0 nlocals: 5 0: 70 2: 0 4: 2 6: 30 10: 0 12: 2766 14: 0 16: 2400 ---- 30: 156 200 0 SICX 32768 33: 21 101 4 BIND [pvar0]; [pvar1] [pvar2] [pvar3] [ pvar4] 36: 140 1 316 GVAR \HTMAIN 41: 110 PVAR [pvar0] 42: 173 GCSCAN1 43: 144 COPY 44: 240 TJUMP-> 46 45: 20 RETURN 46: 130 PVAR← [pvar0] 47: 320 ADDBASE 50: 131 PVAR← [pvar1] 51: 312 0 360 GETBITS.N.FD 54: 152 '0 55: 360 EQ 56: 222 FJUMP-> 62 57: 261 0 240 JUMPXX-> 317 62: 150 'NIL 63: 274 PVAR←↑ [pvar4] 64: 140 1 322 GVAR \HTCOLL 67: 111 PVAR [pvar1] 70: 310 0 GETBASE.N 72: 156 377 376 SICX 65534 75: 345 LOGAND2 76: 320 ADDBASE 77: 133 PVAR← [pvar3] 100: 144 COPY 101: 312 0 6 GETBITS.N.FD 104: 152 '0 105: 360 EQ 106: 262 170 FJUMPX-> 276 110: 312 0 167 GETBITS.N.FD 113: 110 PVAR [pvar0] 114: 340 LLSH1 115: 321 VAG2 116: 272 PVAR←↑ [pvar2] 117: 114 PVAR [pvar4] 120: 265 147 NTJUMPX-> 267 122: 111 PVAR [pvar1] 123: 113 PVAR [pvar3] 124: 310 1 GETBASE.N 126: 153 '1 127: 344 LOGOR2 130: 315 0 PUTBASE.N 132: 277 POP 133: 113 PVAR [pvar3] 134: 152 '0 135: 315 0 PUTBASE.N 137: 277 POP 140: 113 PVAR [pvar3] 141: 140 1 322 GVAR \HTCOLL 144: 310 0 GETBASE.N 146: 315 1 PUTBASE.N 150: 277 POP 151: 140 1 322 GVAR \HTCOLL 154: 113 PVAR [pvar3] 155: 323 LOLOC 156: 315 0 PUTBASE.N 160: 277 POP 161: 140 1 322 GVAR \HTCOLL 164: 111 PVAR [pvar1] 165: 310 0 GETBASE.N 167: 156 377 376 SICX 65534 172: 345 LOGAND2 173: 320 ADDBASE 174: 133 PVAR← [pvar3] 175: 310 1 GETBASE.N 177: 152 '0 200: 360 EQ 201: 262 37 FJUMPX-> 240 203: 111 PVAR [pvar1] 204: 113 PVAR [pvar3] 205: 310 0 GETBASE.N 207: 315 0 PUTBASE.N 211: 277 POP 212: 113 PVAR [pvar3] 213: 152 '0 214: 315 0 PUTBASE.N 216: 277 POP 217: 113 PVAR [pvar3] 220: 140 1 322 GVAR \HTCOLL 223: 310 0 GETBASE.N 225: 315 1 PUTBASE.N 227: 277 POP 230: 140 1 322 GVAR \HTCOLL 233: 113 PVAR [pvar3] 234: 323 LOLOC 235: 315 0 PUTBASE.N 237: 277 POP 240: 112 PVAR [pvar2] 241: 172 RECLAIMCELL 242: 132 PVAR← [pvar2] 243: 265 20 NTJUMPX-> 263 245: 111 PVAR [pvar1] 246: 144 COPY 247: 310 0 GETBASE.N 251: 152 '0 252: 360 EQ 253: 242 TJUMP-> 257 254: 261 377 175 JUMPXX-> 51 257: 277 POP 260: 261 377 156 JUMPXX-> 36 263: 25 0 GCREF 265: 260 352 JUMPX-> 237 267: 113 PVAR [pvar3] 270: 310 1 GETBASE.N 272: 315 1 PUTBASE.N 274: 260 236 JUMPX-> 132 276: 134 PVAR← [pvar4] 277: 310 1 GETBASE.N 301: 133 PVAR← [pvar3] 302: 152 '0 303: 360 EQ 304: 222 FJUMP-> 310 305: 261 377 131 JUMPXX-> 36 310: 140 1 322 GVAR \HTCOLL 313: 113 PVAR [pvar3] 314: 261 377 162 JUMPXX-> 76 317: 111 PVAR [pvar1] 320: 312 0 6 GETBITS.N.FD 323: 152 '0 324: 360 EQ 325: 242 TJUMP-> 331 326: 261 377 110 JUMPXX-> 36 331: 111 PVAR [pvar1] 332: 312 0 167 GETBITS.N.FD 335: 110 PVAR [pvar0] 336: 340 LLSH1 337: 321 VAG2 340: 272 PVAR←↑ [pvar2] 341: 111 PVAR [pvar1] 342: 152 '0 343: 315 0 PUTBASE.N 345: 277 POP 346: 112 PVAR [pvar2] 347: 172 RECLAIMCELL 350: 132 PVAR← [pvar2] 351: 242 TJUMP-> 355 352: 261 377 64 JUMPXX-> 36 355: 112 PVAR [pvar2] 356: 25 0 GCREF 360: 260 365 JUMPX-> 345 362: 0 -X- NIL 62←REDO 15 ILLEGAL ARG NIL 63←REDO 16 1961 64←REDO 14 1958 65←REDO 15 \DOGC1 66←REDO 38 stkmin: 54 na: 0 pv: -1 startpc: 30 argtype: 0 framename: \DOGC1 ntsize: 0 nlocals: 0 0: 54 2: 0 4: 177777 6: 30 10: 0 12: 3646 14: 0 16: 0 ---- 30: 10 7 247 FN0 \GCSCANSTACK 33: 10 5 366 FN0 \GCMAPSCAN 36: 10 5 367 FN0 \GCMAPUNSCAN 41: 147 7 250 ACONST map 44: 20 RETURN 45: 0 -X- NIL 67←REDO 16 1961 68←REDO 17 \DOGC 69←REDO 38 stkmin: 54 na: 0 pv: -1 startpc: 30 argtype: 0 framename: \DOGC ntsize: 0 nlocals: 0 0: 54 2: 0 4: 177777 6: 30 10: 0 12: 3651 14: 0 16: 0 ---- 30: 10 7 246 FN0 \DOGC1 33: 277 POP 34: 154 5 SIC 5 36: 176 CONTEXTSWITCH 37: 277 POP 40: 260 370 JUMPX-> 30 42: 0 -X- NIL 70←REDO 18 980 71←REDO 19 \DORECLAIM 72←REDO 38 stkmin: 60 na: 0 pv: 0 startpc: 40 argtype: 0 framename: \DORECLAIM ntsize: 4 nlocals: 2 0: 60 2: 0 4: 0 6: 40 10: 0 12: 1724 14: 4 16: 1000 name table: 20: 1226 30: 100000 PVAR 0: \INTERRUPTABLE 22: 0 32: 0 24: 0 34: 0 26: 0 36: 0 ---- 40: 156 377 370 SICX 65528 43: 140 1 322 GVAR \HTCOLL 46: 310 1 GETBASE.N 50: 361 IGREATERP 51: 264 76 NFJUMPX-> 147 53: 21 40 1 BIND ; \INTERRUPTABLE [pvar1] 56: 150 'NIL 57: 27 3 325 GVAR← \RECLAIM.COUNTDOWN 62: 154 2 SIC 2 64: 140 6 4 GVAR \GCTIME1 67: 12 5 333 FN2 CLOCK 72: 271 PVAR←↑ [pvar1] 73: 140 6 3 GVAR GCMESS 76: 223 FJUMP-> 103 77: 10 6 0 FN0 FLIPCURSOR 102: 277 POP 103: 154 5 SIC 5 105: 176 CONTEXTSWITCH 106: 277 POP 107: 140 6 3 GVAR GCMESS 112: 223 FJUMP-> 117 113: 10 6 0 FN0 FLIPCURSOR 116: 277 POP 117: 140 1 272 GVAR \MISCSTATS 122: 154 20 SIC 16 124: 320 ADDBASE 125: 154 2 SIC 2 127: 140 6 2 GVAR \GCTIME2 132: 12 5 333 FN2 CLOCK 135: 111 PVAR [pvar1] 136: 367 BOXIDIFFERENCE 137: 366 BOXIPLUS 140: 277 POP 141: 140 6 1 GVAR \RECLAIMMIN 144: 27 3 325 GVAR← \RECLAIM.COUNTDOWN 147: 20 RETURN 150: 0 -X- NIL 73← REDO 18 980 74←REDO 19 \DORECLAIM 75←REDO 38 stkmin: 60 na: 0 pv: 0 startpc: 40 argtype: 0 framename: \DORECLAIM ntsize: 4 nlocals: 2 0: 60 2: 0 4: 0 6: 40 10: 0 12: 1724 14: 4 16: 1000 name table: 20: 1226 30: 100000 PVAR 0: \INTERRUPTABLE 22: 0 32: 0 24: 0 34: 0 26: 0 36: 0 ---- 40: 156 377 370 SICX 65528 43: 140 1 322 GVAR \HTCOLL 46: 310 1 GETBASE.N 50: 361 IGREATERP 51: 264 76 NFJUMPX-> 147 53: 21 40 1 BIND ; \INTERRUPTABLE [pvar1] 56: 150 'NIL 57: 27 3 325 GVAR← \RECLAIM.COUNTDOWN 62: 154 2 SIC 2 64: 140 6 4 GVAR \GCTIME1 67: 12 5 333 FN2 CLOCK 72: 271 PVAR←↑ [pvar1] 73: 140 6 3 GVAR GCMESS 76: 223 FJUMP-> 103 77: 10 6 0 FN0 FLIPCURSOR 102: 277 POP 103: 154 5 SIC 5 105: 176 CONTEXTSWITCH 106: 277 POP 107: 140 6 3 GVAR GCMESS 112: 223 FJUMP-> 117 113: 10 6 0 FN0 FLIPCURSOR 116: 277 POP 117: 140 1 272 GVAR \MISCSTATS 122: 154 20 SIC 16 124: 320 ADDBASE 125: 154 2 SIC 2 127: 140 6 2 GVAR \GCTIME2 132: 12 5 333 FN2 CLOCK 135: 111 PVAR [pvar1] 136: 367 BOXIDIFFERENCE 137: 366 BOXIPLUS 140: 277 POP 141: 140 6 1 GVAR \RECLAIMMIN 144: 27 3 325 GVAR← \RECLAIM.COUNTDOWN 147: 20 RETURN 150: 0 -X- NIL 76←REDO 20 1535 77←REDO 21 RECLAIM 78←REDO 38 stkmin: 54 na: 0 pv: -1 startpc: 30 argtype: 0 framename: RECLAIM ntsize: 0 nlocals: 0 0: 54 2: 0 4: 177777 6: 30 10: 0 12: 2777 14: 0 16: 0 ---- 30: 10 3 324 FN0 \DORECLAIM 33: 152 '0 34: 20 RETURN 35: 0 -X- NIL 79← NIL 79←REDO 22 473 80←REDO 23 3681 81←REDO 38 3681 not compiled code 82←REDO 23 3681 83←REDO 24 \ALLOCATE.ETHERPACKET 84←REDO 38 stkmin: 60 na: 0 pv: 0 startpc: 40 argtype: 0 framename: \ALLOCATE.ETHERPACKET ntsize: 4 nlocals: 1 0: 60 2: 0 4: 0 6: 40 10: 0 12: 7141 14: 4 16: 411 name table: 20: 7137 30: 100000 PVAR 0: PACKET 22: 7140 32: 140001 FVAR 1: \NEWPACKETCOUNTER 24: 0 34: 0 26: 0 36: 0 ---- 40: 140 16 143 GVAR \FREE.PACKET.QUEUE 43: 11 16 132 FN1 \DEQUEUE 46: 21 1 0 BIND PACKET; 51: 110 PVAR PACKET 52: 265 30 NTJUMPX-> 102 54: 152 '0 55: 121 FVAR \NEWPACKETCOUNTER 56: 153 '1 57: 331 IDIFFERENCE 60: 143 2 FVARX← \NEWPACKETCOUNTER 62: 361 IGREATERP 63: 230 FJUMP-> 75 64: 10 5 377 FN0 RECLAIM 67: 277 POP 70: 154 5 SIC 5 72: 143 2 FVARX← \NEWPACKETCOUNTER 74: 277 POP 75: 140 16 142 GVAR ETHERPACKETTYPE# 100: 37 CREATECELL 101: 20 RETURN 102: 154 36 SIC 30 104: 320 ADDBASE 105: 110 PVAR PACKET 106: 154 55 SIC 45 110: 320 ADDBASE 111: 12 2 116 FN2 \ZEROWORDS 114: 110 PVAR PACKET 115: 20 RETURN 116: 0 -X- NIL 85←REDO 25 14101 86←REDO 26 \10MB.STARTDRIVER 87←REDO 38 stkmin: 76 na: 3 pv: 2 startpc: 60 argtype: 0 framename: \10MB.STARTDRIVER ntsize: 10 nlocals: 6 0: 76 2: 3 4: 2 6: 60 10: 0 12: 33425 14: 10 16: 3000 name table: 20: 7137 40: 100005 PVAR 5: PACKET 22: 7245 42: 100004 PVAR 4: IOCB 24: 33426 44: 100001 PVAR 1: IQ 26: 2321 46: 100000 PVAR 0: LEN 30: 33427 50: 2 IVAR 2: MYNSNUMBER 32: 6755 52: 1 IVAR 1: RESTARTFLG 34: 7213 54: 0 IVAR 0: NDB 36: 0 56: 0 ---- 60: 100 IVAR NDB 61: 11 67 34 FN1 \10MB.TURNOFFETHER 64: 10 67 33 FN0 \INIT.ETHER.BUFFER.POOL 67: 247 TJUMP-> 100 70: 157 367 243 230 GCONST "Unable to create buffer pool" 74: 11 2 361 FN1 ERROR 77: 277 POP 100: 100 IVAR NDB 101: 140 16 154 GVAR SYSQUEUETYPE# 104: 37 CREATECELL 105: 24 16 RPLPTR.N 107: 140 16 154 GVAR SYSQUEUETYPE# 112: 37 CREATECELL 113: 27 67 13 GVAR← \10MB.RAWPACKETQ 116: 100 IVAR NDB 117: 150 'NIL 120: 144 COPY 121: 102 IVAR MYNSNUMBER 122: 265 3 NTJUMPX-> 125 124: 151 'T 125: 152 '0 126: 144 COPY 127: 15 6 67 32 FNX(6) \10MB.TURNONETHER 133: 152 '0 134: 100 IVAR NDB 135: 6 16 213 DTEST NDB 140: 311 14 GETBASEPTR.N 142: 21 2 1 BIND LEN IQ; 145: 111 PVAR IQ 146: 233 FJUMP-> 163 147: 100 IVAR NDB 150: 111 PVAR IQ 151: 6 16 131 DTEST SYSQUEUE 154: 311 0 GETBASEPTR.N 156: 12 67 31 FN2 \10MB.LOADINPUTQ 161: 130 PVAR← LEN 162: 207 JUMP-> 173 163: 100 IVAR NDB 164: 140 16 154 GVAR SYSQUEUETYPE# 167: 37 CREATECELL 170: 131 PVAR← IQ 171: 24 14 RPLPTR.N 173: 277 POP 174: 140 67 36 GVAR \10MB.IDEAL.INPUT.LENGTH 177: 110 PVAR LEN 200: 331 IDIFFERENCE 201: 21 61 5 BIND [pvar2]; [pvar3] IOCB PACKET 204: 153 '1 205: 133 PVAR← [pvar3] 206: 112 PVAR [pvar2] 207: 361 IGREATERP 210: 263 70 TJUMPX-> 300 212: 147 4 3 ACONST INPUT 215: 11 67 20 FN1 \GET.IOCB 220: 134 PVAR← IOCB 221: 262 57 FJUMPX-> 300 223: 10 16 141 FN0 \ALLOCATE.ETHERPACKET 226: 135 PVAR← PACKET 227: 154 2 SIC 2 231: 12 2 253 FN2 \TEMPLOCKPAGES 234: 277 POP 235: 115 PVAR PACKET 236: 114 PVAR IOCB 237: 24 12 RPLPTR.N 241: 277 POP 242: 100 IVAR NDB 243: 114 PVAR IOCB 244: 115 PVAR PACKET 245: 154 26 SIC 22 247: 320 ADDBASE 250: 153 '1 251: 320 ADDBASE 252: 140 67 35 GVAR \10MBPACKETLENGTH 255: 14 67 30 FN4 \QUEUE.INPUT.IOCB 260: 277 POP 261: 111 PVAR IQ 262: 115 PVAR PACKET 263: 12 16 130 FN2 \ENQUEUE 266: 277 POP 267: 110 PVAR LEN 270: 153 '1 271: 330 IPLUS2 272: 270 PVAR←↑ LEN 273: 113 PVAR [pvar3] 274: 153 '1 275: 330 IPLUS2 276: 260 307 JUMPX-> 205 300: 23 DUNBIND 301: 100 IVAR NDB 302: 110 PVAR LEN 303: 317 12 7 PUTBITS.N.FD 306: 100 IVAR NDB 307: 147 67 22 ACONST \10MBWATCHER 312: 100 IVAR NDB 313: 144 COPY 314: 262 32 FJUMPX-> 346 316: 144 COPY 317: 151 'T 320: 360 EQ 321: 263 25 TJUMPX-> 346 323: 144 COPY 324: 5 1 TYPEP(SMALLP) 326: 245 TJUMP-> 335 327: 144 COPY 330: 5 2 TYPEP(\FIXP) 332: 241 TJUMP-> 335 333: 5 3 TYPEP(FLOATP) 335: 265 11 NTJUMPX-> 346 337: 147 6 46 ACONST QUOTE 342: 100 IVAR NDB 343: 150 'NIL 344: 32 CONS 345: 32 CONS 346: 150 'NIL 347: 32 CONS 350: 32 CONS 351: 147 15 164 ACONST RESTARTABLE 354: 147 15 167 ACONST SYSTEM 357: 147 15 223 ACONST AFTEREXIT 362: 147 16 1 ACONST DELETE 365: 15 5 15 157 FNX(5) ADD.PROCESS 371: 24 24 RPLPTR.N 373: 100 IVAR NDB 374: 20 RETURN 375: 0 -X- NIL 88← NIL 88←REDO 8 UNDEFINED FUNCTION RED0 89←REDO 9 \LISPERROR 90←REDO 10 333 91←REDO 11 \ADDBASE 92←REDO 12 1526 93←REDO 13 \GCMAPSCAN 94←REDO 38 stkmin: 70 na: 0 pv: 2 startpc: 30 argtype: 0 framename: \GCMAPSCAN ntsize: 0 nlocals: 5 0: 70 2: 0 4: 2 6: 30 10: 0 12: 2766 14: 0 16: 2400 ---- 30: 156 200 0 SICX 32768 33: 21 101 4 BIND [pvar0]; [pvar1] [pvar2] [pvar3] [ pvar4] 36: 140 1 316 GVAR \HTMAIN 41: 110 PVAR [pvar0] 42: 173 GCSCAN1 43: 144 COPY 44: 240 TJUMP-> 46 45: 20 RETURN 46: 130 PVAR← [pvar0] 47: 320 ADDBASE 50: 131 PVAR← [pvar1] 51: 312 0 360 GETBITS.N.FD 54: 152 '0 55: 360 EQ 56: 222 FJUMP-> 62 57: 261 0 240 JUMPXX-> 317 62: 150 'NIL 63: 274 PVAR←↑ [pvar4] 64: 140 1 322 GVAR \HTCOLL 67: 111 PVAR [pvar1] 70: 310 0 GETBASE.N 72: 156 377 376 SICX 65534 75: 345 LOGAND2 76: 320 ADDBASE 77: 133 PVAR← [pvar3] 100: 144 COPY 101: 312 0 6 GETBITS.N.FD 104: 152 '0 105: 360 EQ 106: 262 170 FJUMPX-> 276 110: 312 0 167 GETBITS.N.FD 113: 110 PVAR [pvar0] 114: 340 LLSH1 115: 321 VAG2 116: 272 PVAR←↑ [pvar2] 117: 114 PVAR [pvar4] 120: 265 147 NTJUMPX-> 267 122: 111 PVAR [pvar1] 123: 113 PVAR [pvar3] 124: 310 1 GETBASE.N 126: 153 '1 127: 344 LOGOR2 130: 315 0 PUTBASE.N 132: 277 POP 133: 113 PVAR [pvar3] 134: 152 '0 135: 315 0 PUTBASE.N 137: 277 POP 140: 113 PVAR [pvar3] 141: 140 1 322 GVAR \HTCOLL 144: 310 0 GETBASE.N 146: 315 1 PUTBASE.N 150: 277 POP 151: 140 1 322 GVAR \HTCOLL 154: 113 PVAR [pvar3] 155: 323 LOLOC 156: 315 0 PUTBASE.N 160: 277 POP 161: 140 1 322 GVAR \HTCOLL 164: 111 PVAR [pvar1] 165: 310 0 GETBASE.N 167: 156 377 376 SICX 65534 172: 345 LOGAND2 173: 320 ADDBASE 174: 133 PVAR← [pvar3] 175: 310 1 GETBASE.N 177: 152 '0 200: 360 EQ 201: 262 37 FJUMPX-> 240 203: 111 PVAR [pvar1] 204: 113 PVAR [pvar3] 205: 310 0 GETBASE.N 207: 315 0 PUTBASE.N 211: 277 POP 212: 113 PVAR [pvar3] 213: 152 '0 214: 315 0 PUTBASE.N 216: 277 POP 217: 113 PVAR [pvar3] 220: 140 1 322 GVAR \HTCOLL 223: 310 0 GETBASE.N 225: 315 1 PUTBASE.N 227: 277 POP 230: 140 1 322 GVAR \HTCOLL 233: 113 PVAR [pvar3] 234: 323 LOLOC 235: 315 0 PUTBASE.N 237: 277 POP 240: 112 PVAR [pvar2] 241: 172 RECLAIMCELL 242: 132 PVAR← [pvar2] 243: 265 20 NTJUMPX-> 263 245: 111 PVAR [pvar1] 246: 144 COPY 247: 310 0 GETBASE.N 251: 152 '0 252: 360 EQ 253: 242 TJUMP-> 257 254: 261 377 175 JUMPXX-> 51 257: 277 POP 260: 261 377 156 JUMPXX-> 36 263: 25 0 GCREF 265: 260 352 JUMPX-> 237 267: 113 PVAR [pvar3] 270: 310 1 GETBASE.N 272: 315 1 PUTBASE.N 274: 260 236 JUMPX-> 132 276: 134 PVAR← [pvar4] 277: 310 1 GETBASE.N 301: 133 PVAR← [pvar3] 302: 152 '0 303: 360 EQ 304: 222 FJUMP-> 310 305: 261 377 131 JUMPXX-> 36 310: 140 1 322 GVAR \HTCOLL 313: 113 PVAR [pvar3] 314: 261 377 162 JUMPXX-> 76 317: 111 PVAR [pvar1] 320: 312 0 6 GETBITS.N.FD 323: 152 '0 324: 360 EQ 325: 242 TJUMP-> 331 326: 261 377 110 JUMPXX-> 36 331: 111 PVAR [pvar1] 332: 312 0 167 GETBITS.N.FD 335: 110 PVAR [pvar0] 336: 340 LLSH1 337: 321 VAG2 340: 272 PVAR←↑ [pvar2] 341: 111 PVAR [pvar1] 342: 152 '0 343: 315 0 PUTBASE.N 345: 277 POP 346: 112 PVAR [pvar2] 347: 172 RECLAIMCELL 350: 132 PVAR← [pvar2] 351: 242 TJUMP-> 355 352: 261 377 64 JUMPXX-> 36 355: 112 PVAR [pvar2] 356: 25 0 GCREF 360: 260 365 JUMPX-> 345 362: 0 -X- NIL 95←REDO 6 117 96←REDO 7 901 97←REDO 8 UNDEFINED FUNCTION RED0 98←REDO 9 \LISPERROR 99←REDO 38 stkmin: 66 na: 3 pv: 0 startpc: 60 argtype: 0 framename: \LISPERROR ntsize: 4 nlocals: 0 0: 66 2: 3 4: 0 6: 60 10: 0 12: 1605 14: 4 16: 10 name table: 20: 1226 30: 140000 FVAR 0: \INTERRUPTABLE 22: 0 32: 0 24: 0 34: 0 26: 0 36: 0 Local args: 40: 6120 50: 2 IVAR 2: CONTINUEOKFLG 42: 106 52: 1 IVAR 1: N 44: 120 54: 0 IVAR 0: X 46: 0 56: 0 ---- 60: 101 IVAR N 61: 154 5 SIC 5 63: 360 EQ 64: 244 TJUMP-> 72 65: 101 IVAR N 66: 154 26 SIC 22 70: 360 EQ 71: 224 FJUMP-> 77 72: 100 IVAR X 73: 11 13 311 FN1 \STOP.DRIBBLE? 76: 277 POP 77: 120 FVAR \INTERRUPTABLE 100: 252 TJUMP-> 114 101: 154 22 SIC 18 103: 157 371 336 334 GCONST "Error in uninterruptable system code -- ↑N to continue into error handler" 107: 100 IVAR X 110: 13 2 25 FN3 \MP.ERROR 113: 277 POP 114: 101 IVAR N 115: 144 COPY 116: 5 1 TYPEP(SMALLP) 120: 227 FJUMP-> 131 121: 100 IVAR X 122: 150 'NIL 123: 32 CONS 124: 32 CONS 125: 11 12 163 FN1 ERRORX 130: 203 JUMP-> 135 131: 100 IVAR X 132: 12 2 361 FN2 ERROR 135: 102 IVAR CONTINUEOKFLG 136: 262 355 FJUMPX-> 113 140: 20 RETURN 141: 0 -X- NIL 100←(PRINTCODE 'ERRORX] stkmin: 56 na: 1 pv: -1 startpc: 40 argtype: 0 framename: ERRORX ntsize: 0 nlocals: 0 0: 56 2: 1 4: 177777 6: 40 10: 0 12: 5163 14: 0 16: 0 Local args: 30: 10747 34: 0 IVAR 0: ERXM 32: 0 36: 0 ---- 40: 100 IVAR ERXM 41: 265 22 NTJUMPX-> 63 43: 10 14 112 FN0 ERRORN 46: 155 377 SNIC -1 50: 147 12 163 ACONST ERRORX 53: 151 'T 54: 13 6 136 FN3 REALSTKNTH 57: 12 47 165 FN2 \HELPDLBLOCK/ERRORX2 62: 20 RETURN 63: 1 CAR 64: 100 IVAR ERXM 65: 2 CDR 66: 1 CAR 67: 12 14 117 FN2 SETERRORN 72: 277 POP 73: 100 IVAR ERXM 74: 260 352 JUMPX-> 46 76: 0 -X- NIL 1←DRIBBLE]