#include "perms.h" // 1 %EXTERNALROUTINE BACKGAMMON (%STRING(255) ST) #line 1 "regression-compile-tmp/gammon.imp" void BACKGAMMON( _imp_string /*%string(255)*/ ST ) #line 1 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 2 %OWNINTEGER BBOFF,WBOFF,DICE1,DICE2,BARFL,BRDVAL,BSTVAL,COMPVAL _imp_current_line = 2; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 2 "regression-compile-tmp/gammon.imp" static int BBOFF; #line 2 "regression-compile-tmp/gammon.imp" static int WBOFF; #line 2 "regression-compile-tmp/gammon.imp" static int DICE1; #line 2 "regression-compile-tmp/gammon.imp" static int DICE2; #line 2 "regression-compile-tmp/gammon.imp" static int BARFL; #line 2 "regression-compile-tmp/gammon.imp" static int BRDVAL; #line 2 "regression-compile-tmp/gammon.imp" static int BSTVAL; #line 2 "regression-compile-tmp/gammon.imp" static int COMPVAL; // 3 %OWNINTEGER M1,M2,M3,M4,V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,I,J,K,RUNNING _imp_current_line = 3; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 3 "regression-compile-tmp/gammon.imp" static int M1; #line 3 "regression-compile-tmp/gammon.imp" static int M2; #line 3 "regression-compile-tmp/gammon.imp" static int M3; #line 3 "regression-compile-tmp/gammon.imp" static int M4; #line 3 "regression-compile-tmp/gammon.imp" static int V1; #line 3 "regression-compile-tmp/gammon.imp" static int V2; #line 3 "regression-compile-tmp/gammon.imp" static int V3; #line 3 "regression-compile-tmp/gammon.imp" static int V4; #line 3 "regression-compile-tmp/gammon.imp" static int V5; #line 3 "regression-compile-tmp/gammon.imp" static int V6; #line 3 "regression-compile-tmp/gammon.imp" static int V7; #line 3 "regression-compile-tmp/gammon.imp" static int V8; #line 3 "regression-compile-tmp/gammon.imp" static int V9; #line 3 "regression-compile-tmp/gammon.imp" static int V10; #line 3 "regression-compile-tmp/gammon.imp" static int I; #line 3 "regression-compile-tmp/gammon.imp" static int J; #line 3 "regression-compile-tmp/gammon.imp" static int K; #line 3 "regression-compile-tmp/gammon.imp" static int RUNNING; // 4 %OWNINTEGER NOMOV,BARPT1,BARPT2,PT1,PT2,L,M,N,TEMP,BSTMOV1,BSTMOV2 _imp_current_line = 4; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 4 "regression-compile-tmp/gammon.imp" static int NOMOV; #line 4 "regression-compile-tmp/gammon.imp" static int BARPT1; #line 4 "regression-compile-tmp/gammon.imp" static int BARPT2; #line 4 "regression-compile-tmp/gammon.imp" static int PT1; #line 4 "regression-compile-tmp/gammon.imp" static int PT2; #line 4 "regression-compile-tmp/gammon.imp" static int L; #line 4 "regression-compile-tmp/gammon.imp" static int M; #line 4 "regression-compile-tmp/gammon.imp" static int N; #line 4 "regression-compile-tmp/gammon.imp" static int TEMP; #line 4 "regression-compile-tmp/gammon.imp" static int BSTMOV1; #line 4 "regression-compile-tmp/gammon.imp" static int BSTMOV2; // 5 %OWNINTEGER BSTPT1,BSTPT2,W1,W2,W3,W4,W5,W6,W7,W8,W9,W10 _imp_current_line = 5; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 5 "regression-compile-tmp/gammon.imp" static int BSTPT1; #line 5 "regression-compile-tmp/gammon.imp" static int BSTPT2; #line 5 "regression-compile-tmp/gammon.imp" static int W1; #line 5 "regression-compile-tmp/gammon.imp" static int W2; #line 5 "regression-compile-tmp/gammon.imp" static int W3; #line 5 "regression-compile-tmp/gammon.imp" static int W4; #line 5 "regression-compile-tmp/gammon.imp" static int W5; #line 5 "regression-compile-tmp/gammon.imp" static int W6; #line 5 "regression-compile-tmp/gammon.imp" static int W7; #line 5 "regression-compile-tmp/gammon.imp" static int W8; #line 5 "regression-compile-tmp/gammon.imp" static int W9; #line 5 "regression-compile-tmp/gammon.imp" static int W10; // 6 %OWNINTEGER SECOND,BV1,BV2,BV3,BV4,BV5,BV6,BV7,BV8,BV9,BV10 _imp_current_line = 6; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 6 "regression-compile-tmp/gammon.imp" static int SECOND; #line 6 "regression-compile-tmp/gammon.imp" static int BV1; #line 6 "regression-compile-tmp/gammon.imp" static int BV2; #line 6 "regression-compile-tmp/gammon.imp" static int BV3; #line 6 "regression-compile-tmp/gammon.imp" static int BV4; #line 6 "regression-compile-tmp/gammon.imp" static int BV5; #line 6 "regression-compile-tmp/gammon.imp" static int BV6; #line 6 "regression-compile-tmp/gammon.imp" static int BV7; #line 6 "regression-compile-tmp/gammon.imp" static int BV8; #line 6 "regression-compile-tmp/gammon.imp" static int BV9; #line 6 "regression-compile-tmp/gammon.imp" static int BV10; // 7 %CONSTINTEGERARRAY ODDS(1:12)=35,38,44,47,47,53,18,21,15,12,6,9 _imp_current_line = 7; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 7 "regression-compile-tmp/gammon.imp" const int ODDS[12] = { 35, 38, 44, 47, 47, 53, 18, 21, 15, 12, 6, 9, }; // 8 %RECORDFORMAT F(%INTEGER WS,BS) _imp_current_line = 8; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 8 "regression-compile-tmp/gammon.imp" typedef struct F F; struct F { int WS; int BS; }; // 9 %OWNRECORD(f)%ARRAY BOARD(0:25){(F)} _imp_current_line = 9; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 9 "regression-compile-tmp/gammon.imp" static F BOARD[26]; // 10 %OWNINTEGER G,H,PT3,PT4,DICE3,DICE4,BSTPT3,BSTPT4,BARPT3,BARPT4 _imp_current_line = 10; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 10 "regression-compile-tmp/gammon.imp" static int G; #line 10 "regression-compile-tmp/gammon.imp" static int H; #line 10 "regression-compile-tmp/gammon.imp" static int PT3; #line 10 "regression-compile-tmp/gammon.imp" static int PT4; #line 10 "regression-compile-tmp/gammon.imp" static int DICE3; #line 10 "regression-compile-tmp/gammon.imp" static int DICE4; #line 10 "regression-compile-tmp/gammon.imp" static int BSTPT3; #line 10 "regression-compile-tmp/gammon.imp" static int BSTPT4; #line 10 "regression-compile-tmp/gammon.imp" static int BARPT3; #line 10 "regression-compile-tmp/gammon.imp" static int BARPT4; // 11 %INTEGERFN HOMEB _imp_current_line = 11; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 11 "regression-compile-tmp/gammon.imp" int HOMEB( void ) #line 11 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 12 %INTEGER NO,I _imp_current_line = 12; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 12 "regression-compile-tmp/gammon.imp" int NO; #line 12 "regression-compile-tmp/gammon.imp" int I; // 13 NO=BBOFF _imp_current_line = 13; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 13 "regression-compile-tmp/gammon.imp" NO = BBOFF; // 14 %CYCLE I=1,1,6 _imp_current_line = 14; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 14 "regression-compile-tmp/gammon.imp" I = 0; if ((((6)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 6"); L_0002:; if (I == 6) goto L_0003; I += 1; // 15 NO=NO+BOARD(I)_BS _imp_current_line = 15; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 15 "regression-compile-tmp/gammon.imp" NO = (((int)(NO)) + (BOARD[I].BS)); // 16 %REPEAT _imp_current_line = 16; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 16 "regression-compile-tmp/gammon.imp" goto L_0002; #line 16 "regression-compile-tmp/gammon.imp" L_0003:; // 17 %IF NO=15 %THENRESULT = 1 %ELSERESULT = 0 _imp_current_line = 17; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 17 "regression-compile-tmp/gammon.imp" if (((NO) != (15))) goto L_0005; #line 17 "regression-compile-tmp/gammon.imp" return 1; #line 17 "regression-compile-tmp/gammon.imp" L_0005:; #line 17 "regression-compile-tmp/gammon.imp" return 0; // 18 %END _imp_current_line = 18; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 18 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block HOMEB at level 2 // 19 // 20 %ROUTINE DOBLACK _imp_current_line = 20; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 20 "regression-compile-tmp/gammon.imp" void DOBLACK( void ) #line 20 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 21 %INTEGER PT,NO,M,D1,D2,D3,D4,TOT _imp_current_line = 21; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 21 "regression-compile-tmp/gammon.imp" int PT; #line 21 "regression-compile-tmp/gammon.imp" int NO; #line 21 "regression-compile-tmp/gammon.imp" int M; #line 21 "regression-compile-tmp/gammon.imp" int D1; #line 21 "regression-compile-tmp/gammon.imp" int D2; #line 21 "regression-compile-tmp/gammon.imp" int D3; #line 21 "regression-compile-tmp/gammon.imp" int D4; #line 21 "regression-compile-tmp/gammon.imp" int TOT; // 22 PROMPT ("Point:") _imp_current_line = 22; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 22 "regression-compile-tmp/gammon.imp" _imp_PROMPT(_imp_str_literal("Point:")); // 23 %CYCLE _imp_current_line = 23; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 23 "regression-compile-tmp/gammon.imp" L_0006:; // 24 READ(D1); READ(D2) _imp_current_line = 24; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 24 "regression-compile-tmp/gammon.imp" _imp_READ(&D1); _imp_current_line = 24; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 24 "regression-compile-tmp/gammon.imp" _imp_READ(&D2); // 25 %IF D1>6 %OR D2>6 %THEN PRINTSTRING("No way") %AND NEWLINE %ELSEEXIT _imp_current_line = 25; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 25 "regression-compile-tmp/gammon.imp" if (((D1) > (6))) goto L_0009; #line 25 "regression-compile-tmp/gammon.imp" if (((D2) <= (6))) goto L_000a; #line 25 "regression-compile-tmp/gammon.imp" L_0009:; #line 25 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("No way")); #line 25 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 25 "regression-compile-tmp/gammon.imp" goto L_000b; #line 25 "regression-compile-tmp/gammon.imp" L_000a:; #line 25 "regression-compile-tmp/gammon.imp" goto L_0007; #line 25 "regression-compile-tmp/gammon.imp" L_000b:; // 26 %REPEAT _imp_current_line = 26; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 26 "regression-compile-tmp/gammon.imp" goto L_0006; #line 26 "regression-compile-tmp/gammon.imp" L_0007:; // 27 %IF D1=D2 %THEN D3=D1 %AND D4=D2 %ELSE D3=0 %AND D4=0 _imp_current_line = 27; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 27 "regression-compile-tmp/gammon.imp" if (((D1) != (D2))) goto L_000c; #line 27 "regression-compile-tmp/gammon.imp" D3 = D1; #line 27 "regression-compile-tmp/gammon.imp" D4 = D2; #line 27 "regression-compile-tmp/gammon.imp" goto L_000d; #line 27 "regression-compile-tmp/gammon.imp" L_000c:; #line 27 "regression-compile-tmp/gammon.imp" D3 = 0; #line 27 "regression-compile-tmp/gammon.imp" D4 = 0; #line 27 "regression-compile-tmp/gammon.imp" L_000d:; // 28 PRINTSTRING("Your throw was") _imp_current_line = 28; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 28 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("Your throw was")); // 29 WRITE(D1,2); WRITE(D2,2) _imp_current_line = 29; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 29 "regression-compile-tmp/gammon.imp" _imp_WRITE(D1, 2); _imp_current_line = 29; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 29 "regression-compile-tmp/gammon.imp" _imp_WRITE(D2, 2); // 30 NEWLINE _imp_current_line = 30; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 30 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 31 %IF BOARD(25)_BS>0 %THENSTART _imp_current_line = 31; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 31 "regression-compile-tmp/gammon.imp" if (((BOARD[25].BS) <= (0))) goto L_000e; // 32 %IF BOARD(25-D1)_WS>1 %AND BOARD(25-D2)_WS>1 %C _imp_current_line = 32; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 32 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (D1))].WS) <= (1))) goto L_000f; #line 32 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (D2))].WS) <= (1))) goto L_000f; #line 32 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("You cannot move")); #line 32 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 32 "regression-compile-tmp/gammon.imp" return; #line 32 "regression-compile-tmp/gammon.imp" L_000f:; // 33 %THEN PRINTSTRING("You cannot move") %AND NEWLINE %ANDRETURN // 34 %IF BOARD(25)_BS#1 %THENSTART _imp_current_line = 34; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 34 "regression-compile-tmp/gammon.imp" if (((BOARD[25].BS) == (1))) goto L_0010; // 35 %IF D1#D2 %THENSTART _imp_current_line = 35; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 35 "regression-compile-tmp/gammon.imp" if (((D1) == (D2))) goto L_0011; // 36 %IF BOARD(25-D1)_WS>1 %THENSTART _imp_current_line = 36; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 36 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (D1))].WS) <= (1))) goto L_0012; // 37 BOARD(25-D2)_BS=BOARD(25-D2)_BS+1 _imp_current_line = 37; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 37 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (D2))].BS = (((int)(BOARD[(((int)(25)) - (D2))].BS)) + (1)); // 38 BOARD(25)_BS=BOARD(25)_BS-1 _imp_current_line = 38; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 38 "regression-compile-tmp/gammon.imp" BOARD[25].BS = (((int)(BOARD[25].BS)) - (1)); // 39 BOARD(25-D2)_WS=0 _imp_current_line = 39; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 39 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (D2))].WS = 0; // 40 BOARD(0)_WS=BOARD(0)_WS+1 _imp_current_line = 40; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 40 "regression-compile-tmp/gammon.imp" BOARD[0].WS = (((int)(BOARD[0].WS)) + (1)); // 41 PRINTSTRING("I have made your move") _imp_current_line = 41; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 41 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("I have made your move")); // 42 NEWLINE _imp_current_line = 42; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 42 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 43 %RETURN _imp_current_line = 43; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 43 "regression-compile-tmp/gammon.imp" return; // 44 %FINISH _imp_current_line = 44; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 44 "regression-compile-tmp/gammon.imp" L_0012:; // 45 %IF BOARD(25-D2)_WS>1 %THENSTART _imp_current_line = 45; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 45 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (D2))].WS) <= (1))) goto L_0013; // 46 BOARD(25-D1)_BS=BOARD(25-D1)_BS+1 _imp_current_line = 46; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 46 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (D1))].BS = (((int)(BOARD[(((int)(25)) - (D1))].BS)) + (1)); // 47 BOARD(25)_BS=BOARD(25)_BS-1 _imp_current_line = 47; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 47 "regression-compile-tmp/gammon.imp" BOARD[25].BS = (((int)(BOARD[25].BS)) - (1)); // 48 BOARD(25-D1)_WS=0 _imp_current_line = 48; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 48 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (D1))].WS = 0; // 49 BOARD(0)_WS=BOARD(0)_WS+1 _imp_current_line = 49; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 49 "regression-compile-tmp/gammon.imp" BOARD[0].WS = (((int)(BOARD[0].WS)) + (1)); // 50 PRINTSTRING("I have made your move") _imp_current_line = 50; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 50 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("I have made your move")); // 51 NEWLINE _imp_current_line = 51; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 51 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 52 %RETURN _imp_current_line = 52; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 52 "regression-compile-tmp/gammon.imp" return; // 53 %FINISH _imp_current_line = 53; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 53 "regression-compile-tmp/gammon.imp" L_0013:; // 54 %FINISH _imp_current_line = 54; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 54 "regression-compile-tmp/gammon.imp" L_0011:; // 55 %FINISH _imp_current_line = 55; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 55 "regression-compile-tmp/gammon.imp" L_0010:; // 56 %FINISH _imp_current_line = 56; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 56 "regression-compile-tmp/gammon.imp" L_000e:; // 57 PRINTSTRING("Make your move"); NEWLINE _imp_current_line = 57; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 57 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("Make your move")); _imp_current_line = 57; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 57 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 58 %CYCLE M=1,1,4 _imp_current_line = 58; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 58 "regression-compile-tmp/gammon.imp" M = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle M = 1, 1, 4"); L_0014:; if (M == 4) goto L_0015; M += 1; // 59 AGN: TOT=D1+D2+D3+D4 _imp_current_line = 59; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 59 "regression-compile-tmp/gammon.imp" U_1000:; _imp_current_line = 59; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 59 "regression-compile-tmp/gammon.imp" TOT = (((int)((((int)((((int)(D1)) + (D2)))) + (D3)))) + (D4)); // 60 %IF TOT=0 %THENRETURN _imp_current_line = 60; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 60 "regression-compile-tmp/gammon.imp" if (((TOT) != (0))) goto L_0017; #line 60 "regression-compile-tmp/gammon.imp" return; #line 60 "regression-compile-tmp/gammon.imp" L_0017:; // 61 READ(PT); %IF PT=100 %THENRETURN; READ(NO) _imp_current_line = 61; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 61 "regression-compile-tmp/gammon.imp" _imp_READ(&PT); _imp_current_line = 61; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 61 "regression-compile-tmp/gammon.imp" if (((PT) != (100))) goto L_0018; #line 61 "regression-compile-tmp/gammon.imp" return; #line 61 "regression-compile-tmp/gammon.imp" L_0018:; _imp_current_line = 61; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 61 "regression-compile-tmp/gammon.imp" _imp_READ(&NO); // 62 %IF BOARD(PT)_BS=0 %THEN PRINTSTRING("No blacks on point") %C _imp_current_line = 62; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 62 "regression-compile-tmp/gammon.imp" if (((BOARD[PT].BS) != (0))) goto L_0019; #line 62 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("No blacks on point")); #line 62 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 62 "regression-compile-tmp/gammon.imp" goto U_1000; #line 62 "regression-compile-tmp/gammon.imp" L_0019:; // 63 %AND NEWLINE %AND ->AGN // 64 %IF BOARD(25)_BS#0 %AND PT#25 %THEN %C _imp_current_line = 64; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 64 "regression-compile-tmp/gammon.imp" if (((BOARD[25].BS) == (0))) goto L_001a; #line 64 "regression-compile-tmp/gammon.imp" if (((PT) == (25))) goto L_001a; #line 64 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("You have pieces on the bar")); #line 64 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 64 "regression-compile-tmp/gammon.imp" goto U_1000; #line 64 "regression-compile-tmp/gammon.imp" L_001a:; // 65 PRINTSTRING("You have pieces on the bar") %AND NEWLINE %AND ->AGN // 66 %IF PT-NO<=0 %THENSTART _imp_current_line = 66; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 66 "regression-compile-tmp/gammon.imp" if ((((((int)(PT)) - (NO))) > (0))) goto L_001b; // 67 %IF HOMEB=0 %THEN PRINTSTRING("Not all home") %AND %C _imp_current_line = 67; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 67 "regression-compile-tmp/gammon.imp" if (((HOMEB()) != (0))) goto L_001c; #line 67 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("Not all home")); #line 67 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 67 "regression-compile-tmp/gammon.imp" goto U_1000; #line 67 "regression-compile-tmp/gammon.imp" L_001c:; // 68 NEWLINE %AND ->AGN; ->LEGMOV _imp_current_line = 68; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 68 "regression-compile-tmp/gammon.imp" goto U_1001; // 69 %FINISH _imp_current_line = 69; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 69 "regression-compile-tmp/gammon.imp" L_001b:; // 70 %IF BOARD(PT-NO)_WS>1 %THEN PRINTSTRING("White has point") %C _imp_current_line = 70; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 70 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT)) - (NO))].WS) <= (1))) goto L_001d; #line 70 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("White has point")); #line 70 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 70 "regression-compile-tmp/gammon.imp" goto U_1000; #line 70 "regression-compile-tmp/gammon.imp" L_001d:; // 71 %AND NEWLINE %AND ->AGN // 72 LEGMOV: %IF NO=D1 %THEN D1=0 %ELSESTART _imp_current_line = 72; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 72 "regression-compile-tmp/gammon.imp" U_1001:; _imp_current_line = 72; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 72 "regression-compile-tmp/gammon.imp" if (((NO) != (D1))) goto L_001e; #line 72 "regression-compile-tmp/gammon.imp" D1 = 0; #line 72 "regression-compile-tmp/gammon.imp" goto L_001f; #line 72 "regression-compile-tmp/gammon.imp" L_001e:; // 73 %IF NO=D2 %THEN D2=0 %ELSESTART _imp_current_line = 73; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 73 "regression-compile-tmp/gammon.imp" if (((NO) != (D2))) goto L_0020; #line 73 "regression-compile-tmp/gammon.imp" D2 = 0; #line 73 "regression-compile-tmp/gammon.imp" goto L_0021; #line 73 "regression-compile-tmp/gammon.imp" L_0020:; // 74 %IF NO=D3 %THEN D3=0 %ELSESTART _imp_current_line = 74; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 74 "regression-compile-tmp/gammon.imp" if (((NO) != (D3))) goto L_0022; #line 74 "regression-compile-tmp/gammon.imp" D3 = 0; #line 74 "regression-compile-tmp/gammon.imp" goto L_0023; #line 74 "regression-compile-tmp/gammon.imp" L_0022:; // 75 %IF NO=D4 %THEN D4=0 %ELSESTART _imp_current_line = 75; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 75 "regression-compile-tmp/gammon.imp" if (((NO) != (D4))) goto L_0024; #line 75 "regression-compile-tmp/gammon.imp" D4 = 0; #line 75 "regression-compile-tmp/gammon.imp" goto L_0025; #line 75 "regression-compile-tmp/gammon.imp" L_0024:; // 76 PRINTSTRING("Illegal move"); NEWLINE; ->AGN _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 76 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("Illegal move")); _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 76 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 76 "regression-compile-tmp/gammon.imp" goto U_1000; // 77 %FINISH _imp_current_line = 77; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 77 "regression-compile-tmp/gammon.imp" L_0025:; // 78 %FINISH _imp_current_line = 78; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 78 "regression-compile-tmp/gammon.imp" L_0023:; // 79 %FINISH _imp_current_line = 79; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 79 "regression-compile-tmp/gammon.imp" L_0021:; // 80 %FINISH _imp_current_line = 80; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 80 "regression-compile-tmp/gammon.imp" L_001f:; // 81 %IF PT-NO <=0 %THEN ->BBEARO _imp_current_line = 81; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 81 "regression-compile-tmp/gammon.imp" if ((((((int)(PT)) - (NO))) > (0))) goto L_0026; #line 81 "regression-compile-tmp/gammon.imp" goto U_1002; #line 81 "regression-compile-tmp/gammon.imp" L_0026:; // 82 BOARD(PT)_BS=BOARD(PT)_BS-1 _imp_current_line = 82; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 82 "regression-compile-tmp/gammon.imp" BOARD[PT].BS = (((int)(BOARD[PT].BS)) - (1)); // 83 BOARD(PT-NO)_BS=BOARD(PT-NO)_BS+1 _imp_current_line = 83; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 83 "regression-compile-tmp/gammon.imp" BOARD[(((int)(PT)) - (NO))].BS = (((int)(BOARD[(((int)(PT)) - (NO))].BS)) + (1)); // 84 %IF BOARD(PT-NO)_WS=1 %THEN BOARD(PT-NO)_WS=0 %C _imp_current_line = 84; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 84 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT)) - (NO))].WS) != (1))) goto L_0027; #line 84 "regression-compile-tmp/gammon.imp" BOARD[(((int)(PT)) - (NO))].WS = 0; #line 84 "regression-compile-tmp/gammon.imp" BOARD[0].WS = (((int)(BOARD[0].WS)) + (1)); #line 84 "regression-compile-tmp/gammon.imp" L_0027:; // 85 %AND BOARD(0)_WS=BOARD(0)_WS+1 // 86 ->SKP _imp_current_line = 86; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 86 "regression-compile-tmp/gammon.imp" goto U_1003; // 87 BBEARO: BBOFF=BBOFF+1 _imp_current_line = 87; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 87 "regression-compile-tmp/gammon.imp" U_1002:; _imp_current_line = 87; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 87 "regression-compile-tmp/gammon.imp" BBOFF = (((int)(BBOFF)) + (1)); // 88 BOARD(PT)_BS=BOARD(PT)_BS-1 _imp_current_line = 88; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 88 "regression-compile-tmp/gammon.imp" BOARD[PT].BS = (((int)(BOARD[PT].BS)) - (1)); // 89 %IF BBOFF=15 %THENRETURN _imp_current_line = 89; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 89 "regression-compile-tmp/gammon.imp" if (((BBOFF) != (15))) goto L_0028; #line 89 "regression-compile-tmp/gammon.imp" return; #line 89 "regression-compile-tmp/gammon.imp" L_0028:; // 90 SKP: %REPEAT _imp_current_line = 90; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 90 "regression-compile-tmp/gammon.imp" U_1003:; _imp_current_line = 90; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 90 "regression-compile-tmp/gammon.imp" goto L_0014; #line 90 "regression-compile-tmp/gammon.imp" L_0015:; // 91 %END _imp_current_line = 91; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 91 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block DOBLACK at level 2 // 92 // 93 %ROUTINE INITIALIZE _imp_current_line = 93; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 93 "regression-compile-tmp/gammon.imp" void INITIALIZE( void ) #line 93 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 94 WBOFF=0 _imp_current_line = 94; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 94 "regression-compile-tmp/gammon.imp" WBOFF = 0; // 95 BBOFF=0 _imp_current_line = 95; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 95 "regression-compile-tmp/gammon.imp" BBOFF = 0; // 96 BOARD(1)_WS=2 _imp_current_line = 96; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 96 "regression-compile-tmp/gammon.imp" BOARD[1].WS = 2; // 97 BOARD(6)_BS=5 _imp_current_line = 97; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 97 "regression-compile-tmp/gammon.imp" BOARD[6].BS = 5; // 98 BOARD(8)_BS=3 _imp_current_line = 98; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 98 "regression-compile-tmp/gammon.imp" BOARD[8].BS = 3; // 99 BOARD(12)_WS=5 _imp_current_line = 99; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 99 "regression-compile-tmp/gammon.imp" BOARD[12].WS = 5; // 100 BOARD(13)_BS=5 _imp_current_line = 100; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 100 "regression-compile-tmp/gammon.imp" BOARD[13].BS = 5; // 101 BOARD(17)_WS=3 _imp_current_line = 101; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 101 "regression-compile-tmp/gammon.imp" BOARD[17].WS = 3; // 102 BOARD(19)_WS=5 _imp_current_line = 102; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 102 "regression-compile-tmp/gammon.imp" BOARD[19].WS = 5; // 103 BOARD(24)_BS=2 _imp_current_line = 103; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 103 "regression-compile-tmp/gammon.imp" BOARD[24].BS = 2; // 104 %END _imp_current_line = 104; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 104 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block INITIALIZE at level 2 // 105 // 106 %ROUTINE PRINTSTATE _imp_current_line = 106; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 106 "regression-compile-tmp/gammon.imp" void PRINTSTATE( void ) #line 106 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 107 %INTEGER I,J,K,M _imp_current_line = 107; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 107 "regression-compile-tmp/gammon.imp" int I; #line 107 "regression-compile-tmp/gammon.imp" int J; #line 107 "regression-compile-tmp/gammon.imp" int K; #line 107 "regression-compile-tmp/gammon.imp" int M; // 108 NEWLINES(2) _imp_current_line = 108; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 108 "regression-compile-tmp/gammon.imp" _imp_NEWLINES(2); // 109 PRINTSTRING(" 12 11 10 9 8 7 6 5 4 3 2 1") _imp_current_line = 109; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 109 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" 12 11 10 9 8 7 6 5 4 3 2 1")); // 110 NEWLINE _imp_current_line = 110; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 110 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 111 PRINTSTRING("___________________________________________________") _imp_current_line = 111; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 111 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("___________________________________________________")); // 112 %CYCLE I=0,1,6 _imp_current_line = 112; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 112 "regression-compile-tmp/gammon.imp" I = (-1); if ((((6)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 6"); L_0029:; if (I == 6) goto L_002a; I += 1; // 113 NEWLINE _imp_current_line = 113; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 113 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 114 SPACES(2) _imp_current_line = 114; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 114 "regression-compile-tmp/gammon.imp" _imp_SPACES(2); // 115 %CYCLE J=12,-1,1 _imp_current_line = 115; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 115 "regression-compile-tmp/gammon.imp" J = 13; if ((((1)-(12)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle J = 12, (-1), 1"); L_002c:; if (J == 1) goto L_002d; J += (-1); // 116 %IF BOARD(J)_WS>I %THEN PRINTSYMBOL('W') %AND ->RPT _imp_current_line = 116; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 116 "regression-compile-tmp/gammon.imp" if (((BOARD[J].WS) <= (I))) goto L_002f; #line 116 "regression-compile-tmp/gammon.imp" _imp_PRINTSYMBOL(87); #line 116 "regression-compile-tmp/gammon.imp" goto U_1004; #line 116 "regression-compile-tmp/gammon.imp" L_002f:; // 117 %IF BOARD(J)_BS>I %THEN PRINTSYMBOL('B') %AND ->RPT _imp_current_line = 117; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 117 "regression-compile-tmp/gammon.imp" if (((BOARD[J].BS) <= (I))) goto L_0030; #line 117 "regression-compile-tmp/gammon.imp" _imp_PRINTSYMBOL(66); #line 117 "regression-compile-tmp/gammon.imp" goto U_1004; #line 117 "regression-compile-tmp/gammon.imp" L_0030:; // 118 SPACE _imp_current_line = 118; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 118 "regression-compile-tmp/gammon.imp" _imp_SPACE(); // 119 RPT: %IF J=7 %THEN PRINTSTRING(" ** ") %ELSE SPACES(3) _imp_current_line = 119; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 119 "regression-compile-tmp/gammon.imp" U_1004:; _imp_current_line = 119; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 119 "regression-compile-tmp/gammon.imp" if (((J) != (7))) goto L_0031; #line 119 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" ** ")); #line 119 "regression-compile-tmp/gammon.imp" goto L_0032; #line 119 "regression-compile-tmp/gammon.imp" L_0031:; #line 119 "regression-compile-tmp/gammon.imp" _imp_SPACES(3); #line 119 "regression-compile-tmp/gammon.imp" L_0032:; // 120 %REPEAT _imp_current_line = 120; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 120 "regression-compile-tmp/gammon.imp" goto L_002c; #line 120 "regression-compile-tmp/gammon.imp" L_002d:; // 121 %REPEAT _imp_current_line = 121; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 121 "regression-compile-tmp/gammon.imp" goto L_0029; #line 121 "regression-compile-tmp/gammon.imp" L_002a:; // 122 %CYCLE K=6,-1,0 _imp_current_line = 122; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 122 "regression-compile-tmp/gammon.imp" K = 7; if ((((0)-(6)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle K = 6, (-1), 0"); L_0033:; if (K == 0) goto L_0034; K += (-1); // 123 NEWLINE _imp_current_line = 123; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 123 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 124 SPACES(2) _imp_current_line = 124; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 124 "regression-compile-tmp/gammon.imp" _imp_SPACES(2); // 125 %CYCLE M=13,1,24 _imp_current_line = 125; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 125 "regression-compile-tmp/gammon.imp" M = 12; if ((((24)-(13)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle M = 13, 1, 24"); L_0036:; if (M == 24) goto L_0037; M += 1; // 126 %IF BOARD(M)_WS>K %THEN PRINTSYMBOL('W') %AND ->RPT2 _imp_current_line = 126; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 126 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (K))) goto L_0039; #line 126 "regression-compile-tmp/gammon.imp" _imp_PRINTSYMBOL(87); #line 126 "regression-compile-tmp/gammon.imp" goto U_1005; #line 126 "regression-compile-tmp/gammon.imp" L_0039:; // 127 %IF BOARD(M)_BS>K %THEN PRINTSYMBOL('B') %AND ->RPT2 _imp_current_line = 127; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 127 "regression-compile-tmp/gammon.imp" if (((BOARD[M].BS) <= (K))) goto L_003a; #line 127 "regression-compile-tmp/gammon.imp" _imp_PRINTSYMBOL(66); #line 127 "regression-compile-tmp/gammon.imp" goto U_1005; #line 127 "regression-compile-tmp/gammon.imp" L_003a:; // 128 SPACE _imp_current_line = 128; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 128 "regression-compile-tmp/gammon.imp" _imp_SPACE(); // 129 RPT2: %IF M=18 %THEN PRINTSTRING(" ** ") %ELSE SPACES(3) _imp_current_line = 129; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 129 "regression-compile-tmp/gammon.imp" U_1005:; _imp_current_line = 129; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 129 "regression-compile-tmp/gammon.imp" if (((M) != (18))) goto L_003b; #line 129 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" ** ")); #line 129 "regression-compile-tmp/gammon.imp" goto L_003c; #line 129 "regression-compile-tmp/gammon.imp" L_003b:; #line 129 "regression-compile-tmp/gammon.imp" _imp_SPACES(3); #line 129 "regression-compile-tmp/gammon.imp" L_003c:; // 130 %REPEAT _imp_current_line = 130; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 130 "regression-compile-tmp/gammon.imp" goto L_0036; #line 130 "regression-compile-tmp/gammon.imp" L_0037:; // 131 %REPEAT _imp_current_line = 131; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 131 "regression-compile-tmp/gammon.imp" goto L_0033; #line 131 "regression-compile-tmp/gammon.imp" L_0034:; // 132 NEWLINE _imp_current_line = 132; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 132 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 133 PRINTSTRING("____________________________________________________") _imp_current_line = 133; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 133 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("____________________________________________________")); // 134 NEWLINE _imp_current_line = 134; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 134 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 135 PRINTSTRING(" 13 14 15 16 17 18 19 20 21 22 23 24") _imp_current_line = 135; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 135 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" 13 14 15 16 17 18 19 20 21 22 23 24")); // 136 NEWLINE _imp_current_line = 136; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 136 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 137 %IF BOARD(0)_WS>0 %THENSTART _imp_current_line = 137; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 137 "regression-compile-tmp/gammon.imp" if (((BOARD[0].WS) <= (0))) goto L_003d; // 138 NEWLINE _imp_current_line = 138; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 138 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 139 PRINTSTRING("There are") _imp_current_line = 139; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 139 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("There are")); // 140 WRITE(BOARD(0)_WS,2) _imp_current_line = 140; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 140 "regression-compile-tmp/gammon.imp" _imp_WRITE(BOARD[0].WS, 2); // 141 PRINTSTRING(" whites on the bar") _imp_current_line = 141; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 141 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" whites on the bar")); // 142 %FINISH _imp_current_line = 142; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 142 "regression-compile-tmp/gammon.imp" L_003d:; // 143 %IF BOARD(25)_BS>0 %THENSTART _imp_current_line = 143; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 143 "regression-compile-tmp/gammon.imp" if (((BOARD[25].BS) <= (0))) goto L_003e; // 144 NEWLINE _imp_current_line = 144; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 144 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 145 PRINTSTRING("there are") _imp_current_line = 145; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 145 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("there are")); // 146 WRITE(BOARD(25)_BS,2) _imp_current_line = 146; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 146 "regression-compile-tmp/gammon.imp" _imp_WRITE(BOARD[25].BS, 2); // 147 PRINTSTRING(" blacks on the bar") _imp_current_line = 147; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 147 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal(" blacks on the bar")); // 148 %FINISH _imp_current_line = 148; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 148 "regression-compile-tmp/gammon.imp" L_003e:; // 149 %IF WBOFF>0 %THENSTART _imp_current_line = 149; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 149 "regression-compile-tmp/gammon.imp" if (((WBOFF) <= (0))) goto L_003f; // 150 NEWLINE _imp_current_line = 150; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 150 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 151 PRINTSTRING("white has born off") _imp_current_line = 151; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 151 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("white has born off")); // 152 WRITE(WBOFF,3) _imp_current_line = 152; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 152 "regression-compile-tmp/gammon.imp" _imp_WRITE(WBOFF, 3); // 153 %FINISH _imp_current_line = 153; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 153 "regression-compile-tmp/gammon.imp" L_003f:; // 154 %IF BBOFF>0 %THENSTART _imp_current_line = 154; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 154 "regression-compile-tmp/gammon.imp" if (((BBOFF) <= (0))) goto L_0040; // 155 NEWLINE _imp_current_line = 155; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 155 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 156 PRINTSTRING("black has born off") _imp_current_line = 156; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 156 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("black has born off")); // 157 WRITE(BBOFF,3) _imp_current_line = 157; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 157 "regression-compile-tmp/gammon.imp" _imp_WRITE(BBOFF, 3); // 158 %FINISH _imp_current_line = 158; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 158 "regression-compile-tmp/gammon.imp" L_0040:; // 159 NEWLINE _imp_current_line = 159; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 159 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); // 160 %END _imp_current_line = 160; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 160 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block PRINTSTATE at level 2 // 161 // 162 %INTEGERFN BBAR _imp_current_line = 162; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 162 "regression-compile-tmp/gammon.imp" int BBAR( void ) #line 162 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 163 %RESULT = BOARD(25)_BS _imp_current_line = 163; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 163 "regression-compile-tmp/gammon.imp" return BOARD[25].BS; // 164 %END _imp_current_line = 164; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 164 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BBAR at level 2 // 165 // 166 %INTEGERFN WBAR _imp_current_line = 166; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 166 "regression-compile-tmp/gammon.imp" int WBAR( void ) #line 166 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 167 %RESULT = BOARD(0)_WS _imp_current_line = 167; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 167 "regression-compile-tmp/gammon.imp" return BOARD[0].WS; // 168 %END _imp_current_line = 168; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 168 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WBAR at level 2 // 169 // 170 %INTEGERFN BSIN _imp_current_line = 170; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 170 "regression-compile-tmp/gammon.imp" int BSIN( void ) #line 170 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 171 %INTEGER I,J; J=0 _imp_current_line = 171; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 171 "regression-compile-tmp/gammon.imp" int I; #line 171 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 171; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 171 "regression-compile-tmp/gammon.imp" J = 0; // 172 %CYCLE I=1,1,25 _imp_current_line = 172; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 172 "regression-compile-tmp/gammon.imp" I = 0; if ((((25)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 25"); L_0041:; if (I == 25) goto L_0042; I += 1; // 173 %IF BOARD(I)_BS=1 %THEN J=J+1 _imp_current_line = 173; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 173 "regression-compile-tmp/gammon.imp" if (((BOARD[I].BS) != (1))) goto L_0044; #line 173 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 173 "regression-compile-tmp/gammon.imp" L_0044:; // 174 %REPEAT _imp_current_line = 174; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 174 "regression-compile-tmp/gammon.imp" goto L_0041; #line 174 "regression-compile-tmp/gammon.imp" L_0042:; // 175 %RESULT = J _imp_current_line = 175; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 175 "regression-compile-tmp/gammon.imp" return J; // 176 %END _imp_current_line = 176; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 176 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BSIN at level 2 // 177 // 178 %INTEGERFN WSIN _imp_current_line = 178; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 178 "regression-compile-tmp/gammon.imp" int WSIN( void ) #line 178 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 179 %INTEGER I,J; J=0 _imp_current_line = 179; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 179 "regression-compile-tmp/gammon.imp" int I; #line 179 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 179; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 179 "regression-compile-tmp/gammon.imp" J = 0; // 180 %CYCLE I=0,1,24 _imp_current_line = 180; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 180 "regression-compile-tmp/gammon.imp" I = (-1); if ((((24)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 24"); L_0045:; if (I == 24) goto L_0046; I += 1; // 181 %IF BOARD(I)_WS=1 %THEN J=J+1 _imp_current_line = 181; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 181 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) != (1))) goto L_0048; #line 181 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 181 "regression-compile-tmp/gammon.imp" L_0048:; // 182 %REPEAT _imp_current_line = 182; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 182 "regression-compile-tmp/gammon.imp" goto L_0045; #line 182 "regression-compile-tmp/gammon.imp" L_0046:; // 183 %RESULT = J _imp_current_line = 183; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 183 "regression-compile-tmp/gammon.imp" return J; // 184 %END _imp_current_line = 184; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 184 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WSIN at level 2 // 185 // 186 %INTEGERFN BSINCL _imp_current_line = 186; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 186 "regression-compile-tmp/gammon.imp" int BSINCL( void ) #line 186 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 187 %INTEGER I,J,K,SUM; SUM=0 _imp_current_line = 187; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 187 "regression-compile-tmp/gammon.imp" int I; #line 187 "regression-compile-tmp/gammon.imp" int J; #line 187 "regression-compile-tmp/gammon.imp" int K; #line 187 "regression-compile-tmp/gammon.imp" int SUM; _imp_current_line = 187; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 187 "regression-compile-tmp/gammon.imp" SUM = 0; // 188 %CYCLE I=25,-1,1 _imp_current_line = 188; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 188 "regression-compile-tmp/gammon.imp" I = 26; if ((((1)-(25)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 25, (-1), 1"); L_0049:; if (I == 1) goto L_004a; I += (-1); // 189 %IF BOARD(I)_BS=1 %THENSTART _imp_current_line = 189; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 189 "regression-compile-tmp/gammon.imp" if (((BOARD[I].BS) != (1))) goto L_004c; // 190 %IF I-12<0 %THEN J=0 %ELSE J=I-12 _imp_current_line = 190; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 190 "regression-compile-tmp/gammon.imp" if ((((((int)(I)) - (12))) >= (0))) goto L_004d; #line 190 "regression-compile-tmp/gammon.imp" J = 0; #line 190 "regression-compile-tmp/gammon.imp" goto L_004e; #line 190 "regression-compile-tmp/gammon.imp" L_004d:; #line 190 "regression-compile-tmp/gammon.imp" J = (((int)(I)) - (12)); #line 190 "regression-compile-tmp/gammon.imp" L_004e:; // 191 %CYCLE K=I-1,-1,J _imp_current_line = 191; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 191 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(I)) - (1)); _increment = (-1); _final = J; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = (((int)(I)) - (1)), (-1), J"); K -= _increment; _control -= _increment; L_004f:; if (K == _final) goto L_0050; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 192 %IF BOARD(K)_WS>0 %THEN SUM=SUM+ODDS(I-K) _imp_current_line = 192; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 192 "regression-compile-tmp/gammon.imp" if (((BOARD[K].WS) <= (0))) goto L_0052; #line 192 "regression-compile-tmp/gammon.imp" SUM = (((int)(SUM)) + ((ODDS-1)[(((int)(I)) - (K))])); #line 192 "regression-compile-tmp/gammon.imp" L_0052:; // 193 %REPEAT _imp_current_line = 193; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 193 "regression-compile-tmp/gammon.imp" goto L_004f; #line 193 "regression-compile-tmp/gammon.imp" L_0050:; // 194 %FINISH _imp_current_line = 194; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 194 "regression-compile-tmp/gammon.imp" L_004c:; // 195 %REPEAT _imp_current_line = 195; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 195 "regression-compile-tmp/gammon.imp" goto L_0049; #line 195 "regression-compile-tmp/gammon.imp" L_004a:; // 196 %RESULT = SUM _imp_current_line = 196; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 196 "regression-compile-tmp/gammon.imp" return SUM; // 197 %END _imp_current_line = 197; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 197 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BSINCL at level 2 // 198 // 199 %INTEGERFN WSINCL _imp_current_line = 199; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 199 "regression-compile-tmp/gammon.imp" int WSINCL( void ) #line 199 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 200 %INTEGER I,J,K,SUM; SUM=0 _imp_current_line = 200; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 200 "regression-compile-tmp/gammon.imp" int I; #line 200 "regression-compile-tmp/gammon.imp" int J; #line 200 "regression-compile-tmp/gammon.imp" int K; #line 200 "regression-compile-tmp/gammon.imp" int SUM; _imp_current_line = 200; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 200 "regression-compile-tmp/gammon.imp" SUM = 0; // 201 %CYCLE I=0,1,24 _imp_current_line = 201; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 201 "regression-compile-tmp/gammon.imp" I = (-1); if ((((24)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 24"); L_0053:; if (I == 24) goto L_0054; I += 1; // 202 %IF BOARD(I)_WS=1 %THENSTART _imp_current_line = 202; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 202 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) != (1))) goto L_0056; // 203 %IF I+12>25 %THEN J=25 %ELSE J=I+12 _imp_current_line = 203; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 203 "regression-compile-tmp/gammon.imp" if ((((((int)(I)) + (12))) <= (25))) goto L_0057; #line 203 "regression-compile-tmp/gammon.imp" J = 25; #line 203 "regression-compile-tmp/gammon.imp" goto L_0058; #line 203 "regression-compile-tmp/gammon.imp" L_0057:; #line 203 "regression-compile-tmp/gammon.imp" J = (((int)(I)) + (12)); #line 203 "regression-compile-tmp/gammon.imp" L_0058:; // 204 %CYCLE K=I+1,1,J _imp_current_line = 204; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 204 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(I)) + (1)); _increment = 1; _final = J; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = (((int)(I)) + (1)), 1, J"); K -= _increment; _control -= _increment; L_0059:; if (K == _final) goto L_005a; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 205 %IF BOARD(K)_BS>0 %THEN SUM=SUM+ODDS(K-I) _imp_current_line = 205; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 205 "regression-compile-tmp/gammon.imp" if (((BOARD[K].BS) <= (0))) goto L_005c; #line 205 "regression-compile-tmp/gammon.imp" SUM = (((int)(SUM)) + ((ODDS-1)[(((int)(K)) - (I))])); #line 205 "regression-compile-tmp/gammon.imp" L_005c:; // 206 %REPEAT _imp_current_line = 206; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 206 "regression-compile-tmp/gammon.imp" goto L_0059; #line 206 "regression-compile-tmp/gammon.imp" L_005a:; // 207 %FINISH _imp_current_line = 207; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 207 "regression-compile-tmp/gammon.imp" L_0056:; // 208 %REPEAT _imp_current_line = 208; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 208 "regression-compile-tmp/gammon.imp" goto L_0053; #line 208 "regression-compile-tmp/gammon.imp" L_0054:; // 209 %RESULT = SUM _imp_current_line = 209; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 209 "regression-compile-tmp/gammon.imp" return SUM; // 210 %END _imp_current_line = 210; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 210 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WSINCL at level 2 // 211 // 212 %INTEGERFN WPTSHOME _imp_current_line = 212; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 212 "regression-compile-tmp/gammon.imp" int WPTSHOME( void ) #line 212 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 213 %INTEGER I,J; J=0 _imp_current_line = 213; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 213 "regression-compile-tmp/gammon.imp" int I; #line 213 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 213; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 213 "regression-compile-tmp/gammon.imp" J = 0; // 214 %CYCLE I=19,1,24 _imp_current_line = 214; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 214 "regression-compile-tmp/gammon.imp" I = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 19, 1, 24"); L_005d:; if (I == 24) goto L_005e; I += 1; // 215 %IF BOARD(I)_WS>1 %THEN J=J+1 _imp_current_line = 215; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 215 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (1))) goto L_0060; #line 215 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 215 "regression-compile-tmp/gammon.imp" L_0060:; // 216 %REPEAT _imp_current_line = 216; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 216 "regression-compile-tmp/gammon.imp" goto L_005d; #line 216 "regression-compile-tmp/gammon.imp" L_005e:; // 217 %RESULT = J _imp_current_line = 217; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 217 "regression-compile-tmp/gammon.imp" return J; // 218 %END _imp_current_line = 218; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 218 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WPTSHOME at level 2 // 219 // 220 %INTEGERFN BPTSHOME _imp_current_line = 220; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 220 "regression-compile-tmp/gammon.imp" int BPTSHOME( void ) #line 220 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 221 %INTEGER I,J; J=0 _imp_current_line = 221; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 221 "regression-compile-tmp/gammon.imp" int I; #line 221 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 221; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 221 "regression-compile-tmp/gammon.imp" J = 0; // 222 %CYCLE I=1,1,6 _imp_current_line = 222; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 222 "regression-compile-tmp/gammon.imp" I = 0; if ((((6)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 6"); L_0061:; if (I == 6) goto L_0062; I += 1; // 223 %IF BOARD(I)_BS>1 %THEN J=J+1 _imp_current_line = 223; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 223 "regression-compile-tmp/gammon.imp" if (((BOARD[I].BS) <= (1))) goto L_0064; #line 223 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 223 "regression-compile-tmp/gammon.imp" L_0064:; // 224 %REPEAT _imp_current_line = 224; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 224 "regression-compile-tmp/gammon.imp" goto L_0061; #line 224 "regression-compile-tmp/gammon.imp" L_0062:; // 225 %RESULT = J _imp_current_line = 225; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 225 "regression-compile-tmp/gammon.imp" return J; // 226 %END _imp_current_line = 226; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 226 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BPTSHOME at level 2 // 227 // 228 %INTEGERFN WPTS _imp_current_line = 228; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 228 "regression-compile-tmp/gammon.imp" int WPTS( void ) #line 228 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 229 %INTEGER I,J; J=0 _imp_current_line = 229; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 229 "regression-compile-tmp/gammon.imp" int I; #line 229 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 229; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 229 "regression-compile-tmp/gammon.imp" J = 0; // 230 %CYCLE I=1,1,24 _imp_current_line = 230; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 230 "regression-compile-tmp/gammon.imp" I = 0; if ((((24)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 24"); L_0065:; if (I == 24) goto L_0066; I += 1; // 231 %IF BOARD(I)_WS>1 %THEN J=J+1 _imp_current_line = 231; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 231 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (1))) goto L_0068; #line 231 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 231 "regression-compile-tmp/gammon.imp" L_0068:; // 232 %REPEAT _imp_current_line = 232; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 232 "regression-compile-tmp/gammon.imp" goto L_0065; #line 232 "regression-compile-tmp/gammon.imp" L_0066:; // 233 %RESULT = J _imp_current_line = 233; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 233 "regression-compile-tmp/gammon.imp" return J; // 234 %END _imp_current_line = 234; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 234 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WPTS at level 2 // 235 // 236 %INTEGERFN BPTS _imp_current_line = 236; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 236 "regression-compile-tmp/gammon.imp" int BPTS( void ) #line 236 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 237 %INTEGER I,J;J=0 _imp_current_line = 237; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 237 "regression-compile-tmp/gammon.imp" int I; #line 237 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 237; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 237 "regression-compile-tmp/gammon.imp" J = 0; // 238 %CYCLE I=1,1,24 _imp_current_line = 238; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 238 "regression-compile-tmp/gammon.imp" I = 0; if ((((24)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 24"); L_0069:; if (I == 24) goto L_006a; I += 1; // 239 %IF BOARD(K)_BS>1 %THEN J=J+1 _imp_current_line = 239; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 239 "regression-compile-tmp/gammon.imp" if (((BOARD[K].BS) <= (1))) goto L_006c; #line 239 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (1)); #line 239 "regression-compile-tmp/gammon.imp" L_006c:; // 240 %REPEAT _imp_current_line = 240; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 240 "regression-compile-tmp/gammon.imp" goto L_0069; #line 240 "regression-compile-tmp/gammon.imp" L_006a:; // 241 %RESULT = J _imp_current_line = 241; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 241 "regression-compile-tmp/gammon.imp" return J; // 242 %END _imp_current_line = 242; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 242 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BPTS at level 2 // 243 // 244 %INTEGERFN WPTSSUCC _imp_current_line = 244; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 244 "regression-compile-tmp/gammon.imp" int WPTSSUCC( void ) #line 244 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 245 %INTEGER I,J,K; K=0 _imp_current_line = 245; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 245 "regression-compile-tmp/gammon.imp" int I; #line 245 "regression-compile-tmp/gammon.imp" int J; #line 245 "regression-compile-tmp/gammon.imp" int K; _imp_current_line = 245; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 245 "regression-compile-tmp/gammon.imp" K = 0; // 246 %CYCLE J=1,1,22 _imp_current_line = 246; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 246 "regression-compile-tmp/gammon.imp" J = 0; if ((((22)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 22"); L_006d:; if (J == 22) goto L_006e; J += 1; // 247 %IF BOARD(J)_BS>0 %THENSTART _imp_current_line = 247; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 247 "regression-compile-tmp/gammon.imp" if (((BOARD[J].BS) <= (0))) goto L_0070; // 248 %CYCLE I=J+1,1,23 _imp_current_line = 248; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 248 "regression-compile-tmp/gammon.imp" I = (((int)((((int)(J)) + (1)))) - (1)); if ((((23)-((((int)(J)) + (1)))) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(J)) + (1)), 1, 23"); L_0071:; if (I == 23) goto L_0072; I += 1; // 249 %IF BOARD(I)_WS>1 %THENSTART _imp_current_line = 249; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 249 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (1))) goto L_0074; // 250 %IF BOARD(I+1)_WS>1 %THEN K=K+1 _imp_current_line = 250; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 250 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(I)) + (1))].WS) <= (1))) goto L_0075; #line 250 "regression-compile-tmp/gammon.imp" K = (((int)(K)) + (1)); #line 250 "regression-compile-tmp/gammon.imp" L_0075:; // 251 %FINISH _imp_current_line = 251; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 251 "regression-compile-tmp/gammon.imp" L_0074:; // 252 %REPEAT _imp_current_line = 252; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 252 "regression-compile-tmp/gammon.imp" goto L_0071; #line 252 "regression-compile-tmp/gammon.imp" L_0072:; // 253 %EXIT _imp_current_line = 253; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 253 "regression-compile-tmp/gammon.imp" goto L_006e; // 254 %FINISH _imp_current_line = 254; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 254 "regression-compile-tmp/gammon.imp" L_0070:; // 255 %REPEAT _imp_current_line = 255; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 255 "regression-compile-tmp/gammon.imp" goto L_006d; #line 255 "regression-compile-tmp/gammon.imp" L_006e:; // 256 %RESULT = K _imp_current_line = 256; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 256 "regression-compile-tmp/gammon.imp" return K; // 257 %END _imp_current_line = 257; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 257 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WPTSSUCC at level 2 // 258 // 259 %INTEGERFN BPTSSUCC _imp_current_line = 259; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 259 "regression-compile-tmp/gammon.imp" int BPTSSUCC( void ) #line 259 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 260 %INTEGER I,J,K; K=0 _imp_current_line = 260; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 260 "regression-compile-tmp/gammon.imp" int I; #line 260 "regression-compile-tmp/gammon.imp" int J; #line 260 "regression-compile-tmp/gammon.imp" int K; _imp_current_line = 260; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 260 "regression-compile-tmp/gammon.imp" K = 0; // 261 %CYCLE J=24,-1,3 _imp_current_line = 261; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 261 "regression-compile-tmp/gammon.imp" J = 25; if ((((3)-(24)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle J = 24, (-1), 3"); L_0076:; if (J == 3) goto L_0077; J += (-1); // 262 %IF BOARD(J)_WS>0 %THENSTART _imp_current_line = 262; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 262 "regression-compile-tmp/gammon.imp" if (((BOARD[J].WS) <= (0))) goto L_0079; // 263 %CYCLE I=J-1,-1,2 _imp_current_line = 263; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 263 "regression-compile-tmp/gammon.imp" I = (((unsigned char)((((int)(J)) - (1)))) + (1)); if ((((2)-((((int)(J)) - (1)))) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(J)) - (1)), (-1), 2"); L_007a:; if (I == 2) goto L_007b; I += (-1); // 264 %IF BOARD(I)_BS>1 %THENSTART _imp_current_line = 264; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 264 "regression-compile-tmp/gammon.imp" if (((BOARD[I].BS) <= (1))) goto L_007d; // 265 %IF BOARD(I-1)_BS>1 %THEN K=K+1 _imp_current_line = 265; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 265 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(I)) - (1))].BS) <= (1))) goto L_007e; #line 265 "regression-compile-tmp/gammon.imp" K = (((int)(K)) + (1)); #line 265 "regression-compile-tmp/gammon.imp" L_007e:; // 266 %FINISH _imp_current_line = 266; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 266 "regression-compile-tmp/gammon.imp" L_007d:; // 267 %REPEAT _imp_current_line = 267; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 267 "regression-compile-tmp/gammon.imp" goto L_007a; #line 267 "regression-compile-tmp/gammon.imp" L_007b:; // 268 %EXIT _imp_current_line = 268; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 268 "regression-compile-tmp/gammon.imp" goto L_0077; // 269 %FINISH _imp_current_line = 269; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 269 "regression-compile-tmp/gammon.imp" L_0079:; // 270 %REPEAT _imp_current_line = 270; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 270 "regression-compile-tmp/gammon.imp" goto L_0076; #line 270 "regression-compile-tmp/gammon.imp" L_0077:; // 271 %RESULT = K _imp_current_line = 271; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 271 "regression-compile-tmp/gammon.imp" return K; // 272 %END _imp_current_line = 272; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 272 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BPTSSUCC at level 2 // 273 // 274 %INTEGERFN BFST3 _imp_current_line = 274; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 274 "regression-compile-tmp/gammon.imp" int BFST3( void ) #line 274 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 275 %INTEGER I,J; J=0 _imp_current_line = 275; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 275 "regression-compile-tmp/gammon.imp" int I; #line 275 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 275; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 275 "regression-compile-tmp/gammon.imp" J = 0; // 276 %CYCLE I=22,1,25 _imp_current_line = 276; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 276 "regression-compile-tmp/gammon.imp" I = 21; if ((((25)-(22)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 22, 1, 25"); L_007f:; if (I == 25) goto L_0080; I += 1; // 277 J=J+BOARD(I)_BS _imp_current_line = 277; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 277 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].BS)); // 278 %REPEAT _imp_current_line = 278; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 278 "regression-compile-tmp/gammon.imp" goto L_007f; #line 278 "regression-compile-tmp/gammon.imp" L_0080:; // 279 %RESULT = J _imp_current_line = 279; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 279 "regression-compile-tmp/gammon.imp" return J; // 280 %END _imp_current_line = 280; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 280 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BFST3 at level 2 // 281 // 282 %INTEGERFN WFST3 _imp_current_line = 282; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 282 "regression-compile-tmp/gammon.imp" int WFST3( void ) #line 282 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 283 %INTEGER I,J; J=0 _imp_current_line = 283; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 283 "regression-compile-tmp/gammon.imp" int I; #line 283 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 283; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 283 "regression-compile-tmp/gammon.imp" J = 0; // 284 %CYCLE I=0,1,3 _imp_current_line = 284; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 284 "regression-compile-tmp/gammon.imp" I = (-1); if ((((3)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 3"); L_0082:; if (I == 3) goto L_0083; I += 1; // 285 J=J+BOARD(I)_WS _imp_current_line = 285; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 285 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].WS)); // 286 %REPEAT _imp_current_line = 286; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 286 "regression-compile-tmp/gammon.imp" goto L_0082; #line 286 "regression-compile-tmp/gammon.imp" L_0083:; // 287 %RESULT = J _imp_current_line = 287; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 287 "regression-compile-tmp/gammon.imp" return J; // 288 %END _imp_current_line = 288; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 288 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WFST3 at level 2 // 289 // 290 %INTEGERFN BFST6 _imp_current_line = 290; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 290 "regression-compile-tmp/gammon.imp" int BFST6( void ) #line 290 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 291 %INTEGER I,J; J=0 _imp_current_line = 291; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 291 "regression-compile-tmp/gammon.imp" int I; #line 291 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 291; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 291 "regression-compile-tmp/gammon.imp" J = 0; // 292 %CYCLE I=19,1,25 _imp_current_line = 292; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 292 "regression-compile-tmp/gammon.imp" I = 18; if ((((25)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 19, 1, 25"); L_0085:; if (I == 25) goto L_0086; I += 1; // 293 J=J+BOARD(I)_BS _imp_current_line = 293; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 293 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].BS)); // 294 %REPEAT _imp_current_line = 294; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 294 "regression-compile-tmp/gammon.imp" goto L_0085; #line 294 "regression-compile-tmp/gammon.imp" L_0086:; // 295 %RESULT = J _imp_current_line = 295; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 295 "regression-compile-tmp/gammon.imp" return J; // 296 %END _imp_current_line = 296; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 296 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BFST6 at level 2 // 297 // 298 %INTEGERFN WFST6 _imp_current_line = 298; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 298 "regression-compile-tmp/gammon.imp" int WFST6( void ) #line 298 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 299 %INTEGER I,J; J=0 _imp_current_line = 299; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 299 "regression-compile-tmp/gammon.imp" int I; #line 299 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 299; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 299 "regression-compile-tmp/gammon.imp" J = 0; // 300 %CYCLE I=0,1,6 _imp_current_line = 300; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 300 "regression-compile-tmp/gammon.imp" I = (-1); if ((((6)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 6"); L_0088:; if (I == 6) goto L_0089; I += 1; // 301 J=J+BOARD(I)_WS _imp_current_line = 301; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 301 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].WS)); // 302 %REPEAT _imp_current_line = 302; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 302 "regression-compile-tmp/gammon.imp" goto L_0088; #line 302 "regression-compile-tmp/gammon.imp" L_0089:; // 303 %RESULT = J _imp_current_line = 303; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 303 "regression-compile-tmp/gammon.imp" return J; // 304 %END _imp_current_line = 304; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 304 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WFST6 at level 2 // 305 // 306 %INTEGERFN BFST12 _imp_current_line = 306; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 306 "regression-compile-tmp/gammon.imp" int BFST12( void ) #line 306 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 307 %INTEGER I,J _imp_current_line = 307; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 307 "regression-compile-tmp/gammon.imp" int I; #line 307 "regression-compile-tmp/gammon.imp" int J; // 308 J=BFST6 _imp_current_line = 308; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 308 "regression-compile-tmp/gammon.imp" J = BFST6(); // 309 %CYCLE I=13,1,18 _imp_current_line = 309; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 309 "regression-compile-tmp/gammon.imp" I = 12; if ((((18)-(13)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 13, 1, 18"); L_008b:; if (I == 18) goto L_008c; I += 1; // 310 J=J+BOARD(I)_BS _imp_current_line = 310; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 310 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].BS)); // 311 %REPEAT _imp_current_line = 311; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 311 "regression-compile-tmp/gammon.imp" goto L_008b; #line 311 "regression-compile-tmp/gammon.imp" L_008c:; // 312 %RESULT = J _imp_current_line = 312; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 312 "regression-compile-tmp/gammon.imp" return J; // 313 %END _imp_current_line = 313; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 313 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BFST12 at level 2 // 314 // 315 %INTEGERFN WFST12 _imp_current_line = 315; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 315 "regression-compile-tmp/gammon.imp" int WFST12( void ) #line 315 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 316 %INTEGER I,J _imp_current_line = 316; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 316 "regression-compile-tmp/gammon.imp" int I; #line 316 "regression-compile-tmp/gammon.imp" int J; // 317 J=WFST6 _imp_current_line = 317; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 317 "regression-compile-tmp/gammon.imp" J = WFST6(); // 318 %CYCLE I=7,1,12 _imp_current_line = 318; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 318 "regression-compile-tmp/gammon.imp" I = 6; if ((((12)-(7)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 7, 1, 12"); L_008e:; if (I == 12) goto L_008f; I += 1; // 319 J=BOARD(I)_WS+J _imp_current_line = 319; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 319 "regression-compile-tmp/gammon.imp" J = (((int)(BOARD[I].WS)) + (J)); // 320 %REPEAT _imp_current_line = 320; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 320 "regression-compile-tmp/gammon.imp" goto L_008e; #line 320 "regression-compile-tmp/gammon.imp" L_008f:; // 321 %RESULT = J _imp_current_line = 321; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 321 "regression-compile-tmp/gammon.imp" return J; // 322 %END _imp_current_line = 322; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 322 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WFST12 at level 2 // 323 // 324 %INTEGERFN WHOME _imp_current_line = 324; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 324 "regression-compile-tmp/gammon.imp" int WHOME( void ) #line 324 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 325 %INTEGER I,J; J=0 _imp_current_line = 325; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 325 "regression-compile-tmp/gammon.imp" int I; #line 325 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 325; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 325 "regression-compile-tmp/gammon.imp" J = 0; // 326 %CYCLE I=19,1,24 _imp_current_line = 326; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 326 "regression-compile-tmp/gammon.imp" I = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 19, 1, 24"); L_0091:; if (I == 24) goto L_0092; I += 1; // 327 J=J+BOARD(I)_WS _imp_current_line = 327; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 327 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].WS)); // 328 %REPEAT _imp_current_line = 328; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 328 "regression-compile-tmp/gammon.imp" goto L_0091; #line 328 "regression-compile-tmp/gammon.imp" L_0092:; // 329 %RESULT = J _imp_current_line = 329; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 329 "regression-compile-tmp/gammon.imp" return J; // 330 %END _imp_current_line = 330; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 330 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WHOME at level 2 // 331 // 332 %INTEGERFN BHOME _imp_current_line = 332; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 332 "regression-compile-tmp/gammon.imp" int BHOME( void ) #line 332 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 333 %INTEGER I,J; J=0 _imp_current_line = 333; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 333 "regression-compile-tmp/gammon.imp" int I; #line 333 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 333; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 333 "regression-compile-tmp/gammon.imp" J = 0; // 334 %CYCLE I=1,1,6 _imp_current_line = 334; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 334 "regression-compile-tmp/gammon.imp" I = 0; if ((((6)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 6"); L_0094:; if (I == 6) goto L_0095; I += 1; // 335 J=J+BOARD(I)_BS _imp_current_line = 335; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 335 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].BS)); // 336 %REPEAT _imp_current_line = 336; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 336 "regression-compile-tmp/gammon.imp" goto L_0094; #line 336 "regression-compile-tmp/gammon.imp" L_0095:; // 337 %RESULT = J _imp_current_line = 337; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 337 "regression-compile-tmp/gammon.imp" return J; // 338 %END _imp_current_line = 338; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 338 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BHOME at level 2 // 339 // 340 %INTEGERFN WTOGO _imp_current_line = 340; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 340 "regression-compile-tmp/gammon.imp" int WTOGO( void ) #line 340 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 341 %INTEGER I,J,K,SUM; SUM=0 _imp_current_line = 341; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 341 "regression-compile-tmp/gammon.imp" int I; #line 341 "regression-compile-tmp/gammon.imp" int J; #line 341 "regression-compile-tmp/gammon.imp" int K; #line 341 "regression-compile-tmp/gammon.imp" int SUM; _imp_current_line = 341; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 341 "regression-compile-tmp/gammon.imp" SUM = 0; // 342 %CYCLE I=0,1,18 _imp_current_line = 342; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 342 "regression-compile-tmp/gammon.imp" I = (-1); if ((((18)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 18"); L_0097:; if (I == 18) goto L_0098; I += 1; // 343 J=BOARD(I)_WS _imp_current_line = 343; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 343 "regression-compile-tmp/gammon.imp" J = BOARD[I].WS; // 344 %IF J>0 %THENSTART _imp_current_line = 344; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 344 "regression-compile-tmp/gammon.imp" if (((J) <= (0))) goto L_009a; // 345 %CYCLE K=1,1,J _imp_current_line = 345; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 345 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = J; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, J"); K -= _increment; _control -= _increment; L_009b:; if (K == _final) goto L_009c; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 346 SUM=SUM+19-I _imp_current_line = 346; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 346 "regression-compile-tmp/gammon.imp" SUM = (((int)((((int)(SUM)) + (19)))) - (I)); // 347 %REPEAT _imp_current_line = 347; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 347 "regression-compile-tmp/gammon.imp" goto L_009b; #line 347 "regression-compile-tmp/gammon.imp" L_009c:; // 348 %FINISH _imp_current_line = 348; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 348 "regression-compile-tmp/gammon.imp" L_009a:; // 349 %REPEAT _imp_current_line = 349; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 349 "regression-compile-tmp/gammon.imp" goto L_0097; #line 349 "regression-compile-tmp/gammon.imp" L_0098:; // 350 %RESULT = SUM _imp_current_line = 350; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 350 "regression-compile-tmp/gammon.imp" return SUM; // 351 %END _imp_current_line = 351; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 351 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WTOGO at level 2 // 352 // 353 %INTEGERFN BTOGO _imp_current_line = 353; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 353 "regression-compile-tmp/gammon.imp" int BTOGO( void ) #line 353 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 354 %INTEGER I,J,K,SUM; SUM=0 _imp_current_line = 354; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 354 "regression-compile-tmp/gammon.imp" int I; #line 354 "regression-compile-tmp/gammon.imp" int J; #line 354 "regression-compile-tmp/gammon.imp" int K; #line 354 "regression-compile-tmp/gammon.imp" int SUM; _imp_current_line = 354; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 354 "regression-compile-tmp/gammon.imp" SUM = 0; // 355 %CYCLE I=7,1,25 _imp_current_line = 355; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 355 "regression-compile-tmp/gammon.imp" I = 6; if ((((25)-(7)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 7, 1, 25"); L_009e:; if (I == 25) goto L_009f; I += 1; // 356 J=BOARD(I)_BS _imp_current_line = 356; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 356 "regression-compile-tmp/gammon.imp" J = BOARD[I].BS; // 357 %IF J>0 %THENSTART _imp_current_line = 357; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 357 "regression-compile-tmp/gammon.imp" if (((J) <= (0))) goto L_00a1; // 358 %CYCLE K=1,1,J _imp_current_line = 358; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 358 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = J; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, J"); K -= _increment; _control -= _increment; L_00a2:; if (K == _final) goto L_00a3; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 359 SUM=SUM+I-6 _imp_current_line = 359; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 359 "regression-compile-tmp/gammon.imp" SUM = (((int)((((int)(SUM)) + (I)))) - (6)); // 360 %REPEAT _imp_current_line = 360; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 360 "regression-compile-tmp/gammon.imp" goto L_00a2; #line 360 "regression-compile-tmp/gammon.imp" L_00a3:; // 361 %FINISH _imp_current_line = 361; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 361 "regression-compile-tmp/gammon.imp" L_00a1:; // 362 %REPEAT _imp_current_line = 362; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 362 "regression-compile-tmp/gammon.imp" goto L_009e; #line 362 "regression-compile-tmp/gammon.imp" L_009f:; // 363 %RESULT = SUM _imp_current_line = 363; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 363 "regression-compile-tmp/gammon.imp" return SUM; // 364 %END _imp_current_line = 364; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 364 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block BTOGO at level 2 // 365 // 366 %ROUTINE GBRDVAL _imp_current_line = 366; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 366 "regression-compile-tmp/gammon.imp" void GBRDVAL( void ) #line 366 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 367 V1=W1*(BBAR-WBAR) _imp_current_line = 367; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 367 "regression-compile-tmp/gammon.imp" V1 = ((W1) * ((int)((((int)(BBAR())) - (WBAR()))))); // 368 V2=W2*(BSIN-WSIN) _imp_current_line = 368; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 368 "regression-compile-tmp/gammon.imp" V2 = ((W2) * ((int)((((int)(BSIN())) - (WSIN()))))); // 369 V3=W3*(BSINCL-WSINCL)//10 _imp_current_line = 369; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 369 "regression-compile-tmp/gammon.imp" V3 = (((((W3) * ((int)((((int)(BSINCL())) - (WSINCL()))))))) / ((int)(10))); // 370 V4=W4*(WPTSHOME-BPTSHOME) _imp_current_line = 370; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 370 "regression-compile-tmp/gammon.imp" V4 = ((W4) * ((int)((((int)(WPTSHOME())) - (BPTSHOME()))))); // 371 V5=W5*(WPTS-BPTS) _imp_current_line = 371; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 371 "regression-compile-tmp/gammon.imp" V5 = ((W5) * ((int)((((int)(WPTS())) - (BPTS()))))); // 372 V6=W6*(WPTSSUCC-BPTSSUCC) _imp_current_line = 372; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 372 "regression-compile-tmp/gammon.imp" V6 = ((W6) * ((int)((((int)(WPTSSUCC())) - (BPTSSUCC()))))); // 373 V7=W7*(BFST6-WFST6) _imp_current_line = 373; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 373 "regression-compile-tmp/gammon.imp" V7 = ((W7) * ((int)((((int)(BFST6())) - (WFST6()))))); // 374 V8=W8*(BTOGO//6-WTOGO//6) _imp_current_line = 374; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 374 "regression-compile-tmp/gammon.imp" V8 = ((W8) * ((((((((int)(BTOGO())) / ((int)(6)))))) - (((((int)(WTOGO())) / ((int)(6)))))))); // 375 V9=W9*(BFST3-WFST3) _imp_current_line = 375; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 375 "regression-compile-tmp/gammon.imp" V9 = ((W9) * ((int)((((int)(BFST3())) - (WFST3()))))); // 376 V10=W10*(WHOME-BHOME) _imp_current_line = 376; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 376 "regression-compile-tmp/gammon.imp" V10 = ((W10) * ((int)((((int)(WHOME())) - (BHOME()))))); // 377 BRDVAL=V1+V2+V3+V4+V5+V6+V7+V8+V9+V10 _imp_current_line = 377; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 377 "regression-compile-tmp/gammon.imp" BRDVAL = (((int)((((int)((((int)((((int)((((int)((((int)((((int)((((int)((((int)(V1)) + (V2)))) + (V3)))) + (V4)))) + (V5)))) + (V6)))) + (V7)))) + (V8)))) + (V9)))) + (V10)); // 378 %END _imp_current_line = 378; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 378 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block GBRDVAL at level 2 // 379 // 380 %ROUTINE GBRD _imp_current_line = 380; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 380 "regression-compile-tmp/gammon.imp" void GBRD( void ) #line 380 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 381 V1=W1*(BBAR) _imp_current_line = 381; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 381 "regression-compile-tmp/gammon.imp" V1 = (((int)(W1)) * (BBAR())); // 382 V2=W2*(-WSIN) _imp_current_line = 382; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 382 "regression-compile-tmp/gammon.imp" V2 = ((W2) * ((-(WSIN())))); // 383 V3=W3*(-WSINCL)//10 _imp_current_line = 383; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 383 "regression-compile-tmp/gammon.imp" V3 = (((((W3) * ((-(WSINCL())))))) / ((int)(10))); // 384 V4=W4*(WPTSHOME) _imp_current_line = 384; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 384 "regression-compile-tmp/gammon.imp" V4 = (((int)(W4)) * (WPTSHOME())); // 385 V5=W5*(WPTS) _imp_current_line = 385; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 385 "regression-compile-tmp/gammon.imp" V5 = (((int)(W5)) * (WPTS())); // 386 V6=W6*(WPTSSUCC) _imp_current_line = 386; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 386 "regression-compile-tmp/gammon.imp" V6 = (((int)(W6)) * (WPTSSUCC())); // 387 V7=W7*(-WFST6) _imp_current_line = 387; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 387 "regression-compile-tmp/gammon.imp" V7 = ((W7) * ((-(WFST6())))); // 388 V8=W8*(-WTOGO)//6 _imp_current_line = 388; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 388 "regression-compile-tmp/gammon.imp" V8 = (((((W8) * ((-(WTOGO())))))) / ((int)(6))); // 389 V9=W9*(-WFST3) _imp_current_line = 389; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 389 "regression-compile-tmp/gammon.imp" V9 = ((W9) * ((-(WFST3())))); // 390 V10=W10*(WHOME) _imp_current_line = 390; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 390 "regression-compile-tmp/gammon.imp" V10 = (((int)(W10)) * (WHOME())); // 391 BRDVAL=V1+V2+V3+V4+V5+V6+V7+V8+V9+V10 _imp_current_line = 391; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 391 "regression-compile-tmp/gammon.imp" BRDVAL = (((int)((((int)((((int)((((int)((((int)((((int)((((int)((((int)((((int)(V1)) + (V2)))) + (V3)))) + (V4)))) + (V5)))) + (V6)))) + (V7)))) + (V8)))) + (V9)))) + (V10)); // 392 %IF BRDVAL>BSTVAL %THENSTART _imp_current_line = 392; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 392 "regression-compile-tmp/gammon.imp" if (((BRDVAL) <= (BSTVAL))) goto L_00a5; // 393 BV1=V1; BV2=V2; BV3=V3; BV4=V4; BV5=V5; BV6=V6; BV7=V7; BV8=V8 _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV1 = V1; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV2 = V2; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV3 = V3; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV4 = V4; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV5 = V5; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV6 = V6; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV7 = V7; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 393 "regression-compile-tmp/gammon.imp" BV8 = V8; // 394 BV9=V9; BV10=V10; BSTVAL=BRDVAL; BSTMOV1=DICE1; BSTPT1=PT1 _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 394 "regression-compile-tmp/gammon.imp" BV9 = V9; _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 394 "regression-compile-tmp/gammon.imp" BV10 = V10; _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 394 "regression-compile-tmp/gammon.imp" BSTVAL = BRDVAL; _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 394 "regression-compile-tmp/gammon.imp" BSTMOV1 = DICE1; _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 394 "regression-compile-tmp/gammon.imp" BSTPT1 = PT1; // 395 BSTMOV2=DICE2; BSTPT2=PT2; BSTPT3=PT3; BSTPT4=PT4 _imp_current_line = 395; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 395 "regression-compile-tmp/gammon.imp" BSTMOV2 = DICE2; _imp_current_line = 395; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 395 "regression-compile-tmp/gammon.imp" BSTPT2 = PT2; _imp_current_line = 395; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 395 "regression-compile-tmp/gammon.imp" BSTPT3 = PT3; _imp_current_line = 395; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 395 "regression-compile-tmp/gammon.imp" BSTPT4 = PT4; // 396 %FINISH _imp_current_line = 396; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 396 "regression-compile-tmp/gammon.imp" L_00a5:; // 397 %END _imp_current_line = 397; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 397 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block GBRD at level 2 // 398 // 399 // 400 %ROUTINE MTSTMOV (%INTEGER P,D,%INTEGERNAME BP) _imp_current_line = 400; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 400 "regression-compile-tmp/gammon.imp" void MTSTMOV( int P, int D, int /*name*/*BP ) #line 400 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 401 BOARD(P)_WS=BOARD(P)_WS-1 _imp_current_line = 401; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 401 "regression-compile-tmp/gammon.imp" BOARD[P].WS = (((int)(BOARD[P].WS)) - (1)); // 402 BOARD(P+D)_WS=BOARD(P+D)_WS+1 _imp_current_line = 402; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 402 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].WS = (((int)(BOARD[(((int)(P)) + (D))].WS)) + (1)); // 403 %IF BOARD(P+D)_BS=1 %THEN BOARD(P+D)_BS=0 %C _imp_current_line = 403; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 403 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(P)) + (D))].BS) != (1))) goto L_00a6; #line 403 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].BS = 0; #line 403 "regression-compile-tmp/gammon.imp" BOARD[25].BS = (((int)(BOARD[25].BS)) + (1)); #line 403 "regression-compile-tmp/gammon.imp" *BP = 1; #line 403 "regression-compile-tmp/gammon.imp" L_00a6:; // 404 %AND BOARD(25)_BS=BOARD(25)_BS+1 %AND BP=1 // 405 %END _imp_current_line = 405; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 405 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block MTSTMOV at level 2 // 406 // 407 %ROUTINE CLTSTMOV (%INTEGER P,D,%INTEGERNAME BP) _imp_current_line = 407; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 407 "regression-compile-tmp/gammon.imp" void CLTSTMOV( int P, int D, int /*name*/*BP ) #line 407 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 408 BOARD(P)_WS=BOARD(P)_WS+1 _imp_current_line = 408; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 408 "regression-compile-tmp/gammon.imp" BOARD[P].WS = (((int)(BOARD[P].WS)) + (1)); // 409 BOARD(P+D)_WS=BOARD(P+D)_WS-1 _imp_current_line = 409; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 409 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].WS = (((int)(BOARD[(((int)(P)) + (D))].WS)) - (1)); // 410 %IF BP=1 %THEN BOARD(P+D)_BS=1 %AND BOARD(25)_BS=BOARD(25)_BS-1 %C _imp_current_line = 410; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 410 "regression-compile-tmp/gammon.imp" if (((*BP) != (1))) goto L_00a7; #line 410 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].BS = 1; #line 410 "regression-compile-tmp/gammon.imp" BOARD[25].BS = (((int)(BOARD[25].BS)) - (1)); #line 410 "regression-compile-tmp/gammon.imp" *BP = 0; #line 410 "regression-compile-tmp/gammon.imp" L_00a7:; // 411 %AND BP=0 // 412 %END _imp_current_line = 412; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 412 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block CLTSTMOV at level 2 // 413 // 414 %ROUTINE MMOVE (%INTEGER P,D) _imp_current_line = 414; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 414 "regression-compile-tmp/gammon.imp" void MMOVE( int P, int D ) #line 414 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 415 BOARD(P)_WS=BOARD(P)_WS-1 _imp_current_line = 415; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 415 "regression-compile-tmp/gammon.imp" BOARD[P].WS = (((int)(BOARD[P].WS)) - (1)); // 416 BOARD(P+D)_WS=BOARD(P+D)_WS+1 _imp_current_line = 416; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 416 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].WS = (((int)(BOARD[(((int)(P)) + (D))].WS)) + (1)); // 417 BOARD(25)_BS=BOARD(25)_BS+BOARD(P+D)_BS _imp_current_line = 417; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 417 "regression-compile-tmp/gammon.imp" BOARD[25].BS = (((int)(BOARD[25].BS)) + (BOARD[(((int)(P)) + (D))].BS)); // 418 BOARD(P+D)_BS=0 _imp_current_line = 418; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 418 "regression-compile-tmp/gammon.imp" BOARD[(((int)(P)) + (D))].BS = 0; // 419 %END _imp_current_line = 419; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 419 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block MMOVE at level 2 // 420 // 421 %ROUTINE GOOD (%INTEGERNAME S,WT) _imp_current_line = 421; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 421 "regression-compile-tmp/gammon.imp" void GOOD( int /*name*/*S, int /*name*/*WT ) #line 421 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 422 %IF S=0 %THENRETURN _imp_current_line = 422; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 422 "regression-compile-tmp/gammon.imp" if (((*S) != (0))) goto L_00a8; #line 422 "regression-compile-tmp/gammon.imp" return; #line 422 "regression-compile-tmp/gammon.imp" L_00a8:; // 423 %IF S<0 %THEN WT=WT-1 %ELSE WT=WT+1 _imp_current_line = 423; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 423 "regression-compile-tmp/gammon.imp" if (((*S) >= (0))) goto L_00a9; #line 423 "regression-compile-tmp/gammon.imp" *WT = ((*(int *)(WT)) - (1)); #line 423 "regression-compile-tmp/gammon.imp" goto L_00aa; #line 423 "regression-compile-tmp/gammon.imp" L_00a9:; #line 423 "regression-compile-tmp/gammon.imp" *WT = ((*(int *)(WT)) + (1)); #line 423 "regression-compile-tmp/gammon.imp" L_00aa:; // 424 %END _imp_current_line = 424; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 424 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block GOOD at level 2 // 425 // 426 %ROUTINE BAD (%INTEGERNAME S,WT) _imp_current_line = 426; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 426 "regression-compile-tmp/gammon.imp" void BAD( int /*name*/*S, int /*name*/*WT ) #line 426 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 427 %IF S=0 %THENRETURN _imp_current_line = 427; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 427 "regression-compile-tmp/gammon.imp" if (((*S) != (0))) goto L_00ab; #line 427 "regression-compile-tmp/gammon.imp" return; #line 427 "regression-compile-tmp/gammon.imp" L_00ab:; // 428 %IF S>0 %THEN WT=WT-1 %ELSE WT=WT+1 _imp_current_line = 428; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 428 "regression-compile-tmp/gammon.imp" if (((*S) <= (0))) goto L_00ac; #line 428 "regression-compile-tmp/gammon.imp" *WT = ((*(int *)(WT)) - (1)); #line 428 "regression-compile-tmp/gammon.imp" goto L_00ad; #line 428 "regression-compile-tmp/gammon.imp" L_00ac:; #line 428 "regression-compile-tmp/gammon.imp" *WT = ((*(int *)(WT)) + (1)); #line 428 "regression-compile-tmp/gammon.imp" L_00ad:; // 429 %END _imp_current_line = 429; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 429 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block BAD at level 2 // 430 // 431 %ROUTINE LOADWTS _imp_current_line = 431; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 431 "regression-compile-tmp/gammon.imp" void LOADWTS( void ) #line 431 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 432 W1 = 19 _imp_current_line = 432; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 432 "regression-compile-tmp/gammon.imp" W1 = 19; // 433 W2 = 117 _imp_current_line = 433; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 433 "regression-compile-tmp/gammon.imp" W2 = 117; // 434 W3 = 102 _imp_current_line = 434; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 434 "regression-compile-tmp/gammon.imp" W3 = 102; // 435 W4 = 15 _imp_current_line = 435; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 435 "regression-compile-tmp/gammon.imp" W4 = 15; // 436 W5 = 15 _imp_current_line = 436; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 436 "regression-compile-tmp/gammon.imp" W5 = 15; // 437 W6 = 12 _imp_current_line = 437; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 437 "regression-compile-tmp/gammon.imp" W6 = 12; // 438 W7 = 64 _imp_current_line = 438; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 438 "regression-compile-tmp/gammon.imp" W7 = 64; // 439 W8 = 43 _imp_current_line = 439; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 439 "regression-compile-tmp/gammon.imp" W8 = 43; // 440 W9 = 62 _imp_current_line = 440; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 440 "regression-compile-tmp/gammon.imp" W9 = 62; // 441 W10 = 15 _imp_current_line = 441; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 441 "regression-compile-tmp/gammon.imp" W10 = 15; // 442 %END _imp_current_line = 442; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 442 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block LOADWTS at level 2 // 443 // 444 %ROUTINE DUMPWTS _imp_current_line = 444; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 444 "regression-compile-tmp/gammon.imp" void DUMPWTS( void ) #line 444 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 445 SELECTOUTPUT(2) _imp_current_line = 445; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 445 "regression-compile-tmp/gammon.imp" _imp_SELECTOUTPUT(2); // 446 NEWLINES(3); WRITE(W1,1); NEWLINE; WRITE(W2,1) _imp_current_line = 446; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 446 "regression-compile-tmp/gammon.imp" _imp_NEWLINES(3); _imp_current_line = 446; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 446 "regression-compile-tmp/gammon.imp" _imp_WRITE(W1, 1); _imp_current_line = 446; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 446 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 446; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 446 "regression-compile-tmp/gammon.imp" _imp_WRITE(W2, 1); // 447 NEWLINE; WRITE(W3,1); NEWLINE; WRITE(W4,1) _imp_current_line = 447; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 447 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 447; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 447 "regression-compile-tmp/gammon.imp" _imp_WRITE(W3, 1); _imp_current_line = 447; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 447 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 447; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 447 "regression-compile-tmp/gammon.imp" _imp_WRITE(W4, 1); // 448 NEWLINE; WRITE(W5,1); NEWLINE; WRITE(W6,1) _imp_current_line = 448; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 448 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 448; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 448 "regression-compile-tmp/gammon.imp" _imp_WRITE(W5, 1); _imp_current_line = 448; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 448 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 448; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 448 "regression-compile-tmp/gammon.imp" _imp_WRITE(W6, 1); // 449 NEWLINE; WRITE(W7,1); NEWLINE; WRITE(W8,1) _imp_current_line = 449; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 449 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 449; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 449 "regression-compile-tmp/gammon.imp" _imp_WRITE(W7, 1); _imp_current_line = 449; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 449 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 449; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 449 "regression-compile-tmp/gammon.imp" _imp_WRITE(W8, 1); // 450 NEWLINE; WRITE(W9,1); NEWLINE; WRITE(W10,1) _imp_current_line = 450; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 450 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 450; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 450 "regression-compile-tmp/gammon.imp" _imp_WRITE(W9, 1); _imp_current_line = 450; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 450 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); _imp_current_line = 450; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 450 "regression-compile-tmp/gammon.imp" _imp_WRITE(W10, 1); // 451 %END _imp_current_line = 451; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 451 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block DUMPWTS at level 2 // 452 // 453 %INTEGERFN WBEARO _imp_current_line = 453; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 453 "regression-compile-tmp/gammon.imp" int WBEARO( void ) #line 453 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 454 %INTEGER I,J; J=WBOFF _imp_current_line = 454; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 454 "regression-compile-tmp/gammon.imp" int I; #line 454 "regression-compile-tmp/gammon.imp" int J; _imp_current_line = 454; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 454 "regression-compile-tmp/gammon.imp" J = WBOFF; // 455 %CYCLE I=19,1,24 _imp_current_line = 455; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 455 "regression-compile-tmp/gammon.imp" I = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 19, 1, 24"); L_00ae:; if (I == 24) goto L_00af; I += 1; // 456 J=J+BOARD(I)_WS _imp_current_line = 456; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 456 "regression-compile-tmp/gammon.imp" J = (((int)(J)) + (BOARD[I].WS)); // 457 %REPEAT _imp_current_line = 457; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 457 "regression-compile-tmp/gammon.imp" goto L_00ae; #line 457 "regression-compile-tmp/gammon.imp" L_00af:; // 458 %RESULT = J _imp_current_line = 458; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 458 "regression-compile-tmp/gammon.imp" return J; // 459 %END _imp_current_line = 459; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 459 "regression-compile-tmp/gammon.imp" _imp_endofblock: ; } // End of block WBEARO at level 2 // 460 // 461 %ROUTINE DOBEST(%INTEGER D) _imp_current_line = 461; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 461 "regression-compile-tmp/gammon.imp" void DOBEST( int D ) #line 461 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 462 %IF D#0 %THENSTART _imp_current_line = 462; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 462 "regression-compile-tmp/gammon.imp" if (((D) == (0))) goto L_00b1; // 463 %IF BOARD(25-D)_WS>0 %THENSTART _imp_current_line = 463; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 463 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (D))].WS) <= (0))) goto L_00b2; // 464 BOARD(25-D)_WS=BOARD(25-D)_WS-1 _imp_current_line = 464; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 464 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (D))].WS = (((int)(BOARD[(((int)(25)) - (D))].WS)) - (1)); // 465 WBOFF=WBOFF+1 _imp_current_line = 465; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 465 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); // 466 %FINISHELSESTART _imp_current_line = 466; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 466 "regression-compile-tmp/gammon.imp" goto L_00b3; #line 466 "regression-compile-tmp/gammon.imp" L_00b2:; // 467 %IF BOARD(25-D+1)_WS>0 %THENSTART _imp_current_line = 467; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 467 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)((((int)(25)) - (D)))) + (1))].WS) <= (0))) goto L_00b4; // 468 BOARD(25-D+1)_WS=BOARD(25-D+1)_WS-1 _imp_current_line = 468; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 468 "regression-compile-tmp/gammon.imp" BOARD[(((int)((((int)(25)) - (D)))) + (1))].WS = (((int)(BOARD[(((int)((((int)(25)) - (D)))) + (1))].WS)) - (1)); // 469 WBOFF=WBOFF+1 _imp_current_line = 469; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 469 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); // 470 %FINISHELSESTART _imp_current_line = 470; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 470 "regression-compile-tmp/gammon.imp" goto L_00b5; #line 470 "regression-compile-tmp/gammon.imp" L_00b4:; // 471 %CYCLE M=19,1,25-D _imp_current_line = 471; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 471 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = 19; _increment = 1; _final = (((int)(25)) - (D)); M = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle M = 19, 1, (((int)(25)) - (D))"); M -= _increment; _control -= _increment; L_00b6:; if (M == _final) goto L_00b7; M += _increment; _control += _increment; if (M != _control) _imp_signal(4,2,0,"Corrupt control variable M"); /* FOR loop control variable corrupted */ } // 472 %IF WBOFF<8 %THENSTART _imp_current_line = 472; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 472 "regression-compile-tmp/gammon.imp" if (((WBOFF) >= (8))) goto L_00b9; // 473 %IF BOARD(M)_WS>2 %THEN MMOVE(M,D) %ANDRETURN _imp_current_line = 473; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 473 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (2))) goto L_00ba; #line 473 "regression-compile-tmp/gammon.imp" MMOVE(M, D); #line 473 "regression-compile-tmp/gammon.imp" return; #line 473 "regression-compile-tmp/gammon.imp" L_00ba:; // 474 %FINISHELSESTART _imp_current_line = 474; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 474 "regression-compile-tmp/gammon.imp" goto L_00bb; #line 474 "regression-compile-tmp/gammon.imp" L_00b9:; // 475 %IF BOARD(M)_WS>1 %THEN MMOVE(M,D) %ANDRETURN _imp_current_line = 475; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 475 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (1))) goto L_00bc; #line 475 "regression-compile-tmp/gammon.imp" MMOVE(M, D); #line 475 "regression-compile-tmp/gammon.imp" return; #line 475 "regression-compile-tmp/gammon.imp" L_00bc:; // 476 %FINISH _imp_current_line = 476; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 476 "regression-compile-tmp/gammon.imp" L_00bb:; // 477 %REPEAT _imp_current_line = 477; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 477 "regression-compile-tmp/gammon.imp" goto L_00b6; #line 477 "regression-compile-tmp/gammon.imp" L_00b7:; // 478 %CYCLE M=19,1,24 _imp_current_line = 478; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 478 "regression-compile-tmp/gammon.imp" M = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle M = 19, 1, 24"); L_00bd:; if (M == 24) goto L_00be; M += 1; // 479 %IF DICE2+M<25 %THENSTART _imp_current_line = 479; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 479 "regression-compile-tmp/gammon.imp" if ((((((int)(DICE2)) + (M))) >= (25))) goto L_00c0; // 480 %IF BOARD(M)_WS>0 %THEN MMOVE(M,DICE2) %ANDRETURN _imp_current_line = 480; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 480 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (0))) goto L_00c1; #line 480 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE2); #line 480 "regression-compile-tmp/gammon.imp" return; #line 480 "regression-compile-tmp/gammon.imp" L_00c1:; // 481 %FINISHELSESTART _imp_current_line = 481; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 481 "regression-compile-tmp/gammon.imp" goto L_00c2; #line 481 "regression-compile-tmp/gammon.imp" L_00c0:; // 482 %IF BOARD(M)_WS>0 %THENSTART _imp_current_line = 482; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 482 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (0))) goto L_00c3; // 483 BOARD(M)_WS=BOARD(M)_WS-1 _imp_current_line = 483; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 483 "regression-compile-tmp/gammon.imp" BOARD[M].WS = (((int)(BOARD[M].WS)) - (1)); // 484 WBOFF=WBOFF+1; %RETURN _imp_current_line = 484; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 484 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); _imp_current_line = 484; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 484 "regression-compile-tmp/gammon.imp" return; // 485 %FINISH _imp_current_line = 485; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 485 "regression-compile-tmp/gammon.imp" L_00c3:; // 486 %FINISH _imp_current_line = 486; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 486 "regression-compile-tmp/gammon.imp" L_00c2:; // 487 %REPEAT _imp_current_line = 487; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 487 "regression-compile-tmp/gammon.imp" goto L_00bd; #line 487 "regression-compile-tmp/gammon.imp" L_00be:; // 488 %FINISH _imp_current_line = 488; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 488 "regression-compile-tmp/gammon.imp" L_00b5:; // 489 %FINISH _imp_current_line = 489; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 489 "regression-compile-tmp/gammon.imp" L_00b3:; // 490 %FINISH _imp_current_line = 490; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 490 "regression-compile-tmp/gammon.imp" L_00b1:; // 491 %END _imp_current_line = 491; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 491 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block DOBEST at level 2 // 492 // 493 %ROUTINE MTSTBOFF(%INTEGER NUM,DIE) _imp_current_line = 493; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 493 "regression-compile-tmp/gammon.imp" void MTSTBOFF( int NUM, int DIE ) #line 493 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 494 %IF NUM+DIE<25 %THENSTART _imp_current_line = 494; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 494 "regression-compile-tmp/gammon.imp" if ((((((int)(NUM)) + (DIE))) >= (25))) goto L_00c4; // 495 %IF BOARD(NUM+DIE)_BS=0 %THEN MMOVE(NUM,DIE) %ELSE NOMOV=1 _imp_current_line = 495; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 495 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(NUM)) + (DIE))].BS) != (0))) goto L_00c5; #line 495 "regression-compile-tmp/gammon.imp" MMOVE(NUM, DIE); #line 495 "regression-compile-tmp/gammon.imp" goto L_00c6; #line 495 "regression-compile-tmp/gammon.imp" L_00c5:; #line 495 "regression-compile-tmp/gammon.imp" NOMOV = 1; #line 495 "regression-compile-tmp/gammon.imp" L_00c6:; // 496 %FINISHELSESTART _imp_current_line = 496; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 496 "regression-compile-tmp/gammon.imp" goto L_00c7; #line 496 "regression-compile-tmp/gammon.imp" L_00c4:; // 497 BOARD(NUM)_WS=BOARD(NUM)_WS-1 _imp_current_line = 497; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 497 "regression-compile-tmp/gammon.imp" BOARD[NUM].WS = (((int)(BOARD[NUM].WS)) - (1)); // 498 WBOFF=WBOFF+1 _imp_current_line = 498; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 498 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); // 499 %FINISH _imp_current_line = 499; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 499 "regression-compile-tmp/gammon.imp" L_00c7:; // 500 %END _imp_current_line = 500; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 500 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block MTSTBOFF at level 2 // 501 // 502 %ROUTINE CLTSTBOFF(%INTEGER NUM,DIE) _imp_current_line = 502; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 502 "regression-compile-tmp/gammon.imp" void CLTSTBOFF( int NUM, int DIE ) #line 502 "regression-compile-tmp/gammon.imp" { __label__ _imp_endofblock; // 503 TEMP=0 _imp_current_line = 503; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 503 "regression-compile-tmp/gammon.imp" TEMP = 0; // 504 %IF NUM+DIE<25 %THEN CLTSTMOV(NUM,DIE,TEMP) %ELSESTART _imp_current_line = 504; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 504 "regression-compile-tmp/gammon.imp" if ((((((int)(NUM)) + (DIE))) >= (25))) goto L_00c8; #line 504 "regression-compile-tmp/gammon.imp" CLTSTMOV(NUM, DIE, &TEMP); #line 504 "regression-compile-tmp/gammon.imp" goto L_00c9; #line 504 "regression-compile-tmp/gammon.imp" L_00c8:; // 505 BOARD(NUM)_WS=BOARD(NUM)_WS+1 _imp_current_line = 505; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 505 "regression-compile-tmp/gammon.imp" BOARD[NUM].WS = (((int)(BOARD[NUM].WS)) + (1)); // 506 WBOFF=WBOFF-1 _imp_current_line = 506; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 506 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) - (1)); // 507 %FINISH _imp_current_line = 507; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 507 "regression-compile-tmp/gammon.imp" L_00c9:; // 508 %END _imp_current_line = 508; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 508 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block CLTSTBOFF at level 2 // 509 // 510 ! // 511 ! // 512 ! // 513 LOADWTS _imp_current_line = 513; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 513 "regression-compile-tmp/gammon.imp" LOADWTS(); // 514 SELECTINPUT(0) _imp_current_line = 514; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 514 "regression-compile-tmp/gammon.imp" _imp_SELECTINPUT(0); // 515 CLOSESTREAM(1) _imp_current_line = 515; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 515 "regression-compile-tmp/gammon.imp" _imp_CLOSESTREAM(1); // 516 INITIALIZE _imp_current_line = 516; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 516 "regression-compile-tmp/gammon.imp" INITIALIZE(); // 517 PRINTSTATE _imp_current_line = 517; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 517 "regression-compile-tmp/gammon.imp" PRINTSTATE(); // 518 STRT: %CYCLE _imp_current_line = 518; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 518 "regression-compile-tmp/gammon.imp" U_1006:; _imp_current_line = 518; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 518 "regression-compile-tmp/gammon.imp" L_00ca:; // 519 READ(DICE1); READ(DICE2); BSTVAL=X'80000000' _imp_current_line = 519; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 519 "regression-compile-tmp/gammon.imp" _imp_READ(&DICE1); _imp_current_line = 519; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 519 "regression-compile-tmp/gammon.imp" _imp_READ(&DICE2); _imp_current_line = 519; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 519 "regression-compile-tmp/gammon.imp" BSTVAL = (-2147483648); // 520 %IF DICE1=DICE2 %THEN DICE3=DICE1 %AND DICE4=DICE2 %C _imp_current_line = 520; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 520 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_00cd; #line 520 "regression-compile-tmp/gammon.imp" DICE3 = DICE1; #line 520 "regression-compile-tmp/gammon.imp" DICE4 = DICE2; #line 520 "regression-compile-tmp/gammon.imp" goto L_00ce; #line 520 "regression-compile-tmp/gammon.imp" L_00cd:; #line 520 "regression-compile-tmp/gammon.imp" DICE3 = 0; #line 520 "regression-compile-tmp/gammon.imp" DICE4 = 0; #line 520 "regression-compile-tmp/gammon.imp" L_00ce:; // 521 %ELSE DICE3=0 %AND DICE4=0 // 522 RUNNING=0 _imp_current_line = 522; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 522 "regression-compile-tmp/gammon.imp" RUNNING = 0; // 523 %IF WBEARO=15 %THEN -> BEAROFF _imp_current_line = 523; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 523 "regression-compile-tmp/gammon.imp" if (((WBEARO()) != (15))) goto L_00cf; #line 523 "regression-compile-tmp/gammon.imp" goto U_1007; #line 523 "regression-compile-tmp/gammon.imp" L_00cf:; // 524 TEMP=BBOFF _imp_current_line = 524; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 524 "regression-compile-tmp/gammon.imp" TEMP = BBOFF; // 525 %CYCLE L=0,1,24 _imp_current_line = 525; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 525 "regression-compile-tmp/gammon.imp" L = (-1); if ((((24)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle L = 0, 1, 24"); L_00d0:; if (L == 24) goto L_00d1; L += 1; // 526 %IF BOARD(L)_WS>0 %THENEXIT _imp_current_line = 526; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 526 "regression-compile-tmp/gammon.imp" if (((BOARD[L].WS) <= (0))) goto L_00d3; #line 526 "regression-compile-tmp/gammon.imp" goto L_00d1; #line 526 "regression-compile-tmp/gammon.imp" L_00d3:; // 527 TEMP=TEMP+BOARD(L)_BS _imp_current_line = 527; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 527 "regression-compile-tmp/gammon.imp" TEMP = (((int)(TEMP)) + (BOARD[L].BS)); // 528 %REPEAT _imp_current_line = 528; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 528 "regression-compile-tmp/gammon.imp" goto L_00d0; #line 528 "regression-compile-tmp/gammon.imp" L_00d1:; // 529 %IF TEMP=15 %THEN RUNNING=1 %AND -> RUN _imp_current_line = 529; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 529 "regression-compile-tmp/gammon.imp" if (((TEMP) != (15))) goto L_00d4; #line 529 "regression-compile-tmp/gammon.imp" RUNNING = 1; #line 529 "regression-compile-tmp/gammon.imp" goto U_1008; #line 529 "regression-compile-tmp/gammon.imp" L_00d4:; // 530 M1=0;M2=0;M3=0;M4=0;BARFL=0 _imp_current_line = 530; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 530 "regression-compile-tmp/gammon.imp" M1 = 0; _imp_current_line = 530; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 530 "regression-compile-tmp/gammon.imp" M2 = 0; _imp_current_line = 530; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 530 "regression-compile-tmp/gammon.imp" M3 = 0; _imp_current_line = 530; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 530 "regression-compile-tmp/gammon.imp" M4 = 0; _imp_current_line = 530; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 530 "regression-compile-tmp/gammon.imp" BARFL = 0; // 531 %IF WBAR>0 %THENSTART _imp_current_line = 531; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 531 "regression-compile-tmp/gammon.imp" if (((WBAR()) <= (0))) goto L_00d5; // 532 %IF WBAR>1 %THENSTART _imp_current_line = 532; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 532 "regression-compile-tmp/gammon.imp" if (((WBAR()) <= (1))) goto L_00d6; // 533 %IF BOARD(DICE1)_BS<2 %THEN MMOVE(0,DICE1) _imp_current_line = 533; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 533 "regression-compile-tmp/gammon.imp" if (((BOARD[DICE1].BS) >= (2))) goto L_00d7; #line 533 "regression-compile-tmp/gammon.imp" MMOVE(0, DICE1); #line 533 "regression-compile-tmp/gammon.imp" L_00d7:; // 534 %IF BOARD(DICE2)_BS<2 %THEN MMOVE(0,DICE2) _imp_current_line = 534; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 534 "regression-compile-tmp/gammon.imp" if (((BOARD[DICE2].BS) >= (2))) goto L_00d8; #line 534 "regression-compile-tmp/gammon.imp" MMOVE(0, DICE2); #line 534 "regression-compile-tmp/gammon.imp" L_00d8:; // 535 -> DONE _imp_current_line = 535; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 535 "regression-compile-tmp/gammon.imp" goto U_1009; // 536 %FINISH _imp_current_line = 536; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 536 "regression-compile-tmp/gammon.imp" L_00d6:; // 537 %IF BOARD(DICE1)_BS>1 %AND BOARD(DICE2)_BS>1 %THEN -> DONE _imp_current_line = 537; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 537 "regression-compile-tmp/gammon.imp" if (((BOARD[DICE1].BS) <= (1))) goto L_00d9; #line 537 "regression-compile-tmp/gammon.imp" if (((BOARD[DICE2].BS) <= (1))) goto L_00d9; #line 537 "regression-compile-tmp/gammon.imp" goto U_1009; #line 537 "regression-compile-tmp/gammon.imp" L_00d9:; // 538 BARFL=1 _imp_current_line = 538; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 538 "regression-compile-tmp/gammon.imp" BARFL = 1; // 539 %FINISH _imp_current_line = 539; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 539 "regression-compile-tmp/gammon.imp" L_00d5:; // 540 %CYCLE K=1,1,2 _imp_current_line = 540; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 540 "regression-compile-tmp/gammon.imp" K = 0; if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, 2"); L_00da:; if (K == 2) goto L_00db; K += 1; // 541 %IF K=1 %THEN SECOND=0 %ELSESTART _imp_current_line = 541; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 541 "regression-compile-tmp/gammon.imp" if (((K) != (1))) goto L_00dd; #line 541 "regression-compile-tmp/gammon.imp" SECOND = 0; #line 541 "regression-compile-tmp/gammon.imp" goto L_00de; #line 541 "regression-compile-tmp/gammon.imp" L_00dd:; // 542 TEMP=DICE1; DICE1=DICE2; DICE2=TEMP; SECOND=1 _imp_current_line = 542; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 542 "regression-compile-tmp/gammon.imp" TEMP = DICE1; _imp_current_line = 542; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 542 "regression-compile-tmp/gammon.imp" DICE1 = DICE2; _imp_current_line = 542; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 542 "regression-compile-tmp/gammon.imp" DICE2 = TEMP; _imp_current_line = 542; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 542 "regression-compile-tmp/gammon.imp" SECOND = 1; // 543 %FINISH _imp_current_line = 543; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 543 "regression-compile-tmp/gammon.imp" L_00de:; // 544 %CYCLE I=0,1,23 _imp_current_line = 544; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 544 "regression-compile-tmp/gammon.imp" I = (-1); if ((((23)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 23"); L_00df:; if (I == 23) goto L_00e0; I += 1; // 545 %IF BOARD(I)_WS>0 %THEN PT1=I %ELSE -> CYC1 _imp_current_line = 545; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 545 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (0))) goto L_00e2; #line 545 "regression-compile-tmp/gammon.imp" PT1 = I; #line 545 "regression-compile-tmp/gammon.imp" goto L_00e3; #line 545 "regression-compile-tmp/gammon.imp" L_00e2:; #line 545 "regression-compile-tmp/gammon.imp" goto U_100a; #line 545 "regression-compile-tmp/gammon.imp" L_00e3:; // 546 %IF PT1+DICE1<25 %AND BOARD(PT1+DICE1)_BS<2 %THENSTART _imp_current_line = 546; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 546 "regression-compile-tmp/gammon.imp" if ((((((int)(PT1)) + (DICE1))) >= (25))) goto L_00e4; #line 546 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT1)) + (DICE1))].BS) >= (2))) goto L_00e4; // 547 MTSTMOV(PT1,DICE1,BARPT1); M1=1 _imp_current_line = 547; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 547 "regression-compile-tmp/gammon.imp" MTSTMOV(PT1, DICE1, &BARPT1); _imp_current_line = 547; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 547 "regression-compile-tmp/gammon.imp" M1 = 1; // 548 %IF WBEARO=15 %THEN DICE1=0 %AND -> BEAROFF _imp_current_line = 548; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 548 "regression-compile-tmp/gammon.imp" if (((WBEARO()) != (15))) goto L_00e5; #line 548 "regression-compile-tmp/gammon.imp" DICE1 = 0; #line 548 "regression-compile-tmp/gammon.imp" goto U_1007; #line 548 "regression-compile-tmp/gammon.imp" L_00e5:; // 549 %IF SECOND=1 %THEN N=I+1 %ELSE N=I _imp_current_line = 549; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 549 "regression-compile-tmp/gammon.imp" if (((SECOND) != (1))) goto L_00e6; #line 549 "regression-compile-tmp/gammon.imp" N = (((int)(I)) + (1)); #line 549 "regression-compile-tmp/gammon.imp" goto L_00e7; #line 549 "regression-compile-tmp/gammon.imp" L_00e6:; #line 549 "regression-compile-tmp/gammon.imp" N = I; #line 549 "regression-compile-tmp/gammon.imp" L_00e7:; // 550 %CYCLE J=N,1,24 _imp_current_line = 550; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 550 "regression-compile-tmp/gammon.imp" J = (((int)(N)) - (1)); if ((((24)-(N)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = N, 1, 24"); L_00e8:; if (J == 24) goto L_00e9; J += 1; // 551 %IF BOARD(J)_WS>0 %THEN PT2=J %ELSE -> CYC2 _imp_current_line = 551; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 551 "regression-compile-tmp/gammon.imp" if (((BOARD[J].WS) <= (0))) goto L_00eb; #line 551 "regression-compile-tmp/gammon.imp" PT2 = J; #line 551 "regression-compile-tmp/gammon.imp" goto L_00ec; #line 551 "regression-compile-tmp/gammon.imp" L_00eb:; #line 551 "regression-compile-tmp/gammon.imp" goto U_100b; #line 551 "regression-compile-tmp/gammon.imp" L_00ec:; // 552 %IF PT2+DICE2<25 %AND BOARD(PT2+DICE2)_BS<2 %THENSTART _imp_current_line = 552; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 552 "regression-compile-tmp/gammon.imp" if ((((((int)(PT2)) + (DICE2))) >= (25))) goto L_00ed; #line 552 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT2)) + (DICE2))].BS) >= (2))) goto L_00ed; // 553 MTSTMOV(PT2,DICE2,BARPT2); M2=1 _imp_current_line = 553; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 553 "regression-compile-tmp/gammon.imp" MTSTMOV(PT2, DICE2, &BARPT2); _imp_current_line = 553; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 553 "regression-compile-tmp/gammon.imp" M2 = 1; // 554 %IF DICE1=DICE2 %THENSTART _imp_current_line = 554; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 554 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_00ee; // 555 %IF WBEARO=15 %THEN DICE2=0 %AND DICE1=0 %AND -> BEAROFF _imp_current_line = 555; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 555 "regression-compile-tmp/gammon.imp" if (((WBEARO()) != (15))) goto L_00ef; #line 555 "regression-compile-tmp/gammon.imp" DICE2 = 0; #line 555 "regression-compile-tmp/gammon.imp" DICE1 = 0; #line 555 "regression-compile-tmp/gammon.imp" goto U_1007; #line 555 "regression-compile-tmp/gammon.imp" L_00ef:; // 556 %CYCLE G=J,1,23 _imp_current_line = 556; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 556 "regression-compile-tmp/gammon.imp" G = (((int)(J)) - (1)); if ((((23)-(J)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle G = J, 1, 23"); L_00f0:; if (G == 23) goto L_00f1; G += 1; // 557 %IF BOARD(G)_WS>0 %THEN PT3=G %ELSE -> CYC3 _imp_current_line = 557; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 557 "regression-compile-tmp/gammon.imp" if (((BOARD[G].WS) <= (0))) goto L_00f3; #line 557 "regression-compile-tmp/gammon.imp" PT3 = G; #line 557 "regression-compile-tmp/gammon.imp" goto L_00f4; #line 557 "regression-compile-tmp/gammon.imp" L_00f3:; #line 557 "regression-compile-tmp/gammon.imp" goto U_100c; #line 557 "regression-compile-tmp/gammon.imp" L_00f4:; // 558 %IF PT3+DICE1<25 %AND BOARD(PT3+DICE1)_BS<2 %C _imp_current_line = 558; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 558 "regression-compile-tmp/gammon.imp" if ((((((int)(PT3)) + (DICE1))) >= (25))) goto L_00f5; #line 558 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT3)) + (DICE1))].BS) >= (2))) goto L_00f5; // 559 %THENSTART // 560 MTSTMOV(PT3,DICE1,BARPT3); M3=1 _imp_current_line = 560; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 560 "regression-compile-tmp/gammon.imp" MTSTMOV(PT3, DICE1, &BARPT3); _imp_current_line = 560; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 560 "regression-compile-tmp/gammon.imp" M3 = 1; // 561 %IF WBEARO=15 %THEN DICE1=0 %AND DICE2=0 %C _imp_current_line = 561; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 561 "regression-compile-tmp/gammon.imp" if (((WBEARO()) != (15))) goto L_00f6; #line 561 "regression-compile-tmp/gammon.imp" DICE1 = 0; #line 561 "regression-compile-tmp/gammon.imp" DICE2 = 0; #line 561 "regression-compile-tmp/gammon.imp" DICE3 = 0; #line 561 "regression-compile-tmp/gammon.imp" goto U_1007; #line 561 "regression-compile-tmp/gammon.imp" L_00f6:; // 562 %AND DICE3=0 %AND -> BEAROFF // 563 %CYCLE H=G,1,23 _imp_current_line = 563; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 563 "regression-compile-tmp/gammon.imp" H = (((int)(G)) - (1)); if ((((23)-(G)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle H = G, 1, 23"); L_00f7:; if (H == 23) goto L_00f8; H += 1; // 564 %IF BOARD(H)_WS>0 %THEN PT4=H %ELSE -> CYC4 _imp_current_line = 564; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 564 "regression-compile-tmp/gammon.imp" if (((BOARD[H].WS) <= (0))) goto L_00fa; #line 564 "regression-compile-tmp/gammon.imp" PT4 = H; #line 564 "regression-compile-tmp/gammon.imp" goto L_00fb; #line 564 "regression-compile-tmp/gammon.imp" L_00fa:; #line 564 "regression-compile-tmp/gammon.imp" goto U_100d; #line 564 "regression-compile-tmp/gammon.imp" L_00fb:; // 565 %IF PT4+DICE2<25 %AND BOARD(PT4+DICE2)_BS<2 %C _imp_current_line = 565; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 565 "regression-compile-tmp/gammon.imp" if ((((((int)(PT4)) + (DICE2))) >= (25))) goto L_00fc; #line 565 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(PT4)) + (DICE2))].BS) >= (2))) goto L_00fc; // 566 %THENSTART // 567 MTSTMOV(PT4,DICE2,BARPT4); M4=1 _imp_current_line = 567; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 567 "regression-compile-tmp/gammon.imp" MTSTMOV(PT4, DICE2, &BARPT4); _imp_current_line = 567; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 567 "regression-compile-tmp/gammon.imp" M4 = 1; // 568 GBRD _imp_current_line = 568; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 568 "regression-compile-tmp/gammon.imp" GBRD(); // 569 CLTSTMOV(PT4,DICE2,BARPT4) _imp_current_line = 569; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 569 "regression-compile-tmp/gammon.imp" CLTSTMOV(PT4, DICE2, &BARPT4); // 570 %FINISH _imp_current_line = 570; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 570 "regression-compile-tmp/gammon.imp" L_00fc:; // 571 CYC4: %REPEAT _imp_current_line = 571; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 571 "regression-compile-tmp/gammon.imp" U_100d:; _imp_current_line = 571; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 571 "regression-compile-tmp/gammon.imp" goto L_00f7; #line 571 "regression-compile-tmp/gammon.imp" L_00f8:; // 572 %IF M4=0 %THEN GBRD %AND BSTVAL=X'80000000' _imp_current_line = 572; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 572 "regression-compile-tmp/gammon.imp" if (((M4) != (0))) goto L_00fd; #line 572 "regression-compile-tmp/gammon.imp" GBRD(); #line 572 "regression-compile-tmp/gammon.imp" BSTVAL = (-2147483648); #line 572 "regression-compile-tmp/gammon.imp" L_00fd:; // 573 CLTSTMOV(PT3,DICE1,BARPT3) _imp_current_line = 573; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 573 "regression-compile-tmp/gammon.imp" CLTSTMOV(PT3, DICE1, &BARPT3); // 574 %FINISH _imp_current_line = 574; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 574 "regression-compile-tmp/gammon.imp" L_00f5:; // 575 CYC3: %REPEAT _imp_current_line = 575; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 575 "regression-compile-tmp/gammon.imp" U_100c:; _imp_current_line = 575; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 575 "regression-compile-tmp/gammon.imp" goto L_00f0; #line 575 "regression-compile-tmp/gammon.imp" L_00f1:; // 576 %IF M3=0 %THEN GBRD %AND BSTVAL=X'80000000' _imp_current_line = 576; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 576 "regression-compile-tmp/gammon.imp" if (((M3) != (0))) goto L_00fe; #line 576 "regression-compile-tmp/gammon.imp" GBRD(); #line 576 "regression-compile-tmp/gammon.imp" BSTVAL = (-2147483648); #line 576 "regression-compile-tmp/gammon.imp" L_00fe:; // 577 %FINISHELSE GBRD _imp_current_line = 577; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 577 "regression-compile-tmp/gammon.imp" goto L_00ff; #line 577 "regression-compile-tmp/gammon.imp" L_00ee:; #line 577 "regression-compile-tmp/gammon.imp" GBRD(); #line 577 "regression-compile-tmp/gammon.imp" L_00ff:; // 578 CLTSTMOV(PT2,DICE2,BARPT2) _imp_current_line = 578; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 578 "regression-compile-tmp/gammon.imp" CLTSTMOV(PT2, DICE2, &BARPT2); // 579 %FINISH _imp_current_line = 579; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 579 "regression-compile-tmp/gammon.imp" L_00ed:; // 580 CYC2: %REPEAT _imp_current_line = 580; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 580 "regression-compile-tmp/gammon.imp" U_100b:; _imp_current_line = 580; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 580 "regression-compile-tmp/gammon.imp" goto L_00e8; #line 580 "regression-compile-tmp/gammon.imp" L_00e9:; // 581 %IF M2=0 %THEN GBRD %AND BSTVAL=X'80000000' _imp_current_line = 581; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 581 "regression-compile-tmp/gammon.imp" if (((M2) != (0))) goto L_0100; #line 581 "regression-compile-tmp/gammon.imp" GBRD(); #line 581 "regression-compile-tmp/gammon.imp" BSTVAL = (-2147483648); #line 581 "regression-compile-tmp/gammon.imp" L_0100:; // 582 CLTSTMOV(PT1,DICE1,BARPT1) _imp_current_line = 582; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 582 "regression-compile-tmp/gammon.imp" CLTSTMOV(PT1, DICE1, &BARPT1); // 583 %FINISH _imp_current_line = 583; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 583 "regression-compile-tmp/gammon.imp" L_00e4:; // 584 %EXITIF BARFL=1 _imp_current_line = 584; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 584 "regression-compile-tmp/gammon.imp" if (((BARFL) != (1))) goto L_0101; #line 584 "regression-compile-tmp/gammon.imp" goto L_00e0; #line 584 "regression-compile-tmp/gammon.imp" L_0101:; // 585 CYC1: %REPEAT _imp_current_line = 585; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 585 "regression-compile-tmp/gammon.imp" U_100a:; _imp_current_line = 585; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 585 "regression-compile-tmp/gammon.imp" goto L_00df; #line 585 "regression-compile-tmp/gammon.imp" L_00e0:; // 586 %EXITIF DICE1=DICE2 _imp_current_line = 586; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 586 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_0102; #line 586 "regression-compile-tmp/gammon.imp" goto L_00db; #line 586 "regression-compile-tmp/gammon.imp" L_0102:; // 587 %REPEAT _imp_current_line = 587; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 587 "regression-compile-tmp/gammon.imp" goto L_00da; #line 587 "regression-compile-tmp/gammon.imp" L_00db:; // 588 %IF M1=1 %THEN MMOVE(BSTPT1,BSTMOV1) _imp_current_line = 588; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 588 "regression-compile-tmp/gammon.imp" if (((M1) != (1))) goto L_0103; #line 588 "regression-compile-tmp/gammon.imp" MMOVE(BSTPT1, BSTMOV1); #line 588 "regression-compile-tmp/gammon.imp" L_0103:; // 589 %IF M2=1 %THEN MMOVE(BSTPT2,BSTMOV2) _imp_current_line = 589; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 589 "regression-compile-tmp/gammon.imp" if (((M2) != (1))) goto L_0104; #line 589 "regression-compile-tmp/gammon.imp" MMOVE(BSTPT2, BSTMOV2); #line 589 "regression-compile-tmp/gammon.imp" L_0104:; // 590 %IF DICE1=DICE2 %THENSTART _imp_current_line = 590; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 590 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_0105; // 591 %IF M3=1 %THEN MMOVE(BSTPT3,BSTMOV1) _imp_current_line = 591; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 591 "regression-compile-tmp/gammon.imp" if (((M3) != (1))) goto L_0106; #line 591 "regression-compile-tmp/gammon.imp" MMOVE(BSTPT3, BSTMOV1); #line 591 "regression-compile-tmp/gammon.imp" L_0106:; // 592 %IF M4=1 %THEN MMOVE(BSTPT4,BSTMOV2) _imp_current_line = 592; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 592 "regression-compile-tmp/gammon.imp" if (((M4) != (1))) goto L_0107; #line 592 "regression-compile-tmp/gammon.imp" MMOVE(BSTPT4, BSTMOV2); #line 592 "regression-compile-tmp/gammon.imp" L_0107:; // 593 %FINISH _imp_current_line = 593; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 593 "regression-compile-tmp/gammon.imp" L_0105:; // 594 DONE: %IF WBOFF=15 %THEN PRINTSTRING("yeah") %AND NEWLINE %ANDEXIT _imp_current_line = 594; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 594 "regression-compile-tmp/gammon.imp" U_1009:; _imp_current_line = 594; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 594 "regression-compile-tmp/gammon.imp" if (((WBOFF) != (15))) goto L_0108; #line 594 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("yeah")); #line 594 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 594 "regression-compile-tmp/gammon.imp" goto L_00cb; #line 594 "regression-compile-tmp/gammon.imp" L_0108:; // 595 PRINTSTATE; DOBLACK _imp_current_line = 595; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 595 "regression-compile-tmp/gammon.imp" PRINTSTATE(); _imp_current_line = 595; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 595 "regression-compile-tmp/gammon.imp" DOBLACK(); // 596 %IF BBOFF=15 %THEN PRINTSTRING("pity") %AND NEWLINE %ANDEXIT _imp_current_line = 596; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 596 "regression-compile-tmp/gammon.imp" if (((BBOFF) != (15))) goto L_0109; #line 596 "regression-compile-tmp/gammon.imp" _imp_PRINTSTRING(_imp_str_literal("pity")); #line 596 "regression-compile-tmp/gammon.imp" _imp_NEWLINE(); #line 596 "regression-compile-tmp/gammon.imp" goto L_00cb; #line 596 "regression-compile-tmp/gammon.imp" L_0109:; // 597 %IF RUNNING=1 %THEN -> STRT _imp_current_line = 597; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 597 "regression-compile-tmp/gammon.imp" if (((RUNNING) != (1))) goto L_010a; #line 597 "regression-compile-tmp/gammon.imp" goto U_1006; #line 597 "regression-compile-tmp/gammon.imp" L_010a:; // 598 GBRDVAL _imp_current_line = 598; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 598 "regression-compile-tmp/gammon.imp" GBRDVAL(); // 599 %IF BRDVAL=COMPVAL %THEN -> STRT _imp_current_line = 599; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 599 "regression-compile-tmp/gammon.imp" if (((BRDVAL) != (COMPVAL))) goto L_010b; #line 599 "regression-compile-tmp/gammon.imp" goto U_1006; #line 599 "regression-compile-tmp/gammon.imp" L_010b:; // 600 %IF COMPVAL= (BRDVAL))) goto L_010c; // 601 GOOD(BV1,W1); GOOD(BV2,W2); GOOD(BV3,W3); GOOD(BV4,W4) _imp_current_line = 601; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 601 "regression-compile-tmp/gammon.imp" GOOD(&BV1, &W1); _imp_current_line = 601; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 601 "regression-compile-tmp/gammon.imp" GOOD(&BV2, &W2); _imp_current_line = 601; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 601 "regression-compile-tmp/gammon.imp" GOOD(&BV3, &W3); _imp_current_line = 601; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 601 "regression-compile-tmp/gammon.imp" GOOD(&BV4, &W4); // 602 GOOD(BV5,W5); GOOD(BV6,W6); GOOD(BV7,W7); GOOD(BV8,W8) _imp_current_line = 602; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 602 "regression-compile-tmp/gammon.imp" GOOD(&BV5, &W5); _imp_current_line = 602; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 602 "regression-compile-tmp/gammon.imp" GOOD(&BV6, &W6); _imp_current_line = 602; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 602 "regression-compile-tmp/gammon.imp" GOOD(&BV7, &W7); _imp_current_line = 602; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 602 "regression-compile-tmp/gammon.imp" GOOD(&BV8, &W8); // 603 GOOD(BV9,W9); GOOD(BV10,W10) _imp_current_line = 603; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 603 "regression-compile-tmp/gammon.imp" GOOD(&BV9, &W9); _imp_current_line = 603; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 603 "regression-compile-tmp/gammon.imp" GOOD(&BV10, &W10); // 604 %FINISHELSESTART _imp_current_line = 604; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 604 "regression-compile-tmp/gammon.imp" goto L_010d; #line 604 "regression-compile-tmp/gammon.imp" L_010c:; // 605 BAD(BV1,W1); BAD(BV2,W2); BAD(BV3,W3); BAD(BV4,W4); BAD(BV5,W5) _imp_current_line = 605; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 605 "regression-compile-tmp/gammon.imp" BAD(&BV1, &W1); _imp_current_line = 605; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 605 "regression-compile-tmp/gammon.imp" BAD(&BV2, &W2); _imp_current_line = 605; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 605 "regression-compile-tmp/gammon.imp" BAD(&BV3, &W3); _imp_current_line = 605; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 605 "regression-compile-tmp/gammon.imp" BAD(&BV4, &W4); _imp_current_line = 605; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 605 "regression-compile-tmp/gammon.imp" BAD(&BV5, &W5); // 606 BAD(BV6,W6); BAD(BV7,W7); BAD(BV8,W8); BAD(BV9,W9); BAD(BV10,W10) _imp_current_line = 606; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 606 "regression-compile-tmp/gammon.imp" BAD(&BV6, &W6); _imp_current_line = 606; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 606 "regression-compile-tmp/gammon.imp" BAD(&BV7, &W7); _imp_current_line = 606; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 606 "regression-compile-tmp/gammon.imp" BAD(&BV8, &W8); _imp_current_line = 606; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 606 "regression-compile-tmp/gammon.imp" BAD(&BV9, &W9); _imp_current_line = 606; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 606 "regression-compile-tmp/gammon.imp" BAD(&BV10, &W10); // 607 %FINISH _imp_current_line = 607; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 607 "regression-compile-tmp/gammon.imp" L_010d:; // 608 COMPVAL=BRDVAL; -> STRT _imp_current_line = 608; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 608 "regression-compile-tmp/gammon.imp" COMPVAL = BRDVAL; _imp_current_line = 608; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 608 "regression-compile-tmp/gammon.imp" goto U_1006; // 609 RUN: %IF DICE2>DICE1 %THENSTART _imp_current_line = 609; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 609 "regression-compile-tmp/gammon.imp" U_1008:; _imp_current_line = 609; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 609 "regression-compile-tmp/gammon.imp" if (((DICE2) <= (DICE1))) goto L_010e; // 610 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP _imp_current_line = 610; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 610 "regression-compile-tmp/gammon.imp" TEMP = DICE2; _imp_current_line = 610; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 610 "regression-compile-tmp/gammon.imp" DICE2 = DICE1; _imp_current_line = 610; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 610 "regression-compile-tmp/gammon.imp" DICE1 = TEMP; // 611 %FINISH _imp_current_line = 611; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 611 "regression-compile-tmp/gammon.imp" L_010e:; // 612 TEMP=0 _imp_current_line = 612; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 612 "regression-compile-tmp/gammon.imp" TEMP = 0; // 613 %CYCLE I=1,1,18 _imp_current_line = 613; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 613 "regression-compile-tmp/gammon.imp" I = 0; if ((((18)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 18"); L_010f:; if (I == 18) goto L_0110; I += 1; // 614 %IF BOARD(I)_WS>0 %THENSTART _imp_current_line = 614; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 614 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (0))) goto L_0112; // 615 MMOVE(I,DICE1); TEMP=1 _imp_current_line = 615; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 615 "regression-compile-tmp/gammon.imp" MMOVE(I, DICE1); _imp_current_line = 615; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 615 "regression-compile-tmp/gammon.imp" TEMP = 1; // 616 %CYCLE J=I,1,18 _imp_current_line = 616; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 616 "regression-compile-tmp/gammon.imp" J = (((int)(I)) - (1)); if ((((18)-(I)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = I, 1, 18"); L_0113:; if (J == 18) goto L_0114; J += 1; // 617 %IF BOARD(J)_WS>0 %THENSTART _imp_current_line = 617; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 617 "regression-compile-tmp/gammon.imp" if (((BOARD[J].WS) <= (0))) goto L_0116; // 618 %IF DICE1#DICE2 %THEN MMOVE(J,DICE2) %C _imp_current_line = 618; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 618 "regression-compile-tmp/gammon.imp" if (((DICE1) == (DICE2))) goto L_0117; #line 618 "regression-compile-tmp/gammon.imp" MMOVE(J, DICE2); #line 618 "regression-compile-tmp/gammon.imp" goto L_0118; #line 618 "regression-compile-tmp/gammon.imp" L_0117:; #line 618 "regression-compile-tmp/gammon.imp" MMOVE(J, DICE1); #line 618 "regression-compile-tmp/gammon.imp" L_0118:; // 619 %ELSE MMOVE(J,DICE1); TEMP=2 _imp_current_line = 619; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 619 "regression-compile-tmp/gammon.imp" TEMP = 2; // 620 %IF DICE1=DICE2 %THENSTART _imp_current_line = 620; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 620 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_0119; // 621 %CYCLE G=J,1,18 _imp_current_line = 621; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 621 "regression-compile-tmp/gammon.imp" G = (((int)(J)) - (1)); if ((((18)-(J)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle G = J, 1, 18"); L_011a:; if (G == 18) goto L_011b; G += 1; // 622 %IF BOARD(G)_WS>0 %THENSTART _imp_current_line = 622; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 622 "regression-compile-tmp/gammon.imp" if (((BOARD[G].WS) <= (0))) goto L_011d; // 623 MMOVE(G,DICE1); TEMP=3 _imp_current_line = 623; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 623 "regression-compile-tmp/gammon.imp" MMOVE(G, DICE1); _imp_current_line = 623; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 623 "regression-compile-tmp/gammon.imp" TEMP = 3; // 624 %CYCLE H=G,1,18 _imp_current_line = 624; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 624 "regression-compile-tmp/gammon.imp" H = (((int)(G)) - (1)); if ((((18)-(G)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle H = G, 1, 18"); L_011e:; if (H == 18) goto L_011f; H += 1; // 625 %IF BOARD(H)_WS>0 %THENSTART _imp_current_line = 625; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 625 "regression-compile-tmp/gammon.imp" if (((BOARD[H].WS) <= (0))) goto L_0121; // 626 MMOVE(H,DICE2); TEMP=4 _imp_current_line = 626; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 626 "regression-compile-tmp/gammon.imp" MMOVE(H, DICE2); _imp_current_line = 626; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 626 "regression-compile-tmp/gammon.imp" TEMP = 4; // 627 %EXIT _imp_current_line = 627; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 627 "regression-compile-tmp/gammon.imp" goto L_011f; // 628 %FINISH _imp_current_line = 628; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 628 "regression-compile-tmp/gammon.imp" L_0121:; // 629 %REPEAT _imp_current_line = 629; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 629 "regression-compile-tmp/gammon.imp" goto L_011e; #line 629 "regression-compile-tmp/gammon.imp" L_011f:; // 630 %EXIT _imp_current_line = 630; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 630 "regression-compile-tmp/gammon.imp" goto L_011b; // 631 %FINISH _imp_current_line = 631; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 631 "regression-compile-tmp/gammon.imp" L_011d:; // 632 %REPEAT _imp_current_line = 632; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 632 "regression-compile-tmp/gammon.imp" goto L_011a; #line 632 "regression-compile-tmp/gammon.imp" L_011b:; // 633 %FINISH _imp_current_line = 633; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 633 "regression-compile-tmp/gammon.imp" L_0119:; // 634 %EXIT _imp_current_line = 634; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 634 "regression-compile-tmp/gammon.imp" goto L_0114; // 635 %FINISH _imp_current_line = 635; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 635 "regression-compile-tmp/gammon.imp" L_0116:; // 636 %REPEAT _imp_current_line = 636; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 636 "regression-compile-tmp/gammon.imp" goto L_0113; #line 636 "regression-compile-tmp/gammon.imp" L_0114:; // 637 %EXIT _imp_current_line = 637; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 637 "regression-compile-tmp/gammon.imp" goto L_0110; // 638 %FINISH _imp_current_line = 638; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 638 "regression-compile-tmp/gammon.imp" L_0112:; // 639 %REPEAT _imp_current_line = 639; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 639 "regression-compile-tmp/gammon.imp" goto L_010f; #line 639 "regression-compile-tmp/gammon.imp" L_0110:; // 640 %IF DICE1=DICE2 %AND TEMP=4 %THEN -> DONE _imp_current_line = 640; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 640 "regression-compile-tmp/gammon.imp" if (((DICE1) != (DICE2))) goto L_0122; #line 640 "regression-compile-tmp/gammon.imp" if (((TEMP) != (4))) goto L_0122; #line 640 "regression-compile-tmp/gammon.imp" goto U_1009; #line 640 "regression-compile-tmp/gammon.imp" L_0122:; // 641 %IF DICE1#DICE2 %AND TEMP=2 %THEN -> DONE _imp_current_line = 641; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 641 "regression-compile-tmp/gammon.imp" if (((DICE1) == (DICE2))) goto L_0123; #line 641 "regression-compile-tmp/gammon.imp" if (((TEMP) != (2))) goto L_0123; #line 641 "regression-compile-tmp/gammon.imp" goto U_1009; #line 641 "regression-compile-tmp/gammon.imp" L_0123:; // 642 %IF DICE1#DICE2 %THEN DICE1=0 %AND -> BEAROFF _imp_current_line = 642; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 642 "regression-compile-tmp/gammon.imp" if (((DICE1) == (DICE2))) goto L_0124; #line 642 "regression-compile-tmp/gammon.imp" DICE1 = 0; #line 642 "regression-compile-tmp/gammon.imp" goto U_1007; #line 642 "regression-compile-tmp/gammon.imp" L_0124:; // 643 DICE1=0 _imp_current_line = 643; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 643 "regression-compile-tmp/gammon.imp" DICE1 = 0; // 644 %IF TEMP>1 %THEN DICE2=0 _imp_current_line = 644; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 644 "regression-compile-tmp/gammon.imp" if (((TEMP) <= (1))) goto L_0125; #line 644 "regression-compile-tmp/gammon.imp" DICE2 = 0; #line 644 "regression-compile-tmp/gammon.imp" L_0125:; // 645 %IF TEMP>2 %THEN DICE3=0 _imp_current_line = 645; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 645 "regression-compile-tmp/gammon.imp" if (((TEMP) <= (2))) goto L_0126; #line 645 "regression-compile-tmp/gammon.imp" DICE3 = 0; #line 645 "regression-compile-tmp/gammon.imp" L_0126:; // 646 BEAROFF: RUNNING=1 _imp_current_line = 646; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 646 "regression-compile-tmp/gammon.imp" U_1007:; _imp_current_line = 646; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 646 "regression-compile-tmp/gammon.imp" RUNNING = 1; // 647 TEMP=WBOFF _imp_current_line = 647; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 647 "regression-compile-tmp/gammon.imp" TEMP = WBOFF; // 648 %CYCLE M=24,-1,19 _imp_current_line = 648; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 648 "regression-compile-tmp/gammon.imp" M = 25; if ((((19)-(24)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle M = 24, (-1), 19"); L_0127:; if (M == 19) goto L_0128; M += (-1); // 649 %IF BOARD(M)_BS>0 %THEN -> SAFETY _imp_current_line = 649; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 649 "regression-compile-tmp/gammon.imp" if (((BOARD[M].BS) <= (0))) goto L_012a; #line 649 "regression-compile-tmp/gammon.imp" goto U_100e; #line 649 "regression-compile-tmp/gammon.imp" L_012a:; // 650 TEMP=TEMP+BOARD(M)_WS _imp_current_line = 650; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 650 "regression-compile-tmp/gammon.imp" TEMP = (((int)(TEMP)) + (BOARD[M].WS)); // 651 %IF TEMP=15 %THENEXIT _imp_current_line = 651; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 651 "regression-compile-tmp/gammon.imp" if (((TEMP) != (15))) goto L_012b; #line 651 "regression-compile-tmp/gammon.imp" goto L_0128; #line 651 "regression-compile-tmp/gammon.imp" L_012b:; // 652 %REPEAT _imp_current_line = 652; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 652 "regression-compile-tmp/gammon.imp" goto L_0127; #line 652 "regression-compile-tmp/gammon.imp" L_0128:; // 653 %IF DICE1>DICE2 %THENSTART _imp_current_line = 653; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 653 "regression-compile-tmp/gammon.imp" if (((DICE1) <= (DICE2))) goto L_012c; // 654 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP _imp_current_line = 654; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 654 "regression-compile-tmp/gammon.imp" TEMP = DICE2; _imp_current_line = 654; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 654 "regression-compile-tmp/gammon.imp" DICE2 = DICE1; _imp_current_line = 654; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 654 "regression-compile-tmp/gammon.imp" DICE1 = TEMP; // 655 %FINISH _imp_current_line = 655; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 655 "regression-compile-tmp/gammon.imp" L_012c:; // 656 %IF DICE1#0 %THENSTART _imp_current_line = 656; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 656 "regression-compile-tmp/gammon.imp" if (((DICE1) == (0))) goto L_012d; // 657 %IF BOARD(25-DICE1)_WS>0 %THENSTART _imp_current_line = 657; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 657 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)(25)) - (DICE1))].WS) <= (0))) goto L_012e; // 658 BOARD(25-DICE1)_WS=BOARD(25-DICE1)_WS-1 _imp_current_line = 658; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 658 "regression-compile-tmp/gammon.imp" BOARD[(((int)(25)) - (DICE1))].WS = (((int)(BOARD[(((int)(25)) - (DICE1))].WS)) - (1)); // 659 WBOFF=WBOFF+1 _imp_current_line = 659; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 659 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); // 660 %FINISHELSESTART _imp_current_line = 660; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 660 "regression-compile-tmp/gammon.imp" goto L_012f; #line 660 "regression-compile-tmp/gammon.imp" L_012e:; // 661 %IF BOARD(25-DICE1+1)_WS>0 %THENSTART _imp_current_line = 661; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 661 "regression-compile-tmp/gammon.imp" if (((BOARD[(((int)((((int)(25)) - (DICE1)))) + (1))].WS) <= (0))) goto L_0130; // 662 BOARD(25-DICE1+1)_WS=BOARD(25-DICE1+1)_WS-1 _imp_current_line = 662; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 662 "regression-compile-tmp/gammon.imp" BOARD[(((int)((((int)(25)) - (DICE1)))) + (1))].WS = (((int)(BOARD[(((int)((((int)(25)) - (DICE1)))) + (1))].WS)) - (1)); // 663 WBOFF=WBOFF+1 _imp_current_line = 663; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 663 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); // 664 %FINISHELSESTART _imp_current_line = 664; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 664 "regression-compile-tmp/gammon.imp" goto L_0131; #line 664 "regression-compile-tmp/gammon.imp" L_0130:; // 665 %CYCLE M=19,1,25-DICE1 _imp_current_line = 665; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 665 "regression-compile-tmp/gammon.imp" {static int _initial, _increment, _final, _control; _initial = 19; _increment = 1; _final = (((int)(25)) - (DICE1)); M = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle M = 19, 1, (((int)(25)) - (DICE1))"); M -= _increment; _control -= _increment; L_0132:; if (M == _final) goto L_0133; M += _increment; _control += _increment; if (M != _control) _imp_signal(4,2,0,"Corrupt control variable M"); /* FOR loop control variable corrupted */ } // 666 %IF WBOFF<8 %THENSTART _imp_current_line = 666; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 666 "regression-compile-tmp/gammon.imp" if (((WBOFF) >= (8))) goto L_0135; // 667 %IF BOARD(M)_WS>2 %THEN MMOVE(M,DICE1) %AND -> SEC _imp_current_line = 667; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 667 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (2))) goto L_0136; #line 667 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE1); #line 667 "regression-compile-tmp/gammon.imp" goto U_100f; #line 667 "regression-compile-tmp/gammon.imp" L_0136:; // 668 %FINISHELSESTART _imp_current_line = 668; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 668 "regression-compile-tmp/gammon.imp" goto L_0137; #line 668 "regression-compile-tmp/gammon.imp" L_0135:; // 669 %IF BOARD(M)_WS>1 %THEN MMOVE(M,DICE1) %AND -> SEC _imp_current_line = 669; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 669 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (1))) goto L_0138; #line 669 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE1); #line 669 "regression-compile-tmp/gammon.imp" goto U_100f; #line 669 "regression-compile-tmp/gammon.imp" L_0138:; // 670 %FINISH _imp_current_line = 670; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 670 "regression-compile-tmp/gammon.imp" L_0137:; // 671 %REPEAT _imp_current_line = 671; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 671 "regression-compile-tmp/gammon.imp" goto L_0132; #line 671 "regression-compile-tmp/gammon.imp" L_0133:; // 672 %CYCLE M=19,1,24 _imp_current_line = 672; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 672 "regression-compile-tmp/gammon.imp" M = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle M = 19, 1, 24"); L_0139:; if (M == 24) goto L_013a; M += 1; // 673 %IF DICE2+M<25 %THENSTART _imp_current_line = 673; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 673 "regression-compile-tmp/gammon.imp" if ((((((int)(DICE2)) + (M))) >= (25))) goto L_013c; // 674 %IF BOARD(M)_WS>0 %THEN MMOVE(M,DICE1) %ANDEXIT _imp_current_line = 674; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 674 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (0))) goto L_013d; #line 674 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE1); #line 674 "regression-compile-tmp/gammon.imp" goto L_013a; #line 674 "regression-compile-tmp/gammon.imp" L_013d:; // 675 %FINISH _imp_current_line = 675; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 675 "regression-compile-tmp/gammon.imp" L_013c:; // 676 %IF M+DICE2=25 %THENSTART _imp_current_line = 676; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 676 "regression-compile-tmp/gammon.imp" if ((((((int)(M)) + (DICE2))) != (25))) goto L_013e; // 677 %IF BOARD(M)_WS>1 %THEN MMOVE(M,DICE1) %ANDEXIT _imp_current_line = 677; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 677 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (1))) goto L_013f; #line 677 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE1); #line 677 "regression-compile-tmp/gammon.imp" goto L_013a; #line 677 "regression-compile-tmp/gammon.imp" L_013f:; // 678 %FINISH _imp_current_line = 678; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 678 "regression-compile-tmp/gammon.imp" L_013e:; // 679 %IF DICE2+M>25 %THENSTART _imp_current_line = 679; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 679 "regression-compile-tmp/gammon.imp" if ((((((int)(DICE2)) + (M))) <= (25))) goto L_0140; // 680 %IF BOARD(M)_WS>0 %THENSTART _imp_current_line = 680; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 680 "regression-compile-tmp/gammon.imp" if (((BOARD[M].WS) <= (0))) goto L_0141; // 681 %IF M+DICE1<25 %THEN MMOVE(M,DICE1) %ELSE %C _imp_current_line = 681; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 681 "regression-compile-tmp/gammon.imp" if ((((((int)(M)) + (DICE1))) >= (25))) goto L_0142; #line 681 "regression-compile-tmp/gammon.imp" MMOVE(M, DICE1); #line 681 "regression-compile-tmp/gammon.imp" goto L_0143; #line 681 "regression-compile-tmp/gammon.imp" L_0142:; #line 681 "regression-compile-tmp/gammon.imp" WBOFF = (((int)(WBOFF)) + (1)); #line 681 "regression-compile-tmp/gammon.imp" BOARD[M].WS = (((int)(BOARD[M].WS)) - (1)); #line 681 "regression-compile-tmp/gammon.imp" L_0143:; // 682 WBOFF=WBOFF+1 %AND BOARD(M)_WS=BOARD(M)_WS-1 // 683 %EXIT _imp_current_line = 683; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 683 "regression-compile-tmp/gammon.imp" goto L_013a; // 684 %FINISH _imp_current_line = 684; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 684 "regression-compile-tmp/gammon.imp" L_0141:; // 685 %FINISH _imp_current_line = 685; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 685 "regression-compile-tmp/gammon.imp" L_0140:; // 686 %REPEAT _imp_current_line = 686; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 686 "regression-compile-tmp/gammon.imp" goto L_0139; #line 686 "regression-compile-tmp/gammon.imp" L_013a:; // 687 %FINISH _imp_current_line = 687; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 687 "regression-compile-tmp/gammon.imp" L_0131:; // 688 %FINISH _imp_current_line = 688; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 688 "regression-compile-tmp/gammon.imp" L_012f:; // 689 %FINISH _imp_current_line = 689; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 689 "regression-compile-tmp/gammon.imp" L_012d:; // 690 SEC: DOBEST(DICE2) _imp_current_line = 690; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 690 "regression-compile-tmp/gammon.imp" U_100f:; _imp_current_line = 690; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 690 "regression-compile-tmp/gammon.imp" DOBEST(DICE2); // 691 %IF DICE4=0 %THEN ->DONE _imp_current_line = 691; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 691 "regression-compile-tmp/gammon.imp" if (((DICE4) != (0))) goto L_0144; #line 691 "regression-compile-tmp/gammon.imp" goto U_1009; #line 691 "regression-compile-tmp/gammon.imp" L_0144:; // 692 DOBEST(DICE3) _imp_current_line = 692; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 692 "regression-compile-tmp/gammon.imp" DOBEST(DICE3); // 693 DOBEST(DICE4) _imp_current_line = 693; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 693 "regression-compile-tmp/gammon.imp" DOBEST(DICE4); // 694 ->DONE _imp_current_line = 694; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 694 "regression-compile-tmp/gammon.imp" goto U_1009; // 695 SAFETY: %IF DICE4#0 %THENSTART _imp_current_line = 695; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 695 "regression-compile-tmp/gammon.imp" U_100e:; _imp_current_line = 695; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 695 "regression-compile-tmp/gammon.imp" if (((DICE4) == (0))) goto L_0145; // 696 %IF DICE3=0 %THEN DICE1=DICE4 %AND DICE4=0 %ELSESTART _imp_current_line = 696; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 696 "regression-compile-tmp/gammon.imp" if (((DICE3) != (0))) goto L_0146; #line 696 "regression-compile-tmp/gammon.imp" DICE1 = DICE4; #line 696 "regression-compile-tmp/gammon.imp" DICE4 = 0; #line 696 "regression-compile-tmp/gammon.imp" goto L_0147; #line 696 "regression-compile-tmp/gammon.imp" L_0146:; // 697 %IF DICE2=0 %THENSTART _imp_current_line = 697; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 697 "regression-compile-tmp/gammon.imp" if (((DICE2) != (0))) goto L_0148; // 698 DICE1=DICE4; DICE4=0; DICE2=DICE3; DICE3=0 _imp_current_line = 698; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 698 "regression-compile-tmp/gammon.imp" DICE1 = DICE4; _imp_current_line = 698; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 698 "regression-compile-tmp/gammon.imp" DICE4 = 0; _imp_current_line = 698; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 698 "regression-compile-tmp/gammon.imp" DICE2 = DICE3; _imp_current_line = 698; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 698 "regression-compile-tmp/gammon.imp" DICE3 = 0; // 699 %FINISHELSESTART _imp_current_line = 699; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 699 "regression-compile-tmp/gammon.imp" goto L_0149; #line 699 "regression-compile-tmp/gammon.imp" L_0148:; // 700 %IF DICE1=0 %THEN DICE1=DICE4 %AND DICE4=0 _imp_current_line = 700; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 700 "regression-compile-tmp/gammon.imp" if (((DICE1) != (0))) goto L_014a; #line 700 "regression-compile-tmp/gammon.imp" DICE1 = DICE4; #line 700 "regression-compile-tmp/gammon.imp" DICE4 = 0; #line 700 "regression-compile-tmp/gammon.imp" L_014a:; // 701 %FINISH _imp_current_line = 701; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 701 "regression-compile-tmp/gammon.imp" L_0149:; // 702 %FINISH _imp_current_line = 702; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 702 "regression-compile-tmp/gammon.imp" L_0147:; // 703 %FINISHELSESTART _imp_current_line = 703; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 703 "regression-compile-tmp/gammon.imp" goto L_014b; #line 703 "regression-compile-tmp/gammon.imp" L_0145:; // 704 %IF DICE1=0 %THEN DICE1=DICE2 %AND DICE2=0 _imp_current_line = 704; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 704 "regression-compile-tmp/gammon.imp" if (((DICE1) != (0))) goto L_014c; #line 704 "regression-compile-tmp/gammon.imp" DICE1 = DICE2; #line 704 "regression-compile-tmp/gammon.imp" DICE2 = 0; #line 704 "regression-compile-tmp/gammon.imp" L_014c:; // 705 %FINISH _imp_current_line = 705; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 705 "regression-compile-tmp/gammon.imp" L_014b:; // 706 %IF DICE1= (DICE2))) goto L_014d; // 707 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP _imp_current_line = 707; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 707 "regression-compile-tmp/gammon.imp" TEMP = DICE2; _imp_current_line = 707; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 707 "regression-compile-tmp/gammon.imp" DICE2 = DICE1; _imp_current_line = 707; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 707 "regression-compile-tmp/gammon.imp" DICE1 = TEMP; // 708 %FINISH _imp_current_line = 708; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 708 "regression-compile-tmp/gammon.imp" L_014d:; // 709 %CYCLE K=35,3,56 _imp_current_line = 709; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 709 "regression-compile-tmp/gammon.imp" K = 32; if ((((56)-(35)) % (3)) != 0) _imp_signal(5,1,0,"Illegal cycle K = 35, 3, 56"); L_014e:; if (K == 56) goto L_014f; K += 3; // 710 %CYCLE I=19,1,24 _imp_current_line = 710; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 710 "regression-compile-tmp/gammon.imp" I = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 19, 1, 24"); L_0151:; if (I == 24) goto L_0152; I += 1; // 711 %IF BOARD(I)_WS>0 %THENSTART _imp_current_line = 711; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 711 "regression-compile-tmp/gammon.imp" if (((BOARD[I].WS) <= (0))) goto L_0154; // 712 NOMOV=0; MTSTBOFF(I,DICE1) _imp_current_line = 712; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 712 "regression-compile-tmp/gammon.imp" NOMOV = 0; _imp_current_line = 712; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 712 "regression-compile-tmp/gammon.imp" MTSTBOFF(I, DICE1); // 713 %IF NOMOV=1 %THEN ->REP1 _imp_current_line = 713; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 713 "regression-compile-tmp/gammon.imp" if (((NOMOV) != (1))) goto L_0155; #line 713 "regression-compile-tmp/gammon.imp" goto U_1010; #line 713 "regression-compile-tmp/gammon.imp" L_0155:; // 714 %IF DICE2=0 %THENSTART _imp_current_line = 714; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 714 "regression-compile-tmp/gammon.imp" if (((DICE2) != (0))) goto L_0156; // 715 %IF WSINCLDONE _imp_current_line = 715; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 715 "regression-compile-tmp/gammon.imp" if (((WSINCL()) >= (K))) goto L_0157; #line 715 "regression-compile-tmp/gammon.imp" goto U_1009; #line 715 "regression-compile-tmp/gammon.imp" L_0157:; // 716 %FINISHELSESTART _imp_current_line = 716; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 716 "regression-compile-tmp/gammon.imp" goto L_0158; #line 716 "regression-compile-tmp/gammon.imp" L_0156:; // 717 %CYCLE J=19,1,24 _imp_current_line = 717; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 717 "regression-compile-tmp/gammon.imp" J = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 19, 1, 24"); L_0159:; if (J == 24) goto L_015a; J += 1; // 718 %IF BOARD(J)_WS>0 %THENSTART _imp_current_line = 718; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 718 "regression-compile-tmp/gammon.imp" if (((BOARD[J].WS) <= (0))) goto L_015c; // 719 NOMOV=0; MTSTBOFF(J,DICE2) _imp_current_line = 719; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 719 "regression-compile-tmp/gammon.imp" NOMOV = 0; _imp_current_line = 719; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 719 "regression-compile-tmp/gammon.imp" MTSTBOFF(J, DICE2); // 720 %IF NOMOV=1 %THEN ->REP2 _imp_current_line = 720; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 720 "regression-compile-tmp/gammon.imp" if (((NOMOV) != (1))) goto L_015d; #line 720 "regression-compile-tmp/gammon.imp" goto U_1011; #line 720 "regression-compile-tmp/gammon.imp" L_015d:; // 721 %IF DICE3=0 %THENSTART _imp_current_line = 721; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 721 "regression-compile-tmp/gammon.imp" if (((DICE3) != (0))) goto L_015e; // 722 %IF WSINCLDONE _imp_current_line = 722; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 722 "regression-compile-tmp/gammon.imp" if (((WSINCL()) >= (K))) goto L_015f; #line 722 "regression-compile-tmp/gammon.imp" goto U_1009; #line 722 "regression-compile-tmp/gammon.imp" L_015f:; // 723 %FINISHELSESTART _imp_current_line = 723; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 723 "regression-compile-tmp/gammon.imp" goto L_0160; #line 723 "regression-compile-tmp/gammon.imp" L_015e:; // 724 %CYCLE G=19,1,24 _imp_current_line = 724; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 724 "regression-compile-tmp/gammon.imp" G = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle G = 19, 1, 24"); L_0161:; if (G == 24) goto L_0162; G += 1; // 725 %IF BOARD(G)_WS>0 %THENSTART _imp_current_line = 725; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 725 "regression-compile-tmp/gammon.imp" if (((BOARD[G].WS) <= (0))) goto L_0164; // 726 NOMOV=0; MTSTBOFF(G,DICE3) _imp_current_line = 726; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 726 "regression-compile-tmp/gammon.imp" NOMOV = 0; _imp_current_line = 726; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 726 "regression-compile-tmp/gammon.imp" MTSTBOFF(G, DICE3); // 727 %IF NOMOV=1 %THEN ->REP3 _imp_current_line = 727; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 727 "regression-compile-tmp/gammon.imp" if (((NOMOV) != (1))) goto L_0165; #line 727 "regression-compile-tmp/gammon.imp" goto U_1012; #line 727 "regression-compile-tmp/gammon.imp" L_0165:; // 728 %IF DICE4=0 %THENSTART _imp_current_line = 728; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 728 "regression-compile-tmp/gammon.imp" if (((DICE4) != (0))) goto L_0166; // 729 %IF WSINCLDONE _imp_current_line = 729; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 729 "regression-compile-tmp/gammon.imp" if (((WSINCL()) >= (K))) goto L_0167; #line 729 "regression-compile-tmp/gammon.imp" goto U_1009; #line 729 "regression-compile-tmp/gammon.imp" L_0167:; // 730 %FINISHELSESTART _imp_current_line = 730; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 730 "regression-compile-tmp/gammon.imp" goto L_0168; #line 730 "regression-compile-tmp/gammon.imp" L_0166:; // 731 %CYCLE H=19,1,24 _imp_current_line = 731; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 731 "regression-compile-tmp/gammon.imp" H = 18; if ((((24)-(19)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle H = 19, 1, 24"); L_0169:; if (H == 24) goto L_016a; H += 1; // 732 %IF BOARD(H)_WS>0 %THENSTART _imp_current_line = 732; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 732 "regression-compile-tmp/gammon.imp" if (((BOARD[H].WS) <= (0))) goto L_016c; // 733 NOMOV=0; MTSTBOFF(H,DICE4) _imp_current_line = 733; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 733 "regression-compile-tmp/gammon.imp" NOMOV = 0; _imp_current_line = 733; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 733 "regression-compile-tmp/gammon.imp" MTSTBOFF(H, DICE4); // 734 %IF NOMOV=1 %THEN ->REP4 _imp_current_line = 734; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 734 "regression-compile-tmp/gammon.imp" if (((NOMOV) != (1))) goto L_016d; #line 734 "regression-compile-tmp/gammon.imp" goto U_1013; #line 734 "regression-compile-tmp/gammon.imp" L_016d:; // 735 %IF WSINCLDONE _imp_current_line = 735; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 735 "regression-compile-tmp/gammon.imp" if (((WSINCL()) >= (K))) goto L_016e; #line 735 "regression-compile-tmp/gammon.imp" goto U_1009; #line 735 "regression-compile-tmp/gammon.imp" L_016e:; // 736 CLTSTBOFF(H,DICE4) _imp_current_line = 736; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 736 "regression-compile-tmp/gammon.imp" CLTSTBOFF(H, DICE4); // 737 %FINISH _imp_current_line = 737; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 737 "regression-compile-tmp/gammon.imp" L_016c:; // 738 REP4: %REPEAT _imp_current_line = 738; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 738 "regression-compile-tmp/gammon.imp" U_1013:; _imp_current_line = 738; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 738 "regression-compile-tmp/gammon.imp" goto L_0169; #line 738 "regression-compile-tmp/gammon.imp" L_016a:; // 739 %FINISH _imp_current_line = 739; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 739 "regression-compile-tmp/gammon.imp" L_0168:; // 740 CLTSTBOFF(G,DICE3) _imp_current_line = 740; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 740 "regression-compile-tmp/gammon.imp" CLTSTBOFF(G, DICE3); // 741 %FINISH _imp_current_line = 741; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 741 "regression-compile-tmp/gammon.imp" L_0164:; // 742 REP3: %REPEAT _imp_current_line = 742; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 742 "regression-compile-tmp/gammon.imp" U_1012:; _imp_current_line = 742; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 742 "regression-compile-tmp/gammon.imp" goto L_0161; #line 742 "regression-compile-tmp/gammon.imp" L_0162:; // 743 %FINISH _imp_current_line = 743; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 743 "regression-compile-tmp/gammon.imp" L_0160:; // 744 CLTSTBOFF(J,DICE2) _imp_current_line = 744; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 744 "regression-compile-tmp/gammon.imp" CLTSTBOFF(J, DICE2); // 745 %FINISH _imp_current_line = 745; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 745 "regression-compile-tmp/gammon.imp" L_015c:; // 746 REP2: %REPEAT _imp_current_line = 746; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 746 "regression-compile-tmp/gammon.imp" U_1011:; _imp_current_line = 746; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 746 "regression-compile-tmp/gammon.imp" goto L_0159; #line 746 "regression-compile-tmp/gammon.imp" L_015a:; // 747 %FINISH _imp_current_line = 747; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 747 "regression-compile-tmp/gammon.imp" L_0158:; // 748 CLTSTBOFF(I,DICE1) _imp_current_line = 748; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 748 "regression-compile-tmp/gammon.imp" CLTSTBOFF(I, DICE1); // 749 %FINISH _imp_current_line = 749; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 749 "regression-compile-tmp/gammon.imp" L_0154:; // 750 REP1: %REPEAT _imp_current_line = 750; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 750 "regression-compile-tmp/gammon.imp" U_1010:; _imp_current_line = 750; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 750 "regression-compile-tmp/gammon.imp" goto L_0151; #line 750 "regression-compile-tmp/gammon.imp" L_0152:; // 751 %REPEAT _imp_current_line = 751; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 751 "regression-compile-tmp/gammon.imp" goto L_014e; #line 751 "regression-compile-tmp/gammon.imp" L_014f:; // 752 %REPEAT _imp_current_line = 752; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 752 "regression-compile-tmp/gammon.imp" goto L_00ca; #line 752 "regression-compile-tmp/gammon.imp" L_00cb:; // 753 DUMPWTS _imp_current_line = 753; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 753 "regression-compile-tmp/gammon.imp" DUMPWTS(); // 754 %END _imp_current_line = 754; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 754 "regression-compile-tmp/gammon.imp" return; _imp_endofblock: ; } // End of block BACKGAMMON at level 1 // 755 // 756 %begin #line 756 "regression-compile-tmp/gammon.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 757 backgammon("") _imp_current_line = 757; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 757 "regression-compile-tmp/gammon.imp" BACKGAMMON(_imp_str_literal("")); // 758 %end _imp_current_line = 758; _imp_current_file = "regression-compile-tmp/gammon.imp"; #line 758 "regression-compile-tmp/gammon.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 // 759 // 760 %ENDOFFILE #line 760 "regression-compile-tmp/gammon.imp" // End of file