|
996
|
1 $L
|
|
|
2 /* $A.c -- generated PIC C-code file for INTERCAL program $A.i */
|
|
|
3
|
|
|
4 /* This code is explicitly *not* GPLed. Use, abuse, and redistribute freely */
|
|
|
5
|
|
|
6 $M
|
|
|
7 $E
|
|
|
8
|
|
|
9 $K
|
|
|
10
|
|
|
11 #define ICKABSTAINED(d) abstain##d
|
|
|
12 #define ICKSTASH(a,b,c,d) c##ick_stash[b]=c[b]
|
|
|
13 #define ICKRETRIEVE(a,b,c,d,e) a[b]=a##ick_stash[b]
|
|
|
14 #define ICKIGNORE(a,b,c) ignore##c##b
|
|
|
15
|
|
|
16 ICK_INT16 ick_skipto=0;
|
|
|
17 $O
|
|
|
18
|
|
|
19 $C
|
|
|
20
|
|
|
21 $D
|
|
|
22 $P
|
|
|
23 int ick_main(void)
|
|
|
24 {
|
|
|
25 pickinit();
|
|
|
26 /* degenerated code */
|
|
|
27 ick_restart:
|
|
|
28 top:
|
|
|
29 switch(ick_skipto)
|
|
|
30 {
|
|
|
31 case 0:
|
|
|
32 $G
|
|
|
33 }
|
|
|
34
|
|
|
35 #ifdef YUK
|
|
|
36 if(yukloop) goto ick_restart;
|
|
|
37 #endif
|
|
|
38 ick_lose(IE633, $J, (const char *)0);
|
|
|
39
|
|
|
40 $H
|
|
|
41
|
|
|
42 return 0;
|
|
|
43 }
|
|
|
44 $Q
|
|
|
45
|
|
|
46 /* Generated code for $A.i ends here */
|
