1 %begin 2 !%externalstring(255)%fnspec itos(%integer i,n) 3 !%externalroutinespec openinput(%integer stream, %string(255) filename) 4 !%externalroutinespec openoutput(%integer stream, %string(255) filename) 5 503 @ 4405: LINE 1 "regression-compile-tmp/gpm.imp" 504 @ 4439: BEGIN _lev0id0 {lev=0 --> 1} 6 %routinespec load 505 @ 4440: LINE 6 "regression-compile-tmp/gpm.imp" 506 @ 4474: DEF LOAD (_lev0id0_LOAD) p1=V_0081 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 507 @ 4490: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 508 @ 4491: FINISH ) {lev=1} 7 %routinespec nextch 509 @ 4492: LINE 7 "regression-compile-tmp/gpm.imp" 510 @ 4526: DEF NEXTCH (_lev0id0_NEXTCH) p1=V_0082 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 511 @ 4544: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 512 @ 4545: FINISH ) {lev=1} 8 %routinespec find(%integer x) 513 @ 4546: LINE 8 "regression-compile-tmp/gpm.imp" 514 @ 4580: DEF FIND (_lev0id0_FIND) p1=V_0083 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 515 @ 4596: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 516 @ 4597: DEF X 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 517 @ 4610: FINISH ) {lev=1} 9 %routinespec monitor(%integer n) 518 @ 4611: LINE 9 "regression-compile-tmp/gpm.imp" 519 @ 4645: DEF MONITOR (_lev0id0_MONITOR) p1=V_0084 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 520 @ 4664: START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} 521 @ 4665: DEF N 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 522 @ 4678: FINISH ) {lev=1} 10 %constinteger marker=16_ffffc000 523 @ 4679: LINE 10 "regression-compile-tmp/gpm.imp" 11 %conststring(1) snl = " 12 " 524 @ 4713: LINE 11 "regression-compile-tmp/gpm.imp" 525 @ 4747: PUSHS "\n" 526 @ 4750: DEF SNL p1=V_0085 a/tf=31 b/format=1 c/ostate=12 type=3 (string) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 527 @ 4765: INIT 1 13 %ownshortintegerarray st(0:10000)=%c 14 -1,4,'d','e','f',-1, 15 0,4,'v','a','l',-2, 16 6,7,'u','p','d','a','t','e',-3, 17 12,4,'b','i','n',-4, 18 21,4,'d','e','c',-5, 19 27,4,'b','a','r',-6, 20 0(9962) 528 @ 4768: LINE 13 "regression-compile-tmp/gpm.imp" 529 @ 4802: PUSHI #0x00000000 530 @ 4807: PUSHI #0x00002710 531 @ 4812: BOUNDS 532 @ 4813: DEF ST p1=V_0086 a/tf=1b b/format=3 c/ostate=121 type=1 (integer) form=11 (array) special=2 (short-integer) linkage=1 (own) spec=0 indirect=0 unass=1 533 @ 4827: PUSHI #0xffffffff 534 @ 4832: INIT 1 535 @ 4835: PUSHI #0x00000004 536 @ 4840: INIT 1 537 @ 4843: PUSHI #0x00000064 538 @ 4848: INIT 1 539 @ 4851: PUSHI #0x00000065 540 @ 4856: INIT 1 541 @ 4859: PUSHI #0x00000066 542 @ 4864: INIT 1 543 @ 4867: PUSHI #0xffffffff 544 @ 4872: INIT 1 545 @ 4875: PUSHI #0x00000000 546 @ 4880: INIT 1 547 @ 4883: PUSHI #0x00000004 548 @ 4888: INIT 1 549 @ 4891: PUSHI #0x00000076 550 @ 4896: INIT 1 551 @ 4899: PUSHI #0x00000061 552 @ 4904: INIT 1 553 @ 4907: PUSHI #0x0000006c 554 @ 4912: INIT 1 555 @ 4915: PUSHI #0xfffffffe 556 @ 4920: INIT 1 557 @ 4923: PUSHI #0x00000006 558 @ 4928: INIT 1 559 @ 4931: PUSHI #0x00000007 560 @ 4936: INIT 1 561 @ 4939: PUSHI #0x00000075 562 @ 4944: INIT 1 563 @ 4947: PUSHI #0x00000070 564 @ 4952: INIT 1 565 @ 4955: PUSHI #0x00000064 566 @ 4960: INIT 1 567 @ 4963: PUSHI #0x00000061 568 @ 4968: INIT 1 569 @ 4971: PUSHI #0x00000074 570 @ 4976: INIT 1 571 @ 4979: PUSHI #0x00000065 572 @ 4984: INIT 1 573 @ 4987: PUSHI #0xfffffffd 574 @ 4992: INIT 1 575 @ 4995: PUSHI #0x0000000c 576 @ 5000: INIT 1 577 @ 5003: PUSHI #0x00000004 578 @ 5008: INIT 1 579 @ 5011: PUSHI #0x00000062 580 @ 5016: INIT 1 581 @ 5019: PUSHI #0x00000069 582 @ 5024: INIT 1 583 @ 5027: PUSHI #0x0000006e 584 @ 5032: INIT 1 585 @ 5035: PUSHI #0xfffffffc 586 @ 5040: INIT 1 587 @ 5043: PUSHI #0x00000015 588 @ 5048: INIT 1 589 @ 5051: PUSHI #0x00000004 590 @ 5056: INIT 1 591 @ 5059: PUSHI #0x00000064 592 @ 5064: INIT 1 593 @ 5067: PUSHI #0x00000065 594 @ 5072: INIT 1 595 @ 5075: PUSHI #0x00000063 596 @ 5080: INIT 1 597 @ 5083: PUSHI #0xfffffffb 598 @ 5088: INIT 1 599 @ 5091: PUSHI #0x0000001b 600 @ 5096: INIT 1 601 @ 5099: PUSHI #0x00000004 602 @ 5104: INIT 1 603 @ 5107: PUSHI #0x00000062 604 @ 5112: INIT 1 605 @ 5115: PUSHI #0x00000061 606 @ 5120: INIT 1 607 @ 5123: PUSHI #0x00000072 608 @ 5128: INIT 1 609 @ 5131: PUSHI #0xfffffffa 610 @ 5136: INIT 1 611 @ 5139: PUSHI #0x00000000 612 @ 5144: INIT 9962 21 %owninteger e=33, s=39 613 @ 5147: LINE 21 "regression-compile-tmp/gpm.imp" 614 @ 5181: PUSHI #0x00000021 615 @ 5186: DEF E p1=V_0087 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 616 @ 5199: INIT 1 617 @ 5202: PUSHI #0x00000027 618 @ 5207: DEF S p1=V_0088 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 619 @ 5220: INIT 1 22 %integer a, w, w1, h, p, f, c, q, e0, f0, h0, r 620 @ 5223: LINE 22 "regression-compile-tmp/gpm.imp" 621 @ 5257: DEF A 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 622 @ 5270: DEF W 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 623 @ 5283: DEF W1 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 624 @ 5297: DEF H 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 625 @ 5310: DEF P p1=V_008d 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 626 @ 5323: DEF F p1=V_008e 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 627 @ 5336: DEF C p1=V_008f 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 628 @ 5349: DEF Q p1=V_0090 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 629 @ 5362: DEF E0 p1=V_0091 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 630 @ 5376: DEF F0 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 631 @ 5390: DEF H0 p1=V_0093 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 632 @ 5404: DEF R p1=V_0094 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 23 %string(63) filename 633 @ 5417: LINE 23 "regression-compile-tmp/gpm.imp" 634 @ 5451: DEF FILENAME p1=V_0095 a/tf=31 b/format=3f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 24 %switch mcm(1:6) 25 635 @ 5471: LINE 24 "regression-compile-tmp/gpm.imp" 636 @ 5505: PUSHI #0x00000001 637 @ 5510: PUSHI #0x00000006 638 @ 5515: BOUNDS 639 @ 5516: DEF MCM p1=V_0096 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 26 %on %event {0,} 9 %start 640 @ 5531: LINE 26 "regression-compile-tmp/gpm.imp" 641 @ 5565: ON MASK=0200 L_0004 27 %if eventno{event_event} = 9 %then %start 642 @ 5571: LINE 27 "regression-compile-tmp/gpm.imp" 643 @ 5605: PUSH EVENTNO 644 @ 5608: CALL 645 @ 5609: PUSHI #0x00000009 646 @ 5614: JUMPIF # L_0007 28 select input(0) 647 @ 5618: LINE 28 "regression-compile-tmp/gpm.imp" 648 @ 5652: PUSH SELECTINPUT 649 @ 5655: PUSHI #0x00000000 650 @ 5660: ASSPAR 651 @ 5661: CALL 29 ->start 652 @ 5662: LINE 29 "regression-compile-tmp/gpm.imp" 653 @ 5696: JUMP L_0097 30 %finish %else print string(snl."GPM terminated".snl) 654 @ 5699: LINE 30 "regression-compile-tmp/gpm.imp" 655 @ 5733: LOCATE L_0007 656 @ 5736: PUSH PRINTSTRING 657 @ 5739: PUSH SNL 658 @ 5742: PUSHS "GPM terminated" 659 @ 5758: CONCAT 660 @ 5759: PUSH SNL 661 @ 5762: CONCAT 662 @ 5763: ASSPAR 663 @ 5764: CALL 31 %stop 664 @ 5765: LINE 31 "regression-compile-tmp/gpm.imp" 665 @ 5799: STOP 32 %finish 33 666 @ 5800: LINE 32 "regression-compile-tmp/gpm.imp" 667 @ 5834: LOCATE L_0004 34 a=0 668 @ 5837: LINE 34 "regression-compile-tmp/gpm.imp" 669 @ 5871: PUSH A 670 @ 5874: PUSHI #0x00000000 671 @ 5879: ASSVAL 35 w=0 672 @ 5880: LINE 35 "regression-compile-tmp/gpm.imp" 673 @ 5914: PUSH W 674 @ 5917: PUSHI #0x00000000 675 @ 5922: ASSVAL 36 w1=0 676 @ 5923: LINE 36 "regression-compile-tmp/gpm.imp" 677 @ 5957: PUSH W1 678 @ 5960: PUSHI #0x00000000 679 @ 5965: ASSVAL 37 h=0 680 @ 5966: LINE 37 "regression-compile-tmp/gpm.imp" 681 @ 6000: PUSH H 682 @ 6003: PUSHI #0x00000000 683 @ 6008: ASSVAL 38 p=0 684 @ 6009: LINE 38 "regression-compile-tmp/gpm.imp" 685 @ 6043: PUSH P 686 @ 6046: PUSHI #0x00000000 687 @ 6051: ASSVAL 39 f=0 688 @ 6052: LINE 39 "regression-compile-tmp/gpm.imp" 689 @ 6086: PUSH F 690 @ 6089: PUSHI #0x00000000 691 @ 6094: ASSVAL 40 c=0 692 @ 6095: LINE 40 "regression-compile-tmp/gpm.imp" 693 @ 6129: PUSH C 694 @ 6132: PUSHI #0x00000000 695 @ 6137: ASSVAL 41 q=1 42 696 @ 6138: LINE 41 "regression-compile-tmp/gpm.imp" 697 @ 6172: PUSH Q 698 @ 6175: PUSHI #0x00000001 699 @ 6180: ASSVAL 43 start:nextch 700 @ 6181: LINE 43 "regression-compile-tmp/gpm.imp" 701 @ 6215: LABEL L_0097 702 @ 6218: LINE 43 "regression-compile-tmp/gpm.imp" 703 @ 6252: PUSH NEXTCH 704 @ 6255: CALL 44 %if a='@' %then %start 705 @ 6256: LINE 44 "regression-compile-tmp/gpm.imp" 706 @ 6290: PUSH A 707 @ 6293: PUSHI #0x00000040 708 @ 6298: JUMPIF # L_0004 45 read(filename) 709 @ 6302: LINE 45 "regression-compile-tmp/gpm.imp" 710 @ 6336: PUSH READ 711 @ 6339: PUSH FILENAME 712 @ 6342: ASSPAR 713 @ 6343: CALL 46 openinput(1,filename) 714 @ 6344: LINE 46 "regression-compile-tmp/gpm.imp" 715 @ 6378: PUSH OPENINPUT 716 @ 6381: PUSHI #0x00000001 717 @ 6386: ASSPAR 718 @ 6387: PUSH FILENAME 719 @ 6390: ASSPAR 720 @ 6391: CALL 47 select input(1) 721 @ 6392: LINE 47 "regression-compile-tmp/gpm.imp" 722 @ 6426: PUSH SELECTINPUT 723 @ 6429: PUSHI #0x00000001 724 @ 6434: ASSPAR 725 @ 6435: CALL 48 ->start ; %finish 726 @ 6436: LINE 48 "regression-compile-tmp/gpm.imp" 727 @ 6470: JUMP L_0097 728 @ 6473: LINE 48 "regression-compile-tmp/gpm.imp" 729 @ 6507: LOCATE L_0004 49 %if a='/' %then %start 730 @ 6510: LINE 49 "regression-compile-tmp/gpm.imp" 731 @ 6544: PUSH A 732 @ 6547: PUSHI #0x0000002f 733 @ 6552: JUMPIF # L_0004 50 read(filename) 734 @ 6556: LINE 50 "regression-compile-tmp/gpm.imp" 735 @ 6590: PUSH READ 736 @ 6593: PUSH FILENAME 737 @ 6596: ASSPAR 738 @ 6597: CALL 51 openoutput(1,filename) 739 @ 6598: LINE 51 "regression-compile-tmp/gpm.imp" 740 @ 6632: PUSH OPENOUTPUT 741 @ 6635: PUSHI #0x00000001 742 @ 6640: ASSPAR 743 @ 6641: PUSH FILENAME 744 @ 6644: ASSPAR 745 @ 6645: CALL 52 select output(1) 746 @ 6646: LINE 52 "regression-compile-tmp/gpm.imp" 747 @ 6680: PUSH SELECTOUTPUT 748 @ 6683: PUSHI #0x00000001 749 @ 6688: ASSPAR 750 @ 6689: CALL 53 ->start ; %finish 751 @ 6690: LINE 53 "regression-compile-tmp/gpm.imp" 752 @ 6724: JUMP L_0097 753 @ 6727: LINE 53 "regression-compile-tmp/gpm.imp" 754 @ 6761: LOCATE L_0004 54 %if a='<' %then q=q+1 %and ->q2 755 @ 6764: LINE 54 "regression-compile-tmp/gpm.imp" 756 @ 6798: PUSH A 757 @ 6801: PUSHI #0x0000003c 758 @ 6806: JUMPIF # L_0004 759 @ 6810: PUSH Q 760 @ 6813: PUSH Q 761 @ 6816: PUSHI #0x00000001 762 @ 6821: ADD 763 @ 6822: ASSVAL 764 @ 6823: JUMP L_0098 765 @ 6826: LOCATE L_0004 55 %if a='$' %then ->fn 766 @ 6829: LINE 55 "regression-compile-tmp/gpm.imp" 767 @ 6863: PUSH A 768 @ 6866: PUSHI #0x00000024 769 @ 6871: JUMPIF # L_0004 770 @ 6875: JUMP L_0099 771 @ 6878: LOCATE L_0004 56 %if a=',' %then ->next item 772 @ 6881: LINE 56 "regression-compile-tmp/gpm.imp" 773 @ 6915: PUSH A 774 @ 6918: PUSHI #0x0000002c 775 @ 6923: JUMPIF # L_0004 776 @ 6927: JUMP L_009a 777 @ 6930: LOCATE L_0004 57 %if a=';' %then ->apply 778 @ 6933: LINE 57 "regression-compile-tmp/gpm.imp" 779 @ 6967: PUSH A 780 @ 6970: PUSHI #0x0000003b 781 @ 6975: JUMPIF # L_0004 782 @ 6979: JUMP L_009b 783 @ 6982: LOCATE L_0004 58 %if a='#' %then ->load arg 784 @ 6985: LINE 58 "regression-compile-tmp/gpm.imp" 785 @ 7019: PUSH A 786 @ 7022: PUSHI #0x00000023 787 @ 7027: JUMPIF # L_0004 788 @ 7031: JUMP L_009c 789 @ 7034: LOCATE L_0004 59 %if a=marker %then ->endfn 790 @ 7037: LINE 59 "regression-compile-tmp/gpm.imp" 791 @ 7071: PUSH A 792 @ 7074: PUSHI #0xffffc000 793 @ 7079: JUMPIF # L_0004 794 @ 7083: JUMP L_009d 795 @ 7086: LOCATE L_0004 60 %if a='>' %then ->exit 796 @ 7089: LINE 60 "regression-compile-tmp/gpm.imp" 797 @ 7123: PUSH A 798 @ 7126: PUSHI #0x0000003e 799 @ 7131: JUMPIF # L_0004 800 @ 7135: JUMP L_009e 801 @ 7138: LOCATE L_0004 61 copy:load 802 @ 7141: LINE 61 "regression-compile-tmp/gpm.imp" 803 @ 7175: LABEL L_009f 804 @ 7178: LINE 61 "regression-compile-tmp/gpm.imp" 805 @ 7212: PUSH LOAD 806 @ 7215: CALL 62 %if q=1 %then ->start 807 @ 7216: LINE 62 "regression-compile-tmp/gpm.imp" 808 @ 7250: PUSH Q 809 @ 7253: PUSHI #0x00000001 810 @ 7258: JUMPIF # L_0004 811 @ 7262: JUMP L_0097 812 @ 7265: LOCATE L_0004 63 q2:nextch 813 @ 7268: LINE 63 "regression-compile-tmp/gpm.imp" 814 @ 7302: LABEL L_0098 815 @ 7305: LINE 63 "regression-compile-tmp/gpm.imp" 816 @ 7339: PUSH NEXTCH 817 @ 7342: CALL 64 %if a='<' %then q=q+1 %and ->copy 818 @ 7343: LINE 64 "regression-compile-tmp/gpm.imp" 819 @ 7377: PUSH A 820 @ 7380: PUSHI #0x0000003c 821 @ 7385: JUMPIF # L_0004 822 @ 7389: PUSH Q 823 @ 7392: PUSH Q 824 @ 7395: PUSHI #0x00000001 825 @ 7400: ADD 826 @ 7401: ASSVAL 827 @ 7402: JUMP L_009f 828 @ 7405: LOCATE L_0004 65 %if a#'>' %then ->copy 829 @ 7408: LINE 65 "regression-compile-tmp/gpm.imp" 830 @ 7442: PUSH A 831 @ 7445: PUSHI #0x0000003e 832 @ 7450: JUMPIF = L_0004 833 @ 7454: JUMP L_009f 834 @ 7457: LOCATE L_0004 66 q=q-1 835 @ 7460: LINE 66 "regression-compile-tmp/gpm.imp" 836 @ 7494: PUSH Q 837 @ 7497: PUSH Q 838 @ 7500: PUSHI #0x00000001 839 @ 7505: SUB 840 @ 7506: ASSVAL 67 %if q=1 %then ->start %else ->copy 841 @ 7507: LINE 67 "regression-compile-tmp/gpm.imp" 842 @ 7541: PUSH Q 843 @ 7544: PUSHI #0x00000001 844 @ 7549: JUMPIF # L_0004 845 @ 7553: JUMP L_0097 846 @ 7556: LOCATE L_0004 847 @ 7559: JUMP L_009f 68 fn:st(s)=h 848 @ 7562: LINE 68 "regression-compile-tmp/gpm.imp" 849 @ 7596: LABEL L_0099 850 @ 7599: LINE 68 "regression-compile-tmp/gpm.imp" 851 @ 7633: PUSH ST 852 @ 7636: PUSH S 853 @ 7639: ACCESS 854 @ 7640: PUSH H 855 @ 7643: ASSVAL 69 st(s+1)=f 856 @ 7644: LINE 69 "regression-compile-tmp/gpm.imp" 857 @ 7678: PUSH ST 858 @ 7681: PUSH S 859 @ 7684: PUSHI #0x00000001 860 @ 7689: ADD 861 @ 7690: ACCESS 862 @ 7691: PUSH F 863 @ 7694: ASSVAL 70 st(s+2)=0 864 @ 7695: LINE 70 "regression-compile-tmp/gpm.imp" 865 @ 7729: PUSH ST 866 @ 7732: PUSH S 867 @ 7735: PUSHI #0x00000002 868 @ 7740: ADD 869 @ 7741: ACCESS 870 @ 7742: PUSHI #0x00000000 871 @ 7747: ASSVAL 71 st(s+3)=0 872 @ 7748: LINE 71 "regression-compile-tmp/gpm.imp" 873 @ 7782: PUSH ST 874 @ 7785: PUSH S 875 @ 7788: PUSHI #0x00000003 876 @ 7793: ADD 877 @ 7794: ACCESS 878 @ 7795: PUSHI #0x00000000 879 @ 7800: ASSVAL 72 h=s+3 880 @ 7801: LINE 72 "regression-compile-tmp/gpm.imp" 881 @ 7835: PUSH H 882 @ 7838: PUSH S 883 @ 7841: PUSHI #0x00000003 884 @ 7846: ADD 885 @ 7847: ASSVAL 73 f=s+1 886 @ 7848: LINE 73 "regression-compile-tmp/gpm.imp" 887 @ 7882: PUSH F 888 @ 7885: PUSH S 889 @ 7888: PUSHI #0x00000001 890 @ 7893: ADD 891 @ 7894: ASSVAL 74 s=s+4 892 @ 7895: LINE 74 "regression-compile-tmp/gpm.imp" 893 @ 7929: PUSH S 894 @ 7932: PUSH S 895 @ 7935: PUSHI #0x00000004 896 @ 7940: ADD 897 @ 7941: ASSVAL 75 ->start 76 898 @ 7942: LINE 75 "regression-compile-tmp/gpm.imp" 899 @ 7976: JUMP L_0097 77 next item:%if h=0 %then ->copy 900 @ 7979: LINE 77 "regression-compile-tmp/gpm.imp" 901 @ 8013: LABEL L_009a 902 @ 8016: LINE 77 "regression-compile-tmp/gpm.imp" 903 @ 8050: PUSH H 904 @ 8053: PUSHI #0x00000000 905 @ 8058: JUMPIF # L_0004 906 @ 8062: JUMP L_009f 907 @ 8065: LOCATE L_0004 78 st(h)=s-h-st(h) 908 @ 8068: LINE 78 "regression-compile-tmp/gpm.imp" 909 @ 8102: PUSH ST 910 @ 8105: PUSH H 911 @ 8108: ACCESS 912 @ 8109: PUSH S 913 @ 8112: PUSH H 914 @ 8115: SUB 915 @ 8116: PUSH ST 916 @ 8119: PUSH H 917 @ 8122: ACCESS 918 @ 8123: SUB 919 @ 8124: ASSVAL 79 st(s)=0 920 @ 8125: LINE 79 "regression-compile-tmp/gpm.imp" 921 @ 8159: PUSH ST 922 @ 8162: PUSH S 923 @ 8165: ACCESS 924 @ 8166: PUSHI #0x00000000 925 @ 8171: ASSVAL 80 h=s 926 @ 8172: LINE 80 "regression-compile-tmp/gpm.imp" 927 @ 8206: PUSH H 928 @ 8209: PUSH S 929 @ 8212: ASSVAL 81 s=s+1 930 @ 8213: LINE 81 "regression-compile-tmp/gpm.imp" 931 @ 8247: PUSH S 932 @ 8250: PUSH S 933 @ 8253: PUSHI #0x00000001 934 @ 8258: ADD 935 @ 8259: ASSVAL 82 ->start 83 936 @ 8260: LINE 82 "regression-compile-tmp/gpm.imp" 937 @ 8294: JUMP L_0097 84 apply:%if p>f %then monitor(1) 938 @ 8297: LINE 84 "regression-compile-tmp/gpm.imp" 939 @ 8331: LABEL L_009b 940 @ 8334: LINE 84 "regression-compile-tmp/gpm.imp" 941 @ 8368: PUSH P 942 @ 8371: PUSH F 943 @ 8374: JUMPIF <= L_0004 944 @ 8378: PUSH MONITOR 945 @ 8381: PUSHI #0x00000001 946 @ 8386: ASSPAR 947 @ 8387: CALL 948 @ 8388: LOCATE L_0004 85 %if h=0 %then ->copy 949 @ 8391: LINE 85 "regression-compile-tmp/gpm.imp" 950 @ 8425: PUSH H 951 @ 8428: PUSHI #0x00000000 952 @ 8433: JUMPIF # L_0004 953 @ 8437: JUMP L_009f 954 @ 8440: LOCATE L_0004 86 st(h)=s-h 955 @ 8443: LINE 86 "regression-compile-tmp/gpm.imp" 956 @ 8477: PUSH ST 957 @ 8480: PUSH H 958 @ 8483: ACCESS 959 @ 8484: PUSH S 960 @ 8487: PUSH H 961 @ 8490: SUB 962 @ 8491: ASSVAL 87 st(s)=marker 963 @ 8492: LINE 87 "regression-compile-tmp/gpm.imp" 964 @ 8526: PUSH ST 965 @ 8529: PUSH S 966 @ 8532: ACCESS 967 @ 8533: PUSHI #0xffffc000 968 @ 8538: ASSVAL 88 h0=st(f-1) 969 @ 8539: LINE 88 "regression-compile-tmp/gpm.imp" 970 @ 8573: PUSH H0 971 @ 8576: PUSH ST 972 @ 8579: PUSH F 973 @ 8582: PUSHI #0x00000001 974 @ 8587: SUB 975 @ 8588: ACCESS 976 @ 8589: ASSVAL 89 f0=st(f) 977 @ 8590: LINE 89 "regression-compile-tmp/gpm.imp" 978 @ 8624: PUSH F0 979 @ 8627: PUSH ST 980 @ 8630: PUSH F 981 @ 8633: ACCESS 982 @ 8634: ASSVAL 90 st(f-1)=s-f+2 983 @ 8635: LINE 90 "regression-compile-tmp/gpm.imp" 984 @ 8669: PUSH ST 985 @ 8672: PUSH F 986 @ 8675: PUSHI #0x00000001 987 @ 8680: SUB 988 @ 8681: ACCESS 989 @ 8682: PUSH S 990 @ 8685: PUSH F 991 @ 8688: SUB 992 @ 8689: PUSHI #0x00000002 993 @ 8694: ADD 994 @ 8695: ASSVAL 91 st(f)=p 995 @ 8696: LINE 91 "regression-compile-tmp/gpm.imp" 996 @ 8730: PUSH ST 997 @ 8733: PUSH F 998 @ 8736: ACCESS 999 @ 8737: PUSH P 1000 @ 8740: ASSVAL 92 st(f+1)=c 1001 @ 8741: LINE 92 "regression-compile-tmp/gpm.imp" 1002 @ 8775: PUSH ST 1003 @ 8778: PUSH F 1004 @ 8781: PUSHI #0x00000001 1005 @ 8786: ADD 1006 @ 8787: ACCESS 1007 @ 8788: PUSH C 1008 @ 8791: ASSVAL 93 p=f 1009 @ 8792: LINE 93 "regression-compile-tmp/gpm.imp" 1010 @ 8826: PUSH P 1011 @ 8829: PUSH F 1012 @ 8832: ASSVAL 94 f=f0 1013 @ 8833: LINE 94 "regression-compile-tmp/gpm.imp" 1014 @ 8867: PUSH F 1015 @ 8870: PUSH F0 1016 @ 8873: ASSVAL 95 h=h0 1017 @ 8874: LINE 95 "regression-compile-tmp/gpm.imp" 1018 @ 8908: PUSH H 1019 @ 8911: PUSH H0 1020 @ 8914: ASSVAL 96 s=s+1 1021 @ 8915: LINE 96 "regression-compile-tmp/gpm.imp" 1022 @ 8949: PUSH S 1023 @ 8952: PUSH S 1024 @ 8955: PUSHI #0x00000001 1025 @ 8960: ADD 1026 @ 8961: ASSVAL 97 %unless h=0 %then st(h)=st(h)+st(p-1) 1027 @ 8962: LINE 97 "regression-compile-tmp/gpm.imp" 1028 @ 8996: PUSH H 1029 @ 8999: PUSHI #0x00000000 1030 @ 9004: JUMPIF = L_0004 1031 @ 9008: PUSH ST 1032 @ 9011: PUSH H 1033 @ 9014: ACCESS 1034 @ 9015: PUSH ST 1035 @ 9018: PUSH H 1036 @ 9021: ACCESS 1037 @ 9022: PUSH ST 1038 @ 9025: PUSH P 1039 @ 9028: PUSHI #0x00000001 1040 @ 9033: SUB 1041 @ 9034: ACCESS 1042 @ 9035: ADD 1043 @ 9036: ASSVAL 1044 @ 9037: LOCATE L_0004 98 find(p+2) 1045 @ 9040: LINE 98 "regression-compile-tmp/gpm.imp" 1046 @ 9074: PUSH FIND 1047 @ 9077: PUSH P 1048 @ 9080: PUSHI #0x00000002 1049 @ 9085: ADD 1050 @ 9086: ASSPAR 1051 @ 9087: CALL 99 %if st(w)<0 %then ->mcm(-st(w)) 1052 @ 9088: LINE 99 "regression-compile-tmp/gpm.imp" 1053 @ 9122: PUSH ST 1054 @ 9125: PUSH W 1055 @ 9128: ACCESS 1056 @ 9129: PUSHI #0x00000000 1057 @ 9134: JUMPIF >= L_0004 1058 @ 9138: PUSH ST 1059 @ 9141: PUSH W 1060 @ 9144: ACCESS 1061 @ 9145: NEGATE 1062 @ 9146: SJUMP 150 1063 @ 9149: LOCATE L_0004 100 c=w+1 1064 @ 9152: LINE 100 "regression-compile-tmp/gpm.imp" 1065 @ 9186: PUSH C 1066 @ 9189: PUSH W 1067 @ 9192: PUSHI #0x00000001 1068 @ 9197: ADD 1069 @ 9198: ASSVAL 101 ->start 102 1070 @ 9199: LINE 101 "regression-compile-tmp/gpm.imp" 1071 @ 9233: JUMP L_0097 103 loadarg:%if p=0 %then %start 1072 @ 9236: LINE 103 "regression-compile-tmp/gpm.imp" 1073 @ 9270: LABEL L_009c 1074 @ 9273: LINE 103 "regression-compile-tmp/gpm.imp" 1075 @ 9307: PUSH P 1076 @ 9310: PUSHI #0x00000000 1077 @ 9315: JUMPIF # L_0004 104 %if h=0 %then ->copy %else monitor(2) 1078 @ 9319: LINE 104 "regression-compile-tmp/gpm.imp" 1079 @ 9353: PUSH H 1080 @ 9356: PUSHI #0x00000000 1081 @ 9361: JUMPIF # L_0007 1082 @ 9365: JUMP L_009f 1083 @ 9368: LOCATE L_0007 1084 @ 9371: PUSH MONITOR 1085 @ 9374: PUSHI #0x00000002 1086 @ 9379: ASSPAR 1087 @ 9380: CALL 105 %finish 1088 @ 9381: LINE 105 "regression-compile-tmp/gpm.imp" 1089 @ 9415: LOCATE L_0004 106 nextch 1090 @ 9418: LINE 106 "regression-compile-tmp/gpm.imp" 1091 @ 9452: PUSH NEXTCH 1092 @ 9455: CALL 107 w=p+2 1093 @ 9456: LINE 107 "regression-compile-tmp/gpm.imp" 1094 @ 9490: PUSH W 1095 @ 9493: PUSH P 1096 @ 9496: PUSHI #0x00000002 1097 @ 9501: ADD 1098 @ 9502: ASSVAL 108 %if a<'0' %then monitor(3) 1099 @ 9503: LINE 108 "regression-compile-tmp/gpm.imp" 1100 @ 9537: PUSH A 1101 @ 9540: PUSHI #0x00000030 1102 @ 9545: JUMPIF >= L_0004 1103 @ 9549: PUSH MONITOR 1104 @ 9552: PUSHI #0x00000003 1105 @ 9557: ASSPAR 1106 @ 9558: CALL 1107 @ 9559: LOCATE L_0004 109 %if a>'0' %then %start 1108 @ 9562: LINE 109 "regression-compile-tmp/gpm.imp" 1109 @ 9596: PUSH A 1110 @ 9599: PUSHI #0x00000030 1111 @ 9604: JUMPIF <= L_0004 110 %for r=0,1,a-'0'-1 %cycle 1112 @ 9608: LINE 110 "regression-compile-tmp/gpm.imp" 1113 @ 9642: PUSH R 1114 @ 9645: PUSHI #0x00000001 1115 @ 9650: PUSH A 1116 @ 9653: PUSHI #0x00000030 1117 @ 9658: SUB 1118 @ 9659: PUSHI #0x00000001 1119 @ 9664: SUB 1120 @ 9665: PUSHI #0x00000000 1121 @ 9670: FOR L_0006 111 w=w+st(w) 1122 @ 9673: LINE 111 "regression-compile-tmp/gpm.imp" 1123 @ 9707: PUSH W 1124 @ 9710: PUSH W 1125 @ 9713: PUSH ST 1126 @ 9716: PUSH W 1127 @ 9719: ACCESS 1128 @ 9720: ADD 1129 @ 9721: ASSVAL 112 %if st(w)=marker %then monitor(4) 1130 @ 9722: LINE 112 "regression-compile-tmp/gpm.imp" 1131 @ 9756: PUSH ST 1132 @ 9759: PUSH W 1133 @ 9762: ACCESS 1134 @ 9763: PUSHI #0xffffc000 1135 @ 9768: JUMPIF # L_000a 1136 @ 9772: PUSH MONITOR 1137 @ 9775: PUSHI #0x00000004 1138 @ 9780: ASSPAR 1139 @ 9781: CALL 1140 @ 9782: LOCATE L_000a 113 %repeat 1141 @ 9785: LINE 113 "regression-compile-tmp/gpm.imp" 1142 @ 9819: REPEAT L_0006 1143 @ 9822: LOCATE L_0007 114 %finish 1144 @ 9825: LINE 114 "regression-compile-tmp/gpm.imp" 1145 @ 9859: LOCATE L_0004 115 %for r=1,1,st(w)-1 %cycle 1146 @ 9862: LINE 115 "regression-compile-tmp/gpm.imp" 1147 @ 9896: PUSH R 1148 @ 9899: PUSHI #0x00000001 1149 @ 9904: PUSH ST 1150 @ 9907: PUSH W 1151 @ 9910: ACCESS 1152 @ 9911: PUSHI #0x00000001 1153 @ 9916: SUB 1154 @ 9917: PUSHI #0x00000001 1155 @ 9922: FOR L_0003 116 a=st(w+r) 1156 @ 9925: LINE 116 "regression-compile-tmp/gpm.imp" 1157 @ 9959: PUSH A 1158 @ 9962: PUSH ST 1159 @ 9965: PUSH W 1160 @ 9968: PUSH R 1161 @ 9971: ADD 1162 @ 9972: ACCESS 1163 @ 9973: ASSVAL 117 load 1164 @ 9974: LINE 117 "regression-compile-tmp/gpm.imp" 1165 @ 10008: PUSH LOAD 1166 @ 10011: CALL 118 %repeat 1167 @ 10012: LINE 118 "regression-compile-tmp/gpm.imp" 1168 @ 10046: REPEAT L_0003 1169 @ 10049: LOCATE L_0004 119 ->start 120 1170 @ 10052: LINE 119 "regression-compile-tmp/gpm.imp" 1171 @ 10086: JUMP L_0097 121 endfn:%if f>p %then monitor(5) 1172 @ 10089: LINE 121 "regression-compile-tmp/gpm.imp" 1173 @ 10123: LABEL L_009d 1174 @ 10126: LINE 121 "regression-compile-tmp/gpm.imp" 1175 @ 10160: PUSH F 1176 @ 10163: PUSH P 1177 @ 10166: JUMPIF <= L_0004 1178 @ 10170: PUSH MONITOR 1179 @ 10173: PUSHI #0x00000005 1180 @ 10178: ASSPAR 1181 @ 10179: CALL 1182 @ 10180: LOCATE L_0004 122 st(s)=e 1183 @ 10183: LINE 122 "regression-compile-tmp/gpm.imp" 1184 @ 10217: PUSH ST 1185 @ 10220: PUSH S 1186 @ 10223: ACCESS 1187 @ 10224: PUSH E 1188 @ 10227: ASSVAL 123 a=s 1189 @ 10228: LINE 123 "regression-compile-tmp/gpm.imp" 1190 @ 10262: PUSH A 1191 @ 10265: PUSH S 1192 @ 10268: ASSVAL 124 %while st(a)>=p-1+st(p-1) %cycle 1193 @ 10269: LINE 124 "regression-compile-tmp/gpm.imp" 1194 @ 10303: LOCATE L_0003 1195 @ 10306: PUSH ST 1196 @ 10309: PUSH A 1197 @ 10312: ACCESS 1198 @ 10313: PUSH P 1199 @ 10316: PUSHI #0x00000001 1200 @ 10321: SUB 1201 @ 10322: PUSH ST 1202 @ 10325: PUSH P 1203 @ 10328: PUSHI #0x00000001 1204 @ 10333: SUB 1205 @ 10334: ACCESS 1206 @ 10335: ADD 1207 @ 10336: JUMPIF < L_0004 125 e0=st(a) 1208 @ 10340: LINE 125 "regression-compile-tmp/gpm.imp" 1209 @ 10374: PUSH E0 1210 @ 10377: PUSH ST 1211 @ 10380: PUSH A 1212 @ 10383: ACCESS 1213 @ 10384: ASSVAL 126 st(a)=e0-st(p-1) 1214 @ 10385: LINE 126 "regression-compile-tmp/gpm.imp" 1215 @ 10419: PUSH ST 1216 @ 10422: PUSH A 1217 @ 10425: ACCESS 1218 @ 10426: PUSH E0 1219 @ 10429: PUSH ST 1220 @ 10432: PUSH P 1221 @ 10435: PUSHI #0x00000001 1222 @ 10440: SUB 1223 @ 10441: ACCESS 1224 @ 10442: SUB 1225 @ 10443: ASSVAL 127 a=e0 1226 @ 10444: LINE 127 "regression-compile-tmp/gpm.imp" 1227 @ 10478: PUSH A 1228 @ 10481: PUSH E0 1229 @ 10484: ASSVAL 128 %repeat 1230 @ 10485: LINE 128 "regression-compile-tmp/gpm.imp" 1231 @ 10519: REPEAT L_0003 1232 @ 10522: LOCATE L_0004 129 w=st(a) 1233 @ 10525: LINE 129 "regression-compile-tmp/gpm.imp" 1234 @ 10559: PUSH W 1235 @ 10562: PUSH ST 1236 @ 10565: PUSH A 1237 @ 10568: ACCESS 1238 @ 10569: ASSVAL 130 w=st(w) %while w>p-1 1239 @ 10570: LINE 130 "regression-compile-tmp/gpm.imp" 1240 @ 10604: LOCATE L_0003 1241 @ 10607: PUSH W 1242 @ 10610: PUSH P 1243 @ 10613: PUSHI #0x00000001 1244 @ 10618: SUB 1245 @ 10619: JUMPIF <= L_0004 1246 @ 10623: PUSH W 1247 @ 10626: PUSH ST 1248 @ 10629: PUSH W 1249 @ 10632: ACCESS 1250 @ 10633: ASSVAL 1251 @ 10634: REPEAT L_0003 1252 @ 10637: LOCATE L_0004 131 st(a)=w 1253 @ 10640: LINE 131 "regression-compile-tmp/gpm.imp" 1254 @ 10674: PUSH ST 1255 @ 10677: PUSH A 1256 @ 10680: ACCESS 1257 @ 10681: PUSH W 1258 @ 10684: ASSVAL 132 e=st(s) 1259 @ 10685: LINE 132 "regression-compile-tmp/gpm.imp" 1260 @ 10719: PUSH E 1261 @ 10722: PUSH ST 1262 @ 10725: PUSH S 1263 @ 10728: ACCESS 1264 @ 10729: ASSVAL 133 %unless h=0 %then %start 1265 @ 10730: LINE 133 "regression-compile-tmp/gpm.imp" 1266 @ 10764: PUSH H 1267 @ 10767: PUSHI #0x00000000 1268 @ 10772: JUMPIF = L_0004 134 %if h>p %then h=h-st(p-1) %else st(h)=st(h)-st(p-1) 1269 @ 10776: LINE 134 "regression-compile-tmp/gpm.imp" 1270 @ 10810: PUSH H 1271 @ 10813: PUSH P 1272 @ 10816: JUMPIF <= L_0007 1273 @ 10820: PUSH H 1274 @ 10823: PUSH H 1275 @ 10826: PUSH ST 1276 @ 10829: PUSH P 1277 @ 10832: PUSHI #0x00000001 1278 @ 10837: SUB 1279 @ 10838: ACCESS 1280 @ 10839: SUB 1281 @ 10840: ASSVAL 1282 @ 10841: GOTO L_0006 1283 @ 10844: LOCATE L_0007 1284 @ 10847: PUSH ST 1285 @ 10850: PUSH H 1286 @ 10853: ACCESS 1287 @ 10854: PUSH ST 1288 @ 10857: PUSH H 1289 @ 10860: ACCESS 1290 @ 10861: PUSH ST 1291 @ 10864: PUSH P 1292 @ 10867: PUSHI #0x00000001 1293 @ 10872: SUB 1294 @ 10873: ACCESS 1295 @ 10874: SUB 1296 @ 10875: ASSVAL 1297 @ 10876: LOCATE L_0006 135 %finish 1298 @ 10879: LINE 135 "regression-compile-tmp/gpm.imp" 1299 @ 10913: LOCATE L_0004 136 a=p-1 1300 @ 10916: LINE 136 "regression-compile-tmp/gpm.imp" 1301 @ 10950: PUSH A 1302 @ 10953: PUSH P 1303 @ 10956: PUSHI #0x00000001 1304 @ 10961: SUB 1305 @ 10962: ASSVAL 137 w=a+st(p-1) 1306 @ 10963: LINE 137 "regression-compile-tmp/gpm.imp" 1307 @ 10997: PUSH W 1308 @ 11000: PUSH A 1309 @ 11003: PUSH ST 1310 @ 11006: PUSH P 1311 @ 11009: PUSHI #0x00000001 1312 @ 11014: SUB 1313 @ 11015: ACCESS 1314 @ 11016: ADD 1315 @ 11017: ASSVAL 138 c=st(p+1) 1316 @ 11018: LINE 138 "regression-compile-tmp/gpm.imp" 1317 @ 11052: PUSH C 1318 @ 11055: PUSH ST 1319 @ 11058: PUSH P 1320 @ 11061: PUSHI #0x00000001 1321 @ 11066: ADD 1322 @ 11067: ACCESS 1323 @ 11068: ASSVAL 139 s=s-st(p-1) 1324 @ 11069: LINE 139 "regression-compile-tmp/gpm.imp" 1325 @ 11103: PUSH S 1326 @ 11106: PUSH S 1327 @ 11109: PUSH ST 1328 @ 11112: PUSH P 1329 @ 11115: PUSHI #0x00000001 1330 @ 11120: SUB 1331 @ 11121: ACCESS 1332 @ 11122: SUB 1333 @ 11123: ASSVAL 140 p=st(p) 1334 @ 11124: LINE 140 "regression-compile-tmp/gpm.imp" 1335 @ 11158: PUSH P 1336 @ 11161: PUSH ST 1337 @ 11164: PUSH P 1338 @ 11167: ACCESS 1339 @ 11168: ASSVAL 141 st(a)=st(w) %and a=a+1 %and w=w+1 %while a#s 1340 @ 11169: LINE 141 "regression-compile-tmp/gpm.imp" 1341 @ 11203: LOCATE L_0003 1342 @ 11206: PUSH A 1343 @ 11209: PUSH S 1344 @ 11212: JUMPIF = L_0004 1345 @ 11216: PUSH ST 1346 @ 11219: PUSH A 1347 @ 11222: ACCESS 1348 @ 11223: PUSH ST 1349 @ 11226: PUSH W 1350 @ 11229: ACCESS 1351 @ 11230: ASSVAL 1352 @ 11231: PUSH A 1353 @ 11234: PUSH A 1354 @ 11237: PUSHI #0x00000001 1355 @ 11242: ADD 1356 @ 11243: ASSVAL 1357 @ 11244: PUSH W 1358 @ 11247: PUSH W 1359 @ 11250: PUSHI #0x00000001 1360 @ 11255: ADD 1361 @ 11256: ASSVAL 1362 @ 11257: REPEAT L_0003 1363 @ 11260: LOCATE L_0004 142 ->start 143 1364 @ 11263: LINE 142 "regression-compile-tmp/gpm.imp" 1365 @ 11297: JUMP L_0097 144 exit:%unless c=h=0 %then monitor(8) 1366 @ 11300: LINE 144 "regression-compile-tmp/gpm.imp" 1367 @ 11334: LABEL L_009e 1368 @ 11337: LINE 144 "regression-compile-tmp/gpm.imp" 1369 @ 11371: PUSH C 1370 @ 11374: PUSH H 1371 @ 11377: JUMPIFD # L_0005 1372 @ 11381: PUSHI #0x00000000 1373 @ 11386: JUMPIF = L_0004 1374 @ 11390: LOCATE L_0005 1375 @ 11393: PUSH MONITOR 1376 @ 11396: PUSHI #0x00000008 1377 @ 11401: ASSPAR 1378 @ 11402: CALL 1379 @ 11403: LOCATE L_0004 145 %stop 146 1380 @ 11406: LINE 145 "regression-compile-tmp/gpm.imp" 1381 @ 11440: STOP 147 mcm(1):! def 1382 @ 11441: LINE 147 "regression-compile-tmp/gpm.imp" 1383 @ 11475: PUSHI #0x00000001 1384 @ 11480: SLABEL 150 148 %unless h=0 %then st(h)=st(h)-st(p-1)+6 1385 @ 11483: LINE 148 "regression-compile-tmp/gpm.imp" 1386 @ 11517: PUSH H 1387 @ 11520: PUSHI #0x00000000 1388 @ 11525: JUMPIF = L_0004 1389 @ 11529: PUSH ST 1390 @ 11532: PUSH H 1391 @ 11535: ACCESS 1392 @ 11536: PUSH ST 1393 @ 11539: PUSH H 1394 @ 11542: ACCESS 1395 @ 11543: PUSH ST 1396 @ 11546: PUSH P 1397 @ 11549: PUSHI #0x00000001 1398 @ 11554: SUB 1399 @ 11555: ACCESS 1400 @ 11556: SUB 1401 @ 11557: PUSHI #0x00000006 1402 @ 11562: ADD 1403 @ 11563: ASSVAL 1404 @ 11564: LOCATE L_0004 149 st(p-1)=6 1405 @ 11567: LINE 149 "regression-compile-tmp/gpm.imp" 1406 @ 11601: PUSH ST 1407 @ 11604: PUSH P 1408 @ 11607: PUSHI #0x00000001 1409 @ 11612: SUB 1410 @ 11613: ACCESS 1411 @ 11614: PUSHI #0x00000006 1412 @ 11619: ASSVAL 150 st(p+5)=e 1413 @ 11620: LINE 150 "regression-compile-tmp/gpm.imp" 1414 @ 11654: PUSH ST 1415 @ 11657: PUSH P 1416 @ 11660: PUSHI #0x00000005 1417 @ 11665: ADD 1418 @ 11666: ACCESS 1419 @ 11667: PUSH E 1420 @ 11670: ASSVAL 151 e=p+5 1421 @ 11671: LINE 151 "regression-compile-tmp/gpm.imp" 1422 @ 11705: PUSH E 1423 @ 11708: PUSH P 1424 @ 11711: PUSHI #0x00000005 1425 @ 11716: ADD 1426 @ 11717: ASSVAL 152 ->endfn 153 1427 @ 11718: LINE 152 "regression-compile-tmp/gpm.imp" 1428 @ 11752: JUMP L_009d 154 mcm(2):! val 1429 @ 11755: LINE 154 "regression-compile-tmp/gpm.imp" 1430 @ 11789: PUSHI #0x00000002 1431 @ 11794: SLABEL 150 155 find(p+6) 1432 @ 11797: LINE 155 "regression-compile-tmp/gpm.imp" 1433 @ 11831: PUSH FIND 1434 @ 11834: PUSH P 1435 @ 11837: PUSHI #0x00000006 1436 @ 11842: ADD 1437 @ 11843: ASSPAR 1438 @ 11844: CALL 156 a=st(w+1) %and w=w+1 %and load %while st(w+1)#marker 1439 @ 11845: LINE 156 "regression-compile-tmp/gpm.imp" 1440 @ 11879: LOCATE L_0003 1441 @ 11882: PUSH ST 1442 @ 11885: PUSH W 1443 @ 11888: PUSHI #0x00000001 1444 @ 11893: ADD 1445 @ 11894: ACCESS 1446 @ 11895: PUSHI #0xffffc000 1447 @ 11900: JUMPIF = L_0004 1448 @ 11904: PUSH A 1449 @ 11907: PUSH ST 1450 @ 11910: PUSH W 1451 @ 11913: PUSHI #0x00000001 1452 @ 11918: ADD 1453 @ 11919: ACCESS 1454 @ 11920: ASSVAL 1455 @ 11921: PUSH W 1456 @ 11924: PUSH W 1457 @ 11927: PUSHI #0x00000001 1458 @ 11932: ADD 1459 @ 11933: ASSVAL 1460 @ 11934: PUSH LOAD 1461 @ 11937: CALL 1462 @ 11938: REPEAT L_0003 1463 @ 11941: LOCATE L_0004 157 ->endfn 158 1464 @ 11944: LINE 157 "regression-compile-tmp/gpm.imp" 1465 @ 11978: JUMP L_009d 159 mcm(3):! update 1466 @ 11981: LINE 159 "regression-compile-tmp/gpm.imp" 1467 @ 12015: PUSHI #0x00000003 1468 @ 12020: SLABEL 150 160 find(p+9) 1469 @ 12023: LINE 160 "regression-compile-tmp/gpm.imp" 1470 @ 12057: PUSH FIND 1471 @ 12060: PUSH P 1472 @ 12063: PUSHI #0x00000009 1473 @ 12068: ADD 1474 @ 12069: ASSPAR 1475 @ 12070: CALL 161 a=p+9+st(p+9) 1476 @ 12071: LINE 161 "regression-compile-tmp/gpm.imp" 1477 @ 12105: PUSH A 1478 @ 12108: PUSH P 1479 @ 12111: PUSHI #0x00000009 1480 @ 12116: ADD 1481 @ 12117: PUSH ST 1482 @ 12120: PUSH P 1483 @ 12123: PUSHI #0x00000009 1484 @ 12128: ADD 1485 @ 12129: ACCESS 1486 @ 12130: ADD 1487 @ 12131: ASSVAL 162 %if st(a)>st(w) %then monitor(9) 1488 @ 12132: LINE 162 "regression-compile-tmp/gpm.imp" 1489 @ 12166: PUSH ST 1490 @ 12169: PUSH A 1491 @ 12172: ACCESS 1492 @ 12173: PUSH ST 1493 @ 12176: PUSH W 1494 @ 12179: ACCESS 1495 @ 12180: JUMPIF <= L_0004 1496 @ 12184: PUSH MONITOR 1497 @ 12187: PUSHI #0x00000009 1498 @ 12192: ASSPAR 1499 @ 12193: CALL 1500 @ 12194: LOCATE L_0004 163 %for r=1,1,st(a) %cycle 1501 @ 12197: LINE 163 "regression-compile-tmp/gpm.imp" 1502 @ 12231: PUSH R 1503 @ 12234: PUSHI #0x00000001 1504 @ 12239: PUSH ST 1505 @ 12242: PUSH A 1506 @ 12245: ACCESS 1507 @ 12246: PUSHI #0x00000001 1508 @ 12251: FOR L_0003 164 st(w+r)=st(a+r) 1509 @ 12254: LINE 164 "regression-compile-tmp/gpm.imp" 1510 @ 12288: PUSH ST 1511 @ 12291: PUSH W 1512 @ 12294: PUSH R 1513 @ 12297: ADD 1514 @ 12298: ACCESS 1515 @ 12299: PUSH ST 1516 @ 12302: PUSH A 1517 @ 12305: PUSH R 1518 @ 12308: ADD 1519 @ 12309: ACCESS 1520 @ 12310: ASSVAL 165 %repeat 1521 @ 12311: LINE 165 "regression-compile-tmp/gpm.imp" 1522 @ 12345: REPEAT L_0003 1523 @ 12348: LOCATE L_0004 166 ->endfn 167 1524 @ 12351: LINE 166 "regression-compile-tmp/gpm.imp" 1525 @ 12385: JUMP L_009d 168 mcm(4):! bin 1526 @ 12388: LINE 168 "regression-compile-tmp/gpm.imp" 1527 @ 12422: PUSHI #0x00000004 1528 @ 12427: SLABEL 150 169 w=0 1529 @ 12430: LINE 169 "regression-compile-tmp/gpm.imp" 1530 @ 12464: PUSH W 1531 @ 12467: PUSHI #0x00000000 1532 @ 12472: ASSVAL 170 %if st(p+7)='+' %or st(p+7)='-' %then a=p+8 %else a=p+7 1533 @ 12473: LINE 170 "regression-compile-tmp/gpm.imp" 1534 @ 12507: PUSH ST 1535 @ 12510: PUSH P 1536 @ 12513: PUSHI #0x00000007 1537 @ 12518: ADD 1538 @ 12519: ACCESS 1539 @ 12520: PUSHI #0x0000002b 1540 @ 12525: JUMPIF = L_0005 1541 @ 12529: PUSH ST 1542 @ 12532: PUSH P 1543 @ 12535: PUSHI #0x00000007 1544 @ 12540: ADD 1545 @ 12541: ACCESS 1546 @ 12542: PUSHI #0x0000002d 1547 @ 12547: JUMPIF # L_0004 1548 @ 12551: LOCATE L_0005 1549 @ 12554: PUSH A 1550 @ 12557: PUSH P 1551 @ 12560: PUSHI #0x00000008 1552 @ 12565: ADD 1553 @ 12566: ASSVAL 1554 @ 12567: GOTO L_0003 1555 @ 12570: LOCATE L_0004 1556 @ 12573: PUSH A 1557 @ 12576: PUSH P 1558 @ 12579: PUSHI #0x00000007 1559 @ 12584: ADD 1560 @ 12585: ASSVAL 1561 @ 12586: LOCATE L_0003 171 %while st(a)#marker %cycle 1562 @ 12589: LINE 171 "regression-compile-tmp/gpm.imp" 1563 @ 12623: LOCATE L_0003 1564 @ 12626: PUSH ST 1565 @ 12629: PUSH A 1566 @ 12632: ACCESS 1567 @ 12633: PUSHI #0xffffc000 1568 @ 12638: JUMPIF = L_0004 172 %unless '0'<=st(a)<='9' %then monitor(10) 1569 @ 12642: LINE 172 "regression-compile-tmp/gpm.imp" 1570 @ 12676: PUSHI #0x00000030 1571 @ 12681: PUSH ST 1572 @ 12684: PUSH A 1573 @ 12687: ACCESS 1574 @ 12688: JUMPIFD > L_0008 1575 @ 12692: PUSHI #0x00000039 1576 @ 12697: JUMPIF <= L_0007 1577 @ 12701: LOCATE L_0008 1578 @ 12704: PUSH MONITOR 1579 @ 12707: PUSHI #0x0000000a 1580 @ 12712: ASSPAR 1581 @ 12713: CALL 1582 @ 12714: LOCATE L_0007 173 w=10*w+st(a)-'0' 1583 @ 12717: LINE 173 "regression-compile-tmp/gpm.imp" 1584 @ 12751: PUSH W 1585 @ 12754: PUSHI #0x0000000a 1586 @ 12759: PUSH W 1587 @ 12762: MUL 1588 @ 12763: PUSH ST 1589 @ 12766: PUSH A 1590 @ 12769: ACCESS 1591 @ 12770: ADD 1592 @ 12771: PUSHI #0x00000030 1593 @ 12776: SUB 1594 @ 12777: ASSVAL 174 a=a+1 1595 @ 12778: LINE 174 "regression-compile-tmp/gpm.imp" 1596 @ 12812: PUSH A 1597 @ 12815: PUSH A 1598 @ 12818: PUSHI #0x00000001 1599 @ 12823: ADD 1600 @ 12824: ASSVAL 175 %repeat 1601 @ 12825: LINE 175 "regression-compile-tmp/gpm.imp" 1602 @ 12859: REPEAT L_0003 1603 @ 12862: LOCATE L_0004 176 %if st(p+7)='-' %then st(s)=-w %else st(s)=w 1604 @ 12865: LINE 176 "regression-compile-tmp/gpm.imp" 1605 @ 12899: PUSH ST 1606 @ 12902: PUSH P 1607 @ 12905: PUSHI #0x00000007 1608 @ 12910: ADD 1609 @ 12911: ACCESS 1610 @ 12912: PUSHI #0x0000002d 1611 @ 12917: JUMPIF # L_0004 1612 @ 12921: PUSH ST 1613 @ 12924: PUSH S 1614 @ 12927: ACCESS 1615 @ 12928: PUSH W 1616 @ 12931: NEGATE 1617 @ 12932: ASSVAL 1618 @ 12933: GOTO L_0003 1619 @ 12936: LOCATE L_0004 1620 @ 12939: PUSH ST 1621 @ 12942: PUSH S 1622 @ 12945: ACCESS 1623 @ 12946: PUSH W 1624 @ 12949: ASSVAL 1625 @ 12950: LOCATE L_0003 177 s=s+1 1626 @ 12953: LINE 177 "regression-compile-tmp/gpm.imp" 1627 @ 12987: PUSH S 1628 @ 12990: PUSH S 1629 @ 12993: PUSHI #0x00000001 1630 @ 12998: ADD 1631 @ 12999: ASSVAL 178 ->endfn 179 1632 @ 13000: LINE 178 "regression-compile-tmp/gpm.imp" 1633 @ 13034: JUMP L_009d 180 mcm(5):! dec 1634 @ 13037: LINE 180 "regression-compile-tmp/gpm.imp" 1635 @ 13071: PUSHI #0x00000005 1636 @ 13076: SLABEL 150 181 w=st(p+7) 1637 @ 13079: LINE 181 "regression-compile-tmp/gpm.imp" 1638 @ 13113: PUSH W 1639 @ 13116: PUSH ST 1640 @ 13119: PUSH P 1641 @ 13122: PUSHI #0x00000007 1642 @ 13127: ADD 1643 @ 13128: ACCESS 1644 @ 13129: ASSVAL 182 %if w<0 %then w=-w %and a='-' %and load 1645 @ 13130: LINE 182 "regression-compile-tmp/gpm.imp" 1646 @ 13164: PUSH W 1647 @ 13167: PUSHI #0x00000000 1648 @ 13172: JUMPIF >= L_0004 1649 @ 13176: PUSH W 1650 @ 13179: PUSH W 1651 @ 13182: NEGATE 1652 @ 13183: ASSVAL 1653 @ 13184: PUSH A 1654 @ 13187: PUSHI #0x0000002d 1655 @ 13192: ASSVAL 1656 @ 13193: PUSH LOAD 1657 @ 13196: CALL 1658 @ 13197: LOCATE L_0004 183 r=1 1659 @ 13200: LINE 183 "regression-compile-tmp/gpm.imp" 1660 @ 13234: PUSH R 1661 @ 13237: PUSHI #0x00000001 1662 @ 13242: ASSVAL 184 r=10*r %while 10*r<=w 1663 @ 13243: LINE 184 "regression-compile-tmp/gpm.imp" 1664 @ 13277: LOCATE L_0003 1665 @ 13280: PUSHI #0x0000000a 1666 @ 13285: PUSH R 1667 @ 13288: MUL 1668 @ 13289: PUSH W 1669 @ 13292: JUMPIF > L_0004 1670 @ 13296: PUSH R 1671 @ 13299: PUSHI #0x0000000a 1672 @ 13304: PUSH R 1673 @ 13307: MUL 1674 @ 13308: ASSVAL 1675 @ 13309: REPEAT L_0003 1676 @ 13312: LOCATE L_0004 185 a=w//r+'0' %and load %and w=w-r*(a-'0')%and r=r//10 %while r>=1 1677 @ 13315: LINE 185 "regression-compile-tmp/gpm.imp" 1678 @ 13349: LOCATE L_0003 1679 @ 13352: PUSH R 1680 @ 13355: PUSHI #0x00000001 1681 @ 13360: JUMPIF < L_0004 1682 @ 13364: PUSH A 1683 @ 13367: PUSH W 1684 @ 13370: PUSH R 1685 @ 13373: QUOT 1686 @ 13374: PUSHI #0x00000030 1687 @ 13379: ADD 1688 @ 13380: ASSVAL 1689 @ 13381: PUSH LOAD 1690 @ 13384: CALL 1691 @ 13385: PUSH W 1692 @ 13388: PUSH W 1693 @ 13391: PUSH R 1694 @ 13394: PUSH A 1695 @ 13397: PUSHI #0x00000030 1696 @ 13402: SUB 1697 @ 13403: MUL 1698 @ 13404: SUB 1699 @ 13405: ASSVAL 1700 @ 13406: PUSH R 1701 @ 13409: PUSH R 1702 @ 13412: PUSHI #0x0000000a 1703 @ 13417: QUOT 1704 @ 13418: ASSVAL 1705 @ 13419: REPEAT L_0003 1706 @ 13422: LOCATE L_0004 186 ->endfn 187 1707 @ 13425: LINE 186 "regression-compile-tmp/gpm.imp" 1708 @ 13459: JUMP L_009d 188 mcm(6):! bar 1709 @ 13462: LINE 188 "regression-compile-tmp/gpm.imp" 1710 @ 13496: PUSHI #0x00000006 1711 @ 13501: SLABEL 150 189 w=st(p+9) 1712 @ 13504: LINE 189 "regression-compile-tmp/gpm.imp" 1713 @ 13538: PUSH W 1714 @ 13541: PUSH ST 1715 @ 13544: PUSH P 1716 @ 13547: PUSHI #0x00000009 1717 @ 13552: ADD 1718 @ 13553: ACCESS 1719 @ 13554: ASSVAL 190 a=st(p+11) 1720 @ 13555: LINE 190 "regression-compile-tmp/gpm.imp" 1721 @ 13589: PUSH A 1722 @ 13592: PUSH ST 1723 @ 13595: PUSH P 1724 @ 13598: PUSHI #0x0000000b 1725 @ 13603: ADD 1726 @ 13604: ACCESS 1727 @ 13605: ASSVAL 191 %if st(p+7)='+' %then a=w+a 1728 @ 13606: LINE 191 "regression-compile-tmp/gpm.imp" 1729 @ 13640: PUSH ST 1730 @ 13643: PUSH P 1731 @ 13646: PUSHI #0x00000007 1732 @ 13651: ADD 1733 @ 13652: ACCESS 1734 @ 13653: PUSHI #0x0000002b 1735 @ 13658: JUMPIF # L_0004 1736 @ 13662: PUSH A 1737 @ 13665: PUSH W 1738 @ 13668: PUSH A 1739 @ 13671: ADD 1740 @ 13672: ASSVAL 1741 @ 13673: LOCATE L_0004 192 %if st(p+7)='-' %then a=w-a 1742 @ 13676: LINE 192 "regression-compile-tmp/gpm.imp" 1743 @ 13710: PUSH ST 1744 @ 13713: PUSH P 1745 @ 13716: PUSHI #0x00000007 1746 @ 13721: ADD 1747 @ 13722: ACCESS 1748 @ 13723: PUSHI #0x0000002d 1749 @ 13728: JUMPIF # L_0004 1750 @ 13732: PUSH A 1751 @ 13735: PUSH W 1752 @ 13738: PUSH A 1753 @ 13741: SUB 1754 @ 13742: ASSVAL 1755 @ 13743: LOCATE L_0004 193 %if st(p+7)='*' %then a=w*a 1756 @ 13746: LINE 193 "regression-compile-tmp/gpm.imp" 1757 @ 13780: PUSH ST 1758 @ 13783: PUSH P 1759 @ 13786: PUSHI #0x00000007 1760 @ 13791: ADD 1761 @ 13792: ACCESS 1762 @ 13793: PUSHI #0x0000002a 1763 @ 13798: JUMPIF # L_0004 1764 @ 13802: PUSH A 1765 @ 13805: PUSH W 1766 @ 13808: PUSH A 1767 @ 13811: MUL 1768 @ 13812: ASSVAL 1769 @ 13813: LOCATE L_0004 194 %if st(p+7)='/' %then a=w//a 1770 @ 13816: LINE 194 "regression-compile-tmp/gpm.imp" 1771 @ 13850: PUSH ST 1772 @ 13853: PUSH P 1773 @ 13856: PUSHI #0x00000007 1774 @ 13861: ADD 1775 @ 13862: ACCESS 1776 @ 13863: PUSHI #0x0000002f 1777 @ 13868: JUMPIF # L_0004 1778 @ 13872: PUSH A 1779 @ 13875: PUSH W 1780 @ 13878: PUSH A 1781 @ 13881: QUOT 1782 @ 13882: ASSVAL 1783 @ 13883: LOCATE L_0004 195 %if st(p+7)='r' %then a=w-w//a*a 1784 @ 13886: LINE 195 "regression-compile-tmp/gpm.imp" 1785 @ 13920: PUSH ST 1786 @ 13923: PUSH P 1787 @ 13926: PUSHI #0x00000007 1788 @ 13931: ADD 1789 @ 13932: ACCESS 1790 @ 13933: PUSHI #0x00000072 1791 @ 13938: JUMPIF # L_0004 1792 @ 13942: PUSH A 1793 @ 13945: PUSH W 1794 @ 13948: PUSH W 1795 @ 13951: PUSH A 1796 @ 13954: QUOT 1797 @ 13955: PUSH A 1798 @ 13958: MUL 1799 @ 13959: SUB 1800 @ 13960: ASSVAL 1801 @ 13961: LOCATE L_0004 196 load 1802 @ 13964: LINE 196 "regression-compile-tmp/gpm.imp" 1803 @ 13998: PUSH LOAD 1804 @ 14001: CALL 197 ->endfn 198 199 {------------------------------------------------------------------------------} 200 1805 @ 14002: LINE 197 "regression-compile-tmp/gpm.imp" 1806 @ 14036: JUMP L_009d 201 %routine load 1807 @ 14039: LINE 201 "regression-compile-tmp/gpm.imp" 1808 @ 14073: DEF LOAD (_lev0id0_LOAD) p1=V_0081 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1809 @ 14089: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1810 @ 14090: FINISH ) {lev=2} 202 %if h=0 %then print symbol(a) %else st(s)=a %and s=s+1 1811 @ 14091: LINE 202 "regression-compile-tmp/gpm.imp" 1812 @ 14125: PUSH H 1813 @ 14128: PUSHI #0x00000000 1814 @ 14133: JUMPIF # L_0004 1815 @ 14137: PUSH PRINTSYMBOL 1816 @ 14140: PUSH A 1817 @ 14143: ASSPAR 1818 @ 14144: CALL 1819 @ 14145: GOTO L_0003 1820 @ 14148: LOCATE L_0004 1821 @ 14151: PUSH ST 1822 @ 14154: PUSH S 1823 @ 14157: ACCESS 1824 @ 14158: PUSH A 1825 @ 14161: ASSVAL 1826 @ 14162: PUSH S 1827 @ 14165: PUSH S 1828 @ 14168: PUSHI #0x00000001 1829 @ 14173: ADD 1830 @ 14174: ASSVAL 1831 @ 14175: LOCATE L_0003 203 %end 204 205 {------------------------------------------------------------------------------} 206 1832 @ 14178: LINE 203 "regression-compile-tmp/gpm.imp" 1833 @ 14212: END _lev0id0_LOAD {lev=2 --> 1} 207 %routine nextch 1834 @ 14213: LINE 207 "regression-compile-tmp/gpm.imp" 1835 @ 14247: DEF NEXTCH (_lev0id0_NEXTCH) p1=V_0082 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1836 @ 14265: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1837 @ 14266: FINISH ) {lev=2} 208 %if c=0 %then read symbol(a) %else a=st(c) %and c=c+1 1838 @ 14267: LINE 208 "regression-compile-tmp/gpm.imp" 1839 @ 14301: PUSH C 1840 @ 14304: PUSHI #0x00000000 1841 @ 14309: JUMPIF # L_0004 1842 @ 14313: PUSH READSYMBOL 1843 @ 14316: PUSH A 1844 @ 14319: ASSPAR 1845 @ 14320: CALL 1846 @ 14321: GOTO L_0003 1847 @ 14324: LOCATE L_0004 1848 @ 14327: PUSH A 1849 @ 14330: PUSH ST 1850 @ 14333: PUSH C 1851 @ 14336: ACCESS 1852 @ 14337: ASSVAL 1853 @ 14338: PUSH C 1854 @ 14341: PUSH C 1855 @ 14344: PUSHI #0x00000001 1856 @ 14349: ADD 1857 @ 14350: ASSVAL 1858 @ 14351: LOCATE L_0003 209 %end 210 211 {------------------------------------------------------------------------------} 212 1859 @ 14354: LINE 209 "regression-compile-tmp/gpm.imp" 1860 @ 14388: END _lev0id0_NEXTCH {lev=2 --> 1} 213 %routine find(%integer x) 1861 @ 14389: LINE 213 "regression-compile-tmp/gpm.imp" 1862 @ 14423: DEF FIND (_lev0id0_FIND) p1=V_0083 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1863 @ 14439: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1864 @ 14440: DEF X p1=V_00a0 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 1865 @ 14453: FINISH ) {lev=2} 214 a=e 1866 @ 14454: LINE 214 "regression-compile-tmp/gpm.imp" 1867 @ 14488: PUSH A 1868 @ 14491: PUSH E 1869 @ 14494: ASSVAL 215 w=x 1870 @ 14495: LINE 215 "regression-compile-tmp/gpm.imp" 1871 @ 14529: PUSH W 1872 @ 14532: PUSH X 1873 @ 14535: ASSVAL 216 again: %for r=0,1,st(w)-1 %cycle 1874 @ 14536: LINE 216 "regression-compile-tmp/gpm.imp" 1875 @ 14570: LABEL L_00a1 1876 @ 14573: LINE 216 "regression-compile-tmp/gpm.imp" 1877 @ 14607: PUSH R 1878 @ 14610: PUSHI #0x00000001 1879 @ 14615: PUSH ST 1880 @ 14618: PUSH W 1881 @ 14621: ACCESS 1882 @ 14622: PUSHI #0x00000001 1883 @ 14627: SUB 1884 @ 14628: PUSHI #0x00000000 1885 @ 14633: FOR L_0003 217 %if st(w+r)#st(a+r+1) %then ->next 1886 @ 14636: LINE 217 "regression-compile-tmp/gpm.imp" 1887 @ 14670: PUSH ST 1888 @ 14673: PUSH W 1889 @ 14676: PUSH R 1890 @ 14679: ADD 1891 @ 14680: ACCESS 1892 @ 14681: PUSH ST 1893 @ 14684: PUSH A 1894 @ 14687: PUSH R 1895 @ 14690: ADD 1896 @ 14691: PUSHI #0x00000001 1897 @ 14696: ADD 1898 @ 14697: ACCESS 1899 @ 14698: JUMPIF = L_0007 1900 @ 14702: JUMP L_00a2 1901 @ 14705: LOCATE L_0007 218 %repeat 1902 @ 14708: LINE 218 "regression-compile-tmp/gpm.imp" 1903 @ 14742: REPEAT L_0003 1904 @ 14745: LOCATE L_0004 219 w=a+1+st(w) 1905 @ 14748: LINE 219 "regression-compile-tmp/gpm.imp" 1906 @ 14782: PUSH W 1907 @ 14785: PUSH A 1908 @ 14788: PUSHI #0x00000001 1909 @ 14793: ADD 1910 @ 14794: PUSH ST 1911 @ 14797: PUSH W 1912 @ 14800: ACCESS 1913 @ 14801: ADD 1914 @ 14802: ASSVAL 220 %return 1915 @ 14803: LINE 220 "regression-compile-tmp/gpm.imp" 1916 @ 14837: RETURN 221 next:a=st(a) 1917 @ 14838: LINE 221 "regression-compile-tmp/gpm.imp" 1918 @ 14872: LABEL L_00a2 1919 @ 14875: LINE 221 "regression-compile-tmp/gpm.imp" 1920 @ 14909: PUSH A 1921 @ 14912: PUSH ST 1922 @ 14915: PUSH A 1923 @ 14918: ACCESS 1924 @ 14919: ASSVAL 222 ->again %unless a<0 1925 @ 14920: LINE 222 "regression-compile-tmp/gpm.imp" 1926 @ 14954: PUSH A 1927 @ 14957: PUSHI #0x00000000 1928 @ 14962: JUMPIF < L_0004 1929 @ 14966: JUMP L_00a1 1930 @ 14969: LOCATE L_0004 223 monitor(7) 1931 @ 14972: LINE 223 "regression-compile-tmp/gpm.imp" 1932 @ 15006: PUSH MONITOR 1933 @ 15009: PUSHI #0x00000007 1934 @ 15014: ASSPAR 1935 @ 15015: CALL 224 %end 225 226 {------------------------------------------------------------------------------} 227 1936 @ 15016: LINE 224 "regression-compile-tmp/gpm.imp" 1937 @ 15050: END _lev0id0_FIND {lev=2 --> 1} 228 %routine monitor(%integer n) 1938 @ 15051: LINE 228 "regression-compile-tmp/gpm.imp" 1939 @ 15085: DEF MONITOR (_lev0id0_MONITOR) p1=V_0084 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1940 @ 15104: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1941 @ 15105: DEF N p1=V_00a0 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 1942 @ 15118: FINISH ) {lev=2} 229 %routinespec item(%integer x) 1943 @ 15119: LINE 229 "regression-compile-tmp/gpm.imp" 1944 @ 15153: DEF ITEM (_lev0id0_MONITOR_ITEM) p1=V_00a1 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 1945 @ 15169: START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} 1946 @ 15170: DEF X p1=V_00a2 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 1947 @ 15183: FINISH ) {lev=2} 230 %switch fault(1:10) 231 1948 @ 15184: LINE 230 "regression-compile-tmp/gpm.imp" 1949 @ 15218: PUSHI #0x00000001 1950 @ 15223: PUSHI #0x0000000a 1951 @ 15228: BOUNDS 1952 @ 15229: DEF FAULT p1=V_00a2 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 232 print string(snl."Monitor : ") 1953 @ 15246: LINE 232 "regression-compile-tmp/gpm.imp" 1954 @ 15280: PUSH PRINTSTRING 1955 @ 15283: PUSH SNL 1956 @ 15286: PUSHS "Monitor : " 1957 @ 15298: CONCAT 1958 @ 15299: ASSPAR 1959 @ 15300: CALL 233 ->fault(n) 234 1960 @ 15301: LINE 233 "regression-compile-tmp/gpm.imp" 1961 @ 15335: PUSH N 1962 @ 15338: SJUMP 162 235 fault(1):print string("Unmatched semicolon in definition of ") 1963 @ 15341: LINE 235 "regression-compile-tmp/gpm.imp" 1964 @ 15375: PUSHI #0x00000001 1965 @ 15380: SLABEL 162 1966 @ 15383: LINE 235 "regression-compile-tmp/gpm.imp" 1967 @ 15417: PUSH PRINTSTRING 1968 @ 15420: PUSHS "Unmatched semicolon in definition of " 1969 @ 15459: ASSPAR 1970 @ 15460: CALL 236 item(p+2) 1971 @ 15461: LINE 236 "regression-compile-tmp/gpm.imp" 1972 @ 15495: PUSH ITEM 1973 @ 15498: PUSH P 1974 @ 15501: PUSHI #0x00000002 1975 @ 15506: ADD 1976 @ 15507: ASSPAR 1977 @ 15508: CALL 237 ->end 238 1978 @ 15509: LINE 237 "regression-compile-tmp/gpm.imp" 1979 @ 15543: JUMP L_00a3 239 fault(2):print string("Unquoted # in argument list of ") 1980 @ 15546: LINE 239 "regression-compile-tmp/gpm.imp" 1981 @ 15580: PUSHI #0x00000002 1982 @ 15585: SLABEL 162 1983 @ 15588: LINE 239 "regression-compile-tmp/gpm.imp" 1984 @ 15622: PUSH PRINTSTRING 1985 @ 15625: PUSHS "Unquoted # in argument list of " 1986 @ 15658: ASSPAR 1987 @ 15659: CALL 240 item(f+2) 1988 @ 15660: LINE 240 "regression-compile-tmp/gpm.imp" 1989 @ 15694: PUSH ITEM 1990 @ 15697: PUSH F 1991 @ 15700: PUSHI #0x00000002 1992 @ 15705: ADD 1993 @ 15706: ASSPAR 1994 @ 15707: CALL 241 ->end 242 1995 @ 15708: LINE 241 "regression-compile-tmp/gpm.imp" 1996 @ 15742: JUMP L_00a3 243 fault(3):print string("Impossible argument number in definition of ") 1997 @ 15745: LINE 243 "regression-compile-tmp/gpm.imp" 1998 @ 15779: PUSHI #0x00000003 1999 @ 15784: SLABEL 162 2000 @ 15787: LINE 243 "regression-compile-tmp/gpm.imp" 2001 @ 15821: PUSH PRINTSTRING 2002 @ 15824: PUSHS "Impossible argument number in definition of " 2003 @ 15870: ASSPAR 2004 @ 15871: CALL 244 item(p+2) 2005 @ 15872: LINE 244 "regression-compile-tmp/gpm.imp" 2006 @ 15906: PUSH ITEM 2007 @ 15909: PUSH P 2008 @ 15912: PUSHI #0x00000002 2009 @ 15917: ADD 2010 @ 15918: ASSPAR 2011 @ 15919: CALL 245 ->end 246 2012 @ 15920: LINE 245 "regression-compile-tmp/gpm.imp" 2013 @ 15954: JUMP L_00a3 247 fault(4):print string("No argument ") 2014 @ 15957: LINE 247 "regression-compile-tmp/gpm.imp" 2015 @ 15991: PUSHI #0x00000004 2016 @ 15996: SLABEL 162 2017 @ 15999: LINE 247 "regression-compile-tmp/gpm.imp" 2018 @ 16033: PUSH PRINTSTRING 2019 @ 16036: PUSHS "No argument " 2020 @ 16050: ASSPAR 2021 @ 16051: CALL 248 print symbol(a) 2022 @ 16052: LINE 248 "regression-compile-tmp/gpm.imp" 2023 @ 16086: PUSH PRINTSYMBOL 2024 @ 16089: PUSH A 2025 @ 16092: ASSPAR 2026 @ 16093: CALL 249 print string(" in call for ") 2027 @ 16094: LINE 249 "regression-compile-tmp/gpm.imp" 2028 @ 16128: PUSH PRINTSTRING 2029 @ 16131: PUSHS " in call for " 2030 @ 16146: ASSPAR 2031 @ 16147: CALL 250 item(p+2) 2032 @ 16148: LINE 250 "regression-compile-tmp/gpm.imp" 2033 @ 16182: PUSH ITEM 2034 @ 16185: PUSH P 2035 @ 16188: PUSHI #0x00000002 2036 @ 16193: ADD 2037 @ 16194: ASSPAR 2038 @ 16195: CALL 251 ->end 252 2039 @ 16196: LINE 251 "regression-compile-tmp/gpm.imp" 2040 @ 16230: JUMP L_00a3 253 fault(5):print string("Terminator in ") 2041 @ 16233: LINE 253 "regression-compile-tmp/gpm.imp" 2042 @ 16267: PUSHI #0x00000005 2043 @ 16272: SLABEL 162 2044 @ 16275: LINE 253 "regression-compile-tmp/gpm.imp" 2045 @ 16309: PUSH PRINTSTRING 2046 @ 16312: PUSHS "Terminator in " 2047 @ 16328: ASSPAR 2048 @ 16329: CALL 254 %if c=0 %then print string("input stream; GPM error ?") %and ->end 2049 @ 16330: LINE 254 "regression-compile-tmp/gpm.imp" 2050 @ 16364: PUSH C 2051 @ 16367: PUSHI #0x00000000 2052 @ 16372: JUMPIF # L_0004 2053 @ 16376: PUSH PRINTSTRING 2054 @ 16379: PUSHS "input stream; GPM error ?" 2055 @ 16406: ASSPAR 2056 @ 16407: CALL 2057 @ 16408: JUMP L_00a3 2058 @ 16411: LOCATE L_0004 255 print string("argument list for ") 2059 @ 16414: LINE 255 "regression-compile-tmp/gpm.imp" 2060 @ 16448: PUSH PRINTSTRING 2061 @ 16451: PUSHS "argument list for " 2062 @ 16471: ASSPAR 2063 @ 16472: CALL 256 item(f+2) 2064 @ 16473: LINE 256 "regression-compile-tmp/gpm.imp" 2065 @ 16507: PUSH ITEM 2066 @ 16510: PUSH F 2067 @ 16513: PUSHI #0x00000002 2068 @ 16518: ADD 2069 @ 16519: ASSPAR 2070 @ 16520: CALL 257 print string(snl."probably due to semicolon missing from definition of ") 2071 @ 16521: LINE 257 "regression-compile-tmp/gpm.imp" 2072 @ 16555: PUSH PRINTSTRING 2073 @ 16558: PUSH SNL 2074 @ 16561: PUSHS "probably due to semicolon missing from definition of " 2075 @ 16616: CONCAT 2076 @ 16617: ASSPAR 2077 @ 16618: CALL 258 item(p+2) 2078 @ 16619: LINE 258 "regression-compile-tmp/gpm.imp" 2079 @ 16653: PUSH ITEM 2080 @ 16656: PUSH P 2081 @ 16659: PUSHI #0x00000002 2082 @ 16664: ADD 2083 @ 16665: ASSPAR 2084 @ 16666: CALL 259 ->end 260 2085 @ 16667: LINE 259 "regression-compile-tmp/gpm.imp" 2086 @ 16701: JUMP L_00a3 261 fault(6):print string("GPM error?") 2087 @ 16704: LINE 261 "regression-compile-tmp/gpm.imp" 2088 @ 16738: PUSHI #0x00000006 2089 @ 16743: SLABEL 162 2090 @ 16746: LINE 261 "regression-compile-tmp/gpm.imp" 2091 @ 16780: PUSH PRINTSTRING 2092 @ 16783: PUSHS "GPM error?" 2093 @ 16795: ASSPAR 2094 @ 16796: CALL 262 ->end 263 2095 @ 16797: LINE 262 "regression-compile-tmp/gpm.imp" 2096 @ 16831: JUMP L_00a3 264 fault(7):print string("Undefined name ") 2097 @ 16834: LINE 264 "regression-compile-tmp/gpm.imp" 2098 @ 16868: PUSHI #0x00000007 2099 @ 16873: SLABEL 162 2100 @ 16876: LINE 264 "regression-compile-tmp/gpm.imp" 2101 @ 16910: PUSH PRINTSTRING 2102 @ 16913: PUSHS "Undefined name " 2103 @ 16930: ASSPAR 2104 @ 16931: CALL 265 item(w) 2105 @ 16932: LINE 265 "regression-compile-tmp/gpm.imp" 2106 @ 16966: PUSH ITEM 2107 @ 16969: PUSH W 2108 @ 16972: ASSPAR 2109 @ 16973: CALL 266 ->end 267 2110 @ 16974: LINE 266 "regression-compile-tmp/gpm.imp" 2111 @ 17008: JUMP L_00a3 268 fault(8):print string("Unmatched >; GPM error ?") 2112 @ 17011: LINE 268 "regression-compile-tmp/gpm.imp" 2113 @ 17045: PUSHI #0x00000008 2114 @ 17050: SLABEL 162 2115 @ 17053: LINE 268 "regression-compile-tmp/gpm.imp" 2116 @ 17087: PUSH PRINTSTRING 2117 @ 17090: PUSHS "Unmatched >; GPM error ?" 2118 @ 17116: ASSPAR 2119 @ 17117: CALL 269 ->end 270 2120 @ 17118: LINE 269 "regression-compile-tmp/gpm.imp" 2121 @ 17152: JUMP L_00a3 271 fault(9):print string("Update argument too long for ") 2122 @ 17155: LINE 271 "regression-compile-tmp/gpm.imp" 2123 @ 17189: PUSHI #0x00000009 2124 @ 17194: SLABEL 162 2125 @ 17197: LINE 271 "regression-compile-tmp/gpm.imp" 2126 @ 17231: PUSH PRINTSTRING 2127 @ 17234: PUSHS "Update argument too long for " 2128 @ 17265: ASSPAR 2129 @ 17266: CALL 272 item(p+9) 2130 @ 17267: LINE 272 "regression-compile-tmp/gpm.imp" 2131 @ 17301: PUSH ITEM 2132 @ 17304: PUSH P 2133 @ 17307: PUSHI #0x00000009 2134 @ 17312: ADD 2135 @ 17313: ASSPAR 2136 @ 17314: CALL 273 ->end 274 2137 @ 17315: LINE 273 "regression-compile-tmp/gpm.imp" 2138 @ 17349: JUMP L_00a3 275 fault(10):print string("Non-digit in number ") 276 2139 @ 17352: LINE 275 "regression-compile-tmp/gpm.imp" 2140 @ 17386: PUSHI #0x0000000a 2141 @ 17391: SLABEL 162 2142 @ 17394: LINE 275 "regression-compile-tmp/gpm.imp" 2143 @ 17428: PUSH PRINTSTRING 2144 @ 17431: PUSHS "Non-digit in number " 2145 @ 17453: ASSPAR 2146 @ 17454: CALL 277 end: 278 279 ! general monitor 2147 @ 17455: LINE 277 "regression-compile-tmp/gpm.imp" 2148 @ 17489: LABEL L_00a3 280 w=20 2149 @ 17492: LINE 280 "regression-compile-tmp/gpm.imp" 2150 @ 17526: PUSH W 2151 @ 17529: PUSHI #0x00000014 2152 @ 17534: ASSVAL 281 print string(snl."Current macros are :") 2153 @ 17535: LINE 281 "regression-compile-tmp/gpm.imp" 2154 @ 17569: PUSH PRINTSTRING 2155 @ 17572: PUSH SNL 2156 @ 17575: PUSHS "Current macros are :" 2157 @ 17597: CONCAT 2158 @ 17598: ASSPAR 2159 @ 17599: CALL 282 %while p#0 %or f#0 %cycle 2160 @ 17600: LINE 282 "regression-compile-tmp/gpm.imp" 2161 @ 17634: LOCATE L_0003 2162 @ 17637: PUSH P 2163 @ 17640: PUSHI #0x00000000 2164 @ 17645: JUMPIF # L_0005 2165 @ 17649: PUSH F 2166 @ 17652: PUSHI #0x00000000 2167 @ 17657: JUMPIF = L_0004 2168 @ 17661: LOCATE L_0005 283 %if p>f %then %start 2169 @ 17664: LINE 283 "regression-compile-tmp/gpm.imp" 2170 @ 17698: PUSH P 2171 @ 17701: PUSH F 2172 @ 17704: JUMPIF <= L_0007 284 w1=p+2 2173 @ 17708: LINE 284 "regression-compile-tmp/gpm.imp" 2174 @ 17742: PUSH W1 2175 @ 17745: PUSH P 2176 @ 17748: PUSHI #0x00000002 2177 @ 17753: ADD 2178 @ 17754: ASSVAL 285 p=st(p) 2179 @ 17755: LINE 285 "regression-compile-tmp/gpm.imp" 2180 @ 17789: PUSH P 2181 @ 17792: PUSH ST 2182 @ 17795: PUSH P 2183 @ 17798: ACCESS 2184 @ 17799: ASSVAL 286 print string(snl."already entered : ") 2185 @ 17800: LINE 286 "regression-compile-tmp/gpm.imp" 2186 @ 17834: PUSH PRINTSTRING 2187 @ 17837: PUSH SNL 2188 @ 17840: PUSHS "already entered : " 2189 @ 17861: CONCAT 2190 @ 17862: ASSPAR 2191 @ 17863: CALL 287 %finish %else %start 2192 @ 17864: LINE 287 "regression-compile-tmp/gpm.imp" 2193 @ 17898: GOTO L_0006 2194 @ 17901: LOCATE L_0007 288 w1=f+2 2195 @ 17904: LINE 288 "regression-compile-tmp/gpm.imp" 2196 @ 17938: PUSH W1 2197 @ 17941: PUSH F 2198 @ 17944: PUSHI #0x00000002 2199 @ 17949: ADD 2200 @ 17950: ASSVAL 289 f=st(f) 2201 @ 17951: LINE 289 "regression-compile-tmp/gpm.imp" 2202 @ 17985: PUSH F 2203 @ 17988: PUSH ST 2204 @ 17991: PUSH F 2205 @ 17994: ACCESS 2206 @ 17995: ASSVAL 290 print string(snl."not yet entered : ") 2207 @ 17996: LINE 290 "regression-compile-tmp/gpm.imp" 2208 @ 18030: PUSH PRINTSTRING 2209 @ 18033: PUSH SNL 2210 @ 18036: PUSHS "not yet entered : " 2211 @ 18057: CONCAT 2212 @ 18058: ASSPAR 2213 @ 18059: CALL 291 %finish 2214 @ 18060: LINE 291 "regression-compile-tmp/gpm.imp" 2215 @ 18094: LOCATE L_0006 292 %for r=1,1,w %cycle 2216 @ 18097: LINE 292 "regression-compile-tmp/gpm.imp" 2217 @ 18131: PUSH R 2218 @ 18134: PUSHI #0x00000001 2219 @ 18139: PUSH W 2220 @ 18142: PUSHI #0x00000001 2221 @ 18147: FOR L_0006 293 item(w1) 2222 @ 18150: LINE 293 "regression-compile-tmp/gpm.imp" 2223 @ 18184: PUSH ITEM 2224 @ 18187: PUSH W1 2225 @ 18190: ASSPAR 2226 @ 18191: CALL 294 %if st(w1)=0 %then %exit 2227 @ 18192: LINE 294 "regression-compile-tmp/gpm.imp" 2228 @ 18226: PUSH ST 2229 @ 18229: PUSH W1 2230 @ 18232: ACCESS 2231 @ 18233: PUSHI #0x00000000 2232 @ 18238: JUMPIF # L_000a 2233 @ 18242: GOTO L_0007 2234 @ 18245: LOCATE L_000a 295 w1=w1+st(w1) 2235 @ 18248: LINE 295 "regression-compile-tmp/gpm.imp" 2236 @ 18282: PUSH W1 2237 @ 18285: PUSH W1 2238 @ 18288: PUSH ST 2239 @ 18291: PUSH W1 2240 @ 18294: ACCESS 2241 @ 18295: ADD 2242 @ 18296: ASSVAL 296 %if st(w1)=marker %then %exit 2243 @ 18297: LINE 296 "regression-compile-tmp/gpm.imp" 2244 @ 18331: PUSH ST 2245 @ 18334: PUSH W1 2246 @ 18337: ACCESS 2247 @ 18338: PUSHI #0xffffc000 2248 @ 18343: JUMPIF # L_000a 2249 @ 18347: GOTO L_0007 2250 @ 18350: LOCATE L_000a 297 %unless w=1 %then %start 2251 @ 18353: LINE 297 "regression-compile-tmp/gpm.imp" 2252 @ 18387: PUSH W 2253 @ 18390: PUSHI #0x00000001 2254 @ 18395: JUMPIF = L_000a 298 print string(snl."arg".itos(r,1)." : ") 2255 @ 18399: LINE 298 "regression-compile-tmp/gpm.imp" 2256 @ 18433: PUSH PRINTSTRING 2257 @ 18436: PUSH SNL 2258 @ 18439: PUSHS "arg" 2259 @ 18444: CONCAT 2260 @ 18445: PUSH ITOS 2261 @ 18448: PUSH R 2262 @ 18451: ASSPAR 2263 @ 18452: PUSHI #0x00000001 2264 @ 18457: ASSPAR 2265 @ 18458: CALL 2266 @ 18459: CONCAT 2267 @ 18460: PUSHS " : " 2268 @ 18468: CONCAT 2269 @ 18469: ASSPAR 2270 @ 18470: CALL 299 %finish 2271 @ 18471: LINE 299 "regression-compile-tmp/gpm.imp" 2272 @ 18505: LOCATE L_000a 300 %repeat 2273 @ 18508: LINE 300 "regression-compile-tmp/gpm.imp" 2274 @ 18542: REPEAT L_0006 2275 @ 18545: LOCATE L_0007 301 w=1 2276 @ 18548: LINE 301 "regression-compile-tmp/gpm.imp" 2277 @ 18582: PUSH W 2278 @ 18585: PUSHI #0x00000001 2279 @ 18590: ASSVAL 302 %repeat 2280 @ 18591: LINE 302 "regression-compile-tmp/gpm.imp" 2281 @ 18625: REPEAT L_0003 2282 @ 18628: LOCATE L_0004 303 print string(snl."End of monitor printing".snl) 2283 @ 18631: LINE 303 "regression-compile-tmp/gpm.imp" 2284 @ 18665: PUSH PRINTSTRING 2285 @ 18668: PUSH SNL 2286 @ 18671: PUSHS "End of monitor printing" 2287 @ 18696: CONCAT 2288 @ 18697: PUSH SNL 2289 @ 18700: CONCAT 2290 @ 18701: ASSPAR 2291 @ 18702: CALL 304 %stop 305 2292 @ 18703: LINE 304 "regression-compile-tmp/gpm.imp" 2293 @ 18737: STOP 306 %routine item(%integer x) 2294 @ 18738: LINE 306 "regression-compile-tmp/gpm.imp" 2295 @ 18772: DEF ITEM (_lev0id0_MONITOR_ITEM) p1=V_00a1 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2296 @ 18788: START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} 2297 @ 18789: DEF X p1=V_00a4 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 2298 @ 18802: FINISH ) {lev=3} 307 %integer k,l 2299 @ 18803: LINE 307 "regression-compile-tmp/gpm.imp" 2300 @ 18837: DEF K p1=V_00a5 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 2301 @ 18850: DEF L p1=V_00a6 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 308 %if st(x)=0 %then l=s-x-1 %else l=st(x)-1 2302 @ 18863: LINE 308 "regression-compile-tmp/gpm.imp" 2303 @ 18897: PUSH ST 2304 @ 18900: PUSH X 2305 @ 18903: ACCESS 2306 @ 18904: PUSHI #0x00000000 2307 @ 18909: JUMPIF # L_0004 2308 @ 18913: PUSH L 2309 @ 18916: PUSH S 2310 @ 18919: PUSH X 2311 @ 18922: SUB 2312 @ 18923: PUSHI #0x00000001 2313 @ 18928: SUB 2314 @ 18929: ASSVAL 2315 @ 18930: GOTO L_0003 2316 @ 18933: LOCATE L_0004 2317 @ 18936: PUSH L 2318 @ 18939: PUSH ST 2319 @ 18942: PUSH X 2320 @ 18945: ACCESS 2321 @ 18946: PUSHI #0x00000001 2322 @ 18951: SUB 2323 @ 18952: ASSVAL 2324 @ 18953: LOCATE L_0003 309 %if l>0 %then %start 2325 @ 18956: LINE 309 "regression-compile-tmp/gpm.imp" 2326 @ 18990: PUSH L 2327 @ 18993: PUSHI #0x00000000 2328 @ 18998: JUMPIF <= L_0004 310 print symbol(st(x+k)) %for k=1, 1, l 2329 @ 19002: LINE 310 "regression-compile-tmp/gpm.imp" 2330 @ 19036: PUSH K 2331 @ 19039: PUSHI #0x00000001 2332 @ 19044: PUSH L 2333 @ 19047: PUSHI #0x00000001 2334 @ 19052: FOR L_0006 2335 @ 19055: PUSH PRINTSYMBOL 2336 @ 19058: PUSH ST 2337 @ 19061: PUSH X 2338 @ 19064: PUSH K 2339 @ 19067: ADD 2340 @ 19068: ACCESS 2341 @ 19069: ASSPAR 2342 @ 19070: CALL 2343 @ 19071: REPEAT L_0006 2344 @ 19074: LOCATE L_0007 311 %finish 2345 @ 19077: LINE 311 "regression-compile-tmp/gpm.imp" 2346 @ 19111: LOCATE L_0004 312 %if st(x)=0 %then print string("... (incomplete)") 2347 @ 19114: LINE 312 "regression-compile-tmp/gpm.imp" 2348 @ 19148: PUSH ST 2349 @ 19151: PUSH X 2350 @ 19154: ACCESS 2351 @ 19155: PUSHI #0x00000000 2352 @ 19160: JUMPIF # L_0004 2353 @ 19164: PUSH PRINTSTRING 2354 @ 19167: PUSHS "... (incomplete)" 2355 @ 19188: ASSPAR 2356 @ 19189: CALL 2357 @ 19190: LOCATE L_0004 313 %end 314 2358 @ 19193: LINE 313 "regression-compile-tmp/gpm.imp" 2359 @ 19227: END _lev0id0_MONITOR_ITEM {lev=3 --> 2} 315 %end 316 2360 @ 19228: LINE 315 "regression-compile-tmp/gpm.imp" 2361 @ 19262: END _lev0id0_MONITOR {lev=2 --> 1} 317 %endofprogram 318 2362 @ 19263: LINE 317 "regression-compile-tmp/gpm.imp" 2363 @ 19297: END _lev0id0 {lev=1 --> 0} 2364 @ 19298: END {lev=0 --> -1} 2365 @ 19299: