1 !!%EXTERNALROUTINESPEC DDELAY(%INTEGER secs) 2 %externalroutine DDELAY(%integer secs) 503 @ 4405: LINE 2 "regression-compile-tmp/haunt.imp" 504 @ 4441: DEF DDELAY (_DDELAY) p1=V_0081 a/tf=7 b/format=0 c/ostate=23 type=0 () form=7 (routine) special=0 () linkage=3 (external) spec=0 indirect=0 unass=1 505 @ 4459: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 506 @ 4460: DEF SECS p1=V_0082 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 507 @ 4476: FINISH ) {lev=1} 3 %systemroutinespec SLEEP %alias "sleep"(%integer secs) 508 @ 4477: LINE 3 "regression-compile-tmp/haunt.imp" 509 @ 4513: ALIAS "sleep" 510 @ 4520: DEF SLEEP (_DDELAY_SLEEP) p1=V_0083 a/tf=7 b/format=0 c/ostate=2c type=0 () form=7 (routine) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 511 @ 4537: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 512 @ 4538: DEF SECS p1=V_0084 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 513 @ 4554: FINISH ) {lev=1} 4 SLEEP(secs) 514 @ 4555: LINE 4 "regression-compile-tmp/haunt.imp" 515 @ 4591: PUSH SLEEP 516 @ 4594: PUSH SECS 517 @ 4597: ASSPAR 518 @ 4598: CALL 5 %end 6 7 !!%EXTERNALROUTINESPEC PROMPT(%STRING(15) s) 8 !!%EXTERNALROUTINESPEC NOTIFY(%STRING(255) who what) 9 519 @ 4599: LINE 5 "regression-compile-tmp/haunt.imp" 520 @ 4635: END _DDELAY {lev=1 --> 0} 10 %EXTERNALROUTINE HAUNT(%STRING(255) dummy) 521 @ 4636: LINE 10 "regression-compile-tmp/haunt.imp" 522 @ 4672: DEF HAUNT (_HAUNT) p1=V_0082 a/tf=7 b/format=0 c/ostate=23 type=0 () form=7 (routine) special=0 () linkage=3 (external) spec=0 indirect=0 unass=1 523 @ 4689: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 524 @ 4690: DEF DUMMY p1=V_0083 a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 525 @ 4707: FINISH ) {lev=1} 11 %INTEGERFN REM(%INTEGER NUM,DEN) 526 @ 4708: LINE 11 "regression-compile-tmp/haunt.imp" 527 @ 4744: DEF REM (_HAUNT_REM) p1=V_0084 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 528 @ 4759: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 529 @ 4760: DEF NUM p1=V_0085 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 530 @ 4775: DEF DEN p1=V_0086 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 531 @ 4790: FINISH ) {lev=2} 12 %RESULT=NUM-NUM//DEN*NUM 532 @ 4791: LINE 12 "regression-compile-tmp/haunt.imp" 533 @ 4827: PUSH NUM 534 @ 4830: PUSH NUM 535 @ 4833: PUSH DEN 536 @ 4836: QUOT 537 @ 4837: PUSH NUM 538 @ 4840: MUL 539 @ 4841: SUB 540 @ 4842: RESULT 13 %END 541 @ 4843: LINE 13 "regression-compile-tmp/haunt.imp" 542 @ 4879: END _HAUNT_REM {lev=2 --> 1} 14 %CONST %INTEGER max victims = 10 543 @ 4880: LINE 14 "regression-compile-tmp/haunt.imp" 15 %CONST %INTEGER max messages = 303 544 @ 4916: LINE 15 "regression-compile-tmp/haunt.imp" 16 %CONST %INTEGER minutes = 1 545 @ 4952: LINE 16 "regression-compile-tmp/haunt.imp" 17 %STRING(15) %ARRAY victim(1:max victims) 546 @ 4988: LINE 17 "regression-compile-tmp/haunt.imp" 547 @ 5024: DEF VICTIM p1=V_0085 a/tf=3b b/format=f c/ostate=100 type=3 (string) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 548 @ 5042: PUSHI #0x00000001 549 @ 5047: PUSHI #0x0000000a 550 @ 5052: DIM 0001 0001 18 %INTEGER proc no, num victims, this victim, times, delay, max times 551 @ 5058: LINE 18 "regression-compile-tmp/haunt.imp" 552 @ 5094: DEF PROCNO p1=V_0086 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 553 @ 5112: DEF NUMVICTIMS p1=V_0087 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 554 @ 5134: DEF THISVICTIM p1=V_0088 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 555 @ 5156: DEF TIMES p1=V_0089 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 556 @ 5173: DEF DELAY p1=V_008a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 557 @ 5190: DEF MAXTIMES p1=V_008b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 19 %INTEGER selected 558 @ 5210: LINE 19 "regression-compile-tmp/haunt.imp" 559 @ 5246: DEF SELECTED p1=V_008c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 20 %OWNSTRING(31) blurb 560 @ 5266: LINE 20 "regression-compile-tmp/haunt.imp" 561 @ 5302: DEF BLURB p1=V_008d a/tf=31 b/format=1f c/ostate=21 type=3 (string) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 562 @ 5319: INIT 1 21 %STRING(15) proc name 563 @ 5322: LINE 21 "regression-compile-tmp/haunt.imp" 564 @ 5358: DEF PROCNAME p1=V_008e a/tf=31 b/format=f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 22 delay = 10 565 @ 5378: LINE 22 "regression-compile-tmp/haunt.imp" 566 @ 5414: PUSH DELAY 567 @ 5417: PUSHI #0x0000000a 568 @ 5422: ASSVAL 23 max times = 60 // delay * minutes ;! One minutes worth... 569 @ 5423: LINE 23 "regression-compile-tmp/haunt.imp" 570 @ 5459: PUSH MAXTIMES 571 @ 5462: PUSHI #0x0000003c 572 @ 5467: PUSH DELAY 573 @ 5470: QUOT 574 @ 5471: PUSHI #0x00000001 575 @ 5476: MUL 576 @ 5477: ASSVAL 24 %CONST %STRING(22) %ARRAY message(0:max messages) = %C 25 "We hates Pascal!!!" (8), 26 "Weeble", 27 "SYN SYN SYN NAK", 28 "SYN SYN SYN ACK", 29 "SYN SYN SYN WABT", 30 "(CADDDDDADADADADR X)", 31 "*device timeout", 32 "%CLI-W-INSFPRM", 33 "MAKE 'FRED :JIM", 34 "Hack an Ent today", 35 "**HOST DOWN", 36 "PASCAL: No Thanks", 37 "Supermac is Back.", 38 "Vangelis isn't Dutch", 39 "DTE -> DCE SARM F (B)", 40 "3-space indentation??", 41 "CHR(7) - rings a bell?", 42 "Gimme back my 10p!!", 43 "A Masochist on a diet?", 44 "Turn the tape over..", 45 "Have an index card.", 46 "Device type:", 47 "Its frothy man.", 48 "Quine-McWHO????", 49 "Try chasing the dream.", 50 "Tangram Time!", 51 "Hi there Stan", 52 "Sod ML (attrib [MID])", 53 "HALT INST EXECUTED", 54 "ISYS80 V3.17", 55 "WSLXVANMAT for pres.", 56 "R0 = 00000804", 57 "Symbolic stack dump:", 58 "@173000G", 59 "This must be Thursday?", 60 "What a party...", 61 "Confirmed.", 62 "Right? ... Check!", 63 "$ SET NOCONTROL_Y", 64 "Noohoosferra Burzi??", 65 "Welcome to VAX/VMS v^O", 66 "Mostly Harmless...", 67 "VAX user service resu", 68 "prepare to die", 69 "Ecce Ecce F'tang", 70 "page owner violation", 71 "We wants a shrubbery", 72 "European or African??", 73 "Can I have a synopsys?", 74 "Kohilla Kohilla Splugh", 75 "Conversing...", 76 "%PAS-F-CASSELBOU", 77 "Baroque is Beautiful", 78 "WSLXVANMAT", 79 "**END**", 80 "Heeee-Haw.", 81 "Kirk to Enterprise...", 82 "Zot!", 83 "You must be joking", 84 "[] : *a list", 85 "false : bool", 86 "47 : num", 87 "- : elephant", 88 "[-;-] : butterfly list", 89 "You need more monkeys.", 90 "Have a gorilla..", 91 "Have a chocolate frog.", 92 "->@putslice(1:0,fred)", 93 "POSITIVE shields!!!", 94 "WHAT WHAT WHAT WHAT??", 95 "what what What WHAT??", 96 "addr(253)", 97 "* Form |", 98 "SWITCH,SWITCH,SWITCH", 99 "TICK,TICK,TICK,TICK", 100 "string(addr(p_p1))=""""", 101 "Failure: m0", 102 "Mind if I smoke?", 103 "External missing", 104 "Int:.", 105 "BDBDBD Hi there, Buck.", 106 "0000 *a*", 107 "0 files", 108 "Hi there, Steve.", 109 "Cif:", 110 "Weebles wobble.", 111 "Stopped.", 112 "You Have Mail.", 113 "Play it again, Sam.", 114 "Play it again, Sid.", 115 "You have been Warned.", 116 ">%c", 117 ">(l0(f1/!/l40\f/!/)0)0", 118 "Apologies accepted.", 119 "Push the button, Max.", 120 "Try Oiling it.", 121 "Caimbridge, caimbridge", 122 "Dont Panic. Dont Panic", 123 "Coffee time...", 124 "Time to feed the alien", 125 "Complexity = O(nlog(n)", 126 "Disk reversal error.", 127 "PDS is on the bridge", 128 "PSR has been and gone", 129 "We'd better call Stan.", 130 "Sid is innocent!", 131 "Oh no, not again.", 132 "Beep-beep.", 133 "Page Page Page", 134 "Swap Swap Swap", 135 "Oh, Good grief", 136 "Get the Purple One", 137 "Put it in the curry", 138 "Rooner Spools OK", 139 "Slide rules OK", 140 "Dyslexia rules KO", 141 "Queen rules UK", 142 "Apathy might rule OK", 143 "Cannot open input.", 144 "%SYSTEM-F-ABORT,abort", 145 "NO.", 146 "Phasers locked on.", 147 "Shields are now dead.", 148 "*indentation |", 149 "No more room in cube", 150 "Filename:", 151 "Invalid Password.", 152 "SET [ DEAD ]", 153 "SET [ **EOT** ]", 154 "My brain hurts", 155 "*T .BG;CA", 156 "Reel..Zot..Clamp", 157 "Trund!!", 158 "Beware of the Trund", 159 "Illegal opcode", 160 "Dont even Bother", 161 "WET PAINT", 162 "** CONSOLE FAILURE", 163 "** OUTPUT LOST", 164 "Are you sure ?", 165 "Delete?", 166 "** Too many externals", 167 "Host:v", 168 "Number 149", 169 "Rivet. Rivet.", 170 "Try typing ", 171 "Type Q to quit", 172 "SYN SYN SYN RABBIT", 173 "%diagnose 2<<14+255", 174 "//EXEC FORT", 175 "Beam me up, Scotty!!", 176 "Glad to be of service.", 177 "Tap out the code....", 178 "Wretched, isn't it?", 179 "MCR>PIP *.*;*/DE", 180 "X.IMP deleted", 181 "...a collum matrix...", 182 "PHUT-THINK-CLICK", 183 "%endofprogramme", 184 "1 statements compiled", 185 "Coojagoa Burzi??", 186 "I/O Silver.", 187 "OKOKOKKO @", 188 ".LT1 *A*", 189 "Hello lift", 190 ".KJOB", 191 "your days are numbered", 192 "** CRASH IMMINENT", 193 "Wargle Wargle", 194 "57 varieties", 195 "_OPA0: ""Backup", 196 "Regardez, gentlemen..", 197 "What, pray tell??", 198 "So what, Mark?", 199 "Fiddle-de-dee", 200 "42", 201 "Forty-Two", 202 "42=7*9", 203 "RND(X) = 17 for all X", 204 "xxx~~~//][()?", 205 "Live long and prosper", 206 "Pass your maths, guyyz", 207 "Space, it says, is BIG", 208 "We've got you covered", 209 "NEGATIVE shields.", 210 ">M-*k*;%c", 211 "Chewbacca is cuddly", 212 "Apathetic bloddy panic", 213 "Metaphysical Imagery..", 214 "I'm running out of Ink", 215 "BNAG!!!!!", 216 "HNAG!!!!!", 217 "Fs link HNUG?", 218 "CODE+GLAP+DIAGS=0", 219 "** corrupt diags", 220 "** diagnostics looping", 221 "**execution error:ille", 222 "** Segment error", 223 "LIB - *FATAL*", 224 "Edwin error 14.", 225 "[0 XACTIONS AFFECTED]", 226 "I am lying.", 227 "Coruscate, coruscate", 228 "Geezanarra DECtape", 229 ".(", 230 "Type YES to continue", 231 "SAY ""XYZZY""", 232 "SAY ""PLUGH""", 233 "Clams got arms!", 234 "Clams got livers!", 235 "*CRASH*", 236 "FRED OBJ not on DT2", 237 "Alarm set for 08:00", 238 "The Bells....", 239 "*** Spelling errur", 240 "* Processor head crash", 241 "mouldy breadboard err", 242 "sliced breadboard err", 243 "greasy chip error", 244 "Resistance is Useless!", 245 "Production rules OK", 246 "ZZZZZZZZZZzzzzzzzz....", 247 "Merde alors", 248 "Foute-moi le camp!", 249 "Scheiss ab!", 250 "Va t'en faire baiser", 251 "Pisse-toi, salaud!", 252 "`X' (attrib Schulze)", 253 "----------------------", 254 "PASCAL is good AS CLAP", 255 "Zaphod's just zis guy.", 256 "Dis is vot ve find....", 257 ".BLISS is ignorance", 258 "Pickle a squirrel", 259 "Eat a beaver", 260 "We hates it...", 261 "Ian was here", 262 "TANSTAAFL", 263 "Elbereth", 264 "Haunting you is fun...", 265 "You need another quote", 266 "EEEEXXXXXcellent !!", 267 "HAUNT HAUNT !!", 268 "TJ's for BMs OK!", 269 "Sauron Lives", 270 "Zap a Balrog - TODAY", 271 "Its a FEATURE!!!", 272 "I shall return...", 273 "Let us pray", 274 "%MOUSES-I-HI_THERE", 275 "Ho, Hummmmmm", 276 "Have a nasty day!", 277 "I WANNA COOKIE!!!", 278 "Share and enjoy", 279 "P_dsno = P_ssno+17", 280 "Suicide is painless", 281 "Laura rules!", 282 "Polly wants a biscuit", 283 "It's the rugby club", 284 "Time for moussaka", 285 "%SLART-E-BARFAAST", 286 "I'm a FORTRAN man!!!", 287 "Nibble a happy warthog", 288 "T. Dream time!!", 289 "Ve are ze robots!!", 290 "yojne dna erahS", 291 "FrreeeyyyOOOWWWW!!!", 292 "Structured BASIC ????", 293 "%Rms-e-korsakoff", 294 "NOPR-ERR", 295 "Clams got legs!!!", 296 "Wheeeeeeeeeeeee!!", 297 "EM Char in stmt", 298 "Mouses rules OK", 299 "IMP yourself today", 300 "Hi there", 301 "Yummmmmmmmm", 302 "Mouses rules OK", 303 "Have a nice day!", 304 "Friend or foe???", 305 "EMAS is great (honest)", 306 "%MTHLIB-E-FLOOVEMAT", 307 "Another silly message", 308 "As you wish, so be it.", 309 "You may call me Mazda.", 310 "Groovy, man.", 311 "%control K'101011'", 312 "PROCESS RUNNING", 313 "movl #^xDEAD, r0", 314 "movl #^xB00B, r0", 315 "Filestore down til 11", 316 "Error: ';' expected", 317 "Another layer of metal", 318 "You have mail from SM", 319 "TEXT FOR F?", 320 "AV nowhere to be found", 321 "BDKH:BAD SEGMENT" 577 @ 5478: LINE 24 "regression-compile-tmp/haunt.imp" 578 @ 5514: PUSHI #0x00000000 579 @ 5519: PUSHI #0x0000012f 580 @ 5524: BOUNDS 581 @ 5525: DEF MESSAGE p1=V_008f a/tf=3b b/format=16 c/ostate=112 type=3 (string) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 582 @ 5544: PUSHS "We hates Pascal!!!" 583 @ 5564: INIT 8 584 @ 5567: PUSHS "Weeble" 585 @ 5575: INIT 1 586 @ 5578: PUSHS "SYN SYN SYN NAK" 587 @ 5595: INIT 1 588 @ 5598: PUSHS "SYN SYN SYN ACK" 589 @ 5615: INIT 1 590 @ 5618: PUSHS "SYN SYN SYN WABT" 591 @ 5636: INIT 1 592 @ 5639: PUSHS "(CADDDDDADADADADR X)" 593 @ 5661: INIT 1 594 @ 5664: PUSHS "*device timeout" 595 @ 5681: INIT 1 596 @ 5684: PUSHS "%CLI-W-INSFPRM" 597 @ 5700: INIT 1 598 @ 5703: PUSHS "MAKE 'FRED :JIM" 599 @ 5720: INIT 1 600 @ 5723: PUSHS "Hack an Ent today" 601 @ 5742: INIT 1 602 @ 5745: PUSHS "**HOST DOWN" 603 @ 5758: INIT 1 604 @ 5761: PUSHS "PASCAL: No Thanks" 605 @ 5780: INIT 1 606 @ 5783: PUSHS "Supermac is Back." 607 @ 5802: INIT 1 608 @ 5805: PUSHS "Vangelis isn't Dutch" 609 @ 5827: INIT 1 610 @ 5830: PUSHS "DTE -> DCE SARM F (B)" 611 @ 5853: INIT 1 612 @ 5856: PUSHS "3-space indentation??" 613 @ 5879: INIT 1 614 @ 5882: PUSHS "CHR(7) - rings a bell?" 615 @ 5906: INIT 1 616 @ 5909: PUSHS "Gimme back my 10p!!" 617 @ 5930: INIT 1 618 @ 5933: PUSHS "A Masochist on a diet?" 619 @ 5957: INIT 1 620 @ 5960: PUSHS "Turn the tape over.." 621 @ 5982: INIT 1 622 @ 5985: PUSHS "Have an index card." 623 @ 6006: INIT 1 624 @ 6009: PUSHS "Device type:" 625 @ 6023: INIT 1 626 @ 6026: PUSHS "Its frothy man." 627 @ 6043: INIT 1 628 @ 6046: PUSHS "Quine-McWHO????" 629 @ 6063: INIT 1 630 @ 6066: PUSHS "Try chasing the dream." 631 @ 6090: INIT 1 632 @ 6093: PUSHS "Tangram Time!" 633 @ 6108: INIT 1 634 @ 6111: PUSHS "Hi there Stan" 635 @ 6126: INIT 1 636 @ 6129: PUSHS "Sod ML (attrib [MID])" 637 @ 6152: INIT 1 638 @ 6155: PUSHS "HALT INST EXECUTED" 639 @ 6175: INIT 1 640 @ 6178: PUSHS "ISYS80 V3.17" 641 @ 6192: INIT 1 642 @ 6195: PUSHS "WSLXVANMAT for pres." 643 @ 6217: INIT 1 644 @ 6220: PUSHS "R0 = 00000804" 645 @ 6235: INIT 1 646 @ 6238: PUSHS "Symbolic stack dump:" 647 @ 6260: INIT 1 648 @ 6263: PUSHS "@173000G" 649 @ 6273: INIT 1 650 @ 6276: PUSHS "This must be Thursday?" 651 @ 6300: INIT 1 652 @ 6303: PUSHS "What a party..." 653 @ 6320: INIT 1 654 @ 6323: PUSHS "Confirmed." 655 @ 6335: INIT 1 656 @ 6338: PUSHS "Right? ... Check!" 657 @ 6357: INIT 1 658 @ 6360: PUSHS "$ SET NOCONTROL_Y" 659 @ 6379: INIT 1 660 @ 6382: PUSHS "Noohoosferra Burzi??" 661 @ 6404: INIT 1 662 @ 6407: PUSHS "Welcome to VAX/VMS v^O" 663 @ 6431: INIT 1 664 @ 6434: PUSHS "Mostly Harmless..." 665 @ 6454: INIT 1 666 @ 6457: PUSHS "VAX user service resu" 667 @ 6480: INIT 1 668 @ 6483: PUSHS "prepare to die" 669 @ 6499: INIT 1 670 @ 6502: PUSHS "Ecce Ecce F'tang" 671 @ 6520: INIT 1 672 @ 6523: PUSHS "page owner violation" 673 @ 6545: INIT 1 674 @ 6548: PUSHS "We wants a shrubbery" 675 @ 6570: INIT 1 676 @ 6573: PUSHS "European or African??" 677 @ 6596: INIT 1 678 @ 6599: PUSHS "Can I have a synopsys?" 679 @ 6623: INIT 1 680 @ 6626: PUSHS "Kohilla Kohilla Splugh" 681 @ 6650: INIT 1 682 @ 6653: PUSHS "Conversing..." 683 @ 6668: INIT 1 684 @ 6671: PUSHS "%PAS-F-CASSELBOU" 685 @ 6689: INIT 1 686 @ 6692: PUSHS "Baroque is Beautiful" 687 @ 6714: INIT 1 688 @ 6717: PUSHS "WSLXVANMAT" 689 @ 6729: INIT 1 690 @ 6732: PUSHS "**END**" 691 @ 6741: INIT 1 692 @ 6744: PUSHS "Heeee-Haw." 693 @ 6756: INIT 1 694 @ 6759: PUSHS "Kirk to Enterprise..." 695 @ 6782: INIT 1 696 @ 6785: PUSHS "Zot!" 697 @ 6791: INIT 1 698 @ 6794: PUSHS "You must be joking" 699 @ 6814: INIT 1 700 @ 6817: PUSHS "[] : *a list" 701 @ 6831: INIT 1 702 @ 6834: PUSHS "false : bool" 703 @ 6848: INIT 1 704 @ 6851: PUSHS "47 : num" 705 @ 6861: INIT 1 706 @ 6864: PUSHS "- : elephant" 707 @ 6878: INIT 1 708 @ 6881: PUSHS "[-;-] : butterfly list" 709 @ 6905: INIT 1 710 @ 6908: PUSHS "You need more monkeys." 711 @ 6932: INIT 1 712 @ 6935: PUSHS "Have a gorilla.." 713 @ 6953: INIT 1 714 @ 6956: PUSHS "Have a chocolate frog." 715 @ 6980: INIT 1 716 @ 6983: PUSHS "->@putslice(1:0,fred)" 717 @ 7006: INIT 1 718 @ 7009: PUSHS "POSITIVE shields!!!" 719 @ 7030: INIT 1 720 @ 7033: PUSHS "WHAT WHAT WHAT WHAT??" 721 @ 7056: INIT 1 722 @ 7059: PUSHS "what what What WHAT??" 723 @ 7082: INIT 1 724 @ 7085: PUSHS "addr(253)" 725 @ 7096: INIT 1 726 @ 7099: PUSHS "* Form |" 727 @ 7118: INIT 1 728 @ 7121: PUSHS "SWITCH,SWITCH,SWITCH" 729 @ 7143: INIT 1 730 @ 7146: PUSHS "TICK,TICK,TICK,TICK" 731 @ 7167: INIT 1 732 @ 7170: PUSHS "string(addr(p_p1))=\"\"" 733 @ 7193: INIT 1 734 @ 7196: PUSHS "Failure: m0" 735 @ 7209: INIT 1 736 @ 7212: PUSHS "Mind if I smoke?" 737 @ 7230: INIT 1 738 @ 7233: PUSHS "External missing" 739 @ 7251: INIT 1 740 @ 7254: PUSHS "Int:." 741 @ 7261: INIT 1 742 @ 7264: PUSHS "BDBDBD Hi there, Buck." 743 @ 7288: INIT 1 744 @ 7291: PUSHS "0000 *a*" 745 @ 7301: INIT 1 746 @ 7304: PUSHS "0 files" 747 @ 7313: INIT 1 748 @ 7316: PUSHS "Hi there, Steve." 749 @ 7334: INIT 1 750 @ 7337: PUSHS "Cif:" 751 @ 7343: INIT 1 752 @ 7346: PUSHS "Weebles wobble." 753 @ 7363: INIT 1 754 @ 7366: PUSHS "Stopped." 755 @ 7376: INIT 1 756 @ 7379: PUSHS "You Have Mail." 757 @ 7395: INIT 1 758 @ 7398: PUSHS "Play it again, Sam." 759 @ 7419: INIT 1 760 @ 7422: PUSHS "Play it again, Sid." 761 @ 7443: INIT 1 762 @ 7446: PUSHS "You have been Warned." 763 @ 7469: INIT 1 764 @ 7472: PUSHS ">%c" 765 @ 7477: INIT 1 766 @ 7480: PUSHS ">(l0(f1/!/l40\f/!/)0)0" 767 @ 7504: INIT 1 768 @ 7507: PUSHS "Apologies accepted." 769 @ 7528: INIT 1 770 @ 7531: PUSHS "Push the button, Max." 771 @ 7554: INIT 1 772 @ 7557: PUSHS "Try Oiling it." 773 @ 7573: INIT 1 774 @ 7576: PUSHS "Caimbridge, caimbridge" 775 @ 7600: INIT 1 776 @ 7603: PUSHS "Dont Panic. Dont Panic" 777 @ 7627: INIT 1 778 @ 7630: PUSHS "Coffee time..." 779 @ 7646: INIT 1 780 @ 7649: PUSHS "Time to feed the alien" 781 @ 7673: INIT 1 782 @ 7676: PUSHS "Complexity = O(nlog(n)" 783 @ 7700: INIT 1 784 @ 7703: PUSHS "Disk reversal error." 785 @ 7725: INIT 1 786 @ 7728: PUSHS "PDS is on the bridge" 787 @ 7750: INIT 1 788 @ 7753: PUSHS "PSR has been and gone" 789 @ 7776: INIT 1 790 @ 7779: PUSHS "We'd better call Stan." 791 @ 7803: INIT 1 792 @ 7806: PUSHS "Sid is innocent!" 793 @ 7824: INIT 1 794 @ 7827: PUSHS "Oh no, not again." 795 @ 7846: INIT 1 796 @ 7849: PUSHS "Beep-beep." 797 @ 7861: INIT 1 798 @ 7864: PUSHS "Page Page Page" 799 @ 7880: INIT 1 800 @ 7883: PUSHS "Swap Swap Swap" 801 @ 7899: INIT 1 802 @ 7902: PUSHS "Oh, Good grief" 803 @ 7918: INIT 1 804 @ 7921: PUSHS "Get the Purple One" 805 @ 7941: INIT 1 806 @ 7944: PUSHS "Put it in the curry" 807 @ 7965: INIT 1 808 @ 7968: PUSHS "Rooner Spools OK" 809 @ 7986: INIT 1 810 @ 7989: PUSHS "Slide rules OK" 811 @ 8005: INIT 1 812 @ 8008: PUSHS "Dyslexia rules KO" 813 @ 8027: INIT 1 814 @ 8030: PUSHS "Queen rules UK" 815 @ 8046: INIT 1 816 @ 8049: PUSHS "Apathy might rule OK" 817 @ 8071: INIT 1 818 @ 8074: PUSHS "Cannot open input." 819 @ 8094: INIT 1 820 @ 8097: PUSHS "%SYSTEM-F-ABORT,abort" 821 @ 8120: INIT 1 822 @ 8123: PUSHS "NO." 823 @ 8128: INIT 1 824 @ 8131: PUSHS "Phasers locked on." 825 @ 8151: INIT 1 826 @ 8154: PUSHS "Shields are now dead." 827 @ 8177: INIT 1 828 @ 8180: PUSHS "*indentation |" 829 @ 8202: INIT 1 830 @ 8205: PUSHS "No more room in cube" 831 @ 8227: INIT 1 832 @ 8230: PUSHS "Filename:" 833 @ 8241: INIT 1 834 @ 8244: PUSHS "Invalid Password." 835 @ 8263: INIT 1 836 @ 8266: PUSHS "SET [ DEAD ]" 837 @ 8280: INIT 1 838 @ 8283: PUSHS "SET [ **EOT** ]" 839 @ 8300: INIT 1 840 @ 8303: PUSHS "My brain hurts" 841 @ 8319: INIT 1 842 @ 8322: PUSHS "*T .BG;CA" 843 @ 8333: INIT 1 844 @ 8336: PUSHS "Reel..Zot..Clamp" 845 @ 8354: INIT 1 846 @ 8357: PUSHS "Trund!!" 847 @ 8366: INIT 1 848 @ 8369: PUSHS "Beware of the Trund" 849 @ 8390: INIT 1 850 @ 8393: PUSHS "Illegal opcode" 851 @ 8409: INIT 1 852 @ 8412: PUSHS "Dont even Bother" 853 @ 8430: INIT 1 854 @ 8433: PUSHS "WET PAINT" 855 @ 8444: INIT 1 856 @ 8447: PUSHS "** CONSOLE FAILURE" 857 @ 8467: INIT 1 858 @ 8470: PUSHS "** OUTPUT LOST" 859 @ 8486: INIT 1 860 @ 8489: PUSHS "Are you sure ?" 861 @ 8505: INIT 1 862 @ 8508: PUSHS "Delete?" 863 @ 8517: INIT 1 864 @ 8520: PUSHS "** Too many externals" 865 @ 8543: INIT 1 866 @ 8546: PUSHS "Host:v" 867 @ 8554: INIT 1 868 @ 8557: PUSHS "Number 149" 869 @ 8569: INIT 1 870 @ 8572: PUSHS "Rivet. Rivet." 871 @ 8587: INIT 1 872 @ 8590: PUSHS "Try typing " 873 @ 8611: INIT 1 874 @ 8614: PUSHS "Type Q to quit" 875 @ 8630: INIT 1 876 @ 8633: PUSHS "SYN SYN SYN RABBIT" 877 @ 8653: INIT 1 878 @ 8656: PUSHS "%diagnose 2<<14+255" 879 @ 8677: INIT 1 880 @ 8680: PUSHS "//EXEC FORT" 881 @ 8693: INIT 1 882 @ 8696: PUSHS "Beam me up, Scotty!!" 883 @ 8718: INIT 1 884 @ 8721: PUSHS "Glad to be of service." 885 @ 8745: INIT 1 886 @ 8748: PUSHS "Tap out the code...." 887 @ 8770: INIT 1 888 @ 8773: PUSHS "Wretched, isn't it?" 889 @ 8794: INIT 1 890 @ 8797: PUSHS "MCR>PIP *.*;*/DE" 891 @ 8815: INIT 1 892 @ 8818: PUSHS "X.IMP deleted" 893 @ 8833: INIT 1 894 @ 8836: PUSHS "...a collum matrix..." 895 @ 8859: INIT 1 896 @ 8862: PUSHS "PHUT-THINK-CLICK" 897 @ 8880: INIT 1 898 @ 8883: PUSHS "%endofprogramme" 899 @ 8900: INIT 1 900 @ 8903: PUSHS "1 statements compiled" 901 @ 8926: INIT 1 902 @ 8929: PUSHS "Coojagoa Burzi??" 903 @ 8947: INIT 1 904 @ 8950: PUSHS "I/O Silver." 905 @ 8963: INIT 1 906 @ 8966: PUSHS "OKOKOKKO @" 907 @ 8978: INIT 1 908 @ 8981: PUSHS ".LT1 *A*" 909 @ 8991: INIT 1 910 @ 8994: PUSHS "Hello lift" 911 @ 9006: INIT 1 912 @ 9009: PUSHS ".KJOB" 913 @ 9016: INIT 1 914 @ 9019: PUSHS "your days are numbered" 915 @ 9043: INIT 1 916 @ 9046: PUSHS "** CRASH IMMINENT" 917 @ 9065: INIT 1 918 @ 9068: PUSHS "Wargle Wargle" 919 @ 9083: INIT 1 920 @ 9086: PUSHS "57 varieties" 921 @ 9100: INIT 1 922 @ 9103: PUSHS "_OPA0: \"Backup" 923 @ 9119: INIT 1 924 @ 9122: PUSHS "Regardez, gentlemen.." 925 @ 9145: INIT 1 926 @ 9148: PUSHS "What, pray tell??" 927 @ 9167: INIT 1 928 @ 9170: PUSHS "So what, Mark?" 929 @ 9186: INIT 1 930 @ 9189: PUSHS "Fiddle-de-dee" 931 @ 9204: INIT 1 932 @ 9207: PUSHS "42" 933 @ 9211: INIT 1 934 @ 9214: PUSHS "Forty-Two" 935 @ 9225: INIT 1 936 @ 9228: PUSHS "42=7*9" 937 @ 9236: INIT 1 938 @ 9239: PUSHS "RND(X) = 17 for all X" 939 @ 9262: INIT 1 940 @ 9265: PUSHS "xxx~~~//][()?" 941 @ 9280: INIT 1 942 @ 9283: PUSHS "Live long and prosper" 943 @ 9306: INIT 1 944 @ 9309: PUSHS "Pass your maths, guyyz" 945 @ 9333: INIT 1 946 @ 9336: PUSHS "Space, it says, is BIG" 947 @ 9360: INIT 1 948 @ 9363: PUSHS "We've got you covered" 949 @ 9386: INIT 1 950 @ 9389: PUSHS "NEGATIVE shields." 951 @ 9408: INIT 1 952 @ 9411: PUSHS ">M-*k*;%c" 953 @ 9422: INIT 1 954 @ 9425: PUSHS "Chewbacca is cuddly" 955 @ 9446: INIT 1 956 @ 9449: PUSHS "Apathetic bloddy panic" 957 @ 9473: INIT 1 958 @ 9476: PUSHS "Metaphysical Imagery.." 959 @ 9500: INIT 1 960 @ 9503: PUSHS "I'm running out of Ink" 961 @ 9527: INIT 1 962 @ 9530: PUSHS "BNAG!!!!!" 963 @ 9541: INIT 1 964 @ 9544: PUSHS "HNAG!!!!!" 965 @ 9555: INIT 1 966 @ 9558: PUSHS "Fs link HNUG?" 967 @ 9573: INIT 1 968 @ 9576: PUSHS "CODE+GLAP+DIAGS=0" 969 @ 9595: INIT 1 970 @ 9598: PUSHS "** corrupt diags" 971 @ 9616: INIT 1 972 @ 9619: PUSHS "** diagnostics looping" 973 @ 9643: INIT 1 974 @ 9646: PUSHS "**execution error:ille" 975 @ 9670: INIT 1 976 @ 9673: PUSHS "** Segment error" 977 @ 9691: INIT 1 978 @ 9694: PUSHS "LIB - *FATAL*" 979 @ 9709: INIT 1 980 @ 9712: PUSHS "Edwin error 14." 981 @ 9729: INIT 1 982 @ 9732: PUSHS "[0 XACTIONS AFFECTED]" 983 @ 9755: INIT 1 984 @ 9758: PUSHS "I am lying." 985 @ 9771: INIT 1 986 @ 9774: PUSHS "Coruscate, coruscate" 987 @ 9796: INIT 1 988 @ 9799: PUSHS "Geezanarra DECtape" 989 @ 9819: INIT 1 990 @ 9822: PUSHS ".(" 991 @ 9826: INIT 1 992 @ 9829: PUSHS "Type YES to continue" 993 @ 9851: INIT 1 994 @ 9854: PUSHS "SAY \"XYZZY\"" 995 @ 9867: INIT 1 996 @ 9870: PUSHS "SAY \"PLUGH\"" 997 @ 9883: INIT 1 998 @ 9886: PUSHS "Clams got arms!" 999 @ 9903: INIT 1 1000 @ 9906: PUSHS "Clams got livers!" 1001 @ 9925: INIT 1 1002 @ 9928: PUSHS "*CRASH*" 1003 @ 9937: INIT 1 1004 @ 9940: PUSHS "FRED OBJ not on DT2" 1005 @ 9961: INIT 1 1006 @ 9964: PUSHS "Alarm set for 08:00" 1007 @ 9985: INIT 1 1008 @ 9988: PUSHS "The Bells...." 1009 @ 10003: INIT 1 1010 @ 10006: PUSHS "*** Spelling errur" 1011 @ 10026: INIT 1 1012 @ 10029: PUSHS "* Processor head crash" 1013 @ 10053: INIT 1 1014 @ 10056: PUSHS "mouldy breadboard err" 1015 @ 10079: INIT 1 1016 @ 10082: PUSHS "sliced breadboard err" 1017 @ 10105: INIT 1 1018 @ 10108: PUSHS "greasy chip error" 1019 @ 10127: INIT 1 1020 @ 10130: PUSHS "Resistance is Useless!" 1021 @ 10154: INIT 1 1022 @ 10157: PUSHS "Production rules OK" 1023 @ 10178: INIT 1 1024 @ 10181: PUSHS "ZZZZZZZZZZzzzzzzzz...." 1025 @ 10205: INIT 1 1026 @ 10208: PUSHS "Merde alors" 1027 @ 10221: INIT 1 1028 @ 10224: PUSHS "Foute-moi le camp!" 1029 @ 10244: INIT 1 1030 @ 10247: PUSHS "Scheiss ab!" 1031 @ 10260: INIT 1 1032 @ 10263: PUSHS "Va t'en faire baiser" 1033 @ 10285: INIT 1 1034 @ 10288: PUSHS "Pisse-toi, salaud!" 1035 @ 10308: INIT 1 1036 @ 10311: PUSHS "`X' (attrib Schulze)" 1037 @ 10333: INIT 1 1038 @ 10336: PUSHS "----------------------" 1039 @ 10360: INIT 1 1040 @ 10363: PUSHS "PASCAL is good AS CLAP" 1041 @ 10387: INIT 1 1042 @ 10390: PUSHS "Zaphod's just zis guy." 1043 @ 10414: INIT 1 1044 @ 10417: PUSHS "Dis is vot ve find...." 1045 @ 10441: INIT 1 1046 @ 10444: PUSHS ".BLISS is ignorance" 1047 @ 10465: INIT 1 1048 @ 10468: PUSHS "Pickle a squirrel" 1049 @ 10487: INIT 1 1050 @ 10490: PUSHS "Eat a beaver" 1051 @ 10504: INIT 1 1052 @ 10507: PUSHS "We hates it..." 1053 @ 10523: INIT 1 1054 @ 10526: PUSHS "Ian was here" 1055 @ 10540: INIT 1 1056 @ 10543: PUSHS "TANSTAAFL" 1057 @ 10554: INIT 1 1058 @ 10557: PUSHS "Elbereth" 1059 @ 10567: INIT 1 1060 @ 10570: PUSHS "Haunting you is fun..." 1061 @ 10594: INIT 1 1062 @ 10597: PUSHS "You need another quote" 1063 @ 10621: INIT 1 1064 @ 10624: PUSHS "EEEEXXXXXcellent !!" 1065 @ 10645: INIT 1 1066 @ 10648: PUSHS "HAUNT HAUNT !!" 1067 @ 10664: INIT 1 1068 @ 10667: PUSHS "TJ's for BMs OK!" 1069 @ 10685: INIT 1 1070 @ 10688: PUSHS "Sauron Lives" 1071 @ 10702: INIT 1 1072 @ 10705: PUSHS "Zap a Balrog - TODAY" 1073 @ 10727: INIT 1 1074 @ 10730: PUSHS "Its a FEATURE!!!" 1075 @ 10748: INIT 1 1076 @ 10751: PUSHS "I shall return..." 1077 @ 10770: INIT 1 1078 @ 10773: PUSHS "Let us pray" 1079 @ 10786: INIT 1 1080 @ 10789: PUSHS "%MOUSES-I-HI_THERE" 1081 @ 10809: INIT 1 1082 @ 10812: PUSHS "Ho, Hummmmmm" 1083 @ 10826: INIT 1 1084 @ 10829: PUSHS "Have a nasty day!" 1085 @ 10848: INIT 1 1086 @ 10851: PUSHS "I WANNA COOKIE!!!" 1087 @ 10870: INIT 1 1088 @ 10873: PUSHS "Share and enjoy" 1089 @ 10890: INIT 1 1090 @ 10893: PUSHS "P_dsno = P_ssno+17" 1091 @ 10913: INIT 1 1092 @ 10916: PUSHS "Suicide is painless" 1093 @ 10937: INIT 1 1094 @ 10940: PUSHS "Laura rules!" 1095 @ 10954: INIT 1 1096 @ 10957: PUSHS "Polly wants a biscuit" 1097 @ 10980: INIT 1 1098 @ 10983: PUSHS "It's the rugby club" 1099 @ 11004: INIT 1 1100 @ 11007: PUSHS "Time for moussaka" 1101 @ 11026: INIT 1 1102 @ 11029: PUSHS "%SLART-E-BARFAAST" 1103 @ 11048: INIT 1 1104 @ 11051: PUSHS "I'm a FORTRAN man!!!" 1105 @ 11073: INIT 1 1106 @ 11076: PUSHS "Nibble a happy warthog" 1107 @ 11100: INIT 1 1108 @ 11103: PUSHS "T. Dream time!!" 1109 @ 11120: INIT 1 1110 @ 11123: PUSHS "Ve are ze robots!!" 1111 @ 11143: INIT 1 1112 @ 11146: PUSHS "yojne dna erahS" 1113 @ 11163: INIT 1 1114 @ 11166: PUSHS "FrreeeyyyOOOWWWW!!!" 1115 @ 11187: INIT 1 1116 @ 11190: PUSHS "Structured BASIC ????" 1117 @ 11213: INIT 1 1118 @ 11216: PUSHS "%Rms-e-korsakoff" 1119 @ 11234: INIT 1 1120 @ 11237: PUSHS "NOPR-ERR" 1121 @ 11247: INIT 1 1122 @ 11250: PUSHS "Clams got legs!!!" 1123 @ 11269: INIT 1 1124 @ 11272: PUSHS "Wheeeeeeeeeeeee!!" 1125 @ 11291: INIT 1 1126 @ 11294: PUSHS "EM Char in stmt" 1127 @ 11311: INIT 1 1128 @ 11314: PUSHS "Mouses rules OK" 1129 @ 11331: INIT 1 1130 @ 11334: PUSHS "IMP yourself today" 1131 @ 11354: INIT 1 1132 @ 11357: PUSHS "Hi there" 1133 @ 11367: INIT 1 1134 @ 11370: PUSHS "Yummmmmmmmm" 1135 @ 11383: INIT 1 1136 @ 11386: PUSHS "Mouses rules OK" 1137 @ 11403: INIT 1 1138 @ 11406: PUSHS "Have a nice day!" 1139 @ 11424: INIT 1 1140 @ 11427: PUSHS "Friend or foe???" 1141 @ 11445: INIT 1 1142 @ 11448: PUSHS "EMAS is great (honest)" 1143 @ 11472: INIT 1 1144 @ 11475: PUSHS "%MTHLIB-E-FLOOVEMAT" 1145 @ 11496: INIT 1 1146 @ 11499: PUSHS "Another silly message" 1147 @ 11522: INIT 1 1148 @ 11525: PUSHS "As you wish, so be it." 1149 @ 11549: INIT 1 1150 @ 11552: PUSHS "You may call me Mazda." 1151 @ 11576: INIT 1 1152 @ 11579: PUSHS "Groovy, man." 1153 @ 11593: INIT 1 1154 @ 11596: PUSHS "%control K'101011'" 1155 @ 11616: INIT 1 1156 @ 11619: PUSHS "PROCESS RUNNING" 1157 @ 11636: INIT 1 1158 @ 11639: PUSHS "movl #^xDEAD, r0" 1159 @ 11657: INIT 1 1160 @ 11660: PUSHS "movl #^xB00B, r0" 1161 @ 11678: INIT 1 1162 @ 11681: PUSHS "Filestore down til 11" 1163 @ 11704: INIT 1 1164 @ 11707: PUSHS "Error: ';' expected" 1165 @ 11728: INIT 1 1166 @ 11731: PUSHS "Another layer of metal" 1167 @ 11755: INIT 1 1168 @ 11758: PUSHS "You have mail from SM" 1169 @ 11781: INIT 1 1170 @ 11784: PUSHS "TEXT FOR F?" 1171 @ 11797: INIT 1 1172 @ 11800: PUSHS "AV nowhere to be found" 1173 @ 11824: INIT 1 1174 @ 11827: PUSHS "BDKH:BAD SEGMENT" 1175 @ 11845: INIT 1 322 %INTEGER %FN random messno 1176 @ 11848: LINE 322 "regression-compile-tmp/haunt.imp" 1177 @ 11884: DEF RANDOMMESSNO (_HAUNT_RANDOMMESSNO) p1=V_0090 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 1178 @ 11908: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1179 @ 11909: FINISH ) {lev=2} 323 %OWN %INTEGER k1 = 0 1180 @ 11910: LINE 323 "regression-compile-tmp/haunt.imp" 1181 @ 11946: PUSHI #0x00000000 1182 @ 11951: DEF K1 p1=V_0091 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 1183 @ 11965: INIT 1 324 %INTEGER k2 1184 @ 11968: LINE 324 "regression-compile-tmp/haunt.imp" 1185 @ 12004: DEF K2 p1=V_0092 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 325 %CYCLE 1186 @ 12018: LINE 325 "regression-compile-tmp/haunt.imp" 1187 @ 12054: LOCATE L_0003 326 k1 = (k1*125 + 1) & 16383 1188 @ 12057: LINE 326 "regression-compile-tmp/haunt.imp" 1189 @ 12093: PUSH K1 1190 @ 12096: PUSH K1 1191 @ 12099: PUSHI #0x0000007d 1192 @ 12104: MUL 1193 @ 12105: PUSHI #0x00000001 1194 @ 12110: ADD 1195 @ 12111: PUSHI #0x00003fff 1196 @ 12116: AND 1197 @ 12117: ASSVAL 327 k2 = IMOD(k1) 1198 @ 12118: LINE 327 "regression-compile-tmp/haunt.imp" 1199 @ 12154: PUSH K2 1200 @ 12157: PUSH IMOD 1201 @ 12160: PUSH K1 1202 @ 12163: ASSPAR 1203 @ 12164: CALL 1204 @ 12165: ASSVAL 328 k2 = REM(k2,max messages+1) 1205 @ 12166: LINE 328 "regression-compile-tmp/haunt.imp" 1206 @ 12202: PUSH K2 1207 @ 12205: PUSH REM 1208 @ 12208: PUSH K2 1209 @ 12211: ASSPAR 1210 @ 12212: PUSHI #0x0000012f 1211 @ 12217: PUSHI #0x00000001 1212 @ 12222: ADD 1213 @ 12223: ASSPAR 1214 @ 12224: CALL 1215 @ 12225: ASSVAL 329 %RESULT = k2 %IF 0 <= k2 <= max messages 1216 @ 12226: LINE 329 "regression-compile-tmp/haunt.imp" 1217 @ 12262: PUSHI #0x00000000 1218 @ 12267: PUSH K2 1219 @ 12270: JUMPIFD > L_0007 1220 @ 12274: PUSHI #0x0000012f 1221 @ 12279: JUMPIF > L_0007 1222 @ 12283: PUSH K2 1223 @ 12286: RESULT 1224 @ 12287: LOCATE L_0007 330 %REPEAT 1225 @ 12290: LINE 330 "regression-compile-tmp/haunt.imp" 1226 @ 12326: REPEAT L_0003 331 %END 1227 @ 12329: LINE 331 "regression-compile-tmp/haunt.imp" 1228 @ 12365: END _HAUNT_RANDOMMESSNO {lev=2 --> 1} 332 %IF dummy="" %THEN %START 1229 @ 12366: LINE 332 "regression-compile-tmp/haunt.imp" 1230 @ 12402: PUSH DUMMY 1231 @ 12405: PUSHS "" 1232 @ 12407: JUMPIF # L_0004 333 num victims = 0 1233 @ 12411: LINE 333 "regression-compile-tmp/haunt.imp" 1234 @ 12447: PUSH NUMVICTIMS 1235 @ 12450: PUSHI #0x00000000 1236 @ 12455: ASSVAL 334 PROMPT("Victim:") 1237 @ 12456: LINE 334 "regression-compile-tmp/haunt.imp" 1238 @ 12492: PUSH PROMPT 1239 @ 12495: PUSHS "Victim:" 1240 @ 12504: ASSPAR 1241 @ 12505: CALL 335 %WHILE num victims <= max victims %CYCLE 1242 @ 12506: LINE 335 "regression-compile-tmp/haunt.imp" 1243 @ 12542: LOCATE L_0006 1244 @ 12545: PUSH NUMVICTIMS 1245 @ 12548: PUSHI #0x0000000a 1246 @ 12553: JUMPIF > L_0007 336 proc name = "" 1247 @ 12557: LINE 336 "regression-compile-tmp/haunt.imp" 1248 @ 12593: PUSH PROCNAME 1249 @ 12596: PUSHS "" 1250 @ 12598: ASSVAL 337 SKIP SYMBOL %WHILE NEXT CH <= ' ' %AND NEXT CH # 25 1251 @ 12599: LINE 337 "regression-compile-tmp/haunt.imp" 1252 @ 12635: LOCATE L_0009 1253 @ 12638: PUSH NEXTCH 1254 @ 12641: CALL 1255 @ 12642: PUSHI #0x00000020 1256 @ 12647: JUMPIF > L_000a 1257 @ 12651: PUSH NEXTCH 1258 @ 12654: CALL 1259 @ 12655: PUSHI #0x00000019 1260 @ 12660: JUMPIF = L_000a 1261 @ 12664: PUSH SKIPSYMBOL 1262 @ 12667: CALL 1263 @ 12668: REPEAT L_0009 1264 @ 12671: LOCATE L_000a 338 %EXIT %IF NEXT CH = 25 1265 @ 12674: LINE 338 "regression-compile-tmp/haunt.imp" 1266 @ 12710: PUSH NEXTCH 1267 @ 12713: CALL 1268 @ 12714: PUSHI #0x00000019 1269 @ 12719: JUMPIF # L_000a 1270 @ 12723: GOTO L_0007 1271 @ 12726: LOCATE L_000a 339 %WHILE NEXT SYMBOL # NL %CYCLE 1272 @ 12729: LINE 339 "regression-compile-tmp/haunt.imp" 1273 @ 12765: LOCATE L_0009 1274 @ 12768: PUSH NEXTSYMBOL 1275 @ 12771: CALL 1276 @ 12772: PUSHI #0x0000000a 1277 @ 12777: JUMPIF = L_000a 340 proc name = proc name . TO STRING(NEXT SYMBOL) 1278 @ 12781: LINE 340 "regression-compile-tmp/haunt.imp" 1279 @ 12817: PUSH PROCNAME 1280 @ 12820: PUSH PROCNAME 1281 @ 12823: PUSH TOSTRING 1282 @ 12826: PUSH NEXTSYMBOL 1283 @ 12829: CALL 1284 @ 12830: ASSPAR 1285 @ 12831: CALL 1286 @ 12832: CONCAT 1287 @ 12833: ASSVAL 341 SKIP SYMBOL 1288 @ 12834: LINE 341 "regression-compile-tmp/haunt.imp" 1289 @ 12870: PUSH SKIPSYMBOL 1290 @ 12873: CALL 342 %REPEAT 1291 @ 12874: LINE 342 "regression-compile-tmp/haunt.imp" 1292 @ 12910: REPEAT L_0009 1293 @ 12913: LOCATE L_000a 343 %EXIT %IF proc name = ".end" %OR proc name = ".END" 1294 @ 12916: LINE 343 "regression-compile-tmp/haunt.imp" 1295 @ 12952: PUSH PROCNAME 1296 @ 12955: PUSHS ".end" 1297 @ 12961: JUMPIF = L_000b 1298 @ 12965: PUSH PROCNAME 1299 @ 12968: PUSHS ".END" 1300 @ 12974: JUMPIF # L_000a 1301 @ 12978: LOCATE L_000b 1302 @ 12981: GOTO L_0007 1303 @ 12984: LOCATE L_000a 344 num victims = num victims + 1 1304 @ 12987: LINE 344 "regression-compile-tmp/haunt.imp" 1305 @ 13023: PUSH NUMVICTIMS 1306 @ 13026: PUSH NUMVICTIMS 1307 @ 13029: PUSHI #0x00000001 1308 @ 13034: ADD 1309 @ 13035: ASSVAL 345 victim(num victims) = proc name 1310 @ 13036: LINE 345 "regression-compile-tmp/haunt.imp" 1311 @ 13072: PUSH VICTIM 1312 @ 13075: PUSH NUMVICTIMS 1313 @ 13078: ACCESS 1314 @ 13079: PUSH PROCNAME 1315 @ 13082: ASSVAL 346 %REPEAT 1316 @ 13083: LINE 346 "regression-compile-tmp/haunt.imp" 1317 @ 13119: REPEAT L_0006 1318 @ 13122: LOCATE L_0007 347 %FINISH %ELSE %START 1319 @ 13125: LINE 347 "regression-compile-tmp/haunt.imp" 1320 @ 13161: GOTO L_0003 1321 @ 13164: LOCATE L_0004 348 victim(1) = dummy 1322 @ 13167: LINE 348 "regression-compile-tmp/haunt.imp" 1323 @ 13203: PUSH VICTIM 1324 @ 13206: PUSHI #0x00000001 1325 @ 13211: ACCESS 1326 @ 13212: PUSH DUMMY 1327 @ 13215: ASSVAL 349 num victims = 1 1328 @ 13216: LINE 349 "regression-compile-tmp/haunt.imp" 1329 @ 13252: PUSH NUMVICTIMS 1330 @ 13255: PUSHI #0x00000001 1331 @ 13260: ASSVAL 350 %FINISH 1332 @ 13261: LINE 350 "regression-compile-tmp/haunt.imp" 1333 @ 13297: LOCATE L_0003 351 %CYCLE times = 1, 1, max times 1334 @ 13300: LINE 351 "regression-compile-tmp/haunt.imp" 1335 @ 13336: PUSH TIMES 1336 @ 13339: PUSHI #0x00000001 1337 @ 13344: PUSH MAXTIMES 1338 @ 13347: PUSHI #0x00000001 1339 @ 13352: FOR L_0003 352 D DELAY(delay) 1340 @ 13355: LINE 352 "regression-compile-tmp/haunt.imp" 1341 @ 13391: PUSH DDELAY 1342 @ 13394: PUSH DELAY 1343 @ 13397: ASSPAR 1344 @ 13398: CALL 353 %CYCLE this victim = 1, 1, num victims 1345 @ 13399: LINE 353 "regression-compile-tmp/haunt.imp" 1346 @ 13435: PUSH THISVICTIM 1347 @ 13438: PUSHI #0x00000001 1348 @ 13443: PUSH NUMVICTIMS 1349 @ 13446: PUSHI #0x00000001 1350 @ 13451: FOR L_0006 354 selected = random mess no 355 !!NOTIFY(victim(this victim)."""".message(selected)) 1351 @ 13454: LINE 354 "regression-compile-tmp/haunt.imp" 1352 @ 13490: PUSH SELECTED 1353 @ 13493: PUSH RANDOMMESSNO 1354 @ 13496: CALL 1355 @ 13497: ASSVAL 356 printstring(message(selected)); newline 1356 @ 13498: LINE 356 "regression-compile-tmp/haunt.imp" 1357 @ 13534: PUSH PRINTSTRING 1358 @ 13537: PUSH MESSAGE 1359 @ 13540: PUSH SELECTED 1360 @ 13543: ACCESS 1361 @ 13544: ASSPAR 1362 @ 13545: CALL 1363 @ 13546: LINE 356 "regression-compile-tmp/haunt.imp" 1364 @ 13582: PUSH NEWLINE 1365 @ 13585: CALL 357 %REPEAT 1366 @ 13586: LINE 357 "regression-compile-tmp/haunt.imp" 1367 @ 13622: REPEAT L_0006 1368 @ 13625: LOCATE L_0007 358 %REPEAT 1369 @ 13628: LINE 358 "regression-compile-tmp/haunt.imp" 1370 @ 13664: REPEAT L_0003 1371 @ 13667: LOCATE L_0004 359 %END 360 1372 @ 13670: LINE 359 "regression-compile-tmp/haunt.imp" 1373 @ 13706: END _HAUNT {lev=1 --> 0} 361 %begin 1374 @ 13707: LINE 361 "regression-compile-tmp/haunt.imp" 1375 @ 13743: BEGIN _lev0id0 {lev=0 --> 1} 362 select output(0) 1376 @ 13744: LINE 362 "regression-compile-tmp/haunt.imp" 1377 @ 13780: PUSH SELECTOUTPUT 1378 @ 13783: PUSHI #0x00000000 1379 @ 13788: ASSPAR 1380 @ 13789: CALL 363 haunt("user") 1381 @ 13790: LINE 363 "regression-compile-tmp/haunt.imp" 1382 @ 13826: PUSH HAUNT 1383 @ 13829: PUSHS "user" 1384 @ 13835: ASSPAR 1385 @ 13836: CALL 364 %end 365 1386 @ 13837: LINE 364 "regression-compile-tmp/haunt.imp" 1387 @ 13873: END _lev0id0 {lev=1 --> 0} 366 %ENDOFFILE 1388 @ 13874: LINE 366 "regression-compile-tmp/haunt.imp" 1389 @ 13910: END {lev=0 --> -1} 1390 @ 13911: