1 %EXTERNALROUTINE BACKGAMMON (%STRING(255) ST) O LINE 1 "regression-compile-tmp/gammon.imp" $ DEF BACKGAMMON (_BACKGAMMON) p1=V_00ad a/tf=7 b/format=0 c/ostate=23 type=0 () form=7 (routine) special=0 () linkage=3 (external) spec=0 indirect=0 unass=1 { START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} $ DEF ST p1=V_00ae a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=1} 2 %OWNINTEGER BBOFF,WBOFF,DICE1,DICE2,BARFL,BRDVAL,BSTVAL,COMPVAL O LINE 2 "regression-compile-tmp/gammon.imp" $ DEF BBOFF p1=V_00af a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF WBOFF p1=V_00b0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF DICE1 p1=V_00b1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF DICE2 p1=V_00b2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BARFL p1=V_00b3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BRDVAL p1=V_00b4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTVAL p1=V_00b5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF COMPVAL p1=V_00b6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 3 %OWNINTEGER M1,M2,M3,M4,V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,I,J,K,RUNNING O LINE 3 "regression-compile-tmp/gammon.imp" $ DEF M1 p1=V_00b7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF M2 p1=V_00b8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF M3 p1=V_00b9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF M4 p1=V_00ba a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V1 p1=V_00bb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V2 p1=V_00bc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V3 p1=V_00bd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V4 p1=V_00be a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V5 p1=V_00bf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V6 p1=V_00c0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V7 p1=V_00c1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V8 p1=V_00c2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V9 p1=V_00c3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF V10 p1=V_00c4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF I p1=V_00c5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF J p1=V_00c6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF K p1=V_00c7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF RUNNING p1=V_00c8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 4 %OWNINTEGER NOMOV,BARPT1,BARPT2,PT1,PT2,L,M,N,TEMP,BSTMOV1,BSTMOV2 O LINE 4 "regression-compile-tmp/gammon.imp" $ DEF NOMOV p1=V_00c9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BARPT1 p1=V_00ca a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BARPT2 p1=V_00cb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF PT1 p1=V_00cc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF PT2 p1=V_00cd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF L p1=V_00ce a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF M p1=V_00cf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF N p1=V_00d0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF TEMP p1=V_00d1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTMOV1 p1=V_00d2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTMOV2 p1=V_00d3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 5 %OWNINTEGER BSTPT1,BSTPT2,W1,W2,W3,W4,W5,W6,W7,W8,W9,W10 O LINE 5 "regression-compile-tmp/gammon.imp" $ DEF BSTPT1 p1=V_00d4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTPT2 p1=V_00d5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W1 p1=V_00d6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W2 p1=V_00d7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W3 p1=V_00d8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W4 p1=V_00d9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W5 p1=V_00da a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W6 p1=V_00db a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W7 p1=V_00dc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W8 p1=V_00dd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W9 p1=V_00de a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF W10 p1=V_00df a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 6 %OWNINTEGER SECOND,BV1,BV2,BV3,BV4,BV5,BV6,BV7,BV8,BV9,BV10 O LINE 6 "regression-compile-tmp/gammon.imp" $ DEF SECOND p1=V_00e0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV1 p1=V_00e1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV2 p1=V_00e2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV3 p1=V_00e3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV4 p1=V_00e4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV5 p1=V_00e5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV6 p1=V_00e6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV7 p1=V_00e7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV8 p1=V_00e8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV9 p1=V_00e9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BV10 p1=V_00ea a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 7 %CONSTINTEGERARRAY ODDS(1:12)=35,38,44,47,47,53,18,21,15,12,6,9 O LINE 7 "regression-compile-tmp/gammon.imp" N PUSHI #0x00000001 N PUSHI #0x0000000c b BOUNDS $ DEF ODDS p1=V_00eb a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 N PUSHI #0x00000023 A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x0000002c A INIT 1 N PUSHI #0x0000002f A INIT 1 N PUSHI #0x0000002f A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00000012 A INIT 1 N PUSHI #0x00000015 A INIT 1 N PUSHI #0x0000000f A INIT 1 N PUSHI #0x0000000c A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000009 A INIT 1 8 %RECORDFORMAT F(%INTEGER WS,BS) O LINE 8 "regression-compile-tmp/gammon.imp" $ DEF F p1=V_00ec a/tf=44 b/format=ec c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( RECORDFORMAT $ DEF WS p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF BS p1=V_0000 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) 9 %OWNRECORD(f)%ARRAY BOARD(0:25){(F)} O LINE 9 "regression-compile-tmp/gammon.imp" N PUSHI #0x00000000 N PUSHI #0x00000019 b BOUNDS $ DEF BOARD p1=V_00ed a/tf=4b b/format=ec c/ostate=121 type=4 (record) form=11 (array) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 26 10 %OWNINTEGER G,H,PT3,PT4,DICE3,DICE4,BSTPT3,BSTPT4,BARPT3,BARPT4 O LINE 10 "regression-compile-tmp/gammon.imp" $ DEF G p1=V_00ee a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF H p1=V_00ef a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF PT3 p1=V_00f0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF PT4 p1=V_00f1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF DICE3 p1=V_00f2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF DICE4 p1=V_00f3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTPT3 p1=V_00f4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BSTPT4 p1=V_00f5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BARPT3 p1=V_00f6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF BARPT4 p1=V_00f7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 11 %INTEGERFN HOMEB O LINE 11 "regression-compile-tmp/gammon.imp" $ DEF HOMEB (_BACKGAMMON_HOMEB) p1=V_00f8 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 12 %INTEGER NO,I O LINE 12 "regression-compile-tmp/gammon.imp" $ DEF NO p1=V_00f9 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF I p1=V_00fa a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 13 NO=BBOFF O LINE 13 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH BBOFF S ASSVAL 14 %CYCLE I=1,1,6 O LINE 14 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000006 N PUSHI #0x00000001 f FOR L_0003 15 NO=NO+BOARD(I)_BS O LINE 15 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH NO @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 + ADD S ASSVAL 16 %REPEAT O LINE 16 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 17 %IF NO=15 %THENRESULT = 1 %ELSERESULT = 0 O LINE 17 "regression-compile-tmp/gammon.imp" @ PUSH NO N PUSHI #0x0000000f ? JUMPIF # L_0004 N PUSHI #0x00000001 V RESULT : LOCATE L_0004 N PUSHI #0x00000000 V RESULT 18 %END 19 O LINE 18 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_HOMEB {lev=2 --> 1} 20 %ROUTINE DOBLACK O LINE 20 "regression-compile-tmp/gammon.imp" $ DEF DOBLACK (_BACKGAMMON_DOBLACK) p1=V_00f9 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 21 %INTEGER PT,NO,M,D1,D2,D3,D4,TOT O LINE 21 "regression-compile-tmp/gammon.imp" $ DEF PT p1=V_00fa a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF NO p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF M p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D1 p1=V_00fd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D2 p1=V_00fe a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D3 p1=V_00ff a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D4 p1=V_0100 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF TOT p1=V_0101 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 22 PROMPT ("Point:") O LINE 22 "regression-compile-tmp/gammon.imp" @ PUSH PROMPT ' PUSHS "Point:" p ASSPAR E CALL 23 %CYCLE O LINE 23 "regression-compile-tmp/gammon.imp" : LOCATE L_0003 24 READ(D1); READ(D2) O LINE 24 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH D1 p ASSPAR E CALL O LINE 24 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH D2 p ASSPAR E CALL 25 %IF D1>6 %OR D2>6 %THEN PRINTSTRING("No way") %AND NEWLINE %ELSEEXIT O LINE 25 "regression-compile-tmp/gammon.imp" @ PUSH D1 N PUSHI #0x00000006 ? JUMPIF > L_0008 @ PUSH D2 N PUSHI #0x00000006 ? JUMPIF <= L_0007 : LOCATE L_0008 @ PUSH PRINTSTRING ' PUSHS "No way" p ASSPAR E CALL @ PUSH NEWLINE E CALL F GOTO L_0006 : LOCATE L_0007 F GOTO L_0004 : LOCATE L_0006 26 %REPEAT O LINE 26 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 27 %IF D1=D2 %THEN D3=D1 %AND D4=D2 %ELSE D3=0 %AND D4=0 O LINE 27 "regression-compile-tmp/gammon.imp" @ PUSH D1 @ PUSH D2 ? JUMPIF # L_0004 @ PUSH D3 @ PUSH D1 S ASSVAL @ PUSH D4 @ PUSH D2 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH D3 N PUSHI #0x00000000 S ASSVAL @ PUSH D4 N PUSHI #0x00000000 S ASSVAL : LOCATE L_0003 28 PRINTSTRING("Your throw was") O LINE 28 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "Your throw was" p ASSPAR E CALL 29 WRITE(D1,2); WRITE(D2,2) O LINE 29 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH D1 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL O LINE 29 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH D2 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 30 NEWLINE O LINE 30 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 31 %IF BOARD(25)_BS>0 %THENSTART O LINE 31 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF <= L_0004 32 %IF BOARD(25-D1)_WS>1 %AND BOARD(25-D2)_WS>1 %C 33 %THEN PRINTSTRING("You cannot move") %AND NEWLINE %ANDRETURN O LINE 32 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D1 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D2 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH PRINTSTRING ' PUSHS "You cannot move" p ASSPAR E CALL @ PUSH NEWLINE E CALL R RETURN : LOCATE L_0007 34 %IF BOARD(25)_BS#1 %THENSTART O LINE 34 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF = L_0007 35 %IF D1#D2 %THENSTART O LINE 35 "regression-compile-tmp/gammon.imp" @ PUSH D1 @ PUSH D2 ? JUMPIF = L_000a 36 %IF BOARD(25-D1)_WS>1 %THENSTART O LINE 36 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D1 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_000d 37 BOARD(25-D2)_BS=BOARD(25-D2)_BS+1 O LINE 37 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D2 - SUB a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D2 - SUB a ACCESS n SELECT 2 N PUSHI #0x00000001 + ADD S ASSVAL 38 BOARD(25)_BS=BOARD(25)_BS-1 O LINE 38 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000001 - SUB S ASSVAL 39 BOARD(25-D2)_WS=0 O LINE 39 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D2 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000000 S ASSVAL 40 BOARD(0)_WS=BOARD(0)_WS+1 O LINE 40 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 41 PRINTSTRING("I have made your move") O LINE 41 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "I have made your move" p ASSPAR E CALL 42 NEWLINE O LINE 42 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 43 %RETURN O LINE 43 "regression-compile-tmp/gammon.imp" R RETURN 44 %FINISH O LINE 44 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 45 %IF BOARD(25-D2)_WS>1 %THENSTART O LINE 45 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D2 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_000d 46 BOARD(25-D1)_BS=BOARD(25-D1)_BS+1 O LINE 46 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D1 - SUB a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D1 - SUB a ACCESS n SELECT 2 N PUSHI #0x00000001 + ADD S ASSVAL 47 BOARD(25)_BS=BOARD(25)_BS-1 O LINE 47 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000001 - SUB S ASSVAL 48 BOARD(25-D1)_WS=0 O LINE 48 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D1 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000000 S ASSVAL 49 BOARD(0)_WS=BOARD(0)_WS+1 O LINE 49 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 50 PRINTSTRING("I have made your move") O LINE 50 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "I have made your move" p ASSPAR E CALL 51 NEWLINE O LINE 51 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 52 %RETURN O LINE 52 "regression-compile-tmp/gammon.imp" R RETURN 53 %FINISH O LINE 53 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 54 %FINISH O LINE 54 "regression-compile-tmp/gammon.imp" : LOCATE L_000a 55 %FINISH O LINE 55 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 56 %FINISH O LINE 56 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 57 PRINTSTRING("Make your move"); NEWLINE O LINE 57 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "Make your move" p ASSPAR E CALL O LINE 57 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 58 %CYCLE M=1,1,4 O LINE 58 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000004 N PUSHI #0x00000001 f FOR L_0003 59 AGN: TOT=D1+D2+D3+D4 O LINE 59 "regression-compile-tmp/gammon.imp" L LABEL L_0102 O LINE 59 "regression-compile-tmp/gammon.imp" @ PUSH TOT @ PUSH D1 @ PUSH D2 + ADD @ PUSH D3 + ADD @ PUSH D4 + ADD S ASSVAL 60 %IF TOT=0 %THENRETURN O LINE 60 "regression-compile-tmp/gammon.imp" @ PUSH TOT N PUSHI #0x00000000 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 61 READ(PT); %IF PT=100 %THENRETURN; READ(NO) O LINE 61 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH PT p ASSPAR E CALL O LINE 61 "regression-compile-tmp/gammon.imp" @ PUSH PT N PUSHI #0x00000064 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 O LINE 61 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH NO p ASSPAR E CALL 62 %IF BOARD(PT)_BS=0 %THEN PRINTSTRING("No blacks on point") %C 63 %AND NEWLINE %AND ->AGN O LINE 62 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH PRINTSTRING ' PUSHS "No blacks on point" p ASSPAR E CALL @ PUSH NEWLINE E CALL J JUMP L_0102 : LOCATE L_0007 64 %IF BOARD(25)_BS#0 %AND PT#25 %THEN %C 65 PRINTSTRING("You have pieces on the bar") %AND NEWLINE %AND ->AGN O LINE 64 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PT N PUSHI #0x00000019 ? JUMPIF = L_0007 @ PUSH PRINTSTRING ' PUSHS "You have pieces on the bar" p ASSPAR E CALL @ PUSH NEWLINE E CALL J JUMP L_0102 : LOCATE L_0007 66 %IF PT-NO<=0 %THENSTART O LINE 66 "regression-compile-tmp/gammon.imp" @ PUSH PT @ PUSH NO - SUB N PUSHI #0x00000000 ? JUMPIF > L_0007 67 %IF HOMEB=0 %THEN PRINTSTRING("Not all home") %AND %C O LINE 67 "regression-compile-tmp/gammon.imp" @ PUSH HOMEB E CALL N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH PRINTSTRING ' PUSHS "Not all home" p ASSPAR E CALL @ PUSH NEWLINE E CALL J JUMP L_0102 : LOCATE L_000a 68 NEWLINE %AND ->AGN; ->LEGMOV O LINE 68 "regression-compile-tmp/gammon.imp" J JUMP L_0103 69 %FINISH O LINE 69 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 70 %IF BOARD(PT-NO)_WS>1 %THEN PRINTSTRING("White has point") %C 71 %AND NEWLINE %AND ->AGN O LINE 70 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT @ PUSH NO - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH PRINTSTRING ' PUSHS "White has point" p ASSPAR E CALL @ PUSH NEWLINE E CALL J JUMP L_0102 : LOCATE L_0007 72 LEGMOV: %IF NO=D1 %THEN D1=0 %ELSESTART O LINE 72 "regression-compile-tmp/gammon.imp" L LABEL L_0103 O LINE 72 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH D1 ? JUMPIF # L_0007 @ PUSH D1 N PUSHI #0x00000000 S ASSVAL F GOTO L_0006 : LOCATE L_0007 73 %IF NO=D2 %THEN D2=0 %ELSESTART O LINE 73 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH D2 ? JUMPIF # L_000a @ PUSH D2 N PUSHI #0x00000000 S ASSVAL F GOTO L_0009 : LOCATE L_000a 74 %IF NO=D3 %THEN D3=0 %ELSESTART O LINE 74 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH D3 ? JUMPIF # L_000d @ PUSH D3 N PUSHI #0x00000000 S ASSVAL F GOTO L_000c : LOCATE L_000d 75 %IF NO=D4 %THEN D4=0 %ELSESTART O LINE 75 "regression-compile-tmp/gammon.imp" @ PUSH NO @ PUSH D4 ? JUMPIF # L_0010 @ PUSH D4 N PUSHI #0x00000000 S ASSVAL F GOTO L_000f : LOCATE L_0010 76 PRINTSTRING("Illegal move"); NEWLINE; ->AGN O LINE 76 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "Illegal move" p ASSPAR E CALL O LINE 76 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 76 "regression-compile-tmp/gammon.imp" J JUMP L_0102 77 %FINISH O LINE 77 "regression-compile-tmp/gammon.imp" : LOCATE L_000f 78 %FINISH O LINE 78 "regression-compile-tmp/gammon.imp" : LOCATE L_000c 79 %FINISH O LINE 79 "regression-compile-tmp/gammon.imp" : LOCATE L_0009 80 %FINISH O LINE 80 "regression-compile-tmp/gammon.imp" : LOCATE L_0006 81 %IF PT-NO <=0 %THEN ->BBEARO O LINE 81 "regression-compile-tmp/gammon.imp" @ PUSH PT @ PUSH NO - SUB N PUSHI #0x00000000 ? JUMPIF > L_0007 J JUMP L_0104 : LOCATE L_0007 82 BOARD(PT)_BS=BOARD(PT)_BS-1 O LINE 82 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT a ACCESS n SELECT 2 @ PUSH BOARD @ PUSH PT a ACCESS n SELECT 2 N PUSHI #0x00000001 - SUB S ASSVAL 83 BOARD(PT-NO)_BS=BOARD(PT-NO)_BS+1 O LINE 83 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT @ PUSH NO - SUB a ACCESS n SELECT 2 @ PUSH BOARD @ PUSH PT @ PUSH NO - SUB a ACCESS n SELECT 2 N PUSHI #0x00000001 + ADD S ASSVAL 84 %IF BOARD(PT-NO)_WS=1 %THEN BOARD(PT-NO)_WS=0 %C 85 %AND BOARD(0)_WS=BOARD(0)_WS+1 O LINE 84 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT @ PUSH NO - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH BOARD @ PUSH PT @ PUSH NO - SUB a ACCESS n SELECT 1 N PUSHI #0x00000000 S ASSVAL @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 86 ->SKP O LINE 86 "regression-compile-tmp/gammon.imp" J JUMP L_0105 87 BBEARO: BBOFF=BBOFF+1 O LINE 87 "regression-compile-tmp/gammon.imp" L LABEL L_0104 O LINE 87 "regression-compile-tmp/gammon.imp" @ PUSH BBOFF @ PUSH BBOFF N PUSHI #0x00000001 + ADD S ASSVAL 88 BOARD(PT)_BS=BOARD(PT)_BS-1 O LINE 88 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH PT a ACCESS n SELECT 2 @ PUSH BOARD @ PUSH PT a ACCESS n SELECT 2 N PUSHI #0x00000001 - SUB S ASSVAL 89 %IF BBOFF=15 %THENRETURN O LINE 89 "regression-compile-tmp/gammon.imp" @ PUSH BBOFF N PUSHI #0x0000000f ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 90 SKP: %REPEAT O LINE 90 "regression-compile-tmp/gammon.imp" L LABEL L_0105 O LINE 90 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 91 %END 92 O LINE 91 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_DOBLACK {lev=2 --> 1} 93 %ROUTINE INITIALIZE O LINE 93 "regression-compile-tmp/gammon.imp" $ DEF INITIALIZE (_BACKGAMMON_INITIALIZE) p1=V_00fa a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 94 WBOFF=0 O LINE 94 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF N PUSHI #0x00000000 S ASSVAL 95 BBOFF=0 O LINE 95 "regression-compile-tmp/gammon.imp" @ PUSH BBOFF N PUSHI #0x00000000 S ASSVAL 96 BOARD(1)_WS=2 O LINE 96 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000001 a ACCESS n SELECT 1 N PUSHI #0x00000002 S ASSVAL 97 BOARD(6)_BS=5 O LINE 97 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000006 a ACCESS n SELECT 2 N PUSHI #0x00000005 S ASSVAL 98 BOARD(8)_BS=3 O LINE 98 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000008 a ACCESS n SELECT 2 N PUSHI #0x00000003 S ASSVAL 99 BOARD(12)_WS=5 O LINE 99 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x0000000c a ACCESS n SELECT 1 N PUSHI #0x00000005 S ASSVAL 100 BOARD(13)_BS=5 O LINE 100 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x0000000d a ACCESS n SELECT 2 N PUSHI #0x00000005 S ASSVAL 101 BOARD(17)_WS=3 O LINE 101 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000011 a ACCESS n SELECT 1 N PUSHI #0x00000003 S ASSVAL 102 BOARD(19)_WS=5 O LINE 102 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000013 a ACCESS n SELECT 1 N PUSHI #0x00000005 S ASSVAL 103 BOARD(24)_BS=2 O LINE 103 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000018 a ACCESS n SELECT 2 N PUSHI #0x00000002 S ASSVAL 104 %END 105 O LINE 104 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_INITIALIZE {lev=2 --> 1} 106 %ROUTINE PRINTSTATE O LINE 106 "regression-compile-tmp/gammon.imp" $ DEF PRINTSTATE (_BACKGAMMON_PRINTSTATE) p1=V_00fb a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 107 %INTEGER I,J,K,M O LINE 107 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_00fd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_00fe a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF M p1=V_00ff a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 108 NEWLINES(2) O LINE 108 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINES N PUSHI #0x00000002 p ASSPAR E CALL 109 PRINTSTRING(" 12 11 10 9 8 7 6 5 4 3 2 1") O LINE 109 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS " 12 11 10 9 8 7 6 5 4 3 2 1" p ASSPAR E CALL 110 NEWLINE O LINE 110 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 111 PRINTSTRING("___________________________________________________") O LINE 111 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "___________________________________________________" p ASSPAR E CALL 112 %CYCLE I=0,1,6 O LINE 112 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000006 N PUSHI #0x00000000 f FOR L_0003 113 NEWLINE O LINE 113 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 114 SPACES(2) O LINE 114 "regression-compile-tmp/gammon.imp" @ PUSH SPACES N PUSHI #0x00000002 p ASSPAR E CALL 115 %CYCLE J=12,-1,1 O LINE 115 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 N PUSHI #0x0000000c f FOR L_0006 116 %IF BOARD(J)_WS>I %THEN PRINTSYMBOL('W') %AND ->RPT O LINE 116 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 1 @ PUSH I ? JUMPIF <= L_000a @ PUSH PRINTSYMBOL N PUSHI #0x00000057 p ASSPAR E CALL J JUMP L_0100 : LOCATE L_000a 117 %IF BOARD(J)_BS>I %THEN PRINTSYMBOL('B') %AND ->RPT O LINE 117 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 2 @ PUSH I ? JUMPIF <= L_000a @ PUSH PRINTSYMBOL N PUSHI #0x00000042 p ASSPAR E CALL J JUMP L_0100 : LOCATE L_000a 118 SPACE O LINE 118 "regression-compile-tmp/gammon.imp" @ PUSH SPACE E CALL 119 RPT: %IF J=7 %THEN PRINTSTRING(" ** ") %ELSE SPACES(3) O LINE 119 "regression-compile-tmp/gammon.imp" L LABEL L_0100 O LINE 119 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000007 ? JUMPIF # L_000a @ PUSH PRINTSTRING ' PUSHS " ** " p ASSPAR E CALL F GOTO L_0009 : LOCATE L_000a @ PUSH SPACES N PUSHI #0x00000003 p ASSPAR E CALL : LOCATE L_0009 120 %REPEAT O LINE 120 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 121 %REPEAT O LINE 121 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 122 %CYCLE K=6,-1,0 O LINE 122 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000000 N PUSHI #0x00000006 f FOR L_0003 123 NEWLINE O LINE 123 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 124 SPACES(2) O LINE 124 "regression-compile-tmp/gammon.imp" @ PUSH SPACES N PUSHI #0x00000002 p ASSPAR E CALL 125 %CYCLE M=13,1,24 O LINE 125 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x0000000d f FOR L_0006 126 %IF BOARD(M)_WS>K %THEN PRINTSYMBOL('W') %AND ->RPT2 O LINE 126 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 @ PUSH K ? JUMPIF <= L_000a @ PUSH PRINTSYMBOL N PUSHI #0x00000057 p ASSPAR E CALL J JUMP L_0101 : LOCATE L_000a 127 %IF BOARD(M)_BS>K %THEN PRINTSYMBOL('B') %AND ->RPT2 O LINE 127 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 2 @ PUSH K ? JUMPIF <= L_000a @ PUSH PRINTSYMBOL N PUSHI #0x00000042 p ASSPAR E CALL J JUMP L_0101 : LOCATE L_000a 128 SPACE O LINE 128 "regression-compile-tmp/gammon.imp" @ PUSH SPACE E CALL 129 RPT2: %IF M=18 %THEN PRINTSTRING(" ** ") %ELSE SPACES(3) O LINE 129 "regression-compile-tmp/gammon.imp" L LABEL L_0101 O LINE 129 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000012 ? JUMPIF # L_000a @ PUSH PRINTSTRING ' PUSHS " ** " p ASSPAR E CALL F GOTO L_0009 : LOCATE L_000a @ PUSH SPACES N PUSHI #0x00000003 p ASSPAR E CALL : LOCATE L_0009 130 %REPEAT O LINE 130 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 131 %REPEAT O LINE 131 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 132 NEWLINE O LINE 132 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 133 PRINTSTRING("____________________________________________________") O LINE 133 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "____________________________________________________" p ASSPAR E CALL 134 NEWLINE O LINE 134 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 135 PRINTSTRING(" 13 14 15 16 17 18 19 20 21 22 23 24") O LINE 135 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS " 13 14 15 16 17 18 19 20 21 22 23 24" p ASSPAR E CALL 136 NEWLINE O LINE 136 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 137 %IF BOARD(0)_WS>0 %THENSTART O LINE 137 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0004 138 NEWLINE O LINE 138 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 139 PRINTSTRING("There are") O LINE 139 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "There are" p ASSPAR E CALL 140 WRITE(BOARD(0)_WS,2) O LINE 140 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 141 PRINTSTRING(" whites on the bar") O LINE 141 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS " whites on the bar" p ASSPAR E CALL 142 %FINISH O LINE 142 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 143 %IF BOARD(25)_BS>0 %THENSTART O LINE 143 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF <= L_0004 144 NEWLINE O LINE 144 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 145 PRINTSTRING("there are") O LINE 145 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "there are" p ASSPAR E CALL 146 WRITE(BOARD(25)_BS,2) O LINE 146 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 147 PRINTSTRING(" blacks on the bar") O LINE 147 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS " blacks on the bar" p ASSPAR E CALL 148 %FINISH O LINE 148 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 149 %IF WBOFF>0 %THENSTART O LINE 149 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF N PUSHI #0x00000000 ? JUMPIF <= L_0004 150 NEWLINE O LINE 150 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 151 PRINTSTRING("white has born off") O LINE 151 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "white has born off" p ASSPAR E CALL 152 WRITE(WBOFF,3) O LINE 152 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH WBOFF p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL 153 %FINISH O LINE 153 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 154 %IF BBOFF>0 %THENSTART O LINE 154 "regression-compile-tmp/gammon.imp" @ PUSH BBOFF N PUSHI #0x00000000 ? JUMPIF <= L_0004 155 NEWLINE O LINE 155 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 156 PRINTSTRING("black has born off") O LINE 156 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTRING ' PUSHS "black has born off" p ASSPAR E CALL 157 WRITE(BBOFF,3) O LINE 157 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH BBOFF p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL 158 %FINISH O LINE 158 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 159 NEWLINE O LINE 159 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL 160 %END 161 O LINE 160 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_PRINTSTATE {lev=2 --> 1} 162 %INTEGERFN BBAR O LINE 162 "regression-compile-tmp/gammon.imp" $ DEF BBAR (_BACKGAMMON_BBAR) p1=V_00fc a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 163 %RESULT = BOARD(25)_BS O LINE 163 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 V RESULT 164 %END 165 O LINE 164 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BBAR {lev=2 --> 1} 166 %INTEGERFN WBAR O LINE 166 "regression-compile-tmp/gammon.imp" $ DEF WBAR (_BACKGAMMON_WBAR) p1=V_00fd a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 167 %RESULT = BOARD(0)_WS O LINE 167 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000000 a ACCESS n SELECT 1 V RESULT 168 %END 169 O LINE 168 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WBAR {lev=2 --> 1} 170 %INTEGERFN BSIN O LINE 170 "regression-compile-tmp/gammon.imp" $ DEF BSIN (_BACKGAMMON_BSIN) p1=V_00fe a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 171 %INTEGER I,J; J=0 O LINE 171 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_00ff a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0100 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 171 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 172 %CYCLE I=1,1,25 O LINE 172 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000019 N PUSHI #0x00000001 f FOR L_0003 173 %IF BOARD(I)_BS=1 %THEN J=J+1 O LINE 173 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 174 %REPEAT O LINE 174 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 175 %RESULT = J O LINE 175 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 176 %END 177 O LINE 176 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BSIN {lev=2 --> 1} 178 %INTEGERFN WSIN O LINE 178 "regression-compile-tmp/gammon.imp" $ DEF WSIN (_BACKGAMMON_WSIN) p1=V_00ff a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 179 %INTEGER I,J; J=0 O LINE 179 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0100 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0101 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 179 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 180 %CYCLE I=0,1,24 O LINE 180 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000000 f FOR L_0003 181 %IF BOARD(I)_WS=1 %THEN J=J+1 O LINE 181 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 182 %REPEAT O LINE 182 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 183 %RESULT = J O LINE 183 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 184 %END 185 O LINE 184 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WSIN {lev=2 --> 1} 186 %INTEGERFN BSINCL O LINE 186 "regression-compile-tmp/gammon.imp" $ DEF BSINCL (_BACKGAMMON_BSINCL) p1=V_0100 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 187 %INTEGER I,J,K,SUM; SUM=0 O LINE 187 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0101 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0102 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0103 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SUM p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 187 "regression-compile-tmp/gammon.imp" @ PUSH SUM N PUSHI #0x00000000 S ASSVAL 188 %CYCLE I=25,-1,1 O LINE 188 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 N PUSHI #0x00000019 f FOR L_0003 189 %IF BOARD(I)_BS=1 %THENSTART O LINE 189 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF # L_0007 190 %IF I-12<0 %THEN J=0 %ELSE J=I-12 O LINE 190 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x0000000c - SUB N PUSHI #0x00000000 ? JUMPIF >= L_000a @ PUSH J N PUSHI #0x00000000 S ASSVAL F GOTO L_0009 : LOCATE L_000a @ PUSH J @ PUSH I N PUSHI #0x0000000c - SUB S ASSVAL : LOCATE L_0009 191 %CYCLE K=I-1,-1,J O LINE 191 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 U NEGATE @ PUSH J @ PUSH I N PUSHI #0x00000001 - SUB f FOR L_0009 192 %IF BOARD(K)_WS>0 %THEN SUM=SUM+ODDS(I-K) O LINE 192 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH K a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000d @ PUSH SUM @ PUSH SUM @ PUSH ODDS @ PUSH I @ PUSH K - SUB a ACCESS + ADD S ASSVAL : LOCATE L_000d 193 %REPEAT O LINE 193 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 194 %FINISH O LINE 194 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 195 %REPEAT O LINE 195 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 196 %RESULT = SUM O LINE 196 "regression-compile-tmp/gammon.imp" @ PUSH SUM V RESULT 197 %END 198 O LINE 197 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BSINCL {lev=2 --> 1} 199 %INTEGERFN WSINCL O LINE 199 "regression-compile-tmp/gammon.imp" $ DEF WSINCL (_BACKGAMMON_WSINCL) p1=V_0101 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 200 %INTEGER I,J,K,SUM; SUM=0 O LINE 200 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0102 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0103 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SUM p1=V_0105 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 200 "regression-compile-tmp/gammon.imp" @ PUSH SUM N PUSHI #0x00000000 S ASSVAL 201 %CYCLE I=0,1,24 O LINE 201 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000000 f FOR L_0003 202 %IF BOARD(I)_WS=1 %THENSTART O LINE 202 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF # L_0007 203 %IF I+12>25 %THEN J=25 %ELSE J=I+12 O LINE 203 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x0000000c + ADD N PUSHI #0x00000019 ? JUMPIF <= L_000a @ PUSH J N PUSHI #0x00000019 S ASSVAL F GOTO L_0009 : LOCATE L_000a @ PUSH J @ PUSH I N PUSHI #0x0000000c + ADD S ASSVAL : LOCATE L_0009 204 %CYCLE K=I+1,1,J O LINE 204 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 @ PUSH J @ PUSH I N PUSHI #0x00000001 + ADD f FOR L_0009 205 %IF BOARD(K)_BS>0 %THEN SUM=SUM+ODDS(K-I) O LINE 205 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH K a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF <= L_000d @ PUSH SUM @ PUSH SUM @ PUSH ODDS @ PUSH K @ PUSH I - SUB a ACCESS + ADD S ASSVAL : LOCATE L_000d 206 %REPEAT O LINE 206 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 207 %FINISH O LINE 207 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 208 %REPEAT O LINE 208 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 209 %RESULT = SUM O LINE 209 "regression-compile-tmp/gammon.imp" @ PUSH SUM V RESULT 210 %END 211 O LINE 210 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WSINCL {lev=2 --> 1} 212 %INTEGERFN WPTSHOME O LINE 212 "regression-compile-tmp/gammon.imp" $ DEF WPTSHOME (_BACKGAMMON_WPTSHOME) p1=V_0102 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 213 %INTEGER I,J; J=0 O LINE 213 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0103 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 213 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 214 %CYCLE I=19,1,24 O LINE 214 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0003 215 %IF BOARD(I)_WS>1 %THEN J=J+1 O LINE 215 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 216 %REPEAT O LINE 216 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 217 %RESULT = J O LINE 217 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 218 %END 219 O LINE 218 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WPTSHOME {lev=2 --> 1} 220 %INTEGERFN BPTSHOME O LINE 220 "regression-compile-tmp/gammon.imp" $ DEF BPTSHOME (_BACKGAMMON_BPTSHOME) p1=V_0103 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 221 %INTEGER I,J; J=0 O LINE 221 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0105 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 221 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 222 %CYCLE I=1,1,6 O LINE 222 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000006 N PUSHI #0x00000001 f FOR L_0003 223 %IF BOARD(I)_BS>1 %THEN J=J+1 O LINE 223 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 224 %REPEAT O LINE 224 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 225 %RESULT = J O LINE 225 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 226 %END 227 O LINE 226 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BPTSHOME {lev=2 --> 1} 228 %INTEGERFN WPTS O LINE 228 "regression-compile-tmp/gammon.imp" $ DEF WPTS (_BACKGAMMON_WPTS) p1=V_0104 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 229 %INTEGER I,J; J=0 O LINE 229 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0105 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0106 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 229 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 230 %CYCLE I=1,1,24 O LINE 230 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000001 f FOR L_0003 231 %IF BOARD(I)_WS>1 %THEN J=J+1 O LINE 231 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 232 %REPEAT O LINE 232 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 233 %RESULT = J O LINE 233 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 234 %END 235 O LINE 234 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WPTS {lev=2 --> 1} 236 %INTEGERFN BPTS O LINE 236 "regression-compile-tmp/gammon.imp" $ DEF BPTS (_BACKGAMMON_BPTS) p1=V_0105 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 237 %INTEGER I,J;J=0 O LINE 237 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0106 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0107 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 237 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 238 %CYCLE I=1,1,24 O LINE 238 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000001 f FOR L_0003 239 %IF BOARD(K)_BS>1 %THEN J=J+1 O LINE 239 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH K a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 240 %REPEAT O LINE 240 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 241 %RESULT = J O LINE 241 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 242 %END 243 O LINE 242 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BPTS {lev=2 --> 1} 244 %INTEGERFN WPTSSUCC O LINE 244 "regression-compile-tmp/gammon.imp" $ DEF WPTSSUCC (_BACKGAMMON_WPTSSUCC) p1=V_0106 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 245 %INTEGER I,J,K; K=0 O LINE 245 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0107 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 245 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000000 S ASSVAL 246 %CYCLE J=1,1,22 O LINE 246 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000016 N PUSHI #0x00000001 f FOR L_0003 247 %IF BOARD(J)_BS>0 %THENSTART O LINE 247 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF <= L_0007 248 %CYCLE I=J+1,1,23 O LINE 248 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000017 @ PUSH J N PUSHI #0x00000001 + ADD f FOR L_0009 249 %IF BOARD(I)_WS>1 %THENSTART O LINE 249 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_000d 250 %IF BOARD(I+1)_WS>1 %THEN K=K+1 O LINE 250 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0010 @ PUSH K @ PUSH K N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0010 251 %FINISH O LINE 251 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 252 %REPEAT O LINE 252 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 253 %EXIT O LINE 253 "regression-compile-tmp/gammon.imp" F GOTO L_0004 254 %FINISH O LINE 254 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 255 %REPEAT O LINE 255 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 256 %RESULT = K O LINE 256 "regression-compile-tmp/gammon.imp" @ PUSH K V RESULT 257 %END 258 O LINE 257 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WPTSSUCC {lev=2 --> 1} 259 %INTEGERFN BPTSSUCC O LINE 259 "regression-compile-tmp/gammon.imp" $ DEF BPTSSUCC (_BACKGAMMON_BPTSSUCC) p1=V_0107 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 260 %INTEGER I,J,K; K=0 O LINE 260 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_010a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 260 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000000 S ASSVAL 261 %CYCLE J=24,-1,3 O LINE 261 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000003 N PUSHI #0x00000018 f FOR L_0003 262 %IF BOARD(J)_WS>0 %THENSTART O LINE 262 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0007 263 %CYCLE I=J-1,-1,2 O LINE 263 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000002 @ PUSH J N PUSHI #0x00000001 - SUB f FOR L_0009 264 %IF BOARD(I)_BS>1 %THENSTART O LINE 264 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_000d 265 %IF BOARD(I-1)_BS>1 %THEN K=K+1 O LINE 265 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I N PUSHI #0x00000001 - SUB a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_0010 @ PUSH K @ PUSH K N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0010 266 %FINISH O LINE 266 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 267 %REPEAT O LINE 267 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 268 %EXIT O LINE 268 "regression-compile-tmp/gammon.imp" F GOTO L_0004 269 %FINISH O LINE 269 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 270 %REPEAT O LINE 270 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 271 %RESULT = K O LINE 271 "regression-compile-tmp/gammon.imp" @ PUSH K V RESULT 272 %END 273 O LINE 272 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BPTSSUCC {lev=2 --> 1} 274 %INTEGERFN BFST3 O LINE 274 "regression-compile-tmp/gammon.imp" $ DEF BFST3 (_BACKGAMMON_BFST3) p1=V_0108 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 275 %INTEGER I,J; J=0 O LINE 275 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 275 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 276 %CYCLE I=22,1,25 O LINE 276 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000019 N PUSHI #0x00000016 f FOR L_0003 277 J=J+BOARD(I)_BS O LINE 277 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 + ADD S ASSVAL 278 %REPEAT O LINE 278 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 279 %RESULT = J O LINE 279 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 280 %END 281 O LINE 280 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BFST3 {lev=2 --> 1} 282 %INTEGERFN WFST3 O LINE 282 "regression-compile-tmp/gammon.imp" $ DEF WFST3 (_BACKGAMMON_WFST3) p1=V_0109 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 283 %INTEGER I,J; J=0 O LINE 283 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 283 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 284 %CYCLE I=0,1,3 O LINE 284 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000003 N PUSHI #0x00000000 f FOR L_0003 285 J=J+BOARD(I)_WS O LINE 285 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 + ADD S ASSVAL 286 %REPEAT O LINE 286 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 287 %RESULT = J O LINE 287 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 288 %END 289 O LINE 288 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WFST3 {lev=2 --> 1} 290 %INTEGERFN BFST6 O LINE 290 "regression-compile-tmp/gammon.imp" $ DEF BFST6 (_BACKGAMMON_BFST6) p1=V_010a a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 291 %INTEGER I,J; J=0 O LINE 291 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 291 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 292 %CYCLE I=19,1,25 O LINE 292 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000019 N PUSHI #0x00000013 f FOR L_0003 293 J=J+BOARD(I)_BS O LINE 293 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 + ADD S ASSVAL 294 %REPEAT O LINE 294 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 295 %RESULT = J O LINE 295 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 296 %END 297 O LINE 296 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BFST6 {lev=2 --> 1} 298 %INTEGERFN WFST6 O LINE 298 "regression-compile-tmp/gammon.imp" $ DEF WFST6 (_BACKGAMMON_WFST6) p1=V_010b a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 299 %INTEGER I,J; J=0 O LINE 299 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 299 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 300 %CYCLE I=0,1,6 O LINE 300 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000006 N PUSHI #0x00000000 f FOR L_0003 301 J=J+BOARD(I)_WS O LINE 301 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 + ADD S ASSVAL 302 %REPEAT O LINE 302 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 303 %RESULT = J O LINE 303 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 304 %END 305 O LINE 304 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WFST6 {lev=2 --> 1} 306 %INTEGERFN BFST12 O LINE 306 "regression-compile-tmp/gammon.imp" $ DEF BFST12 (_BACKGAMMON_BFST12) p1=V_010c a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 307 %INTEGER I,J O LINE 307 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 308 J=BFST6 O LINE 308 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH BFST6 E CALL S ASSVAL 309 %CYCLE I=13,1,18 O LINE 309 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000012 N PUSHI #0x0000000d f FOR L_0003 310 J=J+BOARD(I)_BS O LINE 310 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 + ADD S ASSVAL 311 %REPEAT O LINE 311 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 312 %RESULT = J O LINE 312 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 313 %END 314 O LINE 313 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BFST12 {lev=2 --> 1} 315 %INTEGERFN WFST12 O LINE 315 "regression-compile-tmp/gammon.imp" $ DEF WFST12 (_BACKGAMMON_WFST12) p1=V_010d a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 316 %INTEGER I,J O LINE 316 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 317 J=WFST6 O LINE 317 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH WFST6 E CALL S ASSVAL 318 %CYCLE I=7,1,12 O LINE 318 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000000c N PUSHI #0x00000007 f FOR L_0003 319 J=BOARD(I)_WS+J O LINE 319 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 @ PUSH J + ADD S ASSVAL 320 %REPEAT O LINE 320 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 321 %RESULT = J O LINE 321 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 322 %END 323 O LINE 322 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WFST12 {lev=2 --> 1} 324 %INTEGERFN WHOME O LINE 324 "regression-compile-tmp/gammon.imp" $ DEF WHOME (_BACKGAMMON_WHOME) p1=V_010e a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 325 %INTEGER I,J; J=0 O LINE 325 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_010f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 325 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 326 %CYCLE I=19,1,24 O LINE 326 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0003 327 J=J+BOARD(I)_WS O LINE 327 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 + ADD S ASSVAL 328 %REPEAT O LINE 328 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 329 %RESULT = J O LINE 329 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 330 %END 331 O LINE 330 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WHOME {lev=2 --> 1} 332 %INTEGERFN BHOME O LINE 332 "regression-compile-tmp/gammon.imp" $ DEF BHOME (_BACKGAMMON_BHOME) p1=V_010f a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 333 %INTEGER I,J; J=0 O LINE 333 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0111 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 333 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 334 %CYCLE I=1,1,6 O LINE 334 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000006 N PUSHI #0x00000001 f FOR L_0003 335 J=J+BOARD(I)_BS O LINE 335 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 + ADD S ASSVAL 336 %REPEAT O LINE 336 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 337 %RESULT = J O LINE 337 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 338 %END 339 O LINE 338 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BHOME {lev=2 --> 1} 340 %INTEGERFN WTOGO O LINE 340 "regression-compile-tmp/gammon.imp" $ DEF WTOGO (_BACKGAMMON_WTOGO) p1=V_0110 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 341 %INTEGER I,J,K,SUM; SUM=0 O LINE 341 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0111 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0112 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SUM p1=V_0114 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 341 "regression-compile-tmp/gammon.imp" @ PUSH SUM N PUSHI #0x00000000 S ASSVAL 342 %CYCLE I=0,1,18 O LINE 342 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000012 N PUSHI #0x00000000 f FOR L_0003 343 J=BOARD(I)_WS O LINE 343 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 S ASSVAL 344 %IF J>0 %THENSTART O LINE 344 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 ? JUMPIF <= L_0007 345 %CYCLE K=1,1,J O LINE 345 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 @ PUSH J N PUSHI #0x00000001 f FOR L_0009 346 SUM=SUM+19-I O LINE 346 "regression-compile-tmp/gammon.imp" @ PUSH SUM @ PUSH SUM N PUSHI #0x00000013 + ADD @ PUSH I - SUB S ASSVAL 347 %REPEAT O LINE 347 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 348 %FINISH O LINE 348 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 349 %REPEAT O LINE 349 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 350 %RESULT = SUM O LINE 350 "regression-compile-tmp/gammon.imp" @ PUSH SUM V RESULT 351 %END 352 O LINE 351 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WTOGO {lev=2 --> 1} 353 %INTEGERFN BTOGO O LINE 353 "regression-compile-tmp/gammon.imp" $ DEF BTOGO (_BACKGAMMON_BTOGO) p1=V_0111 a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 354 %INTEGER I,J,K,SUM; SUM=0 O LINE 354 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_0112 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0114 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SUM p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 354 "regression-compile-tmp/gammon.imp" @ PUSH SUM N PUSHI #0x00000000 S ASSVAL 355 %CYCLE I=7,1,25 O LINE 355 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000019 N PUSHI #0x00000007 f FOR L_0003 356 J=BOARD(I)_BS O LINE 356 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 2 S ASSVAL 357 %IF J>0 %THENSTART O LINE 357 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000000 ? JUMPIF <= L_0007 358 %CYCLE K=1,1,J O LINE 358 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 @ PUSH J N PUSHI #0x00000001 f FOR L_0009 359 SUM=SUM+I-6 O LINE 359 "regression-compile-tmp/gammon.imp" @ PUSH SUM @ PUSH SUM @ PUSH I + ADD N PUSHI #0x00000006 - SUB S ASSVAL 360 %REPEAT O LINE 360 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 361 %FINISH O LINE 361 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 362 %REPEAT O LINE 362 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 363 %RESULT = SUM O LINE 363 "regression-compile-tmp/gammon.imp" @ PUSH SUM V RESULT 364 %END 365 O LINE 364 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BTOGO {lev=2 --> 1} 366 %ROUTINE GBRDVAL O LINE 366 "regression-compile-tmp/gammon.imp" $ DEF GBRDVAL (_BACKGAMMON_GBRDVAL) p1=V_0112 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 367 V1=W1*(BBAR-WBAR) O LINE 367 "regression-compile-tmp/gammon.imp" @ PUSH V1 @ PUSH W1 @ PUSH BBAR E CALL @ PUSH WBAR E CALL - SUB * MUL S ASSVAL 368 V2=W2*(BSIN-WSIN) O LINE 368 "regression-compile-tmp/gammon.imp" @ PUSH V2 @ PUSH W2 @ PUSH BSIN E CALL @ PUSH WSIN E CALL - SUB * MUL S ASSVAL 369 V3=W3*(BSINCL-WSINCL)//10 O LINE 369 "regression-compile-tmp/gammon.imp" @ PUSH V3 @ PUSH W3 @ PUSH BSINCL E CALL @ PUSH WSINCL E CALL - SUB * MUL N PUSHI #0x0000000a / QUOT S ASSVAL 370 V4=W4*(WPTSHOME-BPTSHOME) O LINE 370 "regression-compile-tmp/gammon.imp" @ PUSH V4 @ PUSH W4 @ PUSH WPTSHOME E CALL @ PUSH BPTSHOME E CALL - SUB * MUL S ASSVAL 371 V5=W5*(WPTS-BPTS) O LINE 371 "regression-compile-tmp/gammon.imp" @ PUSH V5 @ PUSH W5 @ PUSH WPTS E CALL @ PUSH BPTS E CALL - SUB * MUL S ASSVAL 372 V6=W6*(WPTSSUCC-BPTSSUCC) O LINE 372 "regression-compile-tmp/gammon.imp" @ PUSH V6 @ PUSH W6 @ PUSH WPTSSUCC E CALL @ PUSH BPTSSUCC E CALL - SUB * MUL S ASSVAL 373 V7=W7*(BFST6-WFST6) O LINE 373 "regression-compile-tmp/gammon.imp" @ PUSH V7 @ PUSH W7 @ PUSH BFST6 E CALL @ PUSH WFST6 E CALL - SUB * MUL S ASSVAL 374 V8=W8*(BTOGO//6-WTOGO//6) O LINE 374 "regression-compile-tmp/gammon.imp" @ PUSH V8 @ PUSH W8 @ PUSH BTOGO E CALL N PUSHI #0x00000006 / QUOT @ PUSH WTOGO E CALL N PUSHI #0x00000006 / QUOT - SUB * MUL S ASSVAL 375 V9=W9*(BFST3-WFST3) O LINE 375 "regression-compile-tmp/gammon.imp" @ PUSH V9 @ PUSH W9 @ PUSH BFST3 E CALL @ PUSH WFST3 E CALL - SUB * MUL S ASSVAL 376 V10=W10*(WHOME-BHOME) O LINE 376 "regression-compile-tmp/gammon.imp" @ PUSH V10 @ PUSH W10 @ PUSH WHOME E CALL @ PUSH BHOME E CALL - SUB * MUL S ASSVAL 377 BRDVAL=V1+V2+V3+V4+V5+V6+V7+V8+V9+V10 O LINE 377 "regression-compile-tmp/gammon.imp" @ PUSH BRDVAL @ PUSH V1 @ PUSH V2 + ADD @ PUSH V3 + ADD @ PUSH V4 + ADD @ PUSH V5 + ADD @ PUSH V6 + ADD @ PUSH V7 + ADD @ PUSH V8 + ADD @ PUSH V9 + ADD @ PUSH V10 + ADD S ASSVAL 378 %END 379 O LINE 378 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_GBRDVAL {lev=2 --> 1} 380 %ROUTINE GBRD O LINE 380 "regression-compile-tmp/gammon.imp" $ DEF GBRD (_BACKGAMMON_GBRD) p1=V_0113 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 381 V1=W1*(BBAR) O LINE 381 "regression-compile-tmp/gammon.imp" @ PUSH V1 @ PUSH W1 @ PUSH BBAR E CALL * MUL S ASSVAL 382 V2=W2*(-WSIN) O LINE 382 "regression-compile-tmp/gammon.imp" @ PUSH V2 @ PUSH W2 @ PUSH WSIN E CALL U NEGATE * MUL S ASSVAL 383 V3=W3*(-WSINCL)//10 O LINE 383 "regression-compile-tmp/gammon.imp" @ PUSH V3 @ PUSH W3 @ PUSH WSINCL E CALL U NEGATE * MUL N PUSHI #0x0000000a / QUOT S ASSVAL 384 V4=W4*(WPTSHOME) O LINE 384 "regression-compile-tmp/gammon.imp" @ PUSH V4 @ PUSH W4 @ PUSH WPTSHOME E CALL * MUL S ASSVAL 385 V5=W5*(WPTS) O LINE 385 "regression-compile-tmp/gammon.imp" @ PUSH V5 @ PUSH W5 @ PUSH WPTS E CALL * MUL S ASSVAL 386 V6=W6*(WPTSSUCC) O LINE 386 "regression-compile-tmp/gammon.imp" @ PUSH V6 @ PUSH W6 @ PUSH WPTSSUCC E CALL * MUL S ASSVAL 387 V7=W7*(-WFST6) O LINE 387 "regression-compile-tmp/gammon.imp" @ PUSH V7 @ PUSH W7 @ PUSH WFST6 E CALL U NEGATE * MUL S ASSVAL 388 V8=W8*(-WTOGO)//6 O LINE 388 "regression-compile-tmp/gammon.imp" @ PUSH V8 @ PUSH W8 @ PUSH WTOGO E CALL U NEGATE * MUL N PUSHI #0x00000006 / QUOT S ASSVAL 389 V9=W9*(-WFST3) O LINE 389 "regression-compile-tmp/gammon.imp" @ PUSH V9 @ PUSH W9 @ PUSH WFST3 E CALL U NEGATE * MUL S ASSVAL 390 V10=W10*(WHOME) O LINE 390 "regression-compile-tmp/gammon.imp" @ PUSH V10 @ PUSH W10 @ PUSH WHOME E CALL * MUL S ASSVAL 391 BRDVAL=V1+V2+V3+V4+V5+V6+V7+V8+V9+V10 O LINE 391 "regression-compile-tmp/gammon.imp" @ PUSH BRDVAL @ PUSH V1 @ PUSH V2 + ADD @ PUSH V3 + ADD @ PUSH V4 + ADD @ PUSH V5 + ADD @ PUSH V6 + ADD @ PUSH V7 + ADD @ PUSH V8 + ADD @ PUSH V9 + ADD @ PUSH V10 + ADD S ASSVAL 392 %IF BRDVAL>BSTVAL %THENSTART O LINE 392 "regression-compile-tmp/gammon.imp" @ PUSH BRDVAL @ PUSH BSTVAL ? JUMPIF <= L_0004 393 BV1=V1; BV2=V2; BV3=V3; BV4=V4; BV5=V5; BV6=V6; BV7=V7; BV8=V8 O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV1 @ PUSH V1 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV2 @ PUSH V2 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV3 @ PUSH V3 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV4 @ PUSH V4 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV5 @ PUSH V5 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV6 @ PUSH V6 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV7 @ PUSH V7 S ASSVAL O LINE 393 "regression-compile-tmp/gammon.imp" @ PUSH BV8 @ PUSH V8 S ASSVAL 394 BV9=V9; BV10=V10; BSTVAL=BRDVAL; BSTMOV1=DICE1; BSTPT1=PT1 O LINE 394 "regression-compile-tmp/gammon.imp" @ PUSH BV9 @ PUSH V9 S ASSVAL O LINE 394 "regression-compile-tmp/gammon.imp" @ PUSH BV10 @ PUSH V10 S ASSVAL O LINE 394 "regression-compile-tmp/gammon.imp" @ PUSH BSTVAL @ PUSH BRDVAL S ASSVAL O LINE 394 "regression-compile-tmp/gammon.imp" @ PUSH BSTMOV1 @ PUSH DICE1 S ASSVAL O LINE 394 "regression-compile-tmp/gammon.imp" @ PUSH BSTPT1 @ PUSH PT1 S ASSVAL 395 BSTMOV2=DICE2; BSTPT2=PT2; BSTPT3=PT3; BSTPT4=PT4 O LINE 395 "regression-compile-tmp/gammon.imp" @ PUSH BSTMOV2 @ PUSH DICE2 S ASSVAL O LINE 395 "regression-compile-tmp/gammon.imp" @ PUSH BSTPT2 @ PUSH PT2 S ASSVAL O LINE 395 "regression-compile-tmp/gammon.imp" @ PUSH BSTPT3 @ PUSH PT3 S ASSVAL O LINE 395 "regression-compile-tmp/gammon.imp" @ PUSH BSTPT4 @ PUSH PT4 S ASSVAL 396 %FINISH O LINE 396 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 397 %END 398 399 O LINE 397 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_GBRD {lev=2 --> 1} 400 %ROUTINE MTSTMOV (%INTEGER P,D,%INTEGERNAME BP) O LINE 400 "regression-compile-tmp/gammon.imp" $ DEF MTSTMOV (_BACKGAMMON_MTSTMOV) p1=V_0114 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF P p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF BP p1=V_0117 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 401 BOARD(P)_WS=BOARD(P)_WS-1 O LINE 401 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 402 BOARD(P+D)_WS=BOARD(P+D)_WS+1 O LINE 402 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 403 %IF BOARD(P+D)_BS=1 %THEN BOARD(P+D)_BS=0 %C 404 %AND BOARD(25)_BS=BOARD(25)_BS+1 %AND BP=1 O LINE 403 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 2 N PUSHI #0x00000000 S ASSVAL @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000001 + ADD S ASSVAL @ PUSH BP N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 405 %END 406 O LINE 405 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_MTSTMOV {lev=2 --> 1} 407 %ROUTINE CLTSTMOV (%INTEGER P,D,%INTEGERNAME BP) O LINE 407 "regression-compile-tmp/gammon.imp" $ DEF CLTSTMOV (_BACKGAMMON_CLTSTMOV) p1=V_0115 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF P p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF BP p1=V_0118 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 408 BOARD(P)_WS=BOARD(P)_WS+1 O LINE 408 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 409 BOARD(P+D)_WS=BOARD(P+D)_WS-1 O LINE 409 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 410 %IF BP=1 %THEN BOARD(P+D)_BS=1 %AND BOARD(25)_BS=BOARD(25)_BS-1 %C 411 %AND BP=0 O LINE 410 "regression-compile-tmp/gammon.imp" @ PUSH BP N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 2 N PUSHI #0x00000001 S ASSVAL @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 N PUSHI #0x00000001 - SUB S ASSVAL @ PUSH BP N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 412 %END 413 O LINE 412 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_CLTSTMOV {lev=2 --> 1} 414 %ROUTINE MMOVE (%INTEGER P,D) O LINE 414 "regression-compile-tmp/gammon.imp" $ DEF MMOVE (_BACKGAMMON_MMOVE) p1=V_0116 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF P p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF D p1=V_0118 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 415 BOARD(P)_WS=BOARD(P)_WS-1 O LINE 415 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 416 BOARD(P+D)_WS=BOARD(P+D)_WS+1 O LINE 416 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 417 BOARD(25)_BS=BOARD(25)_BS+BOARD(P+D)_BS O LINE 417 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD N PUSHI #0x00000019 a ACCESS n SELECT 2 @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 2 + ADD S ASSVAL 418 BOARD(P+D)_BS=0 O LINE 418 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH P @ PUSH D + ADD a ACCESS n SELECT 2 N PUSHI #0x00000000 S ASSVAL 419 %END 420 O LINE 419 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_MMOVE {lev=2 --> 1} 421 %ROUTINE GOOD (%INTEGERNAME S,WT) O LINE 421 "regression-compile-tmp/gammon.imp" $ DEF GOOD (_BACKGAMMON_GOOD) p1=V_0117 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF S p1=V_0118 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF WT p1=V_0119 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 422 %IF S=0 %THENRETURN O LINE 422 "regression-compile-tmp/gammon.imp" @ PUSH S N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 423 %IF S<0 %THEN WT=WT-1 %ELSE WT=WT+1 O LINE 423 "regression-compile-tmp/gammon.imp" @ PUSH S N PUSHI #0x00000000 ? JUMPIF >= L_0004 @ PUSH WT @ PUSH WT N PUSHI #0x00000001 - SUB S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH WT @ PUSH WT N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0003 424 %END 425 O LINE 424 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_GOOD {lev=2 --> 1} 426 %ROUTINE BAD (%INTEGERNAME S,WT) O LINE 426 "regression-compile-tmp/gammon.imp" $ DEF BAD (_BACKGAMMON_BAD) p1=V_0118 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF S p1=V_0119 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF WT p1=V_011a a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 427 %IF S=0 %THENRETURN O LINE 427 "regression-compile-tmp/gammon.imp" @ PUSH S N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 428 %IF S>0 %THEN WT=WT-1 %ELSE WT=WT+1 O LINE 428 "regression-compile-tmp/gammon.imp" @ PUSH S N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH WT @ PUSH WT N PUSHI #0x00000001 - SUB S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH WT @ PUSH WT N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0003 429 %END 430 O LINE 429 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_BAD {lev=2 --> 1} 431 %ROUTINE LOADWTS O LINE 431 "regression-compile-tmp/gammon.imp" $ DEF LOADWTS (_BACKGAMMON_LOADWTS) p1=V_0119 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 432 W1 = 19 O LINE 432 "regression-compile-tmp/gammon.imp" @ PUSH W1 N PUSHI #0x00000013 S ASSVAL 433 W2 = 117 O LINE 433 "regression-compile-tmp/gammon.imp" @ PUSH W2 N PUSHI #0x00000075 S ASSVAL 434 W3 = 102 O LINE 434 "regression-compile-tmp/gammon.imp" @ PUSH W3 N PUSHI #0x00000066 S ASSVAL 435 W4 = 15 O LINE 435 "regression-compile-tmp/gammon.imp" @ PUSH W4 N PUSHI #0x0000000f S ASSVAL 436 W5 = 15 O LINE 436 "regression-compile-tmp/gammon.imp" @ PUSH W5 N PUSHI #0x0000000f S ASSVAL 437 W6 = 12 O LINE 437 "regression-compile-tmp/gammon.imp" @ PUSH W6 N PUSHI #0x0000000c S ASSVAL 438 W7 = 64 O LINE 438 "regression-compile-tmp/gammon.imp" @ PUSH W7 N PUSHI #0x00000040 S ASSVAL 439 W8 = 43 O LINE 439 "regression-compile-tmp/gammon.imp" @ PUSH W8 N PUSHI #0x0000002b S ASSVAL 440 W9 = 62 O LINE 440 "regression-compile-tmp/gammon.imp" @ PUSH W9 N PUSHI #0x0000003e S ASSVAL 441 W10 = 15 O LINE 441 "regression-compile-tmp/gammon.imp" @ PUSH W10 N PUSHI #0x0000000f S ASSVAL 442 %END 443 O LINE 442 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_LOADWTS {lev=2 --> 1} 444 %ROUTINE DUMPWTS O LINE 444 "regression-compile-tmp/gammon.imp" $ DEF DUMPWTS (_BACKGAMMON_DUMPWTS) p1=V_011a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 445 SELECTOUTPUT(2) O LINE 445 "regression-compile-tmp/gammon.imp" @ PUSH SELECTOUTPUT N PUSHI #0x00000002 p ASSPAR E CALL 446 NEWLINES(3); WRITE(W1,1); NEWLINE; WRITE(W2,1) O LINE 446 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINES N PUSHI #0x00000003 p ASSPAR E CALL O LINE 446 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W1 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 446 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 446 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W2 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 447 NEWLINE; WRITE(W3,1); NEWLINE; WRITE(W4,1) O LINE 447 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 447 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W3 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 447 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 447 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W4 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 448 NEWLINE; WRITE(W5,1); NEWLINE; WRITE(W6,1) O LINE 448 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 448 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W5 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 448 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 448 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W6 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 449 NEWLINE; WRITE(W7,1); NEWLINE; WRITE(W8,1) O LINE 449 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 449 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W7 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 449 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 449 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W8 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 450 NEWLINE; WRITE(W9,1); NEWLINE; WRITE(W10,1) O LINE 450 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 450 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W9 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 450 "regression-compile-tmp/gammon.imp" @ PUSH NEWLINE E CALL O LINE 450 "regression-compile-tmp/gammon.imp" @ PUSH WRITE @ PUSH W10 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 451 %END 452 O LINE 451 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_DUMPWTS {lev=2 --> 1} 453 %INTEGERFN WBEARO O LINE 453 "regression-compile-tmp/gammon.imp" $ DEF WBEARO (_BACKGAMMON_WBEARO) p1=V_011b a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 454 %INTEGER I,J; J=WBOFF O LINE 454 "regression-compile-tmp/gammon.imp" $ DEF I p1=V_011c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 O LINE 454 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH WBOFF S ASSVAL 455 %CYCLE I=19,1,24 O LINE 455 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0003 456 J=J+BOARD(I)_WS O LINE 456 "regression-compile-tmp/gammon.imp" @ PUSH J @ PUSH J @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 + ADD S ASSVAL 457 %REPEAT O LINE 457 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 458 %RESULT = J O LINE 458 "regression-compile-tmp/gammon.imp" @ PUSH J V RESULT 459 %END 460 O LINE 459 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_WBEARO {lev=2 --> 1} 461 %ROUTINE DOBEST(%INTEGER D) O LINE 461 "regression-compile-tmp/gammon.imp" $ DEF DOBEST (_BACKGAMMON_DOBEST) p1=V_011c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF D p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 462 %IF D#0 %THENSTART O LINE 462 "regression-compile-tmp/gammon.imp" @ PUSH D N PUSHI #0x00000000 ? JUMPIF = L_0004 463 %IF BOARD(25-D)_WS>0 %THENSTART O LINE 463 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0007 464 BOARD(25-D)_WS=BOARD(25-D)_WS-1 O LINE 464 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 465 WBOFF=WBOFF+1 O LINE 465 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL 466 %FINISHELSESTART O LINE 466 "regression-compile-tmp/gammon.imp" F GOTO L_0006 : LOCATE L_0007 467 %IF BOARD(25-D+1)_WS>0 %THENSTART O LINE 467 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000a 468 BOARD(25-D+1)_WS=BOARD(25-D+1)_WS-1 O LINE 468 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH D - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 469 WBOFF=WBOFF+1 O LINE 469 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL 470 %FINISHELSESTART O LINE 470 "regression-compile-tmp/gammon.imp" F GOTO L_0009 : LOCATE L_000a 471 %CYCLE M=19,1,25-D O LINE 471 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000019 @ PUSH D - SUB N PUSHI #0x00000013 f FOR L_000c 472 %IF WBOFF<8 %THENSTART O LINE 472 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF N PUSHI #0x00000008 ? JUMPIF >= L_0010 473 %IF BOARD(M)_WS>2 %THEN MMOVE(M,D) %ANDRETURN O LINE 473 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000002 ? JUMPIF <= L_0013 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH D p ASSPAR E CALL R RETURN : LOCATE L_0013 474 %FINISHELSESTART O LINE 474 "regression-compile-tmp/gammon.imp" F GOTO L_000f : LOCATE L_0010 475 %IF BOARD(M)_WS>1 %THEN MMOVE(M,D) %ANDRETURN O LINE 475 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0013 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH D p ASSPAR E CALL R RETURN : LOCATE L_0013 476 %FINISH O LINE 476 "regression-compile-tmp/gammon.imp" : LOCATE L_000f 477 %REPEAT O LINE 477 "regression-compile-tmp/gammon.imp" B REPEAT L_000c : LOCATE L_000d 478 %CYCLE M=19,1,24 O LINE 478 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_000c 479 %IF DICE2+M<25 %THENSTART O LINE 479 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH M + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0010 480 %IF BOARD(M)_WS>0 %THEN MMOVE(M,DICE2) %ANDRETURN O LINE 480 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0013 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE2 p ASSPAR E CALL R RETURN : LOCATE L_0013 481 %FINISHELSESTART O LINE 481 "regression-compile-tmp/gammon.imp" F GOTO L_000f : LOCATE L_0010 482 %IF BOARD(M)_WS>0 %THENSTART O LINE 482 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0013 483 BOARD(M)_WS=BOARD(M)_WS-1 O LINE 483 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 484 WBOFF=WBOFF+1; %RETURN O LINE 484 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL O LINE 484 "regression-compile-tmp/gammon.imp" R RETURN 485 %FINISH O LINE 485 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 486 %FINISH O LINE 486 "regression-compile-tmp/gammon.imp" : LOCATE L_000f 487 %REPEAT O LINE 487 "regression-compile-tmp/gammon.imp" B REPEAT L_000c : LOCATE L_000d 488 %FINISH O LINE 488 "regression-compile-tmp/gammon.imp" : LOCATE L_0009 489 %FINISH O LINE 489 "regression-compile-tmp/gammon.imp" : LOCATE L_0006 490 %FINISH O LINE 490 "regression-compile-tmp/gammon.imp" : LOCATE L_0004 491 %END 492 O LINE 491 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_DOBEST {lev=2 --> 1} 493 %ROUTINE MTSTBOFF(%INTEGER NUM,DIE) O LINE 493 "regression-compile-tmp/gammon.imp" $ DEF MTSTBOFF (_BACKGAMMON_MTSTBOFF) p1=V_011d a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF NUM p1=V_011e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF DIE p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 494 %IF NUM+DIE<25 %THENSTART O LINE 494 "regression-compile-tmp/gammon.imp" @ PUSH NUM @ PUSH DIE + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0004 495 %IF BOARD(NUM+DIE)_BS=0 %THEN MMOVE(NUM,DIE) %ELSE NOMOV=1 O LINE 495 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH NUM @ PUSH DIE + ADD a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH MMOVE @ PUSH NUM p ASSPAR @ PUSH DIE p ASSPAR E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH NOMOV N PUSHI #0x00000001 S ASSVAL : LOCATE L_0006 496 %FINISHELSESTART O LINE 496 "regression-compile-tmp/gammon.imp" F GOTO L_0003 : LOCATE L_0004 497 BOARD(NUM)_WS=BOARD(NUM)_WS-1 O LINE 497 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH NUM a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH NUM a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 498 WBOFF=WBOFF+1 O LINE 498 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL 499 %FINISH O LINE 499 "regression-compile-tmp/gammon.imp" : LOCATE L_0003 500 %END 501 O LINE 500 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_MTSTBOFF {lev=2 --> 1} 502 %ROUTINE CLTSTBOFF(%INTEGER NUM,DIE) O LINE 502 "regression-compile-tmp/gammon.imp" $ DEF CLTSTBOFF (_BACKGAMMON_CLTSTBOFF) p1=V_011e a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF NUM p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF DIE p1=V_0120 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 503 TEMP=0 O LINE 503 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000000 S ASSVAL 504 %IF NUM+DIE<25 %THEN CLTSTMOV(NUM,DIE,TEMP) %ELSESTART O LINE 504 "regression-compile-tmp/gammon.imp" @ PUSH NUM @ PUSH DIE + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0004 @ PUSH CLTSTMOV @ PUSH NUM p ASSPAR @ PUSH DIE p ASSPAR @ PUSH TEMP p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 505 BOARD(NUM)_WS=BOARD(NUM)_WS+1 O LINE 505 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH NUM a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH NUM a ACCESS n SELECT 1 N PUSHI #0x00000001 + ADD S ASSVAL 506 WBOFF=WBOFF-1 O LINE 506 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 - SUB S ASSVAL 507 %FINISH O LINE 507 "regression-compile-tmp/gammon.imp" : LOCATE L_0003 508 %END 509 510 ! 511 ! 512 ! O LINE 508 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON_CLTSTBOFF {lev=2 --> 1} 513 LOADWTS O LINE 513 "regression-compile-tmp/gammon.imp" @ PUSH LOADWTS E CALL 514 SELECTINPUT(0) O LINE 514 "regression-compile-tmp/gammon.imp" @ PUSH SELECTINPUT N PUSHI #0x00000000 p ASSPAR E CALL 515 CLOSESTREAM(1) O LINE 515 "regression-compile-tmp/gammon.imp" @ PUSH CLOSESTREAM N PUSHI #0x00000001 p ASSPAR E CALL 516 INITIALIZE O LINE 516 "regression-compile-tmp/gammon.imp" @ PUSH INITIALIZE E CALL 517 PRINTSTATE O LINE 517 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTATE E CALL 518 STRT: %CYCLE O LINE 518 "regression-compile-tmp/gammon.imp" L LABEL L_011f O LINE 518 "regression-compile-tmp/gammon.imp" : LOCATE L_0003 519 READ(DICE1); READ(DICE2); BSTVAL=X'80000000' O LINE 519 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH DICE1 p ASSPAR E CALL O LINE 519 "regression-compile-tmp/gammon.imp" @ PUSH READ @ PUSH DICE2 p ASSPAR E CALL O LINE 519 "regression-compile-tmp/gammon.imp" @ PUSH BSTVAL N PUSHI #0x80000000 S ASSVAL 520 %IF DICE1=DICE2 %THEN DICE3=DICE1 %AND DICE4=DICE2 %C 521 %ELSE DICE3=0 %AND DICE4=0 O LINE 520 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_0007 @ PUSH DICE3 @ PUSH DICE1 S ASSVAL @ PUSH DICE4 @ PUSH DICE2 S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH DICE3 N PUSHI #0x00000000 S ASSVAL @ PUSH DICE4 N PUSHI #0x00000000 S ASSVAL : LOCATE L_0006 522 RUNNING=0 O LINE 522 "regression-compile-tmp/gammon.imp" @ PUSH RUNNING N PUSHI #0x00000000 S ASSVAL 523 %IF WBEARO=15 %THEN -> BEAROFF O LINE 523 "regression-compile-tmp/gammon.imp" @ PUSH WBEARO E CALL N PUSHI #0x0000000f ? JUMPIF # L_0007 J JUMP L_0120 : LOCATE L_0007 524 TEMP=BBOFF O LINE 524 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH BBOFF S ASSVAL 525 %CYCLE L=0,1,24 O LINE 525 "regression-compile-tmp/gammon.imp" @ PUSH L N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000000 f FOR L_0006 526 %IF BOARD(L)_WS>0 %THENEXIT O LINE 526 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH L a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000a F GOTO L_0007 : LOCATE L_000a 527 TEMP=TEMP+BOARD(L)_BS O LINE 527 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH TEMP @ PUSH BOARD @ PUSH L a ACCESS n SELECT 2 + ADD S ASSVAL 528 %REPEAT O LINE 528 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 529 %IF TEMP=15 %THEN RUNNING=1 %AND -> RUN O LINE 529 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x0000000f ? JUMPIF # L_0007 @ PUSH RUNNING N PUSHI #0x00000001 S ASSVAL J JUMP L_0121 : LOCATE L_0007 530 M1=0;M2=0;M3=0;M4=0;BARFL=0 O LINE 530 "regression-compile-tmp/gammon.imp" @ PUSH M1 N PUSHI #0x00000000 S ASSVAL O LINE 530 "regression-compile-tmp/gammon.imp" @ PUSH M2 N PUSHI #0x00000000 S ASSVAL O LINE 530 "regression-compile-tmp/gammon.imp" @ PUSH M3 N PUSHI #0x00000000 S ASSVAL O LINE 530 "regression-compile-tmp/gammon.imp" @ PUSH M4 N PUSHI #0x00000000 S ASSVAL O LINE 530 "regression-compile-tmp/gammon.imp" @ PUSH BARFL N PUSHI #0x00000000 S ASSVAL 531 %IF WBAR>0 %THENSTART O LINE 531 "regression-compile-tmp/gammon.imp" @ PUSH WBAR E CALL N PUSHI #0x00000000 ? JUMPIF <= L_0007 532 %IF WBAR>1 %THENSTART O LINE 532 "regression-compile-tmp/gammon.imp" @ PUSH WBAR E CALL N PUSHI #0x00000001 ? JUMPIF <= L_000a 533 %IF BOARD(DICE1)_BS<2 %THEN MMOVE(0,DICE1) O LINE 533 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH DICE1 a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_000d @ PUSH MMOVE N PUSHI #0x00000000 p ASSPAR @ PUSH DICE1 p ASSPAR E CALL : LOCATE L_000d 534 %IF BOARD(DICE2)_BS<2 %THEN MMOVE(0,DICE2) O LINE 534 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH DICE2 a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_000d @ PUSH MMOVE N PUSHI #0x00000000 p ASSPAR @ PUSH DICE2 p ASSPAR E CALL : LOCATE L_000d 535 -> DONE O LINE 535 "regression-compile-tmp/gammon.imp" J JUMP L_0122 536 %FINISH O LINE 536 "regression-compile-tmp/gammon.imp" : LOCATE L_000a 537 %IF BOARD(DICE1)_BS>1 %AND BOARD(DICE2)_BS>1 %THEN -> DONE O LINE 537 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH DICE1 a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_000a @ PUSH BOARD @ PUSH DICE2 a ACCESS n SELECT 2 N PUSHI #0x00000001 ? JUMPIF <= L_000a J JUMP L_0122 : LOCATE L_000a 538 BARFL=1 O LINE 538 "regression-compile-tmp/gammon.imp" @ PUSH BARFL N PUSHI #0x00000001 S ASSVAL 539 %FINISH O LINE 539 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 540 %CYCLE K=1,1,2 O LINE 540 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 N PUSHI #0x00000002 N PUSHI #0x00000001 f FOR L_0006 541 %IF K=1 %THEN SECOND=0 %ELSESTART O LINE 541 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH SECOND N PUSHI #0x00000000 S ASSVAL F GOTO L_0009 : LOCATE L_000a 542 TEMP=DICE1; DICE1=DICE2; DICE2=TEMP; SECOND=1 O LINE 542 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH DICE1 S ASSVAL O LINE 542 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 S ASSVAL O LINE 542 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH TEMP S ASSVAL O LINE 542 "regression-compile-tmp/gammon.imp" @ PUSH SECOND N PUSHI #0x00000001 S ASSVAL 543 %FINISH O LINE 543 "regression-compile-tmp/gammon.imp" : LOCATE L_0009 544 %CYCLE I=0,1,23 O LINE 544 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000017 N PUSHI #0x00000000 f FOR L_0009 545 %IF BOARD(I)_WS>0 %THEN PT1=I %ELSE -> CYC1 O LINE 545 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000d @ PUSH PT1 @ PUSH I S ASSVAL F GOTO L_000c : LOCATE L_000d J JUMP L_0123 : LOCATE L_000c 546 %IF PT1+DICE1<25 %AND BOARD(PT1+DICE1)_BS<2 %THENSTART O LINE 546 "regression-compile-tmp/gammon.imp" @ PUSH PT1 @ PUSH DICE1 + ADD N PUSHI #0x00000019 ? JUMPIF >= L_000d @ PUSH BOARD @ PUSH PT1 @ PUSH DICE1 + ADD a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_000d 547 MTSTMOV(PT1,DICE1,BARPT1); M1=1 O LINE 547 "regression-compile-tmp/gammon.imp" @ PUSH MTSTMOV @ PUSH PT1 p ASSPAR @ PUSH DICE1 p ASSPAR @ PUSH BARPT1 p ASSPAR E CALL O LINE 547 "regression-compile-tmp/gammon.imp" @ PUSH M1 N PUSHI #0x00000001 S ASSVAL 548 %IF WBEARO=15 %THEN DICE1=0 %AND -> BEAROFF O LINE 548 "regression-compile-tmp/gammon.imp" @ PUSH WBEARO E CALL N PUSHI #0x0000000f ? JUMPIF # L_0010 @ PUSH DICE1 N PUSHI #0x00000000 S ASSVAL J JUMP L_0120 : LOCATE L_0010 549 %IF SECOND=1 %THEN N=I+1 %ELSE N=I O LINE 549 "regression-compile-tmp/gammon.imp" @ PUSH SECOND N PUSHI #0x00000001 ? JUMPIF # L_0010 @ PUSH N @ PUSH I N PUSHI #0x00000001 + ADD S ASSVAL F GOTO L_000f : LOCATE L_0010 @ PUSH N @ PUSH I S ASSVAL : LOCATE L_000f 550 %CYCLE J=N,1,24 O LINE 550 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000018 @ PUSH N f FOR L_000f 551 %IF BOARD(J)_WS>0 %THEN PT2=J %ELSE -> CYC2 O LINE 551 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0013 @ PUSH PT2 @ PUSH J S ASSVAL F GOTO L_0012 : LOCATE L_0013 J JUMP L_0124 : LOCATE L_0012 552 %IF PT2+DICE2<25 %AND BOARD(PT2+DICE2)_BS<2 %THENSTART O LINE 552 "regression-compile-tmp/gammon.imp" @ PUSH PT2 @ PUSH DICE2 + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0013 @ PUSH BOARD @ PUSH PT2 @ PUSH DICE2 + ADD a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_0013 553 MTSTMOV(PT2,DICE2,BARPT2); M2=1 O LINE 553 "regression-compile-tmp/gammon.imp" @ PUSH MTSTMOV @ PUSH PT2 p ASSPAR @ PUSH DICE2 p ASSPAR @ PUSH BARPT2 p ASSPAR E CALL O LINE 553 "regression-compile-tmp/gammon.imp" @ PUSH M2 N PUSHI #0x00000001 S ASSVAL 554 %IF DICE1=DICE2 %THENSTART O LINE 554 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_0016 555 %IF WBEARO=15 %THEN DICE2=0 %AND DICE1=0 %AND -> BEAROFF O LINE 555 "regression-compile-tmp/gammon.imp" @ PUSH WBEARO E CALL N PUSHI #0x0000000f ? JUMPIF # L_0019 @ PUSH DICE2 N PUSHI #0x00000000 S ASSVAL @ PUSH DICE1 N PUSHI #0x00000000 S ASSVAL J JUMP L_0120 : LOCATE L_0019 556 %CYCLE G=J,1,23 O LINE 556 "regression-compile-tmp/gammon.imp" @ PUSH G N PUSHI #0x00000001 N PUSHI #0x00000017 @ PUSH J f FOR L_0018 557 %IF BOARD(G)_WS>0 %THEN PT3=G %ELSE -> CYC3 O LINE 557 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH G a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_001c @ PUSH PT3 @ PUSH G S ASSVAL F GOTO L_001b : LOCATE L_001c J JUMP L_0125 : LOCATE L_001b 558 %IF PT3+DICE1<25 %AND BOARD(PT3+DICE1)_BS<2 %C 559 %THENSTART O LINE 558 "regression-compile-tmp/gammon.imp" @ PUSH PT3 @ PUSH DICE1 + ADD N PUSHI #0x00000019 ? JUMPIF >= L_001c @ PUSH BOARD @ PUSH PT3 @ PUSH DICE1 + ADD a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_001c 560 MTSTMOV(PT3,DICE1,BARPT3); M3=1 O LINE 560 "regression-compile-tmp/gammon.imp" @ PUSH MTSTMOV @ PUSH PT3 p ASSPAR @ PUSH DICE1 p ASSPAR @ PUSH BARPT3 p ASSPAR E CALL O LINE 560 "regression-compile-tmp/gammon.imp" @ PUSH M3 N PUSHI #0x00000001 S ASSVAL 561 %IF WBEARO=15 %THEN DICE1=0 %AND DICE2=0 %C 562 %AND DICE3=0 %AND -> BEAROFF O LINE 561 "regression-compile-tmp/gammon.imp" @ PUSH WBEARO E CALL N PUSHI #0x0000000f ? JUMPIF # L_001f @ PUSH DICE1 N PUSHI #0x00000000 S ASSVAL @ PUSH DICE2 N PUSHI #0x00000000 S ASSVAL @ PUSH DICE3 N PUSHI #0x00000000 S ASSVAL J JUMP L_0120 : LOCATE L_001f 563 %CYCLE H=G,1,23 O LINE 563 "regression-compile-tmp/gammon.imp" @ PUSH H N PUSHI #0x00000001 N PUSHI #0x00000017 @ PUSH G f FOR L_001e 564 %IF BOARD(H)_WS>0 %THEN PT4=H %ELSE -> CYC4 O LINE 564 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH H a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0022 @ PUSH PT4 @ PUSH H S ASSVAL F GOTO L_0021 : LOCATE L_0022 J JUMP L_0126 : LOCATE L_0021 565 %IF PT4+DICE2<25 %AND BOARD(PT4+DICE2)_BS<2 %C 566 %THENSTART O LINE 565 "regression-compile-tmp/gammon.imp" @ PUSH PT4 @ PUSH DICE2 + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0022 @ PUSH BOARD @ PUSH PT4 @ PUSH DICE2 + ADD a ACCESS n SELECT 2 N PUSHI #0x00000002 ? JUMPIF >= L_0022 567 MTSTMOV(PT4,DICE2,BARPT4); M4=1 O LINE 567 "regression-compile-tmp/gammon.imp" @ PUSH MTSTMOV @ PUSH PT4 p ASSPAR @ PUSH DICE2 p ASSPAR @ PUSH BARPT4 p ASSPAR E CALL O LINE 567 "regression-compile-tmp/gammon.imp" @ PUSH M4 N PUSHI #0x00000001 S ASSVAL 568 GBRD O LINE 568 "regression-compile-tmp/gammon.imp" @ PUSH GBRD E CALL 569 CLTSTMOV(PT4,DICE2,BARPT4) O LINE 569 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTMOV @ PUSH PT4 p ASSPAR @ PUSH DICE2 p ASSPAR @ PUSH BARPT4 p ASSPAR E CALL 570 %FINISH O LINE 570 "regression-compile-tmp/gammon.imp" : LOCATE L_0022 571 CYC4: %REPEAT O LINE 571 "regression-compile-tmp/gammon.imp" L LABEL L_0126 O LINE 571 "regression-compile-tmp/gammon.imp" B REPEAT L_001e : LOCATE L_001f 572 %IF M4=0 %THEN GBRD %AND BSTVAL=X'80000000' O LINE 572 "regression-compile-tmp/gammon.imp" @ PUSH M4 N PUSHI #0x00000000 ? JUMPIF # L_001f @ PUSH GBRD E CALL @ PUSH BSTVAL N PUSHI #0x80000000 S ASSVAL : LOCATE L_001f 573 CLTSTMOV(PT3,DICE1,BARPT3) O LINE 573 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTMOV @ PUSH PT3 p ASSPAR @ PUSH DICE1 p ASSPAR @ PUSH BARPT3 p ASSPAR E CALL 574 %FINISH O LINE 574 "regression-compile-tmp/gammon.imp" : LOCATE L_001c 575 CYC3: %REPEAT O LINE 575 "regression-compile-tmp/gammon.imp" L LABEL L_0125 O LINE 575 "regression-compile-tmp/gammon.imp" B REPEAT L_0018 : LOCATE L_0019 576 %IF M3=0 %THEN GBRD %AND BSTVAL=X'80000000' O LINE 576 "regression-compile-tmp/gammon.imp" @ PUSH M3 N PUSHI #0x00000000 ? JUMPIF # L_0019 @ PUSH GBRD E CALL @ PUSH BSTVAL N PUSHI #0x80000000 S ASSVAL : LOCATE L_0019 577 %FINISHELSE GBRD O LINE 577 "regression-compile-tmp/gammon.imp" F GOTO L_0015 : LOCATE L_0016 @ PUSH GBRD E CALL : LOCATE L_0015 578 CLTSTMOV(PT2,DICE2,BARPT2) O LINE 578 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTMOV @ PUSH PT2 p ASSPAR @ PUSH DICE2 p ASSPAR @ PUSH BARPT2 p ASSPAR E CALL 579 %FINISH O LINE 579 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 580 CYC2: %REPEAT O LINE 580 "regression-compile-tmp/gammon.imp" L LABEL L_0124 O LINE 580 "regression-compile-tmp/gammon.imp" B REPEAT L_000f : LOCATE L_0010 581 %IF M2=0 %THEN GBRD %AND BSTVAL=X'80000000' O LINE 581 "regression-compile-tmp/gammon.imp" @ PUSH M2 N PUSHI #0x00000000 ? JUMPIF # L_0010 @ PUSH GBRD E CALL @ PUSH BSTVAL N PUSHI #0x80000000 S ASSVAL : LOCATE L_0010 582 CLTSTMOV(PT1,DICE1,BARPT1) O LINE 582 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTMOV @ PUSH PT1 p ASSPAR @ PUSH DICE1 p ASSPAR @ PUSH BARPT1 p ASSPAR E CALL 583 %FINISH O LINE 583 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 584 %EXITIF BARFL=1 O LINE 584 "regression-compile-tmp/gammon.imp" @ PUSH BARFL N PUSHI #0x00000001 ? JUMPIF # L_000d F GOTO L_000a : LOCATE L_000d 585 CYC1: %REPEAT O LINE 585 "regression-compile-tmp/gammon.imp" L LABEL L_0123 O LINE 585 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 586 %EXITIF DICE1=DICE2 O LINE 586 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_000a F GOTO L_0007 : LOCATE L_000a 587 %REPEAT O LINE 587 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 588 %IF M1=1 %THEN MMOVE(BSTPT1,BSTMOV1) O LINE 588 "regression-compile-tmp/gammon.imp" @ PUSH M1 N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH MMOVE @ PUSH BSTPT1 p ASSPAR @ PUSH BSTMOV1 p ASSPAR E CALL : LOCATE L_0007 589 %IF M2=1 %THEN MMOVE(BSTPT2,BSTMOV2) O LINE 589 "regression-compile-tmp/gammon.imp" @ PUSH M2 N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH MMOVE @ PUSH BSTPT2 p ASSPAR @ PUSH BSTMOV2 p ASSPAR E CALL : LOCATE L_0007 590 %IF DICE1=DICE2 %THENSTART O LINE 590 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_0007 591 %IF M3=1 %THEN MMOVE(BSTPT3,BSTMOV1) O LINE 591 "regression-compile-tmp/gammon.imp" @ PUSH M3 N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH MMOVE @ PUSH BSTPT3 p ASSPAR @ PUSH BSTMOV1 p ASSPAR E CALL : LOCATE L_000a 592 %IF M4=1 %THEN MMOVE(BSTPT4,BSTMOV2) O LINE 592 "regression-compile-tmp/gammon.imp" @ PUSH M4 N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH MMOVE @ PUSH BSTPT4 p ASSPAR @ PUSH BSTMOV2 p ASSPAR E CALL : LOCATE L_000a 593 %FINISH O LINE 593 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 594 DONE: %IF WBOFF=15 %THEN PRINTSTRING("yeah") %AND NEWLINE %ANDEXIT O LINE 594 "regression-compile-tmp/gammon.imp" L LABEL L_0122 O LINE 594 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF N PUSHI #0x0000000f ? JUMPIF # L_0007 @ PUSH PRINTSTRING ' PUSHS "yeah" p ASSPAR E CALL @ PUSH NEWLINE E CALL F GOTO L_0004 : LOCATE L_0007 595 PRINTSTATE; DOBLACK O LINE 595 "regression-compile-tmp/gammon.imp" @ PUSH PRINTSTATE E CALL O LINE 595 "regression-compile-tmp/gammon.imp" @ PUSH DOBLACK E CALL 596 %IF BBOFF=15 %THEN PRINTSTRING("pity") %AND NEWLINE %ANDEXIT O LINE 596 "regression-compile-tmp/gammon.imp" @ PUSH BBOFF N PUSHI #0x0000000f ? JUMPIF # L_0007 @ PUSH PRINTSTRING ' PUSHS "pity" p ASSPAR E CALL @ PUSH NEWLINE E CALL F GOTO L_0004 : LOCATE L_0007 597 %IF RUNNING=1 %THEN -> STRT O LINE 597 "regression-compile-tmp/gammon.imp" @ PUSH RUNNING N PUSHI #0x00000001 ? JUMPIF # L_0007 J JUMP L_011f : LOCATE L_0007 598 GBRDVAL O LINE 598 "regression-compile-tmp/gammon.imp" @ PUSH GBRDVAL E CALL 599 %IF BRDVAL=COMPVAL %THEN -> STRT O LINE 599 "regression-compile-tmp/gammon.imp" @ PUSH BRDVAL @ PUSH COMPVAL ? JUMPIF # L_0007 J JUMP L_011f : LOCATE L_0007 600 %IF COMPVAL= L_0007 601 GOOD(BV1,W1); GOOD(BV2,W2); GOOD(BV3,W3); GOOD(BV4,W4) O LINE 601 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV1 p ASSPAR @ PUSH W1 p ASSPAR E CALL O LINE 601 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV2 p ASSPAR @ PUSH W2 p ASSPAR E CALL O LINE 601 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV3 p ASSPAR @ PUSH W3 p ASSPAR E CALL O LINE 601 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV4 p ASSPAR @ PUSH W4 p ASSPAR E CALL 602 GOOD(BV5,W5); GOOD(BV6,W6); GOOD(BV7,W7); GOOD(BV8,W8) O LINE 602 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV5 p ASSPAR @ PUSH W5 p ASSPAR E CALL O LINE 602 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV6 p ASSPAR @ PUSH W6 p ASSPAR E CALL O LINE 602 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV7 p ASSPAR @ PUSH W7 p ASSPAR E CALL O LINE 602 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV8 p ASSPAR @ PUSH W8 p ASSPAR E CALL 603 GOOD(BV9,W9); GOOD(BV10,W10) O LINE 603 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV9 p ASSPAR @ PUSH W9 p ASSPAR E CALL O LINE 603 "regression-compile-tmp/gammon.imp" @ PUSH GOOD @ PUSH BV10 p ASSPAR @ PUSH W10 p ASSPAR E CALL 604 %FINISHELSESTART O LINE 604 "regression-compile-tmp/gammon.imp" F GOTO L_0006 : LOCATE L_0007 605 BAD(BV1,W1); BAD(BV2,W2); BAD(BV3,W3); BAD(BV4,W4); BAD(BV5,W5) O LINE 605 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV1 p ASSPAR @ PUSH W1 p ASSPAR E CALL O LINE 605 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV2 p ASSPAR @ PUSH W2 p ASSPAR E CALL O LINE 605 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV3 p ASSPAR @ PUSH W3 p ASSPAR E CALL O LINE 605 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV4 p ASSPAR @ PUSH W4 p ASSPAR E CALL O LINE 605 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV5 p ASSPAR @ PUSH W5 p ASSPAR E CALL 606 BAD(BV6,W6); BAD(BV7,W7); BAD(BV8,W8); BAD(BV9,W9); BAD(BV10,W10) O LINE 606 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV6 p ASSPAR @ PUSH W6 p ASSPAR E CALL O LINE 606 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV7 p ASSPAR @ PUSH W7 p ASSPAR E CALL O LINE 606 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV8 p ASSPAR @ PUSH W8 p ASSPAR E CALL O LINE 606 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV9 p ASSPAR @ PUSH W9 p ASSPAR E CALL O LINE 606 "regression-compile-tmp/gammon.imp" @ PUSH BAD @ PUSH BV10 p ASSPAR @ PUSH W10 p ASSPAR E CALL 607 %FINISH O LINE 607 "regression-compile-tmp/gammon.imp" : LOCATE L_0006 608 COMPVAL=BRDVAL; -> STRT O LINE 608 "regression-compile-tmp/gammon.imp" @ PUSH COMPVAL @ PUSH BRDVAL S ASSVAL O LINE 608 "regression-compile-tmp/gammon.imp" J JUMP L_011f 609 RUN: %IF DICE2>DICE1 %THENSTART O LINE 609 "regression-compile-tmp/gammon.imp" L LABEL L_0121 O LINE 609 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH DICE1 ? JUMPIF <= L_0007 610 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP O LINE 610 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH DICE2 S ASSVAL O LINE 610 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH DICE1 S ASSVAL O LINE 610 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH TEMP S ASSVAL 611 %FINISH O LINE 611 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 612 TEMP=0 O LINE 612 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000000 S ASSVAL 613 %CYCLE I=1,1,18 O LINE 613 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000012 N PUSHI #0x00000001 f FOR L_0006 614 %IF BOARD(I)_WS>0 %THENSTART O LINE 614 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000a 615 MMOVE(I,DICE1); TEMP=1 O LINE 615 "regression-compile-tmp/gammon.imp" @ PUSH MMOVE @ PUSH I p ASSPAR @ PUSH DICE1 p ASSPAR E CALL O LINE 615 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000001 S ASSVAL 616 %CYCLE J=I,1,18 O LINE 616 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000012 @ PUSH I f FOR L_000c 617 %IF BOARD(J)_WS>0 %THENSTART O LINE 617 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0010 618 %IF DICE1#DICE2 %THEN MMOVE(J,DICE2) %C O LINE 618 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF = L_0013 @ PUSH MMOVE @ PUSH J p ASSPAR @ PUSH DICE2 p ASSPAR E CALL F GOTO L_0012 : LOCATE L_0013 @ PUSH MMOVE @ PUSH J p ASSPAR @ PUSH DICE1 p ASSPAR E CALL : LOCATE L_0012 619 %ELSE MMOVE(J,DICE1); TEMP=2 O LINE 619 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000002 S ASSVAL 620 %IF DICE1=DICE2 %THENSTART O LINE 620 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_0013 621 %CYCLE G=J,1,18 O LINE 621 "regression-compile-tmp/gammon.imp" @ PUSH G N PUSHI #0x00000001 N PUSHI #0x00000012 @ PUSH J f FOR L_0015 622 %IF BOARD(G)_WS>0 %THENSTART O LINE 622 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH G a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0019 623 MMOVE(G,DICE1); TEMP=3 O LINE 623 "regression-compile-tmp/gammon.imp" @ PUSH MMOVE @ PUSH G p ASSPAR @ PUSH DICE1 p ASSPAR E CALL O LINE 623 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000003 S ASSVAL 624 %CYCLE H=G,1,18 O LINE 624 "regression-compile-tmp/gammon.imp" @ PUSH H N PUSHI #0x00000001 N PUSHI #0x00000012 @ PUSH G f FOR L_001b 625 %IF BOARD(H)_WS>0 %THENSTART O LINE 625 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH H a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_001f 626 MMOVE(H,DICE2); TEMP=4 O LINE 626 "regression-compile-tmp/gammon.imp" @ PUSH MMOVE @ PUSH H p ASSPAR @ PUSH DICE2 p ASSPAR E CALL O LINE 626 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000004 S ASSVAL 627 %EXIT O LINE 627 "regression-compile-tmp/gammon.imp" F GOTO L_001c 628 %FINISH O LINE 628 "regression-compile-tmp/gammon.imp" : LOCATE L_001f 629 %REPEAT O LINE 629 "regression-compile-tmp/gammon.imp" B REPEAT L_001b : LOCATE L_001c 630 %EXIT O LINE 630 "regression-compile-tmp/gammon.imp" F GOTO L_0016 631 %FINISH O LINE 631 "regression-compile-tmp/gammon.imp" : LOCATE L_0019 632 %REPEAT O LINE 632 "regression-compile-tmp/gammon.imp" B REPEAT L_0015 : LOCATE L_0016 633 %FINISH O LINE 633 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 634 %EXIT O LINE 634 "regression-compile-tmp/gammon.imp" F GOTO L_000d 635 %FINISH O LINE 635 "regression-compile-tmp/gammon.imp" : LOCATE L_0010 636 %REPEAT O LINE 636 "regression-compile-tmp/gammon.imp" B REPEAT L_000c : LOCATE L_000d 637 %EXIT O LINE 637 "regression-compile-tmp/gammon.imp" F GOTO L_0007 638 %FINISH O LINE 638 "regression-compile-tmp/gammon.imp" : LOCATE L_000a 639 %REPEAT O LINE 639 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 640 %IF DICE1=DICE2 %AND TEMP=4 %THEN -> DONE O LINE 640 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF # L_0007 @ PUSH TEMP N PUSHI #0x00000004 ? JUMPIF # L_0007 J JUMP L_0122 : LOCATE L_0007 641 %IF DICE1#DICE2 %AND TEMP=2 %THEN -> DONE O LINE 641 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF = L_0007 @ PUSH TEMP N PUSHI #0x00000002 ? JUMPIF # L_0007 J JUMP L_0122 : LOCATE L_0007 642 %IF DICE1#DICE2 %THEN DICE1=0 %AND -> BEAROFF O LINE 642 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF = L_0007 @ PUSH DICE1 N PUSHI #0x00000000 S ASSVAL J JUMP L_0120 : LOCATE L_0007 643 DICE1=0 O LINE 643 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 N PUSHI #0x00000000 S ASSVAL 644 %IF TEMP>1 %THEN DICE2=0 O LINE 644 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH DICE2 N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 645 %IF TEMP>2 %THEN DICE3=0 O LINE 645 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x00000002 ? JUMPIF <= L_0007 @ PUSH DICE3 N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 646 BEAROFF: RUNNING=1 O LINE 646 "regression-compile-tmp/gammon.imp" L LABEL L_0120 O LINE 646 "regression-compile-tmp/gammon.imp" @ PUSH RUNNING N PUSHI #0x00000001 S ASSVAL 647 TEMP=WBOFF O LINE 647 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH WBOFF S ASSVAL 648 %CYCLE M=24,-1,19 O LINE 648 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000013 N PUSHI #0x00000018 f FOR L_0006 649 %IF BOARD(M)_BS>0 %THEN -> SAFETY O LINE 649 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 2 N PUSHI #0x00000000 ? JUMPIF <= L_000a J JUMP L_0127 : LOCATE L_000a 650 TEMP=TEMP+BOARD(M)_WS O LINE 650 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH TEMP @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 + ADD S ASSVAL 651 %IF TEMP=15 %THENEXIT O LINE 651 "regression-compile-tmp/gammon.imp" @ PUSH TEMP N PUSHI #0x0000000f ? JUMPIF # L_000a F GOTO L_0007 : LOCATE L_000a 652 %REPEAT O LINE 652 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 653 %IF DICE1>DICE2 %THENSTART O LINE 653 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE2 ? JUMPIF <= L_0007 654 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP O LINE 654 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH DICE2 S ASSVAL O LINE 654 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH DICE1 S ASSVAL O LINE 654 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH TEMP S ASSVAL 655 %FINISH O LINE 655 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 656 %IF DICE1#0 %THENSTART O LINE 656 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 N PUSHI #0x00000000 ? JUMPIF = L_0007 657 %IF BOARD(25-DICE1)_WS>0 %THENSTART O LINE 657 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000a 658 BOARD(25-DICE1)_WS=BOARD(25-DICE1)_WS-1 O LINE 658 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 659 WBOFF=WBOFF+1 O LINE 659 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL 660 %FINISHELSESTART O LINE 660 "regression-compile-tmp/gammon.imp" F GOTO L_0009 : LOCATE L_000a 661 %IF BOARD(25-DICE1+1)_WS>0 %THENSTART O LINE 661 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000d 662 BOARD(25-DICE1+1)_WS=BOARD(25-DICE1+1)_WS-1 O LINE 662 "regression-compile-tmp/gammon.imp" @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 @ PUSH BOARD N PUSHI #0x00000019 @ PUSH DICE1 - SUB N PUSHI #0x00000001 + ADD a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL 663 WBOFF=WBOFF+1 O LINE 663 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL 664 %FINISHELSESTART O LINE 664 "regression-compile-tmp/gammon.imp" F GOTO L_000c : LOCATE L_000d 665 %CYCLE M=19,1,25-DICE1 O LINE 665 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000019 @ PUSH DICE1 - SUB N PUSHI #0x00000013 f FOR L_000f 666 %IF WBOFF<8 %THENSTART O LINE 666 "regression-compile-tmp/gammon.imp" @ PUSH WBOFF N PUSHI #0x00000008 ? JUMPIF >= L_0013 667 %IF BOARD(M)_WS>2 %THEN MMOVE(M,DICE1) %AND -> SEC O LINE 667 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000002 ? JUMPIF <= L_0016 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE1 p ASSPAR E CALL J JUMP L_0128 : LOCATE L_0016 668 %FINISHELSESTART O LINE 668 "regression-compile-tmp/gammon.imp" F GOTO L_0012 : LOCATE L_0013 669 %IF BOARD(M)_WS>1 %THEN MMOVE(M,DICE1) %AND -> SEC O LINE 669 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0016 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE1 p ASSPAR E CALL J JUMP L_0128 : LOCATE L_0016 670 %FINISH O LINE 670 "regression-compile-tmp/gammon.imp" : LOCATE L_0012 671 %REPEAT O LINE 671 "regression-compile-tmp/gammon.imp" B REPEAT L_000f : LOCATE L_0010 672 %CYCLE M=19,1,24 O LINE 672 "regression-compile-tmp/gammon.imp" @ PUSH M N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_000f 673 %IF DICE2+M<25 %THENSTART O LINE 673 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH M + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0013 674 %IF BOARD(M)_WS>0 %THEN MMOVE(M,DICE1) %ANDEXIT O LINE 674 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0016 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE1 p ASSPAR E CALL F GOTO L_0010 : LOCATE L_0016 675 %FINISH O LINE 675 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 676 %IF M+DICE2=25 %THENSTART O LINE 676 "regression-compile-tmp/gammon.imp" @ PUSH M @ PUSH DICE2 + ADD N PUSHI #0x00000019 ? JUMPIF # L_0013 677 %IF BOARD(M)_WS>1 %THEN MMOVE(M,DICE1) %ANDEXIT O LINE 677 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000001 ? JUMPIF <= L_0016 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE1 p ASSPAR E CALL F GOTO L_0010 : LOCATE L_0016 678 %FINISH O LINE 678 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 679 %IF DICE2+M>25 %THENSTART O LINE 679 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH M + ADD N PUSHI #0x00000019 ? JUMPIF <= L_0013 680 %IF BOARD(M)_WS>0 %THENSTART O LINE 680 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0016 681 %IF M+DICE1<25 %THEN MMOVE(M,DICE1) %ELSE %C 682 WBOFF=WBOFF+1 %AND BOARD(M)_WS=BOARD(M)_WS-1 O LINE 681 "regression-compile-tmp/gammon.imp" @ PUSH M @ PUSH DICE1 + ADD N PUSHI #0x00000019 ? JUMPIF >= L_0019 @ PUSH MMOVE @ PUSH M p ASSPAR @ PUSH DICE1 p ASSPAR E CALL F GOTO L_0018 : LOCATE L_0019 @ PUSH WBOFF @ PUSH WBOFF N PUSHI #0x00000001 + ADD S ASSVAL @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 @ PUSH BOARD @ PUSH M a ACCESS n SELECT 1 N PUSHI #0x00000001 - SUB S ASSVAL : LOCATE L_0018 683 %EXIT O LINE 683 "regression-compile-tmp/gammon.imp" F GOTO L_0010 684 %FINISH O LINE 684 "regression-compile-tmp/gammon.imp" : LOCATE L_0016 685 %FINISH O LINE 685 "regression-compile-tmp/gammon.imp" : LOCATE L_0013 686 %REPEAT O LINE 686 "regression-compile-tmp/gammon.imp" B REPEAT L_000f : LOCATE L_0010 687 %FINISH O LINE 687 "regression-compile-tmp/gammon.imp" : LOCATE L_000c 688 %FINISH O LINE 688 "regression-compile-tmp/gammon.imp" : LOCATE L_0009 689 %FINISH O LINE 689 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 690 SEC: DOBEST(DICE2) O LINE 690 "regression-compile-tmp/gammon.imp" L LABEL L_0128 O LINE 690 "regression-compile-tmp/gammon.imp" @ PUSH DOBEST @ PUSH DICE2 p ASSPAR E CALL 691 %IF DICE4=0 %THEN ->DONE O LINE 691 "regression-compile-tmp/gammon.imp" @ PUSH DICE4 N PUSHI #0x00000000 ? JUMPIF # L_0007 J JUMP L_0122 : LOCATE L_0007 692 DOBEST(DICE3) O LINE 692 "regression-compile-tmp/gammon.imp" @ PUSH DOBEST @ PUSH DICE3 p ASSPAR E CALL 693 DOBEST(DICE4) O LINE 693 "regression-compile-tmp/gammon.imp" @ PUSH DOBEST @ PUSH DICE4 p ASSPAR E CALL 694 ->DONE O LINE 694 "regression-compile-tmp/gammon.imp" J JUMP L_0122 695 SAFETY: %IF DICE4#0 %THENSTART O LINE 695 "regression-compile-tmp/gammon.imp" L LABEL L_0127 O LINE 695 "regression-compile-tmp/gammon.imp" @ PUSH DICE4 N PUSHI #0x00000000 ? JUMPIF = L_0007 696 %IF DICE3=0 %THEN DICE1=DICE4 %AND DICE4=0 %ELSESTART O LINE 696 "regression-compile-tmp/gammon.imp" @ PUSH DICE3 N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH DICE1 @ PUSH DICE4 S ASSVAL @ PUSH DICE4 N PUSHI #0x00000000 S ASSVAL F GOTO L_0009 : LOCATE L_000a 697 %IF DICE2=0 %THENSTART O LINE 697 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 N PUSHI #0x00000000 ? JUMPIF # L_000d 698 DICE1=DICE4; DICE4=0; DICE2=DICE3; DICE3=0 O LINE 698 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH DICE4 S ASSVAL O LINE 698 "regression-compile-tmp/gammon.imp" @ PUSH DICE4 N PUSHI #0x00000000 S ASSVAL O LINE 698 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH DICE3 S ASSVAL O LINE 698 "regression-compile-tmp/gammon.imp" @ PUSH DICE3 N PUSHI #0x00000000 S ASSVAL 699 %FINISHELSESTART O LINE 699 "regression-compile-tmp/gammon.imp" F GOTO L_000c : LOCATE L_000d 700 %IF DICE1=0 %THEN DICE1=DICE4 %AND DICE4=0 O LINE 700 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 N PUSHI #0x00000000 ? JUMPIF # L_0010 @ PUSH DICE1 @ PUSH DICE4 S ASSVAL @ PUSH DICE4 N PUSHI #0x00000000 S ASSVAL : LOCATE L_0010 701 %FINISH O LINE 701 "regression-compile-tmp/gammon.imp" : LOCATE L_000c 702 %FINISH O LINE 702 "regression-compile-tmp/gammon.imp" : LOCATE L_0009 703 %FINISHELSESTART O LINE 703 "regression-compile-tmp/gammon.imp" F GOTO L_0006 : LOCATE L_0007 704 %IF DICE1=0 %THEN DICE1=DICE2 %AND DICE2=0 O LINE 704 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH DICE1 @ PUSH DICE2 S ASSVAL @ PUSH DICE2 N PUSHI #0x00000000 S ASSVAL : LOCATE L_000a 705 %FINISH O LINE 705 "regression-compile-tmp/gammon.imp" : LOCATE L_0006 706 %IF DICE1= L_0007 707 TEMP=DICE2; DICE2=DICE1; DICE1=TEMP O LINE 707 "regression-compile-tmp/gammon.imp" @ PUSH TEMP @ PUSH DICE2 S ASSVAL O LINE 707 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 @ PUSH DICE1 S ASSVAL O LINE 707 "regression-compile-tmp/gammon.imp" @ PUSH DICE1 @ PUSH TEMP S ASSVAL 708 %FINISH O LINE 708 "regression-compile-tmp/gammon.imp" : LOCATE L_0007 709 %CYCLE K=35,3,56 O LINE 709 "regression-compile-tmp/gammon.imp" @ PUSH K N PUSHI #0x00000003 N PUSHI #0x00000038 N PUSHI #0x00000023 f FOR L_0006 710 %CYCLE I=19,1,24 O LINE 710 "regression-compile-tmp/gammon.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0009 711 %IF BOARD(I)_WS>0 %THENSTART O LINE 711 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH I a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_000d 712 NOMOV=0; MTSTBOFF(I,DICE1) O LINE 712 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000000 S ASSVAL O LINE 712 "regression-compile-tmp/gammon.imp" @ PUSH MTSTBOFF @ PUSH I p ASSPAR @ PUSH DICE1 p ASSPAR E CALL 713 %IF NOMOV=1 %THEN ->REP1 O LINE 713 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000001 ? JUMPIF # L_0010 J JUMP L_0129 : LOCATE L_0010 714 %IF DICE2=0 %THENSTART O LINE 714 "regression-compile-tmp/gammon.imp" @ PUSH DICE2 N PUSHI #0x00000000 ? JUMPIF # L_0010 715 %IF WSINCLDONE O LINE 715 "regression-compile-tmp/gammon.imp" @ PUSH WSINCL E CALL @ PUSH K ? JUMPIF >= L_0013 J JUMP L_0122 : LOCATE L_0013 716 %FINISHELSESTART O LINE 716 "regression-compile-tmp/gammon.imp" F GOTO L_000f : LOCATE L_0010 717 %CYCLE J=19,1,24 O LINE 717 "regression-compile-tmp/gammon.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0012 718 %IF BOARD(J)_WS>0 %THENSTART O LINE 718 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH J a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0016 719 NOMOV=0; MTSTBOFF(J,DICE2) O LINE 719 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000000 S ASSVAL O LINE 719 "regression-compile-tmp/gammon.imp" @ PUSH MTSTBOFF @ PUSH J p ASSPAR @ PUSH DICE2 p ASSPAR E CALL 720 %IF NOMOV=1 %THEN ->REP2 O LINE 720 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000001 ? JUMPIF # L_0019 J JUMP L_012a : LOCATE L_0019 721 %IF DICE3=0 %THENSTART O LINE 721 "regression-compile-tmp/gammon.imp" @ PUSH DICE3 N PUSHI #0x00000000 ? JUMPIF # L_0019 722 %IF WSINCLDONE O LINE 722 "regression-compile-tmp/gammon.imp" @ PUSH WSINCL E CALL @ PUSH K ? JUMPIF >= L_001c J JUMP L_0122 : LOCATE L_001c 723 %FINISHELSESTART O LINE 723 "regression-compile-tmp/gammon.imp" F GOTO L_0018 : LOCATE L_0019 724 %CYCLE G=19,1,24 O LINE 724 "regression-compile-tmp/gammon.imp" @ PUSH G N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_001b 725 %IF BOARD(G)_WS>0 %THENSTART O LINE 725 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH G a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_001f 726 NOMOV=0; MTSTBOFF(G,DICE3) O LINE 726 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000000 S ASSVAL O LINE 726 "regression-compile-tmp/gammon.imp" @ PUSH MTSTBOFF @ PUSH G p ASSPAR @ PUSH DICE3 p ASSPAR E CALL 727 %IF NOMOV=1 %THEN ->REP3 O LINE 727 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000001 ? JUMPIF # L_0022 J JUMP L_012b : LOCATE L_0022 728 %IF DICE4=0 %THENSTART O LINE 728 "regression-compile-tmp/gammon.imp" @ PUSH DICE4 N PUSHI #0x00000000 ? JUMPIF # L_0022 729 %IF WSINCLDONE O LINE 729 "regression-compile-tmp/gammon.imp" @ PUSH WSINCL E CALL @ PUSH K ? JUMPIF >= L_0025 J JUMP L_0122 : LOCATE L_0025 730 %FINISHELSESTART O LINE 730 "regression-compile-tmp/gammon.imp" F GOTO L_0021 : LOCATE L_0022 731 %CYCLE H=19,1,24 O LINE 731 "regression-compile-tmp/gammon.imp" @ PUSH H N PUSHI #0x00000001 N PUSHI #0x00000018 N PUSHI #0x00000013 f FOR L_0024 732 %IF BOARD(H)_WS>0 %THENSTART O LINE 732 "regression-compile-tmp/gammon.imp" @ PUSH BOARD @ PUSH H a ACCESS n SELECT 1 N PUSHI #0x00000000 ? JUMPIF <= L_0028 733 NOMOV=0; MTSTBOFF(H,DICE4) O LINE 733 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000000 S ASSVAL O LINE 733 "regression-compile-tmp/gammon.imp" @ PUSH MTSTBOFF @ PUSH H p ASSPAR @ PUSH DICE4 p ASSPAR E CALL 734 %IF NOMOV=1 %THEN ->REP4 O LINE 734 "regression-compile-tmp/gammon.imp" @ PUSH NOMOV N PUSHI #0x00000001 ? JUMPIF # L_002b J JUMP L_012c : LOCATE L_002b 735 %IF WSINCLDONE O LINE 735 "regression-compile-tmp/gammon.imp" @ PUSH WSINCL E CALL @ PUSH K ? JUMPIF >= L_002b J JUMP L_0122 : LOCATE L_002b 736 CLTSTBOFF(H,DICE4) O LINE 736 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTBOFF @ PUSH H p ASSPAR @ PUSH DICE4 p ASSPAR E CALL 737 %FINISH O LINE 737 "regression-compile-tmp/gammon.imp" : LOCATE L_0028 738 REP4: %REPEAT O LINE 738 "regression-compile-tmp/gammon.imp" L LABEL L_012c O LINE 738 "regression-compile-tmp/gammon.imp" B REPEAT L_0024 : LOCATE L_0025 739 %FINISH O LINE 739 "regression-compile-tmp/gammon.imp" : LOCATE L_0021 740 CLTSTBOFF(G,DICE3) O LINE 740 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTBOFF @ PUSH G p ASSPAR @ PUSH DICE3 p ASSPAR E CALL 741 %FINISH O LINE 741 "regression-compile-tmp/gammon.imp" : LOCATE L_001f 742 REP3: %REPEAT O LINE 742 "regression-compile-tmp/gammon.imp" L LABEL L_012b O LINE 742 "regression-compile-tmp/gammon.imp" B REPEAT L_001b : LOCATE L_001c 743 %FINISH O LINE 743 "regression-compile-tmp/gammon.imp" : LOCATE L_0018 744 CLTSTBOFF(J,DICE2) O LINE 744 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTBOFF @ PUSH J p ASSPAR @ PUSH DICE2 p ASSPAR E CALL 745 %FINISH O LINE 745 "regression-compile-tmp/gammon.imp" : LOCATE L_0016 746 REP2: %REPEAT O LINE 746 "regression-compile-tmp/gammon.imp" L LABEL L_012a O LINE 746 "regression-compile-tmp/gammon.imp" B REPEAT L_0012 : LOCATE L_0013 747 %FINISH O LINE 747 "regression-compile-tmp/gammon.imp" : LOCATE L_000f 748 CLTSTBOFF(I,DICE1) O LINE 748 "regression-compile-tmp/gammon.imp" @ PUSH CLTSTBOFF @ PUSH I p ASSPAR @ PUSH DICE1 p ASSPAR E CALL 749 %FINISH O LINE 749 "regression-compile-tmp/gammon.imp" : LOCATE L_000d 750 REP1: %REPEAT O LINE 750 "regression-compile-tmp/gammon.imp" L LABEL L_0129 O LINE 750 "regression-compile-tmp/gammon.imp" B REPEAT L_0009 : LOCATE L_000a 751 %REPEAT O LINE 751 "regression-compile-tmp/gammon.imp" B REPEAT L_0006 : LOCATE L_0007 752 %REPEAT O LINE 752 "regression-compile-tmp/gammon.imp" B REPEAT L_0003 : LOCATE L_0004 753 DUMPWTS O LINE 753 "regression-compile-tmp/gammon.imp" @ PUSH DUMPWTS E CALL 754 %END 755 O LINE 754 "regression-compile-tmp/gammon.imp" ; END _BACKGAMMON {lev=1 --> 0} 756 %begin O LINE 756 "regression-compile-tmp/gammon.imp" H BEGIN _lev0id0 {lev=0 --> 1} 757 backgammon("") O LINE 757 "regression-compile-tmp/gammon.imp" @ PUSH BACKGAMMON ' PUSHS "" p ASSPAR E CALL 758 %end 759 O LINE 758 "regression-compile-tmp/gammon.imp" ; END _lev0id0 {lev=1 --> 0} 760 %ENDOFFILE O LINE 760 "regression-compile-tmp/gammon.imp" ; END {lev=0 --> -1}