![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rsg.u1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port / distr|
Return to rsg.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port / distr |
1.1 root 1: proc main
2: local 0,001000,x
3: local 1,000020,line
4: local 2,000020,plist
5: local 3,000000,define
6: local 4,000000,generate
7: local 5,000000,grammar
8: local 6,000000,source
9: local 7,000000,comment
10: local 8,000000,prompter
11: local 9,000000,error
12: local 10,000000,defs
13: local 11,000000,table
14: local 12,000000,charset
15: local 13,000000,i
16: local 14,000000,s
17: local 15,000000,tswitch
18: local 16,000000,limit
19: local 17,000000,integer
20: local 18,000000,stop
21: local 19,000000,ifile
22: local 20,000000,prompt
23: local 21,000000,in
24: local 22,000000,pop
25: local 23,000000,writes
26: local 24,000000,read
27: local 25,000000,close
28: con 0,010000,2,154,142
29: con 1,010000,1,074
30: con 2,010000,2,162,142
31: con 3,010000,1,076
32: con 4,010000,2,166,142
33: con 5,010000,1,174
34: con 6,010000,2,156,154
35: con 7,010000,1,012
36: con 8,010000,0
37: con 9,010000,6,046,154,143,141,163,145
38: con 10,010000,6,046,165,143,141,163,145
39: con 11,010000,6,046,144,151,147,151,164
40: con 12,020000,10,060,061,062,063,064,065,066,067,070,071
41: con 13,002000,0
42: con 14,002000,1
43: con 15,010000,2,055,164
44: con 16,010000,2,055,154
45: con 17,010000,18,165,163,141,147,145,072,040,133,055,164,135,040,133,055,154,040,156,135
46: con 18,010000,1,134
47: declend
48: file rsg.icn
49: line 10
50: mark L1
51: pnull
52: var 2
53: pnull
54: var 3
55: var 4
56: var 5
57: var 6
58: var 7
59: var 8
60: var 9
61: line 12
62: llist 7
63: asgn
64: unmark 1
65: lab L1
66: mark L2
67: pnull
68: var 10
69: var 11
70: pnull
71: line 13
72: invoke 1
73: asgn
74: unmark 1
75: lab L2
76: mark L3
77: pnull
78: pnull
79: var 10
80: str 0
81: line 14
82: subsc
83: pnull
84: pnull
85: str 1
86: llist 1
87: llist 1
88: asgn
89: unmark 1
90: lab L3
91: mark L4
92: pnull
93: pnull
94: var 10
95: str 2
96: line 15
97: subsc
98: pnull
99: pnull
100: str 3
101: llist 1
102: llist 1
103: asgn
104: unmark 1
105: lab L4
106: mark L5
107: pnull
108: pnull
109: var 10
110: str 4
111: line 16
112: subsc
113: pnull
114: pnull
115: str 5
116: llist 1
117: llist 1
118: asgn
119: unmark 1
120: lab L5
121: mark L6
122: pnull
123: pnull
124: var 10
125: str 6
126: line 17
127: subsc
128: pnull
129: pnull
130: str 7
131: llist 1
132: llist 1
133: asgn
134: unmark 1
135: lab L6
136: mark L7
137: pnull
138: pnull
139: var 10
140: str 8
141: line 18
142: subsc
143: pnull
144: pnull
145: str 8
146: llist 1
147: llist 1
148: asgn
149: unmark 1
150: lab L7
151: mark L8
152: pnull
153: pnull
154: var 10
155: str 9
156: line 19
157: subsc
158: pnull
159: pnull
160: var 12
161: keywd 10
162: invoke 1
163: llist 1
164: llist 1
165: asgn
166: unmark 1
167: lab L8
168: mark L9
169: pnull
170: pnull
171: var 10
172: str 10
173: line 20
174: subsc
175: pnull
176: pnull
177: var 12
178: keywd 21
179: invoke 1
180: llist 1
181: llist 1
182: asgn
183: unmark 1
184: lab L9
185: mark L10
186: pnull
187: pnull
188: var 10
189: str 11
190: line 21
191: subsc
192: pnull
193: pnull
194: var 12
195: cset 12
196: invoke 1
197: llist 1
198: llist 1
199: asgn
200: unmark 1
201: lab L10
202: mark L11
203: pnull
204: var 13
205: int 13
206: line 22
207: asgn
208: unmark 1
209: lab L11
210: mark L12
211: lab L13
212: line 23
213: mark L0
214: pnull
215: var 13
216: pnull
217: var 0
218: size
219: numlt
220: unmark 1
221: mark L13
222: mark L16
223: pnull
224: var 14
225: mark L17
226: pnull
227: var 0
228: pnull
229: var 13
230: dup
231: int 14
232: line 24
233: plus
234: asgn
235: subsc
236: esusp
237: goto L18
238: lab L17
239: unmark 2
240: pnull
241: goto L15
242: lab L18
243: asgn
244: unmark 1
245: lab L16
246: mark L0
247: var 14
248: eret
249: mark L20
250: ccase
251: str 15
252: line 26
253: eqv
254: unmark 1
255: pop
256: pnull
257: var 15
258: int 14
259: asgn
260: goto L19
261: lab L20
262: mark L21
263: ccase
264: str 16
265: line 27
266: eqv
267: unmark 1
268: pop
269: pnull
270: var 16
271: mark L22
272: var 17
273: pnull
274: var 0
275: pnull
276: var 13
277: dup
278: int 14
279: plus
280: asgn
281: subsc
282: invoke 1
283: esusp
284: goto L23
285: lab L22
286: var 18
287: str 17
288: invoke 1
289: lab L23
290: asgn
291: goto L19
292: lab L21
293: pop
294: var 18
295: str 17
296: line 28
297: invoke 1
298: lab L19
299: lab L14
300: unmark 1
301: goto L13
302: lab L15
303: unmark 1
304: lab L12
305: mark L24
306: pnull
307: var 19
308: pnull
309: line 31
310: keywd 9
311: llist 1
312: asgn
313: unmark 1
314: lab L24
315: mark L25
316: pnull
317: var 20
318: str 8
319: line 32
320: asgn
321: unmark 1
322: lab L25
323: mark L26
324: lab L27
325: line 33
326: mark L0
327: pnull
328: var 21
329: var 22
330: var 19
331: invoke 1
332: asgn
333: unmark 1
334: mark L27
335: mark L30
336: lab L31
337: line 34
338: mark L31
339: mark L34
340: mark L0
341: pnull
342: pnull
343: var 20
344: line 35
345: size
346: int 13
347: numne
348: unmark 1
349: var 23
350: var 20
351: invoke 1
352: unmark 1
353: lab L34
354: mark L35
355: pnull
356: var 1
357: mark L36
358: var 24
359: var 21
360: line 36
361: invoke 1
362: esusp
363: goto L37
364: lab L36
365: unmark 2
366: pnull
367: goto L33
368: lab L37
369: asgn
370: unmark 1
371: lab L35
372: mark L38
373: lab L39
374: line 37
375: mark L0
376: pnull
377: pnull
378: var 1
379: pnull
380: int 14
381: neg
382: subsc
383: str 18
384: lexeq
385: unmark 1
386: mark L39
387: pnull
388: var 1
389: mark L42
390: pnull
391: pnull
392: var 1
393: int 14
394: pnull
395: int 14
396: neg
397: sect
398: var 24
399: var 21
400: invoke 1
401: cat
402: esusp
403: goto L43
404: lab L42
405: unmark 1
406: pnull
407: goto L41
408: lab L43
409: asgn
410: lab L40
411: unmark 1
412: goto L39
413: lab L41
414: unmark 1
415: lab L38
416: pnull
417: var 2
418: line 38
419: bang
420: var 1
421: invoke 1
422: lab L32
423: unmark 1
424: goto L31
425: lab L33
426: unmark 1
427: lab L30
428: var 25
429: var 21
430: line 40
431: invoke 1
432: lab L28
433: unmark 1
434: goto L27
435: lab L29
436: unmark 1
437: lab L26
438: pnull
439: line 42
440: pfail
441: end
442: proc comment
443: local 0,001000,line
444: con 0,002000,1
445: con 1,010000,1,043
446: declend
447: file rsg.icn
448: line 44
449: mark L1
450: mark L0
451: pnull
452: pnull
453: var 0
454: int 0
455: line 45
456: subsc
457: str 1
458: lexeq
459: unmark 1
460: mark L2
461: pnull
462: pret
463: lab L2
464: line 45
465: pfail
466: unmark 1
467: lab L1
468: pnull
469: line 46
470: pfail
471: end
472: proc define
473: local 0,001000,line
474: local 1,000000,defs
475: local 2,000000,tab
476: local 3,000000,find
477: local 4,000000,move
478: local 5,000000,alts
479: con 0,010000,1,074
480: con 1,010000,4,076,072,072,075
481: con 2,002000,4
482: con 3,002000,0
483: declend
484: file rsg.icn
485: line 48
486: mark L1
487: mark L2
488: var 0
489: line 49
490: bscan
491: pnull
492: pnull
493: var 1
494: pushn1
495: pnull
496: str 0
497: line 50
498: tabmat
499: var 2
500: var 3
501: str 1
502: invoke 1
503: invoke 1
504: invoke 2
505: subsc
506: pushn1
507: var 4
508: int 2
509: invoke 1
510: var 5
511: var 2
512: int 3
513: invoke 1
514: invoke 1
515: invoke 2
516: asgn
517: line 49
518: escan
519: pret
520: lab L2
521: line 49
522: pfail
523: unmark 1
524: lab L1
525: pnull
526: line 51
527: pfail
528: end
529: proc defnon
530: local 0,001000,sym
531: local 1,000000,chars
532: local 2,000000,cset
533: local 3,000000,tab
534: local 4,000000,charset
535: local 5,000000,name
536: local 6,000000,query
537: local 7,000000,nonterm
538: con 0,010000,1,047
539: con 1,002000,1
540: con 2,010000,1,077
541: con 3,002000,0
542: declend
543: file rsg.icn
544: line 53
545: mark L1
546: mark L2
547: var 0
548: line 54
549: bscan
550: pnull
551: str 0
552: line 55
553: tabmat
554: pop
555: pnull
556: var 1
557: var 2
558: var 3
559: pnull
560: int 1
561: line 56
562: neg
563: invoke 1
564: invoke 1
565: asgn
566: pop
567: pnull
568: str 0
569: line 57
570: tabmat
571: line 54
572: escan
573: unmark 1
574: mark L4
575: var 4
576: var 1
577: line 59
578: invoke 1
579: pret
580: lab L4
581: line 59
582: pfail
583: goto L3
584: lab L2
585: mark L5
586: var 0
587: line 60
588: bscan
589: pnull
590: str 2
591: line 61
592: tabmat
593: pop
594: pnull
595: var 5
596: var 3
597: int 3
598: line 62
599: invoke 1
600: asgn
601: line 60
602: escan
603: unmark 1
604: mark L7
605: var 6
606: var 5
607: line 64
608: invoke 1
609: pret
610: lab L7
611: line 64
612: pfail
613: goto L6
614: lab L5
615: mark L8
616: var 7
617: var 0
618: line 65
619: invoke 1
620: pret
621: lab L8
622: line 65
623: pfail
624: lab L6
625: lab L3
626: unmark 1
627: lab L1
628: pnull
629: line 66
630: pfail
631: end
632: proc error
633: local 0,001000,line
634: local 1,000000,write
635: con 0,010000,21,052,052,052,040,145,162,162,157,156,145,157,165,163,040,154,151,156,145,072,040,040
636: declend
637: file rsg.icn
638: line 68
639: mark L1
640: var 1
641: str 0
642: var 0
643: line 69
644: invoke 2
645: unmark 1
646: lab L1
647: mark L2
648: mark L3
649: pnull
650: line 70
651: pret
652: lab L3
653: line 70
654: pfail
655: unmark 1
656: lab L2
657: pnull
658: line 71
659: pfail
660: end
661: proc gener
662: local 0,001000,goal
663: local 1,000020,pending
664: local 2,000020,genstr
665: local 3,000020,symbol
666: local 4,000000,nonterm
667: local 5,000000,get
668: local 6,000000,tswitch
669: local 7,000000,write
670: local 8,000000,symimage
671: local 9,000000,listimage
672: local 10,000000,type
673: local 11,000000,writes
674: local 12,000000,read
675: local 13,000000,defs
676: local 14,000000,limit
677: con 0,010000,0
678: con 1,010000,6,163,164,162,151,156,147
679: con 2,010000,7,143,150,141,162,163,145,164
680: con 3,010000,5,161,165,145,162,171
681: con 4,010000,22,052,052,052,040,163,165,160,160,154,171,040,163,164,162,151,156,147,040,146,157,162,040
682: con 5,010000,2,040,040
683: con 6,010000,26,052,052,052,040,156,157,040,166,141,154,165,145,040,146,157,162,040,161,165,145,162,171,040,164,157,040
684: con 7,010000,7,156,157,156,164,145,162,155
685: con 8,010000,29,052,052,052,040,165,156,144,145,146,151,156,145,144,040,156,157,156,164,145,162,155,151,156,141,154,072,040,040,074
686: con 9,010000,1,076
687: con 10,010000,31,052,052,052,040,145,170,143,145,163,163,151,166,145,040,163,171,155,142,157,154,163,040,162,145,155,141,151,156,151,156,147
688: declend
689: file rsg.icn
690: line 73
691: mark L1
692: lab L2
693: line 75
694: mark L2
695: mark L5
696: pnull
697: var 1
698: pnull
699: var 4
700: var 0
701: line 76
702: invoke 1
703: llist 1
704: asgn
705: unmark 1
706: lab L5
707: mark L6
708: pnull
709: var 2
710: str 0
711: line 77
712: asgn
713: unmark 1
714: lab L6
715: mark L7
716: lab L8
717: line 78
718: mark L0
719: pnull
720: var 3
721: var 5
722: var 1
723: invoke 1
724: asgn
725: unmark 1
726: mark L8
727: mark L11
728: mark L0
729: pnull
730: var 6
731: line 79
732: nonnull
733: unmark 1
734: var 7
735: keywd 6
736: var 2
737: var 8
738: var 3
739: invoke 1
740: var 9
741: var 1
742: invoke 1
743: invoke 4
744: unmark 1
745: lab L11
746: mark L0
747: var 10
748: var 3
749: line 80
750: invoke 1
751: eret
752: mark L13
753: ccase
754: str 1
755: line 81
756: eqv
757: unmark 1
758: pop
759: pnull
760: var 2
761: dup
762: var 3
763: cat
764: asgn
765: goto L12
766: lab L13
767: mark L14
768: ccase
769: str 2
770: line 82
771: eqv
772: unmark 1
773: pop
774: pnull
775: var 2
776: dup
777: pnull
778: pnull
779: var 3
780: field chars
781: random
782: cat
783: asgn
784: goto L12
785: lab L14
786: mark L15
787: ccase
788: str 3
789: line 83
790: eqv
791: unmark 1
792: pop
793: mark L16
794: var 11
795: str 4
796: pnull
797: var 3
798: line 84
799: field name
800: str 5
801: invoke 3
802: unmark 1
803: lab L16
804: pnull
805: var 2
806: dup
807: mark L17
808: var 12
809: pnull
810: line 85
811: invoke 1
812: esusp
813: goto L18
814: lab L17
815: mark L19
816: var 7
817: line 86
818: keywd 6
819: str 6
820: pnull
821: var 3
822: field name
823: invoke 3
824: unmark 1
825: lab L19
826: mark L20
827: mark L0
828: var 2
829: line 87
830: psusp
831: efail
832: unmark 1
833: lab L20
834: unmark 1
835: unmark 1
836: goto L3
837: goto L10
838: lab L18
839: line 85
840: cat
841: asgn
842: goto L12
843: lab L15
844: mark L21
845: ccase
846: str 7
847: line 91
848: eqv
849: unmark 1
850: pop
851: mark L22
852: pnull
853: var 1
854: mark L23
855: pnull
856: pnull
857: pnull
858: pnull
859: var 13
860: pnull
861: var 3
862: line 92
863: field name
864: subsc
865: nonnull
866: random
867: var 1
868: lconcat
869: esusp
870: goto L24
871: lab L23
872: mark L25
873: var 7
874: line 93
875: keywd 6
876: str 8
877: pnull
878: var 3
879: field name
880: str 9
881: invoke 4
882: unmark 1
883: lab L25
884: mark L26
885: mark L0
886: var 2
887: line 94
888: psusp
889: efail
890: unmark 1
891: lab L26
892: unmark 2
893: unmark 1
894: goto L3
895: goto L10
896: lab L24
897: line 92
898: asgn
899: unmark 1
900: lab L22
901: mark L0
902: pnull
903: pnull
904: var 1
905: line 97
906: size
907: pnull
908: var 14
909: nonnull
910: numgt
911: unmark 1
912: mark L27
913: var 7
914: line 98
915: keywd 6
916: str 10
917: invoke 2
918: unmark 1
919: lab L27
920: mark L28
921: mark L0
922: var 2
923: line 99
924: psusp
925: efail
926: unmark 1
927: lab L28
928: unmark 1
929: unmark 1
930: goto L3
931: goto L10
932: goto L12
933: lab L21
934: efail
935: lab L12
936: lab L9
937: unmark 1
938: goto L8
939: lab L10
940: unmark 1
941: lab L7
942: mark L0
943: var 2
944: line 105
945: psusp
946: efail
947: lab L3
948: unmark 1
949: goto L2
950: lab L4
951: unmark 1
952: lab L1
953: pnull
954: line 107
955: pfail
956: end
957: proc generate
958: local 0,001000,line
959: local 1,000020,goal
960: local 2,000020,count
961: local 3,000000,tab
962: local 4,000000,upto
963: local 5,000000,move
964: local 6,000000,pos
965: local 7,000000,integer
966: local 8,000000,write
967: local 9,000000,gener
968: con 0,010000,1,074
969: con 1,020000,1,076
970: con 2,002000,1
971: con 3,002000,0
972: declend
973: file rsg.icn
974: line 109
975: mark L1
976: mark L2
977: var 0
978: line 111
979: bscan
980: pnull
981: str 0
982: line 112
983: tabmat
984: pop
985: pnull
986: var 1
987: int 2
988: line 113
989: limit
990: mark L0
991: var 3
992: var 4
993: cset 1
994: invoke 1
995: invoke 1
996: lsusp
997: asgn
998: pop
999: var 5
1000: int 2
1001: line 114
1002: invoke 1
1003: pop
1004: pnull
1005: var 2
1006: mark L4
1007: var 6
1008: int 3
1009: line 115
1010: invoke 1
1011: pop
1012: int 2
1013: esusp
1014: goto L5
1015: lab L4
1016: var 7
1017: var 3
1018: int 3
1019: invoke 1
1020: invoke 1
1021: lab L5
1022: asgn
1023: line 111
1024: escan
1025: unmark 1
1026: mark L6
1027: mark L0
1028: var 2
1029: line 118
1030: limit
1031: mark L0
1032: var 8
1033: var 9
1034: var 1
1035: invoke 1
1036: invoke 1
1037: lsusp
1038: pop
1039: lab L7
1040: efail
1041: lab L8
1042: unmark 1
1043: lab L6
1044: mark L9
1045: pnull
1046: line 119
1047: pret
1048: lab L9
1049: line 119
1050: pfail
1051: goto L3
1052: lab L2
1053: line 121
1054: pfail
1055: lab L3
1056: unmark 1
1057: lab L1
1058: pnull
1059: line 122
1060: pfail
1061: end
1062: proc getrhs
1063: local 0,001000,a
1064: local 1,000020,rhs
1065: local 2,000000,sform
1066: con 0,010000,0
1067: con 1,010000,1,174
1068: con 2,002000,1
1069: declend
1070: file rsg.icn
1071: line 124
1072: mark L1
1073: pnull
1074: var 1
1075: str 0
1076: line 126
1077: asgn
1078: unmark 1
1079: lab L1
1080: mark L2
1081: mark L0
1082: pnull
1083: var 1
1084: dup
1085: pnull
1086: var 2
1087: pnull
1088: var 0
1089: line 127
1090: bang
1091: invoke 1
1092: str 1
1093: cat
1094: cat
1095: asgn
1096: pop
1097: lab L3
1098: efail
1099: lab L4
1100: unmark 1
1101: lab L2
1102: mark L5
1103: mark L6
1104: pnull
1105: var 1
1106: int 2
1107: pnull
1108: int 2
1109: line 128
1110: neg
1111: sect
1112: pret
1113: lab L6
1114: line 128
1115: pfail
1116: unmark 1
1117: lab L5
1118: pnull
1119: line 129
1120: pfail
1121: end
1122: proc grammar
1123: local 0,001000,line
1124: local 1,000020,file
1125: local 2,000020,out
1126: local 3,000000,name
1127: local 4,000000,tab
1128: local 5,000000,find
1129: local 6,000000,move
1130: local 7,000000,open
1131: local 8,000000,write
1132: local 9,000000,pwrite
1133: local 10,000000,close
1134: con 0,010000,2,055,076
1135: con 1,002000,2
1136: con 2,002000,0
1137: con 3,010000,1,167
1138: con 4,010000,16,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040
1139: con 5,002000,1
1140: con 6,010000,1,074
1141: con 7,010000,1,076
1142: declend
1143: file rsg.icn
1144: line 131
1145: mark L1
1146: mark L2
1147: var 0
1148: line 133
1149: bscan
1150: pnull
1151: var 3
1152: var 4
1153: var 5
1154: str 0
1155: line 134
1156: invoke 1
1157: invoke 1
1158: asgn
1159: pop
1160: var 6
1161: int 1
1162: line 135
1163: invoke 1
1164: pop
1165: pnull
1166: var 1
1167: var 4
1168: int 2
1169: line 136
1170: invoke 1
1171: asgn
1172: pop
1173: pnull
1174: var 2
1175: mark L4
1176: pnull
1177: pnull
1178: var 1
1179: line 137
1180: size
1181: int 2
1182: numeq
1183: unmark 1
1184: keywd 14
1185: goto L5
1186: lab L4
1187: mark L6
1188: var 7
1189: var 1
1190: str 3
1191: line 138
1192: invoke 2
1193: esusp
1194: goto L7
1195: lab L6
1196: mark L8
1197: var 8
1198: line 139
1199: keywd 6
1200: str 4
1201: var 1
1202: invoke 3
1203: unmark 1
1204: lab L8
1205: line 140
1206: pfail
1207: lab L7
1208: lab L5
1209: line 137
1210: asgn
1211: line 133
1212: escan
1213: unmark 1
1214: mark L9
1215: mark L10
1216: pnull
1217: pnull
1218: var 3
1219: line 145
1220: size
1221: int 2
1222: numeq
1223: esusp
1224: goto L11
1225: lab L10
1226: mark L12
1227: pnull
1228: pnull
1229: var 3
1230: int 5
1231: subsc
1232: str 6
1233: lexeq
1234: pop
1235: pnull
1236: pnull
1237: var 3
1238: pnull
1239: int 5
1240: neg
1241: subsc
1242: str 7
1243: lexeq
1244: esusp
1245: goto L13
1246: lab L12
1247: line 145
1248: pfail
1249: lab L13
1250: lab L11
1251: unmark 1
1252: lab L9
1253: mark L14
1254: var 9
1255: var 3
1256: var 2
1257: line 146
1258: invoke 2
1259: unmark 1
1260: lab L14
1261: mark L15
1262: mark L0
1263: pnull
1264: pnull
1265: var 1
1266: line 147
1267: size
1268: int 2
1269: numne
1270: unmark 1
1271: var 10
1272: var 2
1273: invoke 1
1274: unmark 1
1275: lab L15
1276: mark L16
1277: pnull
1278: line 148
1279: pret
1280: lab L16
1281: line 148
1282: pfail
1283: goto L3
1284: lab L2
1285: line 150
1286: pfail
1287: lab L3
1288: unmark 1
1289: lab L1
1290: pnull
1291: line 151
1292: pfail
1293: end
1294: proc listimage
1295: local 0,001000,a
1296: local 1,000020,s
1297: local 2,000020,x
1298: local 3,000000,symimage
1299: con 0,010000,0
1300: declend
1301: file rsg.icn
1302: line 153
1303: mark L1
1304: pnull
1305: var 1
1306: str 0
1307: line 155
1308: asgn
1309: unmark 1
1310: lab L1
1311: mark L2
1312: mark L0
1313: pnull
1314: var 2
1315: pnull
1316: var 0
1317: line 156
1318: bang
1319: asgn
1320: pop
1321: mark L0
1322: pnull
1323: var 1
1324: dup
1325: var 3
1326: var 2
1327: line 157
1328: invoke 1
1329: cat
1330: asgn
1331: unmark 1
1332: lab L3
1333: efail
1334: lab L4
1335: unmark 1
1336: lab L2
1337: mark L5
1338: mark L6
1339: var 1
1340: line 158
1341: pret
1342: lab L6
1343: line 158
1344: pfail
1345: unmark 1
1346: lab L5
1347: pnull
1348: line 159
1349: pfail
1350: end
1351: proc alts
1352: local 0,001000,defn
1353: local 1,000020,alist
1354: local 2,000000,put
1355: local 3,000000,syms
1356: local 4,000000,tab
1357: local 5,000000,many
1358: local 6,000000,move
1359: con 0,020000,1,174
1360: con 1,002000,1
1361: declend
1362: file rsg.icn
1363: line 161
1364: mark L1
1365: pnull
1366: var 1
1367: pnull
1368: line 163
1369: llist 0
1370: asgn
1371: unmark 1
1372: lab L1
1373: mark L2
1374: var 0
1375: line 164
1376: bscan
1377: lab L3
1378: line 164
1379: mark L0
1380: var 2
1381: var 1
1382: var 3
1383: var 4
1384: var 5
1385: pnull
1386: cset 0
1387: compl
1388: invoke 1
1389: invoke 1
1390: invoke 1
1391: invoke 2
1392: unmark 1
1393: mark L3
1394: var 6
1395: int 1
1396: invoke 1
1397: lab L4
1398: unmark 1
1399: goto L3
1400: lab L5
1401: escan
1402: unmark 1
1403: lab L2
1404: mark L6
1405: mark L7
1406: var 1
1407: line 165
1408: pret
1409: lab L7
1410: line 165
1411: pfail
1412: unmark 1
1413: lab L6
1414: pnull
1415: line 166
1416: pfail
1417: end
1418: proc prompter
1419: local 0,001000,line
1420: local 1,000000,prompt
1421: con 0,002000,1
1422: con 1,010000,1,075
1423: con 2,002000,2
1424: con 3,002000,0
1425: declend
1426: file rsg.icn
1427: line 168
1428: mark L1
1429: mark L0
1430: pnull
1431: pnull
1432: var 0
1433: int 0
1434: line 169
1435: subsc
1436: str 1
1437: lexeq
1438: unmark 1
1439: mark L2
1440: pnull
1441: var 1
1442: pnull
1443: var 0
1444: int 2
1445: int 3
1446: line 170
1447: sect
1448: asgn
1449: unmark 1
1450: lab L2
1451: mark L3
1452: pnull
1453: line 171
1454: pret
1455: lab L3
1456: line 171
1457: pfail
1458: unmark 1
1459: lab L1
1460: pnull
1461: line 173
1462: pfail
1463: end
1464: proc pwrite
1465: local 0,001000,name
1466: local 1,001000,ofile
1467: local 2,000020,nt
1468: local 3,000020,a
1469: local 4,000040,builtin
1470: local 5,000000,sort
1471: local 6,000000,defs
1472: local 7,000000,write
1473: local 8,000000,getrhs
1474: con 0,010000,2,154,142
1475: con 1,010000,2,162,142
1476: con 2,010000,2,166,142
1477: con 3,010000,2,156,154
1478: con 4,010000,0
1479: con 5,010000,6,046,154,143,141,163,145
1480: con 6,010000,6,046,165,143,141,163,145
1481: con 7,010000,6,046,144,151,147,151,164
1482: con 8,002000,0
1483: con 9,002000,1
1484: con 10,010000,1,074
1485: con 11,010000,4,076,072,072,075
1486: con 12,002000,2
1487: con 13,010000,3,072,072,075
1488: con 14,010000,28,052,052,052,040,165,156,144,145,146,151,156,145,144,040,156,157,156,164,145,162,155,151,156,141,154,072,040,040
1489: declend
1490: file rsg.icn
1491: line 175
1492: init? L1
1493: mark L1
1494: pnull
1495: var 4
1496: pnull
1497: str 0
1498: str 1
1499: str 2
1500: str 3
1501: str 4
1502: str 5
1503: str 6
1504: str 7
1505: line 178
1506: llist 8
1507: asgn
1508: unmark 1
1509: lab L1
1510: mark L2
1511: mark L3
1512: pnull
1513: pnull
1514: var 0
1515: line 179
1516: size
1517: int 8
1518: numeq
1519: unmark 1
1520: mark L5
1521: pnull
1522: var 3
1523: var 5
1524: var 6
1525: line 180
1526: invoke 1
1527: asgn
1528: unmark 1
1529: lab L5
1530: mark L0
1531: pnull
1532: var 2
1533: pnull
1534: var 3
1535: line 181
1536: bang
1537: asgn
1538: pop
1539: mark L0
1540: mark L8
1541: mark L0
1542: pnull
1543: pnull
1544: var 2
1545: int 9
1546: line 182
1547: subsc
1548: pnull
1549: var 4
1550: bang
1551: lexeq
1552: unmark 1
1553: unmark 2
1554: goto L6
1555: unmark 1
1556: lab L8
1557: var 7
1558: var 1
1559: str 10
1560: pnull
1561: var 2
1562: int 9
1563: line 183
1564: subsc
1565: str 11
1566: var 8
1567: pnull
1568: var 2
1569: int 12
1570: subsc
1571: invoke 1
1572: invoke 5
1573: unmark 1
1574: lab L6
1575: efail
1576: lab L7
1577: goto L4
1578: lab L3
1579: mark L9
1580: var 7
1581: var 1
1582: var 0
1583: str 13
1584: var 8
1585: pnull
1586: pnull
1587: var 6
1588: pnull
1589: var 0
1590: int 12
1591: pnull
1592: int 9
1593: line 186
1594: neg
1595: sect
1596: subsc
1597: nonnull
1598: invoke 1
1599: invoke 4
1600: esusp
1601: goto L10
1602: lab L9
1603: var 7
1604: str 14
1605: var 0
1606: line 187
1607: invoke 2
1608: lab L10
1609: lab L4
1610: unmark 1
1611: lab L2
1612: pnull
1613: line 188
1614: pfail
1615: end
1616: proc sform
1617: local 0,001000,alt
1618: local 1,000020,s
1619: local 2,000020,x
1620: local 3,000000,type
1621: con 0,010000,0
1622: con 1,010000,6,163,164,162,151,156,147
1623: con 2,010000,7,156,157,156,164,145,162,155
1624: con 3,010000,1,074
1625: con 4,010000,1,076
1626: con 5,010000,7,143,150,141,162,163,145,164
1627: con 6,010000,2,074,047
1628: con 7,010000,2,047,076
1629: declend
1630: file rsg.icn
1631: line 190
1632: mark L1
1633: pnull
1634: var 1
1635: str 0
1636: line 192
1637: asgn
1638: unmark 1
1639: lab L1
1640: mark L2
1641: mark L0
1642: pnull
1643: var 2
1644: pnull
1645: var 0
1646: line 193
1647: bang
1648: asgn
1649: pop
1650: mark L0
1651: pnull
1652: var 1
1653: dup
1654: mark L0
1655: var 3
1656: var 2
1657: line 194
1658: invoke 1
1659: eret
1660: mark L6
1661: ccase
1662: str 1
1663: line 195
1664: eqv
1665: unmark 1
1666: pop
1667: var 2
1668: goto L5
1669: lab L6
1670: mark L7
1671: ccase
1672: str 2
1673: line 196
1674: eqv
1675: unmark 1
1676: pop
1677: pnull
1678: pnull
1679: str 3
1680: pnull
1681: var 2
1682: field name
1683: cat
1684: str 4
1685: cat
1686: goto L5
1687: lab L7
1688: mark L8
1689: ccase
1690: str 5
1691: line 197
1692: eqv
1693: unmark 1
1694: pop
1695: pnull
1696: pnull
1697: str 6
1698: pnull
1699: var 2
1700: field chars
1701: cat
1702: str 7
1703: cat
1704: goto L5
1705: lab L8
1706: efail
1707: lab L5
1708: line 194
1709: cat
1710: asgn
1711: unmark 1
1712: lab L3
1713: efail
1714: lab L4
1715: unmark 1
1716: lab L2
1717: mark L9
1718: mark L10
1719: var 1
1720: line 199
1721: pret
1722: lab L10
1723: line 199
1724: pfail
1725: unmark 1
1726: lab L9
1727: pnull
1728: line 200
1729: pfail
1730: end
1731: proc source
1732: local 0,001000,line
1733: local 1,000000,push
1734: local 2,000000,ifile
1735: local 3,000000,in
1736: local 4,000000,open
1737: local 5,000000,file
1738: local 6,000000,tab
1739: local 7,000000,write
1740: con 0,010000,1,100
1741: con 1,002000,0
1742: con 2,010000,16,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040
1743: declend
1744: file rsg.icn
1745: line 202
1746: mark L1
1747: mark L2
1748: var 0
1749: line 203
1750: bscan
1751: pnull
1752: str 0
1753: tabmat
1754: pop
1755: var 1
1756: var 2
1757: var 3
1758: invoke 2
1759: pop
1760: pnull
1761: var 3
1762: mark L3
1763: var 4
1764: pnull
1765: var 5
1766: var 6
1767: int 1
1768: line 204
1769: invoke 1
1770: asgn
1771: invoke 1
1772: esusp
1773: goto L4
1774: lab L3
1775: mark L5
1776: var 7
1777: line 205
1778: keywd 6
1779: str 2
1780: var 5
1781: invoke 3
1782: unmark 1
1783: lab L5
1784: line 206
1785: pfail
1786: lab L4
1787: line 204
1788: asgn
1789: line 203
1790: escan
1791: pret
1792: lab L2
1793: line 203
1794: pfail
1795: unmark 1
1796: lab L1
1797: pnull
1798: line 209
1799: pfail
1800: end
1801: proc symimage
1802: local 0,001000,x
1803: local 1,000000,type
1804: con 0,010000,6,163,164,162,151,156,147
1805: con 1,010000,7,156,157,156,164,145,162,155
1806: con 2,010000,1,074
1807: con 3,010000,1,076
1808: con 4,010000,7,143,150,141,162,163,145,164
1809: con 5,010000,2,074,047
1810: con 6,010000,2,047,076
1811: declend
1812: file rsg.icn
1813: line 211
1814: mark L1
1815: mark L2
1816: mark L0
1817: var 1
1818: var 0
1819: line 212
1820: invoke 1
1821: eret
1822: mark L4
1823: ccase
1824: str 0
1825: line 213
1826: eqv
1827: unmark 1
1828: pop
1829: var 0
1830: goto L3
1831: lab L4
1832: mark L5
1833: ccase
1834: str 1
1835: line 214
1836: eqv
1837: unmark 1
1838: pop
1839: pnull
1840: pnull
1841: str 2
1842: pnull
1843: var 0
1844: field name
1845: cat
1846: str 3
1847: cat
1848: goto L3
1849: lab L5
1850: mark L6
1851: ccase
1852: str 4
1853: line 215
1854: eqv
1855: unmark 1
1856: pop
1857: pnull
1858: pnull
1859: str 5
1860: pnull
1861: var 0
1862: field chars
1863: cat
1864: str 6
1865: cat
1866: goto L3
1867: lab L6
1868: efail
1869: lab L3
1870: line 212
1871: pret
1872: lab L2
1873: line 212
1874: pfail
1875: unmark 1
1876: lab L1
1877: pnull
1878: line 217
1879: pfail
1880: end
1881: proc syms
1882: local 0,001000,alt
1883: local 1,000020,slist
1884: local 2,000000,put
1885: local 3,000000,tab
1886: local 4,000000,many
1887: local 5,000000,defnon
1888: local 6,000000,upto
1889: local 7,000000,move
1890: con 0,020000,1,074
1891: con 1,002000,2
1892: con 2,010000,1,074
1893: con 3,020000,1,076
1894: con 4,002000,1
1895: declend
1896: file rsg.icn
1897: line 219
1898: mark L1
1899: pnull
1900: var 1
1901: pnull
1902: line 221
1903: llist 0
1904: asgn
1905: unmark 1
1906: lab L1
1907: mark L2
1908: var 0
1909: line 222
1910: bscan
1911: lab L3
1912: line 222
1913: mark L0
1914: var 2
1915: var 1
1916: mark L6
1917: var 3
1918: var 4
1919: pnull
1920: cset 0
1921: compl
1922: invoke 1
1923: invoke 1
1924: esusp
1925: goto L7
1926: lab L6
1927: var 5
1928: int 1
1929: pnull
1930: str 2
1931: line 223
1932: tabmat
1933: var 3
1934: var 6
1935: cset 3
1936: invoke 1
1937: invoke 1
1938: var 7
1939: int 4
1940: invoke 1
1941: invoke 3
1942: invoke 1
1943: lab L7
1944: line 222
1945: invoke 2
1946: lab L4
1947: unmark 1
1948: goto L3
1949: lab L5
1950: escan
1951: unmark 1
1952: lab L2
1953: mark L8
1954: mark L9
1955: var 1
1956: line 224
1957: pret
1958: lab L9
1959: line 224
1960: pfail
1961: unmark 1
1962: lab L8
1963: pnull
1964: line 225
1965: pfail
1966: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.