#include "perms.h" // 1 !*********************************************************************** // 2 !* // 3 !* BCPL compiler steering routines // 4 !* // 5 !* Version E1.11 // 6 !* // 7 !* Copyright R.D. Eager University of Kent MCMLXXXIV // 8 !* // 9 !*********************************************************************** // 10 ! // 11 ! // 12 !*********************************************************************** // 13 !* // 14 !* External references // 15 !* // 16 !*********************************************************************** // 17 ! // 18 %externalroutine compile(%string(255) s,%string(32) entry, %integername flag) #line 18 "regression-compile-tmp/bcpls.imp" void COMPILE( _imp_string /*%string(255)*/ S, _imp_string /*%string(32)*/ ENTRY, int /*name*/*FLAG ) #line 18 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 19 %end _imp_current_line = 19; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 19 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block COMPILE at level 1 // 20 %externalintegermap comreg(%integer n) #line 20 "regression-compile-tmp/bcpls.imp" int /*map*/*COMREG( int N ) #line 20 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 21 %owninteger i _imp_current_line = 21; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 21 "regression-compile-tmp/bcpls.imp" static int I; // 22 %result == i _imp_current_line = 22; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 22 "regression-compile-tmp/bcpls.imp" return &I; // 23 %end _imp_current_line = 23; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 23 "regression-compile-tmp/bcpls.imp" _imp_endofblock: ; } // End of block COMREG at level 1 // 24 %externalstring(255)%function failuremessage(%integer mess) #line 24 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ FAILUREMESSAGE( int MESS ) #line 24 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 25 %result = "FAILURE: ".itos(mess, 0) _imp_current_line = 25; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 25 "regression-compile-tmp/bcpls.imp" return _imp_join((_imp_string)_imp_str_literal("FAILURE: "),(_imp_string)_imp_ITOS(MESS, 0)); // 26 %end _imp_current_line = 26; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 26 "regression-compile-tmp/bcpls.imp" _imp_endofblock: ; } // End of block FAILUREMESSAGE at level 1 // 27 %externalintegerfunction return code #line 27 "regression-compile-tmp/bcpls.imp" int RETURNCODE( void ) #line 27 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 28 %result = 0 _imp_current_line = 28; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 28 "regression-compile-tmp/bcpls.imp" return 0; // 29 %end _imp_current_line = 29; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 29 "regression-compile-tmp/bcpls.imp" _imp_endofblock: ; } // End of block RETURNCODE at level 1 // 30 %externalroutine setfname(%string(40) file) #line 30 "regression-compile-tmp/bcpls.imp" void SETFNAME( _imp_string /*%string(40)*/ FILE ) #line 30 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 31 %end _imp_current_line = 31; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 31 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block SETFNAME at level 1 // 32 ! // 33 %externalintegerfunction icl9cezbcplx(%string(255) parms) #line 33 "regression-compile-tmp/bcpls.imp" int ICL9CEZBCPLX( _imp_string /*%string(255)*/ PARMS ) #line 33 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 34 %result = 0 _imp_current_line = 34; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 34 "regression-compile-tmp/bcpls.imp" return 0; // 35 %end _imp_current_line = 35; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 35 "regression-compile-tmp/bcpls.imp" _imp_endofblock: ; } // End of block ICL9CEZBCPLX at level 1 // 36 ! // 37 ! // 38 !*********************************************************************** // 39 !* // 40 !* S H U F F L E // 41 !* // 42 !* This routine: // 43 !* a) Moves any keyword parameters out of the first four parameter // 44 !* positions // 45 !* b) Puts the first four parameters into CPARMS (for COMPILE) // 46 !* c) Puts the rest of the parameters into S (for passing over // 47 !* via COMREG(9)) // 48 !* // 49 !*********************************************************************** // 50 ! // 51 %routine shuffle(%string(*)%name s,cparms) #line 51 "regression-compile-tmp/bcpls.imp" void SHUFFLE( _imp_string /*%string(255)*/ /*name*/*S, _imp_string /*%string(255)*/ /*name*/*CPARMS ) #line 51 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 52 %integer i _imp_current_line = 52; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 52 "regression-compile-tmp/bcpls.imp" int I; // 53 %string(255) work1,work2 _imp_current_line = 53; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 53 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ WORK1; #line 53 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ WORK2; // 54 %string(255)%array p(1:4) _imp_current_line = 54; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 54 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ P[4]; // 55 ! // 56 %if s = "?" %then %start; ! Handle this specially _imp_current_line = 56; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 56 "regression-compile-tmp/bcpls.imp" if ((_imp_strcmp(*S, _imp_str_literal("?")) != 0)) goto L_0002; // 57 cparms = ".IN,.NULL,.NULL,.NULL"; ! Never used really _imp_current_line = 57; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 57 "regression-compile-tmp/bcpls.imp" *CPARMS = _imp_str_literal(".IN,.NULL,.NULL,.NULL"); // 58 %else _imp_current_line = 58; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 58 "regression-compile-tmp/bcpls.imp" goto L_0003; #line 58 "regression-compile-tmp/bcpls.imp" L_0002:; // 59 %for i = 1,1,4 %cycle _imp_current_line = 59; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 59 "regression-compile-tmp/bcpls.imp" I = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 4"); L_0004:; if (I == 4) goto L_0005; I += 1; // 60 p(i) = ""; ! Initialise _imp_current_line = 60; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 60 "regression-compile-tmp/bcpls.imp" P[(((int)(I)) - (1))] = _imp_str_literal(""); // 61 %repeat _imp_current_line = 61; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 61 "regression-compile-tmp/bcpls.imp" goto L_0004; #line 61 "regression-compile-tmp/bcpls.imp" L_0005:; // 62 ! // 63 s <- s."," _imp_current_line = 63; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 63 "regression-compile-tmp/bcpls.imp" *S = _imp_join((_imp_string)*S,(_imp_string)_imp_str_literal(",")); // 64 %for i = 1,1,4 %cycle _imp_current_line = 64; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 64 "regression-compile-tmp/bcpls.imp" I = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 4"); L_0007:; if (I == 4) goto L_0008; I += 1; // 65 %exit %unless s -> p(i).(",").s _imp_current_line = 65; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 65 "regression-compile-tmp/bcpls.imp" if (_imp_resolve(*S, &P[(((int)(I)) - (1))], _imp_str_literal(","), S)) goto L_000a; #line 65 "regression-compile-tmp/bcpls.imp" goto L_0008; #line 65 "regression-compile-tmp/bcpls.imp" L_000a:; // 66 %repeat _imp_current_line = 66; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 66 "regression-compile-tmp/bcpls.imp" goto L_0007; #line 66 "regression-compile-tmp/bcpls.imp" L_0008:; // 67 ! // 68 %cycle i = 1,1,4 _imp_current_line = 68; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 68 "regression-compile-tmp/bcpls.imp" I = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 4"); L_000b:; if (I == 4) goto L_000c; I += 1; // 69 %if p(i) -> work1.("=").work2 %then %start _imp_current_line = 69; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 69 "regression-compile-tmp/bcpls.imp" if (_imp_resolve(P[(((int)(I)) - (1))], &WORK1, _imp_str_literal("="), &WORK2)) goto L_000e; // 70 s = p(i).",".s _imp_current_line = 70; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 70 "regression-compile-tmp/bcpls.imp" *S = _imp_join((_imp_string)_imp_join((_imp_string)P[(((int)(I)) - (1))],(_imp_string)_imp_str_literal(",")),(_imp_string)*S); // 71 p(i) = "" _imp_current_line = 71; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 71 "regression-compile-tmp/bcpls.imp" P[(((int)(I)) - (1))] = _imp_str_literal(""); // 72 %finish _imp_current_line = 72; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 72 "regression-compile-tmp/bcpls.imp" L_000e:; // 73 %repeat _imp_current_line = 73; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 73 "regression-compile-tmp/bcpls.imp" goto L_000b; #line 73 "regression-compile-tmp/bcpls.imp" L_000c:; // 74 ! // 75 cparms = p(1).",".p(2).",".p(3).",".p(4) _imp_current_line = 75; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 75 "regression-compile-tmp/bcpls.imp" *CPARMS = _imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)P[0],(_imp_string)_imp_str_literal(",")),(_imp_string)P[1]),(_imp_string)_imp_str_literal(",")),(_imp_string)P[2]),(_imp_string)_imp_str_literal(",")),(_imp_string)P[3]); // 76 %finish _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 76 "regression-compile-tmp/bcpls.imp" L_0003:; // 77 %end; ! of shuffle _imp_current_line = 77; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 77 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block SHUFFLE at level 1 // 78 ! // 79 ! // 80 !*********************************************************************** // 81 !* // 82 !* B C P L // 83 !* // 84 !*********************************************************************** // 85 ! // 86 %externalroutine bcpl(%string(255) parms) #line 86 "regression-compile-tmp/bcpls.imp" void BCPL( _imp_string /*%string(255)*/ PARMS ) #line 86 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 87 %integer flag _imp_current_line = 87; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 87 "regression-compile-tmp/bcpls.imp" int FLAG; // 88 %string(255) cparms,auxparms _imp_current_line = 88; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 88 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 88 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 89 ! // 90 setfname("") _imp_current_line = 90; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 90 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 91 shuffle(parms,cparms) _imp_current_line = 91; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 91 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 92 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 92; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 92 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 93 comreg(9) = addr(auxparms); ! Picked up by compiler _imp_current_line = 93; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 93 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 94 ! // 95 compile(cparms,"ICL9CEZBCPL1",flag) _imp_current_line = 95; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 95 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPL1"), &FLAG); // 96 flag = return code _imp_current_line = 96; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 96 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 97 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 97; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 97 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_000f; #line 97 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 97 "regression-compile-tmp/bcpls.imp" L_000f:; // 98 %if 0 # flag < 1000 %then %start _imp_current_line = 98; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 98 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_0010; // 99 newline _imp_current_line = 99; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 99 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 100 printstring("BCPL fails -".failuremessage(flag)) _imp_current_line = 100; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 100 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPL fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 101 %finish _imp_current_line = 101; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 101 "regression-compile-tmp/bcpls.imp" L_0010:; // 102 %end; ! of bcpl _imp_current_line = 102; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 102 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPL at level 1 // 103 ! // 104 ! // 105 !*********************************************************************** // 106 !* // 107 !* B C P L C G E N // 108 !* // 109 !*********************************************************************** // 110 ! // 111 %externalroutine bcplcgen(%string(255) parms) #line 111 "regression-compile-tmp/bcpls.imp" void BCPLCGEN( _imp_string /*%string(255)*/ PARMS ) #line 111 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 112 %integer flag _imp_current_line = 112; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 112 "regression-compile-tmp/bcpls.imp" int FLAG; // 113 %string(255) cparms,auxparms _imp_current_line = 113; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 113 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 113 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 114 ! // 115 setfname("") _imp_current_line = 115; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 115 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 116 shuffle(parms,cparms) _imp_current_line = 116; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 116 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 117 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 117; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 117 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 118 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 118; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 118 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 119 ! // 120 compile(cparms,"ICL9CEZBCPL2",flag) _imp_current_line = 120; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 120 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPL2"), &FLAG); // 121 flag = return code _imp_current_line = 121; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 121 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 122 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 122; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 122 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_0011; #line 122 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 122 "regression-compile-tmp/bcpls.imp" L_0011:; // 123 %if 0 # flag < 1000 %then %start _imp_current_line = 123; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 123 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_0012; // 124 newline _imp_current_line = 124; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 124 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 125 printstring("BCPLCGEN fails -".failuremessage(flag)) _imp_current_line = 125; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 125 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLCGEN fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 126 %finish _imp_current_line = 126; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 126 "regression-compile-tmp/bcpls.imp" L_0012:; // 127 %end; ! of bcplcgen _imp_current_line = 127; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 127 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLCGEN at level 1 // 128 ! // 129 ! // 130 !*********************************************************************** // 131 !* // 132 !* B C P L V // 133 !* // 134 !*********************************************************************** // 135 ! // 136 %externalroutine bcplv(%string(255) parms) #line 136 "regression-compile-tmp/bcpls.imp" void BCPLV( _imp_string /*%string(255)*/ PARMS ) #line 136 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 137 %integer flag _imp_current_line = 137; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 137 "regression-compile-tmp/bcpls.imp" int FLAG; // 138 %string(255) cparms,auxparms _imp_current_line = 138; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 138 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 138 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 139 ! // 140 setfname("") _imp_current_line = 140; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 140 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 141 shuffle(parms,cparms) _imp_current_line = 141; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 141 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 142 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 142; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 142 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 143 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 143; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 143 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 144 ! // 145 compile(cparms,"ICL9CEZBCPLV",flag) _imp_current_line = 145; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 145 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPLV"), &FLAG); // 146 flag = return code _imp_current_line = 146; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 146 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 147 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 147; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 147 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_0013; #line 147 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 147 "regression-compile-tmp/bcpls.imp" L_0013:; // 148 %if 0 # flag < 1000 %then %start _imp_current_line = 148; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 148 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_0014; // 149 newline _imp_current_line = 149; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 149 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 150 printstring("BCPLV fails -".failuremessage(flag)) _imp_current_line = 150; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 150 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLV fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 151 %finish _imp_current_line = 151; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 151 "regression-compile-tmp/bcpls.imp" L_0014:; // 152 %end; ! of bcplv _imp_current_line = 152; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 152 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLV at level 1 // 153 ! // 154 ! // 155 !*********************************************************************** // 156 !* // 157 !* B C P L W // 158 !* // 159 !*********************************************************************** // 160 ! // 161 %externalroutine bcplw(%string(255) parms) #line 161 "regression-compile-tmp/bcpls.imp" void BCPLW( _imp_string /*%string(255)*/ PARMS ) #line 161 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 162 %integer flag _imp_current_line = 162; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 162 "regression-compile-tmp/bcpls.imp" int FLAG; // 163 %string(255) cparms,auxparms _imp_current_line = 163; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 163 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 163 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 164 ! // 165 setfname("") _imp_current_line = 165; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 165 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 166 shuffle(parms,cparms) _imp_current_line = 166; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 166 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 167 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 167; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 167 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 168 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 168; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 168 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 169 ! // 170 compile(cparms,"ICL9CEZBCPLW",flag) _imp_current_line = 170; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 170 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPLW"), &FLAG); // 171 flag = return code _imp_current_line = 171; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 171 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 172 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 172; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 172 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_0015; #line 172 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 172 "regression-compile-tmp/bcpls.imp" L_0015:; // 173 %if 0 # flag < 1000 %then %start _imp_current_line = 173; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 173 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_0016; // 174 newline _imp_current_line = 174; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 174 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 175 printstring("BCPLW fails -".failuremessage(flag)) _imp_current_line = 175; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 175 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLW fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 176 %finish _imp_current_line = 176; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 176 "regression-compile-tmp/bcpls.imp" L_0016:; // 177 %end; ! of bcplw _imp_current_line = 177; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 177 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLW at level 1 // 178 ! // 179 ! // 180 !*********************************************************************** // 181 !* // 182 !* B C P L Z // 183 !* // 184 !*********************************************************************** // 185 ! // 186 %externalroutine bcplz(%string(255) parms) #line 186 "regression-compile-tmp/bcpls.imp" void BCPLZ( _imp_string /*%string(255)*/ PARMS ) #line 186 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 187 %integer flag _imp_current_line = 187; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 187 "regression-compile-tmp/bcpls.imp" int FLAG; // 188 %string(255) cparms,auxparms _imp_current_line = 188; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 188 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 188 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 189 ! // 190 setfname("") _imp_current_line = 190; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 190 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 191 shuffle(parms,cparms) _imp_current_line = 191; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 191 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 192 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 192; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 192 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 193 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 193; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 193 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 194 ! // 195 compile(cparms,"ICL9CEZBCPLZ",flag) _imp_current_line = 195; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 195 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPLZ"), &FLAG); // 196 flag = return code _imp_current_line = 196; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 196 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 197 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 197; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 197 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_0017; #line 197 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 197 "regression-compile-tmp/bcpls.imp" L_0017:; // 198 %if 0 # flag < 1000 %then %start _imp_current_line = 198; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 198 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_0018; // 199 newline _imp_current_line = 199; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 199 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 200 printstring("BCPLZ fails -".failuremessage(flag)) _imp_current_line = 200; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 200 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLZ fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 201 %finish _imp_current_line = 201; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 201 "regression-compile-tmp/bcpls.imp" L_0018:; // 202 %end; ! of bcplz _imp_current_line = 202; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 202 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLZ at level 1 // 203 ! // 204 ! // 205 !*********************************************************************** // 206 !* // 207 !* B C P L R // 208 !* // 209 !*********************************************************************** // 210 ! // 211 %externalroutine bcplr(%string(255) parms) #line 211 "regression-compile-tmp/bcpls.imp" void BCPLR( _imp_string /*%string(255)*/ PARMS ) #line 211 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 212 %integer flag _imp_current_line = 212; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 212 "regression-compile-tmp/bcpls.imp" int FLAG; // 213 %string(255) cparms,auxparms _imp_current_line = 213; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 213 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 213 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 214 ! // 215 setfname("") _imp_current_line = 215; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 215 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 216 shuffle(parms,cparms) _imp_current_line = 216; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 216 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 217 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 217; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 217 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 218 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 218; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 218 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 219 ! // 220 compile(cparms,"ICL9CEZBCPLR",flag) _imp_current_line = 220; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 220 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPLR"), &FLAG); // 221 flag = return code _imp_current_line = 221; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 221 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 222 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 222; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 222 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_0019; #line 222 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 222 "regression-compile-tmp/bcpls.imp" L_0019:; // 223 %if 0 # flag < 1000 %then %start _imp_current_line = 223; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 223 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_001a; // 224 newline _imp_current_line = 224; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 224 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 225 printstring("BCPLR fails -".failuremessage(flag)) _imp_current_line = 225; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 225 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLR fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 226 %finish _imp_current_line = 226; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 226 "regression-compile-tmp/bcpls.imp" L_001a:; // 227 %end; ! of bcplr _imp_current_line = 227; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 227 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLR at level 1 // 228 ! // 229 ! // 230 !*********************************************************************** // 231 !* // 232 !* B C P L Q // 233 !* // 234 !*********************************************************************** // 235 ! // 236 %externalroutine bcplq(%string(255) parms) #line 236 "regression-compile-tmp/bcpls.imp" void BCPLQ( _imp_string /*%string(255)*/ PARMS ) #line 236 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 237 %integer flag _imp_current_line = 237; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 237 "regression-compile-tmp/bcpls.imp" int FLAG; // 238 %string(255) cparms,auxparms _imp_current_line = 238; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 238 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ CPARMS; #line 238 "regression-compile-tmp/bcpls.imp" _imp_string /*%string(255)*/ AUXPARMS; // 239 ! // 240 setfname("") _imp_current_line = 240; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 240 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 241 shuffle(parms,cparms) _imp_current_line = 241; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 241 "regression-compile-tmp/bcpls.imp" SHUFFLE(&PARMS, &CPARMS); // 242 auxparms = parms; ! Make copy, to ensure string is word-aligned _imp_current_line = 242; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 242 "regression-compile-tmp/bcpls.imp" AUXPARMS = PARMS; // 243 comreg(9) = addr(auxparms); ! Picked up by codegenerator _imp_current_line = 243; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 243 "regression-compile-tmp/bcpls.imp" *COMREG(9) = _imp_ADDR(&AUXPARMS); // 244 ! // 245 compile(cparms,"ICL9CEZBCPLQ",flag) _imp_current_line = 245; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 245 "regression-compile-tmp/bcpls.imp" COMPILE(CPARMS, _imp_str_literal("ICL9CEZBCPLQ"), &FLAG); // 246 flag = return code _imp_current_line = 246; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 246 "regression-compile-tmp/bcpls.imp" FLAG = RETURNCODE(); // 247 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 247; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 247 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_001b; #line 247 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 247 "regression-compile-tmp/bcpls.imp" L_001b:; // 248 %if 0 # flag < 1000 %then %start _imp_current_line = 248; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 248 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_001c; // 249 newline _imp_current_line = 249; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 249 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 250 printstring("BCPLQ fails -".failuremessage(flag)) _imp_current_line = 250; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 250 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLQ fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 251 %finish _imp_current_line = 251; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 251 "regression-compile-tmp/bcpls.imp" L_001c:; // 252 %end; ! of bcplq _imp_current_line = 252; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 252 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLQ at level 1 // 253 ! // 254 ! // 255 !*********************************************************************** // 256 !* // 257 !* B C P L X R E F // 258 !* // 259 !*********************************************************************** // 260 ! // 261 %externalroutine bcplxref(%string(255) parms) #line 261 "regression-compile-tmp/bcpls.imp" void BCPLXREF( _imp_string /*%string(255)*/ PARMS ) #line 261 "regression-compile-tmp/bcpls.imp" { __label__ _imp_endofblock; // 262 %integer flag _imp_current_line = 262; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 262 "regression-compile-tmp/bcpls.imp" int FLAG; // 263 ! // 264 setfname("") _imp_current_line = 264; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 264 "regression-compile-tmp/bcpls.imp" SETFNAME(_imp_str_literal("")); // 265 flag = icl9cezbcplx(parms) _imp_current_line = 265; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 265 "regression-compile-tmp/bcpls.imp" FLAG = ICL9CEZBCPLX(PARMS); // 266 flag = 0 %if flag = -1; ! INT:A _imp_current_line = 266; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 266 "regression-compile-tmp/bcpls.imp" if (((FLAG) != ((-1)))) goto L_001d; #line 266 "regression-compile-tmp/bcpls.imp" FLAG = 0; #line 266 "regression-compile-tmp/bcpls.imp" L_001d:; // 267 %if 0 # flag < 1000 %then %start _imp_current_line = 267; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 267 "regression-compile-tmp/bcpls.imp" if ((((0) == (FLAG))) || (((FLAG) >= (1000)))) goto L_001e; // 268 newline _imp_current_line = 268; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 268 "regression-compile-tmp/bcpls.imp" _imp_NEWLINE(); // 269 printstring("BCPLXREF fails -".failuremessage(flag)) _imp_current_line = 269; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 269 "regression-compile-tmp/bcpls.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("BCPLXREF fails -"),(_imp_string)FAILUREMESSAGE(FLAG))); // 270 %finish _imp_current_line = 270; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 270 "regression-compile-tmp/bcpls.imp" L_001e:; // 271 %end; ! of bcplxref _imp_current_line = 271; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 271 "regression-compile-tmp/bcpls.imp" return; _imp_endofblock: ; } // End of block BCPLXREF at level 1 // 272 // 273 %begin #line 273 "regression-compile-tmp/bcpls.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 274 bcpl("") _imp_current_line = 274; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 274 "regression-compile-tmp/bcpls.imp" BCPL(_imp_str_literal("")); // 275 %end _imp_current_line = 275; _imp_current_file = "regression-compile-tmp/bcpls.imp"; #line 275 "regression-compile-tmp/bcpls.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 // 276 // 277 %endoffile #line 277 "regression-compile-tmp/bcpls.imp" // End of file