sergev · August 23, 2024 07:39
diff --git a/man_or_boy.trace b/man_or_boy.trace
       Memory Write [23500] = 00 00 00140
       Memory Write [23501] = 52 20 23600
       Memory Write [23502] = 42 20 00001
       Memory Write [23503] = 00 00 00131
       Memory Write [23504] = 12 20 00241
       Memory Write [23505] = 00 00 00020
       Memory Write [23506] = 12 20 00241
       Memory Write [23507] = 00 00 00043
       Memory Write [23510] = 00 00 00125
       Memory Write [23511] = 52 20 23556
       Memory Write [23512] = 42 20 00002
       Memory Write [23513] = 00 00 00131
       Memory Write [23514] = 12 20 00241
       Memory Write [23515] = 00 00 00020
       Memory Write [23516] = 12 20 00241
       Memory Write [23517] = 00 00 00041
       Memory Write [23520] = 42 20 23624
       Memory Write [23521] = 00 00 00054
       Memory Write [23522] = 00 00 00125
       Memory Write [23523] = 42 20 23502
       Memory Write [23524] = 52 20 23547
       Memory Write [23525] = 12 20 00341
       Memory Write [23526] = 00 00 00043
       Memory Write [23527] = 00 00 00015
       Memory Write [23530] = 12 20 00441
       Memory Write [23531] = 00 00 00043
       Memory Write [23532] = 00 00 00015
       Memory Write [23533] = 12 20 00541
       Memory Write [23534] = 00 00 00043
       Memory Write [23535] = 00 00 00015
       Memory Write [23536] = 12 20 00641
       Memory Write [23537] = 00 00 00043
       Memory Write [23540] = 00 00 00015
       Memory Write [23541] = 00 40 23536
       Memory Write [23542] = 00 40 23533
       Memory Write [23543] = 00 40 23530
       Memory Write [23544] = 00 40 23525
       Memory Write [23545] = 00 40 23512
       Memory Write [23546] = 02 22 00005
       Memory Write [23547] = 02 20 00006
       Memory Write [23550] = 00 00 00010
       Memory Write [23551] = 42 20 00000
       Memory Write [23552] = 00 00 00130
       Memory Write [23553] = 42 20 00001
       Memory Write [23554] = 00 00 00127
       Memory Write [23555] = 00 00 00014
       Memory Write [23556] = 12 20 00241
       Memory Write [23557] = 00 00 00041
       Memory Write [23560] = 42 20 23624
       Memory Write [23561] = 00 00 00042
       Memory Write [23562] = 00 00 00105
       Memory Write [23563] = 00 00 00036
       Memory Write [23564] = 52 23 23572
       Memory Write [23565] = 12 20 00641
       Memory Write [23566] = 00 00 00043
       Memory Write [23567] = 12 20 00741
       Memory Write [23570] = 00 00 00050
       Memory Write [23571] = 52 20 23575
       Memory Write [23572] = 42 20 23512
       Memory Write [23573] = 02 20 00000
       Memory Write [23574] = 00 00 00010
       Memory Write [23575] = 42 20 00000
       Memory Write [23576] = 00 00 00127
       Memory Write [23577] = 00 00 00014
       Memory Write [23600] = 42 20 23502
       Memory Write [23601] = 52 20 23620
       Memory Write [23602] = 42 20 23626
       Memory Write [23603] = 00 00 00040
       Memory Write [23604] = 00 00 00071
       Memory Write [23605] = 00 00 00015
       Memory Write [23606] = 42 20 23626
       Memory Write [23607] = 00 00 00040
       Memory Write [23610] = 00 00 00071
       Memory Write [23611] = 00 00 00015
       Memory Write [23612] = 00 20 23630
       Memory Write [23613] = 00 00 23626
       Memory Write [23614] = 00 40 23606
       Memory Write [23615] = 00 40 23602
       Memory Write [23616] = 00 00 23626
       Memory Write [23617] = 00 20 23625
       Memory Write [23620] = 02 20 00006
       Memory Write [23621] = 00 00 00010
       Memory Write [23622] = 00 00 00147
       Memory Write [23623] = 00 00 00141
       Memory Write [23624] = 00 00 00001
       Memory Write [23625] = 00 00 00012
       Memory Write [23626] = 20 00 00000
       Memory Write [23627] = 00 00 04001
       Memory Write [23630] = 00 00 00000
 23500: 00 00 00140 START
 23501: 52 20 23600 T := 23600
 23600: 42 20 23502 B := 23502
       B = 23502
 23601: 52 20 23620 T := 23620
 23620: 02 20 00006 A := 6
       A = 00 00 00006
 23621: 00 00 00010 ETMR extransmark result
       Stack Push [0] = integer 0d
       Stack Push [1] = addr 0
       Stack Push [2] = addr 23622
       Stack Push [3] = addr 0
       Stack Push [4] = addr 0
       Stack Push [5] = addr 0
       Stack Push [6] = integer 0d
       Stack Push [7] = addr 0
       Stack Push [10] = integer 0d
       Stack Push [11] = addr 0
       Stack Push [12] = integer 0d
       Stack Push [13] = addr 0
       Stack Push [14] = integer 0d
       Stack Push [15] = addr 0
       Stack Push [16] = integer 0d
       Stack Push [17] = addr 0
       Stack Push [20] = integer 0d
       Stack Push [21] = addr 0
       SP = 22
       FP = 1
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4] = addr 1
       Display [1] = 00001
 23504: 12 20 00241 S := 241
       S = 00 00 00241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [22] = addr 100006
       SP = 23
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23617] = 00 20 23625
       Memory Read [23625] = 00 00 00012
       Stack Push [23] = integer 10d
       SP = 24
 23510: 00 00 00125 ST  store
       Stack Pop [23] = integer 10d
       Stack Pop [22] = addr 100006
       Stack Write [6] = integer 10d
       SP = 22
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [22] = integer 10d
       SP = 23
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [23] = integer 1d
       SP = 24
 23562: 00 00 00105 LES less <
       Stack Pop [23] = integer 1d
       Stack Pop [22] = integer 10d
       Stack Push [22] = integer 1d
       SP = 23
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [22] = integer 1d
       SP = 22
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [22] = integer 0d
       Stack Push [23] = addr 1
       Stack Push [24] = addr 23575
       Stack Push [25] = addr 22
       Stack Push [26] = addr 0
       Stack Push [27] = addr 0
       SP = 30
       FP = 23
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [26] = addr 2
       Stack Write [27] = addr 1
       Display [1] = 00001
       Display [2] = 00023
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [30] = addr 100006
       SP = 31
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [31] = integer 10d
       SP = 32
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [31] = integer 10d
       Stack Push [31] = integer 9d
 23522: 00 00 00125 ST  store
       Stack Pop [31] = integer 9d
       Stack Pop [30] = addr 100006
       Stack Write [6] = integer 9d
       SP = 30
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [30] = integer 0d
       Stack Push [31] = addr 23
       Stack Push [32] = addr 23551
       Stack Push [33] = addr 30
       Stack Push [34] = addr 0
       Stack Push [35] = addr 0
       Stack Push [36] = integer 0d
       Stack Push [37] = addr 200023
       Stack Push [40] = integer 0d
       Stack Push [41] = addr 200023
       Stack Push [42] = integer 0d
       Stack Push [43] = addr 200023
       Stack Push [44] = integer 0d
       Stack Push [45] = addr 200023
       Stack Push [46] = integer 0d
       Stack Push [47] = addr 200023
       Stack Push [50] = integer 0d
       Stack Push [51] = addr 200023
       SP = 52
       FP = 31
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [34] = addr 1
       Display [1] = 00031
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [52] = addr 100036
       SP = 53
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [53] = integer 9d
       SP = 54
 23510: 00 00 00125 ST  store
       Stack Pop [53] = integer 9d
       Stack Pop [52] = addr 100036
       Stack Write [36] = integer 9d
       SP = 52
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [52] = integer 9d
       SP = 53
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [53] = integer 1d
       SP = 54
 23562: 00 00 00105 LES less <
       Stack Pop [53] = integer 1d
       Stack Pop [52] = integer 9d
       Stack Push [52] = integer 1d
       SP = 53
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [52] = integer 1d
       SP = 52
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [52] = integer 0d
       Stack Push [53] = addr 31
       Stack Push [54] = addr 23575
       Stack Push [55] = addr 52
       Stack Push [56] = addr 0
       Stack Push [57] = addr 0
       SP = 60
       FP = 53
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [56] = addr 2
       Stack Write [57] = addr 31
       Display [1] = 00031
       Display [2] = 00053
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [60] = addr 100036
       SP = 61
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [61] = integer 9d
       SP = 62
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [61] = integer 9d
       Stack Push [61] = integer 8d
 23522: 00 00 00125 ST  store
       Stack Pop [61] = integer 8d
       Stack Pop [60] = addr 100036
       Stack Write [36] = integer 8d
       SP = 60
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [60] = integer 0d
       Stack Push [61] = addr 53
       Stack Push [62] = addr 23551
       Stack Push [63] = addr 60
       Stack Push [64] = addr 0
       Stack Push [65] = addr 0
       Stack Push [66] = integer 0d
       Stack Push [67] = addr 200053
       Stack Push [70] = integer 0d
       Stack Push [71] = addr 200053
       Stack Push [72] = integer 0d
       Stack Push [73] = addr 200053
       Stack Push [74] = integer 0d
       Stack Push [75] = addr 200053
       Stack Push [76] = integer 0d
       Stack Push [77] = addr 200053
       Stack Push [100] = integer 0d
       Stack Push [101] = addr 200053
       SP = 102
       FP = 61
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [64] = addr 1
       Display [1] = 00061
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [102] = addr 100066
       SP = 103
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [103] = integer 8d
       SP = 104
 23510: 00 00 00125 ST  store
       Stack Pop [103] = integer 8d
       Stack Pop [102] = addr 100066
       Stack Write [66] = integer 8d
       SP = 102
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [102] = integer 8d
       SP = 103
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [103] = integer 1d
       SP = 104
 23562: 00 00 00105 LES less <
       Stack Pop [103] = integer 1d
       Stack Pop [102] = integer 8d
       Stack Push [102] = integer 1d
       SP = 103
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [102] = integer 1d
       SP = 102
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [102] = integer 0d
       Stack Push [103] = addr 61
       Stack Push [104] = addr 23575
       Stack Push [105] = addr 102
       Stack Push [106] = addr 0
       Stack Push [107] = addr 0
       SP = 110
       FP = 103
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [106] = addr 2
       Stack Write [107] = addr 61
       Display [1] = 00061
       Display [2] = 00103
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [110] = addr 100066
       SP = 111
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [111] = integer 8d
       SP = 112
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [111] = integer 8d
       Stack Push [111] = integer 7d
 23522: 00 00 00125 ST  store
       Stack Pop [111] = integer 7d
       Stack Pop [110] = addr 100066
       Stack Write [66] = integer 7d
       SP = 110
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [110] = integer 0d
       Stack Push [111] = addr 103
       Stack Push [112] = addr 23551
       Stack Push [113] = addr 110
       Stack Push [114] = addr 0
       Stack Push [115] = addr 0
       Stack Push [116] = integer 0d
       Stack Push [117] = addr 200103
       Stack Push [120] = integer 0d
       Stack Push [121] = addr 200103
       Stack Push [122] = integer 0d
       Stack Push [123] = addr 200103
       Stack Push [124] = integer 0d
       Stack Push [125] = addr 200103
       Stack Push [126] = integer 0d
       Stack Push [127] = addr 200103
       Stack Push [130] = integer 0d
       Stack Push [131] = addr 200103
       SP = 132
       FP = 111
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [114] = addr 1
       Display [1] = 00111
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [132] = addr 100116
       SP = 133
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [133] = integer 7d
       SP = 134
 23510: 00 00 00125 ST  store
       Stack Pop [133] = integer 7d
       Stack Pop [132] = addr 100116
       Stack Write [116] = integer 7d
       SP = 132
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [132] = integer 7d
       SP = 133
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [133] = integer 1d
       SP = 134
 23562: 00 00 00105 LES less <
       Stack Pop [133] = integer 1d
       Stack Pop [132] = integer 7d
       Stack Push [132] = integer 1d
       SP = 133
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [132] = integer 1d
       SP = 132
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [132] = integer 0d
       Stack Push [133] = addr 111
       Stack Push [134] = addr 23575
       Stack Push [135] = addr 132
       Stack Push [136] = addr 0
       Stack Push [137] = addr 0
       SP = 140
       FP = 133
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [136] = addr 2
       Stack Write [137] = addr 111
       Display [1] = 00111
       Display [2] = 00133
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [140] = addr 100116
       SP = 141
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [141] = integer 7d
       SP = 142
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [141] = integer 7d
       Stack Push [141] = integer 6d
 23522: 00 00 00125 ST  store
       Stack Pop [141] = integer 6d
       Stack Pop [140] = addr 100116
       Stack Write [116] = integer 6d
       SP = 140
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [140] = integer 0d
       Stack Push [141] = addr 133
       Stack Push [142] = addr 23551
       Stack Push [143] = addr 140
       Stack Push [144] = addr 0
       Stack Push [145] = addr 0
       Stack Push [146] = integer 0d
       Stack Push [147] = addr 200133
       Stack Push [150] = integer 0d
       Stack Push [151] = addr 200133
       Stack Push [152] = integer 0d
       Stack Push [153] = addr 200133
       Stack Push [154] = integer 0d
       Stack Push [155] = addr 200133
       Stack Push [156] = integer 0d
       Stack Push [157] = addr 200133
       Stack Push [160] = integer 0d
       Stack Push [161] = addr 200133
       SP = 162
       FP = 141
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [144] = addr 1
       Display [1] = 00141
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [162] = addr 100146
       SP = 163
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [163] = integer 6d
       SP = 164
 23510: 00 00 00125 ST  store
       Stack Pop [163] = integer 6d
       Stack Pop [162] = addr 100146
       Stack Write [146] = integer 6d
       SP = 162
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [162] = integer 6d
       SP = 163
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [163] = integer 1d
       SP = 164
 23562: 00 00 00105 LES less <
       Stack Pop [163] = integer 1d
       Stack Pop [162] = integer 6d
       Stack Push [162] = integer 1d
       SP = 163
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [162] = integer 1d
       SP = 162
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [162] = integer 0d
       Stack Push [163] = addr 141
       Stack Push [164] = addr 23575
       Stack Push [165] = addr 162
       Stack Push [166] = addr 0
       Stack Push [167] = addr 0
       SP = 170
       FP = 163
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [166] = addr 2
       Stack Write [167] = addr 141
       Display [1] = 00141
       Display [2] = 00163
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [170] = addr 100146
       SP = 171
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [171] = integer 6d
       SP = 172
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [171] = integer 6d
       Stack Push [171] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [171] = integer 5d
       Stack Pop [170] = addr 100146
       Stack Write [146] = integer 5d
       SP = 170
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [170] = integer 0d
       Stack Push [171] = addr 163
       Stack Push [172] = addr 23551
       Stack Push [173] = addr 170
       Stack Push [174] = addr 0
       Stack Push [175] = addr 0
       Stack Push [176] = integer 0d
       Stack Push [177] = addr 200163
       Stack Push [200] = integer 0d
       Stack Push [201] = addr 200163
       Stack Push [202] = integer 0d
       Stack Push [203] = addr 200163
       Stack Push [204] = integer 0d
       Stack Push [205] = addr 200163
       Stack Push [206] = integer 0d
       Stack Push [207] = addr 200163
       Stack Push [210] = integer 0d
       Stack Push [211] = addr 200163
       SP = 212
       FP = 171
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [174] = addr 1
       Display [1] = 00171
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [212] = addr 100176
       SP = 213
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [213] = integer 5d
       SP = 214
 23510: 00 00 00125 ST  store
       Stack Pop [213] = integer 5d
       Stack Pop [212] = addr 100176
       Stack Write [176] = integer 5d
       SP = 212
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [212] = integer 5d
       SP = 213
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [213] = integer 1d
       SP = 214
 23562: 00 00 00105 LES less <
       Stack Pop [213] = integer 1d
       Stack Pop [212] = integer 5d
       Stack Push [212] = integer 1d
       SP = 213
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [212] = integer 1d
       SP = 212
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [212] = integer 0d
       Stack Push [213] = addr 171
       Stack Push [214] = addr 23575
       Stack Push [215] = addr 212
       Stack Push [216] = addr 0
       Stack Push [217] = addr 0
       SP = 220
       FP = 213
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [216] = addr 2
       Stack Write [217] = addr 171
       Display [1] = 00171
       Display [2] = 00213
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [220] = addr 100176
       SP = 221
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [221] = integer 5d
       SP = 222
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [221] = integer 5d
       Stack Push [221] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [221] = integer 4d
       Stack Pop [220] = addr 100176
       Stack Write [176] = integer 4d
       SP = 220
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [220] = integer 0d
       Stack Push [221] = addr 213
       Stack Push [222] = addr 23551
       Stack Push [223] = addr 220
       Stack Push [224] = addr 0
       Stack Push [225] = addr 0
       Stack Push [226] = integer 0d
       Stack Push [227] = addr 200213
       Stack Push [230] = integer 0d
       Stack Push [231] = addr 200213
       Stack Push [232] = integer 0d
       Stack Push [233] = addr 200213
       Stack Push [234] = integer 0d
       Stack Push [235] = addr 200213
       Stack Push [236] = integer 0d
       Stack Push [237] = addr 200213
       Stack Push [240] = integer 0d
       Stack Push [241] = addr 200213
       SP = 242
       FP = 221
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [224] = addr 1
       Display [1] = 00221
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [242] = addr 100226
       SP = 243
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [243] = integer 4d
       SP = 244
 23510: 00 00 00125 ST  store
       Stack Pop [243] = integer 4d
       Stack Pop [242] = addr 100226
       Stack Write [226] = integer 4d
       SP = 242
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [242] = integer 4d
       SP = 243
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [243] = integer 1d
       SP = 244
 23562: 00 00 00105 LES less <
       Stack Pop [243] = integer 1d
       Stack Pop [242] = integer 4d
       Stack Push [242] = integer 1d
       SP = 243
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [242] = integer 1d
       SP = 242
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [242] = integer 0d
       Stack Push [243] = addr 221
       Stack Push [244] = addr 23575
       Stack Push [245] = addr 242
       Stack Push [246] = addr 0
       Stack Push [247] = addr 0
       SP = 250
       FP = 243
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [246] = addr 2
       Stack Write [247] = addr 221
       Display [1] = 00221
       Display [2] = 00243
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [250] = addr 100226
       SP = 251
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [251] = integer 4d
       SP = 252
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [251] = integer 4d
       Stack Push [251] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [251] = integer 3d
       Stack Pop [250] = addr 100226
       Stack Write [226] = integer 3d
       SP = 250
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [250] = integer 0d
       Stack Push [251] = addr 243
       Stack Push [252] = addr 23551
       Stack Push [253] = addr 250
       Stack Push [254] = addr 0
       Stack Push [255] = addr 0
       Stack Push [256] = integer 0d
       Stack Push [257] = addr 200243
       Stack Push [260] = integer 0d
       Stack Push [261] = addr 200243
       Stack Push [262] = integer 0d
       Stack Push [263] = addr 200243
       Stack Push [264] = integer 0d
       Stack Push [265] = addr 200243
       Stack Push [266] = integer 0d
       Stack Push [267] = addr 200243
       Stack Push [270] = integer 0d
       Stack Push [271] = addr 200243
       SP = 272
       FP = 251
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [254] = addr 1
       Display [1] = 00251
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [272] = addr 100256
       SP = 273
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [273] = integer 3d
       SP = 274
 23510: 00 00 00125 ST  store
       Stack Pop [273] = integer 3d
       Stack Pop [272] = addr 100256
       Stack Write [256] = integer 3d
       SP = 272
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [272] = integer 3d
       SP = 273
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [273] = integer 1d
       SP = 274
 23562: 00 00 00105 LES less <
       Stack Pop [273] = integer 1d
       Stack Pop [272] = integer 3d
       Stack Push [272] = integer 1d
       SP = 273
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [272] = integer 1d
       SP = 272
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [272] = integer 0d
       Stack Push [273] = addr 251
       Stack Push [274] = addr 23575
       Stack Push [275] = addr 272
       Stack Push [276] = addr 0
       Stack Push [277] = addr 0
       SP = 300
       FP = 273
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [276] = addr 2
       Stack Write [277] = addr 251
       Display [1] = 00251
       Display [2] = 00273
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [300] = addr 100256
       SP = 301
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [301] = integer 3d
       SP = 302
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [301] = integer 3d
       Stack Push [301] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [301] = integer 2d
       Stack Pop [300] = addr 100256
       Stack Write [256] = integer 2d
       SP = 300
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [300] = integer 0d
       Stack Push [301] = addr 273
       Stack Push [302] = addr 23551
       Stack Push [303] = addr 300
       Stack Push [304] = addr 0
       Stack Push [305] = addr 0
       Stack Push [306] = integer 0d
       Stack Push [307] = addr 200273
       Stack Push [310] = integer 0d
       Stack Push [311] = addr 200273
       Stack Push [312] = integer 0d
       Stack Push [313] = addr 200273
       Stack Push [314] = integer 0d
       Stack Push [315] = addr 200273
       Stack Push [316] = integer 0d
       Stack Push [317] = addr 200273
       Stack Push [320] = integer 0d
       Stack Push [321] = addr 200273
       SP = 322
       FP = 301
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [304] = addr 1
       Display [1] = 00301
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [322] = addr 100306
       SP = 323
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [323] = integer 2d
       SP = 324
 23510: 00 00 00125 ST  store
       Stack Pop [323] = integer 2d
       Stack Pop [322] = addr 100306
       Stack Write [306] = integer 2d
       SP = 322
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [322] = integer 2d
       SP = 323
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [323] = integer 1d
       SP = 324
 23562: 00 00 00105 LES less <
       Stack Pop [323] = integer 1d
       Stack Pop [322] = integer 2d
       Stack Push [322] = integer 1d
       SP = 323
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [322] = integer 1d
       SP = 322
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [322] = integer 0d
       Stack Push [323] = addr 301
       Stack Push [324] = addr 23575
       Stack Push [325] = addr 322
       Stack Push [326] = addr 0
       Stack Push [327] = addr 0
       SP = 330
       FP = 323
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [326] = addr 2
       Stack Write [327] = addr 301
       Display [1] = 00301
       Display [2] = 00323
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [330] = addr 100306
       SP = 331
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [331] = integer 2d
       SP = 332
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [331] = integer 2d
       Stack Push [331] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [331] = integer 1d
       Stack Pop [330] = addr 100306
       Stack Write [306] = integer 1d
       SP = 330
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [330] = integer 0d
       Stack Push [331] = addr 323
       Stack Push [332] = addr 23551
       Stack Push [333] = addr 330
       Stack Push [334] = addr 0
       Stack Push [335] = addr 0
       Stack Push [336] = integer 0d
       Stack Push [337] = addr 200323
       Stack Push [340] = integer 0d
       Stack Push [341] = addr 200323
       Stack Push [342] = integer 0d
       Stack Push [343] = addr 200323
       Stack Push [344] = integer 0d
       Stack Push [345] = addr 200323
       Stack Push [346] = integer 0d
       Stack Push [347] = addr 200323
       Stack Push [350] = integer 0d
       Stack Push [351] = addr 200323
       SP = 352
       FP = 331
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [334] = addr 1
       Display [1] = 00331
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [352] = addr 100336
       SP = 353
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [353] = integer 1d
       SP = 354
 23510: 00 00 00125 ST  store
       Stack Pop [353] = integer 1d
       Stack Pop [352] = addr 100336
       Stack Write [336] = integer 1d
       SP = 352
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [352] = integer 1d
       SP = 353
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [353] = integer 1d
       SP = 354
 23562: 00 00 00105 LES less <
       Stack Pop [353] = integer 1d
       Stack Pop [352] = integer 1d
       Stack Push [352] = integer 1d
       SP = 353
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [352] = integer 1d
       SP = 352
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [352] = integer 0d
       Stack Push [353] = addr 331
       Stack Push [354] = addr 23575
       Stack Push [355] = addr 352
       Stack Push [356] = addr 0
       Stack Push [357] = addr 0
       SP = 360
       FP = 353
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [356] = addr 2
       Stack Write [357] = addr 331
       Display [1] = 00331
       Display [2] = 00353
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [360] = addr 100336
       SP = 361
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [361] = integer 1d
       SP = 362
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [361] = integer 1d
       Stack Push [361] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [361] = integer 0d
       Stack Pop [360] = addr 100336
       Stack Write [336] = integer 0d
       SP = 360
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [360] = integer 0d
       Stack Push [361] = addr 353
       Stack Push [362] = addr 23551
       Stack Push [363] = addr 360
       Stack Push [364] = addr 0
       Stack Push [365] = addr 0
       Stack Push [366] = integer 0d
       Stack Push [367] = addr 200353
       Stack Push [370] = integer 0d
       Stack Push [371] = addr 200353
       Stack Push [372] = integer 0d
       Stack Push [373] = addr 200353
       Stack Push [374] = integer 0d
       Stack Push [375] = addr 200353
       Stack Push [376] = integer 0d
       Stack Push [377] = addr 200353
       Stack Push [400] = integer 0d
       Stack Push [401] = addr 200353
       SP = 402
       FP = 361
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [364] = addr 1
       Display [1] = 00361
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [402] = addr 100366
       SP = 403
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [403] = integer 0d
       SP = 404
 23510: 00 00 00125 ST  store
       Stack Pop [403] = integer 0d
       Stack Pop [402] = addr 100366
       Stack Write [366] = integer 0d
       SP = 402
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [402] = integer 0d
       SP = 403
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [403] = integer 1d
       SP = 404
 23562: 00 00 00105 LES less <
       Stack Pop [403] = integer 1d
       Stack Pop [402] = integer 0d
       Stack Push [402] = integer 0d
       SP = 403
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [402] = integer 0d
       C = 1
       SP = 402
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 361 -> Level 2, Frame 353
       Stack Push [402] = integer 0d
       Stack Push [403] = addr 361
       Stack Push [404] = addr 23567
       Stack Push [405] = addr 402
       Stack Push [406] = addr 0
       Stack Push [407] = addr 0
       Stack Write [406] = addr 2
       Stack Write [407] = addr 361
       Display [1] = 00331
       Display [2] = 00353
       SP = 410
       FP = 403
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 353 -> Level 2, Frame 323
       Stack Push [410] = integer 0d
       Stack Push [411] = addr 403
       Stack Push [412] = addr 23535
       Stack Push [413] = addr 410
       Stack Push [414] = addr 0
       Stack Push [415] = addr 0
       Stack Write [414] = addr 2
       Stack Write [415] = addr 331
       Display [1] = 00301
       Display [2] = 00323
       SP = 416
       FP = 411
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 323 -> Level 2, Frame 273
       Stack Push [416] = integer 0d
       Stack Push [417] = addr 411
       Stack Push [420] = addr 23532
       Stack Push [421] = addr 416
       Stack Push [422] = addr 0
       Stack Push [423] = addr 0
       Stack Write [422] = addr 2
       Stack Write [423] = addr 301
       Display [1] = 00251
       Display [2] = 00273
       SP = 424
       FP = 417
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 273 -> Level 2, Frame 243
       Stack Push [424] = integer 0d
       Stack Push [425] = addr 417
       Stack Push [426] = addr 23527
       Stack Push [427] = addr 424
       Stack Push [430] = addr 0
       Stack Push [431] = addr 0
       Stack Write [430] = addr 2
       Stack Write [431] = addr 251
       Display [1] = 00221
       Display [2] = 00243
       SP = 432
       FP = 425
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [431] = addr 221
       Display [2] = 00425
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [432] = addr 100226
       SP = 433
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [433] = integer 3d
       SP = 434
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [433] = integer 3d
       Stack Push [433] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [433] = integer 2d
       Stack Pop [432] = addr 100226
       Stack Write [226] = integer 2d
       SP = 432
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [432] = integer 0d
       Stack Push [433] = addr 425
       Stack Push [434] = addr 23551
       Stack Push [435] = addr 432
       Stack Push [436] = addr 0
       Stack Push [437] = addr 0
       Stack Push [440] = integer 0d
       Stack Push [441] = addr 200425
       Stack Push [442] = integer 0d
       Stack Push [443] = addr 200425
       Stack Push [444] = integer 0d
       Stack Push [445] = addr 200425
       Stack Push [446] = integer 0d
       Stack Push [447] = addr 200425
       Stack Push [450] = integer 0d
       Stack Push [451] = addr 200425
       Stack Push [452] = integer 0d
       Stack Push [453] = addr 200425
       SP = 454
       FP = 433
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [436] = addr 1
       Display [1] = 00433
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [454] = addr 100440
       SP = 455
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [455] = integer 2d
       SP = 456
 23510: 00 00 00125 ST  store
       Stack Pop [455] = integer 2d
       Stack Pop [454] = addr 100440
       Stack Write [440] = integer 2d
       SP = 454
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [454] = integer 2d
       SP = 455
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [455] = integer 1d
       SP = 456
 23562: 00 00 00105 LES less <
       Stack Pop [455] = integer 1d
       Stack Pop [454] = integer 2d
       Stack Push [454] = integer 1d
       SP = 455
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [454] = integer 1d
       C = 0
       SP = 454
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [454] = integer 0d
       Stack Push [455] = addr 433
       Stack Push [456] = addr 23575
       Stack Push [457] = addr 454
       Stack Push [460] = addr 0
       Stack Push [461] = addr 0
       SP = 462
       FP = 455
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [460] = addr 2
       Stack Write [461] = addr 433
       Display [1] = 00433
       Display [2] = 00455
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [462] = addr 100440
       SP = 463
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [463] = integer 2d
       SP = 464
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [463] = integer 2d
       Stack Push [463] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [463] = integer 1d
       Stack Pop [462] = addr 100440
       Stack Write [440] = integer 1d
       SP = 462
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [462] = integer 0d
       Stack Push [463] = addr 455
       Stack Push [464] = addr 23551
       Stack Push [465] = addr 462
       Stack Push [466] = addr 0
       Stack Push [467] = addr 0
       Stack Push [470] = integer 0d
       Stack Push [471] = addr 200455
       Stack Push [472] = integer 0d
       Stack Push [473] = addr 200455
       Stack Push [474] = integer 0d
       Stack Push [475] = addr 200455
       Stack Push [476] = integer 0d
       Stack Push [477] = addr 200455
       Stack Push [500] = integer 0d
       Stack Push [501] = addr 200455
       Stack Push [502] = integer 0d
       Stack Push [503] = addr 200455
       SP = 504
       FP = 463
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [466] = addr 1
       Display [1] = 00463
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [504] = addr 100470
       SP = 505
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [505] = integer 1d
       SP = 506
 23510: 00 00 00125 ST  store
       Stack Pop [505] = integer 1d
       Stack Pop [504] = addr 100470
       Stack Write [470] = integer 1d
       SP = 504
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [504] = integer 1d
       SP = 505
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [505] = integer 1d
       SP = 506
 23562: 00 00 00105 LES less <
       Stack Pop [505] = integer 1d
       Stack Pop [504] = integer 1d
       Stack Push [504] = integer 1d
       SP = 505
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [504] = integer 1d
       SP = 504
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [504] = integer 0d
       Stack Push [505] = addr 463
       Stack Push [506] = addr 23575
       Stack Push [507] = addr 504
       Stack Push [510] = addr 0
       Stack Push [511] = addr 0
       SP = 512
       FP = 505
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [510] = addr 2
       Stack Write [511] = addr 463
       Display [1] = 00463
       Display [2] = 00505
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [512] = addr 100470
       SP = 513
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [513] = integer 1d
       SP = 514
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [513] = integer 1d
       Stack Push [513] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [513] = integer 0d
       Stack Pop [512] = addr 100470
       Stack Write [470] = integer 0d
       SP = 512
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [512] = integer 0d
       Stack Push [513] = addr 505
       Stack Push [514] = addr 23551
       Stack Push [515] = addr 512
       Stack Push [516] = addr 0
       Stack Push [517] = addr 0
       Stack Push [520] = integer 0d
       Stack Push [521] = addr 200505
       Stack Push [522] = integer 0d
       Stack Push [523] = addr 200505
       Stack Push [524] = integer 0d
       Stack Push [525] = addr 200505
       Stack Push [526] = integer 0d
       Stack Push [527] = addr 200505
       Stack Push [530] = integer 0d
       Stack Push [531] = addr 200505
       Stack Push [532] = integer 0d
       Stack Push [533] = addr 200505
       SP = 534
       FP = 513
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [516] = addr 1
       Display [1] = 00513
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [534] = addr 100520
       SP = 535
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [535] = integer 0d
       SP = 536
 23510: 00 00 00125 ST  store
       Stack Pop [535] = integer 0d
       Stack Pop [534] = addr 100520
       Stack Write [520] = integer 0d
       SP = 534
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [534] = integer 0d
       SP = 535
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [535] = integer 1d
       SP = 536
 23562: 00 00 00105 LES less <
       Stack Pop [535] = integer 1d
       Stack Pop [534] = integer 0d
       Stack Push [534] = integer 0d
       SP = 535
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [534] = integer 0d
       C = 1
       SP = 534
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 513 -> Level 2, Frame 505
       Stack Push [534] = integer 0d
       Stack Push [535] = addr 513
       Stack Push [536] = addr 23567
       Stack Push [537] = addr 534
       Stack Push [540] = addr 0
       Stack Push [541] = addr 0
       Stack Write [540] = addr 2
       Stack Write [541] = addr 513
       Display [1] = 00463
       Display [2] = 00505
       SP = 542
       FP = 535
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 505 -> Level 2, Frame 455
       Stack Push [542] = integer 0d
       Stack Push [543] = addr 535
       Stack Push [544] = addr 23535
       Stack Push [545] = addr 542
       Stack Push [546] = addr 0
       Stack Push [547] = addr 0
       Stack Write [546] = addr 2
       Stack Write [547] = addr 463
       Display [1] = 00433
       Display [2] = 00455
       SP = 550
       FP = 543
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 455 -> Level 2, Frame 425
       Stack Push [550] = integer 0d
       Stack Push [551] = addr 543
       Stack Push [552] = addr 23532
       Stack Push [553] = addr 550
       Stack Push [554] = addr 0
       Stack Push [555] = addr 0
       Stack Write [554] = addr 2
       Stack Write [555] = addr 433
       Display [1] = 00221
       Display [2] = 00425
       SP = 556
       FP = 551
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 425 -> Level 2, Frame 213
       Stack Push [556] = integer 0d
       Stack Push [557] = addr 551
       Stack Push [560] = addr 23527
       Stack Push [561] = addr 556
       Stack Push [562] = addr 0
       Stack Push [563] = addr 0
       Stack Write [562] = addr 2
       Stack Write [563] = addr 221
       Display [1] = 00171
       Display [2] = 00213
       SP = 564
       FP = 557
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [563] = addr 171
       Display [2] = 00557
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [564] = addr 100176
       SP = 565
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [565] = integer 4d
       SP = 566
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [565] = integer 4d
       Stack Push [565] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [565] = integer 3d
       Stack Pop [564] = addr 100176
       Stack Write [176] = integer 3d
       SP = 564
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [564] = integer 0d
       Stack Push [565] = addr 557
       Stack Push [566] = addr 23551
       Stack Push [567] = addr 564
       Stack Push [570] = addr 0
       Stack Push [571] = addr 0
       Stack Push [572] = integer 0d
       Stack Push [573] = addr 200557
       Stack Push [574] = integer 0d
       Stack Push [575] = addr 200557
       Stack Push [576] = integer 0d
       Stack Push [577] = addr 200557
       Stack Push [600] = integer 0d
       Stack Push [601] = addr 200557
       Stack Push [602] = integer 0d
       Stack Push [603] = addr 200557
       Stack Push [604] = integer 0d
       Stack Push [605] = addr 200557
       SP = 606
       FP = 565
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [570] = addr 1
       Display [1] = 00565
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [606] = addr 100572
       SP = 607
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [607] = integer 3d
       SP = 610
 23510: 00 00 00125 ST  store
       Stack Pop [607] = integer 3d
       Stack Pop [606] = addr 100572
       Stack Write [572] = integer 3d
       SP = 606
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [606] = integer 3d
       SP = 607
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [607] = integer 1d
       SP = 610
 23562: 00 00 00105 LES less <
       Stack Pop [607] = integer 1d
       Stack Pop [606] = integer 3d
       Stack Push [606] = integer 1d
       SP = 607
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [606] = integer 1d
       C = 0
       SP = 606
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [606] = integer 0d
       Stack Push [607] = addr 565
       Stack Push [610] = addr 23575
       Stack Push [611] = addr 606
       Stack Push [612] = addr 0
       Stack Push [613] = addr 0
       SP = 614
       FP = 607
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [612] = addr 2
       Stack Write [613] = addr 565
       Display [1] = 00565
       Display [2] = 00607
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [614] = addr 100572
       SP = 615
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [615] = integer 3d
       SP = 616
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [615] = integer 3d
       Stack Push [615] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [615] = integer 2d
       Stack Pop [614] = addr 100572
       Stack Write [572] = integer 2d
       SP = 614
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [614] = integer 0d
       Stack Push [615] = addr 607
       Stack Push [616] = addr 23551
       Stack Push [617] = addr 614
       Stack Push [620] = addr 0
       Stack Push [621] = addr 0
       Stack Push [622] = integer 0d
       Stack Push [623] = addr 200607
       Stack Push [624] = integer 0d
       Stack Push [625] = addr 200607
       Stack Push [626] = integer 0d
       Stack Push [627] = addr 200607
       Stack Push [630] = integer 0d
       Stack Push [631] = addr 200607
       Stack Push [632] = integer 0d
       Stack Push [633] = addr 200607
       Stack Push [634] = integer 0d
       Stack Push [635] = addr 200607
       SP = 636
       FP = 615
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [620] = addr 1
       Display [1] = 00615
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [636] = addr 100622
       SP = 637
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [637] = integer 2d
       SP = 640
 23510: 00 00 00125 ST  store
       Stack Pop [637] = integer 2d
       Stack Pop [636] = addr 100622
       Stack Write [622] = integer 2d
       SP = 636
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [636] = integer 2d
       SP = 637
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [637] = integer 1d
       SP = 640
 23562: 00 00 00105 LES less <
       Stack Pop [637] = integer 1d
       Stack Pop [636] = integer 2d
       Stack Push [636] = integer 1d
       SP = 637
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [636] = integer 1d
       SP = 636
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [636] = integer 0d
       Stack Push [637] = addr 615
       Stack Push [640] = addr 23575
       Stack Push [641] = addr 636
       Stack Push [642] = addr 0
       Stack Push [643] = addr 0
       SP = 644
       FP = 637
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [642] = addr 2
       Stack Write [643] = addr 615
       Display [1] = 00615
       Display [2] = 00637
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [644] = addr 100622
       SP = 645
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [645] = integer 2d
       SP = 646
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [645] = integer 2d
       Stack Push [645] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [645] = integer 1d
       Stack Pop [644] = addr 100622
       Stack Write [622] = integer 1d
       SP = 644
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [644] = integer 0d
       Stack Push [645] = addr 637
       Stack Push [646] = addr 23551
       Stack Push [647] = addr 644
       Stack Push [650] = addr 0
       Stack Push [651] = addr 0
       Stack Push [652] = integer 0d
       Stack Push [653] = addr 200637
       Stack Push [654] = integer 0d
       Stack Push [655] = addr 200637
       Stack Push [656] = integer 0d
       Stack Push [657] = addr 200637
       Stack Push [660] = integer 0d
       Stack Push [661] = addr 200637
       Stack Push [662] = integer 0d
       Stack Push [663] = addr 200637
       Stack Push [664] = integer 0d
       Stack Push [665] = addr 200637
       SP = 666
       FP = 645
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [650] = addr 1
       Display [1] = 00645
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [666] = addr 100652
       SP = 667
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [667] = integer 1d
       SP = 670
 23510: 00 00 00125 ST  store
       Stack Pop [667] = integer 1d
       Stack Pop [666] = addr 100652
       Stack Write [652] = integer 1d
       SP = 666
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [666] = integer 1d
       SP = 667
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [667] = integer 1d
       SP = 670
 23562: 00 00 00105 LES less <
       Stack Pop [667] = integer 1d
       Stack Pop [666] = integer 1d
       Stack Push [666] = integer 1d
       SP = 667
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [666] = integer 1d
       SP = 666
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [666] = integer 0d
       Stack Push [667] = addr 645
       Stack Push [670] = addr 23575
       Stack Push [671] = addr 666
       Stack Push [672] = addr 0
       Stack Push [673] = addr 0
       SP = 674
       FP = 667
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [672] = addr 2
       Stack Write [673] = addr 645
       Display [1] = 00645
       Display [2] = 00667
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [674] = addr 100652
       SP = 675
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [675] = integer 1d
       SP = 676
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [675] = integer 1d
       Stack Push [675] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [675] = integer 0d
       Stack Pop [674] = addr 100652
       Stack Write [652] = integer 0d
       SP = 674
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [674] = integer 0d
       Stack Push [675] = addr 667
       Stack Push [676] = addr 23551
       Stack Push [677] = addr 674
       Stack Push [700] = addr 0
       Stack Push [701] = addr 0
       Stack Push [702] = integer 0d
       Stack Push [703] = addr 200667
       Stack Push [704] = integer 0d
       Stack Push [705] = addr 200667
       Stack Push [706] = integer 0d
       Stack Push [707] = addr 200667
       Stack Push [710] = integer 0d
       Stack Push [711] = addr 200667
       Stack Push [712] = integer 0d
       Stack Push [713] = addr 200667
       Stack Push [714] = integer 0d
       Stack Push [715] = addr 200667
       SP = 716
       FP = 675
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [700] = addr 1
       Display [1] = 00675
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [716] = addr 100702
       SP = 717
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [717] = integer 0d
       SP = 720
 23510: 00 00 00125 ST  store
       Stack Pop [717] = integer 0d
       Stack Pop [716] = addr 100702
       Stack Write [702] = integer 0d
       SP = 716
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [716] = integer 0d
       SP = 717
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [717] = integer 1d
       SP = 720
 23562: 00 00 00105 LES less <
       Stack Pop [717] = integer 1d
       Stack Pop [716] = integer 0d
       Stack Push [716] = integer 0d
       SP = 717
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [716] = integer 0d
       C = 1
       SP = 716
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 675 -> Level 2, Frame 667
       Stack Push [716] = integer 0d
       Stack Push [717] = addr 675
       Stack Push [720] = addr 23567
       Stack Push [721] = addr 716
       Stack Push [722] = addr 0
       Stack Push [723] = addr 0
       Stack Write [722] = addr 2
       Stack Write [723] = addr 675
       Display [1] = 00645
       Display [2] = 00667
       SP = 724
       FP = 717
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 667 -> Level 2, Frame 637
       Stack Push [724] = integer 0d
       Stack Push [725] = addr 717
       Stack Push [726] = addr 23535
       Stack Push [727] = addr 724
       Stack Push [730] = addr 0
       Stack Push [731] = addr 0
       Stack Write [730] = addr 2
       Stack Write [731] = addr 645
       Display [1] = 00615
       Display [2] = 00637
       SP = 732
       FP = 725
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 637 -> Level 2, Frame 607
       Stack Push [732] = integer 0d
       Stack Push [733] = addr 725
       Stack Push [734] = addr 23532
       Stack Push [735] = addr 732
       Stack Push [736] = addr 0
       Stack Push [737] = addr 0
       Stack Write [736] = addr 2
       Stack Write [737] = addr 615
       Display [1] = 00565
       Display [2] = 00607
       SP = 740
       FP = 733
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 607 -> Level 2, Frame 557
       Stack Push [740] = integer 0d
       Stack Push [741] = addr 733
       Stack Push [742] = addr 23527
       Stack Push [743] = addr 740
       Stack Push [744] = addr 0
       Stack Push [745] = addr 0
       Stack Write [744] = addr 2
       Stack Write [745] = addr 565
       Display [1] = 00171
       Display [2] = 00557
       SP = 746
       FP = 741
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [745] = addr 171
       Display [2] = 00741
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [746] = addr 100176
       SP = 747
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [747] = integer 3d
       SP = 750
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [747] = integer 3d
       Stack Push [747] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [747] = integer 2d
       Stack Pop [746] = addr 100176
       Stack Write [176] = integer 2d
       SP = 746
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [746] = integer 0d
       Stack Push [747] = addr 741
       Stack Push [750] = addr 23551
       Stack Push [751] = addr 746
       Stack Push [752] = addr 0
       Stack Push [753] = addr 0
       Stack Push [754] = integer 0d
       Stack Push [755] = addr 200741
       Stack Push [756] = integer 0d
       Stack Push [757] = addr 200741
       Stack Push [760] = integer 0d
       Stack Push [761] = addr 200741
       Stack Push [762] = integer 0d
       Stack Push [763] = addr 200741
       Stack Push [764] = integer 0d
       Stack Push [765] = addr 200741
       Stack Push [766] = integer 0d
       Stack Push [767] = addr 200741
       SP = 770
       FP = 747
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [752] = addr 1
       Display [1] = 00747
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [770] = addr 100754
       SP = 771
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [771] = integer 2d
       SP = 772
 23510: 00 00 00125 ST  store
       Stack Pop [771] = integer 2d
       Stack Pop [770] = addr 100754
       Stack Write [754] = integer 2d
       SP = 770
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [770] = integer 2d
       SP = 771
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [771] = integer 1d
       SP = 772
 23562: 00 00 00105 LES less <
       Stack Pop [771] = integer 1d
       Stack Pop [770] = integer 2d
       Stack Push [770] = integer 1d
       SP = 771
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [770] = integer 1d
       C = 0
       SP = 770
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [770] = integer 0d
       Stack Push [771] = addr 747
       Stack Push [772] = addr 23575
       Stack Push [773] = addr 770
       Stack Push [774] = addr 0
       Stack Push [775] = addr 0
       SP = 776
       FP = 771
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [774] = addr 2
       Stack Write [775] = addr 747
       Display [1] = 00747
       Display [2] = 00771
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [776] = addr 100754
       SP = 777
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [777] = integer 2d
       SP = 1000
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [777] = integer 2d
       Stack Push [777] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [777] = integer 1d
       Stack Pop [776] = addr 100754
       Stack Write [754] = integer 1d
       SP = 776
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [776] = integer 0d
       Stack Push [777] = addr 771
       Stack Push [1000] = addr 23551
       Stack Push [1001] = addr 776
       Stack Push [1002] = addr 0
       Stack Push [1003] = addr 0
       Stack Push [1004] = integer 0d
       Stack Push [1005] = addr 200771
       Stack Push [1006] = integer 0d
       Stack Push [1007] = addr 200771
       Stack Push [1010] = integer 0d
       Stack Push [1011] = addr 200771
       Stack Push [1012] = integer 0d
       Stack Push [1013] = addr 200771
       Stack Push [1014] = integer 0d
       Stack Push [1015] = addr 200771
       Stack Push [1016] = integer 0d
       Stack Push [1017] = addr 200771
       SP = 1020
       FP = 777
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1002] = addr 1
       Display [1] = 00777
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1020] = addr 101004
       SP = 1021
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1021] = integer 1d
       SP = 1022
 23510: 00 00 00125 ST  store
       Stack Pop [1021] = integer 1d
       Stack Pop [1020] = addr 101004
       Stack Write [1004] = integer 1d
       SP = 1020
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1020] = integer 1d
       SP = 1021
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1021] = integer 1d
       SP = 1022
 23562: 00 00 00105 LES less <
       Stack Pop [1021] = integer 1d
       Stack Pop [1020] = integer 1d
       Stack Push [1020] = integer 1d
       SP = 1021
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1020] = integer 1d
       SP = 1020
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1020] = integer 0d
       Stack Push [1021] = addr 777
       Stack Push [1022] = addr 23575
       Stack Push [1023] = addr 1020
       Stack Push [1024] = addr 0
       Stack Push [1025] = addr 0
       SP = 1026
       FP = 1021
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1024] = addr 2
       Stack Write [1025] = addr 777
       Display [1] = 00777
       Display [2] = 01021
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1026] = addr 101004
       SP = 1027
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1027] = integer 1d
       SP = 1030
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1027] = integer 1d
       Stack Push [1027] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [1027] = integer 0d
       Stack Pop [1026] = addr 101004
       Stack Write [1004] = integer 0d
       SP = 1026
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1026] = integer 0d
       Stack Push [1027] = addr 1021
       Stack Push [1030] = addr 23551
       Stack Push [1031] = addr 1026
       Stack Push [1032] = addr 0
       Stack Push [1033] = addr 0
       Stack Push [1034] = integer 0d
       Stack Push [1035] = addr 201021
       Stack Push [1036] = integer 0d
       Stack Push [1037] = addr 201021
       Stack Push [1040] = integer 0d
       Stack Push [1041] = addr 201021
       Stack Push [1042] = integer 0d
       Stack Push [1043] = addr 201021
       Stack Push [1044] = integer 0d
       Stack Push [1045] = addr 201021
       Stack Push [1046] = integer 0d
       Stack Push [1047] = addr 201021
       SP = 1050
       FP = 1027
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1032] = addr 1
       Display [1] = 01027
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1050] = addr 101034
       SP = 1051
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1051] = integer 0d
       SP = 1052
 23510: 00 00 00125 ST  store
       Stack Pop [1051] = integer 0d
       Stack Pop [1050] = addr 101034
       Stack Write [1034] = integer 0d
       SP = 1050
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1050] = integer 0d
       SP = 1051
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1051] = integer 1d
       SP = 1052
 23562: 00 00 00105 LES less <
       Stack Pop [1051] = integer 1d
       Stack Pop [1050] = integer 0d
       Stack Push [1050] = integer 0d
       SP = 1051
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1050] = integer 0d
       C = 1
       SP = 1050
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 1027 -> Level 2, Frame 1021
       Stack Push [1050] = integer 0d
       Stack Push [1051] = addr 1027
       Stack Push [1052] = addr 23567
       Stack Push [1053] = addr 1050
       Stack Push [1054] = addr 0
       Stack Push [1055] = addr 0
       Stack Write [1054] = addr 2
       Stack Write [1055] = addr 1027
       Display [1] = 00777
       Display [2] = 01021
       SP = 1056
       FP = 1051
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 1021 -> Level 2, Frame 771
       Stack Push [1056] = integer 0d
       Stack Push [1057] = addr 1051
       Stack Push [1060] = addr 23535
       Stack Push [1061] = addr 1056
       Stack Push [1062] = addr 0
       Stack Push [1063] = addr 0
       Stack Write [1062] = addr 2
       Stack Write [1063] = addr 777
       Display [1] = 00747
       Display [2] = 00771
       SP = 1064
       FP = 1057
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 771 -> Level 2, Frame 741
       Stack Push [1064] = integer 0d
       Stack Push [1065] = addr 1057
       Stack Push [1066] = addr 23532
       Stack Push [1067] = addr 1064
       Stack Push [1070] = addr 0
       Stack Push [1071] = addr 0
       Stack Write [1070] = addr 2
       Stack Write [1071] = addr 747
       Display [1] = 00171
       Display [2] = 00741
       SP = 1072
       FP = 1065
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 741 -> Level 2, Frame 163
       Stack Push [1072] = integer 0d
       Stack Push [1073] = addr 1065
       Stack Push [1074] = addr 23527
       Stack Push [1075] = addr 1072
       Stack Push [1076] = addr 0
       Stack Push [1077] = addr 0
       Stack Write [1076] = addr 2
       Stack Write [1077] = addr 171
       Display [1] = 00141
       Display [2] = 00163
       SP = 1100
       FP = 1073
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1077] = addr 141
       Display [2] = 01073
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1100] = addr 100146
       SP = 1101
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1101] = integer 5d
       SP = 1102
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1101] = integer 5d
       Stack Push [1101] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [1101] = integer 4d
       Stack Pop [1100] = addr 100146
       Stack Write [146] = integer 4d
       SP = 1100
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1100] = integer 0d
       Stack Push [1101] = addr 1073
       Stack Push [1102] = addr 23551
       Stack Push [1103] = addr 1100
       Stack Push [1104] = addr 0
       Stack Push [1105] = addr 0
       Stack Push [1106] = integer 0d
       Stack Push [1107] = addr 201073
       Stack Push [1110] = integer 0d
       Stack Push [1111] = addr 201073
       Stack Push [1112] = integer 0d
       Stack Push [1113] = addr 201073
       Stack Push [1114] = integer 0d
       Stack Push [1115] = addr 201073
       Stack Push [1116] = integer 0d
       Stack Push [1117] = addr 201073
       Stack Push [1120] = integer 0d
       Stack Push [1121] = addr 201073
       SP = 1122
       FP = 1101
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1104] = addr 1
       Display [1] = 01101
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1122] = addr 101106
       SP = 1123
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1123] = integer 4d
       SP = 1124
 23510: 00 00 00125 ST  store
       Stack Pop [1123] = integer 4d
       Stack Pop [1122] = addr 101106
       Stack Write [1106] = integer 4d
       SP = 1122
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1122] = integer 4d
       SP = 1123
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1123] = integer 1d
       SP = 1124
 23562: 00 00 00105 LES less <
       Stack Pop [1123] = integer 1d
       Stack Pop [1122] = integer 4d
       Stack Push [1122] = integer 1d
       SP = 1123
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1122] = integer 1d
       C = 0
       SP = 1122
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1122] = integer 0d
       Stack Push [1123] = addr 1101
       Stack Push [1124] = addr 23575
       Stack Push [1125] = addr 1122
       Stack Push [1126] = addr 0
       Stack Push [1127] = addr 0
       SP = 1130
       FP = 1123
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1126] = addr 2
       Stack Write [1127] = addr 1101
       Display [1] = 01101
       Display [2] = 01123
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1130] = addr 101106
       SP = 1131
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1131] = integer 4d
       SP = 1132
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1131] = integer 4d
       Stack Push [1131] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [1131] = integer 3d
       Stack Pop [1130] = addr 101106
       Stack Write [1106] = integer 3d
       SP = 1130
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1130] = integer 0d
       Stack Push [1131] = addr 1123
       Stack Push [1132] = addr 23551
       Stack Push [1133] = addr 1130
       Stack Push [1134] = addr 0
       Stack Push [1135] = addr 0
       Stack Push [1136] = integer 0d
       Stack Push [1137] = addr 201123
       Stack Push [1140] = integer 0d
       Stack Push [1141] = addr 201123
       Stack Push [1142] = integer 0d
       Stack Push [1143] = addr 201123
       Stack Push [1144] = integer 0d
       Stack Push [1145] = addr 201123
       Stack Push [1146] = integer 0d
       Stack Push [1147] = addr 201123
       Stack Push [1150] = integer 0d
       Stack Push [1151] = addr 201123
       SP = 1152
       FP = 1131
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1134] = addr 1
       Display [1] = 01131
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1152] = addr 101136
       SP = 1153
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1153] = integer 3d
       SP = 1154
 23510: 00 00 00125 ST  store
       Stack Pop [1153] = integer 3d
       Stack Pop [1152] = addr 101136
       Stack Write [1136] = integer 3d
       SP = 1152
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1152] = integer 3d
       SP = 1153
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1153] = integer 1d
       SP = 1154
 23562: 00 00 00105 LES less <
       Stack Pop [1153] = integer 1d
       Stack Pop [1152] = integer 3d
       Stack Push [1152] = integer 1d
       SP = 1153
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1152] = integer 1d
       SP = 1152
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1152] = integer 0d
       Stack Push [1153] = addr 1131
       Stack Push [1154] = addr 23575
       Stack Push [1155] = addr 1152
       Stack Push [1156] = addr 0
       Stack Push [1157] = addr 0
       SP = 1160
       FP = 1153
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1156] = addr 2
       Stack Write [1157] = addr 1131
       Display [1] = 01131
       Display [2] = 01153
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1160] = addr 101136
       SP = 1161
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1161] = integer 3d
       SP = 1162
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1161] = integer 3d
       Stack Push [1161] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [1161] = integer 2d
       Stack Pop [1160] = addr 101136
       Stack Write [1136] = integer 2d
       SP = 1160
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1160] = integer 0d
       Stack Push [1161] = addr 1153
       Stack Push [1162] = addr 23551
       Stack Push [1163] = addr 1160
       Stack Push [1164] = addr 0
       Stack Push [1165] = addr 0
       Stack Push [1166] = integer 0d
       Stack Push [1167] = addr 201153
       Stack Push [1170] = integer 0d
       Stack Push [1171] = addr 201153
       Stack Push [1172] = integer 0d
       Stack Push [1173] = addr 201153
       Stack Push [1174] = integer 0d
       Stack Push [1175] = addr 201153
       Stack Push [1176] = integer 0d
       Stack Push [1177] = addr 201153
       Stack Push [1200] = integer 0d
       Stack Push [1201] = addr 201153
       SP = 1202
       FP = 1161
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1164] = addr 1
       Display [1] = 01161
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1202] = addr 101166
       SP = 1203
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1203] = integer 2d
       SP = 1204
 23510: 00 00 00125 ST  store
       Stack Pop [1203] = integer 2d
       Stack Pop [1202] = addr 101166
       Stack Write [1166] = integer 2d
       SP = 1202
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1202] = integer 2d
       SP = 1203
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1203] = integer 1d
       SP = 1204
 23562: 00 00 00105 LES less <
       Stack Pop [1203] = integer 1d
       Stack Pop [1202] = integer 2d
       Stack Push [1202] = integer 1d
       SP = 1203
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1202] = integer 1d
       SP = 1202
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1202] = integer 0d
       Stack Push [1203] = addr 1161
       Stack Push [1204] = addr 23575
       Stack Push [1205] = addr 1202
       Stack Push [1206] = addr 0
       Stack Push [1207] = addr 0
       SP = 1210
       FP = 1203
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1206] = addr 2
       Stack Write [1207] = addr 1161
       Display [1] = 01161
       Display [2] = 01203
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1210] = addr 101166
       SP = 1211
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1211] = integer 2d
       SP = 1212
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1211] = integer 2d
       Stack Push [1211] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [1211] = integer 1d
       Stack Pop [1210] = addr 101166
       Stack Write [1166] = integer 1d
       SP = 1210
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1210] = integer 0d
       Stack Push [1211] = addr 1203
       Stack Push [1212] = addr 23551
       Stack Push [1213] = addr 1210
       Stack Push [1214] = addr 0
       Stack Push [1215] = addr 0
       Stack Push [1216] = integer 0d
       Stack Push [1217] = addr 201203
       Stack Push [1220] = integer 0d
       Stack Push [1221] = addr 201203
       Stack Push [1222] = integer 0d
       Stack Push [1223] = addr 201203
       Stack Push [1224] = integer 0d
       Stack Push [1225] = addr 201203
       Stack Push [1226] = integer 0d
       Stack Push [1227] = addr 201203
       Stack Push [1230] = integer 0d
       Stack Push [1231] = addr 201203
       SP = 1232
       FP = 1211
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1214] = addr 1
       Display [1] = 01211
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1232] = addr 101216
       SP = 1233
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1233] = integer 1d
       SP = 1234
 23510: 00 00 00125 ST  store
       Stack Pop [1233] = integer 1d
       Stack Pop [1232] = addr 101216
       Stack Write [1216] = integer 1d
       SP = 1232
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1232] = integer 1d
       SP = 1233
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1233] = integer 1d
       SP = 1234
 23562: 00 00 00105 LES less <
       Stack Pop [1233] = integer 1d
       Stack Pop [1232] = integer 1d
       Stack Push [1232] = integer 1d
       SP = 1233
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1232] = integer 1d
       SP = 1232
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1232] = integer 0d
       Stack Push [1233] = addr 1211
       Stack Push [1234] = addr 23575
       Stack Push [1235] = addr 1232
       Stack Push [1236] = addr 0
       Stack Push [1237] = addr 0
       SP = 1240
       FP = 1233
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1236] = addr 2
       Stack Write [1237] = addr 1211
       Display [1] = 01211
       Display [2] = 01233
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1240] = addr 101216
       SP = 1241
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1241] = integer 1d
       SP = 1242
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1241] = integer 1d
       Stack Push [1241] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [1241] = integer 0d
       Stack Pop [1240] = addr 101216
       Stack Write [1216] = integer 0d
       SP = 1240
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1240] = integer 0d
       Stack Push [1241] = addr 1233
       Stack Push [1242] = addr 23551
       Stack Push [1243] = addr 1240
       Stack Push [1244] = addr 0
       Stack Push [1245] = addr 0
       Stack Push [1246] = integer 0d
       Stack Push [1247] = addr 201233
       Stack Push [1250] = integer 0d
       Stack Push [1251] = addr 201233
       Stack Push [1252] = integer 0d
       Stack Push [1253] = addr 201233
       Stack Push [1254] = integer 0d
       Stack Push [1255] = addr 201233
       Stack Push [1256] = integer 0d
       Stack Push [1257] = addr 201233
       Stack Push [1260] = integer 0d
       Stack Push [1261] = addr 201233
       SP = 1262
       FP = 1241
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1244] = addr 1
       Display [1] = 01241
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1262] = addr 101246
       SP = 1263
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1263] = integer 0d
       SP = 1264
 23510: 00 00 00125 ST  store
       Stack Pop [1263] = integer 0d
       Stack Pop [1262] = addr 101246
       Stack Write [1246] = integer 0d
       SP = 1262
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1262] = integer 0d
       SP = 1263
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1263] = integer 1d
       SP = 1264
 23562: 00 00 00105 LES less <
       Stack Pop [1263] = integer 1d
       Stack Pop [1262] = integer 0d
       Stack Push [1262] = integer 0d
       SP = 1263
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1262] = integer 0d
       C = 1
       SP = 1262
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 1241 -> Level 2, Frame 1233
       Stack Push [1262] = integer 0d
       Stack Push [1263] = addr 1241
       Stack Push [1264] = addr 23567
       Stack Push [1265] = addr 1262
       Stack Push [1266] = addr 0
       Stack Push [1267] = addr 0
       Stack Write [1266] = addr 2
       Stack Write [1267] = addr 1241
       Display [1] = 01211
       Display [2] = 01233
       SP = 1270
       FP = 1263
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 1233 -> Level 2, Frame 1203
       Stack Push [1270] = integer 0d
       Stack Push [1271] = addr 1263
       Stack Push [1272] = addr 23535
       Stack Push [1273] = addr 1270
       Stack Push [1274] = addr 0
       Stack Push [1275] = addr 0
       Stack Write [1274] = addr 2
       Stack Write [1275] = addr 1211
       Display [1] = 01161
       Display [2] = 01203
       SP = 1276
       FP = 1271
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 1203 -> Level 2, Frame 1153
       Stack Push [1276] = integer 0d
       Stack Push [1277] = addr 1271
       Stack Push [1300] = addr 23532
       Stack Push [1301] = addr 1276
       Stack Push [1302] = addr 0
       Stack Push [1303] = addr 0
       Stack Write [1302] = addr 2
       Stack Write [1303] = addr 1161
       Display [1] = 01131
       Display [2] = 01153
       SP = 1304
       FP = 1277
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 1153 -> Level 2, Frame 1123
       Stack Push [1304] = integer 0d
       Stack Push [1305] = addr 1277
       Stack Push [1306] = addr 23527
       Stack Push [1307] = addr 1304
       Stack Push [1310] = addr 0
       Stack Push [1311] = addr 0
       Stack Write [1310] = addr 2
       Stack Write [1311] = addr 1131
       Display [1] = 01101
       Display [2] = 01123
       SP = 1312
       FP = 1305
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1311] = addr 1101
       Display [2] = 01305
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1312] = addr 101106
       SP = 1313
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1313] = integer 3d
       SP = 1314
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1313] = integer 3d
       Stack Push [1313] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [1313] = integer 2d
       Stack Pop [1312] = addr 101106
       Stack Write [1106] = integer 2d
       SP = 1312
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1312] = integer 0d
       Stack Push [1313] = addr 1305
       Stack Push [1314] = addr 23551
       Stack Push [1315] = addr 1312
       Stack Push [1316] = addr 0
       Stack Push [1317] = addr 0
       Stack Push [1320] = integer 0d
       Stack Push [1321] = addr 201305
       Stack Push [1322] = integer 0d
       Stack Push [1323] = addr 201305
       Stack Push [1324] = integer 0d
       Stack Push [1325] = addr 201305
       Stack Push [1326] = integer 0d
       Stack Push [1327] = addr 201305
       Stack Push [1330] = integer 0d
       Stack Push [1331] = addr 201305
       Stack Push [1332] = integer 0d
       Stack Push [1333] = addr 201305
       SP = 1334
       FP = 1313
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1316] = addr 1
       Display [1] = 01313
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1334] = addr 101320
       SP = 1335
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1335] = integer 2d
       SP = 1336
 23510: 00 00 00125 ST  store
       Stack Pop [1335] = integer 2d
       Stack Pop [1334] = addr 101320
       Stack Write [1320] = integer 2d
       SP = 1334
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1334] = integer 2d
       SP = 1335
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1335] = integer 1d
       SP = 1336
 23562: 00 00 00105 LES less <
       Stack Pop [1335] = integer 1d
       Stack Pop [1334] = integer 2d
       Stack Push [1334] = integer 1d
       SP = 1335
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1334] = integer 1d
       C = 0
       SP = 1334
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1334] = integer 0d
       Stack Push [1335] = addr 1313
       Stack Push [1336] = addr 23575
       Stack Push [1337] = addr 1334
       Stack Push [1340] = addr 0
       Stack Push [1341] = addr 0
       SP = 1342
       FP = 1335
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1340] = addr 2
       Stack Write [1341] = addr 1313
       Display [1] = 01313
       Display [2] = 01335
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1342] = addr 101320
       SP = 1343
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1343] = integer 2d
       SP = 1344
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1343] = integer 2d
       Stack Push [1343] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [1343] = integer 1d
       Stack Pop [1342] = addr 101320
       Stack Write [1320] = integer 1d
       SP = 1342
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1342] = integer 0d
       Stack Push [1343] = addr 1335
       Stack Push [1344] = addr 23551
       Stack Push [1345] = addr 1342
       Stack Push [1346] = addr 0
       Stack Push [1347] = addr 0
       Stack Push [1350] = integer 0d
       Stack Push [1351] = addr 201335
       Stack Push [1352] = integer 0d
       Stack Push [1353] = addr 201335
       Stack Push [1354] = integer 0d
       Stack Push [1355] = addr 201335
       Stack Push [1356] = integer 0d
       Stack Push [1357] = addr 201335
       Stack Push [1360] = integer 0d
       Stack Push [1361] = addr 201335
       Stack Push [1362] = integer 0d
       Stack Push [1363] = addr 201335
       SP = 1364
       FP = 1343
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1346] = addr 1
       Display [1] = 01343
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1364] = addr 101350
       SP = 1365
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1365] = integer 1d
       SP = 1366
 23510: 00 00 00125 ST  store
       Stack Pop [1365] = integer 1d
       Stack Pop [1364] = addr 101350
       Stack Write [1350] = integer 1d
       SP = 1364
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1364] = integer 1d
       SP = 1365
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1365] = integer 1d
       SP = 1366
 23562: 00 00 00105 LES less <
       Stack Pop [1365] = integer 1d
       Stack Pop [1364] = integer 1d
       Stack Push [1364] = integer 1d
       SP = 1365
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1364] = integer 1d
       SP = 1364
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1364] = integer 0d
       Stack Push [1365] = addr 1343
       Stack Push [1366] = addr 23575
       Stack Push [1367] = addr 1364
       Stack Push [1370] = addr 0
       Stack Push [1371] = addr 0
       SP = 1372
       FP = 1365
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1370] = addr 2
       Stack Write [1371] = addr 1343
       Display [1] = 01343
       Display [2] = 01365
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1372] = addr 101350
       SP = 1373
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1373] = integer 1d
       SP = 1374
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1373] = integer 1d
       Stack Push [1373] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [1373] = integer 0d
       Stack Pop [1372] = addr 101350
       Stack Write [1350] = integer 0d
       SP = 1372
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1372] = integer 0d
       Stack Push [1373] = addr 1365
       Stack Push [1374] = addr 23551
       Stack Push [1375] = addr 1372
       Stack Push [1376] = addr 0
       Stack Push [1377] = addr 0
       Stack Push [1400] = integer 0d
       Stack Push [1401] = addr 201365
       Stack Push [1402] = integer 0d
       Stack Push [1403] = addr 201365
       Stack Push [1404] = integer 0d
       Stack Push [1405] = addr 201365
       Stack Push [1406] = integer 0d
       Stack Push [1407] = addr 201365
       Stack Push [1410] = integer 0d
       Stack Push [1411] = addr 201365
       Stack Push [1412] = integer 0d
       Stack Push [1413] = addr 201365
       SP = 1414
       FP = 1373
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1376] = addr 1
       Display [1] = 01373
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1414] = addr 101400
       SP = 1415
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1415] = integer 0d
       SP = 1416
 23510: 00 00 00125 ST  store
       Stack Pop [1415] = integer 0d
       Stack Pop [1414] = addr 101400
       Stack Write [1400] = integer 0d
       SP = 1414
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1414] = integer 0d
       SP = 1415
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1415] = integer 1d
       SP = 1416
 23562: 00 00 00105 LES less <
       Stack Pop [1415] = integer 1d
       Stack Pop [1414] = integer 0d
       Stack Push [1414] = integer 0d
       SP = 1415
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1414] = integer 0d
       C = 1
       SP = 1414
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 1373 -> Level 2, Frame 1365
       Stack Push [1414] = integer 0d
       Stack Push [1415] = addr 1373
       Stack Push [1416] = addr 23567
       Stack Push [1417] = addr 1414
       Stack Push [1420] = addr 0
       Stack Push [1421] = addr 0
       Stack Write [1420] = addr 2
       Stack Write [1421] = addr 1373
       Display [1] = 01343
       Display [2] = 01365
       SP = 1422
       FP = 1415
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 1365 -> Level 2, Frame 1335
       Stack Push [1422] = integer 0d
       Stack Push [1423] = addr 1415
       Stack Push [1424] = addr 23535
       Stack Push [1425] = addr 1422
       Stack Push [1426] = addr 0
       Stack Push [1427] = addr 0
       Stack Write [1426] = addr 2
       Stack Write [1427] = addr 1343
       Display [1] = 01313
       Display [2] = 01335
       SP = 1430
       FP = 1423
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 1335 -> Level 2, Frame 1305
       Stack Push [1430] = integer 0d
       Stack Push [1431] = addr 1423
       Stack Push [1432] = addr 23532
       Stack Push [1433] = addr 1430
       Stack Push [1434] = addr 0
       Stack Push [1435] = addr 0
       Stack Write [1434] = addr 2
       Stack Write [1435] = addr 1313
       Display [1] = 01101
       Display [2] = 01305
       SP = 1436
       FP = 1431
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 1305 -> Level 2, Frame 1073
       Stack Push [1436] = integer 0d
       Stack Push [1437] = addr 1431
       Stack Push [1440] = addr 23527
       Stack Push [1441] = addr 1436
       Stack Push [1442] = addr 0
       Stack Push [1443] = addr 0
       Stack Write [1442] = addr 2
       Stack Write [1443] = addr 1101
       Display [1] = 00141
       Display [2] = 01073
       SP = 1444
       FP = 1437
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1443] = addr 141
       Display [2] = 01437
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1444] = addr 100146
       SP = 1445
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1445] = integer 4d
       SP = 1446
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1445] = integer 4d
       Stack Push [1445] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [1445] = integer 3d
       Stack Pop [1444] = addr 100146
       Stack Write [146] = integer 3d
       SP = 1444
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1444] = integer 0d
       Stack Push [1445] = addr 1437
       Stack Push [1446] = addr 23551
       Stack Push [1447] = addr 1444
       Stack Push [1450] = addr 0
       Stack Push [1451] = addr 0
       Stack Push [1452] = integer 0d
       Stack Push [1453] = addr 201437
       Stack Push [1454] = integer 0d
       Stack Push [1455] = addr 201437
       Stack Push [1456] = integer 0d
       Stack Push [1457] = addr 201437
       Stack Push [1460] = integer 0d
       Stack Push [1461] = addr 201437
       Stack Push [1462] = integer 0d
       Stack Push [1463] = addr 201437
       Stack Push [1464] = integer 0d
       Stack Push [1465] = addr 201437
       SP = 1466
       FP = 1445
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1450] = addr 1
       Display [1] = 01445
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1466] = addr 101452
       SP = 1467
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1467] = integer 3d
       SP = 1470
 23510: 00 00 00125 ST  store
       Stack Pop [1467] = integer 3d
       Stack Pop [1466] = addr 101452
       Stack Write [1452] = integer 3d
       SP = 1466
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1466] = integer 3d
       SP = 1467
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1467] = integer 1d
       SP = 1470
 23562: 00 00 00105 LES less <
       Stack Pop [1467] = integer 1d
       Stack Pop [1466] = integer 3d
       Stack Push [1466] = integer 1d
       SP = 1467
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1466] = integer 1d
       C = 0
       SP = 1466
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1466] = integer 0d
       Stack Push [1467] = addr 1445
       Stack Push [1470] = addr 23575
       Stack Push [1471] = addr 1466
       Stack Push [1472] = addr 0
       Stack Push [1473] = addr 0
       SP = 1474
       FP = 1467
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1472] = addr 2
       Stack Write [1473] = addr 1445
       Display [1] = 01445
       Display [2] = 01467
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1474] = addr 101452
       SP = 1475
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1475] = integer 3d
       SP = 1476
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1475] = integer 3d
       Stack Push [1475] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [1475] = integer 2d
       Stack Pop [1474] = addr 101452
       Stack Write [1452] = integer 2d
       SP = 1474
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1474] = integer 0d
       Stack Push [1475] = addr 1467
       Stack Push [1476] = addr 23551
       Stack Push [1477] = addr 1474
       Stack Push [1500] = addr 0
       Stack Push [1501] = addr 0
       Stack Push [1502] = integer 0d
       Stack Push [1503] = addr 201467
       Stack Push [1504] = integer 0d
       Stack Push [1505] = addr 201467
       Stack Push [1506] = integer 0d
       Stack Push [1507] = addr 201467
       Stack Push [1510] = integer 0d
       Stack Push [1511] = addr 201467
       Stack Push [1512] = integer 0d
       Stack Push [1513] = addr 201467
       Stack Push [1514] = integer 0d
       Stack Push [1515] = addr 201467
       SP = 1516
       FP = 1475
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1500] = addr 1
       Display [1] = 01475
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1516] = addr 101502
       SP = 1517
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1517] = integer 2d
       SP = 1520
 23510: 00 00 00125 ST  store
       Stack Pop [1517] = integer 2d
       Stack Pop [1516] = addr 101502
       Stack Write [1502] = integer 2d
       SP = 1516
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1516] = integer 2d
       SP = 1517
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1517] = integer 1d
       SP = 1520
 23562: 00 00 00105 LES less <
       Stack Pop [1517] = integer 1d
       Stack Pop [1516] = integer 2d
       Stack Push [1516] = integer 1d
       SP = 1517
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1516] = integer 1d
       SP = 1516
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1516] = integer 0d
       Stack Push [1517] = addr 1475
       Stack Push [1520] = addr 23575
       Stack Push [1521] = addr 1516
       Stack Push [1522] = addr 0
       Stack Push [1523] = addr 0
       SP = 1524
       FP = 1517
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1522] = addr 2
       Stack Write [1523] = addr 1475
       Display [1] = 01475
       Display [2] = 01517
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1524] = addr 101502
       SP = 1525
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1525] = integer 2d
       SP = 1526
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1525] = integer 2d
       Stack Push [1525] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [1525] = integer 1d
       Stack Pop [1524] = addr 101502
       Stack Write [1502] = integer 1d
       SP = 1524
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1524] = integer 0d
       Stack Push [1525] = addr 1517
       Stack Push [1526] = addr 23551
       Stack Push [1527] = addr 1524
       Stack Push [1530] = addr 0
       Stack Push [1531] = addr 0
       Stack Push [1532] = integer 0d
       Stack Push [1533] = addr 201517
       Stack Push [1534] = integer 0d
       Stack Push [1535] = addr 201517
       Stack Push [1536] = integer 0d
       Stack Push [1537] = addr 201517
       Stack Push [1540] = integer 0d
       Stack Push [1541] = addr 201517
       Stack Push [1542] = integer 0d
       Stack Push [1543] = addr 201517
       Stack Push [1544] = integer 0d
       Stack Push [1545] = addr 201517
       SP = 1546
       FP = 1525
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1530] = addr 1
       Display [1] = 01525
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1546] = addr 101532
       SP = 1547
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1547] = integer 1d
       SP = 1550
 23510: 00 00 00125 ST  store
       Stack Pop [1547] = integer 1d
       Stack Pop [1546] = addr 101532
       Stack Write [1532] = integer 1d
       SP = 1546
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1546] = integer 1d
       SP = 1547
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1547] = integer 1d
       SP = 1550
 23562: 00 00 00105 LES less <
       Stack Pop [1547] = integer 1d
       Stack Pop [1546] = integer 1d
       Stack Push [1546] = integer 1d
       SP = 1547
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1546] = integer 1d
       SP = 1546
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1546] = integer 0d
       Stack Push [1547] = addr 1525
       Stack Push [1550] = addr 23575
       Stack Push [1551] = addr 1546
       Stack Push [1552] = addr 0
       Stack Push [1553] = addr 0
       SP = 1554
       FP = 1547
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1552] = addr 2
       Stack Write [1553] = addr 1525
       Display [1] = 01525
       Display [2] = 01547
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1554] = addr 101532
       SP = 1555
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1555] = integer 1d
       SP = 1556
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1555] = integer 1d
       Stack Push [1555] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [1555] = integer 0d
       Stack Pop [1554] = addr 101532
       Stack Write [1532] = integer 0d
       SP = 1554
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1554] = integer 0d
       Stack Push [1555] = addr 1547
       Stack Push [1556] = addr 23551
       Stack Push [1557] = addr 1554
       Stack Push [1560] = addr 0
       Stack Push [1561] = addr 0
       Stack Push [1562] = integer 0d
       Stack Push [1563] = addr 201547
       Stack Push [1564] = integer 0d
       Stack Push [1565] = addr 201547
       Stack Push [1566] = integer 0d
       Stack Push [1567] = addr 201547
       Stack Push [1570] = integer 0d
       Stack Push [1571] = addr 201547
       Stack Push [1572] = integer 0d
       Stack Push [1573] = addr 201547
       Stack Push [1574] = integer 0d
       Stack Push [1575] = addr 201547
       SP = 1576
       FP = 1555
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1560] = addr 1
       Display [1] = 01555
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1576] = addr 101562
       SP = 1577
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1577] = integer 0d
       SP = 1600
 23510: 00 00 00125 ST  store
       Stack Pop [1577] = integer 0d
       Stack Pop [1576] = addr 101562
       Stack Write [1562] = integer 0d
       SP = 1576
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1576] = integer 0d
       SP = 1577
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1577] = integer 1d
       SP = 1600
 23562: 00 00 00105 LES less <
       Stack Pop [1577] = integer 1d
       Stack Pop [1576] = integer 0d
       Stack Push [1576] = integer 0d
       SP = 1577
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1576] = integer 0d
       C = 1
       SP = 1576
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 1555 -> Level 2, Frame 1547
       Stack Push [1576] = integer 0d
       Stack Push [1577] = addr 1555
       Stack Push [1600] = addr 23567
       Stack Push [1601] = addr 1576
       Stack Push [1602] = addr 0
       Stack Push [1603] = addr 0
       Stack Write [1602] = addr 2
       Stack Write [1603] = addr 1555
       Display [1] = 01525
       Display [2] = 01547
       SP = 1604
       FP = 1577
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 1547 -> Level 2, Frame 1517
       Stack Push [1604] = integer 0d
       Stack Push [1605] = addr 1577
       Stack Push [1606] = addr 23535
       Stack Push [1607] = addr 1604
       Stack Push [1610] = addr 0
       Stack Push [1611] = addr 0
       Stack Write [1610] = addr 2
       Stack Write [1611] = addr 1525
       Display [1] = 01475
       Display [2] = 01517
       SP = 1612
       FP = 1605
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 1517 -> Level 2, Frame 1467
       Stack Push [1612] = integer 0d
       Stack Push [1613] = addr 1605
       Stack Push [1614] = addr 23532
       Stack Push [1615] = addr 1612
       Stack Push [1616] = addr 0
       Stack Push [1617] = addr 0
       Stack Write [1616] = addr 2
       Stack Write [1617] = addr 1475
       Display [1] = 01445
       Display [2] = 01467
       SP = 1620
       FP = 1613
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 1467 -> Level 2, Frame 1437
       Stack Push [1620] = integer 0d
       Stack Push [1621] = addr 1613
       Stack Push [1622] = addr 23527
       Stack Push [1623] = addr 1620
       Stack Push [1624] = addr 0
       Stack Push [1625] = addr 0
       Stack Write [1624] = addr 2
       Stack Write [1625] = addr 1445
       Display [1] = 00141
       Display [2] = 01437
       SP = 1626
       FP = 1621
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1625] = addr 141
       Display [2] = 01621
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1626] = addr 100146
       SP = 1627
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1627] = integer 3d
       SP = 1630
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1627] = integer 3d
       Stack Push [1627] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [1627] = integer 2d
       Stack Pop [1626] = addr 100146
       Stack Write [146] = integer 2d
       SP = 1626
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1626] = integer 0d
       Stack Push [1627] = addr 1621
       Stack Push [1630] = addr 23551
       Stack Push [1631] = addr 1626
       Stack Push [1632] = addr 0
       Stack Push [1633] = addr 0
       Stack Push [1634] = integer 0d
       Stack Push [1635] = addr 201621
       Stack Push [1636] = integer 0d
       Stack Push [1637] = addr 201621
       Stack Push [1640] = integer 0d
       Stack Push [1641] = addr 201621
       Stack Push [1642] = integer 0d
       Stack Push [1643] = addr 201621
       Stack Push [1644] = integer 0d
       Stack Push [1645] = addr 201621
       Stack Push [1646] = integer 0d
       Stack Push [1647] = addr 201621
       SP = 1650
       FP = 1627
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1632] = addr 1
       Display [1] = 01627
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1650] = addr 101634
       SP = 1651
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1651] = integer 2d
       SP = 1652
 23510: 00 00 00125 ST  store
       Stack Pop [1651] = integer 2d
       Stack Pop [1650] = addr 101634
       Stack Write [1634] = integer 2d
       SP = 1650
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1650] = integer 2d
       SP = 1651
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1651] = integer 1d
       SP = 1652
 23562: 00 00 00105 LES less <
       Stack Pop [1651] = integer 1d
       Stack Pop [1650] = integer 2d
       Stack Push [1650] = integer 1d
       SP = 1651
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1650] = integer 1d
       C = 0
       SP = 1650
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1650] = integer 0d
       Stack Push [1651] = addr 1627
       Stack Push [1652] = addr 23575
       Stack Push [1653] = addr 1650
       Stack Push [1654] = addr 0
       Stack Push [1655] = addr 0
       SP = 1656
       FP = 1651
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1654] = addr 2
       Stack Write [1655] = addr 1627
       Display [1] = 01627
       Display [2] = 01651
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1656] = addr 101634
       SP = 1657
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1657] = integer 2d
       SP = 1660
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1657] = integer 2d
       Stack Push [1657] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [1657] = integer 1d
       Stack Pop [1656] = addr 101634
       Stack Write [1634] = integer 1d
       SP = 1656
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1656] = integer 0d
       Stack Push [1657] = addr 1651
       Stack Push [1660] = addr 23551
       Stack Push [1661] = addr 1656
       Stack Push [1662] = addr 0
       Stack Push [1663] = addr 0
       Stack Push [1664] = integer 0d
       Stack Push [1665] = addr 201651
       Stack Push [1666] = integer 0d
       Stack Push [1667] = addr 201651
       Stack Push [1670] = integer 0d
       Stack Push [1671] = addr 201651
       Stack Push [1672] = integer 0d
       Stack Push [1673] = addr 201651
       Stack Push [1674] = integer 0d
       Stack Push [1675] = addr 201651
       Stack Push [1676] = integer 0d
       Stack Push [1677] = addr 201651
       SP = 1700
       FP = 1657
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1662] = addr 1
       Display [1] = 01657
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1700] = addr 101664
       SP = 1701
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1701] = integer 1d
       SP = 1702
 23510: 00 00 00125 ST  store
       Stack Pop [1701] = integer 1d
       Stack Pop [1700] = addr 101664
       Stack Write [1664] = integer 1d
       SP = 1700
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1700] = integer 1d
       SP = 1701
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1701] = integer 1d
       SP = 1702
 23562: 00 00 00105 LES less <
       Stack Pop [1701] = integer 1d
       Stack Pop [1700] = integer 1d
       Stack Push [1700] = integer 1d
       SP = 1701
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1700] = integer 1d
       SP = 1700
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [1700] = integer 0d
       Stack Push [1701] = addr 1657
       Stack Push [1702] = addr 23575
       Stack Push [1703] = addr 1700
       Stack Push [1704] = addr 0
       Stack Push [1705] = addr 0
       SP = 1706
       FP = 1701
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1704] = addr 2
       Stack Write [1705] = addr 1657
       Display [1] = 01657
       Display [2] = 01701
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1706] = addr 101664
       SP = 1707
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1707] = integer 1d
       SP = 1710
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1707] = integer 1d
       Stack Push [1707] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [1707] = integer 0d
       Stack Pop [1706] = addr 101664
       Stack Write [1664] = integer 0d
       SP = 1706
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1706] = integer 0d
       Stack Push [1707] = addr 1701
       Stack Push [1710] = addr 23551
       Stack Push [1711] = addr 1706
       Stack Push [1712] = addr 0
       Stack Push [1713] = addr 0
       Stack Push [1714] = integer 0d
       Stack Push [1715] = addr 201701
       Stack Push [1716] = integer 0d
       Stack Push [1717] = addr 201701
       Stack Push [1720] = integer 0d
       Stack Push [1721] = addr 201701
       Stack Push [1722] = integer 0d
       Stack Push [1723] = addr 201701
       Stack Push [1724] = integer 0d
       Stack Push [1725] = addr 201701
       Stack Push [1726] = integer 0d
       Stack Push [1727] = addr 201701
       SP = 1730
       FP = 1707
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1712] = addr 1
       Display [1] = 01707
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1730] = addr 101714
       SP = 1731
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [1731] = integer 0d
       SP = 1732
 23510: 00 00 00125 ST  store
       Stack Pop [1731] = integer 0d
       Stack Pop [1730] = addr 101714
       Stack Write [1714] = integer 0d
       SP = 1730
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1730] = integer 0d
       SP = 1731
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [1731] = integer 1d
       SP = 1732
 23562: 00 00 00105 LES less <
       Stack Pop [1731] = integer 1d
       Stack Pop [1730] = integer 0d
       Stack Push [1730] = integer 0d
       SP = 1731
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [1730] = integer 0d
       C = 1
       SP = 1730
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 1707 -> Level 2, Frame 1701
       Stack Push [1730] = integer 0d
       Stack Push [1731] = addr 1707
       Stack Push [1732] = addr 23567
       Stack Push [1733] = addr 1730
       Stack Push [1734] = addr 0
       Stack Push [1735] = addr 0
       Stack Write [1734] = addr 2
       Stack Write [1735] = addr 1707
       Display [1] = 01657
       Display [2] = 01701
       SP = 1736
       FP = 1731
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 1701 -> Level 2, Frame 1651
       Stack Push [1736] = integer 0d
       Stack Push [1737] = addr 1731
       Stack Push [1740] = addr 23535
       Stack Push [1741] = addr 1736
       Stack Push [1742] = addr 0
       Stack Push [1743] = addr 0
       Stack Write [1742] = addr 2
       Stack Write [1743] = addr 1657
       Display [1] = 01627
       Display [2] = 01651
       SP = 1744
       FP = 1737
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 1651 -> Level 2, Frame 1621
       Stack Push [1744] = integer 0d
       Stack Push [1745] = addr 1737
       Stack Push [1746] = addr 23532
       Stack Push [1747] = addr 1744
       Stack Push [1750] = addr 0
       Stack Push [1751] = addr 0
       Stack Write [1750] = addr 2
       Stack Write [1751] = addr 1627
       Display [1] = 00141
       Display [2] = 01621
       SP = 1752
       FP = 1745
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 1621 -> Level 2, Frame 133
       Stack Push [1752] = integer 0d
       Stack Push [1753] = addr 1745
       Stack Push [1754] = addr 23527
       Stack Push [1755] = addr 1752
       Stack Push [1756] = addr 0
       Stack Push [1757] = addr 0
       Stack Write [1756] = addr 2
       Stack Write [1757] = addr 141
       Display [1] = 00111
       Display [2] = 00133
       SP = 1760
       FP = 1753
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [1757] = addr 111
       Display [2] = 01753
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [1760] = addr 100116
       SP = 1761
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [1761] = integer 6d
       SP = 1762
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [1761] = integer 6d
       Stack Push [1761] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [1761] = integer 5d
       Stack Pop [1760] = addr 100116
       Stack Write [116] = integer 5d
       SP = 1760
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [1760] = integer 0d
       Stack Push [1761] = addr 1753
       Stack Push [1762] = addr 23551
       Stack Push [1763] = addr 1760
       Stack Push [1764] = addr 0
       Stack Push [1765] = addr 0
       Stack Push [1766] = integer 0d
       Stack Push [1767] = addr 201753
       Stack Push [1770] = integer 0d
       Stack Push [1771] = addr 201753
       Stack Push [1772] = integer 0d
       Stack Push [1773] = addr 201753
       Stack Push [1774] = integer 0d
       Stack Push [1775] = addr 201753
       Stack Push [1776] = integer 0d
       Stack Push [1777] = addr 201753
       Stack Push [2000] = integer 0d
       Stack Push [2001] = addr 201753
       SP = 2002
       FP = 1761
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [1764] = addr 1
       Display [1] = 01761
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2002] = addr 101766
       SP = 2003
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2003] = integer 5d
       SP = 2004
 23510: 00 00 00125 ST  store
       Stack Pop [2003] = integer 5d
       Stack Pop [2002] = addr 101766
       Stack Write [1766] = integer 5d
       SP = 2002
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2002] = integer 5d
       SP = 2003
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2003] = integer 1d
       SP = 2004
 23562: 00 00 00105 LES less <
       Stack Pop [2003] = integer 1d
       Stack Pop [2002] = integer 5d
       Stack Push [2002] = integer 1d
       SP = 2003
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2002] = integer 1d
       C = 0
       SP = 2002
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2002] = integer 0d
       Stack Push [2003] = addr 1761
       Stack Push [2004] = addr 23575
       Stack Push [2005] = addr 2002
       Stack Push [2006] = addr 0
       Stack Push [2007] = addr 0
       SP = 2010
       FP = 2003
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2006] = addr 2
       Stack Write [2007] = addr 1761
       Display [1] = 01761
       Display [2] = 02003
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2010] = addr 101766
       SP = 2011
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2011] = integer 5d
       SP = 2012
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2011] = integer 5d
       Stack Push [2011] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [2011] = integer 4d
       Stack Pop [2010] = addr 101766
       Stack Write [1766] = integer 4d
       SP = 2010
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2010] = integer 0d
       Stack Push [2011] = addr 2003
       Stack Push [2012] = addr 23551
       Stack Push [2013] = addr 2010
       Stack Push [2014] = addr 0
       Stack Push [2015] = addr 0
       Stack Push [2016] = integer 0d
       Stack Push [2017] = addr 202003
       Stack Push [2020] = integer 0d
       Stack Push [2021] = addr 202003
       Stack Push [2022] = integer 0d
       Stack Push [2023] = addr 202003
       Stack Push [2024] = integer 0d
       Stack Push [2025] = addr 202003
       Stack Push [2026] = integer 0d
       Stack Push [2027] = addr 202003
       Stack Push [2030] = integer 0d
       Stack Push [2031] = addr 202003
       SP = 2032
       FP = 2011
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2014] = addr 1
       Display [1] = 02011
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2032] = addr 102016
       SP = 2033
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2033] = integer 4d
       SP = 2034
 23510: 00 00 00125 ST  store
       Stack Pop [2033] = integer 4d
       Stack Pop [2032] = addr 102016
       Stack Write [2016] = integer 4d
       SP = 2032
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2032] = integer 4d
       SP = 2033
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2033] = integer 1d
       SP = 2034
 23562: 00 00 00105 LES less <
       Stack Pop [2033] = integer 1d
       Stack Pop [2032] = integer 4d
       Stack Push [2032] = integer 1d
       SP = 2033
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2032] = integer 1d
       SP = 2032
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2032] = integer 0d
       Stack Push [2033] = addr 2011
       Stack Push [2034] = addr 23575
       Stack Push [2035] = addr 2032
       Stack Push [2036] = addr 0
       Stack Push [2037] = addr 0
       SP = 2040
       FP = 2033
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2036] = addr 2
       Stack Write [2037] = addr 2011
       Display [1] = 02011
       Display [2] = 02033
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2040] = addr 102016
       SP = 2041
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2041] = integer 4d
       SP = 2042
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2041] = integer 4d
       Stack Push [2041] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [2041] = integer 3d
       Stack Pop [2040] = addr 102016
       Stack Write [2016] = integer 3d
       SP = 2040
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2040] = integer 0d
       Stack Push [2041] = addr 2033
       Stack Push [2042] = addr 23551
       Stack Push [2043] = addr 2040
       Stack Push [2044] = addr 0
       Stack Push [2045] = addr 0
       Stack Push [2046] = integer 0d
       Stack Push [2047] = addr 202033
       Stack Push [2050] = integer 0d
       Stack Push [2051] = addr 202033
       Stack Push [2052] = integer 0d
       Stack Push [2053] = addr 202033
       Stack Push [2054] = integer 0d
       Stack Push [2055] = addr 202033
       Stack Push [2056] = integer 0d
       Stack Push [2057] = addr 202033
       Stack Push [2060] = integer 0d
       Stack Push [2061] = addr 202033
       SP = 2062
       FP = 2041
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2044] = addr 1
       Display [1] = 02041
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2062] = addr 102046
       SP = 2063
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2063] = integer 3d
       SP = 2064
 23510: 00 00 00125 ST  store
       Stack Pop [2063] = integer 3d
       Stack Pop [2062] = addr 102046
       Stack Write [2046] = integer 3d
       SP = 2062
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2062] = integer 3d
       SP = 2063
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2063] = integer 1d
       SP = 2064
 23562: 00 00 00105 LES less <
       Stack Pop [2063] = integer 1d
       Stack Pop [2062] = integer 3d
       Stack Push [2062] = integer 1d
       SP = 2063
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2062] = integer 1d
       SP = 2062
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2062] = integer 0d
       Stack Push [2063] = addr 2041
       Stack Push [2064] = addr 23575
       Stack Push [2065] = addr 2062
       Stack Push [2066] = addr 0
       Stack Push [2067] = addr 0
       SP = 2070
       FP = 2063
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2066] = addr 2
       Stack Write [2067] = addr 2041
       Display [1] = 02041
       Display [2] = 02063
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2070] = addr 102046
       SP = 2071
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2071] = integer 3d
       SP = 2072
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2071] = integer 3d
       Stack Push [2071] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [2071] = integer 2d
       Stack Pop [2070] = addr 102046
       Stack Write [2046] = integer 2d
       SP = 2070
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2070] = integer 0d
       Stack Push [2071] = addr 2063
       Stack Push [2072] = addr 23551
       Stack Push [2073] = addr 2070
       Stack Push [2074] = addr 0
       Stack Push [2075] = addr 0
       Stack Push [2076] = integer 0d
       Stack Push [2077] = addr 202063
       Stack Push [2100] = integer 0d
       Stack Push [2101] = addr 202063
       Stack Push [2102] = integer 0d
       Stack Push [2103] = addr 202063
       Stack Push [2104] = integer 0d
       Stack Push [2105] = addr 202063
       Stack Push [2106] = integer 0d
       Stack Push [2107] = addr 202063
       Stack Push [2110] = integer 0d
       Stack Push [2111] = addr 202063
       SP = 2112
       FP = 2071
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2074] = addr 1
       Display [1] = 02071
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2112] = addr 102076
       SP = 2113
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2113] = integer 2d
       SP = 2114
 23510: 00 00 00125 ST  store
       Stack Pop [2113] = integer 2d
       Stack Pop [2112] = addr 102076
       Stack Write [2076] = integer 2d
       SP = 2112
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2112] = integer 2d
       SP = 2113
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2113] = integer 1d
       SP = 2114
 23562: 00 00 00105 LES less <
       Stack Pop [2113] = integer 1d
       Stack Pop [2112] = integer 2d
       Stack Push [2112] = integer 1d
       SP = 2113
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2112] = integer 1d
       SP = 2112
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2112] = integer 0d
       Stack Push [2113] = addr 2071
       Stack Push [2114] = addr 23575
       Stack Push [2115] = addr 2112
       Stack Push [2116] = addr 0
       Stack Push [2117] = addr 0
       SP = 2120
       FP = 2113
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2116] = addr 2
       Stack Write [2117] = addr 2071
       Display [1] = 02071
       Display [2] = 02113
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2120] = addr 102076
       SP = 2121
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2121] = integer 2d
       SP = 2122
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2121] = integer 2d
       Stack Push [2121] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [2121] = integer 1d
       Stack Pop [2120] = addr 102076
       Stack Write [2076] = integer 1d
       SP = 2120
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2120] = integer 0d
       Stack Push [2121] = addr 2113
       Stack Push [2122] = addr 23551
       Stack Push [2123] = addr 2120
       Stack Push [2124] = addr 0
       Stack Push [2125] = addr 0
       Stack Push [2126] = integer 0d
       Stack Push [2127] = addr 202113
       Stack Push [2130] = integer 0d
       Stack Push [2131] = addr 202113
       Stack Push [2132] = integer 0d
       Stack Push [2133] = addr 202113
       Stack Push [2134] = integer 0d
       Stack Push [2135] = addr 202113
       Stack Push [2136] = integer 0d
       Stack Push [2137] = addr 202113
       Stack Push [2140] = integer 0d
       Stack Push [2141] = addr 202113
       SP = 2142
       FP = 2121
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2124] = addr 1
       Display [1] = 02121
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2142] = addr 102126
       SP = 2143
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2143] = integer 1d
       SP = 2144
 23510: 00 00 00125 ST  store
       Stack Pop [2143] = integer 1d
       Stack Pop [2142] = addr 102126
       Stack Write [2126] = integer 1d
       SP = 2142
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2142] = integer 1d
       SP = 2143
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2143] = integer 1d
       SP = 2144
 23562: 00 00 00105 LES less <
       Stack Pop [2143] = integer 1d
       Stack Pop [2142] = integer 1d
       Stack Push [2142] = integer 1d
       SP = 2143
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2142] = integer 1d
       SP = 2142
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2142] = integer 0d
       Stack Push [2143] = addr 2121
       Stack Push [2144] = addr 23575
       Stack Push [2145] = addr 2142
       Stack Push [2146] = addr 0
       Stack Push [2147] = addr 0
       SP = 2150
       FP = 2143
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2146] = addr 2
       Stack Write [2147] = addr 2121
       Display [1] = 02121
       Display [2] = 02143
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2150] = addr 102126
       SP = 2151
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2151] = integer 1d
       SP = 2152
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2151] = integer 1d
       Stack Push [2151] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [2151] = integer 0d
       Stack Pop [2150] = addr 102126
       Stack Write [2126] = integer 0d
       SP = 2150
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2150] = integer 0d
       Stack Push [2151] = addr 2143
       Stack Push [2152] = addr 23551
       Stack Push [2153] = addr 2150
       Stack Push [2154] = addr 0
       Stack Push [2155] = addr 0
       Stack Push [2156] = integer 0d
       Stack Push [2157] = addr 202143
       Stack Push [2160] = integer 0d
       Stack Push [2161] = addr 202143
       Stack Push [2162] = integer 0d
       Stack Push [2163] = addr 202143
       Stack Push [2164] = integer 0d
       Stack Push [2165] = addr 202143
       Stack Push [2166] = integer 0d
       Stack Push [2167] = addr 202143
       Stack Push [2170] = integer 0d
       Stack Push [2171] = addr 202143
       SP = 2172
       FP = 2151
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2154] = addr 1
       Display [1] = 02151
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2172] = addr 102156
       SP = 2173
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2173] = integer 0d
       SP = 2174
 23510: 00 00 00125 ST  store
       Stack Pop [2173] = integer 0d
       Stack Pop [2172] = addr 102156
       Stack Write [2156] = integer 0d
       SP = 2172
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2172] = integer 0d
       SP = 2173
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2173] = integer 1d
       SP = 2174
 23562: 00 00 00105 LES less <
       Stack Pop [2173] = integer 1d
       Stack Pop [2172] = integer 0d
       Stack Push [2172] = integer 0d
       SP = 2173
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2172] = integer 0d
       C = 1
       SP = 2172
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 2151 -> Level 2, Frame 2143
       Stack Push [2172] = integer 0d
       Stack Push [2173] = addr 2151
       Stack Push [2174] = addr 23567
       Stack Push [2175] = addr 2172
       Stack Push [2176] = addr 0
       Stack Push [2177] = addr 0
       Stack Write [2176] = addr 2
       Stack Write [2177] = addr 2151
       Display [1] = 02121
       Display [2] = 02143
       SP = 2200
       FP = 2173
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 2143 -> Level 2, Frame 2113
       Stack Push [2200] = integer 0d
       Stack Push [2201] = addr 2173
       Stack Push [2202] = addr 23535
       Stack Push [2203] = addr 2200
       Stack Push [2204] = addr 0
       Stack Push [2205] = addr 0
       Stack Write [2204] = addr 2
       Stack Write [2205] = addr 2121
       Display [1] = 02071
       Display [2] = 02113
       SP = 2206
       FP = 2201
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 2113 -> Level 2, Frame 2063
       Stack Push [2206] = integer 0d
       Stack Push [2207] = addr 2201
       Stack Push [2210] = addr 23532
       Stack Push [2211] = addr 2206
       Stack Push [2212] = addr 0
       Stack Push [2213] = addr 0
       Stack Write [2212] = addr 2
       Stack Write [2213] = addr 2071
       Display [1] = 02041
       Display [2] = 02063
       SP = 2214
       FP = 2207
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 2063 -> Level 2, Frame 2033
       Stack Push [2214] = integer 0d
       Stack Push [2215] = addr 2207
       Stack Push [2216] = addr 23527
       Stack Push [2217] = addr 2214
       Stack Push [2220] = addr 0
       Stack Push [2221] = addr 0
       Stack Write [2220] = addr 2
       Stack Write [2221] = addr 2041
       Display [1] = 02011
       Display [2] = 02033
       SP = 2222
       FP = 2215
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2221] = addr 2011
       Display [2] = 02215
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2222] = addr 102016
       SP = 2223
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2223] = integer 3d
       SP = 2224
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2223] = integer 3d
       Stack Push [2223] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [2223] = integer 2d
       Stack Pop [2222] = addr 102016
       Stack Write [2016] = integer 2d
       SP = 2222
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2222] = integer 0d
       Stack Push [2223] = addr 2215
       Stack Push [2224] = addr 23551
       Stack Push [2225] = addr 2222
       Stack Push [2226] = addr 0
       Stack Push [2227] = addr 0
       Stack Push [2230] = integer 0d
       Stack Push [2231] = addr 202215
       Stack Push [2232] = integer 0d
       Stack Push [2233] = addr 202215
       Stack Push [2234] = integer 0d
       Stack Push [2235] = addr 202215
       Stack Push [2236] = integer 0d
       Stack Push [2237] = addr 202215
       Stack Push [2240] = integer 0d
       Stack Push [2241] = addr 202215
       Stack Push [2242] = integer 0d
       Stack Push [2243] = addr 202215
       SP = 2244
       FP = 2223
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2226] = addr 1
       Display [1] = 02223
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2244] = addr 102230
       SP = 2245
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2245] = integer 2d
       SP = 2246
 23510: 00 00 00125 ST  store
       Stack Pop [2245] = integer 2d
       Stack Pop [2244] = addr 102230
       Stack Write [2230] = integer 2d
       SP = 2244
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2244] = integer 2d
       SP = 2245
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2245] = integer 1d
       SP = 2246
 23562: 00 00 00105 LES less <
       Stack Pop [2245] = integer 1d
       Stack Pop [2244] = integer 2d
       Stack Push [2244] = integer 1d
       SP = 2245
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2244] = integer 1d
       C = 0
       SP = 2244
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2244] = integer 0d
       Stack Push [2245] = addr 2223
       Stack Push [2246] = addr 23575
       Stack Push [2247] = addr 2244
       Stack Push [2250] = addr 0
       Stack Push [2251] = addr 0
       SP = 2252
       FP = 2245
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2250] = addr 2
       Stack Write [2251] = addr 2223
       Display [1] = 02223
       Display [2] = 02245
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2252] = addr 102230
       SP = 2253
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2253] = integer 2d
       SP = 2254
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2253] = integer 2d
       Stack Push [2253] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [2253] = integer 1d
       Stack Pop [2252] = addr 102230
       Stack Write [2230] = integer 1d
       SP = 2252
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2252] = integer 0d
       Stack Push [2253] = addr 2245
       Stack Push [2254] = addr 23551
       Stack Push [2255] = addr 2252
       Stack Push [2256] = addr 0
       Stack Push [2257] = addr 0
       Stack Push [2260] = integer 0d
       Stack Push [2261] = addr 202245
       Stack Push [2262] = integer 0d
       Stack Push [2263] = addr 202245
       Stack Push [2264] = integer 0d
       Stack Push [2265] = addr 202245
       Stack Push [2266] = integer 0d
       Stack Push [2267] = addr 202245
       Stack Push [2270] = integer 0d
       Stack Push [2271] = addr 202245
       Stack Push [2272] = integer 0d
       Stack Push [2273] = addr 202245
       SP = 2274
       FP = 2253
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2256] = addr 1
       Display [1] = 02253
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2274] = addr 102260
       SP = 2275
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2275] = integer 1d
       SP = 2276
 23510: 00 00 00125 ST  store
       Stack Pop [2275] = integer 1d
       Stack Pop [2274] = addr 102260
       Stack Write [2260] = integer 1d
       SP = 2274
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2274] = integer 1d
       SP = 2275
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2275] = integer 1d
       SP = 2276
 23562: 00 00 00105 LES less <
       Stack Pop [2275] = integer 1d
       Stack Pop [2274] = integer 1d
       Stack Push [2274] = integer 1d
       SP = 2275
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2274] = integer 1d
       SP = 2274
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2274] = integer 0d
       Stack Push [2275] = addr 2253
       Stack Push [2276] = addr 23575
       Stack Push [2277] = addr 2274
       Stack Push [2300] = addr 0
       Stack Push [2301] = addr 0
       SP = 2302
       FP = 2275
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2300] = addr 2
       Stack Write [2301] = addr 2253
       Display [1] = 02253
       Display [2] = 02275
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2302] = addr 102260
       SP = 2303
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2303] = integer 1d
       SP = 2304
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2303] = integer 1d
       Stack Push [2303] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [2303] = integer 0d
       Stack Pop [2302] = addr 102260
       Stack Write [2260] = integer 0d
       SP = 2302
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2302] = integer 0d
       Stack Push [2303] = addr 2275
       Stack Push [2304] = addr 23551
       Stack Push [2305] = addr 2302
       Stack Push [2306] = addr 0
       Stack Push [2307] = addr 0
       Stack Push [2310] = integer 0d
       Stack Push [2311] = addr 202275
       Stack Push [2312] = integer 0d
       Stack Push [2313] = addr 202275
       Stack Push [2314] = integer 0d
       Stack Push [2315] = addr 202275
       Stack Push [2316] = integer 0d
       Stack Push [2317] = addr 202275
       Stack Push [2320] = integer 0d
       Stack Push [2321] = addr 202275
       Stack Push [2322] = integer 0d
       Stack Push [2323] = addr 202275
       SP = 2324
       FP = 2303
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2306] = addr 1
       Display [1] = 02303
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2324] = addr 102310
       SP = 2325
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2325] = integer 0d
       SP = 2326
 23510: 00 00 00125 ST  store
       Stack Pop [2325] = integer 0d
       Stack Pop [2324] = addr 102310
       Stack Write [2310] = integer 0d
       SP = 2324
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2324] = integer 0d
       SP = 2325
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2325] = integer 1d
       SP = 2326
 23562: 00 00 00105 LES less <
       Stack Pop [2325] = integer 1d
       Stack Pop [2324] = integer 0d
       Stack Push [2324] = integer 0d
       SP = 2325
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2324] = integer 0d
       C = 1
       SP = 2324
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 2303 -> Level 2, Frame 2275
       Stack Push [2324] = integer 0d
       Stack Push [2325] = addr 2303
       Stack Push [2326] = addr 23567
       Stack Push [2327] = addr 2324
       Stack Push [2330] = addr 0
       Stack Push [2331] = addr 0
       Stack Write [2330] = addr 2
       Stack Write [2331] = addr 2303
       Display [1] = 02253
       Display [2] = 02275
       SP = 2332
       FP = 2325
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 2275 -> Level 2, Frame 2245
       Stack Push [2332] = integer 0d
       Stack Push [2333] = addr 2325
       Stack Push [2334] = addr 23535
       Stack Push [2335] = addr 2332
       Stack Push [2336] = addr 0
       Stack Push [2337] = addr 0
       Stack Write [2336] = addr 2
       Stack Write [2337] = addr 2253
       Display [1] = 02223
       Display [2] = 02245
       SP = 2340
       FP = 2333
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 2245 -> Level 2, Frame 2215
       Stack Push [2340] = integer 0d
       Stack Push [2341] = addr 2333
       Stack Push [2342] = addr 23532
       Stack Push [2343] = addr 2340
       Stack Push [2344] = addr 0
       Stack Push [2345] = addr 0
       Stack Write [2344] = addr 2
       Stack Write [2345] = addr 2223
       Display [1] = 02011
       Display [2] = 02215
       SP = 2346
       FP = 2341
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 2215 -> Level 2, Frame 2003
       Stack Push [2346] = integer 0d
       Stack Push [2347] = addr 2341
       Stack Push [2350] = addr 23527
       Stack Push [2351] = addr 2346
       Stack Push [2352] = addr 0
       Stack Push [2353] = addr 0
       Stack Write [2352] = addr 2
       Stack Write [2353] = addr 2011
       Display [1] = 01761
       Display [2] = 02003
       SP = 2354
       FP = 2347
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2353] = addr 1761
       Display [2] = 02347
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2354] = addr 101766
       SP = 2355
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2355] = integer 4d
       SP = 2356
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2355] = integer 4d
       Stack Push [2355] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [2355] = integer 3d
       Stack Pop [2354] = addr 101766
       Stack Write [1766] = integer 3d
       SP = 2354
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2354] = integer 0d
       Stack Push [2355] = addr 2347
       Stack Push [2356] = addr 23551
       Stack Push [2357] = addr 2354
       Stack Push [2360] = addr 0
       Stack Push [2361] = addr 0
       Stack Push [2362] = integer 0d
       Stack Push [2363] = addr 202347
       Stack Push [2364] = integer 0d
       Stack Push [2365] = addr 202347
       Stack Push [2366] = integer 0d
       Stack Push [2367] = addr 202347
       Stack Push [2370] = integer 0d
       Stack Push [2371] = addr 202347
       Stack Push [2372] = integer 0d
       Stack Push [2373] = addr 202347
       Stack Push [2374] = integer 0d
       Stack Push [2375] = addr 202347
       SP = 2376
       FP = 2355
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2360] = addr 1
       Display [1] = 02355
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2376] = addr 102362
       SP = 2377
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2377] = integer 3d
       SP = 2400
 23510: 00 00 00125 ST  store
       Stack Pop [2377] = integer 3d
       Stack Pop [2376] = addr 102362
       Stack Write [2362] = integer 3d
       SP = 2376
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2376] = integer 3d
       SP = 2377
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2377] = integer 1d
       SP = 2400
 23562: 00 00 00105 LES less <
       Stack Pop [2377] = integer 1d
       Stack Pop [2376] = integer 3d
       Stack Push [2376] = integer 1d
       SP = 2377
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2376] = integer 1d
       C = 0
       SP = 2376
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2376] = integer 0d
       Stack Push [2377] = addr 2355
       Stack Push [2400] = addr 23575
       Stack Push [2401] = addr 2376
       Stack Push [2402] = addr 0
       Stack Push [2403] = addr 0
       SP = 2404
       FP = 2377
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2402] = addr 2
       Stack Write [2403] = addr 2355
       Display [1] = 02355
       Display [2] = 02377
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2404] = addr 102362
       SP = 2405
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2405] = integer 3d
       SP = 2406
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2405] = integer 3d
       Stack Push [2405] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [2405] = integer 2d
       Stack Pop [2404] = addr 102362
       Stack Write [2362] = integer 2d
       SP = 2404
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2404] = integer 0d
       Stack Push [2405] = addr 2377
       Stack Push [2406] = addr 23551
       Stack Push [2407] = addr 2404
       Stack Push [2410] = addr 0
       Stack Push [2411] = addr 0
       Stack Push [2412] = integer 0d
       Stack Push [2413] = addr 202377
       Stack Push [2414] = integer 0d
       Stack Push [2415] = addr 202377
       Stack Push [2416] = integer 0d
       Stack Push [2417] = addr 202377
       Stack Push [2420] = integer 0d
       Stack Push [2421] = addr 202377
       Stack Push [2422] = integer 0d
       Stack Push [2423] = addr 202377
       Stack Push [2424] = integer 0d
       Stack Push [2425] = addr 202377
       SP = 2426
       FP = 2405
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2410] = addr 1
       Display [1] = 02405
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2426] = addr 102412
       SP = 2427
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2427] = integer 2d
       SP = 2430
 23510: 00 00 00125 ST  store
       Stack Pop [2427] = integer 2d
       Stack Pop [2426] = addr 102412
       Stack Write [2412] = integer 2d
       SP = 2426
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2426] = integer 2d
       SP = 2427
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2427] = integer 1d
       SP = 2430
 23562: 00 00 00105 LES less <
       Stack Pop [2427] = integer 1d
       Stack Pop [2426] = integer 2d
       Stack Push [2426] = integer 1d
       SP = 2427
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2426] = integer 1d
       SP = 2426
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2426] = integer 0d
       Stack Push [2427] = addr 2405
       Stack Push [2430] = addr 23575
       Stack Push [2431] = addr 2426
       Stack Push [2432] = addr 0
       Stack Push [2433] = addr 0
       SP = 2434
       FP = 2427
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2432] = addr 2
       Stack Write [2433] = addr 2405
       Display [1] = 02405
       Display [2] = 02427
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2434] = addr 102412
       SP = 2435
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2435] = integer 2d
       SP = 2436
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2435] = integer 2d
       Stack Push [2435] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [2435] = integer 1d
       Stack Pop [2434] = addr 102412
       Stack Write [2412] = integer 1d
       SP = 2434
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2434] = integer 0d
       Stack Push [2435] = addr 2427
       Stack Push [2436] = addr 23551
       Stack Push [2437] = addr 2434
       Stack Push [2440] = addr 0
       Stack Push [2441] = addr 0
       Stack Push [2442] = integer 0d
       Stack Push [2443] = addr 202427
       Stack Push [2444] = integer 0d
       Stack Push [2445] = addr 202427
       Stack Push [2446] = integer 0d
       Stack Push [2447] = addr 202427
       Stack Push [2450] = integer 0d
       Stack Push [2451] = addr 202427
       Stack Push [2452] = integer 0d
       Stack Push [2453] = addr 202427
       Stack Push [2454] = integer 0d
       Stack Push [2455] = addr 202427
       SP = 2456
       FP = 2435
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2440] = addr 1
       Display [1] = 02435
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2456] = addr 102442
       SP = 2457
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2457] = integer 1d
       SP = 2460
 23510: 00 00 00125 ST  store
       Stack Pop [2457] = integer 1d
       Stack Pop [2456] = addr 102442
       Stack Write [2442] = integer 1d
       SP = 2456
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2456] = integer 1d
       SP = 2457
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2457] = integer 1d
       SP = 2460
 23562: 00 00 00105 LES less <
       Stack Pop [2457] = integer 1d
       Stack Pop [2456] = integer 1d
       Stack Push [2456] = integer 1d
       SP = 2457
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2456] = integer 1d
       SP = 2456
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2456] = integer 0d
       Stack Push [2457] = addr 2435
       Stack Push [2460] = addr 23575
       Stack Push [2461] = addr 2456
       Stack Push [2462] = addr 0
       Stack Push [2463] = addr 0
       SP = 2464
       FP = 2457
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2462] = addr 2
       Stack Write [2463] = addr 2435
       Display [1] = 02435
       Display [2] = 02457
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2464] = addr 102442
       SP = 2465
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2465] = integer 1d
       SP = 2466
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2465] = integer 1d
       Stack Push [2465] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [2465] = integer 0d
       Stack Pop [2464] = addr 102442
       Stack Write [2442] = integer 0d
       SP = 2464
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2464] = integer 0d
       Stack Push [2465] = addr 2457
       Stack Push [2466] = addr 23551
       Stack Push [2467] = addr 2464
       Stack Push [2470] = addr 0
       Stack Push [2471] = addr 0
       Stack Push [2472] = integer 0d
       Stack Push [2473] = addr 202457
       Stack Push [2474] = integer 0d
       Stack Push [2475] = addr 202457
       Stack Push [2476] = integer 0d
       Stack Push [2477] = addr 202457
       Stack Push [2500] = integer 0d
       Stack Push [2501] = addr 202457
       Stack Push [2502] = integer 0d
       Stack Push [2503] = addr 202457
       Stack Push [2504] = integer 0d
       Stack Push [2505] = addr 202457
       SP = 2506
       FP = 2465
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2470] = addr 1
       Display [1] = 02465
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2506] = addr 102472
       SP = 2507
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2507] = integer 0d
       SP = 2510
 23510: 00 00 00125 ST  store
       Stack Pop [2507] = integer 0d
       Stack Pop [2506] = addr 102472
       Stack Write [2472] = integer 0d
       SP = 2506
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2506] = integer 0d
       SP = 2507
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2507] = integer 1d
       SP = 2510
 23562: 00 00 00105 LES less <
       Stack Pop [2507] = integer 1d
       Stack Pop [2506] = integer 0d
       Stack Push [2506] = integer 0d
       SP = 2507
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2506] = integer 0d
       C = 1
       SP = 2506
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 2465 -> Level 2, Frame 2457
       Stack Push [2506] = integer 0d
       Stack Push [2507] = addr 2465
       Stack Push [2510] = addr 23567
       Stack Push [2511] = addr 2506
       Stack Push [2512] = addr 0
       Stack Push [2513] = addr 0
       Stack Write [2512] = addr 2
       Stack Write [2513] = addr 2465
       Display [1] = 02435
       Display [2] = 02457
       SP = 2514
       FP = 2507
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 2457 -> Level 2, Frame 2427
       Stack Push [2514] = integer 0d
       Stack Push [2515] = addr 2507
       Stack Push [2516] = addr 23535
       Stack Push [2517] = addr 2514
       Stack Push [2520] = addr 0
       Stack Push [2521] = addr 0
       Stack Write [2520] = addr 2
       Stack Write [2521] = addr 2435
       Display [1] = 02405
       Display [2] = 02427
       SP = 2522
       FP = 2515
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 2427 -> Level 2, Frame 2377
       Stack Push [2522] = integer 0d
       Stack Push [2523] = addr 2515
       Stack Push [2524] = addr 23532
       Stack Push [2525] = addr 2522
       Stack Push [2526] = addr 0
       Stack Push [2527] = addr 0
       Stack Write [2526] = addr 2
       Stack Write [2527] = addr 2405
       Display [1] = 02355
       Display [2] = 02377
       SP = 2530
       FP = 2523
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 2377 -> Level 2, Frame 2347
       Stack Push [2530] = integer 0d
       Stack Push [2531] = addr 2523
       Stack Push [2532] = addr 23527
       Stack Push [2533] = addr 2530
       Stack Push [2534] = addr 0
       Stack Push [2535] = addr 0
       Stack Write [2534] = addr 2
       Stack Write [2535] = addr 2355
       Display [1] = 01761
       Display [2] = 02347
       SP = 2536
       FP = 2531
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2535] = addr 1761
       Display [2] = 02531
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2536] = addr 101766
       SP = 2537
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2537] = integer 3d
       SP = 2540
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2537] = integer 3d
       Stack Push [2537] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [2537] = integer 2d
       Stack Pop [2536] = addr 101766
       Stack Write [1766] = integer 2d
       SP = 2536
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2536] = integer 0d
       Stack Push [2537] = addr 2531
       Stack Push [2540] = addr 23551
       Stack Push [2541] = addr 2536
       Stack Push [2542] = addr 0
       Stack Push [2543] = addr 0
       Stack Push [2544] = integer 0d
       Stack Push [2545] = addr 202531
       Stack Push [2546] = integer 0d
       Stack Push [2547] = addr 202531
       Stack Push [2550] = integer 0d
       Stack Push [2551] = addr 202531
       Stack Push [2552] = integer 0d
       Stack Push [2553] = addr 202531
       Stack Push [2554] = integer 0d
       Stack Push [2555] = addr 202531
       Stack Push [2556] = integer 0d
       Stack Push [2557] = addr 202531
       SP = 2560
       FP = 2537
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2542] = addr 1
       Display [1] = 02537
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2560] = addr 102544
       SP = 2561
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2561] = integer 2d
       SP = 2562
 23510: 00 00 00125 ST  store
       Stack Pop [2561] = integer 2d
       Stack Pop [2560] = addr 102544
       Stack Write [2544] = integer 2d
       SP = 2560
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2560] = integer 2d
       SP = 2561
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2561] = integer 1d
       SP = 2562
 23562: 00 00 00105 LES less <
       Stack Pop [2561] = integer 1d
       Stack Pop [2560] = integer 2d
       Stack Push [2560] = integer 1d
       SP = 2561
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2560] = integer 1d
       C = 0
       SP = 2560
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2560] = integer 0d
       Stack Push [2561] = addr 2537
       Stack Push [2562] = addr 23575
       Stack Push [2563] = addr 2560
       Stack Push [2564] = addr 0
       Stack Push [2565] = addr 0
       SP = 2566
       FP = 2561
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2564] = addr 2
       Stack Write [2565] = addr 2537
       Display [1] = 02537
       Display [2] = 02561
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2566] = addr 102544
       SP = 2567
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2567] = integer 2d
       SP = 2570
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2567] = integer 2d
       Stack Push [2567] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [2567] = integer 1d
       Stack Pop [2566] = addr 102544
       Stack Write [2544] = integer 1d
       SP = 2566
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2566] = integer 0d
       Stack Push [2567] = addr 2561
       Stack Push [2570] = addr 23551
       Stack Push [2571] = addr 2566
       Stack Push [2572] = addr 0
       Stack Push [2573] = addr 0
       Stack Push [2574] = integer 0d
       Stack Push [2575] = addr 202561
       Stack Push [2576] = integer 0d
       Stack Push [2577] = addr 202561
       Stack Push [2600] = integer 0d
       Stack Push [2601] = addr 202561
       Stack Push [2602] = integer 0d
       Stack Push [2603] = addr 202561
       Stack Push [2604] = integer 0d
       Stack Push [2605] = addr 202561
       Stack Push [2606] = integer 0d
       Stack Push [2607] = addr 202561
       SP = 2610
       FP = 2567
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2572] = addr 1
       Display [1] = 02567
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2610] = addr 102574
       SP = 2611
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2611] = integer 1d
       SP = 2612
 23510: 00 00 00125 ST  store
       Stack Pop [2611] = integer 1d
       Stack Pop [2610] = addr 102574
       Stack Write [2574] = integer 1d
       SP = 2610
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2610] = integer 1d
       SP = 2611
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2611] = integer 1d
       SP = 2612
 23562: 00 00 00105 LES less <
       Stack Pop [2611] = integer 1d
       Stack Pop [2610] = integer 1d
       Stack Push [2610] = integer 1d
       SP = 2611
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2610] = integer 1d
       SP = 2610
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2610] = integer 0d
       Stack Push [2611] = addr 2567
       Stack Push [2612] = addr 23575
       Stack Push [2613] = addr 2610
       Stack Push [2614] = addr 0
       Stack Push [2615] = addr 0
       SP = 2616
       FP = 2611
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2614] = addr 2
       Stack Write [2615] = addr 2567
       Display [1] = 02567
       Display [2] = 02611
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2616] = addr 102574
       SP = 2617
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2617] = integer 1d
       SP = 2620
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2617] = integer 1d
       Stack Push [2617] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [2617] = integer 0d
       Stack Pop [2616] = addr 102574
       Stack Write [2574] = integer 0d
       SP = 2616
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2616] = integer 0d
       Stack Push [2617] = addr 2611
       Stack Push [2620] = addr 23551
       Stack Push [2621] = addr 2616
       Stack Push [2622] = addr 0
       Stack Push [2623] = addr 0
       Stack Push [2624] = integer 0d
       Stack Push [2625] = addr 202611
       Stack Push [2626] = integer 0d
       Stack Push [2627] = addr 202611
       Stack Push [2630] = integer 0d
       Stack Push [2631] = addr 202611
       Stack Push [2632] = integer 0d
       Stack Push [2633] = addr 202611
       Stack Push [2634] = integer 0d
       Stack Push [2635] = addr 202611
       Stack Push [2636] = integer 0d
       Stack Push [2637] = addr 202611
       SP = 2640
       FP = 2617
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2622] = addr 1
       Display [1] = 02617
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2640] = addr 102624
       SP = 2641
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2641] = integer 0d
       SP = 2642
 23510: 00 00 00125 ST  store
       Stack Pop [2641] = integer 0d
       Stack Pop [2640] = addr 102624
       Stack Write [2624] = integer 0d
       SP = 2640
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2640] = integer 0d
       SP = 2641
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2641] = integer 1d
       SP = 2642
 23562: 00 00 00105 LES less <
       Stack Pop [2641] = integer 1d
       Stack Pop [2640] = integer 0d
       Stack Push [2640] = integer 0d
       SP = 2641
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2640] = integer 0d
       C = 1
       SP = 2640
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 2617 -> Level 2, Frame 2611
       Stack Push [2640] = integer 0d
       Stack Push [2641] = addr 2617
       Stack Push [2642] = addr 23567
       Stack Push [2643] = addr 2640
       Stack Push [2644] = addr 0
       Stack Push [2645] = addr 0
       Stack Write [2644] = addr 2
       Stack Write [2645] = addr 2617
       Display [1] = 02567
       Display [2] = 02611
       SP = 2646
       FP = 2641
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 2611 -> Level 2, Frame 2561
       Stack Push [2646] = integer 0d
       Stack Push [2647] = addr 2641
       Stack Push [2650] = addr 23535
       Stack Push [2651] = addr 2646
       Stack Push [2652] = addr 0
       Stack Push [2653] = addr 0
       Stack Write [2652] = addr 2
       Stack Write [2653] = addr 2567
       Display [1] = 02537
       Display [2] = 02561
       SP = 2654
       FP = 2647
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 2561 -> Level 2, Frame 2531
       Stack Push [2654] = integer 0d
       Stack Push [2655] = addr 2647
       Stack Push [2656] = addr 23532
       Stack Push [2657] = addr 2654
       Stack Push [2660] = addr 0
       Stack Push [2661] = addr 0
       Stack Write [2660] = addr 2
       Stack Write [2661] = addr 2537
       Display [1] = 01761
       Display [2] = 02531
       SP = 2662
       FP = 2655
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 2531 -> Level 2, Frame 1753
       Stack Push [2662] = integer 0d
       Stack Push [2663] = addr 2655
       Stack Push [2664] = addr 23527
       Stack Push [2665] = addr 2662
       Stack Push [2666] = addr 0
       Stack Push [2667] = addr 0
       Stack Write [2666] = addr 2
       Stack Write [2667] = addr 1761
       Display [1] = 00111
       Display [2] = 01753
       SP = 2670
       FP = 2663
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2667] = addr 111
       Display [2] = 02663
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2670] = addr 100116
       SP = 2671
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2671] = integer 5d
       SP = 2672
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2671] = integer 5d
       Stack Push [2671] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [2671] = integer 4d
       Stack Pop [2670] = addr 100116
       Stack Write [116] = integer 4d
       SP = 2670
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2670] = integer 0d
       Stack Push [2671] = addr 2663
       Stack Push [2672] = addr 23551
       Stack Push [2673] = addr 2670
       Stack Push [2674] = addr 0
       Stack Push [2675] = addr 0
       Stack Push [2676] = integer 0d
       Stack Push [2677] = addr 202663
       Stack Push [2700] = integer 0d
       Stack Push [2701] = addr 202663
       Stack Push [2702] = integer 0d
       Stack Push [2703] = addr 202663
       Stack Push [2704] = integer 0d
       Stack Push [2705] = addr 202663
       Stack Push [2706] = integer 0d
       Stack Push [2707] = addr 202663
       Stack Push [2710] = integer 0d
       Stack Push [2711] = addr 202663
       SP = 2712
       FP = 2671
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2674] = addr 1
       Display [1] = 02671
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2712] = addr 102676
       SP = 2713
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2713] = integer 4d
       SP = 2714
 23510: 00 00 00125 ST  store
       Stack Pop [2713] = integer 4d
       Stack Pop [2712] = addr 102676
       Stack Write [2676] = integer 4d
       SP = 2712
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2712] = integer 4d
       SP = 2713
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2713] = integer 1d
       SP = 2714
 23562: 00 00 00105 LES less <
       Stack Pop [2713] = integer 1d
       Stack Pop [2712] = integer 4d
       Stack Push [2712] = integer 1d
       SP = 2713
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2712] = integer 1d
       C = 0
       SP = 2712
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2712] = integer 0d
       Stack Push [2713] = addr 2671
       Stack Push [2714] = addr 23575
       Stack Push [2715] = addr 2712
       Stack Push [2716] = addr 0
       Stack Push [2717] = addr 0
       SP = 2720
       FP = 2713
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2716] = addr 2
       Stack Write [2717] = addr 2671
       Display [1] = 02671
       Display [2] = 02713
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2720] = addr 102676
       SP = 2721
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2721] = integer 4d
       SP = 2722
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2721] = integer 4d
       Stack Push [2721] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [2721] = integer 3d
       Stack Pop [2720] = addr 102676
       Stack Write [2676] = integer 3d
       SP = 2720
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2720] = integer 0d
       Stack Push [2721] = addr 2713
       Stack Push [2722] = addr 23551
       Stack Push [2723] = addr 2720
       Stack Push [2724] = addr 0
       Stack Push [2725] = addr 0
       Stack Push [2726] = integer 0d
       Stack Push [2727] = addr 202713
       Stack Push [2730] = integer 0d
       Stack Push [2731] = addr 202713
       Stack Push [2732] = integer 0d
       Stack Push [2733] = addr 202713
       Stack Push [2734] = integer 0d
       Stack Push [2735] = addr 202713
       Stack Push [2736] = integer 0d
       Stack Push [2737] = addr 202713
       Stack Push [2740] = integer 0d
       Stack Push [2741] = addr 202713
       SP = 2742
       FP = 2721
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2724] = addr 1
       Display [1] = 02721
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2742] = addr 102726
       SP = 2743
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2743] = integer 3d
       SP = 2744
 23510: 00 00 00125 ST  store
       Stack Pop [2743] = integer 3d
       Stack Pop [2742] = addr 102726
       Stack Write [2726] = integer 3d
       SP = 2742
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2742] = integer 3d
       SP = 2743
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2743] = integer 1d
       SP = 2744
 23562: 00 00 00105 LES less <
       Stack Pop [2743] = integer 1d
       Stack Pop [2742] = integer 3d
       Stack Push [2742] = integer 1d
       SP = 2743
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2742] = integer 1d
       SP = 2742
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2742] = integer 0d
       Stack Push [2743] = addr 2721
       Stack Push [2744] = addr 23575
       Stack Push [2745] = addr 2742
       Stack Push [2746] = addr 0
       Stack Push [2747] = addr 0
       SP = 2750
       FP = 2743
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2746] = addr 2
       Stack Write [2747] = addr 2721
       Display [1] = 02721
       Display [2] = 02743
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2750] = addr 102726
       SP = 2751
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2751] = integer 3d
       SP = 2752
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [2751] = integer 3d
       Stack Push [2751] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [2751] = integer 2d
       Stack Pop [2750] = addr 102726
       Stack Write [2726] = integer 2d
       SP = 2750
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [2750] = integer 0d
       Stack Push [2751] = addr 2743
       Stack Push [2752] = addr 23551
       Stack Push [2753] = addr 2750
       Stack Push [2754] = addr 0
       Stack Push [2755] = addr 0
       Stack Push [2756] = integer 0d
       Stack Push [2757] = addr 202743
       Stack Push [2760] = integer 0d
       Stack Push [2761] = addr 202743
       Stack Push [2762] = integer 0d
       Stack Push [2763] = addr 202743
       Stack Push [2764] = integer 0d
       Stack Push [2765] = addr 202743
       Stack Push [2766] = integer 0d
       Stack Push [2767] = addr 202743
       Stack Push [2770] = integer 0d
       Stack Push [2771] = addr 202743
       SP = 2772
       FP = 2751
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [2754] = addr 1
       Display [1] = 02751
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [2772] = addr 102756
       SP = 2773
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [2773] = integer 2d
       SP = 2774
 23510: 00 00 00125 ST  store
       Stack Pop [2773] = integer 2d
       Stack Pop [2772] = addr 102756
       Stack Write [2756] = integer 2d
       SP = 2772
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [2772] = integer 2d
       SP = 2773
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [2773] = integer 1d
       SP = 2774
 23562: 00 00 00105 LES less <
       Stack Pop [2773] = integer 1d
       Stack Pop [2772] = integer 2d
       Stack Push [2772] = integer 1d
       SP = 2773
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [2772] = integer 1d
       SP = 2772
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [2772] = integer 0d
       Stack Push [2773] = addr 2751
       Stack Push [2774] = addr 23575
       Stack Push [2775] = addr 2772
       Stack Push [2776] = addr 0
       Stack Push [2777] = addr 0
       SP = 3000
       FP = 2773
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [2776] = addr 2
       Stack Write [2777] = addr 2751
       Display [1] = 02751
       Display [2] = 02773
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3000] = addr 102756
       SP = 3001
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3001] = integer 2d
       SP = 3002
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3001] = integer 2d
       Stack Push [3001] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [3001] = integer 1d
       Stack Pop [3000] = addr 102756
       Stack Write [2756] = integer 1d
       SP = 3000
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3000] = integer 0d
       Stack Push [3001] = addr 2773
       Stack Push [3002] = addr 23551
       Stack Push [3003] = addr 3000
       Stack Push [3004] = addr 0
       Stack Push [3005] = addr 0
       Stack Push [3006] = integer 0d
       Stack Push [3007] = addr 202773
       Stack Push [3010] = integer 0d
       Stack Push [3011] = addr 202773
       Stack Push [3012] = integer 0d
       Stack Push [3013] = addr 202773
       Stack Push [3014] = integer 0d
       Stack Push [3015] = addr 202773
       Stack Push [3016] = integer 0d
       Stack Push [3017] = addr 202773
       Stack Push [3020] = integer 0d
       Stack Push [3021] = addr 202773
       SP = 3022
       FP = 3001
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3004] = addr 1
       Display [1] = 03001
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3022] = addr 103006
       SP = 3023
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3023] = integer 1d
       SP = 3024
 23510: 00 00 00125 ST  store
       Stack Pop [3023] = integer 1d
       Stack Pop [3022] = addr 103006
       Stack Write [3006] = integer 1d
       SP = 3022
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3022] = integer 1d
       SP = 3023
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3023] = integer 1d
       SP = 3024
 23562: 00 00 00105 LES less <
       Stack Pop [3023] = integer 1d
       Stack Pop [3022] = integer 1d
       Stack Push [3022] = integer 1d
       SP = 3023
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3022] = integer 1d
       SP = 3022
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3022] = integer 0d
       Stack Push [3023] = addr 3001
       Stack Push [3024] = addr 23575
       Stack Push [3025] = addr 3022
       Stack Push [3026] = addr 0
       Stack Push [3027] = addr 0
       SP = 3030
       FP = 3023
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3026] = addr 2
       Stack Write [3027] = addr 3001
       Display [1] = 03001
       Display [2] = 03023
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3030] = addr 103006
       SP = 3031
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3031] = integer 1d
       SP = 3032
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3031] = integer 1d
       Stack Push [3031] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [3031] = integer 0d
       Stack Pop [3030] = addr 103006
       Stack Write [3006] = integer 0d
       SP = 3030
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3030] = integer 0d
       Stack Push [3031] = addr 3023
       Stack Push [3032] = addr 23551
       Stack Push [3033] = addr 3030
       Stack Push [3034] = addr 0
       Stack Push [3035] = addr 0
       Stack Push [3036] = integer 0d
       Stack Push [3037] = addr 203023
       Stack Push [3040] = integer 0d
       Stack Push [3041] = addr 203023
       Stack Push [3042] = integer 0d
       Stack Push [3043] = addr 203023
       Stack Push [3044] = integer 0d
       Stack Push [3045] = addr 203023
       Stack Push [3046] = integer 0d
       Stack Push [3047] = addr 203023
       Stack Push [3050] = integer 0d
       Stack Push [3051] = addr 203023
       SP = 3052
       FP = 3031
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3034] = addr 1
       Display [1] = 03031
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3052] = addr 103036
       SP = 3053
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3053] = integer 0d
       SP = 3054
 23510: 00 00 00125 ST  store
       Stack Pop [3053] = integer 0d
       Stack Pop [3052] = addr 103036
       Stack Write [3036] = integer 0d
       SP = 3052
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3052] = integer 0d
       SP = 3053
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3053] = integer 1d
       SP = 3054
 23562: 00 00 00105 LES less <
       Stack Pop [3053] = integer 1d
       Stack Pop [3052] = integer 0d
       Stack Push [3052] = integer 0d
       SP = 3053
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3052] = integer 0d
       C = 1
       SP = 3052
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 3031 -> Level 2, Frame 3023
       Stack Push [3052] = integer 0d
       Stack Push [3053] = addr 3031
       Stack Push [3054] = addr 23567
       Stack Push [3055] = addr 3052
       Stack Push [3056] = addr 0
       Stack Push [3057] = addr 0
       Stack Write [3056] = addr 2
       Stack Write [3057] = addr 3031
       Display [1] = 03001
       Display [2] = 03023
       SP = 3060
       FP = 3053
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 3023 -> Level 2, Frame 2773
       Stack Push [3060] = integer 0d
       Stack Push [3061] = addr 3053
       Stack Push [3062] = addr 23535
       Stack Push [3063] = addr 3060
       Stack Push [3064] = addr 0
       Stack Push [3065] = addr 0
       Stack Write [3064] = addr 2
       Stack Write [3065] = addr 3001
       Display [1] = 02751
       Display [2] = 02773
       SP = 3066
       FP = 3061
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 2773 -> Level 2, Frame 2743
       Stack Push [3066] = integer 0d
       Stack Push [3067] = addr 3061
       Stack Push [3070] = addr 23532
       Stack Push [3071] = addr 3066
       Stack Push [3072] = addr 0
       Stack Push [3073] = addr 0
       Stack Write [3072] = addr 2
       Stack Write [3073] = addr 2751
       Display [1] = 02721
       Display [2] = 02743
       SP = 3074
       FP = 3067
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 2743 -> Level 2, Frame 2713
       Stack Push [3074] = integer 0d
       Stack Push [3075] = addr 3067
       Stack Push [3076] = addr 23527
       Stack Push [3077] = addr 3074
       Stack Push [3100] = addr 0
       Stack Push [3101] = addr 0
       Stack Write [3100] = addr 2
       Stack Write [3101] = addr 2721
       Display [1] = 02671
       Display [2] = 02713
       SP = 3102
       FP = 3075
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3101] = addr 2671
       Display [2] = 03075
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3102] = addr 102676
       SP = 3103
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3103] = integer 3d
       SP = 3104
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3103] = integer 3d
       Stack Push [3103] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [3103] = integer 2d
       Stack Pop [3102] = addr 102676
       Stack Write [2676] = integer 2d
       SP = 3102
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3102] = integer 0d
       Stack Push [3103] = addr 3075
       Stack Push [3104] = addr 23551
       Stack Push [3105] = addr 3102
       Stack Push [3106] = addr 0
       Stack Push [3107] = addr 0
       Stack Push [3110] = integer 0d
       Stack Push [3111] = addr 203075
       Stack Push [3112] = integer 0d
       Stack Push [3113] = addr 203075
       Stack Push [3114] = integer 0d
       Stack Push [3115] = addr 203075
       Stack Push [3116] = integer 0d
       Stack Push [3117] = addr 203075
       Stack Push [3120] = integer 0d
       Stack Push [3121] = addr 203075
       Stack Push [3122] = integer 0d
       Stack Push [3123] = addr 203075
       SP = 3124
       FP = 3103
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3106] = addr 1
       Display [1] = 03103
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3124] = addr 103110
       SP = 3125
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3125] = integer 2d
       SP = 3126
 23510: 00 00 00125 ST  store
       Stack Pop [3125] = integer 2d
       Stack Pop [3124] = addr 103110
       Stack Write [3110] = integer 2d
       SP = 3124
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3124] = integer 2d
       SP = 3125
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3125] = integer 1d
       SP = 3126
 23562: 00 00 00105 LES less <
       Stack Pop [3125] = integer 1d
       Stack Pop [3124] = integer 2d
       Stack Push [3124] = integer 1d
       SP = 3125
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3124] = integer 1d
       C = 0
       SP = 3124
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3124] = integer 0d
       Stack Push [3125] = addr 3103
       Stack Push [3126] = addr 23575
       Stack Push [3127] = addr 3124
       Stack Push [3130] = addr 0
       Stack Push [3131] = addr 0
       SP = 3132
       FP = 3125
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3130] = addr 2
       Stack Write [3131] = addr 3103
       Display [1] = 03103
       Display [2] = 03125
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3132] = addr 103110
       SP = 3133
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3133] = integer 2d
       SP = 3134
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3133] = integer 2d
       Stack Push [3133] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [3133] = integer 1d
       Stack Pop [3132] = addr 103110
       Stack Write [3110] = integer 1d
       SP = 3132
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3132] = integer 0d
       Stack Push [3133] = addr 3125
       Stack Push [3134] = addr 23551
       Stack Push [3135] = addr 3132
       Stack Push [3136] = addr 0
       Stack Push [3137] = addr 0
       Stack Push [3140] = integer 0d
       Stack Push [3141] = addr 203125
       Stack Push [3142] = integer 0d
       Stack Push [3143] = addr 203125
       Stack Push [3144] = integer 0d
       Stack Push [3145] = addr 203125
       Stack Push [3146] = integer 0d
       Stack Push [3147] = addr 203125
       Stack Push [3150] = integer 0d
       Stack Push [3151] = addr 203125
       Stack Push [3152] = integer 0d
       Stack Push [3153] = addr 203125
       SP = 3154
       FP = 3133
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3136] = addr 1
       Display [1] = 03133
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3154] = addr 103140
       SP = 3155
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3155] = integer 1d
       SP = 3156
 23510: 00 00 00125 ST  store
       Stack Pop [3155] = integer 1d
       Stack Pop [3154] = addr 103140
       Stack Write [3140] = integer 1d
       SP = 3154
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3154] = integer 1d
       SP = 3155
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3155] = integer 1d
       SP = 3156
 23562: 00 00 00105 LES less <
       Stack Pop [3155] = integer 1d
       Stack Pop [3154] = integer 1d
       Stack Push [3154] = integer 1d
       SP = 3155
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3154] = integer 1d
       SP = 3154
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3154] = integer 0d
       Stack Push [3155] = addr 3133
       Stack Push [3156] = addr 23575
       Stack Push [3157] = addr 3154
       Stack Push [3160] = addr 0
       Stack Push [3161] = addr 0
       SP = 3162
       FP = 3155
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3160] = addr 2
       Stack Write [3161] = addr 3133
       Display [1] = 03133
       Display [2] = 03155
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3162] = addr 103140
       SP = 3163
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3163] = integer 1d
       SP = 3164
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3163] = integer 1d
       Stack Push [3163] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [3163] = integer 0d
       Stack Pop [3162] = addr 103140
       Stack Write [3140] = integer 0d
       SP = 3162
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3162] = integer 0d
       Stack Push [3163] = addr 3155
       Stack Push [3164] = addr 23551
       Stack Push [3165] = addr 3162
       Stack Push [3166] = addr 0
       Stack Push [3167] = addr 0
       Stack Push [3170] = integer 0d
       Stack Push [3171] = addr 203155
       Stack Push [3172] = integer 0d
       Stack Push [3173] = addr 203155
       Stack Push [3174] = integer 0d
       Stack Push [3175] = addr 203155
       Stack Push [3176] = integer 0d
       Stack Push [3177] = addr 203155
       Stack Push [3200] = integer 0d
       Stack Push [3201] = addr 203155
       Stack Push [3202] = integer 0d
       Stack Push [3203] = addr 203155
       SP = 3204
       FP = 3163
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3166] = addr 1
       Display [1] = 03163
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3204] = addr 103170
       SP = 3205
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3205] = integer 0d
       SP = 3206
 23510: 00 00 00125 ST  store
       Stack Pop [3205] = integer 0d
       Stack Pop [3204] = addr 103170
       Stack Write [3170] = integer 0d
       SP = 3204
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3204] = integer 0d
       SP = 3205
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3205] = integer 1d
       SP = 3206
 23562: 00 00 00105 LES less <
       Stack Pop [3205] = integer 1d
       Stack Pop [3204] = integer 0d
       Stack Push [3204] = integer 0d
       SP = 3205
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3204] = integer 0d
       C = 1
       SP = 3204
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 3163 -> Level 2, Frame 3155
       Stack Push [3204] = integer 0d
       Stack Push [3205] = addr 3163
       Stack Push [3206] = addr 23567
       Stack Push [3207] = addr 3204
       Stack Push [3210] = addr 0
       Stack Push [3211] = addr 0
       Stack Write [3210] = addr 2
       Stack Write [3211] = addr 3163
       Display [1] = 03133
       Display [2] = 03155
       SP = 3212
       FP = 3205
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 3155 -> Level 2, Frame 3125
       Stack Push [3212] = integer 0d
       Stack Push [3213] = addr 3205
       Stack Push [3214] = addr 23535
       Stack Push [3215] = addr 3212
       Stack Push [3216] = addr 0
       Stack Push [3217] = addr 0
       Stack Write [3216] = addr 2
       Stack Write [3217] = addr 3133
       Display [1] = 03103
       Display [2] = 03125
       SP = 3220
       FP = 3213
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 3125 -> Level 2, Frame 3075
       Stack Push [3220] = integer 0d
       Stack Push [3221] = addr 3213
       Stack Push [3222] = addr 23532
       Stack Push [3223] = addr 3220
       Stack Push [3224] = addr 0
       Stack Push [3225] = addr 0
       Stack Write [3224] = addr 2
       Stack Write [3225] = addr 3103
       Display [1] = 02671
       Display [2] = 03075
       SP = 3226
       FP = 3221
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 3075 -> Level 2, Frame 2663
       Stack Push [3226] = integer 0d
       Stack Push [3227] = addr 3221
       Stack Push [3230] = addr 23527
       Stack Push [3231] = addr 3226
       Stack Push [3232] = addr 0
       Stack Push [3233] = addr 0
       Stack Write [3232] = addr 2
       Stack Write [3233] = addr 2671
       Display [1] = 00111
       Display [2] = 02663
       SP = 3234
       FP = 3227
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3233] = addr 111
       Display [2] = 03227
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3234] = addr 100116
       SP = 3235
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3235] = integer 4d
       SP = 3236
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3235] = integer 4d
       Stack Push [3235] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [3235] = integer 3d
       Stack Pop [3234] = addr 100116
       Stack Write [116] = integer 3d
       SP = 3234
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3234] = integer 0d
       Stack Push [3235] = addr 3227
       Stack Push [3236] = addr 23551
       Stack Push [3237] = addr 3234
       Stack Push [3240] = addr 0
       Stack Push [3241] = addr 0
       Stack Push [3242] = integer 0d
       Stack Push [3243] = addr 203227
       Stack Push [3244] = integer 0d
       Stack Push [3245] = addr 203227
       Stack Push [3246] = integer 0d
       Stack Push [3247] = addr 203227
       Stack Push [3250] = integer 0d
       Stack Push [3251] = addr 203227
       Stack Push [3252] = integer 0d
       Stack Push [3253] = addr 203227
       Stack Push [3254] = integer 0d
       Stack Push [3255] = addr 203227
       SP = 3256
       FP = 3235
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3240] = addr 1
       Display [1] = 03235
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3256] = addr 103242
       SP = 3257
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3257] = integer 3d
       SP = 3260
 23510: 00 00 00125 ST  store
       Stack Pop [3257] = integer 3d
       Stack Pop [3256] = addr 103242
       Stack Write [3242] = integer 3d
       SP = 3256
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3256] = integer 3d
       SP = 3257
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3257] = integer 1d
       SP = 3260
 23562: 00 00 00105 LES less <
       Stack Pop [3257] = integer 1d
       Stack Pop [3256] = integer 3d
       Stack Push [3256] = integer 1d
       SP = 3257
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3256] = integer 1d
       C = 0
       SP = 3256
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3256] = integer 0d
       Stack Push [3257] = addr 3235
       Stack Push [3260] = addr 23575
       Stack Push [3261] = addr 3256
       Stack Push [3262] = addr 0
       Stack Push [3263] = addr 0
       SP = 3264
       FP = 3257
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3262] = addr 2
       Stack Write [3263] = addr 3235
       Display [1] = 03235
       Display [2] = 03257
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3264] = addr 103242
       SP = 3265
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3265] = integer 3d
       SP = 3266
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3265] = integer 3d
       Stack Push [3265] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [3265] = integer 2d
       Stack Pop [3264] = addr 103242
       Stack Write [3242] = integer 2d
       SP = 3264
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3264] = integer 0d
       Stack Push [3265] = addr 3257
       Stack Push [3266] = addr 23551
       Stack Push [3267] = addr 3264
       Stack Push [3270] = addr 0
       Stack Push [3271] = addr 0
       Stack Push [3272] = integer 0d
       Stack Push [3273] = addr 203257
       Stack Push [3274] = integer 0d
       Stack Push [3275] = addr 203257
       Stack Push [3276] = integer 0d
       Stack Push [3277] = addr 203257
       Stack Push [3300] = integer 0d
       Stack Push [3301] = addr 203257
       Stack Push [3302] = integer 0d
       Stack Push [3303] = addr 203257
       Stack Push [3304] = integer 0d
       Stack Push [3305] = addr 203257
       SP = 3306
       FP = 3265
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3270] = addr 1
       Display [1] = 03265
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3306] = addr 103272
       SP = 3307
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3307] = integer 2d
       SP = 3310
 23510: 00 00 00125 ST  store
       Stack Pop [3307] = integer 2d
       Stack Pop [3306] = addr 103272
       Stack Write [3272] = integer 2d
       SP = 3306
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3306] = integer 2d
       SP = 3307
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3307] = integer 1d
       SP = 3310
 23562: 00 00 00105 LES less <
       Stack Pop [3307] = integer 1d
       Stack Pop [3306] = integer 2d
       Stack Push [3306] = integer 1d
       SP = 3307
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3306] = integer 1d
       SP = 3306
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3306] = integer 0d
       Stack Push [3307] = addr 3265
       Stack Push [3310] = addr 23575
       Stack Push [3311] = addr 3306
       Stack Push [3312] = addr 0
       Stack Push [3313] = addr 0
       SP = 3314
       FP = 3307
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3312] = addr 2
       Stack Write [3313] = addr 3265
       Display [1] = 03265
       Display [2] = 03307
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3314] = addr 103272
       SP = 3315
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3315] = integer 2d
       SP = 3316
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3315] = integer 2d
       Stack Push [3315] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [3315] = integer 1d
       Stack Pop [3314] = addr 103272
       Stack Write [3272] = integer 1d
       SP = 3314
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3314] = integer 0d
       Stack Push [3315] = addr 3307
       Stack Push [3316] = addr 23551
       Stack Push [3317] = addr 3314
       Stack Push [3320] = addr 0
       Stack Push [3321] = addr 0
       Stack Push [3322] = integer 0d
       Stack Push [3323] = addr 203307
       Stack Push [3324] = integer 0d
       Stack Push [3325] = addr 203307
       Stack Push [3326] = integer 0d
       Stack Push [3327] = addr 203307
       Stack Push [3330] = integer 0d
       Stack Push [3331] = addr 203307
       Stack Push [3332] = integer 0d
       Stack Push [3333] = addr 203307
       Stack Push [3334] = integer 0d
       Stack Push [3335] = addr 203307
       SP = 3336
       FP = 3315
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3320] = addr 1
       Display [1] = 03315
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3336] = addr 103322
       SP = 3337
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3337] = integer 1d
       SP = 3340
 23510: 00 00 00125 ST  store
       Stack Pop [3337] = integer 1d
       Stack Pop [3336] = addr 103322
       Stack Write [3322] = integer 1d
       SP = 3336
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3336] = integer 1d
       SP = 3337
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3337] = integer 1d
       SP = 3340
 23562: 00 00 00105 LES less <
       Stack Pop [3337] = integer 1d
       Stack Pop [3336] = integer 1d
       Stack Push [3336] = integer 1d
       SP = 3337
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3336] = integer 1d
       SP = 3336
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3336] = integer 0d
       Stack Push [3337] = addr 3315
       Stack Push [3340] = addr 23575
       Stack Push [3341] = addr 3336
       Stack Push [3342] = addr 0
       Stack Push [3343] = addr 0
       SP = 3344
       FP = 3337
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3342] = addr 2
       Stack Write [3343] = addr 3315
       Display [1] = 03315
       Display [2] = 03337
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3344] = addr 103322
       SP = 3345
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3345] = integer 1d
       SP = 3346
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3345] = integer 1d
       Stack Push [3345] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [3345] = integer 0d
       Stack Pop [3344] = addr 103322
       Stack Write [3322] = integer 0d
       SP = 3344
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3344] = integer 0d
       Stack Push [3345] = addr 3337
       Stack Push [3346] = addr 23551
       Stack Push [3347] = addr 3344
       Stack Push [3350] = addr 0
       Stack Push [3351] = addr 0
       Stack Push [3352] = integer 0d
       Stack Push [3353] = addr 203337
       Stack Push [3354] = integer 0d
       Stack Push [3355] = addr 203337
       Stack Push [3356] = integer 0d
       Stack Push [3357] = addr 203337
       Stack Push [3360] = integer 0d
       Stack Push [3361] = addr 203337
       Stack Push [3362] = integer 0d
       Stack Push [3363] = addr 203337
       Stack Push [3364] = integer 0d
       Stack Push [3365] = addr 203337
       SP = 3366
       FP = 3345
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3350] = addr 1
       Display [1] = 03345
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3366] = addr 103352
       SP = 3367
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3367] = integer 0d
       SP = 3370
 23510: 00 00 00125 ST  store
       Stack Pop [3367] = integer 0d
       Stack Pop [3366] = addr 103352
       Stack Write [3352] = integer 0d
       SP = 3366
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3366] = integer 0d
       SP = 3367
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3367] = integer 1d
       SP = 3370
 23562: 00 00 00105 LES less <
       Stack Pop [3367] = integer 1d
       Stack Pop [3366] = integer 0d
       Stack Push [3366] = integer 0d
       SP = 3367
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3366] = integer 0d
       C = 1
       SP = 3366
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 3345 -> Level 2, Frame 3337
       Stack Push [3366] = integer 0d
       Stack Push [3367] = addr 3345
       Stack Push [3370] = addr 23567
       Stack Push [3371] = addr 3366
       Stack Push [3372] = addr 0
       Stack Push [3373] = addr 0
       Stack Write [3372] = addr 2
       Stack Write [3373] = addr 3345
       Display [1] = 03315
       Display [2] = 03337
       SP = 3374
       FP = 3367
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 3337 -> Level 2, Frame 3307
       Stack Push [3374] = integer 0d
       Stack Push [3375] = addr 3367
       Stack Push [3376] = addr 23535
       Stack Push [3377] = addr 3374
       Stack Push [3400] = addr 0
       Stack Push [3401] = addr 0
       Stack Write [3400] = addr 2
       Stack Write [3401] = addr 3315
       Display [1] = 03265
       Display [2] = 03307
       SP = 3402
       FP = 3375
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 3307 -> Level 2, Frame 3257
       Stack Push [3402] = integer 0d
       Stack Push [3403] = addr 3375
       Stack Push [3404] = addr 23532
       Stack Push [3405] = addr 3402
       Stack Push [3406] = addr 0
       Stack Push [3407] = addr 0
       Stack Write [3406] = addr 2
       Stack Write [3407] = addr 3265
       Display [1] = 03235
       Display [2] = 03257
       SP = 3410
       FP = 3403
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 3257 -> Level 2, Frame 3227
       Stack Push [3410] = integer 0d
       Stack Push [3411] = addr 3403
       Stack Push [3412] = addr 23527
       Stack Push [3413] = addr 3410
       Stack Push [3414] = addr 0
       Stack Push [3415] = addr 0
       Stack Write [3414] = addr 2
       Stack Write [3415] = addr 3235
       Display [1] = 00111
       Display [2] = 03227
       SP = 3416
       FP = 3411
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3415] = addr 111
       Display [2] = 03411
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3416] = addr 100116
       SP = 3417
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3417] = integer 3d
       SP = 3420
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3417] = integer 3d
       Stack Push [3417] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [3417] = integer 2d
       Stack Pop [3416] = addr 100116
       Stack Write [116] = integer 2d
       SP = 3416
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3416] = integer 0d
       Stack Push [3417] = addr 3411
       Stack Push [3420] = addr 23551
       Stack Push [3421] = addr 3416
       Stack Push [3422] = addr 0
       Stack Push [3423] = addr 0
       Stack Push [3424] = integer 0d
       Stack Push [3425] = addr 203411
       Stack Push [3426] = integer 0d
       Stack Push [3427] = addr 203411
       Stack Push [3430] = integer 0d
       Stack Push [3431] = addr 203411
       Stack Push [3432] = integer 0d
       Stack Push [3433] = addr 203411
       Stack Push [3434] = integer 0d
       Stack Push [3435] = addr 203411
       Stack Push [3436] = integer 0d
       Stack Push [3437] = addr 203411
       SP = 3440
       FP = 3417
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3422] = addr 1
       Display [1] = 03417
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3440] = addr 103424
       SP = 3441
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3441] = integer 2d
       SP = 3442
 23510: 00 00 00125 ST  store
       Stack Pop [3441] = integer 2d
       Stack Pop [3440] = addr 103424
       Stack Write [3424] = integer 2d
       SP = 3440
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3440] = integer 2d
       SP = 3441
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3441] = integer 1d
       SP = 3442
 23562: 00 00 00105 LES less <
       Stack Pop [3441] = integer 1d
       Stack Pop [3440] = integer 2d
       Stack Push [3440] = integer 1d
       SP = 3441
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3440] = integer 1d
       C = 0
       SP = 3440
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3440] = integer 0d
       Stack Push [3441] = addr 3417
       Stack Push [3442] = addr 23575
       Stack Push [3443] = addr 3440
       Stack Push [3444] = addr 0
       Stack Push [3445] = addr 0
       SP = 3446
       FP = 3441
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3444] = addr 2
       Stack Write [3445] = addr 3417
       Display [1] = 03417
       Display [2] = 03441
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3446] = addr 103424
       SP = 3447
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3447] = integer 2d
       SP = 3450
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3447] = integer 2d
       Stack Push [3447] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [3447] = integer 1d
       Stack Pop [3446] = addr 103424
       Stack Write [3424] = integer 1d
       SP = 3446
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3446] = integer 0d
       Stack Push [3447] = addr 3441
       Stack Push [3450] = addr 23551
       Stack Push [3451] = addr 3446
       Stack Push [3452] = addr 0
       Stack Push [3453] = addr 0
       Stack Push [3454] = integer 0d
       Stack Push [3455] = addr 203441
       Stack Push [3456] = integer 0d
       Stack Push [3457] = addr 203441
       Stack Push [3460] = integer 0d
       Stack Push [3461] = addr 203441
       Stack Push [3462] = integer 0d
       Stack Push [3463] = addr 203441
       Stack Push [3464] = integer 0d
       Stack Push [3465] = addr 203441
       Stack Push [3466] = integer 0d
       Stack Push [3467] = addr 203441
       SP = 3470
       FP = 3447
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3452] = addr 1
       Display [1] = 03447
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3470] = addr 103454
       SP = 3471
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3471] = integer 1d
       SP = 3472
 23510: 00 00 00125 ST  store
       Stack Pop [3471] = integer 1d
       Stack Pop [3470] = addr 103454
       Stack Write [3454] = integer 1d
       SP = 3470
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3470] = integer 1d
       SP = 3471
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3471] = integer 1d
       SP = 3472
 23562: 00 00 00105 LES less <
       Stack Pop [3471] = integer 1d
       Stack Pop [3470] = integer 1d
       Stack Push [3470] = integer 1d
       SP = 3471
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3470] = integer 1d
       SP = 3470
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3470] = integer 0d
       Stack Push [3471] = addr 3447
       Stack Push [3472] = addr 23575
       Stack Push [3473] = addr 3470
       Stack Push [3474] = addr 0
       Stack Push [3475] = addr 0
       SP = 3476
       FP = 3471
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3474] = addr 2
       Stack Write [3475] = addr 3447
       Display [1] = 03447
       Display [2] = 03471
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3476] = addr 103454
       SP = 3477
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3477] = integer 1d
       SP = 3500
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3477] = integer 1d
       Stack Push [3477] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [3477] = integer 0d
       Stack Pop [3476] = addr 103454
       Stack Write [3454] = integer 0d
       SP = 3476
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3476] = integer 0d
       Stack Push [3477] = addr 3471
       Stack Push [3500] = addr 23551
       Stack Push [3501] = addr 3476
       Stack Push [3502] = addr 0
       Stack Push [3503] = addr 0
       Stack Push [3504] = integer 0d
       Stack Push [3505] = addr 203471
       Stack Push [3506] = integer 0d
       Stack Push [3507] = addr 203471
       Stack Push [3510] = integer 0d
       Stack Push [3511] = addr 203471
       Stack Push [3512] = integer 0d
       Stack Push [3513] = addr 203471
       Stack Push [3514] = integer 0d
       Stack Push [3515] = addr 203471
       Stack Push [3516] = integer 0d
       Stack Push [3517] = addr 203471
       SP = 3520
       FP = 3477
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3502] = addr 1
       Display [1] = 03477
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3520] = addr 103504
       SP = 3521
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3521] = integer 0d
       SP = 3522
 23510: 00 00 00125 ST  store
       Stack Pop [3521] = integer 0d
       Stack Pop [3520] = addr 103504
       Stack Write [3504] = integer 0d
       SP = 3520
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3520] = integer 0d
       SP = 3521
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3521] = integer 1d
       SP = 3522
 23562: 00 00 00105 LES less <
       Stack Pop [3521] = integer 1d
       Stack Pop [3520] = integer 0d
       Stack Push [3520] = integer 0d
       SP = 3521
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3520] = integer 0d
       C = 1
       SP = 3520
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 3477 -> Level 2, Frame 3471
       Stack Push [3520] = integer 0d
       Stack Push [3521] = addr 3477
       Stack Push [3522] = addr 23567
       Stack Push [3523] = addr 3520
       Stack Push [3524] = addr 0
       Stack Push [3525] = addr 0
       Stack Write [3524] = addr 2
       Stack Write [3525] = addr 3477
       Display [1] = 03447
       Display [2] = 03471
       SP = 3526
       FP = 3521
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 3471 -> Level 2, Frame 3441
       Stack Push [3526] = integer 0d
       Stack Push [3527] = addr 3521
       Stack Push [3530] = addr 23535
       Stack Push [3531] = addr 3526
       Stack Push [3532] = addr 0
       Stack Push [3533] = addr 0
       Stack Write [3532] = addr 2
       Stack Write [3533] = addr 3447
       Display [1] = 03417
       Display [2] = 03441
       SP = 3534
       FP = 3527
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 3441 -> Level 2, Frame 3411
       Stack Push [3534] = integer 0d
       Stack Push [3535] = addr 3527
       Stack Push [3536] = addr 23532
       Stack Push [3537] = addr 3534
       Stack Push [3540] = addr 0
       Stack Push [3541] = addr 0
       Stack Write [3540] = addr 2
       Stack Write [3541] = addr 3417
       Display [1] = 00111
       Display [2] = 03411
       SP = 3542
       FP = 3535
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 3411 -> Level 2, Frame 103
       Stack Push [3542] = integer 0d
       Stack Push [3543] = addr 3535
       Stack Push [3544] = addr 23527
       Stack Push [3545] = addr 3542
       Stack Push [3546] = addr 0
       Stack Push [3547] = addr 0
       Stack Write [3546] = addr 2
       Stack Write [3547] = addr 111
       Display [1] = 00061
       Display [2] = 00103
       SP = 3550
       FP = 3543
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3547] = addr 61
       Display [2] = 03543
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3550] = addr 100066
       SP = 3551
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3551] = integer 7d
       SP = 3552
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3551] = integer 7d
       Stack Push [3551] = integer 6d
 23522: 00 00 00125 ST  store
       Stack Pop [3551] = integer 6d
       Stack Pop [3550] = addr 100066
       Stack Write [66] = integer 6d
       SP = 3550
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3550] = integer 0d
       Stack Push [3551] = addr 3543
       Stack Push [3552] = addr 23551
       Stack Push [3553] = addr 3550
       Stack Push [3554] = addr 0
       Stack Push [3555] = addr 0
       Stack Push [3556] = integer 0d
       Stack Push [3557] = addr 203543
       Stack Push [3560] = integer 0d
       Stack Push [3561] = addr 203543
       Stack Push [3562] = integer 0d
       Stack Push [3563] = addr 203543
       Stack Push [3564] = integer 0d
       Stack Push [3565] = addr 203543
       Stack Push [3566] = integer 0d
       Stack Push [3567] = addr 203543
       Stack Push [3570] = integer 0d
       Stack Push [3571] = addr 203543
       SP = 3572
       FP = 3551
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3554] = addr 1
       Display [1] = 03551
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3572] = addr 103556
       SP = 3573
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3573] = integer 6d
       SP = 3574
 23510: 00 00 00125 ST  store
       Stack Pop [3573] = integer 6d
       Stack Pop [3572] = addr 103556
       Stack Write [3556] = integer 6d
       SP = 3572
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3572] = integer 6d
       SP = 3573
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3573] = integer 1d
       SP = 3574
 23562: 00 00 00105 LES less <
       Stack Pop [3573] = integer 1d
       Stack Pop [3572] = integer 6d
       Stack Push [3572] = integer 1d
       SP = 3573
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3572] = integer 1d
       C = 0
       SP = 3572
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3572] = integer 0d
       Stack Push [3573] = addr 3551
       Stack Push [3574] = addr 23575
       Stack Push [3575] = addr 3572
       Stack Push [3576] = addr 0
       Stack Push [3577] = addr 0
       SP = 3600
       FP = 3573
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3576] = addr 2
       Stack Write [3577] = addr 3551
       Display [1] = 03551
       Display [2] = 03573
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3600] = addr 103556
       SP = 3601
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3601] = integer 6d
       SP = 3602
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3601] = integer 6d
       Stack Push [3601] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [3601] = integer 5d
       Stack Pop [3600] = addr 103556
       Stack Write [3556] = integer 5d
       SP = 3600
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3600] = integer 0d
       Stack Push [3601] = addr 3573
       Stack Push [3602] = addr 23551
       Stack Push [3603] = addr 3600
       Stack Push [3604] = addr 0
       Stack Push [3605] = addr 0
       Stack Push [3606] = integer 0d
       Stack Push [3607] = addr 203573
       Stack Push [3610] = integer 0d
       Stack Push [3611] = addr 203573
       Stack Push [3612] = integer 0d
       Stack Push [3613] = addr 203573
       Stack Push [3614] = integer 0d
       Stack Push [3615] = addr 203573
       Stack Push [3616] = integer 0d
       Stack Push [3617] = addr 203573
       Stack Push [3620] = integer 0d
       Stack Push [3621] = addr 203573
       SP = 3622
       FP = 3601
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3604] = addr 1
       Display [1] = 03601
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3622] = addr 103606
       SP = 3623
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3623] = integer 5d
       SP = 3624
 23510: 00 00 00125 ST  store
       Stack Pop [3623] = integer 5d
       Stack Pop [3622] = addr 103606
       Stack Write [3606] = integer 5d
       SP = 3622
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3622] = integer 5d
       SP = 3623
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3623] = integer 1d
       SP = 3624
 23562: 00 00 00105 LES less <
       Stack Pop [3623] = integer 1d
       Stack Pop [3622] = integer 5d
       Stack Push [3622] = integer 1d
       SP = 3623
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3622] = integer 1d
       SP = 3622
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3622] = integer 0d
       Stack Push [3623] = addr 3601
       Stack Push [3624] = addr 23575
       Stack Push [3625] = addr 3622
       Stack Push [3626] = addr 0
       Stack Push [3627] = addr 0
       SP = 3630
       FP = 3623
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3626] = addr 2
       Stack Write [3627] = addr 3601
       Display [1] = 03601
       Display [2] = 03623
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3630] = addr 103606
       SP = 3631
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3631] = integer 5d
       SP = 3632
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3631] = integer 5d
       Stack Push [3631] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [3631] = integer 4d
       Stack Pop [3630] = addr 103606
       Stack Write [3606] = integer 4d
       SP = 3630
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3630] = integer 0d
       Stack Push [3631] = addr 3623
       Stack Push [3632] = addr 23551
       Stack Push [3633] = addr 3630
       Stack Push [3634] = addr 0
       Stack Push [3635] = addr 0
       Stack Push [3636] = integer 0d
       Stack Push [3637] = addr 203623
       Stack Push [3640] = integer 0d
       Stack Push [3641] = addr 203623
       Stack Push [3642] = integer 0d
       Stack Push [3643] = addr 203623
       Stack Push [3644] = integer 0d
       Stack Push [3645] = addr 203623
       Stack Push [3646] = integer 0d
       Stack Push [3647] = addr 203623
       Stack Push [3650] = integer 0d
       Stack Push [3651] = addr 203623
       SP = 3652
       FP = 3631
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3634] = addr 1
       Display [1] = 03631
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3652] = addr 103636
       SP = 3653
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3653] = integer 4d
       SP = 3654
 23510: 00 00 00125 ST  store
       Stack Pop [3653] = integer 4d
       Stack Pop [3652] = addr 103636
       Stack Write [3636] = integer 4d
       SP = 3652
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3652] = integer 4d
       SP = 3653
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3653] = integer 1d
       SP = 3654
 23562: 00 00 00105 LES less <
       Stack Pop [3653] = integer 1d
       Stack Pop [3652] = integer 4d
       Stack Push [3652] = integer 1d
       SP = 3653
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3652] = integer 1d
       SP = 3652
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3652] = integer 0d
       Stack Push [3653] = addr 3631
       Stack Push [3654] = addr 23575
       Stack Push [3655] = addr 3652
       Stack Push [3656] = addr 0
       Stack Push [3657] = addr 0
       SP = 3660
       FP = 3653
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3656] = addr 2
       Stack Write [3657] = addr 3631
       Display [1] = 03631
       Display [2] = 03653
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3660] = addr 103636
       SP = 3661
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3661] = integer 4d
       SP = 3662
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3661] = integer 4d
       Stack Push [3661] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [3661] = integer 3d
       Stack Pop [3660] = addr 103636
       Stack Write [3636] = integer 3d
       SP = 3660
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3660] = integer 0d
       Stack Push [3661] = addr 3653
       Stack Push [3662] = addr 23551
       Stack Push [3663] = addr 3660
       Stack Push [3664] = addr 0
       Stack Push [3665] = addr 0
       Stack Push [3666] = integer 0d
       Stack Push [3667] = addr 203653
       Stack Push [3670] = integer 0d
       Stack Push [3671] = addr 203653
       Stack Push [3672] = integer 0d
       Stack Push [3673] = addr 203653
       Stack Push [3674] = integer 0d
       Stack Push [3675] = addr 203653
       Stack Push [3676] = integer 0d
       Stack Push [3677] = addr 203653
       Stack Push [3700] = integer 0d
       Stack Push [3701] = addr 203653
       SP = 3702
       FP = 3661
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3664] = addr 1
       Display [1] = 03661
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3702] = addr 103666
       SP = 3703
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3703] = integer 3d
       SP = 3704
 23510: 00 00 00125 ST  store
       Stack Pop [3703] = integer 3d
       Stack Pop [3702] = addr 103666
       Stack Write [3666] = integer 3d
       SP = 3702
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3702] = integer 3d
       SP = 3703
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3703] = integer 1d
       SP = 3704
 23562: 00 00 00105 LES less <
       Stack Pop [3703] = integer 1d
       Stack Pop [3702] = integer 3d
       Stack Push [3702] = integer 1d
       SP = 3703
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3702] = integer 1d
       SP = 3702
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3702] = integer 0d
       Stack Push [3703] = addr 3661
       Stack Push [3704] = addr 23575
       Stack Push [3705] = addr 3702
       Stack Push [3706] = addr 0
       Stack Push [3707] = addr 0
       SP = 3710
       FP = 3703
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3706] = addr 2
       Stack Write [3707] = addr 3661
       Display [1] = 03661
       Display [2] = 03703
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3710] = addr 103666
       SP = 3711
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3711] = integer 3d
       SP = 3712
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3711] = integer 3d
       Stack Push [3711] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [3711] = integer 2d
       Stack Pop [3710] = addr 103666
       Stack Write [3666] = integer 2d
       SP = 3710
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3710] = integer 0d
       Stack Push [3711] = addr 3703
       Stack Push [3712] = addr 23551
       Stack Push [3713] = addr 3710
       Stack Push [3714] = addr 0
       Stack Push [3715] = addr 0
       Stack Push [3716] = integer 0d
       Stack Push [3717] = addr 203703
       Stack Push [3720] = integer 0d
       Stack Push [3721] = addr 203703
       Stack Push [3722] = integer 0d
       Stack Push [3723] = addr 203703
       Stack Push [3724] = integer 0d
       Stack Push [3725] = addr 203703
       Stack Push [3726] = integer 0d
       Stack Push [3727] = addr 203703
       Stack Push [3730] = integer 0d
       Stack Push [3731] = addr 203703
       SP = 3732
       FP = 3711
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3714] = addr 1
       Display [1] = 03711
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3732] = addr 103716
       SP = 3733
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3733] = integer 2d
       SP = 3734
 23510: 00 00 00125 ST  store
       Stack Pop [3733] = integer 2d
       Stack Pop [3732] = addr 103716
       Stack Write [3716] = integer 2d
       SP = 3732
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3732] = integer 2d
       SP = 3733
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3733] = integer 1d
       SP = 3734
 23562: 00 00 00105 LES less <
       Stack Pop [3733] = integer 1d
       Stack Pop [3732] = integer 2d
       Stack Push [3732] = integer 1d
       SP = 3733
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3732] = integer 1d
       SP = 3732
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3732] = integer 0d
       Stack Push [3733] = addr 3711
       Stack Push [3734] = addr 23575
       Stack Push [3735] = addr 3732
       Stack Push [3736] = addr 0
       Stack Push [3737] = addr 0
       SP = 3740
       FP = 3733
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3736] = addr 2
       Stack Write [3737] = addr 3711
       Display [1] = 03711
       Display [2] = 03733
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3740] = addr 103716
       SP = 3741
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3741] = integer 2d
       SP = 3742
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3741] = integer 2d
       Stack Push [3741] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [3741] = integer 1d
       Stack Pop [3740] = addr 103716
       Stack Write [3716] = integer 1d
       SP = 3740
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3740] = integer 0d
       Stack Push [3741] = addr 3733
       Stack Push [3742] = addr 23551
       Stack Push [3743] = addr 3740
       Stack Push [3744] = addr 0
       Stack Push [3745] = addr 0
       Stack Push [3746] = integer 0d
       Stack Push [3747] = addr 203733
       Stack Push [3750] = integer 0d
       Stack Push [3751] = addr 203733
       Stack Push [3752] = integer 0d
       Stack Push [3753] = addr 203733
       Stack Push [3754] = integer 0d
       Stack Push [3755] = addr 203733
       Stack Push [3756] = integer 0d
       Stack Push [3757] = addr 203733
       Stack Push [3760] = integer 0d
       Stack Push [3761] = addr 203733
       SP = 3762
       FP = 3741
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3744] = addr 1
       Display [1] = 03741
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3762] = addr 103746
       SP = 3763
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [3763] = integer 1d
       SP = 3764
 23510: 00 00 00125 ST  store
       Stack Pop [3763] = integer 1d
       Stack Pop [3762] = addr 103746
       Stack Write [3746] = integer 1d
       SP = 3762
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3762] = integer 1d
       SP = 3763
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [3763] = integer 1d
       SP = 3764
 23562: 00 00 00105 LES less <
       Stack Pop [3763] = integer 1d
       Stack Pop [3762] = integer 1d
       Stack Push [3762] = integer 1d
       SP = 3763
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [3762] = integer 1d
       SP = 3762
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [3762] = integer 0d
       Stack Push [3763] = addr 3741
       Stack Push [3764] = addr 23575
       Stack Push [3765] = addr 3762
       Stack Push [3766] = addr 0
       Stack Push [3767] = addr 0
       SP = 3770
       FP = 3763
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [3766] = addr 2
       Stack Write [3767] = addr 3741
       Display [1] = 03741
       Display [2] = 03763
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [3770] = addr 103746
       SP = 3771
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [3771] = integer 1d
       SP = 3772
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [3771] = integer 1d
       Stack Push [3771] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [3771] = integer 0d
       Stack Pop [3770] = addr 103746
       Stack Write [3746] = integer 0d
       SP = 3770
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [3770] = integer 0d
       Stack Push [3771] = addr 3763
       Stack Push [3772] = addr 23551
       Stack Push [3773] = addr 3770
       Stack Push [3774] = addr 0
       Stack Push [3775] = addr 0
       Stack Push [3776] = integer 0d
       Stack Push [3777] = addr 203763
       Stack Push [4000] = integer 0d
       Stack Push [4001] = addr 203763
       Stack Push [4002] = integer 0d
       Stack Push [4003] = addr 203763
       Stack Push [4004] = integer 0d
       Stack Push [4005] = addr 203763
       Stack Push [4006] = integer 0d
       Stack Push [4007] = addr 203763
       Stack Push [4010] = integer 0d
       Stack Push [4011] = addr 203763
       SP = 4012
       FP = 3771
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [3774] = addr 1
       Display [1] = 03771
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4012] = addr 103776
       SP = 4013
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4013] = integer 0d
       SP = 4014
 23510: 00 00 00125 ST  store
       Stack Pop [4013] = integer 0d
       Stack Pop [4012] = addr 103776
       Stack Write [3776] = integer 0d
       SP = 4012
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4012] = integer 0d
       SP = 4013
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4013] = integer 1d
       SP = 4014
 23562: 00 00 00105 LES less <
       Stack Pop [4013] = integer 1d
       Stack Pop [4012] = integer 0d
       Stack Push [4012] = integer 0d
       SP = 4013
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4012] = integer 0d
       C = 1
       SP = 4012
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 3771 -> Level 2, Frame 3763
       Stack Push [4012] = integer 0d
       Stack Push [4013] = addr 3771
       Stack Push [4014] = addr 23567
       Stack Push [4015] = addr 4012
       Stack Push [4016] = addr 0
       Stack Push [4017] = addr 0
       Stack Write [4016] = addr 2
       Stack Write [4017] = addr 3771
       Display [1] = 03741
       Display [2] = 03763
       SP = 4020
       FP = 4013
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 3763 -> Level 2, Frame 3733
       Stack Push [4020] = integer 0d
       Stack Push [4021] = addr 4013
       Stack Push [4022] = addr 23535
       Stack Push [4023] = addr 4020
       Stack Push [4024] = addr 0
       Stack Push [4025] = addr 0
       Stack Write [4024] = addr 2
       Stack Write [4025] = addr 3741
       Display [1] = 03711
       Display [2] = 03733
       SP = 4026
       FP = 4021
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 3733 -> Level 2, Frame 3703
       Stack Push [4026] = integer 0d
       Stack Push [4027] = addr 4021
       Stack Push [4030] = addr 23532
       Stack Push [4031] = addr 4026
       Stack Push [4032] = addr 0
       Stack Push [4033] = addr 0
       Stack Write [4032] = addr 2
       Stack Write [4033] = addr 3711
       Display [1] = 03661
       Display [2] = 03703
       SP = 4034
       FP = 4027
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 3703 -> Level 2, Frame 3653
       Stack Push [4034] = integer 0d
       Stack Push [4035] = addr 4027
       Stack Push [4036] = addr 23527
       Stack Push [4037] = addr 4034
       Stack Push [4040] = addr 0
       Stack Push [4041] = addr 0
       Stack Write [4040] = addr 2
       Stack Write [4041] = addr 3661
       Display [1] = 03631
       Display [2] = 03653
       SP = 4042
       FP = 4035
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4041] = addr 3631
       Display [2] = 04035
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4042] = addr 103636
       SP = 4043
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4043] = integer 3d
       SP = 4044
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4043] = integer 3d
       Stack Push [4043] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [4043] = integer 2d
       Stack Pop [4042] = addr 103636
       Stack Write [3636] = integer 2d
       SP = 4042
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4042] = integer 0d
       Stack Push [4043] = addr 4035
       Stack Push [4044] = addr 23551
       Stack Push [4045] = addr 4042
       Stack Push [4046] = addr 0
       Stack Push [4047] = addr 0
       Stack Push [4050] = integer 0d
       Stack Push [4051] = addr 204035
       Stack Push [4052] = integer 0d
       Stack Push [4053] = addr 204035
       Stack Push [4054] = integer 0d
       Stack Push [4055] = addr 204035
       Stack Push [4056] = integer 0d
       Stack Push [4057] = addr 204035
       Stack Push [4060] = integer 0d
       Stack Push [4061] = addr 204035
       Stack Push [4062] = integer 0d
       Stack Push [4063] = addr 204035
       SP = 4064
       FP = 4043
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4046] = addr 1
       Display [1] = 04043
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4064] = addr 104050
       SP = 4065
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4065] = integer 2d
       SP = 4066
 23510: 00 00 00125 ST  store
       Stack Pop [4065] = integer 2d
       Stack Pop [4064] = addr 104050
       Stack Write [4050] = integer 2d
       SP = 4064
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4064] = integer 2d
       SP = 4065
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4065] = integer 1d
       SP = 4066
 23562: 00 00 00105 LES less <
       Stack Pop [4065] = integer 1d
       Stack Pop [4064] = integer 2d
       Stack Push [4064] = integer 1d
       SP = 4065
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4064] = integer 1d
       C = 0
       SP = 4064
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4064] = integer 0d
       Stack Push [4065] = addr 4043
       Stack Push [4066] = addr 23575
       Stack Push [4067] = addr 4064
       Stack Push [4070] = addr 0
       Stack Push [4071] = addr 0
       SP = 4072
       FP = 4065
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4070] = addr 2
       Stack Write [4071] = addr 4043
       Display [1] = 04043
       Display [2] = 04065
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4072] = addr 104050
       SP = 4073
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4073] = integer 2d
       SP = 4074
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4073] = integer 2d
       Stack Push [4073] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [4073] = integer 1d
       Stack Pop [4072] = addr 104050
       Stack Write [4050] = integer 1d
       SP = 4072
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4072] = integer 0d
       Stack Push [4073] = addr 4065
       Stack Push [4074] = addr 23551
       Stack Push [4075] = addr 4072
       Stack Push [4076] = addr 0
       Stack Push [4077] = addr 0
       Stack Push [4100] = integer 0d
       Stack Push [4101] = addr 204065
       Stack Push [4102] = integer 0d
       Stack Push [4103] = addr 204065
       Stack Push [4104] = integer 0d
       Stack Push [4105] = addr 204065
       Stack Push [4106] = integer 0d
       Stack Push [4107] = addr 204065
       Stack Push [4110] = integer 0d
       Stack Push [4111] = addr 204065
       Stack Push [4112] = integer 0d
       Stack Push [4113] = addr 204065
       SP = 4114
       FP = 4073
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4076] = addr 1
       Display [1] = 04073
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4114] = addr 104100
       SP = 4115
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4115] = integer 1d
       SP = 4116
 23510: 00 00 00125 ST  store
       Stack Pop [4115] = integer 1d
       Stack Pop [4114] = addr 104100
       Stack Write [4100] = integer 1d
       SP = 4114
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4114] = integer 1d
       SP = 4115
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4115] = integer 1d
       SP = 4116
 23562: 00 00 00105 LES less <
       Stack Pop [4115] = integer 1d
       Stack Pop [4114] = integer 1d
       Stack Push [4114] = integer 1d
       SP = 4115
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4114] = integer 1d
       SP = 4114
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4114] = integer 0d
       Stack Push [4115] = addr 4073
       Stack Push [4116] = addr 23575
       Stack Push [4117] = addr 4114
       Stack Push [4120] = addr 0
       Stack Push [4121] = addr 0
       SP = 4122
       FP = 4115
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4120] = addr 2
       Stack Write [4121] = addr 4073
       Display [1] = 04073
       Display [2] = 04115
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4122] = addr 104100
       SP = 4123
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4123] = integer 1d
       SP = 4124
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4123] = integer 1d
       Stack Push [4123] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [4123] = integer 0d
       Stack Pop [4122] = addr 104100
       Stack Write [4100] = integer 0d
       SP = 4122
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4122] = integer 0d
       Stack Push [4123] = addr 4115
       Stack Push [4124] = addr 23551
       Stack Push [4125] = addr 4122
       Stack Push [4126] = addr 0
       Stack Push [4127] = addr 0
       Stack Push [4130] = integer 0d
       Stack Push [4131] = addr 204115
       Stack Push [4132] = integer 0d
       Stack Push [4133] = addr 204115
       Stack Push [4134] = integer 0d
       Stack Push [4135] = addr 204115
       Stack Push [4136] = integer 0d
       Stack Push [4137] = addr 204115
       Stack Push [4140] = integer 0d
       Stack Push [4141] = addr 204115
       Stack Push [4142] = integer 0d
       Stack Push [4143] = addr 204115
       SP = 4144
       FP = 4123
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4126] = addr 1
       Display [1] = 04123
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4144] = addr 104130
       SP = 4145
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4145] = integer 0d
       SP = 4146
 23510: 00 00 00125 ST  store
       Stack Pop [4145] = integer 0d
       Stack Pop [4144] = addr 104130
       Stack Write [4130] = integer 0d
       SP = 4144
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4144] = integer 0d
       SP = 4145
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4145] = integer 1d
       SP = 4146
 23562: 00 00 00105 LES less <
       Stack Pop [4145] = integer 1d
       Stack Pop [4144] = integer 0d
       Stack Push [4144] = integer 0d
       SP = 4145
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4144] = integer 0d
       C = 1
       SP = 4144
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 4123 -> Level 2, Frame 4115
       Stack Push [4144] = integer 0d
       Stack Push [4145] = addr 4123
       Stack Push [4146] = addr 23567
       Stack Push [4147] = addr 4144
       Stack Push [4150] = addr 0
       Stack Push [4151] = addr 0
       Stack Write [4150] = addr 2
       Stack Write [4151] = addr 4123
       Display [1] = 04073
       Display [2] = 04115
       SP = 4152
       FP = 4145
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 4115 -> Level 2, Frame 4065
       Stack Push [4152] = integer 0d
       Stack Push [4153] = addr 4145
       Stack Push [4154] = addr 23535
       Stack Push [4155] = addr 4152
       Stack Push [4156] = addr 0
       Stack Push [4157] = addr 0
       Stack Write [4156] = addr 2
       Stack Write [4157] = addr 4073
       Display [1] = 04043
       Display [2] = 04065
       SP = 4160
       FP = 4153
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 4065 -> Level 2, Frame 4035
       Stack Push [4160] = integer 0d
       Stack Push [4161] = addr 4153
       Stack Push [4162] = addr 23532
       Stack Push [4163] = addr 4160
       Stack Push [4164] = addr 0
       Stack Push [4165] = addr 0
       Stack Write [4164] = addr 2
       Stack Write [4165] = addr 4043
       Display [1] = 03631
       Display [2] = 04035
       SP = 4166
       FP = 4161
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 4035 -> Level 2, Frame 3623
       Stack Push [4166] = integer 0d
       Stack Push [4167] = addr 4161
       Stack Push [4170] = addr 23527
       Stack Push [4171] = addr 4166
       Stack Push [4172] = addr 0
       Stack Push [4173] = addr 0
       Stack Write [4172] = addr 2
       Stack Write [4173] = addr 3631
       Display [1] = 03601
       Display [2] = 03623
       SP = 4174
       FP = 4167
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4173] = addr 3601
       Display [2] = 04167
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4174] = addr 103606
       SP = 4175
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4175] = integer 4d
       SP = 4176
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4175] = integer 4d
       Stack Push [4175] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [4175] = integer 3d
       Stack Pop [4174] = addr 103606
       Stack Write [3606] = integer 3d
       SP = 4174
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4174] = integer 0d
       Stack Push [4175] = addr 4167
       Stack Push [4176] = addr 23551
       Stack Push [4177] = addr 4174
       Stack Push [4200] = addr 0
       Stack Push [4201] = addr 0
       Stack Push [4202] = integer 0d
       Stack Push [4203] = addr 204167
       Stack Push [4204] = integer 0d
       Stack Push [4205] = addr 204167
       Stack Push [4206] = integer 0d
       Stack Push [4207] = addr 204167
       Stack Push [4210] = integer 0d
       Stack Push [4211] = addr 204167
       Stack Push [4212] = integer 0d
       Stack Push [4213] = addr 204167
       Stack Push [4214] = integer 0d
       Stack Push [4215] = addr 204167
       SP = 4216
       FP = 4175
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4200] = addr 1
       Display [1] = 04175
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4216] = addr 104202
       SP = 4217
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4217] = integer 3d
       SP = 4220
 23510: 00 00 00125 ST  store
       Stack Pop [4217] = integer 3d
       Stack Pop [4216] = addr 104202
       Stack Write [4202] = integer 3d
       SP = 4216
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4216] = integer 3d
       SP = 4217
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4217] = integer 1d
       SP = 4220
 23562: 00 00 00105 LES less <
       Stack Pop [4217] = integer 1d
       Stack Pop [4216] = integer 3d
       Stack Push [4216] = integer 1d
       SP = 4217
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4216] = integer 1d
       C = 0
       SP = 4216
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4216] = integer 0d
       Stack Push [4217] = addr 4175
       Stack Push [4220] = addr 23575
       Stack Push [4221] = addr 4216
       Stack Push [4222] = addr 0
       Stack Push [4223] = addr 0
       SP = 4224
       FP = 4217
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4222] = addr 2
       Stack Write [4223] = addr 4175
       Display [1] = 04175
       Display [2] = 04217
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4224] = addr 104202
       SP = 4225
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4225] = integer 3d
       SP = 4226
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4225] = integer 3d
       Stack Push [4225] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [4225] = integer 2d
       Stack Pop [4224] = addr 104202
       Stack Write [4202] = integer 2d
       SP = 4224
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4224] = integer 0d
       Stack Push [4225] = addr 4217
       Stack Push [4226] = addr 23551
       Stack Push [4227] = addr 4224
       Stack Push [4230] = addr 0
       Stack Push [4231] = addr 0
       Stack Push [4232] = integer 0d
       Stack Push [4233] = addr 204217
       Stack Push [4234] = integer 0d
       Stack Push [4235] = addr 204217
       Stack Push [4236] = integer 0d
       Stack Push [4237] = addr 204217
       Stack Push [4240] = integer 0d
       Stack Push [4241] = addr 204217
       Stack Push [4242] = integer 0d
       Stack Push [4243] = addr 204217
       Stack Push [4244] = integer 0d
       Stack Push [4245] = addr 204217
       SP = 4246
       FP = 4225
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4230] = addr 1
       Display [1] = 04225
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4246] = addr 104232
       SP = 4247
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4247] = integer 2d
       SP = 4250
 23510: 00 00 00125 ST  store
       Stack Pop [4247] = integer 2d
       Stack Pop [4246] = addr 104232
       Stack Write [4232] = integer 2d
       SP = 4246
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4246] = integer 2d
       SP = 4247
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4247] = integer 1d
       SP = 4250
 23562: 00 00 00105 LES less <
       Stack Pop [4247] = integer 1d
       Stack Pop [4246] = integer 2d
       Stack Push [4246] = integer 1d
       SP = 4247
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4246] = integer 1d
       SP = 4246
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4246] = integer 0d
       Stack Push [4247] = addr 4225
       Stack Push [4250] = addr 23575
       Stack Push [4251] = addr 4246
       Stack Push [4252] = addr 0
       Stack Push [4253] = addr 0
       SP = 4254
       FP = 4247
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4252] = addr 2
       Stack Write [4253] = addr 4225
       Display [1] = 04225
       Display [2] = 04247
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4254] = addr 104232
       SP = 4255
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4255] = integer 2d
       SP = 4256
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4255] = integer 2d
       Stack Push [4255] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [4255] = integer 1d
       Stack Pop [4254] = addr 104232
       Stack Write [4232] = integer 1d
       SP = 4254
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4254] = integer 0d
       Stack Push [4255] = addr 4247
       Stack Push [4256] = addr 23551
       Stack Push [4257] = addr 4254
       Stack Push [4260] = addr 0
       Stack Push [4261] = addr 0
       Stack Push [4262] = integer 0d
       Stack Push [4263] = addr 204247
       Stack Push [4264] = integer 0d
       Stack Push [4265] = addr 204247
       Stack Push [4266] = integer 0d
       Stack Push [4267] = addr 204247
       Stack Push [4270] = integer 0d
       Stack Push [4271] = addr 204247
       Stack Push [4272] = integer 0d
       Stack Push [4273] = addr 204247
       Stack Push [4274] = integer 0d
       Stack Push [4275] = addr 204247
       SP = 4276
       FP = 4255
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4260] = addr 1
       Display [1] = 04255
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4276] = addr 104262
       SP = 4277
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4277] = integer 1d
       SP = 4300
 23510: 00 00 00125 ST  store
       Stack Pop [4277] = integer 1d
       Stack Pop [4276] = addr 104262
       Stack Write [4262] = integer 1d
       SP = 4276
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4276] = integer 1d
       SP = 4277
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4277] = integer 1d
       SP = 4300
 23562: 00 00 00105 LES less <
       Stack Pop [4277] = integer 1d
       Stack Pop [4276] = integer 1d
       Stack Push [4276] = integer 1d
       SP = 4277
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4276] = integer 1d
       SP = 4276
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4276] = integer 0d
       Stack Push [4277] = addr 4255
       Stack Push [4300] = addr 23575
       Stack Push [4301] = addr 4276
       Stack Push [4302] = addr 0
       Stack Push [4303] = addr 0
       SP = 4304
       FP = 4277
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4302] = addr 2
       Stack Write [4303] = addr 4255
       Display [1] = 04255
       Display [2] = 04277
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4304] = addr 104262
       SP = 4305
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4305] = integer 1d
       SP = 4306
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4305] = integer 1d
       Stack Push [4305] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [4305] = integer 0d
       Stack Pop [4304] = addr 104262
       Stack Write [4262] = integer 0d
       SP = 4304
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4304] = integer 0d
       Stack Push [4305] = addr 4277
       Stack Push [4306] = addr 23551
       Stack Push [4307] = addr 4304
       Stack Push [4310] = addr 0
       Stack Push [4311] = addr 0
       Stack Push [4312] = integer 0d
       Stack Push [4313] = addr 204277
       Stack Push [4314] = integer 0d
       Stack Push [4315] = addr 204277
       Stack Push [4316] = integer 0d
       Stack Push [4317] = addr 204277
       Stack Push [4320] = integer 0d
       Stack Push [4321] = addr 204277
       Stack Push [4322] = integer 0d
       Stack Push [4323] = addr 204277
       Stack Push [4324] = integer 0d
       Stack Push [4325] = addr 204277
       SP = 4326
       FP = 4305
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4310] = addr 1
       Display [1] = 04305
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4326] = addr 104312
       SP = 4327
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4327] = integer 0d
       SP = 4330
 23510: 00 00 00125 ST  store
       Stack Pop [4327] = integer 0d
       Stack Pop [4326] = addr 104312
       Stack Write [4312] = integer 0d
       SP = 4326
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4326] = integer 0d
       SP = 4327
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4327] = integer 1d
       SP = 4330
 23562: 00 00 00105 LES less <
       Stack Pop [4327] = integer 1d
       Stack Pop [4326] = integer 0d
       Stack Push [4326] = integer 0d
       SP = 4327
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4326] = integer 0d
       C = 1
       SP = 4326
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 4305 -> Level 2, Frame 4277
       Stack Push [4326] = integer 0d
       Stack Push [4327] = addr 4305
       Stack Push [4330] = addr 23567
       Stack Push [4331] = addr 4326
       Stack Push [4332] = addr 0
       Stack Push [4333] = addr 0
       Stack Write [4332] = addr 2
       Stack Write [4333] = addr 4305
       Display [1] = 04255
       Display [2] = 04277
       SP = 4334
       FP = 4327
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 4277 -> Level 2, Frame 4247
       Stack Push [4334] = integer 0d
       Stack Push [4335] = addr 4327
       Stack Push [4336] = addr 23535
       Stack Push [4337] = addr 4334
       Stack Push [4340] = addr 0
       Stack Push [4341] = addr 0
       Stack Write [4340] = addr 2
       Stack Write [4341] = addr 4255
       Display [1] = 04225
       Display [2] = 04247
       SP = 4342
       FP = 4335
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 4247 -> Level 2, Frame 4217
       Stack Push [4342] = integer 0d
       Stack Push [4343] = addr 4335
       Stack Push [4344] = addr 23532
       Stack Push [4345] = addr 4342
       Stack Push [4346] = addr 0
       Stack Push [4347] = addr 0
       Stack Write [4346] = addr 2
       Stack Write [4347] = addr 4225
       Display [1] = 04175
       Display [2] = 04217
       SP = 4350
       FP = 4343
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 4217 -> Level 2, Frame 4167
       Stack Push [4350] = integer 0d
       Stack Push [4351] = addr 4343
       Stack Push [4352] = addr 23527
       Stack Push [4353] = addr 4350
       Stack Push [4354] = addr 0
       Stack Push [4355] = addr 0
       Stack Write [4354] = addr 2
       Stack Write [4355] = addr 4175
       Display [1] = 03601
       Display [2] = 04167
       SP = 4356
       FP = 4351
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4355] = addr 3601
       Display [2] = 04351
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4356] = addr 103606
       SP = 4357
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4357] = integer 3d
       SP = 4360
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4357] = integer 3d
       Stack Push [4357] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [4357] = integer 2d
       Stack Pop [4356] = addr 103606
       Stack Write [3606] = integer 2d
       SP = 4356
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4356] = integer 0d
       Stack Push [4357] = addr 4351
       Stack Push [4360] = addr 23551
       Stack Push [4361] = addr 4356
       Stack Push [4362] = addr 0
       Stack Push [4363] = addr 0
       Stack Push [4364] = integer 0d
       Stack Push [4365] = addr 204351
       Stack Push [4366] = integer 0d
       Stack Push [4367] = addr 204351
       Stack Push [4370] = integer 0d
       Stack Push [4371] = addr 204351
       Stack Push [4372] = integer 0d
       Stack Push [4373] = addr 204351
       Stack Push [4374] = integer 0d
       Stack Push [4375] = addr 204351
       Stack Push [4376] = integer 0d
       Stack Push [4377] = addr 204351
       SP = 4400
       FP = 4357
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4362] = addr 1
       Display [1] = 04357
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4400] = addr 104364
       SP = 4401
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4401] = integer 2d
       SP = 4402
 23510: 00 00 00125 ST  store
       Stack Pop [4401] = integer 2d
       Stack Pop [4400] = addr 104364
       Stack Write [4364] = integer 2d
       SP = 4400
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4400] = integer 2d
       SP = 4401
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4401] = integer 1d
       SP = 4402
 23562: 00 00 00105 LES less <
       Stack Pop [4401] = integer 1d
       Stack Pop [4400] = integer 2d
       Stack Push [4400] = integer 1d
       SP = 4401
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4400] = integer 1d
       C = 0
       SP = 4400
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4400] = integer 0d
       Stack Push [4401] = addr 4357
       Stack Push [4402] = addr 23575
       Stack Push [4403] = addr 4400
       Stack Push [4404] = addr 0
       Stack Push [4405] = addr 0
       SP = 4406
       FP = 4401
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4404] = addr 2
       Stack Write [4405] = addr 4357
       Display [1] = 04357
       Display [2] = 04401
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4406] = addr 104364
       SP = 4407
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4407] = integer 2d
       SP = 4410
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4407] = integer 2d
       Stack Push [4407] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [4407] = integer 1d
       Stack Pop [4406] = addr 104364
       Stack Write [4364] = integer 1d
       SP = 4406
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4406] = integer 0d
       Stack Push [4407] = addr 4401
       Stack Push [4410] = addr 23551
       Stack Push [4411] = addr 4406
       Stack Push [4412] = addr 0
       Stack Push [4413] = addr 0
       Stack Push [4414] = integer 0d
       Stack Push [4415] = addr 204401
       Stack Push [4416] = integer 0d
       Stack Push [4417] = addr 204401
       Stack Push [4420] = integer 0d
       Stack Push [4421] = addr 204401
       Stack Push [4422] = integer 0d
       Stack Push [4423] = addr 204401
       Stack Push [4424] = integer 0d
       Stack Push [4425] = addr 204401
       Stack Push [4426] = integer 0d
       Stack Push [4427] = addr 204401
       SP = 4430
       FP = 4407
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4412] = addr 1
       Display [1] = 04407
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4430] = addr 104414
       SP = 4431
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4431] = integer 1d
       SP = 4432
 23510: 00 00 00125 ST  store
       Stack Pop [4431] = integer 1d
       Stack Pop [4430] = addr 104414
       Stack Write [4414] = integer 1d
       SP = 4430
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4430] = integer 1d
       SP = 4431
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4431] = integer 1d
       SP = 4432
 23562: 00 00 00105 LES less <
       Stack Pop [4431] = integer 1d
       Stack Pop [4430] = integer 1d
       Stack Push [4430] = integer 1d
       SP = 4431
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4430] = integer 1d
       SP = 4430
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4430] = integer 0d
       Stack Push [4431] = addr 4407
       Stack Push [4432] = addr 23575
       Stack Push [4433] = addr 4430
       Stack Push [4434] = addr 0
       Stack Push [4435] = addr 0
       SP = 4436
       FP = 4431
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4434] = addr 2
       Stack Write [4435] = addr 4407
       Display [1] = 04407
       Display [2] = 04431
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4436] = addr 104414
       SP = 4437
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4437] = integer 1d
       SP = 4440
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4437] = integer 1d
       Stack Push [4437] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [4437] = integer 0d
       Stack Pop [4436] = addr 104414
       Stack Write [4414] = integer 0d
       SP = 4436
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4436] = integer 0d
       Stack Push [4437] = addr 4431
       Stack Push [4440] = addr 23551
       Stack Push [4441] = addr 4436
       Stack Push [4442] = addr 0
       Stack Push [4443] = addr 0
       Stack Push [4444] = integer 0d
       Stack Push [4445] = addr 204431
       Stack Push [4446] = integer 0d
       Stack Push [4447] = addr 204431
       Stack Push [4450] = integer 0d
       Stack Push [4451] = addr 204431
       Stack Push [4452] = integer 0d
       Stack Push [4453] = addr 204431
       Stack Push [4454] = integer 0d
       Stack Push [4455] = addr 204431
       Stack Push [4456] = integer 0d
       Stack Push [4457] = addr 204431
       SP = 4460
       FP = 4437
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4442] = addr 1
       Display [1] = 04437
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4460] = addr 104444
       SP = 4461
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4461] = integer 0d
       SP = 4462
 23510: 00 00 00125 ST  store
       Stack Pop [4461] = integer 0d
       Stack Pop [4460] = addr 104444
       Stack Write [4444] = integer 0d
       SP = 4460
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4460] = integer 0d
       SP = 4461
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4461] = integer 1d
       SP = 4462
 23562: 00 00 00105 LES less <
       Stack Pop [4461] = integer 1d
       Stack Pop [4460] = integer 0d
       Stack Push [4460] = integer 0d
       SP = 4461
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4460] = integer 0d
       C = 1
       SP = 4460
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 4437 -> Level 2, Frame 4431
       Stack Push [4460] = integer 0d
       Stack Push [4461] = addr 4437
       Stack Push [4462] = addr 23567
       Stack Push [4463] = addr 4460
       Stack Push [4464] = addr 0
       Stack Push [4465] = addr 0
       Stack Write [4464] = addr 2
       Stack Write [4465] = addr 4437
       Display [1] = 04407
       Display [2] = 04431
       SP = 4466
       FP = 4461
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 4431 -> Level 2, Frame 4401
       Stack Push [4466] = integer 0d
       Stack Push [4467] = addr 4461
       Stack Push [4470] = addr 23535
       Stack Push [4471] = addr 4466
       Stack Push [4472] = addr 0
       Stack Push [4473] = addr 0
       Stack Write [4472] = addr 2
       Stack Write [4473] = addr 4407
       Display [1] = 04357
       Display [2] = 04401
       SP = 4474
       FP = 4467
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 4401 -> Level 2, Frame 4351
       Stack Push [4474] = integer 0d
       Stack Push [4475] = addr 4467
       Stack Push [4476] = addr 23532
       Stack Push [4477] = addr 4474
       Stack Push [4500] = addr 0
       Stack Push [4501] = addr 0
       Stack Write [4500] = addr 2
       Stack Write [4501] = addr 4357
       Display [1] = 03601
       Display [2] = 04351
       SP = 4502
       FP = 4475
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 4351 -> Level 2, Frame 3573
       Stack Push [4502] = integer 0d
       Stack Push [4503] = addr 4475
       Stack Push [4504] = addr 23527
       Stack Push [4505] = addr 4502
       Stack Push [4506] = addr 0
       Stack Push [4507] = addr 0
       Stack Write [4506] = addr 2
       Stack Write [4507] = addr 3601
       Display [1] = 03551
       Display [2] = 03573
       SP = 4510
       FP = 4503
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4507] = addr 3551
       Display [2] = 04503
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4510] = addr 103556
       SP = 4511
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4511] = integer 5d
       SP = 4512
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4511] = integer 5d
       Stack Push [4511] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [4511] = integer 4d
       Stack Pop [4510] = addr 103556
       Stack Write [3556] = integer 4d
       SP = 4510
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4510] = integer 0d
       Stack Push [4511] = addr 4503
       Stack Push [4512] = addr 23551
       Stack Push [4513] = addr 4510
       Stack Push [4514] = addr 0
       Stack Push [4515] = addr 0
       Stack Push [4516] = integer 0d
       Stack Push [4517] = addr 204503
       Stack Push [4520] = integer 0d
       Stack Push [4521] = addr 204503
       Stack Push [4522] = integer 0d
       Stack Push [4523] = addr 204503
       Stack Push [4524] = integer 0d
       Stack Push [4525] = addr 204503
       Stack Push [4526] = integer 0d
       Stack Push [4527] = addr 204503
       Stack Push [4530] = integer 0d
       Stack Push [4531] = addr 204503
       SP = 4532
       FP = 4511
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4514] = addr 1
       Display [1] = 04511
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4532] = addr 104516
       SP = 4533
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4533] = integer 4d
       SP = 4534
 23510: 00 00 00125 ST  store
       Stack Pop [4533] = integer 4d
       Stack Pop [4532] = addr 104516
       Stack Write [4516] = integer 4d
       SP = 4532
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4532] = integer 4d
       SP = 4533
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4533] = integer 1d
       SP = 4534
 23562: 00 00 00105 LES less <
       Stack Pop [4533] = integer 1d
       Stack Pop [4532] = integer 4d
       Stack Push [4532] = integer 1d
       SP = 4533
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4532] = integer 1d
       C = 0
       SP = 4532
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4532] = integer 0d
       Stack Push [4533] = addr 4511
       Stack Push [4534] = addr 23575
       Stack Push [4535] = addr 4532
       Stack Push [4536] = addr 0
       Stack Push [4537] = addr 0
       SP = 4540
       FP = 4533
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4536] = addr 2
       Stack Write [4537] = addr 4511
       Display [1] = 04511
       Display [2] = 04533
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4540] = addr 104516
       SP = 4541
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4541] = integer 4d
       SP = 4542
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4541] = integer 4d
       Stack Push [4541] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [4541] = integer 3d
       Stack Pop [4540] = addr 104516
       Stack Write [4516] = integer 3d
       SP = 4540
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4540] = integer 0d
       Stack Push [4541] = addr 4533
       Stack Push [4542] = addr 23551
       Stack Push [4543] = addr 4540
       Stack Push [4544] = addr 0
       Stack Push [4545] = addr 0
       Stack Push [4546] = integer 0d
       Stack Push [4547] = addr 204533
       Stack Push [4550] = integer 0d
       Stack Push [4551] = addr 204533
       Stack Push [4552] = integer 0d
       Stack Push [4553] = addr 204533
       Stack Push [4554] = integer 0d
       Stack Push [4555] = addr 204533
       Stack Push [4556] = integer 0d
       Stack Push [4557] = addr 204533
       Stack Push [4560] = integer 0d
       Stack Push [4561] = addr 204533
       SP = 4562
       FP = 4541
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4544] = addr 1
       Display [1] = 04541
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4562] = addr 104546
       SP = 4563
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4563] = integer 3d
       SP = 4564
 23510: 00 00 00125 ST  store
       Stack Pop [4563] = integer 3d
       Stack Pop [4562] = addr 104546
       Stack Write [4546] = integer 3d
       SP = 4562
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4562] = integer 3d
       SP = 4563
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4563] = integer 1d
       SP = 4564
 23562: 00 00 00105 LES less <
       Stack Pop [4563] = integer 1d
       Stack Pop [4562] = integer 3d
       Stack Push [4562] = integer 1d
       SP = 4563
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4562] = integer 1d
       SP = 4562
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4562] = integer 0d
       Stack Push [4563] = addr 4541
       Stack Push [4564] = addr 23575
       Stack Push [4565] = addr 4562
       Stack Push [4566] = addr 0
       Stack Push [4567] = addr 0
       SP = 4570
       FP = 4563
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4566] = addr 2
       Stack Write [4567] = addr 4541
       Display [1] = 04541
       Display [2] = 04563
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4570] = addr 104546
       SP = 4571
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4571] = integer 3d
       SP = 4572
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4571] = integer 3d
       Stack Push [4571] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [4571] = integer 2d
       Stack Pop [4570] = addr 104546
       Stack Write [4546] = integer 2d
       SP = 4570
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4570] = integer 0d
       Stack Push [4571] = addr 4563
       Stack Push [4572] = addr 23551
       Stack Push [4573] = addr 4570
       Stack Push [4574] = addr 0
       Stack Push [4575] = addr 0
       Stack Push [4576] = integer 0d
       Stack Push [4577] = addr 204563
       Stack Push [4600] = integer 0d
       Stack Push [4601] = addr 204563
       Stack Push [4602] = integer 0d
       Stack Push [4603] = addr 204563
       Stack Push [4604] = integer 0d
       Stack Push [4605] = addr 204563
       Stack Push [4606] = integer 0d
       Stack Push [4607] = addr 204563
       Stack Push [4610] = integer 0d
       Stack Push [4611] = addr 204563
       SP = 4612
       FP = 4571
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4574] = addr 1
       Display [1] = 04571
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4612] = addr 104576
       SP = 4613
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4613] = integer 2d
       SP = 4614
 23510: 00 00 00125 ST  store
       Stack Pop [4613] = integer 2d
       Stack Pop [4612] = addr 104576
       Stack Write [4576] = integer 2d
       SP = 4612
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4612] = integer 2d
       SP = 4613
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4613] = integer 1d
       SP = 4614
 23562: 00 00 00105 LES less <
       Stack Pop [4613] = integer 1d
       Stack Pop [4612] = integer 2d
       Stack Push [4612] = integer 1d
       SP = 4613
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4612] = integer 1d
       SP = 4612
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4612] = integer 0d
       Stack Push [4613] = addr 4571
       Stack Push [4614] = addr 23575
       Stack Push [4615] = addr 4612
       Stack Push [4616] = addr 0
       Stack Push [4617] = addr 0
       SP = 4620
       FP = 4613
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4616] = addr 2
       Stack Write [4617] = addr 4571
       Display [1] = 04571
       Display [2] = 04613
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4620] = addr 104576
       SP = 4621
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4621] = integer 2d
       SP = 4622
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4621] = integer 2d
       Stack Push [4621] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [4621] = integer 1d
       Stack Pop [4620] = addr 104576
       Stack Write [4576] = integer 1d
       SP = 4620
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4620] = integer 0d
       Stack Push [4621] = addr 4613
       Stack Push [4622] = addr 23551
       Stack Push [4623] = addr 4620
       Stack Push [4624] = addr 0
       Stack Push [4625] = addr 0
       Stack Push [4626] = integer 0d
       Stack Push [4627] = addr 204613
       Stack Push [4630] = integer 0d
       Stack Push [4631] = addr 204613
       Stack Push [4632] = integer 0d
       Stack Push [4633] = addr 204613
       Stack Push [4634] = integer 0d
       Stack Push [4635] = addr 204613
       Stack Push [4636] = integer 0d
       Stack Push [4637] = addr 204613
       Stack Push [4640] = integer 0d
       Stack Push [4641] = addr 204613
       SP = 4642
       FP = 4621
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4624] = addr 1
       Display [1] = 04621
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4642] = addr 104626
       SP = 4643
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4643] = integer 1d
       SP = 4644
 23510: 00 00 00125 ST  store
       Stack Pop [4643] = integer 1d
       Stack Pop [4642] = addr 104626
       Stack Write [4626] = integer 1d
       SP = 4642
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4642] = integer 1d
       SP = 4643
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4643] = integer 1d
       SP = 4644
 23562: 00 00 00105 LES less <
       Stack Pop [4643] = integer 1d
       Stack Pop [4642] = integer 1d
       Stack Push [4642] = integer 1d
       SP = 4643
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4642] = integer 1d
       SP = 4642
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4642] = integer 0d
       Stack Push [4643] = addr 4621
       Stack Push [4644] = addr 23575
       Stack Push [4645] = addr 4642
       Stack Push [4646] = addr 0
       Stack Push [4647] = addr 0
       SP = 4650
       FP = 4643
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4646] = addr 2
       Stack Write [4647] = addr 4621
       Display [1] = 04621
       Display [2] = 04643
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4650] = addr 104626
       SP = 4651
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4651] = integer 1d
       SP = 4652
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4651] = integer 1d
       Stack Push [4651] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [4651] = integer 0d
       Stack Pop [4650] = addr 104626
       Stack Write [4626] = integer 0d
       SP = 4650
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4650] = integer 0d
       Stack Push [4651] = addr 4643
       Stack Push [4652] = addr 23551
       Stack Push [4653] = addr 4650
       Stack Push [4654] = addr 0
       Stack Push [4655] = addr 0
       Stack Push [4656] = integer 0d
       Stack Push [4657] = addr 204643
       Stack Push [4660] = integer 0d
       Stack Push [4661] = addr 204643
       Stack Push [4662] = integer 0d
       Stack Push [4663] = addr 204643
       Stack Push [4664] = integer 0d
       Stack Push [4665] = addr 204643
       Stack Push [4666] = integer 0d
       Stack Push [4667] = addr 204643
       Stack Push [4670] = integer 0d
       Stack Push [4671] = addr 204643
       SP = 4672
       FP = 4651
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4654] = addr 1
       Display [1] = 04651
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4672] = addr 104656
       SP = 4673
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4673] = integer 0d
       SP = 4674
 23510: 00 00 00125 ST  store
       Stack Pop [4673] = integer 0d
       Stack Pop [4672] = addr 104656
       Stack Write [4656] = integer 0d
       SP = 4672
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4672] = integer 0d
       SP = 4673
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4673] = integer 1d
       SP = 4674
 23562: 00 00 00105 LES less <
       Stack Pop [4673] = integer 1d
       Stack Pop [4672] = integer 0d
       Stack Push [4672] = integer 0d
       SP = 4673
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4672] = integer 0d
       C = 1
       SP = 4672
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 4651 -> Level 2, Frame 4643
       Stack Push [4672] = integer 0d
       Stack Push [4673] = addr 4651
       Stack Push [4674] = addr 23567
       Stack Push [4675] = addr 4672
       Stack Push [4676] = addr 0
       Stack Push [4677] = addr 0
       Stack Write [4676] = addr 2
       Stack Write [4677] = addr 4651
       Display [1] = 04621
       Display [2] = 04643
       SP = 4700
       FP = 4673
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 4643 -> Level 2, Frame 4613
       Stack Push [4700] = integer 0d
       Stack Push [4701] = addr 4673
       Stack Push [4702] = addr 23535
       Stack Push [4703] = addr 4700
       Stack Push [4704] = addr 0
       Stack Push [4705] = addr 0
       Stack Write [4704] = addr 2
       Stack Write [4705] = addr 4621
       Display [1] = 04571
       Display [2] = 04613
       SP = 4706
       FP = 4701
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 4613 -> Level 2, Frame 4563
       Stack Push [4706] = integer 0d
       Stack Push [4707] = addr 4701
       Stack Push [4710] = addr 23532
       Stack Push [4711] = addr 4706
       Stack Push [4712] = addr 0
       Stack Push [4713] = addr 0
       Stack Write [4712] = addr 2
       Stack Write [4713] = addr 4571
       Display [1] = 04541
       Display [2] = 04563
       SP = 4714
       FP = 4707
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 4563 -> Level 2, Frame 4533
       Stack Push [4714] = integer 0d
       Stack Push [4715] = addr 4707
       Stack Push [4716] = addr 23527
       Stack Push [4717] = addr 4714
       Stack Push [4720] = addr 0
       Stack Push [4721] = addr 0
       Stack Write [4720] = addr 2
       Stack Write [4721] = addr 4541
       Display [1] = 04511
       Display [2] = 04533
       SP = 4722
       FP = 4715
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4721] = addr 4511
       Display [2] = 04715
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4722] = addr 104516
       SP = 4723
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4723] = integer 3d
       SP = 4724
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4723] = integer 3d
       Stack Push [4723] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [4723] = integer 2d
       Stack Pop [4722] = addr 104516
       Stack Write [4516] = integer 2d
       SP = 4722
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4722] = integer 0d
       Stack Push [4723] = addr 4715
       Stack Push [4724] = addr 23551
       Stack Push [4725] = addr 4722
       Stack Push [4726] = addr 0
       Stack Push [4727] = addr 0
       Stack Push [4730] = integer 0d
       Stack Push [4731] = addr 204715
       Stack Push [4732] = integer 0d
       Stack Push [4733] = addr 204715
       Stack Push [4734] = integer 0d
       Stack Push [4735] = addr 204715
       Stack Push [4736] = integer 0d
       Stack Push [4737] = addr 204715
       Stack Push [4740] = integer 0d
       Stack Push [4741] = addr 204715
       Stack Push [4742] = integer 0d
       Stack Push [4743] = addr 204715
       SP = 4744
       FP = 4723
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4726] = addr 1
       Display [1] = 04723
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4744] = addr 104730
       SP = 4745
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4745] = integer 2d
       SP = 4746
 23510: 00 00 00125 ST  store
       Stack Pop [4745] = integer 2d
       Stack Pop [4744] = addr 104730
       Stack Write [4730] = integer 2d
       SP = 4744
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4744] = integer 2d
       SP = 4745
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4745] = integer 1d
       SP = 4746
 23562: 00 00 00105 LES less <
       Stack Pop [4745] = integer 1d
       Stack Pop [4744] = integer 2d
       Stack Push [4744] = integer 1d
       SP = 4745
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4744] = integer 1d
       C = 0
       SP = 4744
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4744] = integer 0d
       Stack Push [4745] = addr 4723
       Stack Push [4746] = addr 23575
       Stack Push [4747] = addr 4744
       Stack Push [4750] = addr 0
       Stack Push [4751] = addr 0
       SP = 4752
       FP = 4745
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [4750] = addr 2
       Stack Write [4751] = addr 4723
       Display [1] = 04723
       Display [2] = 04745
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4752] = addr 104730
       SP = 4753
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4753] = integer 2d
       SP = 4754
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [4753] = integer 2d
       Stack Push [4753] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [4753] = integer 1d
       Stack Pop [4752] = addr 104730
       Stack Write [4730] = integer 1d
       SP = 4752
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [4752] = integer 0d
       Stack Push [4753] = addr 4745
       Stack Push [4754] = addr 23551
       Stack Push [4755] = addr 4752
       Stack Push [4756] = addr 0
       Stack Push [4757] = addr 0
       Stack Push [4760] = integer 0d
       Stack Push [4761] = addr 204745
       Stack Push [4762] = integer 0d
       Stack Push [4763] = addr 204745
       Stack Push [4764] = integer 0d
       Stack Push [4765] = addr 204745
       Stack Push [4766] = integer 0d
       Stack Push [4767] = addr 204745
       Stack Push [4770] = integer 0d
       Stack Push [4771] = addr 204745
       Stack Push [4772] = integer 0d
       Stack Push [4773] = addr 204745
       SP = 4774
       FP = 4753
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [4756] = addr 1
       Display [1] = 04753
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [4774] = addr 104760
       SP = 4775
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [4775] = integer 1d
       SP = 4776
 23510: 00 00 00125 ST  store
       Stack Pop [4775] = integer 1d
       Stack Pop [4774] = addr 104760
       Stack Write [4760] = integer 1d
       SP = 4774
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [4774] = integer 1d
       SP = 4775
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [4775] = integer 1d
       SP = 4776
 23562: 00 00 00105 LES less <
       Stack Pop [4775] = integer 1d
       Stack Pop [4774] = integer 1d
       Stack Push [4774] = integer 1d
       SP = 4775
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [4774] = integer 1d
       SP = 4774
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [4774] = integer 0d
       Stack Push [4775] = addr 4753
       Stack Push [4776] = addr 23575
       Stack Push [4777] = addr 4774
       Stack Push [5000] = addr 0
       Stack Push [5001] = addr 0
       SP = 5002
       FP = 4775
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5000] = addr 2
       Stack Write [5001] = addr 4753
       Display [1] = 04753
       Display [2] = 04775
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5002] = addr 104760
       SP = 5003
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5003] = integer 1d
       SP = 5004
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5003] = integer 1d
       Stack Push [5003] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [5003] = integer 0d
       Stack Pop [5002] = addr 104760
       Stack Write [4760] = integer 0d
       SP = 5002
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5002] = integer 0d
       Stack Push [5003] = addr 4775
       Stack Push [5004] = addr 23551
       Stack Push [5005] = addr 5002
       Stack Push [5006] = addr 0
       Stack Push [5007] = addr 0
       Stack Push [5010] = integer 0d
       Stack Push [5011] = addr 204775
       Stack Push [5012] = integer 0d
       Stack Push [5013] = addr 204775
       Stack Push [5014] = integer 0d
       Stack Push [5015] = addr 204775
       Stack Push [5016] = integer 0d
       Stack Push [5017] = addr 204775
       Stack Push [5020] = integer 0d
       Stack Push [5021] = addr 204775
       Stack Push [5022] = integer 0d
       Stack Push [5023] = addr 204775
       SP = 5024
       FP = 5003
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5006] = addr 1
       Display [1] = 05003
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5024] = addr 105010
       SP = 5025
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5025] = integer 0d
       SP = 5026
 23510: 00 00 00125 ST  store
       Stack Pop [5025] = integer 0d
       Stack Pop [5024] = addr 105010
       Stack Write [5010] = integer 0d
       SP = 5024
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5024] = integer 0d
       SP = 5025
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5025] = integer 1d
       SP = 5026
 23562: 00 00 00105 LES less <
       Stack Pop [5025] = integer 1d
       Stack Pop [5024] = integer 0d
       Stack Push [5024] = integer 0d
       SP = 5025
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5024] = integer 0d
       C = 1
       SP = 5024
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 5003 -> Level 2, Frame 4775
       Stack Push [5024] = integer 0d
       Stack Push [5025] = addr 5003
       Stack Push [5026] = addr 23567
       Stack Push [5027] = addr 5024
       Stack Push [5030] = addr 0
       Stack Push [5031] = addr 0
       Stack Write [5030] = addr 2
       Stack Write [5031] = addr 5003
       Display [1] = 04753
       Display [2] = 04775
       SP = 5032
       FP = 5025
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 4775 -> Level 2, Frame 4745
       Stack Push [5032] = integer 0d
       Stack Push [5033] = addr 5025
       Stack Push [5034] = addr 23535
       Stack Push [5035] = addr 5032
       Stack Push [5036] = addr 0
       Stack Push [5037] = addr 0
       Stack Write [5036] = addr 2
       Stack Write [5037] = addr 4753
       Display [1] = 04723
       Display [2] = 04745
       SP = 5040
       FP = 5033
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 4745 -> Level 2, Frame 4715
       Stack Push [5040] = integer 0d
       Stack Push [5041] = addr 5033
       Stack Push [5042] = addr 23532
       Stack Push [5043] = addr 5040
       Stack Push [5044] = addr 0
       Stack Push [5045] = addr 0
       Stack Write [5044] = addr 2
       Stack Write [5045] = addr 4723
       Display [1] = 04511
       Display [2] = 04715
       SP = 5046
       FP = 5041
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 4715 -> Level 2, Frame 4503
       Stack Push [5046] = integer 0d
       Stack Push [5047] = addr 5041
       Stack Push [5050] = addr 23527
       Stack Push [5051] = addr 5046
       Stack Push [5052] = addr 0
       Stack Push [5053] = addr 0
       Stack Write [5052] = addr 2
       Stack Write [5053] = addr 4511
       Display [1] = 03551
       Display [2] = 04503
       SP = 5054
       FP = 5047
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5053] = addr 3551
       Display [2] = 05047
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5054] = addr 103556
       SP = 5055
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5055] = integer 4d
       SP = 5056
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5055] = integer 4d
       Stack Push [5055] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [5055] = integer 3d
       Stack Pop [5054] = addr 103556
       Stack Write [3556] = integer 3d
       SP = 5054
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5054] = integer 0d
       Stack Push [5055] = addr 5047
       Stack Push [5056] = addr 23551
       Stack Push [5057] = addr 5054
       Stack Push [5060] = addr 0
       Stack Push [5061] = addr 0
       Stack Push [5062] = integer 0d
       Stack Push [5063] = addr 205047
       Stack Push [5064] = integer 0d
       Stack Push [5065] = addr 205047
       Stack Push [5066] = integer 0d
       Stack Push [5067] = addr 205047
       Stack Push [5070] = integer 0d
       Stack Push [5071] = addr 205047
       Stack Push [5072] = integer 0d
       Stack Push [5073] = addr 205047
       Stack Push [5074] = integer 0d
       Stack Push [5075] = addr 205047
       SP = 5076
       FP = 5055
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5060] = addr 1
       Display [1] = 05055
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5076] = addr 105062
       SP = 5077
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5077] = integer 3d
       SP = 5100
 23510: 00 00 00125 ST  store
       Stack Pop [5077] = integer 3d
       Stack Pop [5076] = addr 105062
       Stack Write [5062] = integer 3d
       SP = 5076
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5076] = integer 3d
       SP = 5077
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5077] = integer 1d
       SP = 5100
 23562: 00 00 00105 LES less <
       Stack Pop [5077] = integer 1d
       Stack Pop [5076] = integer 3d
       Stack Push [5076] = integer 1d
       SP = 5077
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5076] = integer 1d
       C = 0
       SP = 5076
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5076] = integer 0d
       Stack Push [5077] = addr 5055
       Stack Push [5100] = addr 23575
       Stack Push [5101] = addr 5076
       Stack Push [5102] = addr 0
       Stack Push [5103] = addr 0
       SP = 5104
       FP = 5077
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5102] = addr 2
       Stack Write [5103] = addr 5055
       Display [1] = 05055
       Display [2] = 05077
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5104] = addr 105062
       SP = 5105
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5105] = integer 3d
       SP = 5106
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5105] = integer 3d
       Stack Push [5105] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [5105] = integer 2d
       Stack Pop [5104] = addr 105062
       Stack Write [5062] = integer 2d
       SP = 5104
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5104] = integer 0d
       Stack Push [5105] = addr 5077
       Stack Push [5106] = addr 23551
       Stack Push [5107] = addr 5104
       Stack Push [5110] = addr 0
       Stack Push [5111] = addr 0
       Stack Push [5112] = integer 0d
       Stack Push [5113] = addr 205077
       Stack Push [5114] = integer 0d
       Stack Push [5115] = addr 205077
       Stack Push [5116] = integer 0d
       Stack Push [5117] = addr 205077
       Stack Push [5120] = integer 0d
       Stack Push [5121] = addr 205077
       Stack Push [5122] = integer 0d
       Stack Push [5123] = addr 205077
       Stack Push [5124] = integer 0d
       Stack Push [5125] = addr 205077
       SP = 5126
       FP = 5105
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5110] = addr 1
       Display [1] = 05105
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5126] = addr 105112
       SP = 5127
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5127] = integer 2d
       SP = 5130
 23510: 00 00 00125 ST  store
       Stack Pop [5127] = integer 2d
       Stack Pop [5126] = addr 105112
       Stack Write [5112] = integer 2d
       SP = 5126
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5126] = integer 2d
       SP = 5127
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5127] = integer 1d
       SP = 5130
 23562: 00 00 00105 LES less <
       Stack Pop [5127] = integer 1d
       Stack Pop [5126] = integer 2d
       Stack Push [5126] = integer 1d
       SP = 5127
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5126] = integer 1d
       SP = 5126
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5126] = integer 0d
       Stack Push [5127] = addr 5105
       Stack Push [5130] = addr 23575
       Stack Push [5131] = addr 5126
       Stack Push [5132] = addr 0
       Stack Push [5133] = addr 0
       SP = 5134
       FP = 5127
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5132] = addr 2
       Stack Write [5133] = addr 5105
       Display [1] = 05105
       Display [2] = 05127
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5134] = addr 105112
       SP = 5135
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5135] = integer 2d
       SP = 5136
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5135] = integer 2d
       Stack Push [5135] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [5135] = integer 1d
       Stack Pop [5134] = addr 105112
       Stack Write [5112] = integer 1d
       SP = 5134
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5134] = integer 0d
       Stack Push [5135] = addr 5127
       Stack Push [5136] = addr 23551
       Stack Push [5137] = addr 5134
       Stack Push [5140] = addr 0
       Stack Push [5141] = addr 0
       Stack Push [5142] = integer 0d
       Stack Push [5143] = addr 205127
       Stack Push [5144] = integer 0d
       Stack Push [5145] = addr 205127
       Stack Push [5146] = integer 0d
       Stack Push [5147] = addr 205127
       Stack Push [5150] = integer 0d
       Stack Push [5151] = addr 205127
       Stack Push [5152] = integer 0d
       Stack Push [5153] = addr 205127
       Stack Push [5154] = integer 0d
       Stack Push [5155] = addr 205127
       SP = 5156
       FP = 5135
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5140] = addr 1
       Display [1] = 05135
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5156] = addr 105142
       SP = 5157
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5157] = integer 1d
       SP = 5160
 23510: 00 00 00125 ST  store
       Stack Pop [5157] = integer 1d
       Stack Pop [5156] = addr 105142
       Stack Write [5142] = integer 1d
       SP = 5156
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5156] = integer 1d
       SP = 5157
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5157] = integer 1d
       SP = 5160
 23562: 00 00 00105 LES less <
       Stack Pop [5157] = integer 1d
       Stack Pop [5156] = integer 1d
       Stack Push [5156] = integer 1d
       SP = 5157
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5156] = integer 1d
       SP = 5156
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5156] = integer 0d
       Stack Push [5157] = addr 5135
       Stack Push [5160] = addr 23575
       Stack Push [5161] = addr 5156
       Stack Push [5162] = addr 0
       Stack Push [5163] = addr 0
       SP = 5164
       FP = 5157
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5162] = addr 2
       Stack Write [5163] = addr 5135
       Display [1] = 05135
       Display [2] = 05157
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5164] = addr 105142
       SP = 5165
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5165] = integer 1d
       SP = 5166
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5165] = integer 1d
       Stack Push [5165] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [5165] = integer 0d
       Stack Pop [5164] = addr 105142
       Stack Write [5142] = integer 0d
       SP = 5164
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5164] = integer 0d
       Stack Push [5165] = addr 5157
       Stack Push [5166] = addr 23551
       Stack Push [5167] = addr 5164
       Stack Push [5170] = addr 0
       Stack Push [5171] = addr 0
       Stack Push [5172] = integer 0d
       Stack Push [5173] = addr 205157
       Stack Push [5174] = integer 0d
       Stack Push [5175] = addr 205157
       Stack Push [5176] = integer 0d
       Stack Push [5177] = addr 205157
       Stack Push [5200] = integer 0d
       Stack Push [5201] = addr 205157
       Stack Push [5202] = integer 0d
       Stack Push [5203] = addr 205157
       Stack Push [5204] = integer 0d
       Stack Push [5205] = addr 205157
       SP = 5206
       FP = 5165
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5170] = addr 1
       Display [1] = 05165
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5206] = addr 105172
       SP = 5207
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5207] = integer 0d
       SP = 5210
 23510: 00 00 00125 ST  store
       Stack Pop [5207] = integer 0d
       Stack Pop [5206] = addr 105172
       Stack Write [5172] = integer 0d
       SP = 5206
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5206] = integer 0d
       SP = 5207
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5207] = integer 1d
       SP = 5210
 23562: 00 00 00105 LES less <
       Stack Pop [5207] = integer 1d
       Stack Pop [5206] = integer 0d
       Stack Push [5206] = integer 0d
       SP = 5207
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5206] = integer 0d
       C = 1
       SP = 5206
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 5165 -> Level 2, Frame 5157
       Stack Push [5206] = integer 0d
       Stack Push [5207] = addr 5165
       Stack Push [5210] = addr 23567
       Stack Push [5211] = addr 5206
       Stack Push [5212] = addr 0
       Stack Push [5213] = addr 0
       Stack Write [5212] = addr 2
       Stack Write [5213] = addr 5165
       Display [1] = 05135
       Display [2] = 05157
       SP = 5214
       FP = 5207
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 5157 -> Level 2, Frame 5127
       Stack Push [5214] = integer 0d
       Stack Push [5215] = addr 5207
       Stack Push [5216] = addr 23535
       Stack Push [5217] = addr 5214
       Stack Push [5220] = addr 0
       Stack Push [5221] = addr 0
       Stack Write [5220] = addr 2
       Stack Write [5221] = addr 5135
       Display [1] = 05105
       Display [2] = 05127
       SP = 5222
       FP = 5215
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 5127 -> Level 2, Frame 5077
       Stack Push [5222] = integer 0d
       Stack Push [5223] = addr 5215
       Stack Push [5224] = addr 23532
       Stack Push [5225] = addr 5222
       Stack Push [5226] = addr 0
       Stack Push [5227] = addr 0
       Stack Write [5226] = addr 2
       Stack Write [5227] = addr 5105
       Display [1] = 05055
       Display [2] = 05077
       SP = 5230
       FP = 5223
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 5077 -> Level 2, Frame 5047
       Stack Push [5230] = integer 0d
       Stack Push [5231] = addr 5223
       Stack Push [5232] = addr 23527
       Stack Push [5233] = addr 5230
       Stack Push [5234] = addr 0
       Stack Push [5235] = addr 0
       Stack Write [5234] = addr 2
       Stack Write [5235] = addr 5055
       Display [1] = 03551
       Display [2] = 05047
       SP = 5236
       FP = 5231
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5235] = addr 3551
       Display [2] = 05231
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5236] = addr 103556
       SP = 5237
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5237] = integer 3d
       SP = 5240
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5237] = integer 3d
       Stack Push [5237] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [5237] = integer 2d
       Stack Pop [5236] = addr 103556
       Stack Write [3556] = integer 2d
       SP = 5236
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5236] = integer 0d
       Stack Push [5237] = addr 5231
       Stack Push [5240] = addr 23551
       Stack Push [5241] = addr 5236
       Stack Push [5242] = addr 0
       Stack Push [5243] = addr 0
       Stack Push [5244] = integer 0d
       Stack Push [5245] = addr 205231
       Stack Push [5246] = integer 0d
       Stack Push [5247] = addr 205231
       Stack Push [5250] = integer 0d
       Stack Push [5251] = addr 205231
       Stack Push [5252] = integer 0d
       Stack Push [5253] = addr 205231
       Stack Push [5254] = integer 0d
       Stack Push [5255] = addr 205231
       Stack Push [5256] = integer 0d
       Stack Push [5257] = addr 205231
       SP = 5260
       FP = 5237
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5242] = addr 1
       Display [1] = 05237
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5260] = addr 105244
       SP = 5261
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5261] = integer 2d
       SP = 5262
 23510: 00 00 00125 ST  store
       Stack Pop [5261] = integer 2d
       Stack Pop [5260] = addr 105244
       Stack Write [5244] = integer 2d
       SP = 5260
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5260] = integer 2d
       SP = 5261
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5261] = integer 1d
       SP = 5262
 23562: 00 00 00105 LES less <
       Stack Pop [5261] = integer 1d
       Stack Pop [5260] = integer 2d
       Stack Push [5260] = integer 1d
       SP = 5261
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5260] = integer 1d
       C = 0
       SP = 5260
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5260] = integer 0d
       Stack Push [5261] = addr 5237
       Stack Push [5262] = addr 23575
       Stack Push [5263] = addr 5260
       Stack Push [5264] = addr 0
       Stack Push [5265] = addr 0
       SP = 5266
       FP = 5261
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5264] = addr 2
       Stack Write [5265] = addr 5237
       Display [1] = 05237
       Display [2] = 05261
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5266] = addr 105244
       SP = 5267
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5267] = integer 2d
       SP = 5270
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5267] = integer 2d
       Stack Push [5267] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [5267] = integer 1d
       Stack Pop [5266] = addr 105244
       Stack Write [5244] = integer 1d
       SP = 5266
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5266] = integer 0d
       Stack Push [5267] = addr 5261
       Stack Push [5270] = addr 23551
       Stack Push [5271] = addr 5266
       Stack Push [5272] = addr 0
       Stack Push [5273] = addr 0
       Stack Push [5274] = integer 0d
       Stack Push [5275] = addr 205261
       Stack Push [5276] = integer 0d
       Stack Push [5277] = addr 205261
       Stack Push [5300] = integer 0d
       Stack Push [5301] = addr 205261
       Stack Push [5302] = integer 0d
       Stack Push [5303] = addr 205261
       Stack Push [5304] = integer 0d
       Stack Push [5305] = addr 205261
       Stack Push [5306] = integer 0d
       Stack Push [5307] = addr 205261
       SP = 5310
       FP = 5267
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5272] = addr 1
       Display [1] = 05267
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5310] = addr 105274
       SP = 5311
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5311] = integer 1d
       SP = 5312
 23510: 00 00 00125 ST  store
       Stack Pop [5311] = integer 1d
       Stack Pop [5310] = addr 105274
       Stack Write [5274] = integer 1d
       SP = 5310
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5310] = integer 1d
       SP = 5311
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5311] = integer 1d
       SP = 5312
 23562: 00 00 00105 LES less <
       Stack Pop [5311] = integer 1d
       Stack Pop [5310] = integer 1d
       Stack Push [5310] = integer 1d
       SP = 5311
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5310] = integer 1d
       SP = 5310
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5310] = integer 0d
       Stack Push [5311] = addr 5267
       Stack Push [5312] = addr 23575
       Stack Push [5313] = addr 5310
       Stack Push [5314] = addr 0
       Stack Push [5315] = addr 0
       SP = 5316
       FP = 5311
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5314] = addr 2
       Stack Write [5315] = addr 5267
       Display [1] = 05267
       Display [2] = 05311
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5316] = addr 105274
       SP = 5317
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5317] = integer 1d
       SP = 5320
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5317] = integer 1d
       Stack Push [5317] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [5317] = integer 0d
       Stack Pop [5316] = addr 105274
       Stack Write [5274] = integer 0d
       SP = 5316
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5316] = integer 0d
       Stack Push [5317] = addr 5311
       Stack Push [5320] = addr 23551
       Stack Push [5321] = addr 5316
       Stack Push [5322] = addr 0
       Stack Push [5323] = addr 0
       Stack Push [5324] = integer 0d
       Stack Push [5325] = addr 205311
       Stack Push [5326] = integer 0d
       Stack Push [5327] = addr 205311
       Stack Push [5330] = integer 0d
       Stack Push [5331] = addr 205311
       Stack Push [5332] = integer 0d
       Stack Push [5333] = addr 205311
       Stack Push [5334] = integer 0d
       Stack Push [5335] = addr 205311
       Stack Push [5336] = integer 0d
       Stack Push [5337] = addr 205311
       SP = 5340
       FP = 5317
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5322] = addr 1
       Display [1] = 05317
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5340] = addr 105324
       SP = 5341
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5341] = integer 0d
       SP = 5342
 23510: 00 00 00125 ST  store
       Stack Pop [5341] = integer 0d
       Stack Pop [5340] = addr 105324
       Stack Write [5324] = integer 0d
       SP = 5340
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5340] = integer 0d
       SP = 5341
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5341] = integer 1d
       SP = 5342
 23562: 00 00 00105 LES less <
       Stack Pop [5341] = integer 1d
       Stack Pop [5340] = integer 0d
       Stack Push [5340] = integer 0d
       SP = 5341
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5340] = integer 0d
       C = 1
       SP = 5340
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 5317 -> Level 2, Frame 5311
       Stack Push [5340] = integer 0d
       Stack Push [5341] = addr 5317
       Stack Push [5342] = addr 23567
       Stack Push [5343] = addr 5340
       Stack Push [5344] = addr 0
       Stack Push [5345] = addr 0
       Stack Write [5344] = addr 2
       Stack Write [5345] = addr 5317
       Display [1] = 05267
       Display [2] = 05311
       SP = 5346
       FP = 5341
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 5311 -> Level 2, Frame 5261
       Stack Push [5346] = integer 0d
       Stack Push [5347] = addr 5341
       Stack Push [5350] = addr 23535
       Stack Push [5351] = addr 5346
       Stack Push [5352] = addr 0
       Stack Push [5353] = addr 0
       Stack Write [5352] = addr 2
       Stack Write [5353] = addr 5267
       Display [1] = 05237
       Display [2] = 05261
       SP = 5354
       FP = 5347
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 5261 -> Level 2, Frame 5231
       Stack Push [5354] = integer 0d
       Stack Push [5355] = addr 5347
       Stack Push [5356] = addr 23532
       Stack Push [5357] = addr 5354
       Stack Push [5360] = addr 0
       Stack Push [5361] = addr 0
       Stack Write [5360] = addr 2
       Stack Write [5361] = addr 5237
       Display [1] = 03551
       Display [2] = 05231
       SP = 5362
       FP = 5355
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 5231 -> Level 2, Frame 3543
       Stack Push [5362] = integer 0d
       Stack Push [5363] = addr 5355
       Stack Push [5364] = addr 23527
       Stack Push [5365] = addr 5362
       Stack Push [5366] = addr 0
       Stack Push [5367] = addr 0
       Stack Write [5366] = addr 2
       Stack Write [5367] = addr 3551
       Display [1] = 00061
       Display [2] = 03543
       SP = 5370
       FP = 5363
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5367] = addr 61
       Display [2] = 05363
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5370] = addr 100066
       SP = 5371
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5371] = integer 6d
       SP = 5372
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5371] = integer 6d
       Stack Push [5371] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [5371] = integer 5d
       Stack Pop [5370] = addr 100066
       Stack Write [66] = integer 5d
       SP = 5370
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5370] = integer 0d
       Stack Push [5371] = addr 5363
       Stack Push [5372] = addr 23551
       Stack Push [5373] = addr 5370
       Stack Push [5374] = addr 0
       Stack Push [5375] = addr 0
       Stack Push [5376] = integer 0d
       Stack Push [5377] = addr 205363
       Stack Push [5400] = integer 0d
       Stack Push [5401] = addr 205363
       Stack Push [5402] = integer 0d
       Stack Push [5403] = addr 205363
       Stack Push [5404] = integer 0d
       Stack Push [5405] = addr 205363
       Stack Push [5406] = integer 0d
       Stack Push [5407] = addr 205363
       Stack Push [5410] = integer 0d
       Stack Push [5411] = addr 205363
       SP = 5412
       FP = 5371
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5374] = addr 1
       Display [1] = 05371
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5412] = addr 105376
       SP = 5413
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5413] = integer 5d
       SP = 5414
 23510: 00 00 00125 ST  store
       Stack Pop [5413] = integer 5d
       Stack Pop [5412] = addr 105376
       Stack Write [5376] = integer 5d
       SP = 5412
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5412] = integer 5d
       SP = 5413
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5413] = integer 1d
       SP = 5414
 23562: 00 00 00105 LES less <
       Stack Pop [5413] = integer 1d
       Stack Pop [5412] = integer 5d
       Stack Push [5412] = integer 1d
       SP = 5413
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5412] = integer 1d
       C = 0
       SP = 5412
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5412] = integer 0d
       Stack Push [5413] = addr 5371
       Stack Push [5414] = addr 23575
       Stack Push [5415] = addr 5412
       Stack Push [5416] = addr 0
       Stack Push [5417] = addr 0
       SP = 5420
       FP = 5413
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5416] = addr 2
       Stack Write [5417] = addr 5371
       Display [1] = 05371
       Display [2] = 05413
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5420] = addr 105376
       SP = 5421
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5421] = integer 5d
       SP = 5422
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5421] = integer 5d
       Stack Push [5421] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [5421] = integer 4d
       Stack Pop [5420] = addr 105376
       Stack Write [5376] = integer 4d
       SP = 5420
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5420] = integer 0d
       Stack Push [5421] = addr 5413
       Stack Push [5422] = addr 23551
       Stack Push [5423] = addr 5420
       Stack Push [5424] = addr 0
       Stack Push [5425] = addr 0
       Stack Push [5426] = integer 0d
       Stack Push [5427] = addr 205413
       Stack Push [5430] = integer 0d
       Stack Push [5431] = addr 205413
       Stack Push [5432] = integer 0d
       Stack Push [5433] = addr 205413
       Stack Push [5434] = integer 0d
       Stack Push [5435] = addr 205413
       Stack Push [5436] = integer 0d
       Stack Push [5437] = addr 205413
       Stack Push [5440] = integer 0d
       Stack Push [5441] = addr 205413
       SP = 5442
       FP = 5421
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5424] = addr 1
       Display [1] = 05421
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5442] = addr 105426
       SP = 5443
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5443] = integer 4d
       SP = 5444
 23510: 00 00 00125 ST  store
       Stack Pop [5443] = integer 4d
       Stack Pop [5442] = addr 105426
       Stack Write [5426] = integer 4d
       SP = 5442
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5442] = integer 4d
       SP = 5443
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5443] = integer 1d
       SP = 5444
 23562: 00 00 00105 LES less <
       Stack Pop [5443] = integer 1d
       Stack Pop [5442] = integer 4d
       Stack Push [5442] = integer 1d
       SP = 5443
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5442] = integer 1d
       SP = 5442
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5442] = integer 0d
       Stack Push [5443] = addr 5421
       Stack Push [5444] = addr 23575
       Stack Push [5445] = addr 5442
       Stack Push [5446] = addr 0
       Stack Push [5447] = addr 0
       SP = 5450
       FP = 5443
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5446] = addr 2
       Stack Write [5447] = addr 5421
       Display [1] = 05421
       Display [2] = 05443
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5450] = addr 105426
       SP = 5451
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5451] = integer 4d
       SP = 5452
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5451] = integer 4d
       Stack Push [5451] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [5451] = integer 3d
       Stack Pop [5450] = addr 105426
       Stack Write [5426] = integer 3d
       SP = 5450
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5450] = integer 0d
       Stack Push [5451] = addr 5443
       Stack Push [5452] = addr 23551
       Stack Push [5453] = addr 5450
       Stack Push [5454] = addr 0
       Stack Push [5455] = addr 0
       Stack Push [5456] = integer 0d
       Stack Push [5457] = addr 205443
       Stack Push [5460] = integer 0d
       Stack Push [5461] = addr 205443
       Stack Push [5462] = integer 0d
       Stack Push [5463] = addr 205443
       Stack Push [5464] = integer 0d
       Stack Push [5465] = addr 205443
       Stack Push [5466] = integer 0d
       Stack Push [5467] = addr 205443
       Stack Push [5470] = integer 0d
       Stack Push [5471] = addr 205443
       SP = 5472
       FP = 5451
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5454] = addr 1
       Display [1] = 05451
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5472] = addr 105456
       SP = 5473
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5473] = integer 3d
       SP = 5474
 23510: 00 00 00125 ST  store
       Stack Pop [5473] = integer 3d
       Stack Pop [5472] = addr 105456
       Stack Write [5456] = integer 3d
       SP = 5472
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5472] = integer 3d
       SP = 5473
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5473] = integer 1d
       SP = 5474
 23562: 00 00 00105 LES less <
       Stack Pop [5473] = integer 1d
       Stack Pop [5472] = integer 3d
       Stack Push [5472] = integer 1d
       SP = 5473
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5472] = integer 1d
       SP = 5472
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5472] = integer 0d
       Stack Push [5473] = addr 5451
       Stack Push [5474] = addr 23575
       Stack Push [5475] = addr 5472
       Stack Push [5476] = addr 0
       Stack Push [5477] = addr 0
       SP = 5500
       FP = 5473
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5476] = addr 2
       Stack Write [5477] = addr 5451
       Display [1] = 05451
       Display [2] = 05473
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5500] = addr 105456
       SP = 5501
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5501] = integer 3d
       SP = 5502
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5501] = integer 3d
       Stack Push [5501] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [5501] = integer 2d
       Stack Pop [5500] = addr 105456
       Stack Write [5456] = integer 2d
       SP = 5500
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5500] = integer 0d
       Stack Push [5501] = addr 5473
       Stack Push [5502] = addr 23551
       Stack Push [5503] = addr 5500
       Stack Push [5504] = addr 0
       Stack Push [5505] = addr 0
       Stack Push [5506] = integer 0d
       Stack Push [5507] = addr 205473
       Stack Push [5510] = integer 0d
       Stack Push [5511] = addr 205473
       Stack Push [5512] = integer 0d
       Stack Push [5513] = addr 205473
       Stack Push [5514] = integer 0d
       Stack Push [5515] = addr 205473
       Stack Push [5516] = integer 0d
       Stack Push [5517] = addr 205473
       Stack Push [5520] = integer 0d
       Stack Push [5521] = addr 205473
       SP = 5522
       FP = 5501
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5504] = addr 1
       Display [1] = 05501
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5522] = addr 105506
       SP = 5523
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5523] = integer 2d
       SP = 5524
 23510: 00 00 00125 ST  store
       Stack Pop [5523] = integer 2d
       Stack Pop [5522] = addr 105506
       Stack Write [5506] = integer 2d
       SP = 5522
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5522] = integer 2d
       SP = 5523
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5523] = integer 1d
       SP = 5524
 23562: 00 00 00105 LES less <
       Stack Pop [5523] = integer 1d
       Stack Pop [5522] = integer 2d
       Stack Push [5522] = integer 1d
       SP = 5523
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5522] = integer 1d
       SP = 5522
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5522] = integer 0d
       Stack Push [5523] = addr 5501
       Stack Push [5524] = addr 23575
       Stack Push [5525] = addr 5522
       Stack Push [5526] = addr 0
       Stack Push [5527] = addr 0
       SP = 5530
       FP = 5523
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5526] = addr 2
       Stack Write [5527] = addr 5501
       Display [1] = 05501
       Display [2] = 05523
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5530] = addr 105506
       SP = 5531
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5531] = integer 2d
       SP = 5532
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5531] = integer 2d
       Stack Push [5531] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [5531] = integer 1d
       Stack Pop [5530] = addr 105506
       Stack Write [5506] = integer 1d
       SP = 5530
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5530] = integer 0d
       Stack Push [5531] = addr 5523
       Stack Push [5532] = addr 23551
       Stack Push [5533] = addr 5530
       Stack Push [5534] = addr 0
       Stack Push [5535] = addr 0
       Stack Push [5536] = integer 0d
       Stack Push [5537] = addr 205523
       Stack Push [5540] = integer 0d
       Stack Push [5541] = addr 205523
       Stack Push [5542] = integer 0d
       Stack Push [5543] = addr 205523
       Stack Push [5544] = integer 0d
       Stack Push [5545] = addr 205523
       Stack Push [5546] = integer 0d
       Stack Push [5547] = addr 205523
       Stack Push [5550] = integer 0d
       Stack Push [5551] = addr 205523
       SP = 5552
       FP = 5531
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5534] = addr 1
       Display [1] = 05531
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5552] = addr 105536
       SP = 5553
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5553] = integer 1d
       SP = 5554
 23510: 00 00 00125 ST  store
       Stack Pop [5553] = integer 1d
       Stack Pop [5552] = addr 105536
       Stack Write [5536] = integer 1d
       SP = 5552
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5552] = integer 1d
       SP = 5553
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5553] = integer 1d
       SP = 5554
 23562: 00 00 00105 LES less <
       Stack Pop [5553] = integer 1d
       Stack Pop [5552] = integer 1d
       Stack Push [5552] = integer 1d
       SP = 5553
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5552] = integer 1d
       SP = 5552
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5552] = integer 0d
       Stack Push [5553] = addr 5531
       Stack Push [5554] = addr 23575
       Stack Push [5555] = addr 5552
       Stack Push [5556] = addr 0
       Stack Push [5557] = addr 0
       SP = 5560
       FP = 5553
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5556] = addr 2
       Stack Write [5557] = addr 5531
       Display [1] = 05531
       Display [2] = 05553
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5560] = addr 105536
       SP = 5561
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5561] = integer 1d
       SP = 5562
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5561] = integer 1d
       Stack Push [5561] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [5561] = integer 0d
       Stack Pop [5560] = addr 105536
       Stack Write [5536] = integer 0d
       SP = 5560
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5560] = integer 0d
       Stack Push [5561] = addr 5553
       Stack Push [5562] = addr 23551
       Stack Push [5563] = addr 5560
       Stack Push [5564] = addr 0
       Stack Push [5565] = addr 0
       Stack Push [5566] = integer 0d
       Stack Push [5567] = addr 205553
       Stack Push [5570] = integer 0d
       Stack Push [5571] = addr 205553
       Stack Push [5572] = integer 0d
       Stack Push [5573] = addr 205553
       Stack Push [5574] = integer 0d
       Stack Push [5575] = addr 205553
       Stack Push [5576] = integer 0d
       Stack Push [5577] = addr 205553
       Stack Push [5600] = integer 0d
       Stack Push [5601] = addr 205553
       SP = 5602
       FP = 5561
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5564] = addr 1
       Display [1] = 05561
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5602] = addr 105566
       SP = 5603
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5603] = integer 0d
       SP = 5604
 23510: 00 00 00125 ST  store
       Stack Pop [5603] = integer 0d
       Stack Pop [5602] = addr 105566
       Stack Write [5566] = integer 0d
       SP = 5602
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5602] = integer 0d
       SP = 5603
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5603] = integer 1d
       SP = 5604
 23562: 00 00 00105 LES less <
       Stack Pop [5603] = integer 1d
       Stack Pop [5602] = integer 0d
       Stack Push [5602] = integer 0d
       SP = 5603
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5602] = integer 0d
       C = 1
       SP = 5602
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 5561 -> Level 2, Frame 5553
       Stack Push [5602] = integer 0d
       Stack Push [5603] = addr 5561
       Stack Push [5604] = addr 23567
       Stack Push [5605] = addr 5602
       Stack Push [5606] = addr 0
       Stack Push [5607] = addr 0
       Stack Write [5606] = addr 2
       Stack Write [5607] = addr 5561
       Display [1] = 05531
       Display [2] = 05553
       SP = 5610
       FP = 5603
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 5553 -> Level 2, Frame 5523
       Stack Push [5610] = integer 0d
       Stack Push [5611] = addr 5603
       Stack Push [5612] = addr 23535
       Stack Push [5613] = addr 5610
       Stack Push [5614] = addr 0
       Stack Push [5615] = addr 0
       Stack Write [5614] = addr 2
       Stack Write [5615] = addr 5531
       Display [1] = 05501
       Display [2] = 05523
       SP = 5616
       FP = 5611
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 5523 -> Level 2, Frame 5473
       Stack Push [5616] = integer 0d
       Stack Push [5617] = addr 5611
       Stack Push [5620] = addr 23532
       Stack Push [5621] = addr 5616
       Stack Push [5622] = addr 0
       Stack Push [5623] = addr 0
       Stack Write [5622] = addr 2
       Stack Write [5623] = addr 5501
       Display [1] = 05451
       Display [2] = 05473
       SP = 5624
       FP = 5617
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 5473 -> Level 2, Frame 5443
       Stack Push [5624] = integer 0d
       Stack Push [5625] = addr 5617
       Stack Push [5626] = addr 23527
       Stack Push [5627] = addr 5624
       Stack Push [5630] = addr 0
       Stack Push [5631] = addr 0
       Stack Write [5630] = addr 2
       Stack Write [5631] = addr 5451
       Display [1] = 05421
       Display [2] = 05443
       SP = 5632
       FP = 5625
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5631] = addr 5421
       Display [2] = 05625
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5632] = addr 105426
       SP = 5633
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5633] = integer 3d
       SP = 5634
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5633] = integer 3d
       Stack Push [5633] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [5633] = integer 2d
       Stack Pop [5632] = addr 105426
       Stack Write [5426] = integer 2d
       SP = 5632
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5632] = integer 0d
       Stack Push [5633] = addr 5625
       Stack Push [5634] = addr 23551
       Stack Push [5635] = addr 5632
       Stack Push [5636] = addr 0
       Stack Push [5637] = addr 0
       Stack Push [5640] = integer 0d
       Stack Push [5641] = addr 205625
       Stack Push [5642] = integer 0d
       Stack Push [5643] = addr 205625
       Stack Push [5644] = integer 0d
       Stack Push [5645] = addr 205625
       Stack Push [5646] = integer 0d
       Stack Push [5647] = addr 205625
       Stack Push [5650] = integer 0d
       Stack Push [5651] = addr 205625
       Stack Push [5652] = integer 0d
       Stack Push [5653] = addr 205625
       SP = 5654
       FP = 5633
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5636] = addr 1
       Display [1] = 05633
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5654] = addr 105640
       SP = 5655
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5655] = integer 2d
       SP = 5656
 23510: 00 00 00125 ST  store
       Stack Pop [5655] = integer 2d
       Stack Pop [5654] = addr 105640
       Stack Write [5640] = integer 2d
       SP = 5654
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5654] = integer 2d
       SP = 5655
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5655] = integer 1d
       SP = 5656
 23562: 00 00 00105 LES less <
       Stack Pop [5655] = integer 1d
       Stack Pop [5654] = integer 2d
       Stack Push [5654] = integer 1d
       SP = 5655
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5654] = integer 1d
       C = 0
       SP = 5654
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5654] = integer 0d
       Stack Push [5655] = addr 5633
       Stack Push [5656] = addr 23575
       Stack Push [5657] = addr 5654
       Stack Push [5660] = addr 0
       Stack Push [5661] = addr 0
       SP = 5662
       FP = 5655
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5660] = addr 2
       Stack Write [5661] = addr 5633
       Display [1] = 05633
       Display [2] = 05655
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5662] = addr 105640
       SP = 5663
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5663] = integer 2d
       SP = 5664
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5663] = integer 2d
       Stack Push [5663] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [5663] = integer 1d
       Stack Pop [5662] = addr 105640
       Stack Write [5640] = integer 1d
       SP = 5662
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5662] = integer 0d
       Stack Push [5663] = addr 5655
       Stack Push [5664] = addr 23551
       Stack Push [5665] = addr 5662
       Stack Push [5666] = addr 0
       Stack Push [5667] = addr 0
       Stack Push [5670] = integer 0d
       Stack Push [5671] = addr 205655
       Stack Push [5672] = integer 0d
       Stack Push [5673] = addr 205655
       Stack Push [5674] = integer 0d
       Stack Push [5675] = addr 205655
       Stack Push [5676] = integer 0d
       Stack Push [5677] = addr 205655
       Stack Push [5700] = integer 0d
       Stack Push [5701] = addr 205655
       Stack Push [5702] = integer 0d
       Stack Push [5703] = addr 205655
       SP = 5704
       FP = 5663
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5666] = addr 1
       Display [1] = 05663
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5704] = addr 105670
       SP = 5705
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5705] = integer 1d
       SP = 5706
 23510: 00 00 00125 ST  store
       Stack Pop [5705] = integer 1d
       Stack Pop [5704] = addr 105670
       Stack Write [5670] = integer 1d
       SP = 5704
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5704] = integer 1d
       SP = 5705
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5705] = integer 1d
       SP = 5706
 23562: 00 00 00105 LES less <
       Stack Pop [5705] = integer 1d
       Stack Pop [5704] = integer 1d
       Stack Push [5704] = integer 1d
       SP = 5705
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5704] = integer 1d
       SP = 5704
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [5704] = integer 0d
       Stack Push [5705] = addr 5663
       Stack Push [5706] = addr 23575
       Stack Push [5707] = addr 5704
       Stack Push [5710] = addr 0
       Stack Push [5711] = addr 0
       SP = 5712
       FP = 5705
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5710] = addr 2
       Stack Write [5711] = addr 5663
       Display [1] = 05663
       Display [2] = 05705
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5712] = addr 105670
       SP = 5713
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5713] = integer 1d
       SP = 5714
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5713] = integer 1d
       Stack Push [5713] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [5713] = integer 0d
       Stack Pop [5712] = addr 105670
       Stack Write [5670] = integer 0d
       SP = 5712
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5712] = integer 0d
       Stack Push [5713] = addr 5705
       Stack Push [5714] = addr 23551
       Stack Push [5715] = addr 5712
       Stack Push [5716] = addr 0
       Stack Push [5717] = addr 0
       Stack Push [5720] = integer 0d
       Stack Push [5721] = addr 205705
       Stack Push [5722] = integer 0d
       Stack Push [5723] = addr 205705
       Stack Push [5724] = integer 0d
       Stack Push [5725] = addr 205705
       Stack Push [5726] = integer 0d
       Stack Push [5727] = addr 205705
       Stack Push [5730] = integer 0d
       Stack Push [5731] = addr 205705
       Stack Push [5732] = integer 0d
       Stack Push [5733] = addr 205705
       SP = 5734
       FP = 5713
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5716] = addr 1
       Display [1] = 05713
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5734] = addr 105720
       SP = 5735
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [5735] = integer 0d
       SP = 5736
 23510: 00 00 00125 ST  store
       Stack Pop [5735] = integer 0d
       Stack Pop [5734] = addr 105720
       Stack Write [5720] = integer 0d
       SP = 5734
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5734] = integer 0d
       SP = 5735
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [5735] = integer 1d
       SP = 5736
 23562: 00 00 00105 LES less <
       Stack Pop [5735] = integer 1d
       Stack Pop [5734] = integer 0d
       Stack Push [5734] = integer 0d
       SP = 5735
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [5734] = integer 0d
       C = 1
       SP = 5734
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 5713 -> Level 2, Frame 5705
       Stack Push [5734] = integer 0d
       Stack Push [5735] = addr 5713
       Stack Push [5736] = addr 23567
       Stack Push [5737] = addr 5734
       Stack Push [5740] = addr 0
       Stack Push [5741] = addr 0
       Stack Write [5740] = addr 2
       Stack Write [5741] = addr 5713
       Display [1] = 05663
       Display [2] = 05705
       SP = 5742
       FP = 5735
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 5705 -> Level 2, Frame 5655
       Stack Push [5742] = integer 0d
       Stack Push [5743] = addr 5735
       Stack Push [5744] = addr 23535
       Stack Push [5745] = addr 5742
       Stack Push [5746] = addr 0
       Stack Push [5747] = addr 0
       Stack Write [5746] = addr 2
       Stack Write [5747] = addr 5663
       Display [1] = 05633
       Display [2] = 05655
       SP = 5750
       FP = 5743
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 5655 -> Level 2, Frame 5625
       Stack Push [5750] = integer 0d
       Stack Push [5751] = addr 5743
       Stack Push [5752] = addr 23532
       Stack Push [5753] = addr 5750
       Stack Push [5754] = addr 0
       Stack Push [5755] = addr 0
       Stack Write [5754] = addr 2
       Stack Write [5755] = addr 5633
       Display [1] = 05421
       Display [2] = 05625
       SP = 5756
       FP = 5751
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 5625 -> Level 2, Frame 5413
       Stack Push [5756] = integer 0d
       Stack Push [5757] = addr 5751
       Stack Push [5760] = addr 23527
       Stack Push [5761] = addr 5756
       Stack Push [5762] = addr 0
       Stack Push [5763] = addr 0
       Stack Write [5762] = addr 2
       Stack Write [5763] = addr 5421
       Display [1] = 05371
       Display [2] = 05413
       SP = 5764
       FP = 5757
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [5763] = addr 5371
       Display [2] = 05757
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [5764] = addr 105376
       SP = 5765
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [5765] = integer 4d
       SP = 5766
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [5765] = integer 4d
       Stack Push [5765] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [5765] = integer 3d
       Stack Pop [5764] = addr 105376
       Stack Write [5376] = integer 3d
       SP = 5764
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [5764] = integer 0d
       Stack Push [5765] = addr 5757
       Stack Push [5766] = addr 23551
       Stack Push [5767] = addr 5764
       Stack Push [5770] = addr 0
       Stack Push [5771] = addr 0
       Stack Push [5772] = integer 0d
       Stack Push [5773] = addr 205757
       Stack Push [5774] = integer 0d
       Stack Push [5775] = addr 205757
       Stack Push [5776] = integer 0d
       Stack Push [5777] = addr 205757
       Stack Push [6000] = integer 0d
       Stack Push [6001] = addr 205757
       Stack Push [6002] = integer 0d
       Stack Push [6003] = addr 205757
       Stack Push [6004] = integer 0d
       Stack Push [6005] = addr 205757
       SP = 6006
       FP = 5765
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [5770] = addr 1
       Display [1] = 05765
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6006] = addr 105772
       SP = 6007
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6007] = integer 3d
       SP = 6010
 23510: 00 00 00125 ST  store
       Stack Pop [6007] = integer 3d
       Stack Pop [6006] = addr 105772
       Stack Write [5772] = integer 3d
       SP = 6006
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6006] = integer 3d
       SP = 6007
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6007] = integer 1d
       SP = 6010
 23562: 00 00 00105 LES less <
       Stack Pop [6007] = integer 1d
       Stack Pop [6006] = integer 3d
       Stack Push [6006] = integer 1d
       SP = 6007
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6006] = integer 1d
       C = 0
       SP = 6006
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6006] = integer 0d
       Stack Push [6007] = addr 5765
       Stack Push [6010] = addr 23575
       Stack Push [6011] = addr 6006
       Stack Push [6012] = addr 0
       Stack Push [6013] = addr 0
       SP = 6014
       FP = 6007
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6012] = addr 2
       Stack Write [6013] = addr 5765
       Display [1] = 05765
       Display [2] = 06007
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6014] = addr 105772
       SP = 6015
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6015] = integer 3d
       SP = 6016
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6015] = integer 3d
       Stack Push [6015] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [6015] = integer 2d
       Stack Pop [6014] = addr 105772
       Stack Write [5772] = integer 2d
       SP = 6014
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6014] = integer 0d
       Stack Push [6015] = addr 6007
       Stack Push [6016] = addr 23551
       Stack Push [6017] = addr 6014
       Stack Push [6020] = addr 0
       Stack Push [6021] = addr 0
       Stack Push [6022] = integer 0d
       Stack Push [6023] = addr 206007
       Stack Push [6024] = integer 0d
       Stack Push [6025] = addr 206007
       Stack Push [6026] = integer 0d
       Stack Push [6027] = addr 206007
       Stack Push [6030] = integer 0d
       Stack Push [6031] = addr 206007
       Stack Push [6032] = integer 0d
       Stack Push [6033] = addr 206007
       Stack Push [6034] = integer 0d
       Stack Push [6035] = addr 206007
       SP = 6036
       FP = 6015
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6020] = addr 1
       Display [1] = 06015
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6036] = addr 106022
       SP = 6037
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6037] = integer 2d
       SP = 6040
 23510: 00 00 00125 ST  store
       Stack Pop [6037] = integer 2d
       Stack Pop [6036] = addr 106022
       Stack Write [6022] = integer 2d
       SP = 6036
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6036] = integer 2d
       SP = 6037
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6037] = integer 1d
       SP = 6040
 23562: 00 00 00105 LES less <
       Stack Pop [6037] = integer 1d
       Stack Pop [6036] = integer 2d
       Stack Push [6036] = integer 1d
       SP = 6037
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6036] = integer 1d
       SP = 6036
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6036] = integer 0d
       Stack Push [6037] = addr 6015
       Stack Push [6040] = addr 23575
       Stack Push [6041] = addr 6036
       Stack Push [6042] = addr 0
       Stack Push [6043] = addr 0
       SP = 6044
       FP = 6037
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6042] = addr 2
       Stack Write [6043] = addr 6015
       Display [1] = 06015
       Display [2] = 06037
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6044] = addr 106022
       SP = 6045
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6045] = integer 2d
       SP = 6046
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6045] = integer 2d
       Stack Push [6045] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [6045] = integer 1d
       Stack Pop [6044] = addr 106022
       Stack Write [6022] = integer 1d
       SP = 6044
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6044] = integer 0d
       Stack Push [6045] = addr 6037
       Stack Push [6046] = addr 23551
       Stack Push [6047] = addr 6044
       Stack Push [6050] = addr 0
       Stack Push [6051] = addr 0
       Stack Push [6052] = integer 0d
       Stack Push [6053] = addr 206037
       Stack Push [6054] = integer 0d
       Stack Push [6055] = addr 206037
       Stack Push [6056] = integer 0d
       Stack Push [6057] = addr 206037
       Stack Push [6060] = integer 0d
       Stack Push [6061] = addr 206037
       Stack Push [6062] = integer 0d
       Stack Push [6063] = addr 206037
       Stack Push [6064] = integer 0d
       Stack Push [6065] = addr 206037
       SP = 6066
       FP = 6045
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6050] = addr 1
       Display [1] = 06045
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6066] = addr 106052
       SP = 6067
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6067] = integer 1d
       SP = 6070
 23510: 00 00 00125 ST  store
       Stack Pop [6067] = integer 1d
       Stack Pop [6066] = addr 106052
       Stack Write [6052] = integer 1d
       SP = 6066
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6066] = integer 1d
       SP = 6067
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6067] = integer 1d
       SP = 6070
 23562: 00 00 00105 LES less <
       Stack Pop [6067] = integer 1d
       Stack Pop [6066] = integer 1d
       Stack Push [6066] = integer 1d
       SP = 6067
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6066] = integer 1d
       SP = 6066
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6066] = integer 0d
       Stack Push [6067] = addr 6045
       Stack Push [6070] = addr 23575
       Stack Push [6071] = addr 6066
       Stack Push [6072] = addr 0
       Stack Push [6073] = addr 0
       SP = 6074
       FP = 6067
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6072] = addr 2
       Stack Write [6073] = addr 6045
       Display [1] = 06045
       Display [2] = 06067
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6074] = addr 106052
       SP = 6075
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6075] = integer 1d
       SP = 6076
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6075] = integer 1d
       Stack Push [6075] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [6075] = integer 0d
       Stack Pop [6074] = addr 106052
       Stack Write [6052] = integer 0d
       SP = 6074
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6074] = integer 0d
       Stack Push [6075] = addr 6067
       Stack Push [6076] = addr 23551
       Stack Push [6077] = addr 6074
       Stack Push [6100] = addr 0
       Stack Push [6101] = addr 0
       Stack Push [6102] = integer 0d
       Stack Push [6103] = addr 206067
       Stack Push [6104] = integer 0d
       Stack Push [6105] = addr 206067
       Stack Push [6106] = integer 0d
       Stack Push [6107] = addr 206067
       Stack Push [6110] = integer 0d
       Stack Push [6111] = addr 206067
       Stack Push [6112] = integer 0d
       Stack Push [6113] = addr 206067
       Stack Push [6114] = integer 0d
       Stack Push [6115] = addr 206067
       SP = 6116
       FP = 6075
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6100] = addr 1
       Display [1] = 06075
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6116] = addr 106102
       SP = 6117
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6117] = integer 0d
       SP = 6120
 23510: 00 00 00125 ST  store
       Stack Pop [6117] = integer 0d
       Stack Pop [6116] = addr 106102
       Stack Write [6102] = integer 0d
       SP = 6116
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6116] = integer 0d
       SP = 6117
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6117] = integer 1d
       SP = 6120
 23562: 00 00 00105 LES less <
       Stack Pop [6117] = integer 1d
       Stack Pop [6116] = integer 0d
       Stack Push [6116] = integer 0d
       SP = 6117
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6116] = integer 0d
       C = 1
       SP = 6116
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 6075 -> Level 2, Frame 6067
       Stack Push [6116] = integer 0d
       Stack Push [6117] = addr 6075
       Stack Push [6120] = addr 23567
       Stack Push [6121] = addr 6116
       Stack Push [6122] = addr 0
       Stack Push [6123] = addr 0
       Stack Write [6122] = addr 2
       Stack Write [6123] = addr 6075
       Display [1] = 06045
       Display [2] = 06067
       SP = 6124
       FP = 6117
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 6067 -> Level 2, Frame 6037
       Stack Push [6124] = integer 0d
       Stack Push [6125] = addr 6117
       Stack Push [6126] = addr 23535
       Stack Push [6127] = addr 6124
       Stack Push [6130] = addr 0
       Stack Push [6131] = addr 0
       Stack Write [6130] = addr 2
       Stack Write [6131] = addr 6045
       Display [1] = 06015
       Display [2] = 06037
       SP = 6132
       FP = 6125
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 6037 -> Level 2, Frame 6007
       Stack Push [6132] = integer 0d
       Stack Push [6133] = addr 6125
       Stack Push [6134] = addr 23532
       Stack Push [6135] = addr 6132
       Stack Push [6136] = addr 0
       Stack Push [6137] = addr 0
       Stack Write [6136] = addr 2
       Stack Write [6137] = addr 6015
       Display [1] = 05765
       Display [2] = 06007
       SP = 6140
       FP = 6133
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 6007 -> Level 2, Frame 5757
       Stack Push [6140] = integer 0d
       Stack Push [6141] = addr 6133
       Stack Push [6142] = addr 23527
       Stack Push [6143] = addr 6140
       Stack Push [6144] = addr 0
       Stack Push [6145] = addr 0
       Stack Write [6144] = addr 2
       Stack Write [6145] = addr 5765
       Display [1] = 05371
       Display [2] = 05757
       SP = 6146
       FP = 6141
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6145] = addr 5371
       Display [2] = 06141
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6146] = addr 105376
       SP = 6147
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6147] = integer 3d
       SP = 6150
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6147] = integer 3d
       Stack Push [6147] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [6147] = integer 2d
       Stack Pop [6146] = addr 105376
       Stack Write [5376] = integer 2d
       SP = 6146
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6146] = integer 0d
       Stack Push [6147] = addr 6141
       Stack Push [6150] = addr 23551
       Stack Push [6151] = addr 6146
       Stack Push [6152] = addr 0
       Stack Push [6153] = addr 0
       Stack Push [6154] = integer 0d
       Stack Push [6155] = addr 206141
       Stack Push [6156] = integer 0d
       Stack Push [6157] = addr 206141
       Stack Push [6160] = integer 0d
       Stack Push [6161] = addr 206141
       Stack Push [6162] = integer 0d
       Stack Push [6163] = addr 206141
       Stack Push [6164] = integer 0d
       Stack Push [6165] = addr 206141
       Stack Push [6166] = integer 0d
       Stack Push [6167] = addr 206141
       SP = 6170
       FP = 6147
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6152] = addr 1
       Display [1] = 06147
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6170] = addr 106154
       SP = 6171
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6171] = integer 2d
       SP = 6172
 23510: 00 00 00125 ST  store
       Stack Pop [6171] = integer 2d
       Stack Pop [6170] = addr 106154
       Stack Write [6154] = integer 2d
       SP = 6170
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6170] = integer 2d
       SP = 6171
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6171] = integer 1d
       SP = 6172
 23562: 00 00 00105 LES less <
       Stack Pop [6171] = integer 1d
       Stack Pop [6170] = integer 2d
       Stack Push [6170] = integer 1d
       SP = 6171
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6170] = integer 1d
       C = 0
       SP = 6170
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6170] = integer 0d
       Stack Push [6171] = addr 6147
       Stack Push [6172] = addr 23575
       Stack Push [6173] = addr 6170
       Stack Push [6174] = addr 0
       Stack Push [6175] = addr 0
       SP = 6176
       FP = 6171
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6174] = addr 2
       Stack Write [6175] = addr 6147
       Display [1] = 06147
       Display [2] = 06171
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6176] = addr 106154
       SP = 6177
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6177] = integer 2d
       SP = 6200
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6177] = integer 2d
       Stack Push [6177] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [6177] = integer 1d
       Stack Pop [6176] = addr 106154
       Stack Write [6154] = integer 1d
       SP = 6176
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6176] = integer 0d
       Stack Push [6177] = addr 6171
       Stack Push [6200] = addr 23551
       Stack Push [6201] = addr 6176
       Stack Push [6202] = addr 0
       Stack Push [6203] = addr 0
       Stack Push [6204] = integer 0d
       Stack Push [6205] = addr 206171
       Stack Push [6206] = integer 0d
       Stack Push [6207] = addr 206171
       Stack Push [6210] = integer 0d
       Stack Push [6211] = addr 206171
       Stack Push [6212] = integer 0d
       Stack Push [6213] = addr 206171
       Stack Push [6214] = integer 0d
       Stack Push [6215] = addr 206171
       Stack Push [6216] = integer 0d
       Stack Push [6217] = addr 206171
       SP = 6220
       FP = 6177
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6202] = addr 1
       Display [1] = 06177
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6220] = addr 106204
       SP = 6221
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6221] = integer 1d
       SP = 6222
 23510: 00 00 00125 ST  store
       Stack Pop [6221] = integer 1d
       Stack Pop [6220] = addr 106204
       Stack Write [6204] = integer 1d
       SP = 6220
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6220] = integer 1d
       SP = 6221
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6221] = integer 1d
       SP = 6222
 23562: 00 00 00105 LES less <
       Stack Pop [6221] = integer 1d
       Stack Pop [6220] = integer 1d
       Stack Push [6220] = integer 1d
       SP = 6221
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6220] = integer 1d
       SP = 6220
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6220] = integer 0d
       Stack Push [6221] = addr 6177
       Stack Push [6222] = addr 23575
       Stack Push [6223] = addr 6220
       Stack Push [6224] = addr 0
       Stack Push [6225] = addr 0
       SP = 6226
       FP = 6221
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6224] = addr 2
       Stack Write [6225] = addr 6177
       Display [1] = 06177
       Display [2] = 06221
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6226] = addr 106204
       SP = 6227
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6227] = integer 1d
       SP = 6230
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6227] = integer 1d
       Stack Push [6227] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [6227] = integer 0d
       Stack Pop [6226] = addr 106204
       Stack Write [6204] = integer 0d
       SP = 6226
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6226] = integer 0d
       Stack Push [6227] = addr 6221
       Stack Push [6230] = addr 23551
       Stack Push [6231] = addr 6226
       Stack Push [6232] = addr 0
       Stack Push [6233] = addr 0
       Stack Push [6234] = integer 0d
       Stack Push [6235] = addr 206221
       Stack Push [6236] = integer 0d
       Stack Push [6237] = addr 206221
       Stack Push [6240] = integer 0d
       Stack Push [6241] = addr 206221
       Stack Push [6242] = integer 0d
       Stack Push [6243] = addr 206221
       Stack Push [6244] = integer 0d
       Stack Push [6245] = addr 206221
       Stack Push [6246] = integer 0d
       Stack Push [6247] = addr 206221
       SP = 6250
       FP = 6227
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6232] = addr 1
       Display [1] = 06227
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6250] = addr 106234
       SP = 6251
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6251] = integer 0d
       SP = 6252
 23510: 00 00 00125 ST  store
       Stack Pop [6251] = integer 0d
       Stack Pop [6250] = addr 106234
       Stack Write [6234] = integer 0d
       SP = 6250
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6250] = integer 0d
       SP = 6251
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6251] = integer 1d
       SP = 6252
 23562: 00 00 00105 LES less <
       Stack Pop [6251] = integer 1d
       Stack Pop [6250] = integer 0d
       Stack Push [6250] = integer 0d
       SP = 6251
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6250] = integer 0d
       C = 1
       SP = 6250
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 6227 -> Level 2, Frame 6221
       Stack Push [6250] = integer 0d
       Stack Push [6251] = addr 6227
       Stack Push [6252] = addr 23567
       Stack Push [6253] = addr 6250
       Stack Push [6254] = addr 0
       Stack Push [6255] = addr 0
       Stack Write [6254] = addr 2
       Stack Write [6255] = addr 6227
       Display [1] = 06177
       Display [2] = 06221
       SP = 6256
       FP = 6251
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 6221 -> Level 2, Frame 6171
       Stack Push [6256] = integer 0d
       Stack Push [6257] = addr 6251
       Stack Push [6260] = addr 23535
       Stack Push [6261] = addr 6256
       Stack Push [6262] = addr 0
       Stack Push [6263] = addr 0
       Stack Write [6262] = addr 2
       Stack Write [6263] = addr 6177
       Display [1] = 06147
       Display [2] = 06171
       SP = 6264
       FP = 6257
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 6171 -> Level 2, Frame 6141
       Stack Push [6264] = integer 0d
       Stack Push [6265] = addr 6257
       Stack Push [6266] = addr 23532
       Stack Push [6267] = addr 6264
       Stack Push [6270] = addr 0
       Stack Push [6271] = addr 0
       Stack Write [6270] = addr 2
       Stack Write [6271] = addr 6147
       Display [1] = 05371
       Display [2] = 06141
       SP = 6272
       FP = 6265
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 6141 -> Level 2, Frame 5363
       Stack Push [6272] = integer 0d
       Stack Push [6273] = addr 6265
       Stack Push [6274] = addr 23527
       Stack Push [6275] = addr 6272
       Stack Push [6276] = addr 0
       Stack Push [6277] = addr 0
       Stack Write [6276] = addr 2
       Stack Write [6277] = addr 5371
       Display [1] = 00061
       Display [2] = 05363
       SP = 6300
       FP = 6273
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6277] = addr 61
       Display [2] = 06273
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6300] = addr 100066
       SP = 6301
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6301] = integer 5d
       SP = 6302
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6301] = integer 5d
       Stack Push [6301] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [6301] = integer 4d
       Stack Pop [6300] = addr 100066
       Stack Write [66] = integer 4d
       SP = 6300
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6300] = integer 0d
       Stack Push [6301] = addr 6273
       Stack Push [6302] = addr 23551
       Stack Push [6303] = addr 6300
       Stack Push [6304] = addr 0
       Stack Push [6305] = addr 0
       Stack Push [6306] = integer 0d
       Stack Push [6307] = addr 206273
       Stack Push [6310] = integer 0d
       Stack Push [6311] = addr 206273
       Stack Push [6312] = integer 0d
       Stack Push [6313] = addr 206273
       Stack Push [6314] = integer 0d
       Stack Push [6315] = addr 206273
       Stack Push [6316] = integer 0d
       Stack Push [6317] = addr 206273
       Stack Push [6320] = integer 0d
       Stack Push [6321] = addr 206273
       SP = 6322
       FP = 6301
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6304] = addr 1
       Display [1] = 06301
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6322] = addr 106306
       SP = 6323
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6323] = integer 4d
       SP = 6324
 23510: 00 00 00125 ST  store
       Stack Pop [6323] = integer 4d
       Stack Pop [6322] = addr 106306
       Stack Write [6306] = integer 4d
       SP = 6322
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6322] = integer 4d
       SP = 6323
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6323] = integer 1d
       SP = 6324
 23562: 00 00 00105 LES less <
       Stack Pop [6323] = integer 1d
       Stack Pop [6322] = integer 4d
       Stack Push [6322] = integer 1d
       SP = 6323
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6322] = integer 1d
       C = 0
       SP = 6322
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6322] = integer 0d
       Stack Push [6323] = addr 6301
       Stack Push [6324] = addr 23575
       Stack Push [6325] = addr 6322
       Stack Push [6326] = addr 0
       Stack Push [6327] = addr 0
       SP = 6330
       FP = 6323
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6326] = addr 2
       Stack Write [6327] = addr 6301
       Display [1] = 06301
       Display [2] = 06323
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6330] = addr 106306
       SP = 6331
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6331] = integer 4d
       SP = 6332
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6331] = integer 4d
       Stack Push [6331] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [6331] = integer 3d
       Stack Pop [6330] = addr 106306
       Stack Write [6306] = integer 3d
       SP = 6330
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6330] = integer 0d
       Stack Push [6331] = addr 6323
       Stack Push [6332] = addr 23551
       Stack Push [6333] = addr 6330
       Stack Push [6334] = addr 0
       Stack Push [6335] = addr 0
       Stack Push [6336] = integer 0d
       Stack Push [6337] = addr 206323
       Stack Push [6340] = integer 0d
       Stack Push [6341] = addr 206323
       Stack Push [6342] = integer 0d
       Stack Push [6343] = addr 206323
       Stack Push [6344] = integer 0d
       Stack Push [6345] = addr 206323
       Stack Push [6346] = integer 0d
       Stack Push [6347] = addr 206323
       Stack Push [6350] = integer 0d
       Stack Push [6351] = addr 206323
       SP = 6352
       FP = 6331
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6334] = addr 1
       Display [1] = 06331
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6352] = addr 106336
       SP = 6353
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6353] = integer 3d
       SP = 6354
 23510: 00 00 00125 ST  store
       Stack Pop [6353] = integer 3d
       Stack Pop [6352] = addr 106336
       Stack Write [6336] = integer 3d
       SP = 6352
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6352] = integer 3d
       SP = 6353
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6353] = integer 1d
       SP = 6354
 23562: 00 00 00105 LES less <
       Stack Pop [6353] = integer 1d
       Stack Pop [6352] = integer 3d
       Stack Push [6352] = integer 1d
       SP = 6353
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6352] = integer 1d
       SP = 6352
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6352] = integer 0d
       Stack Push [6353] = addr 6331
       Stack Push [6354] = addr 23575
       Stack Push [6355] = addr 6352
       Stack Push [6356] = addr 0
       Stack Push [6357] = addr 0
       SP = 6360
       FP = 6353
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6356] = addr 2
       Stack Write [6357] = addr 6331
       Display [1] = 06331
       Display [2] = 06353
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6360] = addr 106336
       SP = 6361
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6361] = integer 3d
       SP = 6362
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6361] = integer 3d
       Stack Push [6361] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [6361] = integer 2d
       Stack Pop [6360] = addr 106336
       Stack Write [6336] = integer 2d
       SP = 6360
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6360] = integer 0d
       Stack Push [6361] = addr 6353
       Stack Push [6362] = addr 23551
       Stack Push [6363] = addr 6360
       Stack Push [6364] = addr 0
       Stack Push [6365] = addr 0
       Stack Push [6366] = integer 0d
       Stack Push [6367] = addr 206353
       Stack Push [6370] = integer 0d
       Stack Push [6371] = addr 206353
       Stack Push [6372] = integer 0d
       Stack Push [6373] = addr 206353
       Stack Push [6374] = integer 0d
       Stack Push [6375] = addr 206353
       Stack Push [6376] = integer 0d
       Stack Push [6377] = addr 206353
       Stack Push [6400] = integer 0d
       Stack Push [6401] = addr 206353
       SP = 6402
       FP = 6361
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6364] = addr 1
       Display [1] = 06361
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6402] = addr 106366
       SP = 6403
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6403] = integer 2d
       SP = 6404
 23510: 00 00 00125 ST  store
       Stack Pop [6403] = integer 2d
       Stack Pop [6402] = addr 106366
       Stack Write [6366] = integer 2d
       SP = 6402
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6402] = integer 2d
       SP = 6403
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6403] = integer 1d
       SP = 6404
 23562: 00 00 00105 LES less <
       Stack Pop [6403] = integer 1d
       Stack Pop [6402] = integer 2d
       Stack Push [6402] = integer 1d
       SP = 6403
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6402] = integer 1d
       SP = 6402
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6402] = integer 0d
       Stack Push [6403] = addr 6361
       Stack Push [6404] = addr 23575
       Stack Push [6405] = addr 6402
       Stack Push [6406] = addr 0
       Stack Push [6407] = addr 0
       SP = 6410
       FP = 6403
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6406] = addr 2
       Stack Write [6407] = addr 6361
       Display [1] = 06361
       Display [2] = 06403
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6410] = addr 106366
       SP = 6411
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6411] = integer 2d
       SP = 6412
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6411] = integer 2d
       Stack Push [6411] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [6411] = integer 1d
       Stack Pop [6410] = addr 106366
       Stack Write [6366] = integer 1d
       SP = 6410
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6410] = integer 0d
       Stack Push [6411] = addr 6403
       Stack Push [6412] = addr 23551
       Stack Push [6413] = addr 6410
       Stack Push [6414] = addr 0
       Stack Push [6415] = addr 0
       Stack Push [6416] = integer 0d
       Stack Push [6417] = addr 206403
       Stack Push [6420] = integer 0d
       Stack Push [6421] = addr 206403
       Stack Push [6422] = integer 0d
       Stack Push [6423] = addr 206403
       Stack Push [6424] = integer 0d
       Stack Push [6425] = addr 206403
       Stack Push [6426] = integer 0d
       Stack Push [6427] = addr 206403
       Stack Push [6430] = integer 0d
       Stack Push [6431] = addr 206403
       SP = 6432
       FP = 6411
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6414] = addr 1
       Display [1] = 06411
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6432] = addr 106416
       SP = 6433
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6433] = integer 1d
       SP = 6434
 23510: 00 00 00125 ST  store
       Stack Pop [6433] = integer 1d
       Stack Pop [6432] = addr 106416
       Stack Write [6416] = integer 1d
       SP = 6432
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6432] = integer 1d
       SP = 6433
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6433] = integer 1d
       SP = 6434
 23562: 00 00 00105 LES less <
       Stack Pop [6433] = integer 1d
       Stack Pop [6432] = integer 1d
       Stack Push [6432] = integer 1d
       SP = 6433
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6432] = integer 1d
       SP = 6432
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6432] = integer 0d
       Stack Push [6433] = addr 6411
       Stack Push [6434] = addr 23575
       Stack Push [6435] = addr 6432
       Stack Push [6436] = addr 0
       Stack Push [6437] = addr 0
       SP = 6440
       FP = 6433
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6436] = addr 2
       Stack Write [6437] = addr 6411
       Display [1] = 06411
       Display [2] = 06433
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6440] = addr 106416
       SP = 6441
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6441] = integer 1d
       SP = 6442
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6441] = integer 1d
       Stack Push [6441] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [6441] = integer 0d
       Stack Pop [6440] = addr 106416
       Stack Write [6416] = integer 0d
       SP = 6440
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6440] = integer 0d
       Stack Push [6441] = addr 6433
       Stack Push [6442] = addr 23551
       Stack Push [6443] = addr 6440
       Stack Push [6444] = addr 0
       Stack Push [6445] = addr 0
       Stack Push [6446] = integer 0d
       Stack Push [6447] = addr 206433
       Stack Push [6450] = integer 0d
       Stack Push [6451] = addr 206433
       Stack Push [6452] = integer 0d
       Stack Push [6453] = addr 206433
       Stack Push [6454] = integer 0d
       Stack Push [6455] = addr 206433
       Stack Push [6456] = integer 0d
       Stack Push [6457] = addr 206433
       Stack Push [6460] = integer 0d
       Stack Push [6461] = addr 206433
       SP = 6462
       FP = 6441
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6444] = addr 1
       Display [1] = 06441
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6462] = addr 106446
       SP = 6463
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6463] = integer 0d
       SP = 6464
 23510: 00 00 00125 ST  store
       Stack Pop [6463] = integer 0d
       Stack Pop [6462] = addr 106446
       Stack Write [6446] = integer 0d
       SP = 6462
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6462] = integer 0d
       SP = 6463
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6463] = integer 1d
       SP = 6464
 23562: 00 00 00105 LES less <
       Stack Pop [6463] = integer 1d
       Stack Pop [6462] = integer 0d
       Stack Push [6462] = integer 0d
       SP = 6463
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6462] = integer 0d
       C = 1
       SP = 6462
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 6441 -> Level 2, Frame 6433
       Stack Push [6462] = integer 0d
       Stack Push [6463] = addr 6441
       Stack Push [6464] = addr 23567
       Stack Push [6465] = addr 6462
       Stack Push [6466] = addr 0
       Stack Push [6467] = addr 0
       Stack Write [6466] = addr 2
       Stack Write [6467] = addr 6441
       Display [1] = 06411
       Display [2] = 06433
       SP = 6470
       FP = 6463
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 6433 -> Level 2, Frame 6403
       Stack Push [6470] = integer 0d
       Stack Push [6471] = addr 6463
       Stack Push [6472] = addr 23535
       Stack Push [6473] = addr 6470
       Stack Push [6474] = addr 0
       Stack Push [6475] = addr 0
       Stack Write [6474] = addr 2
       Stack Write [6475] = addr 6411
       Display [1] = 06361
       Display [2] = 06403
       SP = 6476
       FP = 6471
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 6403 -> Level 2, Frame 6353
       Stack Push [6476] = integer 0d
       Stack Push [6477] = addr 6471
       Stack Push [6500] = addr 23532
       Stack Push [6501] = addr 6476
       Stack Push [6502] = addr 0
       Stack Push [6503] = addr 0
       Stack Write [6502] = addr 2
       Stack Write [6503] = addr 6361
       Display [1] = 06331
       Display [2] = 06353
       SP = 6504
       FP = 6477
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 6353 -> Level 2, Frame 6323
       Stack Push [6504] = integer 0d
       Stack Push [6505] = addr 6477
       Stack Push [6506] = addr 23527
       Stack Push [6507] = addr 6504
       Stack Push [6510] = addr 0
       Stack Push [6511] = addr 0
       Stack Write [6510] = addr 2
       Stack Write [6511] = addr 6331
       Display [1] = 06301
       Display [2] = 06323
       SP = 6512
       FP = 6505
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6511] = addr 6301
       Display [2] = 06505
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6512] = addr 106306
       SP = 6513
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6513] = integer 3d
       SP = 6514
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6513] = integer 3d
       Stack Push [6513] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [6513] = integer 2d
       Stack Pop [6512] = addr 106306
       Stack Write [6306] = integer 2d
       SP = 6512
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6512] = integer 0d
       Stack Push [6513] = addr 6505
       Stack Push [6514] = addr 23551
       Stack Push [6515] = addr 6512
       Stack Push [6516] = addr 0
       Stack Push [6517] = addr 0
       Stack Push [6520] = integer 0d
       Stack Push [6521] = addr 206505
       Stack Push [6522] = integer 0d
       Stack Push [6523] = addr 206505
       Stack Push [6524] = integer 0d
       Stack Push [6525] = addr 206505
       Stack Push [6526] = integer 0d
       Stack Push [6527] = addr 206505
       Stack Push [6530] = integer 0d
       Stack Push [6531] = addr 206505
       Stack Push [6532] = integer 0d
       Stack Push [6533] = addr 206505
       SP = 6534
       FP = 6513
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6516] = addr 1
       Display [1] = 06513
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6534] = addr 106520
       SP = 6535
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6535] = integer 2d
       SP = 6536
 23510: 00 00 00125 ST  store
       Stack Pop [6535] = integer 2d
       Stack Pop [6534] = addr 106520
       Stack Write [6520] = integer 2d
       SP = 6534
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6534] = integer 2d
       SP = 6535
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6535] = integer 1d
       SP = 6536
 23562: 00 00 00105 LES less <
       Stack Pop [6535] = integer 1d
       Stack Pop [6534] = integer 2d
       Stack Push [6534] = integer 1d
       SP = 6535
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6534] = integer 1d
       C = 0
       SP = 6534
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6534] = integer 0d
       Stack Push [6535] = addr 6513
       Stack Push [6536] = addr 23575
       Stack Push [6537] = addr 6534
       Stack Push [6540] = addr 0
       Stack Push [6541] = addr 0
       SP = 6542
       FP = 6535
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6540] = addr 2
       Stack Write [6541] = addr 6513
       Display [1] = 06513
       Display [2] = 06535
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6542] = addr 106520
       SP = 6543
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6543] = integer 2d
       SP = 6544
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6543] = integer 2d
       Stack Push [6543] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [6543] = integer 1d
       Stack Pop [6542] = addr 106520
       Stack Write [6520] = integer 1d
       SP = 6542
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6542] = integer 0d
       Stack Push [6543] = addr 6535
       Stack Push [6544] = addr 23551
       Stack Push [6545] = addr 6542
       Stack Push [6546] = addr 0
       Stack Push [6547] = addr 0
       Stack Push [6550] = integer 0d
       Stack Push [6551] = addr 206535
       Stack Push [6552] = integer 0d
       Stack Push [6553] = addr 206535
       Stack Push [6554] = integer 0d
       Stack Push [6555] = addr 206535
       Stack Push [6556] = integer 0d
       Stack Push [6557] = addr 206535
       Stack Push [6560] = integer 0d
       Stack Push [6561] = addr 206535
       Stack Push [6562] = integer 0d
       Stack Push [6563] = addr 206535
       SP = 6564
       FP = 6543
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6546] = addr 1
       Display [1] = 06543
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6564] = addr 106550
       SP = 6565
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6565] = integer 1d
       SP = 6566
 23510: 00 00 00125 ST  store
       Stack Pop [6565] = integer 1d
       Stack Pop [6564] = addr 106550
       Stack Write [6550] = integer 1d
       SP = 6564
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6564] = integer 1d
       SP = 6565
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6565] = integer 1d
       SP = 6566
 23562: 00 00 00105 LES less <
       Stack Pop [6565] = integer 1d
       Stack Pop [6564] = integer 1d
       Stack Push [6564] = integer 1d
       SP = 6565
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6564] = integer 1d
       SP = 6564
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6564] = integer 0d
       Stack Push [6565] = addr 6543
       Stack Push [6566] = addr 23575
       Stack Push [6567] = addr 6564
       Stack Push [6570] = addr 0
       Stack Push [6571] = addr 0
       SP = 6572
       FP = 6565
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6570] = addr 2
       Stack Write [6571] = addr 6543
       Display [1] = 06543
       Display [2] = 06565
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6572] = addr 106550
       SP = 6573
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6573] = integer 1d
       SP = 6574
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6573] = integer 1d
       Stack Push [6573] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [6573] = integer 0d
       Stack Pop [6572] = addr 106550
       Stack Write [6550] = integer 0d
       SP = 6572
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6572] = integer 0d
       Stack Push [6573] = addr 6565
       Stack Push [6574] = addr 23551
       Stack Push [6575] = addr 6572
       Stack Push [6576] = addr 0
       Stack Push [6577] = addr 0
       Stack Push [6600] = integer 0d
       Stack Push [6601] = addr 206565
       Stack Push [6602] = integer 0d
       Stack Push [6603] = addr 206565
       Stack Push [6604] = integer 0d
       Stack Push [6605] = addr 206565
       Stack Push [6606] = integer 0d
       Stack Push [6607] = addr 206565
       Stack Push [6610] = integer 0d
       Stack Push [6611] = addr 206565
       Stack Push [6612] = integer 0d
       Stack Push [6613] = addr 206565
       SP = 6614
       FP = 6573
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6576] = addr 1
       Display [1] = 06573
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6614] = addr 106600
       SP = 6615
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6615] = integer 0d
       SP = 6616
 23510: 00 00 00125 ST  store
       Stack Pop [6615] = integer 0d
       Stack Pop [6614] = addr 106600
       Stack Write [6600] = integer 0d
       SP = 6614
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6614] = integer 0d
       SP = 6615
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6615] = integer 1d
       SP = 6616
 23562: 00 00 00105 LES less <
       Stack Pop [6615] = integer 1d
       Stack Pop [6614] = integer 0d
       Stack Push [6614] = integer 0d
       SP = 6615
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6614] = integer 0d
       C = 1
       SP = 6614
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 6573 -> Level 2, Frame 6565
       Stack Push [6614] = integer 0d
       Stack Push [6615] = addr 6573
       Stack Push [6616] = addr 23567
       Stack Push [6617] = addr 6614
       Stack Push [6620] = addr 0
       Stack Push [6621] = addr 0
       Stack Write [6620] = addr 2
       Stack Write [6621] = addr 6573
       Display [1] = 06543
       Display [2] = 06565
       SP = 6622
       FP = 6615
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 6565 -> Level 2, Frame 6535
       Stack Push [6622] = integer 0d
       Stack Push [6623] = addr 6615
       Stack Push [6624] = addr 23535
       Stack Push [6625] = addr 6622
       Stack Push [6626] = addr 0
       Stack Push [6627] = addr 0
       Stack Write [6626] = addr 2
       Stack Write [6627] = addr 6543
       Display [1] = 06513
       Display [2] = 06535
       SP = 6630
       FP = 6623
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 6535 -> Level 2, Frame 6505
       Stack Push [6630] = integer 0d
       Stack Push [6631] = addr 6623
       Stack Push [6632] = addr 23532
       Stack Push [6633] = addr 6630
       Stack Push [6634] = addr 0
       Stack Push [6635] = addr 0
       Stack Write [6634] = addr 2
       Stack Write [6635] = addr 6513
       Display [1] = 06301
       Display [2] = 06505
       SP = 6636
       FP = 6631
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 6505 -> Level 2, Frame 6273
       Stack Push [6636] = integer 0d
       Stack Push [6637] = addr 6631
       Stack Push [6640] = addr 23527
       Stack Push [6641] = addr 6636
       Stack Push [6642] = addr 0
       Stack Push [6643] = addr 0
       Stack Write [6642] = addr 2
       Stack Write [6643] = addr 6301
       Display [1] = 00061
       Display [2] = 06273
       SP = 6644
       FP = 6637
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6643] = addr 61
       Display [2] = 06637
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6644] = addr 100066
       SP = 6645
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6645] = integer 4d
       SP = 6646
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6645] = integer 4d
       Stack Push [6645] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [6645] = integer 3d
       Stack Pop [6644] = addr 100066
       Stack Write [66] = integer 3d
       SP = 6644
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6644] = integer 0d
       Stack Push [6645] = addr 6637
       Stack Push [6646] = addr 23551
       Stack Push [6647] = addr 6644
       Stack Push [6650] = addr 0
       Stack Push [6651] = addr 0
       Stack Push [6652] = integer 0d
       Stack Push [6653] = addr 206637
       Stack Push [6654] = integer 0d
       Stack Push [6655] = addr 206637
       Stack Push [6656] = integer 0d
       Stack Push [6657] = addr 206637
       Stack Push [6660] = integer 0d
       Stack Push [6661] = addr 206637
       Stack Push [6662] = integer 0d
       Stack Push [6663] = addr 206637
       Stack Push [6664] = integer 0d
       Stack Push [6665] = addr 206637
       SP = 6666
       FP = 6645
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6650] = addr 1
       Display [1] = 06645
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6666] = addr 106652
       SP = 6667
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6667] = integer 3d
       SP = 6670
 23510: 00 00 00125 ST  store
       Stack Pop [6667] = integer 3d
       Stack Pop [6666] = addr 106652
       Stack Write [6652] = integer 3d
       SP = 6666
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6666] = integer 3d
       SP = 6667
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6667] = integer 1d
       SP = 6670
 23562: 00 00 00105 LES less <
       Stack Pop [6667] = integer 1d
       Stack Pop [6666] = integer 3d
       Stack Push [6666] = integer 1d
       SP = 6667
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6666] = integer 1d
       C = 0
       SP = 6666
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6666] = integer 0d
       Stack Push [6667] = addr 6645
       Stack Push [6670] = addr 23575
       Stack Push [6671] = addr 6666
       Stack Push [6672] = addr 0
       Stack Push [6673] = addr 0
       SP = 6674
       FP = 6667
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6672] = addr 2
       Stack Write [6673] = addr 6645
       Display [1] = 06645
       Display [2] = 06667
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6674] = addr 106652
       SP = 6675
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6675] = integer 3d
       SP = 6676
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6675] = integer 3d
       Stack Push [6675] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [6675] = integer 2d
       Stack Pop [6674] = addr 106652
       Stack Write [6652] = integer 2d
       SP = 6674
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6674] = integer 0d
       Stack Push [6675] = addr 6667
       Stack Push [6676] = addr 23551
       Stack Push [6677] = addr 6674
       Stack Push [6700] = addr 0
       Stack Push [6701] = addr 0
       Stack Push [6702] = integer 0d
       Stack Push [6703] = addr 206667
       Stack Push [6704] = integer 0d
       Stack Push [6705] = addr 206667
       Stack Push [6706] = integer 0d
       Stack Push [6707] = addr 206667
       Stack Push [6710] = integer 0d
       Stack Push [6711] = addr 206667
       Stack Push [6712] = integer 0d
       Stack Push [6713] = addr 206667
       Stack Push [6714] = integer 0d
       Stack Push [6715] = addr 206667
       SP = 6716
       FP = 6675
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6700] = addr 1
       Display [1] = 06675
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6716] = addr 106702
       SP = 6717
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6717] = integer 2d
       SP = 6720
 23510: 00 00 00125 ST  store
       Stack Pop [6717] = integer 2d
       Stack Pop [6716] = addr 106702
       Stack Write [6702] = integer 2d
       SP = 6716
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6716] = integer 2d
       SP = 6717
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6717] = integer 1d
       SP = 6720
 23562: 00 00 00105 LES less <
       Stack Pop [6717] = integer 1d
       Stack Pop [6716] = integer 2d
       Stack Push [6716] = integer 1d
       SP = 6717
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6716] = integer 1d
       SP = 6716
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6716] = integer 0d
       Stack Push [6717] = addr 6675
       Stack Push [6720] = addr 23575
       Stack Push [6721] = addr 6716
       Stack Push [6722] = addr 0
       Stack Push [6723] = addr 0
       SP = 6724
       FP = 6717
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6722] = addr 2
       Stack Write [6723] = addr 6675
       Display [1] = 06675
       Display [2] = 06717
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6724] = addr 106702
       SP = 6725
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6725] = integer 2d
       SP = 6726
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6725] = integer 2d
       Stack Push [6725] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [6725] = integer 1d
       Stack Pop [6724] = addr 106702
       Stack Write [6702] = integer 1d
       SP = 6724
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6724] = integer 0d
       Stack Push [6725] = addr 6717
       Stack Push [6726] = addr 23551
       Stack Push [6727] = addr 6724
       Stack Push [6730] = addr 0
       Stack Push [6731] = addr 0
       Stack Push [6732] = integer 0d
       Stack Push [6733] = addr 206717
       Stack Push [6734] = integer 0d
       Stack Push [6735] = addr 206717
       Stack Push [6736] = integer 0d
       Stack Push [6737] = addr 206717
       Stack Push [6740] = integer 0d
       Stack Push [6741] = addr 206717
       Stack Push [6742] = integer 0d
       Stack Push [6743] = addr 206717
       Stack Push [6744] = integer 0d
       Stack Push [6745] = addr 206717
       SP = 6746
       FP = 6725
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6730] = addr 1
       Display [1] = 06725
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6746] = addr 106732
       SP = 6747
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6747] = integer 1d
       SP = 6750
 23510: 00 00 00125 ST  store
       Stack Pop [6747] = integer 1d
       Stack Pop [6746] = addr 106732
       Stack Write [6732] = integer 1d
       SP = 6746
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6746] = integer 1d
       SP = 6747
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6747] = integer 1d
       SP = 6750
 23562: 00 00 00105 LES less <
       Stack Pop [6747] = integer 1d
       Stack Pop [6746] = integer 1d
       Stack Push [6746] = integer 1d
       SP = 6747
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6746] = integer 1d
       SP = 6746
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [6746] = integer 0d
       Stack Push [6747] = addr 6725
       Stack Push [6750] = addr 23575
       Stack Push [6751] = addr 6746
       Stack Push [6752] = addr 0
       Stack Push [6753] = addr 0
       SP = 6754
       FP = 6747
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [6752] = addr 2
       Stack Write [6753] = addr 6725
       Display [1] = 06725
       Display [2] = 06747
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6754] = addr 106732
       SP = 6755
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6755] = integer 1d
       SP = 6756
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [6755] = integer 1d
       Stack Push [6755] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [6755] = integer 0d
       Stack Pop [6754] = addr 106732
       Stack Write [6732] = integer 0d
       SP = 6754
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [6754] = integer 0d
       Stack Push [6755] = addr 6747
       Stack Push [6756] = addr 23551
       Stack Push [6757] = addr 6754
       Stack Push [6760] = addr 0
       Stack Push [6761] = addr 0
       Stack Push [6762] = integer 0d
       Stack Push [6763] = addr 206747
       Stack Push [6764] = integer 0d
       Stack Push [6765] = addr 206747
       Stack Push [6766] = integer 0d
       Stack Push [6767] = addr 206747
       Stack Push [6770] = integer 0d
       Stack Push [6771] = addr 206747
       Stack Push [6772] = integer 0d
       Stack Push [6773] = addr 206747
       Stack Push [6774] = integer 0d
       Stack Push [6775] = addr 206747
       SP = 6776
       FP = 6755
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [6760] = addr 1
       Display [1] = 06755
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [6776] = addr 106762
       SP = 6777
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [6777] = integer 0d
       SP = 7000
 23510: 00 00 00125 ST  store
       Stack Pop [6777] = integer 0d
       Stack Pop [6776] = addr 106762
       Stack Write [6762] = integer 0d
       SP = 6776
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [6776] = integer 0d
       SP = 6777
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [6777] = integer 1d
       SP = 7000
 23562: 00 00 00105 LES less <
       Stack Pop [6777] = integer 1d
       Stack Pop [6776] = integer 0d
       Stack Push [6776] = integer 0d
       SP = 6777
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [6776] = integer 0d
       C = 1
       SP = 6776
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 6755 -> Level 2, Frame 6747
       Stack Push [6776] = integer 0d
       Stack Push [6777] = addr 6755
       Stack Push [7000] = addr 23567
       Stack Push [7001] = addr 6776
       Stack Push [7002] = addr 0
       Stack Push [7003] = addr 0
       Stack Write [7002] = addr 2
       Stack Write [7003] = addr 6755
       Display [1] = 06725
       Display [2] = 06747
       SP = 7004
       FP = 6777
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 6747 -> Level 2, Frame 6717
       Stack Push [7004] = integer 0d
       Stack Push [7005] = addr 6777
       Stack Push [7006] = addr 23535
       Stack Push [7007] = addr 7004
       Stack Push [7010] = addr 0
       Stack Push [7011] = addr 0
       Stack Write [7010] = addr 2
       Stack Write [7011] = addr 6725
       Display [1] = 06675
       Display [2] = 06717
       SP = 7012
       FP = 7005
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 6717 -> Level 2, Frame 6667
       Stack Push [7012] = integer 0d
       Stack Push [7013] = addr 7005
       Stack Push [7014] = addr 23532
       Stack Push [7015] = addr 7012
       Stack Push [7016] = addr 0
       Stack Push [7017] = addr 0
       Stack Write [7016] = addr 2
       Stack Write [7017] = addr 6675
       Display [1] = 06645
       Display [2] = 06667
       SP = 7020
       FP = 7013
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 6667 -> Level 2, Frame 6637
       Stack Push [7020] = integer 0d
       Stack Push [7021] = addr 7013
       Stack Push [7022] = addr 23527
       Stack Push [7023] = addr 7020
       Stack Push [7024] = addr 0
       Stack Push [7025] = addr 0
       Stack Write [7024] = addr 2
       Stack Write [7025] = addr 6645
       Display [1] = 00061
       Display [2] = 06637
       SP = 7026
       FP = 7021
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7025] = addr 61
       Display [2] = 07021
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7026] = addr 100066
       SP = 7027
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7027] = integer 3d
       SP = 7030
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7027] = integer 3d
       Stack Push [7027] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [7027] = integer 2d
       Stack Pop [7026] = addr 100066
       Stack Write [66] = integer 2d
       SP = 7026
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7026] = integer 0d
       Stack Push [7027] = addr 7021
       Stack Push [7030] = addr 23551
       Stack Push [7031] = addr 7026
       Stack Push [7032] = addr 0
       Stack Push [7033] = addr 0
       Stack Push [7034] = integer 0d
       Stack Push [7035] = addr 207021
       Stack Push [7036] = integer 0d
       Stack Push [7037] = addr 207021
       Stack Push [7040] = integer 0d
       Stack Push [7041] = addr 207021
       Stack Push [7042] = integer 0d
       Stack Push [7043] = addr 207021
       Stack Push [7044] = integer 0d
       Stack Push [7045] = addr 207021
       Stack Push [7046] = integer 0d
       Stack Push [7047] = addr 207021
       SP = 7050
       FP = 7027
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7032] = addr 1
       Display [1] = 07027
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7050] = addr 107034
       SP = 7051
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7051] = integer 2d
       SP = 7052
 23510: 00 00 00125 ST  store
       Stack Pop [7051] = integer 2d
       Stack Pop [7050] = addr 107034
       Stack Write [7034] = integer 2d
       SP = 7050
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7050] = integer 2d
       SP = 7051
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7051] = integer 1d
       SP = 7052
 23562: 00 00 00105 LES less <
       Stack Pop [7051] = integer 1d
       Stack Pop [7050] = integer 2d
       Stack Push [7050] = integer 1d
       SP = 7051
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7050] = integer 1d
       C = 0
       SP = 7050
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7050] = integer 0d
       Stack Push [7051] = addr 7027
       Stack Push [7052] = addr 23575
       Stack Push [7053] = addr 7050
       Stack Push [7054] = addr 0
       Stack Push [7055] = addr 0
       SP = 7056
       FP = 7051
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7054] = addr 2
       Stack Write [7055] = addr 7027
       Display [1] = 07027
       Display [2] = 07051
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7056] = addr 107034
       SP = 7057
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7057] = integer 2d
       SP = 7060
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7057] = integer 2d
       Stack Push [7057] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [7057] = integer 1d
       Stack Pop [7056] = addr 107034
       Stack Write [7034] = integer 1d
       SP = 7056
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7056] = integer 0d
       Stack Push [7057] = addr 7051
       Stack Push [7060] = addr 23551
       Stack Push [7061] = addr 7056
       Stack Push [7062] = addr 0
       Stack Push [7063] = addr 0
       Stack Push [7064] = integer 0d
       Stack Push [7065] = addr 207051
       Stack Push [7066] = integer 0d
       Stack Push [7067] = addr 207051
       Stack Push [7070] = integer 0d
       Stack Push [7071] = addr 207051
       Stack Push [7072] = integer 0d
       Stack Push [7073] = addr 207051
       Stack Push [7074] = integer 0d
       Stack Push [7075] = addr 207051
       Stack Push [7076] = integer 0d
       Stack Push [7077] = addr 207051
       SP = 7100
       FP = 7057
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7062] = addr 1
       Display [1] = 07057
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7100] = addr 107064
       SP = 7101
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7101] = integer 1d
       SP = 7102
 23510: 00 00 00125 ST  store
       Stack Pop [7101] = integer 1d
       Stack Pop [7100] = addr 107064
       Stack Write [7064] = integer 1d
       SP = 7100
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7100] = integer 1d
       SP = 7101
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7101] = integer 1d
       SP = 7102
 23562: 00 00 00105 LES less <
       Stack Pop [7101] = integer 1d
       Stack Pop [7100] = integer 1d
       Stack Push [7100] = integer 1d
       SP = 7101
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7100] = integer 1d
       SP = 7100
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7100] = integer 0d
       Stack Push [7101] = addr 7057
       Stack Push [7102] = addr 23575
       Stack Push [7103] = addr 7100
       Stack Push [7104] = addr 0
       Stack Push [7105] = addr 0
       SP = 7106
       FP = 7101
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7104] = addr 2
       Stack Write [7105] = addr 7057
       Display [1] = 07057
       Display [2] = 07101
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7106] = addr 107064
       SP = 7107
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7107] = integer 1d
       SP = 7110
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7107] = integer 1d
       Stack Push [7107] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [7107] = integer 0d
       Stack Pop [7106] = addr 107064
       Stack Write [7064] = integer 0d
       SP = 7106
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7106] = integer 0d
       Stack Push [7107] = addr 7101
       Stack Push [7110] = addr 23551
       Stack Push [7111] = addr 7106
       Stack Push [7112] = addr 0
       Stack Push [7113] = addr 0
       Stack Push [7114] = integer 0d
       Stack Push [7115] = addr 207101
       Stack Push [7116] = integer 0d
       Stack Push [7117] = addr 207101
       Stack Push [7120] = integer 0d
       Stack Push [7121] = addr 207101
       Stack Push [7122] = integer 0d
       Stack Push [7123] = addr 207101
       Stack Push [7124] = integer 0d
       Stack Push [7125] = addr 207101
       Stack Push [7126] = integer 0d
       Stack Push [7127] = addr 207101
       SP = 7130
       FP = 7107
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7112] = addr 1
       Display [1] = 07107
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7130] = addr 107114
       SP = 7131
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7131] = integer 0d
       SP = 7132
 23510: 00 00 00125 ST  store
       Stack Pop [7131] = integer 0d
       Stack Pop [7130] = addr 107114
       Stack Write [7114] = integer 0d
       SP = 7130
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7130] = integer 0d
       SP = 7131
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7131] = integer 1d
       SP = 7132
 23562: 00 00 00105 LES less <
       Stack Pop [7131] = integer 1d
       Stack Pop [7130] = integer 0d
       Stack Push [7130] = integer 0d
       SP = 7131
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7130] = integer 0d
       C = 1
       SP = 7130
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 7107 -> Level 2, Frame 7101
       Stack Push [7130] = integer 0d
       Stack Push [7131] = addr 7107
       Stack Push [7132] = addr 23567
       Stack Push [7133] = addr 7130
       Stack Push [7134] = addr 0
       Stack Push [7135] = addr 0
       Stack Write [7134] = addr 2
       Stack Write [7135] = addr 7107
       Display [1] = 07057
       Display [2] = 07101
       SP = 7136
       FP = 7131
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 7101 -> Level 2, Frame 7051
       Stack Push [7136] = integer 0d
       Stack Push [7137] = addr 7131
       Stack Push [7140] = addr 23535
       Stack Push [7141] = addr 7136
       Stack Push [7142] = addr 0
       Stack Push [7143] = addr 0
       Stack Write [7142] = addr 2
       Stack Write [7143] = addr 7057
       Display [1] = 07027
       Display [2] = 07051
       SP = 7144
       FP = 7137
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 7051 -> Level 2, Frame 7021
       Stack Push [7144] = integer 0d
       Stack Push [7145] = addr 7137
       Stack Push [7146] = addr 23532
       Stack Push [7147] = addr 7144
       Stack Push [7150] = addr 0
       Stack Push [7151] = addr 0
       Stack Write [7150] = addr 2
       Stack Write [7151] = addr 7027
       Display [1] = 00061
       Display [2] = 07021
       SP = 7152
       FP = 7145
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 7021 -> Level 2, Frame 53
       Stack Push [7152] = integer 0d
       Stack Push [7153] = addr 7145
       Stack Push [7154] = addr 23527
       Stack Push [7155] = addr 7152
       Stack Push [7156] = addr 0
       Stack Push [7157] = addr 0
       Stack Write [7156] = addr 2
       Stack Write [7157] = addr 61
       Display [1] = 00031
       Display [2] = 00053
       SP = 7160
       FP = 7153
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7157] = addr 31
       Display [2] = 07153
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7160] = addr 100036
       SP = 7161
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7161] = integer 8d
       SP = 7162
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7161] = integer 8d
       Stack Push [7161] = integer 7d
 23522: 00 00 00125 ST  store
       Stack Pop [7161] = integer 7d
       Stack Pop [7160] = addr 100036
       Stack Write [36] = integer 7d
       SP = 7160
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7160] = integer 0d
       Stack Push [7161] = addr 7153
       Stack Push [7162] = addr 23551
       Stack Push [7163] = addr 7160
       Stack Push [7164] = addr 0
       Stack Push [7165] = addr 0
       Stack Push [7166] = integer 0d
       Stack Push [7167] = addr 207153
       Stack Push [7170] = integer 0d
       Stack Push [7171] = addr 207153
       Stack Push [7172] = integer 0d
       Stack Push [7173] = addr 207153
       Stack Push [7174] = integer 0d
       Stack Push [7175] = addr 207153
       Stack Push [7176] = integer 0d
       Stack Push [7177] = addr 207153
       Stack Push [7200] = integer 0d
       Stack Push [7201] = addr 207153
       SP = 7202
       FP = 7161
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7164] = addr 1
       Display [1] = 07161
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7202] = addr 107166
       SP = 7203
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7203] = integer 7d
       SP = 7204
 23510: 00 00 00125 ST  store
       Stack Pop [7203] = integer 7d
       Stack Pop [7202] = addr 107166
       Stack Write [7166] = integer 7d
       SP = 7202
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7202] = integer 7d
       SP = 7203
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7203] = integer 1d
       SP = 7204
 23562: 00 00 00105 LES less <
       Stack Pop [7203] = integer 1d
       Stack Pop [7202] = integer 7d
       Stack Push [7202] = integer 1d
       SP = 7203
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7202] = integer 1d
       C = 0
       SP = 7202
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7202] = integer 0d
       Stack Push [7203] = addr 7161
       Stack Push [7204] = addr 23575
       Stack Push [7205] = addr 7202
       Stack Push [7206] = addr 0
       Stack Push [7207] = addr 0
       SP = 7210
       FP = 7203
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7206] = addr 2
       Stack Write [7207] = addr 7161
       Display [1] = 07161
       Display [2] = 07203
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7210] = addr 107166
       SP = 7211
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7211] = integer 7d
       SP = 7212
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7211] = integer 7d
       Stack Push [7211] = integer 6d
 23522: 00 00 00125 ST  store
       Stack Pop [7211] = integer 6d
       Stack Pop [7210] = addr 107166
       Stack Write [7166] = integer 6d
       SP = 7210
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7210] = integer 0d
       Stack Push [7211] = addr 7203
       Stack Push [7212] = addr 23551
       Stack Push [7213] = addr 7210
       Stack Push [7214] = addr 0
       Stack Push [7215] = addr 0
       Stack Push [7216] = integer 0d
       Stack Push [7217] = addr 207203
       Stack Push [7220] = integer 0d
       Stack Push [7221] = addr 207203
       Stack Push [7222] = integer 0d
       Stack Push [7223] = addr 207203
       Stack Push [7224] = integer 0d
       Stack Push [7225] = addr 207203
       Stack Push [7226] = integer 0d
       Stack Push [7227] = addr 207203
       Stack Push [7230] = integer 0d
       Stack Push [7231] = addr 207203
       SP = 7232
       FP = 7211
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7214] = addr 1
       Display [1] = 07211
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7232] = addr 107216
       SP = 7233
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7233] = integer 6d
       SP = 7234
 23510: 00 00 00125 ST  store
       Stack Pop [7233] = integer 6d
       Stack Pop [7232] = addr 107216
       Stack Write [7216] = integer 6d
       SP = 7232
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7232] = integer 6d
       SP = 7233
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7233] = integer 1d
       SP = 7234
 23562: 00 00 00105 LES less <
       Stack Pop [7233] = integer 1d
       Stack Pop [7232] = integer 6d
       Stack Push [7232] = integer 1d
       SP = 7233
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7232] = integer 1d
       SP = 7232
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7232] = integer 0d
       Stack Push [7233] = addr 7211
       Stack Push [7234] = addr 23575
       Stack Push [7235] = addr 7232
       Stack Push [7236] = addr 0
       Stack Push [7237] = addr 0
       SP = 7240
       FP = 7233
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7236] = addr 2
       Stack Write [7237] = addr 7211
       Display [1] = 07211
       Display [2] = 07233
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7240] = addr 107216
       SP = 7241
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7241] = integer 6d
       SP = 7242
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7241] = integer 6d
       Stack Push [7241] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [7241] = integer 5d
       Stack Pop [7240] = addr 107216
       Stack Write [7216] = integer 5d
       SP = 7240
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7240] = integer 0d
       Stack Push [7241] = addr 7233
       Stack Push [7242] = addr 23551
       Stack Push [7243] = addr 7240
       Stack Push [7244] = addr 0
       Stack Push [7245] = addr 0
       Stack Push [7246] = integer 0d
       Stack Push [7247] = addr 207233
       Stack Push [7250] = integer 0d
       Stack Push [7251] = addr 207233
       Stack Push [7252] = integer 0d
       Stack Push [7253] = addr 207233
       Stack Push [7254] = integer 0d
       Stack Push [7255] = addr 207233
       Stack Push [7256] = integer 0d
       Stack Push [7257] = addr 207233
       Stack Push [7260] = integer 0d
       Stack Push [7261] = addr 207233
       SP = 7262
       FP = 7241
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7244] = addr 1
       Display [1] = 07241
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7262] = addr 107246
       SP = 7263
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7263] = integer 5d
       SP = 7264
 23510: 00 00 00125 ST  store
       Stack Pop [7263] = integer 5d
       Stack Pop [7262] = addr 107246
       Stack Write [7246] = integer 5d
       SP = 7262
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7262] = integer 5d
       SP = 7263
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7263] = integer 1d
       SP = 7264
 23562: 00 00 00105 LES less <
       Stack Pop [7263] = integer 1d
       Stack Pop [7262] = integer 5d
       Stack Push [7262] = integer 1d
       SP = 7263
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7262] = integer 1d
       SP = 7262
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7262] = integer 0d
       Stack Push [7263] = addr 7241
       Stack Push [7264] = addr 23575
       Stack Push [7265] = addr 7262
       Stack Push [7266] = addr 0
       Stack Push [7267] = addr 0
       SP = 7270
       FP = 7263
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7266] = addr 2
       Stack Write [7267] = addr 7241
       Display [1] = 07241
       Display [2] = 07263
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7270] = addr 107246
       SP = 7271
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7271] = integer 5d
       SP = 7272
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7271] = integer 5d
       Stack Push [7271] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [7271] = integer 4d
       Stack Pop [7270] = addr 107246
       Stack Write [7246] = integer 4d
       SP = 7270
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7270] = integer 0d
       Stack Push [7271] = addr 7263
       Stack Push [7272] = addr 23551
       Stack Push [7273] = addr 7270
       Stack Push [7274] = addr 0
       Stack Push [7275] = addr 0
       Stack Push [7276] = integer 0d
       Stack Push [7277] = addr 207263
       Stack Push [7300] = integer 0d
       Stack Push [7301] = addr 207263
       Stack Push [7302] = integer 0d
       Stack Push [7303] = addr 207263
       Stack Push [7304] = integer 0d
       Stack Push [7305] = addr 207263
       Stack Push [7306] = integer 0d
       Stack Push [7307] = addr 207263
       Stack Push [7310] = integer 0d
       Stack Push [7311] = addr 207263
       SP = 7312
       FP = 7271
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7274] = addr 1
       Display [1] = 07271
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7312] = addr 107276
       SP = 7313
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7313] = integer 4d
       SP = 7314
 23510: 00 00 00125 ST  store
       Stack Pop [7313] = integer 4d
       Stack Pop [7312] = addr 107276
       Stack Write [7276] = integer 4d
       SP = 7312
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7312] = integer 4d
       SP = 7313
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7313] = integer 1d
       SP = 7314
 23562: 00 00 00105 LES less <
       Stack Pop [7313] = integer 1d
       Stack Pop [7312] = integer 4d
       Stack Push [7312] = integer 1d
       SP = 7313
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7312] = integer 1d
       SP = 7312
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7312] = integer 0d
       Stack Push [7313] = addr 7271
       Stack Push [7314] = addr 23575
       Stack Push [7315] = addr 7312
       Stack Push [7316] = addr 0
       Stack Push [7317] = addr 0
       SP = 7320
       FP = 7313
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7316] = addr 2
       Stack Write [7317] = addr 7271
       Display [1] = 07271
       Display [2] = 07313
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7320] = addr 107276
       SP = 7321
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7321] = integer 4d
       SP = 7322
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7321] = integer 4d
       Stack Push [7321] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [7321] = integer 3d
       Stack Pop [7320] = addr 107276
       Stack Write [7276] = integer 3d
       SP = 7320
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7320] = integer 0d
       Stack Push [7321] = addr 7313
       Stack Push [7322] = addr 23551
       Stack Push [7323] = addr 7320
       Stack Push [7324] = addr 0
       Stack Push [7325] = addr 0
       Stack Push [7326] = integer 0d
       Stack Push [7327] = addr 207313
       Stack Push [7330] = integer 0d
       Stack Push [7331] = addr 207313
       Stack Push [7332] = integer 0d
       Stack Push [7333] = addr 207313
       Stack Push [7334] = integer 0d
       Stack Push [7335] = addr 207313
       Stack Push [7336] = integer 0d
       Stack Push [7337] = addr 207313
       Stack Push [7340] = integer 0d
       Stack Push [7341] = addr 207313
       SP = 7342
       FP = 7321
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7324] = addr 1
       Display [1] = 07321
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7342] = addr 107326
       SP = 7343
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7343] = integer 3d
       SP = 7344
 23510: 00 00 00125 ST  store
       Stack Pop [7343] = integer 3d
       Stack Pop [7342] = addr 107326
       Stack Write [7326] = integer 3d
       SP = 7342
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7342] = integer 3d
       SP = 7343
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7343] = integer 1d
       SP = 7344
 23562: 00 00 00105 LES less <
       Stack Pop [7343] = integer 1d
       Stack Pop [7342] = integer 3d
       Stack Push [7342] = integer 1d
       SP = 7343
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7342] = integer 1d
       SP = 7342
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7342] = integer 0d
       Stack Push [7343] = addr 7321
       Stack Push [7344] = addr 23575
       Stack Push [7345] = addr 7342
       Stack Push [7346] = addr 0
       Stack Push [7347] = addr 0
       SP = 7350
       FP = 7343
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7346] = addr 2
       Stack Write [7347] = addr 7321
       Display [1] = 07321
       Display [2] = 07343
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7350] = addr 107326
       SP = 7351
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7351] = integer 3d
       SP = 7352
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7351] = integer 3d
       Stack Push [7351] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [7351] = integer 2d
       Stack Pop [7350] = addr 107326
       Stack Write [7326] = integer 2d
       SP = 7350
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7350] = integer 0d
       Stack Push [7351] = addr 7343
       Stack Push [7352] = addr 23551
       Stack Push [7353] = addr 7350
       Stack Push [7354] = addr 0
       Stack Push [7355] = addr 0
       Stack Push [7356] = integer 0d
       Stack Push [7357] = addr 207343
       Stack Push [7360] = integer 0d
       Stack Push [7361] = addr 207343
       Stack Push [7362] = integer 0d
       Stack Push [7363] = addr 207343
       Stack Push [7364] = integer 0d
       Stack Push [7365] = addr 207343
       Stack Push [7366] = integer 0d
       Stack Push [7367] = addr 207343
       Stack Push [7370] = integer 0d
       Stack Push [7371] = addr 207343
       SP = 7372
       FP = 7351
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7354] = addr 1
       Display [1] = 07351
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7372] = addr 107356
       SP = 7373
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7373] = integer 2d
       SP = 7374
 23510: 00 00 00125 ST  store
       Stack Pop [7373] = integer 2d
       Stack Pop [7372] = addr 107356
       Stack Write [7356] = integer 2d
       SP = 7372
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7372] = integer 2d
       SP = 7373
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7373] = integer 1d
       SP = 7374
 23562: 00 00 00105 LES less <
       Stack Pop [7373] = integer 1d
       Stack Pop [7372] = integer 2d
       Stack Push [7372] = integer 1d
       SP = 7373
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7372] = integer 1d
       SP = 7372
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7372] = integer 0d
       Stack Push [7373] = addr 7351
       Stack Push [7374] = addr 23575
       Stack Push [7375] = addr 7372
       Stack Push [7376] = addr 0
       Stack Push [7377] = addr 0
       SP = 7400
       FP = 7373
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7376] = addr 2
       Stack Write [7377] = addr 7351
       Display [1] = 07351
       Display [2] = 07373
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7400] = addr 107356
       SP = 7401
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7401] = integer 2d
       SP = 7402
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7401] = integer 2d
       Stack Push [7401] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [7401] = integer 1d
       Stack Pop [7400] = addr 107356
       Stack Write [7356] = integer 1d
       SP = 7400
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7400] = integer 0d
       Stack Push [7401] = addr 7373
       Stack Push [7402] = addr 23551
       Stack Push [7403] = addr 7400
       Stack Push [7404] = addr 0
       Stack Push [7405] = addr 0
       Stack Push [7406] = integer 0d
       Stack Push [7407] = addr 207373
       Stack Push [7410] = integer 0d
       Stack Push [7411] = addr 207373
       Stack Push [7412] = integer 0d
       Stack Push [7413] = addr 207373
       Stack Push [7414] = integer 0d
       Stack Push [7415] = addr 207373
       Stack Push [7416] = integer 0d
       Stack Push [7417] = addr 207373
       Stack Push [7420] = integer 0d
       Stack Push [7421] = addr 207373
       SP = 7422
       FP = 7401
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7404] = addr 1
       Display [1] = 07401
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7422] = addr 107406
       SP = 7423
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7423] = integer 1d
       SP = 7424
 23510: 00 00 00125 ST  store
       Stack Pop [7423] = integer 1d
       Stack Pop [7422] = addr 107406
       Stack Write [7406] = integer 1d
       SP = 7422
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7422] = integer 1d
       SP = 7423
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7423] = integer 1d
       SP = 7424
 23562: 00 00 00105 LES less <
       Stack Pop [7423] = integer 1d
       Stack Pop [7422] = integer 1d
       Stack Push [7422] = integer 1d
       SP = 7423
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7422] = integer 1d
       SP = 7422
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7422] = integer 0d
       Stack Push [7423] = addr 7401
       Stack Push [7424] = addr 23575
       Stack Push [7425] = addr 7422
       Stack Push [7426] = addr 0
       Stack Push [7427] = addr 0
       SP = 7430
       FP = 7423
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7426] = addr 2
       Stack Write [7427] = addr 7401
       Display [1] = 07401
       Display [2] = 07423
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7430] = addr 107406
       SP = 7431
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7431] = integer 1d
       SP = 7432
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7431] = integer 1d
       Stack Push [7431] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [7431] = integer 0d
       Stack Pop [7430] = addr 107406
       Stack Write [7406] = integer 0d
       SP = 7430
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7430] = integer 0d
       Stack Push [7431] = addr 7423
       Stack Push [7432] = addr 23551
       Stack Push [7433] = addr 7430
       Stack Push [7434] = addr 0
       Stack Push [7435] = addr 0
       Stack Push [7436] = integer 0d
       Stack Push [7437] = addr 207423
       Stack Push [7440] = integer 0d
       Stack Push [7441] = addr 207423
       Stack Push [7442] = integer 0d
       Stack Push [7443] = addr 207423
       Stack Push [7444] = integer 0d
       Stack Push [7445] = addr 207423
       Stack Push [7446] = integer 0d
       Stack Push [7447] = addr 207423
       Stack Push [7450] = integer 0d
       Stack Push [7451] = addr 207423
       SP = 7452
       FP = 7431
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7434] = addr 1
       Display [1] = 07431
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7452] = addr 107436
       SP = 7453
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7453] = integer 0d
       SP = 7454
 23510: 00 00 00125 ST  store
       Stack Pop [7453] = integer 0d
       Stack Pop [7452] = addr 107436
       Stack Write [7436] = integer 0d
       SP = 7452
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7452] = integer 0d
       SP = 7453
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7453] = integer 1d
       SP = 7454
 23562: 00 00 00105 LES less <
       Stack Pop [7453] = integer 1d
       Stack Pop [7452] = integer 0d
       Stack Push [7452] = integer 0d
       SP = 7453
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7452] = integer 0d
       C = 1
       SP = 7452
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 7431 -> Level 2, Frame 7423
       Stack Push [7452] = integer 0d
       Stack Push [7453] = addr 7431
       Stack Push [7454] = addr 23567
       Stack Push [7455] = addr 7452
       Stack Push [7456] = addr 0
       Stack Push [7457] = addr 0
       Stack Write [7456] = addr 2
       Stack Write [7457] = addr 7431
       Display [1] = 07401
       Display [2] = 07423
       SP = 7460
       FP = 7453
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 7423 -> Level 2, Frame 7373
       Stack Push [7460] = integer 0d
       Stack Push [7461] = addr 7453
       Stack Push [7462] = addr 23535
       Stack Push [7463] = addr 7460
       Stack Push [7464] = addr 0
       Stack Push [7465] = addr 0
       Stack Write [7464] = addr 2
       Stack Write [7465] = addr 7401
       Display [1] = 07351
       Display [2] = 07373
       SP = 7466
       FP = 7461
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 7373 -> Level 2, Frame 7343
       Stack Push [7466] = integer 0d
       Stack Push [7467] = addr 7461
       Stack Push [7470] = addr 23532
       Stack Push [7471] = addr 7466
       Stack Push [7472] = addr 0
       Stack Push [7473] = addr 0
       Stack Write [7472] = addr 2
       Stack Write [7473] = addr 7351
       Display [1] = 07321
       Display [2] = 07343
       SP = 7474
       FP = 7467
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 7343 -> Level 2, Frame 7313
       Stack Push [7474] = integer 0d
       Stack Push [7475] = addr 7467
       Stack Push [7476] = addr 23527
       Stack Push [7477] = addr 7474
       Stack Push [7500] = addr 0
       Stack Push [7501] = addr 0
       Stack Write [7500] = addr 2
       Stack Write [7501] = addr 7321
       Display [1] = 07271
       Display [2] = 07313
       SP = 7502
       FP = 7475
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7501] = addr 7271
       Display [2] = 07475
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7502] = addr 107276
       SP = 7503
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7503] = integer 3d
       SP = 7504
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7503] = integer 3d
       Stack Push [7503] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [7503] = integer 2d
       Stack Pop [7502] = addr 107276
       Stack Write [7276] = integer 2d
       SP = 7502
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7502] = integer 0d
       Stack Push [7503] = addr 7475
       Stack Push [7504] = addr 23551
       Stack Push [7505] = addr 7502
       Stack Push [7506] = addr 0
       Stack Push [7507] = addr 0
       Stack Push [7510] = integer 0d
       Stack Push [7511] = addr 207475
       Stack Push [7512] = integer 0d
       Stack Push [7513] = addr 207475
       Stack Push [7514] = integer 0d
       Stack Push [7515] = addr 207475
       Stack Push [7516] = integer 0d
       Stack Push [7517] = addr 207475
       Stack Push [7520] = integer 0d
       Stack Push [7521] = addr 207475
       Stack Push [7522] = integer 0d
       Stack Push [7523] = addr 207475
       SP = 7524
       FP = 7503
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7506] = addr 1
       Display [1] = 07503
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7524] = addr 107510
       SP = 7525
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7525] = integer 2d
       SP = 7526
 23510: 00 00 00125 ST  store
       Stack Pop [7525] = integer 2d
       Stack Pop [7524] = addr 107510
       Stack Write [7510] = integer 2d
       SP = 7524
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7524] = integer 2d
       SP = 7525
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7525] = integer 1d
       SP = 7526
 23562: 00 00 00105 LES less <
       Stack Pop [7525] = integer 1d
       Stack Pop [7524] = integer 2d
       Stack Push [7524] = integer 1d
       SP = 7525
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7524] = integer 1d
       C = 0
       SP = 7524
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7524] = integer 0d
       Stack Push [7525] = addr 7503
       Stack Push [7526] = addr 23575
       Stack Push [7527] = addr 7524
       Stack Push [7530] = addr 0
       Stack Push [7531] = addr 0
       SP = 7532
       FP = 7525
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7530] = addr 2
       Stack Write [7531] = addr 7503
       Display [1] = 07503
       Display [2] = 07525
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7532] = addr 107510
       SP = 7533
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7533] = integer 2d
       SP = 7534
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7533] = integer 2d
       Stack Push [7533] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [7533] = integer 1d
       Stack Pop [7532] = addr 107510
       Stack Write [7510] = integer 1d
       SP = 7532
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7532] = integer 0d
       Stack Push [7533] = addr 7525
       Stack Push [7534] = addr 23551
       Stack Push [7535] = addr 7532
       Stack Push [7536] = addr 0
       Stack Push [7537] = addr 0
       Stack Push [7540] = integer 0d
       Stack Push [7541] = addr 207525
       Stack Push [7542] = integer 0d
       Stack Push [7543] = addr 207525
       Stack Push [7544] = integer 0d
       Stack Push [7545] = addr 207525
       Stack Push [7546] = integer 0d
       Stack Push [7547] = addr 207525
       Stack Push [7550] = integer 0d
       Stack Push [7551] = addr 207525
       Stack Push [7552] = integer 0d
       Stack Push [7553] = addr 207525
       SP = 7554
       FP = 7533
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7536] = addr 1
       Display [1] = 07533
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7554] = addr 107540
       SP = 7555
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7555] = integer 1d
       SP = 7556
 23510: 00 00 00125 ST  store
       Stack Pop [7555] = integer 1d
       Stack Pop [7554] = addr 107540
       Stack Write [7540] = integer 1d
       SP = 7554
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7554] = integer 1d
       SP = 7555
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7555] = integer 1d
       SP = 7556
 23562: 00 00 00105 LES less <
       Stack Pop [7555] = integer 1d
       Stack Pop [7554] = integer 1d
       Stack Push [7554] = integer 1d
       SP = 7555
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7554] = integer 1d
       SP = 7554
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7554] = integer 0d
       Stack Push [7555] = addr 7533
       Stack Push [7556] = addr 23575
       Stack Push [7557] = addr 7554
       Stack Push [7560] = addr 0
       Stack Push [7561] = addr 0
       SP = 7562
       FP = 7555
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7560] = addr 2
       Stack Write [7561] = addr 7533
       Display [1] = 07533
       Display [2] = 07555
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7562] = addr 107540
       SP = 7563
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7563] = integer 1d
       SP = 7564
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7563] = integer 1d
       Stack Push [7563] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [7563] = integer 0d
       Stack Pop [7562] = addr 107540
       Stack Write [7540] = integer 0d
       SP = 7562
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7562] = integer 0d
       Stack Push [7563] = addr 7555
       Stack Push [7564] = addr 23551
       Stack Push [7565] = addr 7562
       Stack Push [7566] = addr 0
       Stack Push [7567] = addr 0
       Stack Push [7570] = integer 0d
       Stack Push [7571] = addr 207555
       Stack Push [7572] = integer 0d
       Stack Push [7573] = addr 207555
       Stack Push [7574] = integer 0d
       Stack Push [7575] = addr 207555
       Stack Push [7576] = integer 0d
       Stack Push [7577] = addr 207555
       Stack Push [7600] = integer 0d
       Stack Push [7601] = addr 207555
       Stack Push [7602] = integer 0d
       Stack Push [7603] = addr 207555
       SP = 7604
       FP = 7563
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7566] = addr 1
       Display [1] = 07563
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7604] = addr 107570
       SP = 7605
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7605] = integer 0d
       SP = 7606
 23510: 00 00 00125 ST  store
       Stack Pop [7605] = integer 0d
       Stack Pop [7604] = addr 107570
       Stack Write [7570] = integer 0d
       SP = 7604
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7604] = integer 0d
       SP = 7605
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7605] = integer 1d
       SP = 7606
 23562: 00 00 00105 LES less <
       Stack Pop [7605] = integer 1d
       Stack Pop [7604] = integer 0d
       Stack Push [7604] = integer 0d
       SP = 7605
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7604] = integer 0d
       C = 1
       SP = 7604
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 7563 -> Level 2, Frame 7555
       Stack Push [7604] = integer 0d
       Stack Push [7605] = addr 7563
       Stack Push [7606] = addr 23567
       Stack Push [7607] = addr 7604
       Stack Push [7610] = addr 0
       Stack Push [7611] = addr 0
       Stack Write [7610] = addr 2
       Stack Write [7611] = addr 7563
       Display [1] = 07533
       Display [2] = 07555
       SP = 7612
       FP = 7605
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 7555 -> Level 2, Frame 7525
       Stack Push [7612] = integer 0d
       Stack Push [7613] = addr 7605
       Stack Push [7614] = addr 23535
       Stack Push [7615] = addr 7612
       Stack Push [7616] = addr 0
       Stack Push [7617] = addr 0
       Stack Write [7616] = addr 2
       Stack Write [7617] = addr 7533
       Display [1] = 07503
       Display [2] = 07525
       SP = 7620
       FP = 7613
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 7525 -> Level 2, Frame 7475
       Stack Push [7620] = integer 0d
       Stack Push [7621] = addr 7613
       Stack Push [7622] = addr 23532
       Stack Push [7623] = addr 7620
       Stack Push [7624] = addr 0
       Stack Push [7625] = addr 0
       Stack Write [7624] = addr 2
       Stack Write [7625] = addr 7503
       Display [1] = 07271
       Display [2] = 07475
       SP = 7626
       FP = 7621
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 7475 -> Level 2, Frame 7263
       Stack Push [7626] = integer 0d
       Stack Push [7627] = addr 7621
       Stack Push [7630] = addr 23527
       Stack Push [7631] = addr 7626
       Stack Push [7632] = addr 0
       Stack Push [7633] = addr 0
       Stack Write [7632] = addr 2
       Stack Write [7633] = addr 7271
       Display [1] = 07241
       Display [2] = 07263
       SP = 7634
       FP = 7627
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7633] = addr 7241
       Display [2] = 07627
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7634] = addr 107246
       SP = 7635
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7635] = integer 4d
       SP = 7636
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7635] = integer 4d
       Stack Push [7635] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [7635] = integer 3d
       Stack Pop [7634] = addr 107246
       Stack Write [7246] = integer 3d
       SP = 7634
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7634] = integer 0d
       Stack Push [7635] = addr 7627
       Stack Push [7636] = addr 23551
       Stack Push [7637] = addr 7634
       Stack Push [7640] = addr 0
       Stack Push [7641] = addr 0
       Stack Push [7642] = integer 0d
       Stack Push [7643] = addr 207627
       Stack Push [7644] = integer 0d
       Stack Push [7645] = addr 207627
       Stack Push [7646] = integer 0d
       Stack Push [7647] = addr 207627
       Stack Push [7650] = integer 0d
       Stack Push [7651] = addr 207627
       Stack Push [7652] = integer 0d
       Stack Push [7653] = addr 207627
       Stack Push [7654] = integer 0d
       Stack Push [7655] = addr 207627
       SP = 7656
       FP = 7635
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7640] = addr 1
       Display [1] = 07635
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7656] = addr 107642
       SP = 7657
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7657] = integer 3d
       SP = 7660
 23510: 00 00 00125 ST  store
       Stack Pop [7657] = integer 3d
       Stack Pop [7656] = addr 107642
       Stack Write [7642] = integer 3d
       SP = 7656
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7656] = integer 3d
       SP = 7657
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7657] = integer 1d
       SP = 7660
 23562: 00 00 00105 LES less <
       Stack Pop [7657] = integer 1d
       Stack Pop [7656] = integer 3d
       Stack Push [7656] = integer 1d
       SP = 7657
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7656] = integer 1d
       C = 0
       SP = 7656
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7656] = integer 0d
       Stack Push [7657] = addr 7635
       Stack Push [7660] = addr 23575
       Stack Push [7661] = addr 7656
       Stack Push [7662] = addr 0
       Stack Push [7663] = addr 0
       SP = 7664
       FP = 7657
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7662] = addr 2
       Stack Write [7663] = addr 7635
       Display [1] = 07635
       Display [2] = 07657
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7664] = addr 107642
       SP = 7665
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7665] = integer 3d
       SP = 7666
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7665] = integer 3d
       Stack Push [7665] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [7665] = integer 2d
       Stack Pop [7664] = addr 107642
       Stack Write [7642] = integer 2d
       SP = 7664
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7664] = integer 0d
       Stack Push [7665] = addr 7657
       Stack Push [7666] = addr 23551
       Stack Push [7667] = addr 7664
       Stack Push [7670] = addr 0
       Stack Push [7671] = addr 0
       Stack Push [7672] = integer 0d
       Stack Push [7673] = addr 207657
       Stack Push [7674] = integer 0d
       Stack Push [7675] = addr 207657
       Stack Push [7676] = integer 0d
       Stack Push [7677] = addr 207657
       Stack Push [7700] = integer 0d
       Stack Push [7701] = addr 207657
       Stack Push [7702] = integer 0d
       Stack Push [7703] = addr 207657
       Stack Push [7704] = integer 0d
       Stack Push [7705] = addr 207657
       SP = 7706
       FP = 7665
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7670] = addr 1
       Display [1] = 07665
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7706] = addr 107672
       SP = 7707
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7707] = integer 2d
       SP = 7710
 23510: 00 00 00125 ST  store
       Stack Pop [7707] = integer 2d
       Stack Pop [7706] = addr 107672
       Stack Write [7672] = integer 2d
       SP = 7706
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7706] = integer 2d
       SP = 7707
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7707] = integer 1d
       SP = 7710
 23562: 00 00 00105 LES less <
       Stack Pop [7707] = integer 1d
       Stack Pop [7706] = integer 2d
       Stack Push [7706] = integer 1d
       SP = 7707
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7706] = integer 1d
       SP = 7706
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7706] = integer 0d
       Stack Push [7707] = addr 7665
       Stack Push [7710] = addr 23575
       Stack Push [7711] = addr 7706
       Stack Push [7712] = addr 0
       Stack Push [7713] = addr 0
       SP = 7714
       FP = 7707
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7712] = addr 2
       Stack Write [7713] = addr 7665
       Display [1] = 07665
       Display [2] = 07707
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7714] = addr 107672
       SP = 7715
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7715] = integer 2d
       SP = 7716
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7715] = integer 2d
       Stack Push [7715] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [7715] = integer 1d
       Stack Pop [7714] = addr 107672
       Stack Write [7672] = integer 1d
       SP = 7714
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7714] = integer 0d
       Stack Push [7715] = addr 7707
       Stack Push [7716] = addr 23551
       Stack Push [7717] = addr 7714
       Stack Push [7720] = addr 0
       Stack Push [7721] = addr 0
       Stack Push [7722] = integer 0d
       Stack Push [7723] = addr 207707
       Stack Push [7724] = integer 0d
       Stack Push [7725] = addr 207707
       Stack Push [7726] = integer 0d
       Stack Push [7727] = addr 207707
       Stack Push [7730] = integer 0d
       Stack Push [7731] = addr 207707
       Stack Push [7732] = integer 0d
       Stack Push [7733] = addr 207707
       Stack Push [7734] = integer 0d
       Stack Push [7735] = addr 207707
       SP = 7736
       FP = 7715
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7720] = addr 1
       Display [1] = 07715
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7736] = addr 107722
       SP = 7737
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7737] = integer 1d
       SP = 7740
 23510: 00 00 00125 ST  store
       Stack Pop [7737] = integer 1d
       Stack Pop [7736] = addr 107722
       Stack Write [7722] = integer 1d
       SP = 7736
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7736] = integer 1d
       SP = 7737
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7737] = integer 1d
       SP = 7740
 23562: 00 00 00105 LES less <
       Stack Pop [7737] = integer 1d
       Stack Pop [7736] = integer 1d
       Stack Push [7736] = integer 1d
       SP = 7737
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7736] = integer 1d
       SP = 7736
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [7736] = integer 0d
       Stack Push [7737] = addr 7715
       Stack Push [7740] = addr 23575
       Stack Push [7741] = addr 7736
       Stack Push [7742] = addr 0
       Stack Push [7743] = addr 0
       SP = 7744
       FP = 7737
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [7742] = addr 2
       Stack Write [7743] = addr 7715
       Display [1] = 07715
       Display [2] = 07737
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7744] = addr 107722
       SP = 7745
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7745] = integer 1d
       SP = 7746
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [7745] = integer 1d
       Stack Push [7745] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [7745] = integer 0d
       Stack Pop [7744] = addr 107722
       Stack Write [7722] = integer 0d
       SP = 7744
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [7744] = integer 0d
       Stack Push [7745] = addr 7737
       Stack Push [7746] = addr 23551
       Stack Push [7747] = addr 7744
       Stack Push [7750] = addr 0
       Stack Push [7751] = addr 0
       Stack Push [7752] = integer 0d
       Stack Push [7753] = addr 207737
       Stack Push [7754] = integer 0d
       Stack Push [7755] = addr 207737
       Stack Push [7756] = integer 0d
       Stack Push [7757] = addr 207737
       Stack Push [7760] = integer 0d
       Stack Push [7761] = addr 207737
       Stack Push [7762] = integer 0d
       Stack Push [7763] = addr 207737
       Stack Push [7764] = integer 0d
       Stack Push [7765] = addr 207737
       SP = 7766
       FP = 7745
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [7750] = addr 1
       Display [1] = 07745
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [7766] = addr 107752
       SP = 7767
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [7767] = integer 0d
       SP = 7770
 23510: 00 00 00125 ST  store
       Stack Pop [7767] = integer 0d
       Stack Pop [7766] = addr 107752
       Stack Write [7752] = integer 0d
       SP = 7766
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [7766] = integer 0d
       SP = 7767
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [7767] = integer 1d
       SP = 7770
 23562: 00 00 00105 LES less <
       Stack Pop [7767] = integer 1d
       Stack Pop [7766] = integer 0d
       Stack Push [7766] = integer 0d
       SP = 7767
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [7766] = integer 0d
       C = 1
       SP = 7766
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 7745 -> Level 2, Frame 7737
       Stack Push [7766] = integer 0d
       Stack Push [7767] = addr 7745
       Stack Push [7770] = addr 23567
       Stack Push [7771] = addr 7766
       Stack Push [7772] = addr 0
       Stack Push [7773] = addr 0
       Stack Write [7772] = addr 2
       Stack Write [7773] = addr 7745
       Display [1] = 07715
       Display [2] = 07737
       SP = 7774
       FP = 7767
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 7737 -> Level 2, Frame 7707
       Stack Push [7774] = integer 0d
       Stack Push [7775] = addr 7767
       Stack Push [7776] = addr 23535
       Stack Push [7777] = addr 7774
       Stack Push [10000] = addr 0
       Stack Push [10001] = addr 0
       Stack Write [10000] = addr 2
       Stack Write [10001] = addr 7715
       Display [1] = 07665
       Display [2] = 07707
       SP = 10002
       FP = 7775
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 7707 -> Level 2, Frame 7657
       Stack Push [10002] = integer 0d
       Stack Push [10003] = addr 7775
       Stack Push [10004] = addr 23532
       Stack Push [10005] = addr 10002
       Stack Push [10006] = addr 0
       Stack Push [10007] = addr 0
       Stack Write [10006] = addr 2
       Stack Write [10007] = addr 7665
       Display [1] = 07635
       Display [2] = 07657
       SP = 10010
       FP = 10003
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 7657 -> Level 2, Frame 7627
       Stack Push [10010] = integer 0d
       Stack Push [10011] = addr 10003
       Stack Push [10012] = addr 23527
       Stack Push [10013] = addr 10010
       Stack Push [10014] = addr 0
       Stack Push [10015] = addr 0
       Stack Write [10014] = addr 2
       Stack Write [10015] = addr 7635
       Display [1] = 07241
       Display [2] = 07627
       SP = 10016
       FP = 10011
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10015] = addr 7241
       Display [2] = 10011
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10016] = addr 107246
       SP = 10017
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10017] = integer 3d
       SP = 10020
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10017] = integer 3d
       Stack Push [10017] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [10017] = integer 2d
       Stack Pop [10016] = addr 107246
       Stack Write [7246] = integer 2d
       SP = 10016
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10016] = integer 0d
       Stack Push [10017] = addr 10011
       Stack Push [10020] = addr 23551
       Stack Push [10021] = addr 10016
       Stack Push [10022] = addr 0
       Stack Push [10023] = addr 0
       Stack Push [10024] = integer 0d
       Stack Push [10025] = addr 210011
       Stack Push [10026] = integer 0d
       Stack Push [10027] = addr 210011
       Stack Push [10030] = integer 0d
       Stack Push [10031] = addr 210011
       Stack Push [10032] = integer 0d
       Stack Push [10033] = addr 210011
       Stack Push [10034] = integer 0d
       Stack Push [10035] = addr 210011
       Stack Push [10036] = integer 0d
       Stack Push [10037] = addr 210011
       SP = 10040
       FP = 10017
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10022] = addr 1
       Display [1] = 10017
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10040] = addr 110024
       SP = 10041
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10041] = integer 2d
       SP = 10042
 23510: 00 00 00125 ST  store
       Stack Pop [10041] = integer 2d
       Stack Pop [10040] = addr 110024
       Stack Write [10024] = integer 2d
       SP = 10040
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10040] = integer 2d
       SP = 10041
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10041] = integer 1d
       SP = 10042
 23562: 00 00 00105 LES less <
       Stack Pop [10041] = integer 1d
       Stack Pop [10040] = integer 2d
       Stack Push [10040] = integer 1d
       SP = 10041
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10040] = integer 1d
       C = 0
       SP = 10040
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10040] = integer 0d
       Stack Push [10041] = addr 10017
       Stack Push [10042] = addr 23575
       Stack Push [10043] = addr 10040
       Stack Push [10044] = addr 0
       Stack Push [10045] = addr 0
       SP = 10046
       FP = 10041
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10044] = addr 2
       Stack Write [10045] = addr 10017
       Display [1] = 10017
       Display [2] = 10041
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10046] = addr 110024
       SP = 10047
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10047] = integer 2d
       SP = 10050
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10047] = integer 2d
       Stack Push [10047] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [10047] = integer 1d
       Stack Pop [10046] = addr 110024
       Stack Write [10024] = integer 1d
       SP = 10046
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10046] = integer 0d
       Stack Push [10047] = addr 10041
       Stack Push [10050] = addr 23551
       Stack Push [10051] = addr 10046
       Stack Push [10052] = addr 0
       Stack Push [10053] = addr 0
       Stack Push [10054] = integer 0d
       Stack Push [10055] = addr 210041
       Stack Push [10056] = integer 0d
       Stack Push [10057] = addr 210041
       Stack Push [10060] = integer 0d
       Stack Push [10061] = addr 210041
       Stack Push [10062] = integer 0d
       Stack Push [10063] = addr 210041
       Stack Push [10064] = integer 0d
       Stack Push [10065] = addr 210041
       Stack Push [10066] = integer 0d
       Stack Push [10067] = addr 210041
       SP = 10070
       FP = 10047
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10052] = addr 1
       Display [1] = 10047
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10070] = addr 110054
       SP = 10071
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10071] = integer 1d
       SP = 10072
 23510: 00 00 00125 ST  store
       Stack Pop [10071] = integer 1d
       Stack Pop [10070] = addr 110054
       Stack Write [10054] = integer 1d
       SP = 10070
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10070] = integer 1d
       SP = 10071
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10071] = integer 1d
       SP = 10072
 23562: 00 00 00105 LES less <
       Stack Pop [10071] = integer 1d
       Stack Pop [10070] = integer 1d
       Stack Push [10070] = integer 1d
       SP = 10071
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10070] = integer 1d
       SP = 10070
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10070] = integer 0d
       Stack Push [10071] = addr 10047
       Stack Push [10072] = addr 23575
       Stack Push [10073] = addr 10070
       Stack Push [10074] = addr 0
       Stack Push [10075] = addr 0
       SP = 10076
       FP = 10071
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10074] = addr 2
       Stack Write [10075] = addr 10047
       Display [1] = 10047
       Display [2] = 10071
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10076] = addr 110054
       SP = 10077
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10077] = integer 1d
       SP = 10100
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10077] = integer 1d
       Stack Push [10077] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [10077] = integer 0d
       Stack Pop [10076] = addr 110054
       Stack Write [10054] = integer 0d
       SP = 10076
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10076] = integer 0d
       Stack Push [10077] = addr 10071
       Stack Push [10100] = addr 23551
       Stack Push [10101] = addr 10076
       Stack Push [10102] = addr 0
       Stack Push [10103] = addr 0
       Stack Push [10104] = integer 0d
       Stack Push [10105] = addr 210071
       Stack Push [10106] = integer 0d
       Stack Push [10107] = addr 210071
       Stack Push [10110] = integer 0d
       Stack Push [10111] = addr 210071
       Stack Push [10112] = integer 0d
       Stack Push [10113] = addr 210071
       Stack Push [10114] = integer 0d
       Stack Push [10115] = addr 210071
       Stack Push [10116] = integer 0d
       Stack Push [10117] = addr 210071
       SP = 10120
       FP = 10077
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10102] = addr 1
       Display [1] = 10077
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10120] = addr 110104
       SP = 10121
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10121] = integer 0d
       SP = 10122
 23510: 00 00 00125 ST  store
       Stack Pop [10121] = integer 0d
       Stack Pop [10120] = addr 110104
       Stack Write [10104] = integer 0d
       SP = 10120
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10120] = integer 0d
       SP = 10121
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10121] = integer 1d
       SP = 10122
 23562: 00 00 00105 LES less <
       Stack Pop [10121] = integer 1d
       Stack Pop [10120] = integer 0d
       Stack Push [10120] = integer 0d
       SP = 10121
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10120] = integer 0d
       C = 1
       SP = 10120
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 10077 -> Level 2, Frame 10071
       Stack Push [10120] = integer 0d
       Stack Push [10121] = addr 10077
       Stack Push [10122] = addr 23567
       Stack Push [10123] = addr 10120
       Stack Push [10124] = addr 0
       Stack Push [10125] = addr 0
       Stack Write [10124] = addr 2
       Stack Write [10125] = addr 10077
       Display [1] = 10047
       Display [2] = 10071
       SP = 10126
       FP = 10121
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 10071 -> Level 2, Frame 10041
       Stack Push [10126] = integer 0d
       Stack Push [10127] = addr 10121
       Stack Push [10130] = addr 23535
       Stack Push [10131] = addr 10126
       Stack Push [10132] = addr 0
       Stack Push [10133] = addr 0
       Stack Write [10132] = addr 2
       Stack Write [10133] = addr 10047
       Display [1] = 10017
       Display [2] = 10041
       SP = 10134
       FP = 10127
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 10041 -> Level 2, Frame 10011
       Stack Push [10134] = integer 0d
       Stack Push [10135] = addr 10127
       Stack Push [10136] = addr 23532
       Stack Push [10137] = addr 10134
       Stack Push [10140] = addr 0
       Stack Push [10141] = addr 0
       Stack Write [10140] = addr 2
       Stack Write [10141] = addr 10017
       Display [1] = 07241
       Display [2] = 10011
       SP = 10142
       FP = 10135
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 10011 -> Level 2, Frame 7233
       Stack Push [10142] = integer 0d
       Stack Push [10143] = addr 10135
       Stack Push [10144] = addr 23527
       Stack Push [10145] = addr 10142
       Stack Push [10146] = addr 0
       Stack Push [10147] = addr 0
       Stack Write [10146] = addr 2
       Stack Write [10147] = addr 7241
       Display [1] = 07211
       Display [2] = 07233
       SP = 10150
       FP = 10143
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10147] = addr 7211
       Display [2] = 10143
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10150] = addr 107216
       SP = 10151
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10151] = integer 5d
       SP = 10152
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10151] = integer 5d
       Stack Push [10151] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [10151] = integer 4d
       Stack Pop [10150] = addr 107216
       Stack Write [7216] = integer 4d
       SP = 10150
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10150] = integer 0d
       Stack Push [10151] = addr 10143
       Stack Push [10152] = addr 23551
       Stack Push [10153] = addr 10150
       Stack Push [10154] = addr 0
       Stack Push [10155] = addr 0
       Stack Push [10156] = integer 0d
       Stack Push [10157] = addr 210143
       Stack Push [10160] = integer 0d
       Stack Push [10161] = addr 210143
       Stack Push [10162] = integer 0d
       Stack Push [10163] = addr 210143
       Stack Push [10164] = integer 0d
       Stack Push [10165] = addr 210143
       Stack Push [10166] = integer 0d
       Stack Push [10167] = addr 210143
       Stack Push [10170] = integer 0d
       Stack Push [10171] = addr 210143
       SP = 10172
       FP = 10151
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10154] = addr 1
       Display [1] = 10151
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10172] = addr 110156
       SP = 10173
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10173] = integer 4d
       SP = 10174
 23510: 00 00 00125 ST  store
       Stack Pop [10173] = integer 4d
       Stack Pop [10172] = addr 110156
       Stack Write [10156] = integer 4d
       SP = 10172
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10172] = integer 4d
       SP = 10173
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10173] = integer 1d
       SP = 10174
 23562: 00 00 00105 LES less <
       Stack Pop [10173] = integer 1d
       Stack Pop [10172] = integer 4d
       Stack Push [10172] = integer 1d
       SP = 10173
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10172] = integer 1d
       C = 0
       SP = 10172
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10172] = integer 0d
       Stack Push [10173] = addr 10151
       Stack Push [10174] = addr 23575
       Stack Push [10175] = addr 10172
       Stack Push [10176] = addr 0
       Stack Push [10177] = addr 0
       SP = 10200
       FP = 10173
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10176] = addr 2
       Stack Write [10177] = addr 10151
       Display [1] = 10151
       Display [2] = 10173
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10200] = addr 110156
       SP = 10201
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10201] = integer 4d
       SP = 10202
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10201] = integer 4d
       Stack Push [10201] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [10201] = integer 3d
       Stack Pop [10200] = addr 110156
       Stack Write [10156] = integer 3d
       SP = 10200
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10200] = integer 0d
       Stack Push [10201] = addr 10173
       Stack Push [10202] = addr 23551
       Stack Push [10203] = addr 10200
       Stack Push [10204] = addr 0
       Stack Push [10205] = addr 0
       Stack Push [10206] = integer 0d
       Stack Push [10207] = addr 210173
       Stack Push [10210] = integer 0d
       Stack Push [10211] = addr 210173
       Stack Push [10212] = integer 0d
       Stack Push [10213] = addr 210173
       Stack Push [10214] = integer 0d
       Stack Push [10215] = addr 210173
       Stack Push [10216] = integer 0d
       Stack Push [10217] = addr 210173
       Stack Push [10220] = integer 0d
       Stack Push [10221] = addr 210173
       SP = 10222
       FP = 10201
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10204] = addr 1
       Display [1] = 10201
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10222] = addr 110206
       SP = 10223
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10223] = integer 3d
       SP = 10224
 23510: 00 00 00125 ST  store
       Stack Pop [10223] = integer 3d
       Stack Pop [10222] = addr 110206
       Stack Write [10206] = integer 3d
       SP = 10222
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10222] = integer 3d
       SP = 10223
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10223] = integer 1d
       SP = 10224
 23562: 00 00 00105 LES less <
       Stack Pop [10223] = integer 1d
       Stack Pop [10222] = integer 3d
       Stack Push [10222] = integer 1d
       SP = 10223
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10222] = integer 1d
       SP = 10222
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10222] = integer 0d
       Stack Push [10223] = addr 10201
       Stack Push [10224] = addr 23575
       Stack Push [10225] = addr 10222
       Stack Push [10226] = addr 0
       Stack Push [10227] = addr 0
       SP = 10230
       FP = 10223
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10226] = addr 2
       Stack Write [10227] = addr 10201
       Display [1] = 10201
       Display [2] = 10223
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10230] = addr 110206
       SP = 10231
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10231] = integer 3d
       SP = 10232
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10231] = integer 3d
       Stack Push [10231] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [10231] = integer 2d
       Stack Pop [10230] = addr 110206
       Stack Write [10206] = integer 2d
       SP = 10230
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10230] = integer 0d
       Stack Push [10231] = addr 10223
       Stack Push [10232] = addr 23551
       Stack Push [10233] = addr 10230
       Stack Push [10234] = addr 0
       Stack Push [10235] = addr 0
       Stack Push [10236] = integer 0d
       Stack Push [10237] = addr 210223
       Stack Push [10240] = integer 0d
       Stack Push [10241] = addr 210223
       Stack Push [10242] = integer 0d
       Stack Push [10243] = addr 210223
       Stack Push [10244] = integer 0d
       Stack Push [10245] = addr 210223
       Stack Push [10246] = integer 0d
       Stack Push [10247] = addr 210223
       Stack Push [10250] = integer 0d
       Stack Push [10251] = addr 210223
       SP = 10252
       FP = 10231
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10234] = addr 1
       Display [1] = 10231
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10252] = addr 110236
       SP = 10253
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10253] = integer 2d
       SP = 10254
 23510: 00 00 00125 ST  store
       Stack Pop [10253] = integer 2d
       Stack Pop [10252] = addr 110236
       Stack Write [10236] = integer 2d
       SP = 10252
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10252] = integer 2d
       SP = 10253
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10253] = integer 1d
       SP = 10254
 23562: 00 00 00105 LES less <
       Stack Pop [10253] = integer 1d
       Stack Pop [10252] = integer 2d
       Stack Push [10252] = integer 1d
       SP = 10253
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10252] = integer 1d
       SP = 10252
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10252] = integer 0d
       Stack Push [10253] = addr 10231
       Stack Push [10254] = addr 23575
       Stack Push [10255] = addr 10252
       Stack Push [10256] = addr 0
       Stack Push [10257] = addr 0
       SP = 10260
       FP = 10253
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10256] = addr 2
       Stack Write [10257] = addr 10231
       Display [1] = 10231
       Display [2] = 10253
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10260] = addr 110236
       SP = 10261
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10261] = integer 2d
       SP = 10262
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10261] = integer 2d
       Stack Push [10261] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [10261] = integer 1d
       Stack Pop [10260] = addr 110236
       Stack Write [10236] = integer 1d
       SP = 10260
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10260] = integer 0d
       Stack Push [10261] = addr 10253
       Stack Push [10262] = addr 23551
       Stack Push [10263] = addr 10260
       Stack Push [10264] = addr 0
       Stack Push [10265] = addr 0
       Stack Push [10266] = integer 0d
       Stack Push [10267] = addr 210253
       Stack Push [10270] = integer 0d
       Stack Push [10271] = addr 210253
       Stack Push [10272] = integer 0d
       Stack Push [10273] = addr 210253
       Stack Push [10274] = integer 0d
       Stack Push [10275] = addr 210253
       Stack Push [10276] = integer 0d
       Stack Push [10277] = addr 210253
       Stack Push [10300] = integer 0d
       Stack Push [10301] = addr 210253
       SP = 10302
       FP = 10261
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10264] = addr 1
       Display [1] = 10261
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10302] = addr 110266
       SP = 10303
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10303] = integer 1d
       SP = 10304
 23510: 00 00 00125 ST  store
       Stack Pop [10303] = integer 1d
       Stack Pop [10302] = addr 110266
       Stack Write [10266] = integer 1d
       SP = 10302
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10302] = integer 1d
       SP = 10303
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10303] = integer 1d
       SP = 10304
 23562: 00 00 00105 LES less <
       Stack Pop [10303] = integer 1d
       Stack Pop [10302] = integer 1d
       Stack Push [10302] = integer 1d
       SP = 10303
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10302] = integer 1d
       SP = 10302
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10302] = integer 0d
       Stack Push [10303] = addr 10261
       Stack Push [10304] = addr 23575
       Stack Push [10305] = addr 10302
       Stack Push [10306] = addr 0
       Stack Push [10307] = addr 0
       SP = 10310
       FP = 10303
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10306] = addr 2
       Stack Write [10307] = addr 10261
       Display [1] = 10261
       Display [2] = 10303
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10310] = addr 110266
       SP = 10311
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10311] = integer 1d
       SP = 10312
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10311] = integer 1d
       Stack Push [10311] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [10311] = integer 0d
       Stack Pop [10310] = addr 110266
       Stack Write [10266] = integer 0d
       SP = 10310
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10310] = integer 0d
       Stack Push [10311] = addr 10303
       Stack Push [10312] = addr 23551
       Stack Push [10313] = addr 10310
       Stack Push [10314] = addr 0
       Stack Push [10315] = addr 0
       Stack Push [10316] = integer 0d
       Stack Push [10317] = addr 210303
       Stack Push [10320] = integer 0d
       Stack Push [10321] = addr 210303
       Stack Push [10322] = integer 0d
       Stack Push [10323] = addr 210303
       Stack Push [10324] = integer 0d
       Stack Push [10325] = addr 210303
       Stack Push [10326] = integer 0d
       Stack Push [10327] = addr 210303
       Stack Push [10330] = integer 0d
       Stack Push [10331] = addr 210303
       SP = 10332
       FP = 10311
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10314] = addr 1
       Display [1] = 10311
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10332] = addr 110316
       SP = 10333
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10333] = integer 0d
       SP = 10334
 23510: 00 00 00125 ST  store
       Stack Pop [10333] = integer 0d
       Stack Pop [10332] = addr 110316
       Stack Write [10316] = integer 0d
       SP = 10332
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10332] = integer 0d
       SP = 10333
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10333] = integer 1d
       SP = 10334
 23562: 00 00 00105 LES less <
       Stack Pop [10333] = integer 1d
       Stack Pop [10332] = integer 0d
       Stack Push [10332] = integer 0d
       SP = 10333
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10332] = integer 0d
       C = 1
       SP = 10332
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 10311 -> Level 2, Frame 10303
       Stack Push [10332] = integer 0d
       Stack Push [10333] = addr 10311
       Stack Push [10334] = addr 23567
       Stack Push [10335] = addr 10332
       Stack Push [10336] = addr 0
       Stack Push [10337] = addr 0
       Stack Write [10336] = addr 2
       Stack Write [10337] = addr 10311
       Display [1] = 10261
       Display [2] = 10303
       SP = 10340
       FP = 10333
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 10303 -> Level 2, Frame 10253
       Stack Push [10340] = integer 0d
       Stack Push [10341] = addr 10333
       Stack Push [10342] = addr 23535
       Stack Push [10343] = addr 10340
       Stack Push [10344] = addr 0
       Stack Push [10345] = addr 0
       Stack Write [10344] = addr 2
       Stack Write [10345] = addr 10261
       Display [1] = 10231
       Display [2] = 10253
       SP = 10346
       FP = 10341
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 10253 -> Level 2, Frame 10223
       Stack Push [10346] = integer 0d
       Stack Push [10347] = addr 10341
       Stack Push [10350] = addr 23532
       Stack Push [10351] = addr 10346
       Stack Push [10352] = addr 0
       Stack Push [10353] = addr 0
       Stack Write [10352] = addr 2
       Stack Write [10353] = addr 10231
       Display [1] = 10201
       Display [2] = 10223
       SP = 10354
       FP = 10347
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 10223 -> Level 2, Frame 10173
       Stack Push [10354] = integer 0d
       Stack Push [10355] = addr 10347
       Stack Push [10356] = addr 23527
       Stack Push [10357] = addr 10354
       Stack Push [10360] = addr 0
       Stack Push [10361] = addr 0
       Stack Write [10360] = addr 2
       Stack Write [10361] = addr 10201
       Display [1] = 10151
       Display [2] = 10173
       SP = 10362
       FP = 10355
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10361] = addr 10151
       Display [2] = 10355
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10362] = addr 110156
       SP = 10363
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10363] = integer 3d
       SP = 10364
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10363] = integer 3d
       Stack Push [10363] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [10363] = integer 2d
       Stack Pop [10362] = addr 110156
       Stack Write [10156] = integer 2d
       SP = 10362
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10362] = integer 0d
       Stack Push [10363] = addr 10355
       Stack Push [10364] = addr 23551
       Stack Push [10365] = addr 10362
       Stack Push [10366] = addr 0
       Stack Push [10367] = addr 0
       Stack Push [10370] = integer 0d
       Stack Push [10371] = addr 210355
       Stack Push [10372] = integer 0d
       Stack Push [10373] = addr 210355
       Stack Push [10374] = integer 0d
       Stack Push [10375] = addr 210355
       Stack Push [10376] = integer 0d
       Stack Push [10377] = addr 210355
       Stack Push [10400] = integer 0d
       Stack Push [10401] = addr 210355
       Stack Push [10402] = integer 0d
       Stack Push [10403] = addr 210355
       SP = 10404
       FP = 10363
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10366] = addr 1
       Display [1] = 10363
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10404] = addr 110370
       SP = 10405
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10405] = integer 2d
       SP = 10406
 23510: 00 00 00125 ST  store
       Stack Pop [10405] = integer 2d
       Stack Pop [10404] = addr 110370
       Stack Write [10370] = integer 2d
       SP = 10404
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10404] = integer 2d
       SP = 10405
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10405] = integer 1d
       SP = 10406
 23562: 00 00 00105 LES less <
       Stack Pop [10405] = integer 1d
       Stack Pop [10404] = integer 2d
       Stack Push [10404] = integer 1d
       SP = 10405
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10404] = integer 1d
       C = 0
       SP = 10404
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10404] = integer 0d
       Stack Push [10405] = addr 10363
       Stack Push [10406] = addr 23575
       Stack Push [10407] = addr 10404
       Stack Push [10410] = addr 0
       Stack Push [10411] = addr 0
       SP = 10412
       FP = 10405
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10410] = addr 2
       Stack Write [10411] = addr 10363
       Display [1] = 10363
       Display [2] = 10405
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10412] = addr 110370
       SP = 10413
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10413] = integer 2d
       SP = 10414
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10413] = integer 2d
       Stack Push [10413] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [10413] = integer 1d
       Stack Pop [10412] = addr 110370
       Stack Write [10370] = integer 1d
       SP = 10412
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10412] = integer 0d
       Stack Push [10413] = addr 10405
       Stack Push [10414] = addr 23551
       Stack Push [10415] = addr 10412
       Stack Push [10416] = addr 0
       Stack Push [10417] = addr 0
       Stack Push [10420] = integer 0d
       Stack Push [10421] = addr 210405
       Stack Push [10422] = integer 0d
       Stack Push [10423] = addr 210405
       Stack Push [10424] = integer 0d
       Stack Push [10425] = addr 210405
       Stack Push [10426] = integer 0d
       Stack Push [10427] = addr 210405
       Stack Push [10430] = integer 0d
       Stack Push [10431] = addr 210405
       Stack Push [10432] = integer 0d
       Stack Push [10433] = addr 210405
       SP = 10434
       FP = 10413
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10416] = addr 1
       Display [1] = 10413
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10434] = addr 110420
       SP = 10435
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10435] = integer 1d
       SP = 10436
 23510: 00 00 00125 ST  store
       Stack Pop [10435] = integer 1d
       Stack Pop [10434] = addr 110420
       Stack Write [10420] = integer 1d
       SP = 10434
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10434] = integer 1d
       SP = 10435
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10435] = integer 1d
       SP = 10436
 23562: 00 00 00105 LES less <
       Stack Pop [10435] = integer 1d
       Stack Pop [10434] = integer 1d
       Stack Push [10434] = integer 1d
       SP = 10435
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10434] = integer 1d
       SP = 10434
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10434] = integer 0d
       Stack Push [10435] = addr 10413
       Stack Push [10436] = addr 23575
       Stack Push [10437] = addr 10434
       Stack Push [10440] = addr 0
       Stack Push [10441] = addr 0
       SP = 10442
       FP = 10435
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10440] = addr 2
       Stack Write [10441] = addr 10413
       Display [1] = 10413
       Display [2] = 10435
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10442] = addr 110420
       SP = 10443
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10443] = integer 1d
       SP = 10444
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10443] = integer 1d
       Stack Push [10443] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [10443] = integer 0d
       Stack Pop [10442] = addr 110420
       Stack Write [10420] = integer 0d
       SP = 10442
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10442] = integer 0d
       Stack Push [10443] = addr 10435
       Stack Push [10444] = addr 23551
       Stack Push [10445] = addr 10442
       Stack Push [10446] = addr 0
       Stack Push [10447] = addr 0
       Stack Push [10450] = integer 0d
       Stack Push [10451] = addr 210435
       Stack Push [10452] = integer 0d
       Stack Push [10453] = addr 210435
       Stack Push [10454] = integer 0d
       Stack Push [10455] = addr 210435
       Stack Push [10456] = integer 0d
       Stack Push [10457] = addr 210435
       Stack Push [10460] = integer 0d
       Stack Push [10461] = addr 210435
       Stack Push [10462] = integer 0d
       Stack Push [10463] = addr 210435
       SP = 10464
       FP = 10443
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10446] = addr 1
       Display [1] = 10443
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10464] = addr 110450
       SP = 10465
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10465] = integer 0d
       SP = 10466
 23510: 00 00 00125 ST  store
       Stack Pop [10465] = integer 0d
       Stack Pop [10464] = addr 110450
       Stack Write [10450] = integer 0d
       SP = 10464
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10464] = integer 0d
       SP = 10465
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10465] = integer 1d
       SP = 10466
 23562: 00 00 00105 LES less <
       Stack Pop [10465] = integer 1d
       Stack Pop [10464] = integer 0d
       Stack Push [10464] = integer 0d
       SP = 10465
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10464] = integer 0d
       C = 1
       SP = 10464
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 10443 -> Level 2, Frame 10435
       Stack Push [10464] = integer 0d
       Stack Push [10465] = addr 10443
       Stack Push [10466] = addr 23567
       Stack Push [10467] = addr 10464
       Stack Push [10470] = addr 0
       Stack Push [10471] = addr 0
       Stack Write [10470] = addr 2
       Stack Write [10471] = addr 10443
       Display [1] = 10413
       Display [2] = 10435
       SP = 10472
       FP = 10465
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 10435 -> Level 2, Frame 10405
       Stack Push [10472] = integer 0d
       Stack Push [10473] = addr 10465
       Stack Push [10474] = addr 23535
       Stack Push [10475] = addr 10472
       Stack Push [10476] = addr 0
       Stack Push [10477] = addr 0
       Stack Write [10476] = addr 2
       Stack Write [10477] = addr 10413
       Display [1] = 10363
       Display [2] = 10405
       SP = 10500
       FP = 10473
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 10405 -> Level 2, Frame 10355
       Stack Push [10500] = integer 0d
       Stack Push [10501] = addr 10473
       Stack Push [10502] = addr 23532
       Stack Push [10503] = addr 10500
       Stack Push [10504] = addr 0
       Stack Push [10505] = addr 0
       Stack Write [10504] = addr 2
       Stack Write [10505] = addr 10363
       Display [1] = 10151
       Display [2] = 10355
       SP = 10506
       FP = 10501
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 10355 -> Level 2, Frame 10143
       Stack Push [10506] = integer 0d
       Stack Push [10507] = addr 10501
       Stack Push [10510] = addr 23527
       Stack Push [10511] = addr 10506
       Stack Push [10512] = addr 0
       Stack Push [10513] = addr 0
       Stack Write [10512] = addr 2
       Stack Write [10513] = addr 10151
       Display [1] = 07211
       Display [2] = 10143
       SP = 10514
       FP = 10507
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10513] = addr 7211
       Display [2] = 10507
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10514] = addr 107216
       SP = 10515
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10515] = integer 4d
       SP = 10516
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10515] = integer 4d
       Stack Push [10515] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [10515] = integer 3d
       Stack Pop [10514] = addr 107216
       Stack Write [7216] = integer 3d
       SP = 10514
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10514] = integer 0d
       Stack Push [10515] = addr 10507
       Stack Push [10516] = addr 23551
       Stack Push [10517] = addr 10514
       Stack Push [10520] = addr 0
       Stack Push [10521] = addr 0
       Stack Push [10522] = integer 0d
       Stack Push [10523] = addr 210507
       Stack Push [10524] = integer 0d
       Stack Push [10525] = addr 210507
       Stack Push [10526] = integer 0d
       Stack Push [10527] = addr 210507
       Stack Push [10530] = integer 0d
       Stack Push [10531] = addr 210507
       Stack Push [10532] = integer 0d
       Stack Push [10533] = addr 210507
       Stack Push [10534] = integer 0d
       Stack Push [10535] = addr 210507
       SP = 10536
       FP = 10515
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10520] = addr 1
       Display [1] = 10515
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10536] = addr 110522
       SP = 10537
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10537] = integer 3d
       SP = 10540
 23510: 00 00 00125 ST  store
       Stack Pop [10537] = integer 3d
       Stack Pop [10536] = addr 110522
       Stack Write [10522] = integer 3d
       SP = 10536
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10536] = integer 3d
       SP = 10537
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10537] = integer 1d
       SP = 10540
 23562: 00 00 00105 LES less <
       Stack Pop [10537] = integer 1d
       Stack Pop [10536] = integer 3d
       Stack Push [10536] = integer 1d
       SP = 10537
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10536] = integer 1d
       C = 0
       SP = 10536
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10536] = integer 0d
       Stack Push [10537] = addr 10515
       Stack Push [10540] = addr 23575
       Stack Push [10541] = addr 10536
       Stack Push [10542] = addr 0
       Stack Push [10543] = addr 0
       SP = 10544
       FP = 10537
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10542] = addr 2
       Stack Write [10543] = addr 10515
       Display [1] = 10515
       Display [2] = 10537
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10544] = addr 110522
       SP = 10545
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10545] = integer 3d
       SP = 10546
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10545] = integer 3d
       Stack Push [10545] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [10545] = integer 2d
       Stack Pop [10544] = addr 110522
       Stack Write [10522] = integer 2d
       SP = 10544
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10544] = integer 0d
       Stack Push [10545] = addr 10537
       Stack Push [10546] = addr 23551
       Stack Push [10547] = addr 10544
       Stack Push [10550] = addr 0
       Stack Push [10551] = addr 0
       Stack Push [10552] = integer 0d
       Stack Push [10553] = addr 210537
       Stack Push [10554] = integer 0d
       Stack Push [10555] = addr 210537
       Stack Push [10556] = integer 0d
       Stack Push [10557] = addr 210537
       Stack Push [10560] = integer 0d
       Stack Push [10561] = addr 210537
       Stack Push [10562] = integer 0d
       Stack Push [10563] = addr 210537
       Stack Push [10564] = integer 0d
       Stack Push [10565] = addr 210537
       SP = 10566
       FP = 10545
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10550] = addr 1
       Display [1] = 10545
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10566] = addr 110552
       SP = 10567
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10567] = integer 2d
       SP = 10570
 23510: 00 00 00125 ST  store
       Stack Pop [10567] = integer 2d
       Stack Pop [10566] = addr 110552
       Stack Write [10552] = integer 2d
       SP = 10566
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10566] = integer 2d
       SP = 10567
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10567] = integer 1d
       SP = 10570
 23562: 00 00 00105 LES less <
       Stack Pop [10567] = integer 1d
       Stack Pop [10566] = integer 2d
       Stack Push [10566] = integer 1d
       SP = 10567
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10566] = integer 1d
       SP = 10566
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10566] = integer 0d
       Stack Push [10567] = addr 10545
       Stack Push [10570] = addr 23575
       Stack Push [10571] = addr 10566
       Stack Push [10572] = addr 0
       Stack Push [10573] = addr 0
       SP = 10574
       FP = 10567
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10572] = addr 2
       Stack Write [10573] = addr 10545
       Display [1] = 10545
       Display [2] = 10567
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10574] = addr 110552
       SP = 10575
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10575] = integer 2d
       SP = 10576
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10575] = integer 2d
       Stack Push [10575] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [10575] = integer 1d
       Stack Pop [10574] = addr 110552
       Stack Write [10552] = integer 1d
       SP = 10574
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10574] = integer 0d
       Stack Push [10575] = addr 10567
       Stack Push [10576] = addr 23551
       Stack Push [10577] = addr 10574
       Stack Push [10600] = addr 0
       Stack Push [10601] = addr 0
       Stack Push [10602] = integer 0d
       Stack Push [10603] = addr 210567
       Stack Push [10604] = integer 0d
       Stack Push [10605] = addr 210567
       Stack Push [10606] = integer 0d
       Stack Push [10607] = addr 210567
       Stack Push [10610] = integer 0d
       Stack Push [10611] = addr 210567
       Stack Push [10612] = integer 0d
       Stack Push [10613] = addr 210567
       Stack Push [10614] = integer 0d
       Stack Push [10615] = addr 210567
       SP = 10616
       FP = 10575
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10600] = addr 1
       Display [1] = 10575
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10616] = addr 110602
       SP = 10617
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10617] = integer 1d
       SP = 10620
 23510: 00 00 00125 ST  store
       Stack Pop [10617] = integer 1d
       Stack Pop [10616] = addr 110602
       Stack Write [10602] = integer 1d
       SP = 10616
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10616] = integer 1d
       SP = 10617
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10617] = integer 1d
       SP = 10620
 23562: 00 00 00105 LES less <
       Stack Pop [10617] = integer 1d
       Stack Pop [10616] = integer 1d
       Stack Push [10616] = integer 1d
       SP = 10617
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10616] = integer 1d
       SP = 10616
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10616] = integer 0d
       Stack Push [10617] = addr 10575
       Stack Push [10620] = addr 23575
       Stack Push [10621] = addr 10616
       Stack Push [10622] = addr 0
       Stack Push [10623] = addr 0
       SP = 10624
       FP = 10617
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10622] = addr 2
       Stack Write [10623] = addr 10575
       Display [1] = 10575
       Display [2] = 10617
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10624] = addr 110602
       SP = 10625
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10625] = integer 1d
       SP = 10626
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10625] = integer 1d
       Stack Push [10625] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [10625] = integer 0d
       Stack Pop [10624] = addr 110602
       Stack Write [10602] = integer 0d
       SP = 10624
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10624] = integer 0d
       Stack Push [10625] = addr 10617
       Stack Push [10626] = addr 23551
       Stack Push [10627] = addr 10624
       Stack Push [10630] = addr 0
       Stack Push [10631] = addr 0
       Stack Push [10632] = integer 0d
       Stack Push [10633] = addr 210617
       Stack Push [10634] = integer 0d
       Stack Push [10635] = addr 210617
       Stack Push [10636] = integer 0d
       Stack Push [10637] = addr 210617
       Stack Push [10640] = integer 0d
       Stack Push [10641] = addr 210617
       Stack Push [10642] = integer 0d
       Stack Push [10643] = addr 210617
       Stack Push [10644] = integer 0d
       Stack Push [10645] = addr 210617
       SP = 10646
       FP = 10625
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10630] = addr 1
       Display [1] = 10625
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10646] = addr 110632
       SP = 10647
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10647] = integer 0d
       SP = 10650
 23510: 00 00 00125 ST  store
       Stack Pop [10647] = integer 0d
       Stack Pop [10646] = addr 110632
       Stack Write [10632] = integer 0d
       SP = 10646
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10646] = integer 0d
       SP = 10647
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10647] = integer 1d
       SP = 10650
 23562: 00 00 00105 LES less <
       Stack Pop [10647] = integer 1d
       Stack Pop [10646] = integer 0d
       Stack Push [10646] = integer 0d
       SP = 10647
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10646] = integer 0d
       C = 1
       SP = 10646
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 10625 -> Level 2, Frame 10617
       Stack Push [10646] = integer 0d
       Stack Push [10647] = addr 10625
       Stack Push [10650] = addr 23567
       Stack Push [10651] = addr 10646
       Stack Push [10652] = addr 0
       Stack Push [10653] = addr 0
       Stack Write [10652] = addr 2
       Stack Write [10653] = addr 10625
       Display [1] = 10575
       Display [2] = 10617
       SP = 10654
       FP = 10647
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 10617 -> Level 2, Frame 10567
       Stack Push [10654] = integer 0d
       Stack Push [10655] = addr 10647
       Stack Push [10656] = addr 23535
       Stack Push [10657] = addr 10654
       Stack Push [10660] = addr 0
       Stack Push [10661] = addr 0
       Stack Write [10660] = addr 2
       Stack Write [10661] = addr 10575
       Display [1] = 10545
       Display [2] = 10567
       SP = 10662
       FP = 10655
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 10567 -> Level 2, Frame 10537
       Stack Push [10662] = integer 0d
       Stack Push [10663] = addr 10655
       Stack Push [10664] = addr 23532
       Stack Push [10665] = addr 10662
       Stack Push [10666] = addr 0
       Stack Push [10667] = addr 0
       Stack Write [10666] = addr 2
       Stack Write [10667] = addr 10545
       Display [1] = 10515
       Display [2] = 10537
       SP = 10670
       FP = 10663
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 10537 -> Level 2, Frame 10507
       Stack Push [10670] = integer 0d
       Stack Push [10671] = addr 10663
       Stack Push [10672] = addr 23527
       Stack Push [10673] = addr 10670
       Stack Push [10674] = addr 0
       Stack Push [10675] = addr 0
       Stack Write [10674] = addr 2
       Stack Write [10675] = addr 10515
       Display [1] = 07211
       Display [2] = 10507
       SP = 10676
       FP = 10671
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10675] = addr 7211
       Display [2] = 10671
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10676] = addr 107216
       SP = 10677
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10677] = integer 3d
       SP = 10700
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10677] = integer 3d
       Stack Push [10677] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [10677] = integer 2d
       Stack Pop [10676] = addr 107216
       Stack Write [7216] = integer 2d
       SP = 10676
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10676] = integer 0d
       Stack Push [10677] = addr 10671
       Stack Push [10700] = addr 23551
       Stack Push [10701] = addr 10676
       Stack Push [10702] = addr 0
       Stack Push [10703] = addr 0
       Stack Push [10704] = integer 0d
       Stack Push [10705] = addr 210671
       Stack Push [10706] = integer 0d
       Stack Push [10707] = addr 210671
       Stack Push [10710] = integer 0d
       Stack Push [10711] = addr 210671
       Stack Push [10712] = integer 0d
       Stack Push [10713] = addr 210671
       Stack Push [10714] = integer 0d
       Stack Push [10715] = addr 210671
       Stack Push [10716] = integer 0d
       Stack Push [10717] = addr 210671
       SP = 10720
       FP = 10677
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10702] = addr 1
       Display [1] = 10677
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10720] = addr 110704
       SP = 10721
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10721] = integer 2d
       SP = 10722
 23510: 00 00 00125 ST  store
       Stack Pop [10721] = integer 2d
       Stack Pop [10720] = addr 110704
       Stack Write [10704] = integer 2d
       SP = 10720
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10720] = integer 2d
       SP = 10721
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10721] = integer 1d
       SP = 10722
 23562: 00 00 00105 LES less <
       Stack Pop [10721] = integer 1d
       Stack Pop [10720] = integer 2d
       Stack Push [10720] = integer 1d
       SP = 10721
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10720] = integer 1d
       C = 0
       SP = 10720
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10720] = integer 0d
       Stack Push [10721] = addr 10677
       Stack Push [10722] = addr 23575
       Stack Push [10723] = addr 10720
       Stack Push [10724] = addr 0
       Stack Push [10725] = addr 0
       SP = 10726
       FP = 10721
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10724] = addr 2
       Stack Write [10725] = addr 10677
       Display [1] = 10677
       Display [2] = 10721
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10726] = addr 110704
       SP = 10727
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10727] = integer 2d
       SP = 10730
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10727] = integer 2d
       Stack Push [10727] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [10727] = integer 1d
       Stack Pop [10726] = addr 110704
       Stack Write [10704] = integer 1d
       SP = 10726
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10726] = integer 0d
       Stack Push [10727] = addr 10721
       Stack Push [10730] = addr 23551
       Stack Push [10731] = addr 10726
       Stack Push [10732] = addr 0
       Stack Push [10733] = addr 0
       Stack Push [10734] = integer 0d
       Stack Push [10735] = addr 210721
       Stack Push [10736] = integer 0d
       Stack Push [10737] = addr 210721
       Stack Push [10740] = integer 0d
       Stack Push [10741] = addr 210721
       Stack Push [10742] = integer 0d
       Stack Push [10743] = addr 210721
       Stack Push [10744] = integer 0d
       Stack Push [10745] = addr 210721
       Stack Push [10746] = integer 0d
       Stack Push [10747] = addr 210721
       SP = 10750
       FP = 10727
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10732] = addr 1
       Display [1] = 10727
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10750] = addr 110734
       SP = 10751
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [10751] = integer 1d
       SP = 10752
 23510: 00 00 00125 ST  store
       Stack Pop [10751] = integer 1d
       Stack Pop [10750] = addr 110734
       Stack Write [10734] = integer 1d
       SP = 10750
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10750] = integer 1d
       SP = 10751
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [10751] = integer 1d
       SP = 10752
 23562: 00 00 00105 LES less <
       Stack Pop [10751] = integer 1d
       Stack Pop [10750] = integer 1d
       Stack Push [10750] = integer 1d
       SP = 10751
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [10750] = integer 1d
       SP = 10750
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [10750] = integer 0d
       Stack Push [10751] = addr 10727
       Stack Push [10752] = addr 23575
       Stack Push [10753] = addr 10750
       Stack Push [10754] = addr 0
       Stack Push [10755] = addr 0
       SP = 10756
       FP = 10751
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [10754] = addr 2
       Stack Write [10755] = addr 10727
       Display [1] = 10727
       Display [2] = 10751
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [10756] = addr 110734
       SP = 10757
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [10757] = integer 1d
       SP = 10760
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [10757] = integer 1d
       Stack Push [10757] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [10757] = integer 0d
       Stack Pop [10756] = addr 110734
       Stack Write [10734] = integer 0d
       SP = 10756
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [10756] = integer 0d
       Stack Push [10757] = addr 10751
       Stack Push [10760] = addr 23551
       Stack Push [10761] = addr 10756
       Stack Push [10762] = addr 0
       Stack Push [10763] = addr 0
       Stack Push [10764] = integer 0d
       Stack Push [10765] = addr 210751
       Stack Push [10766] = integer 0d
       Stack Push [10767] = addr 210751
       Stack Push [10770] = integer 0d
       Stack Push [10771] = addr 210751
       Stack Push [10772] = integer 0d
       Stack Push [10773] = addr 210751
       Stack Push [10774] = integer 0d
       Stack Push [10775] = addr 210751
       Stack Push [10776] = integer 0d
       Stack Push [10777] = addr 210751
       SP = 11000
       FP = 10757
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [10762] = addr 1
       Display [1] = 10757
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11000] = addr 110764
       SP = 11001
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11001] = integer 0d
       SP = 11002
 23510: 00 00 00125 ST  store
       Stack Pop [11001] = integer 0d
       Stack Pop [11000] = addr 110764
       Stack Write [10764] = integer 0d
       SP = 11000
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11000] = integer 0d
       SP = 11001
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11001] = integer 1d
       SP = 11002
 23562: 00 00 00105 LES less <
       Stack Pop [11001] = integer 1d
       Stack Pop [11000] = integer 0d
       Stack Push [11000] = integer 0d
       SP = 11001
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11000] = integer 0d
       C = 1
       SP = 11000
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 10757 -> Level 2, Frame 10751
       Stack Push [11000] = integer 0d
       Stack Push [11001] = addr 10757
       Stack Push [11002] = addr 23567
       Stack Push [11003] = addr 11000
       Stack Push [11004] = addr 0
       Stack Push [11005] = addr 0
       Stack Write [11004] = addr 2
       Stack Write [11005] = addr 10757
       Display [1] = 10727
       Display [2] = 10751
       SP = 11006
       FP = 11001
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 10751 -> Level 2, Frame 10721
       Stack Push [11006] = integer 0d
       Stack Push [11007] = addr 11001
       Stack Push [11010] = addr 23535
       Stack Push [11011] = addr 11006
       Stack Push [11012] = addr 0
       Stack Push [11013] = addr 0
       Stack Write [11012] = addr 2
       Stack Write [11013] = addr 10727
       Display [1] = 10677
       Display [2] = 10721
       SP = 11014
       FP = 11007
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 10721 -> Level 2, Frame 10671
       Stack Push [11014] = integer 0d
       Stack Push [11015] = addr 11007
       Stack Push [11016] = addr 23532
       Stack Push [11017] = addr 11014
       Stack Push [11020] = addr 0
       Stack Push [11021] = addr 0
       Stack Write [11020] = addr 2
       Stack Write [11021] = addr 10677
       Display [1] = 07211
       Display [2] = 10671
       SP = 11022
       FP = 11015
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 10671 -> Level 2, Frame 7203
       Stack Push [11022] = integer 0d
       Stack Push [11023] = addr 11015
       Stack Push [11024] = addr 23527
       Stack Push [11025] = addr 11022
       Stack Push [11026] = addr 0
       Stack Push [11027] = addr 0
       Stack Write [11026] = addr 2
       Stack Write [11027] = addr 7211
       Display [1] = 07161
       Display [2] = 07203
       SP = 11030
       FP = 11023
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11027] = addr 7161
       Display [2] = 11023
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11030] = addr 107166
       SP = 11031
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11031] = integer 6d
       SP = 11032
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11031] = integer 6d
       Stack Push [11031] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [11031] = integer 5d
       Stack Pop [11030] = addr 107166
       Stack Write [7166] = integer 5d
       SP = 11030
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11030] = integer 0d
       Stack Push [11031] = addr 11023
       Stack Push [11032] = addr 23551
       Stack Push [11033] = addr 11030
       Stack Push [11034] = addr 0
       Stack Push [11035] = addr 0
       Stack Push [11036] = integer 0d
       Stack Push [11037] = addr 211023
       Stack Push [11040] = integer 0d
       Stack Push [11041] = addr 211023
       Stack Push [11042] = integer 0d
       Stack Push [11043] = addr 211023
       Stack Push [11044] = integer 0d
       Stack Push [11045] = addr 211023
       Stack Push [11046] = integer 0d
       Stack Push [11047] = addr 211023
       Stack Push [11050] = integer 0d
       Stack Push [11051] = addr 211023
       SP = 11052
       FP = 11031
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11034] = addr 1
       Display [1] = 11031
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11052] = addr 111036
       SP = 11053
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11053] = integer 5d
       SP = 11054
 23510: 00 00 00125 ST  store
       Stack Pop [11053] = integer 5d
       Stack Pop [11052] = addr 111036
       Stack Write [11036] = integer 5d
       SP = 11052
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11052] = integer 5d
       SP = 11053
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11053] = integer 1d
       SP = 11054
 23562: 00 00 00105 LES less <
       Stack Pop [11053] = integer 1d
       Stack Pop [11052] = integer 5d
       Stack Push [11052] = integer 1d
       SP = 11053
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11052] = integer 1d
       C = 0
       SP = 11052
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11052] = integer 0d
       Stack Push [11053] = addr 11031
       Stack Push [11054] = addr 23575
       Stack Push [11055] = addr 11052
       Stack Push [11056] = addr 0
       Stack Push [11057] = addr 0
       SP = 11060
       FP = 11053
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11056] = addr 2
       Stack Write [11057] = addr 11031
       Display [1] = 11031
       Display [2] = 11053
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11060] = addr 111036
       SP = 11061
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11061] = integer 5d
       SP = 11062
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11061] = integer 5d
       Stack Push [11061] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [11061] = integer 4d
       Stack Pop [11060] = addr 111036
       Stack Write [11036] = integer 4d
       SP = 11060
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11060] = integer 0d
       Stack Push [11061] = addr 11053
       Stack Push [11062] = addr 23551
       Stack Push [11063] = addr 11060
       Stack Push [11064] = addr 0
       Stack Push [11065] = addr 0
       Stack Push [11066] = integer 0d
       Stack Push [11067] = addr 211053
       Stack Push [11070] = integer 0d
       Stack Push [11071] = addr 211053
       Stack Push [11072] = integer 0d
       Stack Push [11073] = addr 211053
       Stack Push [11074] = integer 0d
       Stack Push [11075] = addr 211053
       Stack Push [11076] = integer 0d
       Stack Push [11077] = addr 211053
       Stack Push [11100] = integer 0d
       Stack Push [11101] = addr 211053
       SP = 11102
       FP = 11061
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11064] = addr 1
       Display [1] = 11061
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11102] = addr 111066
       SP = 11103
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11103] = integer 4d
       SP = 11104
 23510: 00 00 00125 ST  store
       Stack Pop [11103] = integer 4d
       Stack Pop [11102] = addr 111066
       Stack Write [11066] = integer 4d
       SP = 11102
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11102] = integer 4d
       SP = 11103
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11103] = integer 1d
       SP = 11104
 23562: 00 00 00105 LES less <
       Stack Pop [11103] = integer 1d
       Stack Pop [11102] = integer 4d
       Stack Push [11102] = integer 1d
       SP = 11103
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11102] = integer 1d
       SP = 11102
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11102] = integer 0d
       Stack Push [11103] = addr 11061
       Stack Push [11104] = addr 23575
       Stack Push [11105] = addr 11102
       Stack Push [11106] = addr 0
       Stack Push [11107] = addr 0
       SP = 11110
       FP = 11103
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11106] = addr 2
       Stack Write [11107] = addr 11061
       Display [1] = 11061
       Display [2] = 11103
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11110] = addr 111066
       SP = 11111
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11111] = integer 4d
       SP = 11112
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11111] = integer 4d
       Stack Push [11111] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [11111] = integer 3d
       Stack Pop [11110] = addr 111066
       Stack Write [11066] = integer 3d
       SP = 11110
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11110] = integer 0d
       Stack Push [11111] = addr 11103
       Stack Push [11112] = addr 23551
       Stack Push [11113] = addr 11110
       Stack Push [11114] = addr 0
       Stack Push [11115] = addr 0
       Stack Push [11116] = integer 0d
       Stack Push [11117] = addr 211103
       Stack Push [11120] = integer 0d
       Stack Push [11121] = addr 211103
       Stack Push [11122] = integer 0d
       Stack Push [11123] = addr 211103
       Stack Push [11124] = integer 0d
       Stack Push [11125] = addr 211103
       Stack Push [11126] = integer 0d
       Stack Push [11127] = addr 211103
       Stack Push [11130] = integer 0d
       Stack Push [11131] = addr 211103
       SP = 11132
       FP = 11111
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11114] = addr 1
       Display [1] = 11111
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11132] = addr 111116
       SP = 11133
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11133] = integer 3d
       SP = 11134
 23510: 00 00 00125 ST  store
       Stack Pop [11133] = integer 3d
       Stack Pop [11132] = addr 111116
       Stack Write [11116] = integer 3d
       SP = 11132
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11132] = integer 3d
       SP = 11133
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11133] = integer 1d
       SP = 11134
 23562: 00 00 00105 LES less <
       Stack Pop [11133] = integer 1d
       Stack Pop [11132] = integer 3d
       Stack Push [11132] = integer 1d
       SP = 11133
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11132] = integer 1d
       SP = 11132
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11132] = integer 0d
       Stack Push [11133] = addr 11111
       Stack Push [11134] = addr 23575
       Stack Push [11135] = addr 11132
       Stack Push [11136] = addr 0
       Stack Push [11137] = addr 0
       SP = 11140
       FP = 11133
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11136] = addr 2
       Stack Write [11137] = addr 11111
       Display [1] = 11111
       Display [2] = 11133
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11140] = addr 111116
       SP = 11141
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11141] = integer 3d
       SP = 11142
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11141] = integer 3d
       Stack Push [11141] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [11141] = integer 2d
       Stack Pop [11140] = addr 111116
       Stack Write [11116] = integer 2d
       SP = 11140
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11140] = integer 0d
       Stack Push [11141] = addr 11133
       Stack Push [11142] = addr 23551
       Stack Push [11143] = addr 11140
       Stack Push [11144] = addr 0
       Stack Push [11145] = addr 0
       Stack Push [11146] = integer 0d
       Stack Push [11147] = addr 211133
       Stack Push [11150] = integer 0d
       Stack Push [11151] = addr 211133
       Stack Push [11152] = integer 0d
       Stack Push [11153] = addr 211133
       Stack Push [11154] = integer 0d
       Stack Push [11155] = addr 211133
       Stack Push [11156] = integer 0d
       Stack Push [11157] = addr 211133
       Stack Push [11160] = integer 0d
       Stack Push [11161] = addr 211133
       SP = 11162
       FP = 11141
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11144] = addr 1
       Display [1] = 11141
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11162] = addr 111146
       SP = 11163
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11163] = integer 2d
       SP = 11164
 23510: 00 00 00125 ST  store
       Stack Pop [11163] = integer 2d
       Stack Pop [11162] = addr 111146
       Stack Write [11146] = integer 2d
       SP = 11162
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11162] = integer 2d
       SP = 11163
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11163] = integer 1d
       SP = 11164
 23562: 00 00 00105 LES less <
       Stack Pop [11163] = integer 1d
       Stack Pop [11162] = integer 2d
       Stack Push [11162] = integer 1d
       SP = 11163
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11162] = integer 1d
       SP = 11162
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11162] = integer 0d
       Stack Push [11163] = addr 11141
       Stack Push [11164] = addr 23575
       Stack Push [11165] = addr 11162
       Stack Push [11166] = addr 0
       Stack Push [11167] = addr 0
       SP = 11170
       FP = 11163
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11166] = addr 2
       Stack Write [11167] = addr 11141
       Display [1] = 11141
       Display [2] = 11163
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11170] = addr 111146
       SP = 11171
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11171] = integer 2d
       SP = 11172
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11171] = integer 2d
       Stack Push [11171] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [11171] = integer 1d
       Stack Pop [11170] = addr 111146
       Stack Write [11146] = integer 1d
       SP = 11170
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11170] = integer 0d
       Stack Push [11171] = addr 11163
       Stack Push [11172] = addr 23551
       Stack Push [11173] = addr 11170
       Stack Push [11174] = addr 0
       Stack Push [11175] = addr 0
       Stack Push [11176] = integer 0d
       Stack Push [11177] = addr 211163
       Stack Push [11200] = integer 0d
       Stack Push [11201] = addr 211163
       Stack Push [11202] = integer 0d
       Stack Push [11203] = addr 211163
       Stack Push [11204] = integer 0d
       Stack Push [11205] = addr 211163
       Stack Push [11206] = integer 0d
       Stack Push [11207] = addr 211163
       Stack Push [11210] = integer 0d
       Stack Push [11211] = addr 211163
       SP = 11212
       FP = 11171
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11174] = addr 1
       Display [1] = 11171
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11212] = addr 111176
       SP = 11213
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11213] = integer 1d
       SP = 11214
 23510: 00 00 00125 ST  store
       Stack Pop [11213] = integer 1d
       Stack Pop [11212] = addr 111176
       Stack Write [11176] = integer 1d
       SP = 11212
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11212] = integer 1d
       SP = 11213
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11213] = integer 1d
       SP = 11214
 23562: 00 00 00105 LES less <
       Stack Pop [11213] = integer 1d
       Stack Pop [11212] = integer 1d
       Stack Push [11212] = integer 1d
       SP = 11213
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11212] = integer 1d
       SP = 11212
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11212] = integer 0d
       Stack Push [11213] = addr 11171
       Stack Push [11214] = addr 23575
       Stack Push [11215] = addr 11212
       Stack Push [11216] = addr 0
       Stack Push [11217] = addr 0
       SP = 11220
       FP = 11213
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11216] = addr 2
       Stack Write [11217] = addr 11171
       Display [1] = 11171
       Display [2] = 11213
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11220] = addr 111176
       SP = 11221
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11221] = integer 1d
       SP = 11222
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11221] = integer 1d
       Stack Push [11221] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [11221] = integer 0d
       Stack Pop [11220] = addr 111176
       Stack Write [11176] = integer 0d
       SP = 11220
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11220] = integer 0d
       Stack Push [11221] = addr 11213
       Stack Push [11222] = addr 23551
       Stack Push [11223] = addr 11220
       Stack Push [11224] = addr 0
       Stack Push [11225] = addr 0
       Stack Push [11226] = integer 0d
       Stack Push [11227] = addr 211213
       Stack Push [11230] = integer 0d
       Stack Push [11231] = addr 211213
       Stack Push [11232] = integer 0d
       Stack Push [11233] = addr 211213
       Stack Push [11234] = integer 0d
       Stack Push [11235] = addr 211213
       Stack Push [11236] = integer 0d
       Stack Push [11237] = addr 211213
       Stack Push [11240] = integer 0d
       Stack Push [11241] = addr 211213
       SP = 11242
       FP = 11221
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11224] = addr 1
       Display [1] = 11221
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11242] = addr 111226
       SP = 11243
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11243] = integer 0d
       SP = 11244
 23510: 00 00 00125 ST  store
       Stack Pop [11243] = integer 0d
       Stack Pop [11242] = addr 111226
       Stack Write [11226] = integer 0d
       SP = 11242
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11242] = integer 0d
       SP = 11243
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11243] = integer 1d
       SP = 11244
 23562: 00 00 00105 LES less <
       Stack Pop [11243] = integer 1d
       Stack Pop [11242] = integer 0d
       Stack Push [11242] = integer 0d
       SP = 11243
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11242] = integer 0d
       C = 1
       SP = 11242
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 11221 -> Level 2, Frame 11213
       Stack Push [11242] = integer 0d
       Stack Push [11243] = addr 11221
       Stack Push [11244] = addr 23567
       Stack Push [11245] = addr 11242
       Stack Push [11246] = addr 0
       Stack Push [11247] = addr 0
       Stack Write [11246] = addr 2
       Stack Write [11247] = addr 11221
       Display [1] = 11171
       Display [2] = 11213
       SP = 11250
       FP = 11243
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 11213 -> Level 2, Frame 11163
       Stack Push [11250] = integer 0d
       Stack Push [11251] = addr 11243
       Stack Push [11252] = addr 23535
       Stack Push [11253] = addr 11250
       Stack Push [11254] = addr 0
       Stack Push [11255] = addr 0
       Stack Write [11254] = addr 2
       Stack Write [11255] = addr 11171
       Display [1] = 11141
       Display [2] = 11163
       SP = 11256
       FP = 11251
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 11163 -> Level 2, Frame 11133
       Stack Push [11256] = integer 0d
       Stack Push [11257] = addr 11251
       Stack Push [11260] = addr 23532
       Stack Push [11261] = addr 11256
       Stack Push [11262] = addr 0
       Stack Push [11263] = addr 0
       Stack Write [11262] = addr 2
       Stack Write [11263] = addr 11141
       Display [1] = 11111
       Display [2] = 11133
       SP = 11264
       FP = 11257
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 11133 -> Level 2, Frame 11103
       Stack Push [11264] = integer 0d
       Stack Push [11265] = addr 11257
       Stack Push [11266] = addr 23527
       Stack Push [11267] = addr 11264
       Stack Push [11270] = addr 0
       Stack Push [11271] = addr 0
       Stack Write [11270] = addr 2
       Stack Write [11271] = addr 11111
       Display [1] = 11061
       Display [2] = 11103
       SP = 11272
       FP = 11265
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11271] = addr 11061
       Display [2] = 11265
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11272] = addr 111066
       SP = 11273
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11273] = integer 3d
       SP = 11274
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11273] = integer 3d
       Stack Push [11273] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [11273] = integer 2d
       Stack Pop [11272] = addr 111066
       Stack Write [11066] = integer 2d
       SP = 11272
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11272] = integer 0d
       Stack Push [11273] = addr 11265
       Stack Push [11274] = addr 23551
       Stack Push [11275] = addr 11272
       Stack Push [11276] = addr 0
       Stack Push [11277] = addr 0
       Stack Push [11300] = integer 0d
       Stack Push [11301] = addr 211265
       Stack Push [11302] = integer 0d
       Stack Push [11303] = addr 211265
       Stack Push [11304] = integer 0d
       Stack Push [11305] = addr 211265
       Stack Push [11306] = integer 0d
       Stack Push [11307] = addr 211265
       Stack Push [11310] = integer 0d
       Stack Push [11311] = addr 211265
       Stack Push [11312] = integer 0d
       Stack Push [11313] = addr 211265
       SP = 11314
       FP = 11273
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11276] = addr 1
       Display [1] = 11273
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11314] = addr 111300
       SP = 11315
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11315] = integer 2d
       SP = 11316
 23510: 00 00 00125 ST  store
       Stack Pop [11315] = integer 2d
       Stack Pop [11314] = addr 111300
       Stack Write [11300] = integer 2d
       SP = 11314
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11314] = integer 2d
       SP = 11315
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11315] = integer 1d
       SP = 11316
 23562: 00 00 00105 LES less <
       Stack Pop [11315] = integer 1d
       Stack Pop [11314] = integer 2d
       Stack Push [11314] = integer 1d
       SP = 11315
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11314] = integer 1d
       C = 0
       SP = 11314
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11314] = integer 0d
       Stack Push [11315] = addr 11273
       Stack Push [11316] = addr 23575
       Stack Push [11317] = addr 11314
       Stack Push [11320] = addr 0
       Stack Push [11321] = addr 0
       SP = 11322
       FP = 11315
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11320] = addr 2
       Stack Write [11321] = addr 11273
       Display [1] = 11273
       Display [2] = 11315
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11322] = addr 111300
       SP = 11323
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11323] = integer 2d
       SP = 11324
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11323] = integer 2d
       Stack Push [11323] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [11323] = integer 1d
       Stack Pop [11322] = addr 111300
       Stack Write [11300] = integer 1d
       SP = 11322
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11322] = integer 0d
       Stack Push [11323] = addr 11315
       Stack Push [11324] = addr 23551
       Stack Push [11325] = addr 11322
       Stack Push [11326] = addr 0
       Stack Push [11327] = addr 0
       Stack Push [11330] = integer 0d
       Stack Push [11331] = addr 211315
       Stack Push [11332] = integer 0d
       Stack Push [11333] = addr 211315
       Stack Push [11334] = integer 0d
       Stack Push [11335] = addr 211315
       Stack Push [11336] = integer 0d
       Stack Push [11337] = addr 211315
       Stack Push [11340] = integer 0d
       Stack Push [11341] = addr 211315
       Stack Push [11342] = integer 0d
       Stack Push [11343] = addr 211315
       SP = 11344
       FP = 11323
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11326] = addr 1
       Display [1] = 11323
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11344] = addr 111330
       SP = 11345
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11345] = integer 1d
       SP = 11346
 23510: 00 00 00125 ST  store
       Stack Pop [11345] = integer 1d
       Stack Pop [11344] = addr 111330
       Stack Write [11330] = integer 1d
       SP = 11344
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11344] = integer 1d
       SP = 11345
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11345] = integer 1d
       SP = 11346
 23562: 00 00 00105 LES less <
       Stack Pop [11345] = integer 1d
       Stack Pop [11344] = integer 1d
       Stack Push [11344] = integer 1d
       SP = 11345
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11344] = integer 1d
       SP = 11344
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11344] = integer 0d
       Stack Push [11345] = addr 11323
       Stack Push [11346] = addr 23575
       Stack Push [11347] = addr 11344
       Stack Push [11350] = addr 0
       Stack Push [11351] = addr 0
       SP = 11352
       FP = 11345
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11350] = addr 2
       Stack Write [11351] = addr 11323
       Display [1] = 11323
       Display [2] = 11345
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11352] = addr 111330
       SP = 11353
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11353] = integer 1d
       SP = 11354
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11353] = integer 1d
       Stack Push [11353] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [11353] = integer 0d
       Stack Pop [11352] = addr 111330
       Stack Write [11330] = integer 0d
       SP = 11352
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11352] = integer 0d
       Stack Push [11353] = addr 11345
       Stack Push [11354] = addr 23551
       Stack Push [11355] = addr 11352
       Stack Push [11356] = addr 0
       Stack Push [11357] = addr 0
       Stack Push [11360] = integer 0d
       Stack Push [11361] = addr 211345
       Stack Push [11362] = integer 0d
       Stack Push [11363] = addr 211345
       Stack Push [11364] = integer 0d
       Stack Push [11365] = addr 211345
       Stack Push [11366] = integer 0d
       Stack Push [11367] = addr 211345
       Stack Push [11370] = integer 0d
       Stack Push [11371] = addr 211345
       Stack Push [11372] = integer 0d
       Stack Push [11373] = addr 211345
       SP = 11374
       FP = 11353
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11356] = addr 1
       Display [1] = 11353
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11374] = addr 111360
       SP = 11375
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11375] = integer 0d
       SP = 11376
 23510: 00 00 00125 ST  store
       Stack Pop [11375] = integer 0d
       Stack Pop [11374] = addr 111360
       Stack Write [11360] = integer 0d
       SP = 11374
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11374] = integer 0d
       SP = 11375
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11375] = integer 1d
       SP = 11376
 23562: 00 00 00105 LES less <
       Stack Pop [11375] = integer 1d
       Stack Pop [11374] = integer 0d
       Stack Push [11374] = integer 0d
       SP = 11375
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11374] = integer 0d
       C = 1
       SP = 11374
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 11353 -> Level 2, Frame 11345
       Stack Push [11374] = integer 0d
       Stack Push [11375] = addr 11353
       Stack Push [11376] = addr 23567
       Stack Push [11377] = addr 11374
       Stack Push [11400] = addr 0
       Stack Push [11401] = addr 0
       Stack Write [11400] = addr 2
       Stack Write [11401] = addr 11353
       Display [1] = 11323
       Display [2] = 11345
       SP = 11402
       FP = 11375
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 11345 -> Level 2, Frame 11315
       Stack Push [11402] = integer 0d
       Stack Push [11403] = addr 11375
       Stack Push [11404] = addr 23535
       Stack Push [11405] = addr 11402
       Stack Push [11406] = addr 0
       Stack Push [11407] = addr 0
       Stack Write [11406] = addr 2
       Stack Write [11407] = addr 11323
       Display [1] = 11273
       Display [2] = 11315
       SP = 11410
       FP = 11403
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 11315 -> Level 2, Frame 11265
       Stack Push [11410] = integer 0d
       Stack Push [11411] = addr 11403
       Stack Push [11412] = addr 23532
       Stack Push [11413] = addr 11410
       Stack Push [11414] = addr 0
       Stack Push [11415] = addr 0
       Stack Write [11414] = addr 2
       Stack Write [11415] = addr 11273
       Display [1] = 11061
       Display [2] = 11265
       SP = 11416
       FP = 11411
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 11265 -> Level 2, Frame 11053
       Stack Push [11416] = integer 0d
       Stack Push [11417] = addr 11411
       Stack Push [11420] = addr 23527
       Stack Push [11421] = addr 11416
       Stack Push [11422] = addr 0
       Stack Push [11423] = addr 0
       Stack Write [11422] = addr 2
       Stack Write [11423] = addr 11061
       Display [1] = 11031
       Display [2] = 11053
       SP = 11424
       FP = 11417
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11423] = addr 11031
       Display [2] = 11417
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11424] = addr 111036
       SP = 11425
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11425] = integer 4d
       SP = 11426
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11425] = integer 4d
       Stack Push [11425] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [11425] = integer 3d
       Stack Pop [11424] = addr 111036
       Stack Write [11036] = integer 3d
       SP = 11424
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11424] = integer 0d
       Stack Push [11425] = addr 11417
       Stack Push [11426] = addr 23551
       Stack Push [11427] = addr 11424
       Stack Push [11430] = addr 0
       Stack Push [11431] = addr 0
       Stack Push [11432] = integer 0d
       Stack Push [11433] = addr 211417
       Stack Push [11434] = integer 0d
       Stack Push [11435] = addr 211417
       Stack Push [11436] = integer 0d
       Stack Push [11437] = addr 211417
       Stack Push [11440] = integer 0d
       Stack Push [11441] = addr 211417
       Stack Push [11442] = integer 0d
       Stack Push [11443] = addr 211417
       Stack Push [11444] = integer 0d
       Stack Push [11445] = addr 211417
       SP = 11446
       FP = 11425
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11430] = addr 1
       Display [1] = 11425
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11446] = addr 111432
       SP = 11447
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11447] = integer 3d
       SP = 11450
 23510: 00 00 00125 ST  store
       Stack Pop [11447] = integer 3d
       Stack Pop [11446] = addr 111432
       Stack Write [11432] = integer 3d
       SP = 11446
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11446] = integer 3d
       SP = 11447
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11447] = integer 1d
       SP = 11450
 23562: 00 00 00105 LES less <
       Stack Pop [11447] = integer 1d
       Stack Pop [11446] = integer 3d
       Stack Push [11446] = integer 1d
       SP = 11447
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11446] = integer 1d
       C = 0
       SP = 11446
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11446] = integer 0d
       Stack Push [11447] = addr 11425
       Stack Push [11450] = addr 23575
       Stack Push [11451] = addr 11446
       Stack Push [11452] = addr 0
       Stack Push [11453] = addr 0
       SP = 11454
       FP = 11447
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11452] = addr 2
       Stack Write [11453] = addr 11425
       Display [1] = 11425
       Display [2] = 11447
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11454] = addr 111432
       SP = 11455
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11455] = integer 3d
       SP = 11456
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11455] = integer 3d
       Stack Push [11455] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [11455] = integer 2d
       Stack Pop [11454] = addr 111432
       Stack Write [11432] = integer 2d
       SP = 11454
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11454] = integer 0d
       Stack Push [11455] = addr 11447
       Stack Push [11456] = addr 23551
       Stack Push [11457] = addr 11454
       Stack Push [11460] = addr 0
       Stack Push [11461] = addr 0
       Stack Push [11462] = integer 0d
       Stack Push [11463] = addr 211447
       Stack Push [11464] = integer 0d
       Stack Push [11465] = addr 211447
       Stack Push [11466] = integer 0d
       Stack Push [11467] = addr 211447
       Stack Push [11470] = integer 0d
       Stack Push [11471] = addr 211447
       Stack Push [11472] = integer 0d
       Stack Push [11473] = addr 211447
       Stack Push [11474] = integer 0d
       Stack Push [11475] = addr 211447
       SP = 11476
       FP = 11455
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11460] = addr 1
       Display [1] = 11455
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11476] = addr 111462
       SP = 11477
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11477] = integer 2d
       SP = 11500
 23510: 00 00 00125 ST  store
       Stack Pop [11477] = integer 2d
       Stack Pop [11476] = addr 111462
       Stack Write [11462] = integer 2d
       SP = 11476
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11476] = integer 2d
       SP = 11477
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11477] = integer 1d
       SP = 11500
 23562: 00 00 00105 LES less <
       Stack Pop [11477] = integer 1d
       Stack Pop [11476] = integer 2d
       Stack Push [11476] = integer 1d
       SP = 11477
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11476] = integer 1d
       SP = 11476
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11476] = integer 0d
       Stack Push [11477] = addr 11455
       Stack Push [11500] = addr 23575
       Stack Push [11501] = addr 11476
       Stack Push [11502] = addr 0
       Stack Push [11503] = addr 0
       SP = 11504
       FP = 11477
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11502] = addr 2
       Stack Write [11503] = addr 11455
       Display [1] = 11455
       Display [2] = 11477
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11504] = addr 111462
       SP = 11505
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11505] = integer 2d
       SP = 11506
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11505] = integer 2d
       Stack Push [11505] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [11505] = integer 1d
       Stack Pop [11504] = addr 111462
       Stack Write [11462] = integer 1d
       SP = 11504
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11504] = integer 0d
       Stack Push [11505] = addr 11477
       Stack Push [11506] = addr 23551
       Stack Push [11507] = addr 11504
       Stack Push [11510] = addr 0
       Stack Push [11511] = addr 0
       Stack Push [11512] = integer 0d
       Stack Push [11513] = addr 211477
       Stack Push [11514] = integer 0d
       Stack Push [11515] = addr 211477
       Stack Push [11516] = integer 0d
       Stack Push [11517] = addr 211477
       Stack Push [11520] = integer 0d
       Stack Push [11521] = addr 211477
       Stack Push [11522] = integer 0d
       Stack Push [11523] = addr 211477
       Stack Push [11524] = integer 0d
       Stack Push [11525] = addr 211477
       SP = 11526
       FP = 11505
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11510] = addr 1
       Display [1] = 11505
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11526] = addr 111512
       SP = 11527
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11527] = integer 1d
       SP = 11530
 23510: 00 00 00125 ST  store
       Stack Pop [11527] = integer 1d
       Stack Pop [11526] = addr 111512
       Stack Write [11512] = integer 1d
       SP = 11526
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11526] = integer 1d
       SP = 11527
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11527] = integer 1d
       SP = 11530
 23562: 00 00 00105 LES less <
       Stack Pop [11527] = integer 1d
       Stack Pop [11526] = integer 1d
       Stack Push [11526] = integer 1d
       SP = 11527
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11526] = integer 1d
       SP = 11526
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11526] = integer 0d
       Stack Push [11527] = addr 11505
       Stack Push [11530] = addr 23575
       Stack Push [11531] = addr 11526
       Stack Push [11532] = addr 0
       Stack Push [11533] = addr 0
       SP = 11534
       FP = 11527
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11532] = addr 2
       Stack Write [11533] = addr 11505
       Display [1] = 11505
       Display [2] = 11527
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11534] = addr 111512
       SP = 11535
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11535] = integer 1d
       SP = 11536
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11535] = integer 1d
       Stack Push [11535] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [11535] = integer 0d
       Stack Pop [11534] = addr 111512
       Stack Write [11512] = integer 0d
       SP = 11534
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11534] = integer 0d
       Stack Push [11535] = addr 11527
       Stack Push [11536] = addr 23551
       Stack Push [11537] = addr 11534
       Stack Push [11540] = addr 0
       Stack Push [11541] = addr 0
       Stack Push [11542] = integer 0d
       Stack Push [11543] = addr 211527
       Stack Push [11544] = integer 0d
       Stack Push [11545] = addr 211527
       Stack Push [11546] = integer 0d
       Stack Push [11547] = addr 211527
       Stack Push [11550] = integer 0d
       Stack Push [11551] = addr 211527
       Stack Push [11552] = integer 0d
       Stack Push [11553] = addr 211527
       Stack Push [11554] = integer 0d
       Stack Push [11555] = addr 211527
       SP = 11556
       FP = 11535
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11540] = addr 1
       Display [1] = 11535
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11556] = addr 111542
       SP = 11557
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11557] = integer 0d
       SP = 11560
 23510: 00 00 00125 ST  store
       Stack Pop [11557] = integer 0d
       Stack Pop [11556] = addr 111542
       Stack Write [11542] = integer 0d
       SP = 11556
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11556] = integer 0d
       SP = 11557
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11557] = integer 1d
       SP = 11560
 23562: 00 00 00105 LES less <
       Stack Pop [11557] = integer 1d
       Stack Pop [11556] = integer 0d
       Stack Push [11556] = integer 0d
       SP = 11557
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11556] = integer 0d
       C = 1
       SP = 11556
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 11535 -> Level 2, Frame 11527
       Stack Push [11556] = integer 0d
       Stack Push [11557] = addr 11535
       Stack Push [11560] = addr 23567
       Stack Push [11561] = addr 11556
       Stack Push [11562] = addr 0
       Stack Push [11563] = addr 0
       Stack Write [11562] = addr 2
       Stack Write [11563] = addr 11535
       Display [1] = 11505
       Display [2] = 11527
       SP = 11564
       FP = 11557
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 11527 -> Level 2, Frame 11477
       Stack Push [11564] = integer 0d
       Stack Push [11565] = addr 11557
       Stack Push [11566] = addr 23535
       Stack Push [11567] = addr 11564
       Stack Push [11570] = addr 0
       Stack Push [11571] = addr 0
       Stack Write [11570] = addr 2
       Stack Write [11571] = addr 11505
       Display [1] = 11455
       Display [2] = 11477
       SP = 11572
       FP = 11565
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 11477 -> Level 2, Frame 11447
       Stack Push [11572] = integer 0d
       Stack Push [11573] = addr 11565
       Stack Push [11574] = addr 23532
       Stack Push [11575] = addr 11572
       Stack Push [11576] = addr 0
       Stack Push [11577] = addr 0
       Stack Write [11576] = addr 2
       Stack Write [11577] = addr 11455
       Display [1] = 11425
       Display [2] = 11447
       SP = 11600
       FP = 11573
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 11447 -> Level 2, Frame 11417
       Stack Push [11600] = integer 0d
       Stack Push [11601] = addr 11573
       Stack Push [11602] = addr 23527
       Stack Push [11603] = addr 11600
       Stack Push [11604] = addr 0
       Stack Push [11605] = addr 0
       Stack Write [11604] = addr 2
       Stack Write [11605] = addr 11425
       Display [1] = 11031
       Display [2] = 11417
       SP = 11606
       FP = 11601
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11605] = addr 11031
       Display [2] = 11601
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11606] = addr 111036
       SP = 11607
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11607] = integer 3d
       SP = 11610
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11607] = integer 3d
       Stack Push [11607] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [11607] = integer 2d
       Stack Pop [11606] = addr 111036
       Stack Write [11036] = integer 2d
       SP = 11606
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11606] = integer 0d
       Stack Push [11607] = addr 11601
       Stack Push [11610] = addr 23551
       Stack Push [11611] = addr 11606
       Stack Push [11612] = addr 0
       Stack Push [11613] = addr 0
       Stack Push [11614] = integer 0d
       Stack Push [11615] = addr 211601
       Stack Push [11616] = integer 0d
       Stack Push [11617] = addr 211601
       Stack Push [11620] = integer 0d
       Stack Push [11621] = addr 211601
       Stack Push [11622] = integer 0d
       Stack Push [11623] = addr 211601
       Stack Push [11624] = integer 0d
       Stack Push [11625] = addr 211601
       Stack Push [11626] = integer 0d
       Stack Push [11627] = addr 211601
       SP = 11630
       FP = 11607
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11612] = addr 1
       Display [1] = 11607
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11630] = addr 111614
       SP = 11631
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11631] = integer 2d
       SP = 11632
 23510: 00 00 00125 ST  store
       Stack Pop [11631] = integer 2d
       Stack Pop [11630] = addr 111614
       Stack Write [11614] = integer 2d
       SP = 11630
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11630] = integer 2d
       SP = 11631
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11631] = integer 1d
       SP = 11632
 23562: 00 00 00105 LES less <
       Stack Pop [11631] = integer 1d
       Stack Pop [11630] = integer 2d
       Stack Push [11630] = integer 1d
       SP = 11631
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11630] = integer 1d
       C = 0
       SP = 11630
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11630] = integer 0d
       Stack Push [11631] = addr 11607
       Stack Push [11632] = addr 23575
       Stack Push [11633] = addr 11630
       Stack Push [11634] = addr 0
       Stack Push [11635] = addr 0
       SP = 11636
       FP = 11631
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11634] = addr 2
       Stack Write [11635] = addr 11607
       Display [1] = 11607
       Display [2] = 11631
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11636] = addr 111614
       SP = 11637
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11637] = integer 2d
       SP = 11640
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11637] = integer 2d
       Stack Push [11637] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [11637] = integer 1d
       Stack Pop [11636] = addr 111614
       Stack Write [11614] = integer 1d
       SP = 11636
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11636] = integer 0d
       Stack Push [11637] = addr 11631
       Stack Push [11640] = addr 23551
       Stack Push [11641] = addr 11636
       Stack Push [11642] = addr 0
       Stack Push [11643] = addr 0
       Stack Push [11644] = integer 0d
       Stack Push [11645] = addr 211631
       Stack Push [11646] = integer 0d
       Stack Push [11647] = addr 211631
       Stack Push [11650] = integer 0d
       Stack Push [11651] = addr 211631
       Stack Push [11652] = integer 0d
       Stack Push [11653] = addr 211631
       Stack Push [11654] = integer 0d
       Stack Push [11655] = addr 211631
       Stack Push [11656] = integer 0d
       Stack Push [11657] = addr 211631
       SP = 11660
       FP = 11637
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11642] = addr 1
       Display [1] = 11637
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11660] = addr 111644
       SP = 11661
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11661] = integer 1d
       SP = 11662
 23510: 00 00 00125 ST  store
       Stack Pop [11661] = integer 1d
       Stack Pop [11660] = addr 111644
       Stack Write [11644] = integer 1d
       SP = 11660
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11660] = integer 1d
       SP = 11661
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11661] = integer 1d
       SP = 11662
 23562: 00 00 00105 LES less <
       Stack Pop [11661] = integer 1d
       Stack Pop [11660] = integer 1d
       Stack Push [11660] = integer 1d
       SP = 11661
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11660] = integer 1d
       SP = 11660
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11660] = integer 0d
       Stack Push [11661] = addr 11637
       Stack Push [11662] = addr 23575
       Stack Push [11663] = addr 11660
       Stack Push [11664] = addr 0
       Stack Push [11665] = addr 0
       SP = 11666
       FP = 11661
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11664] = addr 2
       Stack Write [11665] = addr 11637
       Display [1] = 11637
       Display [2] = 11661
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11666] = addr 111644
       SP = 11667
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11667] = integer 1d
       SP = 11670
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11667] = integer 1d
       Stack Push [11667] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [11667] = integer 0d
       Stack Pop [11666] = addr 111644
       Stack Write [11644] = integer 0d
       SP = 11666
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11666] = integer 0d
       Stack Push [11667] = addr 11661
       Stack Push [11670] = addr 23551
       Stack Push [11671] = addr 11666
       Stack Push [11672] = addr 0
       Stack Push [11673] = addr 0
       Stack Push [11674] = integer 0d
       Stack Push [11675] = addr 211661
       Stack Push [11676] = integer 0d
       Stack Push [11677] = addr 211661
       Stack Push [11700] = integer 0d
       Stack Push [11701] = addr 211661
       Stack Push [11702] = integer 0d
       Stack Push [11703] = addr 211661
       Stack Push [11704] = integer 0d
       Stack Push [11705] = addr 211661
       Stack Push [11706] = integer 0d
       Stack Push [11707] = addr 211661
       SP = 11710
       FP = 11667
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11672] = addr 1
       Display [1] = 11667
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11710] = addr 111674
       SP = 11711
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11711] = integer 0d
       SP = 11712
 23510: 00 00 00125 ST  store
       Stack Pop [11711] = integer 0d
       Stack Pop [11710] = addr 111674
       Stack Write [11674] = integer 0d
       SP = 11710
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11710] = integer 0d
       SP = 11711
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11711] = integer 1d
       SP = 11712
 23562: 00 00 00105 LES less <
       Stack Pop [11711] = integer 1d
       Stack Pop [11710] = integer 0d
       Stack Push [11710] = integer 0d
       SP = 11711
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11710] = integer 0d
       C = 1
       SP = 11710
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 11667 -> Level 2, Frame 11661
       Stack Push [11710] = integer 0d
       Stack Push [11711] = addr 11667
       Stack Push [11712] = addr 23567
       Stack Push [11713] = addr 11710
       Stack Push [11714] = addr 0
       Stack Push [11715] = addr 0
       Stack Write [11714] = addr 2
       Stack Write [11715] = addr 11667
       Display [1] = 11637
       Display [2] = 11661
       SP = 11716
       FP = 11711
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 11661 -> Level 2, Frame 11631
       Stack Push [11716] = integer 0d
       Stack Push [11717] = addr 11711
       Stack Push [11720] = addr 23535
       Stack Push [11721] = addr 11716
       Stack Push [11722] = addr 0
       Stack Push [11723] = addr 0
       Stack Write [11722] = addr 2
       Stack Write [11723] = addr 11637
       Display [1] = 11607
       Display [2] = 11631
       SP = 11724
       FP = 11717
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 11631 -> Level 2, Frame 11601
       Stack Push [11724] = integer 0d
       Stack Push [11725] = addr 11717
       Stack Push [11726] = addr 23532
       Stack Push [11727] = addr 11724
       Stack Push [11730] = addr 0
       Stack Push [11731] = addr 0
       Stack Write [11730] = addr 2
       Stack Write [11731] = addr 11607
       Display [1] = 11031
       Display [2] = 11601
       SP = 11732
       FP = 11725
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 11601 -> Level 2, Frame 11023
       Stack Push [11732] = integer 0d
       Stack Push [11733] = addr 11725
       Stack Push [11734] = addr 23527
       Stack Push [11735] = addr 11732
       Stack Push [11736] = addr 0
       Stack Push [11737] = addr 0
       Stack Write [11736] = addr 2
       Stack Write [11737] = addr 11031
       Display [1] = 07161
       Display [2] = 11023
       SP = 11740
       FP = 11733
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11737] = addr 7161
       Display [2] = 11733
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11740] = addr 107166
       SP = 11741
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11741] = integer 5d
       SP = 11742
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11741] = integer 5d
       Stack Push [11741] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [11741] = integer 4d
       Stack Pop [11740] = addr 107166
       Stack Write [7166] = integer 4d
       SP = 11740
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11740] = integer 0d
       Stack Push [11741] = addr 11733
       Stack Push [11742] = addr 23551
       Stack Push [11743] = addr 11740
       Stack Push [11744] = addr 0
       Stack Push [11745] = addr 0
       Stack Push [11746] = integer 0d
       Stack Push [11747] = addr 211733
       Stack Push [11750] = integer 0d
       Stack Push [11751] = addr 211733
       Stack Push [11752] = integer 0d
       Stack Push [11753] = addr 211733
       Stack Push [11754] = integer 0d
       Stack Push [11755] = addr 211733
       Stack Push [11756] = integer 0d
       Stack Push [11757] = addr 211733
       Stack Push [11760] = integer 0d
       Stack Push [11761] = addr 211733
       SP = 11762
       FP = 11741
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11744] = addr 1
       Display [1] = 11741
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11762] = addr 111746
       SP = 11763
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [11763] = integer 4d
       SP = 11764
 23510: 00 00 00125 ST  store
       Stack Pop [11763] = integer 4d
       Stack Pop [11762] = addr 111746
       Stack Write [11746] = integer 4d
       SP = 11762
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11762] = integer 4d
       SP = 11763
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [11763] = integer 1d
       SP = 11764
 23562: 00 00 00105 LES less <
       Stack Pop [11763] = integer 1d
       Stack Pop [11762] = integer 4d
       Stack Push [11762] = integer 1d
       SP = 11763
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [11762] = integer 1d
       C = 0
       SP = 11762
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [11762] = integer 0d
       Stack Push [11763] = addr 11741
       Stack Push [11764] = addr 23575
       Stack Push [11765] = addr 11762
       Stack Push [11766] = addr 0
       Stack Push [11767] = addr 0
       SP = 11770
       FP = 11763
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [11766] = addr 2
       Stack Write [11767] = addr 11741
       Display [1] = 11741
       Display [2] = 11763
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [11770] = addr 111746
       SP = 11771
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [11771] = integer 4d
       SP = 11772
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [11771] = integer 4d
       Stack Push [11771] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [11771] = integer 3d
       Stack Pop [11770] = addr 111746
       Stack Write [11746] = integer 3d
       SP = 11770
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [11770] = integer 0d
       Stack Push [11771] = addr 11763
       Stack Push [11772] = addr 23551
       Stack Push [11773] = addr 11770
       Stack Push [11774] = addr 0
       Stack Push [11775] = addr 0
       Stack Push [11776] = integer 0d
       Stack Push [11777] = addr 211763
       Stack Push [12000] = integer 0d
       Stack Push [12001] = addr 211763
       Stack Push [12002] = integer 0d
       Stack Push [12003] = addr 211763
       Stack Push [12004] = integer 0d
       Stack Push [12005] = addr 211763
       Stack Push [12006] = integer 0d
       Stack Push [12007] = addr 211763
       Stack Push [12010] = integer 0d
       Stack Push [12011] = addr 211763
       SP = 12012
       FP = 11771
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [11774] = addr 1
       Display [1] = 11771
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12012] = addr 111776
       SP = 12013
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12013] = integer 3d
       SP = 12014
 23510: 00 00 00125 ST  store
       Stack Pop [12013] = integer 3d
       Stack Pop [12012] = addr 111776
       Stack Write [11776] = integer 3d
       SP = 12012
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12012] = integer 3d
       SP = 12013
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12013] = integer 1d
       SP = 12014
 23562: 00 00 00105 LES less <
       Stack Pop [12013] = integer 1d
       Stack Pop [12012] = integer 3d
       Stack Push [12012] = integer 1d
       SP = 12013
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12012] = integer 1d
       SP = 12012
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12012] = integer 0d
       Stack Push [12013] = addr 11771
       Stack Push [12014] = addr 23575
       Stack Push [12015] = addr 12012
       Stack Push [12016] = addr 0
       Stack Push [12017] = addr 0
       SP = 12020
       FP = 12013
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12016] = addr 2
       Stack Write [12017] = addr 11771
       Display [1] = 11771
       Display [2] = 12013
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12020] = addr 111776
       SP = 12021
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12021] = integer 3d
       SP = 12022
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12021] = integer 3d
       Stack Push [12021] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [12021] = integer 2d
       Stack Pop [12020] = addr 111776
       Stack Write [11776] = integer 2d
       SP = 12020
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12020] = integer 0d
       Stack Push [12021] = addr 12013
       Stack Push [12022] = addr 23551
       Stack Push [12023] = addr 12020
       Stack Push [12024] = addr 0
       Stack Push [12025] = addr 0
       Stack Push [12026] = integer 0d
       Stack Push [12027] = addr 212013
       Stack Push [12030] = integer 0d
       Stack Push [12031] = addr 212013
       Stack Push [12032] = integer 0d
       Stack Push [12033] = addr 212013
       Stack Push [12034] = integer 0d
       Stack Push [12035] = addr 212013
       Stack Push [12036] = integer 0d
       Stack Push [12037] = addr 212013
       Stack Push [12040] = integer 0d
       Stack Push [12041] = addr 212013
       SP = 12042
       FP = 12021
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12024] = addr 1
       Display [1] = 12021
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12042] = addr 112026
       SP = 12043
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12043] = integer 2d
       SP = 12044
 23510: 00 00 00125 ST  store
       Stack Pop [12043] = integer 2d
       Stack Pop [12042] = addr 112026
       Stack Write [12026] = integer 2d
       SP = 12042
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12042] = integer 2d
       SP = 12043
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12043] = integer 1d
       SP = 12044
 23562: 00 00 00105 LES less <
       Stack Pop [12043] = integer 1d
       Stack Pop [12042] = integer 2d
       Stack Push [12042] = integer 1d
       SP = 12043
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12042] = integer 1d
       SP = 12042
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12042] = integer 0d
       Stack Push [12043] = addr 12021
       Stack Push [12044] = addr 23575
       Stack Push [12045] = addr 12042
       Stack Push [12046] = addr 0
       Stack Push [12047] = addr 0
       SP = 12050
       FP = 12043
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12046] = addr 2
       Stack Write [12047] = addr 12021
       Display [1] = 12021
       Display [2] = 12043
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12050] = addr 112026
       SP = 12051
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12051] = integer 2d
       SP = 12052
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12051] = integer 2d
       Stack Push [12051] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [12051] = integer 1d
       Stack Pop [12050] = addr 112026
       Stack Write [12026] = integer 1d
       SP = 12050
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12050] = integer 0d
       Stack Push [12051] = addr 12043
       Stack Push [12052] = addr 23551
       Stack Push [12053] = addr 12050
       Stack Push [12054] = addr 0
       Stack Push [12055] = addr 0
       Stack Push [12056] = integer 0d
       Stack Push [12057] = addr 212043
       Stack Push [12060] = integer 0d
       Stack Push [12061] = addr 212043
       Stack Push [12062] = integer 0d
       Stack Push [12063] = addr 212043
       Stack Push [12064] = integer 0d
       Stack Push [12065] = addr 212043
       Stack Push [12066] = integer 0d
       Stack Push [12067] = addr 212043
       Stack Push [12070] = integer 0d
       Stack Push [12071] = addr 212043
       SP = 12072
       FP = 12051
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12054] = addr 1
       Display [1] = 12051
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12072] = addr 112056
       SP = 12073
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12073] = integer 1d
       SP = 12074
 23510: 00 00 00125 ST  store
       Stack Pop [12073] = integer 1d
       Stack Pop [12072] = addr 112056
       Stack Write [12056] = integer 1d
       SP = 12072
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12072] = integer 1d
       SP = 12073
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12073] = integer 1d
       SP = 12074
 23562: 00 00 00105 LES less <
       Stack Pop [12073] = integer 1d
       Stack Pop [12072] = integer 1d
       Stack Push [12072] = integer 1d
       SP = 12073
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12072] = integer 1d
       SP = 12072
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12072] = integer 0d
       Stack Push [12073] = addr 12051
       Stack Push [12074] = addr 23575
       Stack Push [12075] = addr 12072
       Stack Push [12076] = addr 0
       Stack Push [12077] = addr 0
       SP = 12100
       FP = 12073
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12076] = addr 2
       Stack Write [12077] = addr 12051
       Display [1] = 12051
       Display [2] = 12073
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12100] = addr 112056
       SP = 12101
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12101] = integer 1d
       SP = 12102
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12101] = integer 1d
       Stack Push [12101] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [12101] = integer 0d
       Stack Pop [12100] = addr 112056
       Stack Write [12056] = integer 0d
       SP = 12100
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12100] = integer 0d
       Stack Push [12101] = addr 12073
       Stack Push [12102] = addr 23551
       Stack Push [12103] = addr 12100
       Stack Push [12104] = addr 0
       Stack Push [12105] = addr 0
       Stack Push [12106] = integer 0d
       Stack Push [12107] = addr 212073
       Stack Push [12110] = integer 0d
       Stack Push [12111] = addr 212073
       Stack Push [12112] = integer 0d
       Stack Push [12113] = addr 212073
       Stack Push [12114] = integer 0d
       Stack Push [12115] = addr 212073
       Stack Push [12116] = integer 0d
       Stack Push [12117] = addr 212073
       Stack Push [12120] = integer 0d
       Stack Push [12121] = addr 212073
       SP = 12122
       FP = 12101
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12104] = addr 1
       Display [1] = 12101
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12122] = addr 112106
       SP = 12123
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12123] = integer 0d
       SP = 12124
 23510: 00 00 00125 ST  store
       Stack Pop [12123] = integer 0d
       Stack Pop [12122] = addr 112106
       Stack Write [12106] = integer 0d
       SP = 12122
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12122] = integer 0d
       SP = 12123
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12123] = integer 1d
       SP = 12124
 23562: 00 00 00105 LES less <
       Stack Pop [12123] = integer 1d
       Stack Pop [12122] = integer 0d
       Stack Push [12122] = integer 0d
       SP = 12123
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12122] = integer 0d
       C = 1
       SP = 12122
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 12101 -> Level 2, Frame 12073
       Stack Push [12122] = integer 0d
       Stack Push [12123] = addr 12101
       Stack Push [12124] = addr 23567
       Stack Push [12125] = addr 12122
       Stack Push [12126] = addr 0
       Stack Push [12127] = addr 0
       Stack Write [12126] = addr 2
       Stack Write [12127] = addr 12101
       Display [1] = 12051
       Display [2] = 12073
       SP = 12130
       FP = 12123
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 12073 -> Level 2, Frame 12043
       Stack Push [12130] = integer 0d
       Stack Push [12131] = addr 12123
       Stack Push [12132] = addr 23535
       Stack Push [12133] = addr 12130
       Stack Push [12134] = addr 0
       Stack Push [12135] = addr 0
       Stack Write [12134] = addr 2
       Stack Write [12135] = addr 12051
       Display [1] = 12021
       Display [2] = 12043
       SP = 12136
       FP = 12131
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 12043 -> Level 2, Frame 12013
       Stack Push [12136] = integer 0d
       Stack Push [12137] = addr 12131
       Stack Push [12140] = addr 23532
       Stack Push [12141] = addr 12136
       Stack Push [12142] = addr 0
       Stack Push [12143] = addr 0
       Stack Write [12142] = addr 2
       Stack Write [12143] = addr 12021
       Display [1] = 11771
       Display [2] = 12013
       SP = 12144
       FP = 12137
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 12013 -> Level 2, Frame 11763
       Stack Push [12144] = integer 0d
       Stack Push [12145] = addr 12137
       Stack Push [12146] = addr 23527
       Stack Push [12147] = addr 12144
       Stack Push [12150] = addr 0
       Stack Push [12151] = addr 0
       Stack Write [12150] = addr 2
       Stack Write [12151] = addr 11771
       Display [1] = 11741
       Display [2] = 11763
       SP = 12152
       FP = 12145
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12151] = addr 11741
       Display [2] = 12145
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12152] = addr 111746
       SP = 12153
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12153] = integer 3d
       SP = 12154
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12153] = integer 3d
       Stack Push [12153] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [12153] = integer 2d
       Stack Pop [12152] = addr 111746
       Stack Write [11746] = integer 2d
       SP = 12152
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12152] = integer 0d
       Stack Push [12153] = addr 12145
       Stack Push [12154] = addr 23551
       Stack Push [12155] = addr 12152
       Stack Push [12156] = addr 0
       Stack Push [12157] = addr 0
       Stack Push [12160] = integer 0d
       Stack Push [12161] = addr 212145
       Stack Push [12162] = integer 0d
       Stack Push [12163] = addr 212145
       Stack Push [12164] = integer 0d
       Stack Push [12165] = addr 212145
       Stack Push [12166] = integer 0d
       Stack Push [12167] = addr 212145
       Stack Push [12170] = integer 0d
       Stack Push [12171] = addr 212145
       Stack Push [12172] = integer 0d
       Stack Push [12173] = addr 212145
       SP = 12174
       FP = 12153
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12156] = addr 1
       Display [1] = 12153
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12174] = addr 112160
       SP = 12175
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12175] = integer 2d
       SP = 12176
 23510: 00 00 00125 ST  store
       Stack Pop [12175] = integer 2d
       Stack Pop [12174] = addr 112160
       Stack Write [12160] = integer 2d
       SP = 12174
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12174] = integer 2d
       SP = 12175
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12175] = integer 1d
       SP = 12176
 23562: 00 00 00105 LES less <
       Stack Pop [12175] = integer 1d
       Stack Pop [12174] = integer 2d
       Stack Push [12174] = integer 1d
       SP = 12175
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12174] = integer 1d
       C = 0
       SP = 12174
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12174] = integer 0d
       Stack Push [12175] = addr 12153
       Stack Push [12176] = addr 23575
       Stack Push [12177] = addr 12174
       Stack Push [12200] = addr 0
       Stack Push [12201] = addr 0
       SP = 12202
       FP = 12175
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12200] = addr 2
       Stack Write [12201] = addr 12153
       Display [1] = 12153
       Display [2] = 12175
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12202] = addr 112160
       SP = 12203
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12203] = integer 2d
       SP = 12204
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12203] = integer 2d
       Stack Push [12203] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [12203] = integer 1d
       Stack Pop [12202] = addr 112160
       Stack Write [12160] = integer 1d
       SP = 12202
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12202] = integer 0d
       Stack Push [12203] = addr 12175
       Stack Push [12204] = addr 23551
       Stack Push [12205] = addr 12202
       Stack Push [12206] = addr 0
       Stack Push [12207] = addr 0
       Stack Push [12210] = integer 0d
       Stack Push [12211] = addr 212175
       Stack Push [12212] = integer 0d
       Stack Push [12213] = addr 212175
       Stack Push [12214] = integer 0d
       Stack Push [12215] = addr 212175
       Stack Push [12216] = integer 0d
       Stack Push [12217] = addr 212175
       Stack Push [12220] = integer 0d
       Stack Push [12221] = addr 212175
       Stack Push [12222] = integer 0d
       Stack Push [12223] = addr 212175
       SP = 12224
       FP = 12203
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12206] = addr 1
       Display [1] = 12203
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12224] = addr 112210
       SP = 12225
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12225] = integer 1d
       SP = 12226
 23510: 00 00 00125 ST  store
       Stack Pop [12225] = integer 1d
       Stack Pop [12224] = addr 112210
       Stack Write [12210] = integer 1d
       SP = 12224
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12224] = integer 1d
       SP = 12225
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12225] = integer 1d
       SP = 12226
 23562: 00 00 00105 LES less <
       Stack Pop [12225] = integer 1d
       Stack Pop [12224] = integer 1d
       Stack Push [12224] = integer 1d
       SP = 12225
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12224] = integer 1d
       SP = 12224
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12224] = integer 0d
       Stack Push [12225] = addr 12203
       Stack Push [12226] = addr 23575
       Stack Push [12227] = addr 12224
       Stack Push [12230] = addr 0
       Stack Push [12231] = addr 0
       SP = 12232
       FP = 12225
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12230] = addr 2
       Stack Write [12231] = addr 12203
       Display [1] = 12203
       Display [2] = 12225
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12232] = addr 112210
       SP = 12233
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12233] = integer 1d
       SP = 12234
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12233] = integer 1d
       Stack Push [12233] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [12233] = integer 0d
       Stack Pop [12232] = addr 112210
       Stack Write [12210] = integer 0d
       SP = 12232
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12232] = integer 0d
       Stack Push [12233] = addr 12225
       Stack Push [12234] = addr 23551
       Stack Push [12235] = addr 12232
       Stack Push [12236] = addr 0
       Stack Push [12237] = addr 0
       Stack Push [12240] = integer 0d
       Stack Push [12241] = addr 212225
       Stack Push [12242] = integer 0d
       Stack Push [12243] = addr 212225
       Stack Push [12244] = integer 0d
       Stack Push [12245] = addr 212225
       Stack Push [12246] = integer 0d
       Stack Push [12247] = addr 212225
       Stack Push [12250] = integer 0d
       Stack Push [12251] = addr 212225
       Stack Push [12252] = integer 0d
       Stack Push [12253] = addr 212225
       SP = 12254
       FP = 12233
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12236] = addr 1
       Display [1] = 12233
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12254] = addr 112240
       SP = 12255
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12255] = integer 0d
       SP = 12256
 23510: 00 00 00125 ST  store
       Stack Pop [12255] = integer 0d
       Stack Pop [12254] = addr 112240
       Stack Write [12240] = integer 0d
       SP = 12254
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12254] = integer 0d
       SP = 12255
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12255] = integer 1d
       SP = 12256
 23562: 00 00 00105 LES less <
       Stack Pop [12255] = integer 1d
       Stack Pop [12254] = integer 0d
       Stack Push [12254] = integer 0d
       SP = 12255
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12254] = integer 0d
       C = 1
       SP = 12254
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 12233 -> Level 2, Frame 12225
       Stack Push [12254] = integer 0d
       Stack Push [12255] = addr 12233
       Stack Push [12256] = addr 23567
       Stack Push [12257] = addr 12254
       Stack Push [12260] = addr 0
       Stack Push [12261] = addr 0
       Stack Write [12260] = addr 2
       Stack Write [12261] = addr 12233
       Display [1] = 12203
       Display [2] = 12225
       SP = 12262
       FP = 12255
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 12225 -> Level 2, Frame 12175
       Stack Push [12262] = integer 0d
       Stack Push [12263] = addr 12255
       Stack Push [12264] = addr 23535
       Stack Push [12265] = addr 12262
       Stack Push [12266] = addr 0
       Stack Push [12267] = addr 0
       Stack Write [12266] = addr 2
       Stack Write [12267] = addr 12203
       Display [1] = 12153
       Display [2] = 12175
       SP = 12270
       FP = 12263
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 12175 -> Level 2, Frame 12145
       Stack Push [12270] = integer 0d
       Stack Push [12271] = addr 12263
       Stack Push [12272] = addr 23532
       Stack Push [12273] = addr 12270
       Stack Push [12274] = addr 0
       Stack Push [12275] = addr 0
       Stack Write [12274] = addr 2
       Stack Write [12275] = addr 12153
       Display [1] = 11741
       Display [2] = 12145
       SP = 12276
       FP = 12271
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 12145 -> Level 2, Frame 11733
       Stack Push [12276] = integer 0d
       Stack Push [12277] = addr 12271
       Stack Push [12300] = addr 23527
       Stack Push [12301] = addr 12276
       Stack Push [12302] = addr 0
       Stack Push [12303] = addr 0
       Stack Write [12302] = addr 2
       Stack Write [12303] = addr 11741
       Display [1] = 07161
       Display [2] = 11733
       SP = 12304
       FP = 12277
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12303] = addr 7161
       Display [2] = 12277
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12304] = addr 107166
       SP = 12305
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12305] = integer 4d
       SP = 12306
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12305] = integer 4d
       Stack Push [12305] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [12305] = integer 3d
       Stack Pop [12304] = addr 107166
       Stack Write [7166] = integer 3d
       SP = 12304
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12304] = integer 0d
       Stack Push [12305] = addr 12277
       Stack Push [12306] = addr 23551
       Stack Push [12307] = addr 12304
       Stack Push [12310] = addr 0
       Stack Push [12311] = addr 0
       Stack Push [12312] = integer 0d
       Stack Push [12313] = addr 212277
       Stack Push [12314] = integer 0d
       Stack Push [12315] = addr 212277
       Stack Push [12316] = integer 0d
       Stack Push [12317] = addr 212277
       Stack Push [12320] = integer 0d
       Stack Push [12321] = addr 212277
       Stack Push [12322] = integer 0d
       Stack Push [12323] = addr 212277
       Stack Push [12324] = integer 0d
       Stack Push [12325] = addr 212277
       SP = 12326
       FP = 12305
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12310] = addr 1
       Display [1] = 12305
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12326] = addr 112312
       SP = 12327
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12327] = integer 3d
       SP = 12330
 23510: 00 00 00125 ST  store
       Stack Pop [12327] = integer 3d
       Stack Pop [12326] = addr 112312
       Stack Write [12312] = integer 3d
       SP = 12326
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12326] = integer 3d
       SP = 12327
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12327] = integer 1d
       SP = 12330
 23562: 00 00 00105 LES less <
       Stack Pop [12327] = integer 1d
       Stack Pop [12326] = integer 3d
       Stack Push [12326] = integer 1d
       SP = 12327
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12326] = integer 1d
       C = 0
       SP = 12326
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12326] = integer 0d
       Stack Push [12327] = addr 12305
       Stack Push [12330] = addr 23575
       Stack Push [12331] = addr 12326
       Stack Push [12332] = addr 0
       Stack Push [12333] = addr 0
       SP = 12334
       FP = 12327
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12332] = addr 2
       Stack Write [12333] = addr 12305
       Display [1] = 12305
       Display [2] = 12327
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12334] = addr 112312
       SP = 12335
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12335] = integer 3d
       SP = 12336
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12335] = integer 3d
       Stack Push [12335] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [12335] = integer 2d
       Stack Pop [12334] = addr 112312
       Stack Write [12312] = integer 2d
       SP = 12334
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12334] = integer 0d
       Stack Push [12335] = addr 12327
       Stack Push [12336] = addr 23551
       Stack Push [12337] = addr 12334
       Stack Push [12340] = addr 0
       Stack Push [12341] = addr 0
       Stack Push [12342] = integer 0d
       Stack Push [12343] = addr 212327
       Stack Push [12344] = integer 0d
       Stack Push [12345] = addr 212327
       Stack Push [12346] = integer 0d
       Stack Push [12347] = addr 212327
       Stack Push [12350] = integer 0d
       Stack Push [12351] = addr 212327
       Stack Push [12352] = integer 0d
       Stack Push [12353] = addr 212327
       Stack Push [12354] = integer 0d
       Stack Push [12355] = addr 212327
       SP = 12356
       FP = 12335
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12340] = addr 1
       Display [1] = 12335
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12356] = addr 112342
       SP = 12357
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12357] = integer 2d
       SP = 12360
 23510: 00 00 00125 ST  store
       Stack Pop [12357] = integer 2d
       Stack Pop [12356] = addr 112342
       Stack Write [12342] = integer 2d
       SP = 12356
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12356] = integer 2d
       SP = 12357
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12357] = integer 1d
       SP = 12360
 23562: 00 00 00105 LES less <
       Stack Pop [12357] = integer 1d
       Stack Pop [12356] = integer 2d
       Stack Push [12356] = integer 1d
       SP = 12357
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12356] = integer 1d
       SP = 12356
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12356] = integer 0d
       Stack Push [12357] = addr 12335
       Stack Push [12360] = addr 23575
       Stack Push [12361] = addr 12356
       Stack Push [12362] = addr 0
       Stack Push [12363] = addr 0
       SP = 12364
       FP = 12357
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12362] = addr 2
       Stack Write [12363] = addr 12335
       Display [1] = 12335
       Display [2] = 12357
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12364] = addr 112342
       SP = 12365
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12365] = integer 2d
       SP = 12366
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12365] = integer 2d
       Stack Push [12365] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [12365] = integer 1d
       Stack Pop [12364] = addr 112342
       Stack Write [12342] = integer 1d
       SP = 12364
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12364] = integer 0d
       Stack Push [12365] = addr 12357
       Stack Push [12366] = addr 23551
       Stack Push [12367] = addr 12364
       Stack Push [12370] = addr 0
       Stack Push [12371] = addr 0
       Stack Push [12372] = integer 0d
       Stack Push [12373] = addr 212357
       Stack Push [12374] = integer 0d
       Stack Push [12375] = addr 212357
       Stack Push [12376] = integer 0d
       Stack Push [12377] = addr 212357
       Stack Push [12400] = integer 0d
       Stack Push [12401] = addr 212357
       Stack Push [12402] = integer 0d
       Stack Push [12403] = addr 212357
       Stack Push [12404] = integer 0d
       Stack Push [12405] = addr 212357
       SP = 12406
       FP = 12365
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12370] = addr 1
       Display [1] = 12365
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12406] = addr 112372
       SP = 12407
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12407] = integer 1d
       SP = 12410
 23510: 00 00 00125 ST  store
       Stack Pop [12407] = integer 1d
       Stack Pop [12406] = addr 112372
       Stack Write [12372] = integer 1d
       SP = 12406
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12406] = integer 1d
       SP = 12407
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12407] = integer 1d
       SP = 12410
 23562: 00 00 00105 LES less <
       Stack Pop [12407] = integer 1d
       Stack Pop [12406] = integer 1d
       Stack Push [12406] = integer 1d
       SP = 12407
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12406] = integer 1d
       SP = 12406
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12406] = integer 0d
       Stack Push [12407] = addr 12365
       Stack Push [12410] = addr 23575
       Stack Push [12411] = addr 12406
       Stack Push [12412] = addr 0
       Stack Push [12413] = addr 0
       SP = 12414
       FP = 12407
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12412] = addr 2
       Stack Write [12413] = addr 12365
       Display [1] = 12365
       Display [2] = 12407
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12414] = addr 112372
       SP = 12415
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12415] = integer 1d
       SP = 12416
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12415] = integer 1d
       Stack Push [12415] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [12415] = integer 0d
       Stack Pop [12414] = addr 112372
       Stack Write [12372] = integer 0d
       SP = 12414
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12414] = integer 0d
       Stack Push [12415] = addr 12407
       Stack Push [12416] = addr 23551
       Stack Push [12417] = addr 12414
       Stack Push [12420] = addr 0
       Stack Push [12421] = addr 0
       Stack Push [12422] = integer 0d
       Stack Push [12423] = addr 212407
       Stack Push [12424] = integer 0d
       Stack Push [12425] = addr 212407
       Stack Push [12426] = integer 0d
       Stack Push [12427] = addr 212407
       Stack Push [12430] = integer 0d
       Stack Push [12431] = addr 212407
       Stack Push [12432] = integer 0d
       Stack Push [12433] = addr 212407
       Stack Push [12434] = integer 0d
       Stack Push [12435] = addr 212407
       SP = 12436
       FP = 12415
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12420] = addr 1
       Display [1] = 12415
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12436] = addr 112422
       SP = 12437
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12437] = integer 0d
       SP = 12440
 23510: 00 00 00125 ST  store
       Stack Pop [12437] = integer 0d
       Stack Pop [12436] = addr 112422
       Stack Write [12422] = integer 0d
       SP = 12436
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12436] = integer 0d
       SP = 12437
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12437] = integer 1d
       SP = 12440
 23562: 00 00 00105 LES less <
       Stack Pop [12437] = integer 1d
       Stack Pop [12436] = integer 0d
       Stack Push [12436] = integer 0d
       SP = 12437
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12436] = integer 0d
       C = 1
       SP = 12436
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 12415 -> Level 2, Frame 12407
       Stack Push [12436] = integer 0d
       Stack Push [12437] = addr 12415
       Stack Push [12440] = addr 23567
       Stack Push [12441] = addr 12436
       Stack Push [12442] = addr 0
       Stack Push [12443] = addr 0
       Stack Write [12442] = addr 2
       Stack Write [12443] = addr 12415
       Display [1] = 12365
       Display [2] = 12407
       SP = 12444
       FP = 12437
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 12407 -> Level 2, Frame 12357
       Stack Push [12444] = integer 0d
       Stack Push [12445] = addr 12437
       Stack Push [12446] = addr 23535
       Stack Push [12447] = addr 12444
       Stack Push [12450] = addr 0
       Stack Push [12451] = addr 0
       Stack Write [12450] = addr 2
       Stack Write [12451] = addr 12365
       Display [1] = 12335
       Display [2] = 12357
       SP = 12452
       FP = 12445
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 12357 -> Level 2, Frame 12327
       Stack Push [12452] = integer 0d
       Stack Push [12453] = addr 12445
       Stack Push [12454] = addr 23532
       Stack Push [12455] = addr 12452
       Stack Push [12456] = addr 0
       Stack Push [12457] = addr 0
       Stack Write [12456] = addr 2
       Stack Write [12457] = addr 12335
       Display [1] = 12305
       Display [2] = 12327
       SP = 12460
       FP = 12453
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 12327 -> Level 2, Frame 12277
       Stack Push [12460] = integer 0d
       Stack Push [12461] = addr 12453
       Stack Push [12462] = addr 23527
       Stack Push [12463] = addr 12460
       Stack Push [12464] = addr 0
       Stack Push [12465] = addr 0
       Stack Write [12464] = addr 2
       Stack Write [12465] = addr 12305
       Display [1] = 07161
       Display [2] = 12277
       SP = 12466
       FP = 12461
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12465] = addr 7161
       Display [2] = 12461
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12466] = addr 107166
       SP = 12467
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12467] = integer 3d
       SP = 12470
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12467] = integer 3d
       Stack Push [12467] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [12467] = integer 2d
       Stack Pop [12466] = addr 107166
       Stack Write [7166] = integer 2d
       SP = 12466
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12466] = integer 0d
       Stack Push [12467] = addr 12461
       Stack Push [12470] = addr 23551
       Stack Push [12471] = addr 12466
       Stack Push [12472] = addr 0
       Stack Push [12473] = addr 0
       Stack Push [12474] = integer 0d
       Stack Push [12475] = addr 212461
       Stack Push [12476] = integer 0d
       Stack Push [12477] = addr 212461
       Stack Push [12500] = integer 0d
       Stack Push [12501] = addr 212461
       Stack Push [12502] = integer 0d
       Stack Push [12503] = addr 212461
       Stack Push [12504] = integer 0d
       Stack Push [12505] = addr 212461
       Stack Push [12506] = integer 0d
       Stack Push [12507] = addr 212461
       SP = 12510
       FP = 12467
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12472] = addr 1
       Display [1] = 12467
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12510] = addr 112474
       SP = 12511
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12511] = integer 2d
       SP = 12512
 23510: 00 00 00125 ST  store
       Stack Pop [12511] = integer 2d
       Stack Pop [12510] = addr 112474
       Stack Write [12474] = integer 2d
       SP = 12510
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12510] = integer 2d
       SP = 12511
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12511] = integer 1d
       SP = 12512
 23562: 00 00 00105 LES less <
       Stack Pop [12511] = integer 1d
       Stack Pop [12510] = integer 2d
       Stack Push [12510] = integer 1d
       SP = 12511
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12510] = integer 1d
       C = 0
       SP = 12510
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12510] = integer 0d
       Stack Push [12511] = addr 12467
       Stack Push [12512] = addr 23575
       Stack Push [12513] = addr 12510
       Stack Push [12514] = addr 0
       Stack Push [12515] = addr 0
       SP = 12516
       FP = 12511
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12514] = addr 2
       Stack Write [12515] = addr 12467
       Display [1] = 12467
       Display [2] = 12511
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12516] = addr 112474
       SP = 12517
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12517] = integer 2d
       SP = 12520
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12517] = integer 2d
       Stack Push [12517] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [12517] = integer 1d
       Stack Pop [12516] = addr 112474
       Stack Write [12474] = integer 1d
       SP = 12516
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12516] = integer 0d
       Stack Push [12517] = addr 12511
       Stack Push [12520] = addr 23551
       Stack Push [12521] = addr 12516
       Stack Push [12522] = addr 0
       Stack Push [12523] = addr 0
       Stack Push [12524] = integer 0d
       Stack Push [12525] = addr 212511
       Stack Push [12526] = integer 0d
       Stack Push [12527] = addr 212511
       Stack Push [12530] = integer 0d
       Stack Push [12531] = addr 212511
       Stack Push [12532] = integer 0d
       Stack Push [12533] = addr 212511
       Stack Push [12534] = integer 0d
       Stack Push [12535] = addr 212511
       Stack Push [12536] = integer 0d
       Stack Push [12537] = addr 212511
       SP = 12540
       FP = 12517
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12522] = addr 1
       Display [1] = 12517
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12540] = addr 112524
       SP = 12541
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12541] = integer 1d
       SP = 12542
 23510: 00 00 00125 ST  store
       Stack Pop [12541] = integer 1d
       Stack Pop [12540] = addr 112524
       Stack Write [12524] = integer 1d
       SP = 12540
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12540] = integer 1d
       SP = 12541
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12541] = integer 1d
       SP = 12542
 23562: 00 00 00105 LES less <
       Stack Pop [12541] = integer 1d
       Stack Pop [12540] = integer 1d
       Stack Push [12540] = integer 1d
       SP = 12541
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12540] = integer 1d
       SP = 12540
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12540] = integer 0d
       Stack Push [12541] = addr 12517
       Stack Push [12542] = addr 23575
       Stack Push [12543] = addr 12540
       Stack Push [12544] = addr 0
       Stack Push [12545] = addr 0
       SP = 12546
       FP = 12541
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12544] = addr 2
       Stack Write [12545] = addr 12517
       Display [1] = 12517
       Display [2] = 12541
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12546] = addr 112524
       SP = 12547
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12547] = integer 1d
       SP = 12550
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12547] = integer 1d
       Stack Push [12547] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [12547] = integer 0d
       Stack Pop [12546] = addr 112524
       Stack Write [12524] = integer 0d
       SP = 12546
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12546] = integer 0d
       Stack Push [12547] = addr 12541
       Stack Push [12550] = addr 23551
       Stack Push [12551] = addr 12546
       Stack Push [12552] = addr 0
       Stack Push [12553] = addr 0
       Stack Push [12554] = integer 0d
       Stack Push [12555] = addr 212541
       Stack Push [12556] = integer 0d
       Stack Push [12557] = addr 212541
       Stack Push [12560] = integer 0d
       Stack Push [12561] = addr 212541
       Stack Push [12562] = integer 0d
       Stack Push [12563] = addr 212541
       Stack Push [12564] = integer 0d
       Stack Push [12565] = addr 212541
       Stack Push [12566] = integer 0d
       Stack Push [12567] = addr 212541
       SP = 12570
       FP = 12547
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12552] = addr 1
       Display [1] = 12547
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12570] = addr 112554
       SP = 12571
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12571] = integer 0d
       SP = 12572
 23510: 00 00 00125 ST  store
       Stack Pop [12571] = integer 0d
       Stack Pop [12570] = addr 112554
       Stack Write [12554] = integer 0d
       SP = 12570
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12570] = integer 0d
       SP = 12571
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12571] = integer 1d
       SP = 12572
 23562: 00 00 00105 LES less <
       Stack Pop [12571] = integer 1d
       Stack Pop [12570] = integer 0d
       Stack Push [12570] = integer 0d
       SP = 12571
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12570] = integer 0d
       C = 1
       SP = 12570
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 12547 -> Level 2, Frame 12541
       Stack Push [12570] = integer 0d
       Stack Push [12571] = addr 12547
       Stack Push [12572] = addr 23567
       Stack Push [12573] = addr 12570
       Stack Push [12574] = addr 0
       Stack Push [12575] = addr 0
       Stack Write [12574] = addr 2
       Stack Write [12575] = addr 12547
       Display [1] = 12517
       Display [2] = 12541
       SP = 12576
       FP = 12571
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 12541 -> Level 2, Frame 12511
       Stack Push [12576] = integer 0d
       Stack Push [12577] = addr 12571
       Stack Push [12600] = addr 23535
       Stack Push [12601] = addr 12576
       Stack Push [12602] = addr 0
       Stack Push [12603] = addr 0
       Stack Write [12602] = addr 2
       Stack Write [12603] = addr 12517
       Display [1] = 12467
       Display [2] = 12511
       SP = 12604
       FP = 12577
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 12511 -> Level 2, Frame 12461
       Stack Push [12604] = integer 0d
       Stack Push [12605] = addr 12577
       Stack Push [12606] = addr 23532
       Stack Push [12607] = addr 12604
       Stack Push [12610] = addr 0
       Stack Push [12611] = addr 0
       Stack Write [12610] = addr 2
       Stack Write [12611] = addr 12467
       Display [1] = 07161
       Display [2] = 12461
       SP = 12612
       FP = 12605
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 12461 -> Level 2, Frame 7153
       Stack Push [12612] = integer 0d
       Stack Push [12613] = addr 12605
       Stack Push [12614] = addr 23527
       Stack Push [12615] = addr 12612
       Stack Push [12616] = addr 0
       Stack Push [12617] = addr 0
       Stack Write [12616] = addr 2
       Stack Write [12617] = addr 7161
       Display [1] = 00031
       Display [2] = 07153
       SP = 12620
       FP = 12613
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12617] = addr 31
       Display [2] = 12613
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12620] = addr 100036
       SP = 12621
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12621] = integer 7d
       SP = 12622
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12621] = integer 7d
       Stack Push [12621] = integer 6d
 23522: 00 00 00125 ST  store
       Stack Pop [12621] = integer 6d
       Stack Pop [12620] = addr 100036
       Stack Write [36] = integer 6d
       SP = 12620
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12620] = integer 0d
       Stack Push [12621] = addr 12613
       Stack Push [12622] = addr 23551
       Stack Push [12623] = addr 12620
       Stack Push [12624] = addr 0
       Stack Push [12625] = addr 0
       Stack Push [12626] = integer 0d
       Stack Push [12627] = addr 212613
       Stack Push [12630] = integer 0d
       Stack Push [12631] = addr 212613
       Stack Push [12632] = integer 0d
       Stack Push [12633] = addr 212613
       Stack Push [12634] = integer 0d
       Stack Push [12635] = addr 212613
       Stack Push [12636] = integer 0d
       Stack Push [12637] = addr 212613
       Stack Push [12640] = integer 0d
       Stack Push [12641] = addr 212613
       SP = 12642
       FP = 12621
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12624] = addr 1
       Display [1] = 12621
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12642] = addr 112626
       SP = 12643
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12643] = integer 6d
       SP = 12644
 23510: 00 00 00125 ST  store
       Stack Pop [12643] = integer 6d
       Stack Pop [12642] = addr 112626
       Stack Write [12626] = integer 6d
       SP = 12642
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12642] = integer 6d
       SP = 12643
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12643] = integer 1d
       SP = 12644
 23562: 00 00 00105 LES less <
       Stack Pop [12643] = integer 1d
       Stack Pop [12642] = integer 6d
       Stack Push [12642] = integer 1d
       SP = 12643
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12642] = integer 1d
       C = 0
       SP = 12642
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12642] = integer 0d
       Stack Push [12643] = addr 12621
       Stack Push [12644] = addr 23575
       Stack Push [12645] = addr 12642
       Stack Push [12646] = addr 0
       Stack Push [12647] = addr 0
       SP = 12650
       FP = 12643
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12646] = addr 2
       Stack Write [12647] = addr 12621
       Display [1] = 12621
       Display [2] = 12643
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12650] = addr 112626
       SP = 12651
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12651] = integer 6d
       SP = 12652
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12651] = integer 6d
       Stack Push [12651] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [12651] = integer 5d
       Stack Pop [12650] = addr 112626
       Stack Write [12626] = integer 5d
       SP = 12650
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12650] = integer 0d
       Stack Push [12651] = addr 12643
       Stack Push [12652] = addr 23551
       Stack Push [12653] = addr 12650
       Stack Push [12654] = addr 0
       Stack Push [12655] = addr 0
       Stack Push [12656] = integer 0d
       Stack Push [12657] = addr 212643
       Stack Push [12660] = integer 0d
       Stack Push [12661] = addr 212643
       Stack Push [12662] = integer 0d
       Stack Push [12663] = addr 212643
       Stack Push [12664] = integer 0d
       Stack Push [12665] = addr 212643
       Stack Push [12666] = integer 0d
       Stack Push [12667] = addr 212643
       Stack Push [12670] = integer 0d
       Stack Push [12671] = addr 212643
       SP = 12672
       FP = 12651
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12654] = addr 1
       Display [1] = 12651
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12672] = addr 112656
       SP = 12673
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12673] = integer 5d
       SP = 12674
 23510: 00 00 00125 ST  store
       Stack Pop [12673] = integer 5d
       Stack Pop [12672] = addr 112656
       Stack Write [12656] = integer 5d
       SP = 12672
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12672] = integer 5d
       SP = 12673
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12673] = integer 1d
       SP = 12674
 23562: 00 00 00105 LES less <
       Stack Pop [12673] = integer 1d
       Stack Pop [12672] = integer 5d
       Stack Push [12672] = integer 1d
       SP = 12673
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12672] = integer 1d
       SP = 12672
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12672] = integer 0d
       Stack Push [12673] = addr 12651
       Stack Push [12674] = addr 23575
       Stack Push [12675] = addr 12672
       Stack Push [12676] = addr 0
       Stack Push [12677] = addr 0
       SP = 12700
       FP = 12673
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12676] = addr 2
       Stack Write [12677] = addr 12651
       Display [1] = 12651
       Display [2] = 12673
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12700] = addr 112656
       SP = 12701
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12701] = integer 5d
       SP = 12702
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12701] = integer 5d
       Stack Push [12701] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [12701] = integer 4d
       Stack Pop [12700] = addr 112656
       Stack Write [12656] = integer 4d
       SP = 12700
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12700] = integer 0d
       Stack Push [12701] = addr 12673
       Stack Push [12702] = addr 23551
       Stack Push [12703] = addr 12700
       Stack Push [12704] = addr 0
       Stack Push [12705] = addr 0
       Stack Push [12706] = integer 0d
       Stack Push [12707] = addr 212673
       Stack Push [12710] = integer 0d
       Stack Push [12711] = addr 212673
       Stack Push [12712] = integer 0d
       Stack Push [12713] = addr 212673
       Stack Push [12714] = integer 0d
       Stack Push [12715] = addr 212673
       Stack Push [12716] = integer 0d
       Stack Push [12717] = addr 212673
       Stack Push [12720] = integer 0d
       Stack Push [12721] = addr 212673
       SP = 12722
       FP = 12701
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12704] = addr 1
       Display [1] = 12701
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12722] = addr 112706
       SP = 12723
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12723] = integer 4d
       SP = 12724
 23510: 00 00 00125 ST  store
       Stack Pop [12723] = integer 4d
       Stack Pop [12722] = addr 112706
       Stack Write [12706] = integer 4d
       SP = 12722
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12722] = integer 4d
       SP = 12723
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12723] = integer 1d
       SP = 12724
 23562: 00 00 00105 LES less <
       Stack Pop [12723] = integer 1d
       Stack Pop [12722] = integer 4d
       Stack Push [12722] = integer 1d
       SP = 12723
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12722] = integer 1d
       SP = 12722
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12722] = integer 0d
       Stack Push [12723] = addr 12701
       Stack Push [12724] = addr 23575
       Stack Push [12725] = addr 12722
       Stack Push [12726] = addr 0
       Stack Push [12727] = addr 0
       SP = 12730
       FP = 12723
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12726] = addr 2
       Stack Write [12727] = addr 12701
       Display [1] = 12701
       Display [2] = 12723
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12730] = addr 112706
       SP = 12731
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12731] = integer 4d
       SP = 12732
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12731] = integer 4d
       Stack Push [12731] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [12731] = integer 3d
       Stack Pop [12730] = addr 112706
       Stack Write [12706] = integer 3d
       SP = 12730
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12730] = integer 0d
       Stack Push [12731] = addr 12723
       Stack Push [12732] = addr 23551
       Stack Push [12733] = addr 12730
       Stack Push [12734] = addr 0
       Stack Push [12735] = addr 0
       Stack Push [12736] = integer 0d
       Stack Push [12737] = addr 212723
       Stack Push [12740] = integer 0d
       Stack Push [12741] = addr 212723
       Stack Push [12742] = integer 0d
       Stack Push [12743] = addr 212723
       Stack Push [12744] = integer 0d
       Stack Push [12745] = addr 212723
       Stack Push [12746] = integer 0d
       Stack Push [12747] = addr 212723
       Stack Push [12750] = integer 0d
       Stack Push [12751] = addr 212723
       SP = 12752
       FP = 12731
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12734] = addr 1
       Display [1] = 12731
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12752] = addr 112736
       SP = 12753
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [12753] = integer 3d
       SP = 12754
 23510: 00 00 00125 ST  store
       Stack Pop [12753] = integer 3d
       Stack Pop [12752] = addr 112736
       Stack Write [12736] = integer 3d
       SP = 12752
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12752] = integer 3d
       SP = 12753
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [12753] = integer 1d
       SP = 12754
 23562: 00 00 00105 LES less <
       Stack Pop [12753] = integer 1d
       Stack Pop [12752] = integer 3d
       Stack Push [12752] = integer 1d
       SP = 12753
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [12752] = integer 1d
       SP = 12752
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [12752] = integer 0d
       Stack Push [12753] = addr 12731
       Stack Push [12754] = addr 23575
       Stack Push [12755] = addr 12752
       Stack Push [12756] = addr 0
       Stack Push [12757] = addr 0
       SP = 12760
       FP = 12753
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [12756] = addr 2
       Stack Write [12757] = addr 12731
       Display [1] = 12731
       Display [2] = 12753
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [12760] = addr 112736
       SP = 12761
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [12761] = integer 3d
       SP = 12762
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [12761] = integer 3d
       Stack Push [12761] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [12761] = integer 2d
       Stack Pop [12760] = addr 112736
       Stack Write [12736] = integer 2d
       SP = 12760
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [12760] = integer 0d
       Stack Push [12761] = addr 12753
       Stack Push [12762] = addr 23551
       Stack Push [12763] = addr 12760
       Stack Push [12764] = addr 0
       Stack Push [12765] = addr 0
       Stack Push [12766] = integer 0d
       Stack Push [12767] = addr 212753
       Stack Push [12770] = integer 0d
       Stack Push [12771] = addr 212753
       Stack Push [12772] = integer 0d
       Stack Push [12773] = addr 212753
       Stack Push [12774] = integer 0d
       Stack Push [12775] = addr 212753
       Stack Push [12776] = integer 0d
       Stack Push [12777] = addr 212753
       Stack Push [13000] = integer 0d
       Stack Push [13001] = addr 212753
       SP = 13002
       FP = 12761
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [12764] = addr 1
       Display [1] = 12761
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13002] = addr 112766
       SP = 13003
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13003] = integer 2d
       SP = 13004
 23510: 00 00 00125 ST  store
       Stack Pop [13003] = integer 2d
       Stack Pop [13002] = addr 112766
       Stack Write [12766] = integer 2d
       SP = 13002
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13002] = integer 2d
       SP = 13003
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13003] = integer 1d
       SP = 13004
 23562: 00 00 00105 LES less <
       Stack Pop [13003] = integer 1d
       Stack Pop [13002] = integer 2d
       Stack Push [13002] = integer 1d
       SP = 13003
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13002] = integer 1d
       SP = 13002
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13002] = integer 0d
       Stack Push [13003] = addr 12761
       Stack Push [13004] = addr 23575
       Stack Push [13005] = addr 13002
       Stack Push [13006] = addr 0
       Stack Push [13007] = addr 0
       SP = 13010
       FP = 13003
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13006] = addr 2
       Stack Write [13007] = addr 12761
       Display [1] = 12761
       Display [2] = 13003
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13010] = addr 112766
       SP = 13011
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13011] = integer 2d
       SP = 13012
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13011] = integer 2d
       Stack Push [13011] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [13011] = integer 1d
       Stack Pop [13010] = addr 112766
       Stack Write [12766] = integer 1d
       SP = 13010
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13010] = integer 0d
       Stack Push [13011] = addr 13003
       Stack Push [13012] = addr 23551
       Stack Push [13013] = addr 13010
       Stack Push [13014] = addr 0
       Stack Push [13015] = addr 0
       Stack Push [13016] = integer 0d
       Stack Push [13017] = addr 213003
       Stack Push [13020] = integer 0d
       Stack Push [13021] = addr 213003
       Stack Push [13022] = integer 0d
       Stack Push [13023] = addr 213003
       Stack Push [13024] = integer 0d
       Stack Push [13025] = addr 213003
       Stack Push [13026] = integer 0d
       Stack Push [13027] = addr 213003
       Stack Push [13030] = integer 0d
       Stack Push [13031] = addr 213003
       SP = 13032
       FP = 13011
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13014] = addr 1
       Display [1] = 13011
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13032] = addr 113016
       SP = 13033
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13033] = integer 1d
       SP = 13034
 23510: 00 00 00125 ST  store
       Stack Pop [13033] = integer 1d
       Stack Pop [13032] = addr 113016
       Stack Write [13016] = integer 1d
       SP = 13032
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13032] = integer 1d
       SP = 13033
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13033] = integer 1d
       SP = 13034
 23562: 00 00 00105 LES less <
       Stack Pop [13033] = integer 1d
       Stack Pop [13032] = integer 1d
       Stack Push [13032] = integer 1d
       SP = 13033
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13032] = integer 1d
       SP = 13032
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13032] = integer 0d
       Stack Push [13033] = addr 13011
       Stack Push [13034] = addr 23575
       Stack Push [13035] = addr 13032
       Stack Push [13036] = addr 0
       Stack Push [13037] = addr 0
       SP = 13040
       FP = 13033
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13036] = addr 2
       Stack Write [13037] = addr 13011
       Display [1] = 13011
       Display [2] = 13033
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13040] = addr 113016
       SP = 13041
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13041] = integer 1d
       SP = 13042
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13041] = integer 1d
       Stack Push [13041] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [13041] = integer 0d
       Stack Pop [13040] = addr 113016
       Stack Write [13016] = integer 0d
       SP = 13040
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13040] = integer 0d
       Stack Push [13041] = addr 13033
       Stack Push [13042] = addr 23551
       Stack Push [13043] = addr 13040
       Stack Push [13044] = addr 0
       Stack Push [13045] = addr 0
       Stack Push [13046] = integer 0d
       Stack Push [13047] = addr 213033
       Stack Push [13050] = integer 0d
       Stack Push [13051] = addr 213033
       Stack Push [13052] = integer 0d
       Stack Push [13053] = addr 213033
       Stack Push [13054] = integer 0d
       Stack Push [13055] = addr 213033
       Stack Push [13056] = integer 0d
       Stack Push [13057] = addr 213033
       Stack Push [13060] = integer 0d
       Stack Push [13061] = addr 213033
       SP = 13062
       FP = 13041
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13044] = addr 1
       Display [1] = 13041
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13062] = addr 113046
       SP = 13063
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13063] = integer 0d
       SP = 13064
 23510: 00 00 00125 ST  store
       Stack Pop [13063] = integer 0d
       Stack Pop [13062] = addr 113046
       Stack Write [13046] = integer 0d
       SP = 13062
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13062] = integer 0d
       SP = 13063
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13063] = integer 1d
       SP = 13064
 23562: 00 00 00105 LES less <
       Stack Pop [13063] = integer 1d
       Stack Pop [13062] = integer 0d
       Stack Push [13062] = integer 0d
       SP = 13063
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13062] = integer 0d
       C = 1
       SP = 13062
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 13041 -> Level 2, Frame 13033
       Stack Push [13062] = integer 0d
       Stack Push [13063] = addr 13041
       Stack Push [13064] = addr 23567
       Stack Push [13065] = addr 13062
       Stack Push [13066] = addr 0
       Stack Push [13067] = addr 0
       Stack Write [13066] = addr 2
       Stack Write [13067] = addr 13041
       Display [1] = 13011
       Display [2] = 13033
       SP = 13070
       FP = 13063
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 13033 -> Level 2, Frame 13003
       Stack Push [13070] = integer 0d
       Stack Push [13071] = addr 13063
       Stack Push [13072] = addr 23535
       Stack Push [13073] = addr 13070
       Stack Push [13074] = addr 0
       Stack Push [13075] = addr 0
       Stack Write [13074] = addr 2
       Stack Write [13075] = addr 13011
       Display [1] = 12761
       Display [2] = 13003
       SP = 13076
       FP = 13071
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 13003 -> Level 2, Frame 12753
       Stack Push [13076] = integer 0d
       Stack Push [13077] = addr 13071
       Stack Push [13100] = addr 23532
       Stack Push [13101] = addr 13076
       Stack Push [13102] = addr 0
       Stack Push [13103] = addr 0
       Stack Write [13102] = addr 2
       Stack Write [13103] = addr 12761
       Display [1] = 12731
       Display [2] = 12753
       SP = 13104
       FP = 13077
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 12753 -> Level 2, Frame 12723
       Stack Push [13104] = integer 0d
       Stack Push [13105] = addr 13077
       Stack Push [13106] = addr 23527
       Stack Push [13107] = addr 13104
       Stack Push [13110] = addr 0
       Stack Push [13111] = addr 0
       Stack Write [13110] = addr 2
       Stack Write [13111] = addr 12731
       Display [1] = 12701
       Display [2] = 12723
       SP = 13112
       FP = 13105
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13111] = addr 12701
       Display [2] = 13105
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13112] = addr 112706
       SP = 13113
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13113] = integer 3d
       SP = 13114
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13113] = integer 3d
       Stack Push [13113] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [13113] = integer 2d
       Stack Pop [13112] = addr 112706
       Stack Write [12706] = integer 2d
       SP = 13112
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13112] = integer 0d
       Stack Push [13113] = addr 13105
       Stack Push [13114] = addr 23551
       Stack Push [13115] = addr 13112
       Stack Push [13116] = addr 0
       Stack Push [13117] = addr 0
       Stack Push [13120] = integer 0d
       Stack Push [13121] = addr 213105
       Stack Push [13122] = integer 0d
       Stack Push [13123] = addr 213105
       Stack Push [13124] = integer 0d
       Stack Push [13125] = addr 213105
       Stack Push [13126] = integer 0d
       Stack Push [13127] = addr 213105
       Stack Push [13130] = integer 0d
       Stack Push [13131] = addr 213105
       Stack Push [13132] = integer 0d
       Stack Push [13133] = addr 213105
       SP = 13134
       FP = 13113
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13116] = addr 1
       Display [1] = 13113
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13134] = addr 113120
       SP = 13135
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13135] = integer 2d
       SP = 13136
 23510: 00 00 00125 ST  store
       Stack Pop [13135] = integer 2d
       Stack Pop [13134] = addr 113120
       Stack Write [13120] = integer 2d
       SP = 13134
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13134] = integer 2d
       SP = 13135
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13135] = integer 1d
       SP = 13136
 23562: 00 00 00105 LES less <
       Stack Pop [13135] = integer 1d
       Stack Pop [13134] = integer 2d
       Stack Push [13134] = integer 1d
       SP = 13135
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13134] = integer 1d
       C = 0
       SP = 13134
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13134] = integer 0d
       Stack Push [13135] = addr 13113
       Stack Push [13136] = addr 23575
       Stack Push [13137] = addr 13134
       Stack Push [13140] = addr 0
       Stack Push [13141] = addr 0
       SP = 13142
       FP = 13135
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13140] = addr 2
       Stack Write [13141] = addr 13113
       Display [1] = 13113
       Display [2] = 13135
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13142] = addr 113120
       SP = 13143
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13143] = integer 2d
       SP = 13144
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13143] = integer 2d
       Stack Push [13143] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [13143] = integer 1d
       Stack Pop [13142] = addr 113120
       Stack Write [13120] = integer 1d
       SP = 13142
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13142] = integer 0d
       Stack Push [13143] = addr 13135
       Stack Push [13144] = addr 23551
       Stack Push [13145] = addr 13142
       Stack Push [13146] = addr 0
       Stack Push [13147] = addr 0
       Stack Push [13150] = integer 0d
       Stack Push [13151] = addr 213135
       Stack Push [13152] = integer 0d
       Stack Push [13153] = addr 213135
       Stack Push [13154] = integer 0d
       Stack Push [13155] = addr 213135
       Stack Push [13156] = integer 0d
       Stack Push [13157] = addr 213135
       Stack Push [13160] = integer 0d
       Stack Push [13161] = addr 213135
       Stack Push [13162] = integer 0d
       Stack Push [13163] = addr 213135
       SP = 13164
       FP = 13143
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13146] = addr 1
       Display [1] = 13143
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13164] = addr 113150
       SP = 13165
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13165] = integer 1d
       SP = 13166
 23510: 00 00 00125 ST  store
       Stack Pop [13165] = integer 1d
       Stack Pop [13164] = addr 113150
       Stack Write [13150] = integer 1d
       SP = 13164
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13164] = integer 1d
       SP = 13165
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13165] = integer 1d
       SP = 13166
 23562: 00 00 00105 LES less <
       Stack Pop [13165] = integer 1d
       Stack Pop [13164] = integer 1d
       Stack Push [13164] = integer 1d
       SP = 13165
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13164] = integer 1d
       SP = 13164
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13164] = integer 0d
       Stack Push [13165] = addr 13143
       Stack Push [13166] = addr 23575
       Stack Push [13167] = addr 13164
       Stack Push [13170] = addr 0
       Stack Push [13171] = addr 0
       SP = 13172
       FP = 13165
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13170] = addr 2
       Stack Write [13171] = addr 13143
       Display [1] = 13143
       Display [2] = 13165
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13172] = addr 113150
       SP = 13173
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13173] = integer 1d
       SP = 13174
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13173] = integer 1d
       Stack Push [13173] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [13173] = integer 0d
       Stack Pop [13172] = addr 113150
       Stack Write [13150] = integer 0d
       SP = 13172
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13172] = integer 0d
       Stack Push [13173] = addr 13165
       Stack Push [13174] = addr 23551
       Stack Push [13175] = addr 13172
       Stack Push [13176] = addr 0
       Stack Push [13177] = addr 0
       Stack Push [13200] = integer 0d
       Stack Push [13201] = addr 213165
       Stack Push [13202] = integer 0d
       Stack Push [13203] = addr 213165
       Stack Push [13204] = integer 0d
       Stack Push [13205] = addr 213165
       Stack Push [13206] = integer 0d
       Stack Push [13207] = addr 213165
       Stack Push [13210] = integer 0d
       Stack Push [13211] = addr 213165
       Stack Push [13212] = integer 0d
       Stack Push [13213] = addr 213165
       SP = 13214
       FP = 13173
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13176] = addr 1
       Display [1] = 13173
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13214] = addr 113200
       SP = 13215
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13215] = integer 0d
       SP = 13216
 23510: 00 00 00125 ST  store
       Stack Pop [13215] = integer 0d
       Stack Pop [13214] = addr 113200
       Stack Write [13200] = integer 0d
       SP = 13214
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13214] = integer 0d
       SP = 13215
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13215] = integer 1d
       SP = 13216
 23562: 00 00 00105 LES less <
       Stack Pop [13215] = integer 1d
       Stack Pop [13214] = integer 0d
       Stack Push [13214] = integer 0d
       SP = 13215
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13214] = integer 0d
       C = 1
       SP = 13214
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 13173 -> Level 2, Frame 13165
       Stack Push [13214] = integer 0d
       Stack Push [13215] = addr 13173
       Stack Push [13216] = addr 23567
       Stack Push [13217] = addr 13214
       Stack Push [13220] = addr 0
       Stack Push [13221] = addr 0
       Stack Write [13220] = addr 2
       Stack Write [13221] = addr 13173
       Display [1] = 13143
       Display [2] = 13165
       SP = 13222
       FP = 13215
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 13165 -> Level 2, Frame 13135
       Stack Push [13222] = integer 0d
       Stack Push [13223] = addr 13215
       Stack Push [13224] = addr 23535
       Stack Push [13225] = addr 13222
       Stack Push [13226] = addr 0
       Stack Push [13227] = addr 0
       Stack Write [13226] = addr 2
       Stack Write [13227] = addr 13143
       Display [1] = 13113
       Display [2] = 13135
       SP = 13230
       FP = 13223
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 13135 -> Level 2, Frame 13105
       Stack Push [13230] = integer 0d
       Stack Push [13231] = addr 13223
       Stack Push [13232] = addr 23532
       Stack Push [13233] = addr 13230
       Stack Push [13234] = addr 0
       Stack Push [13235] = addr 0
       Stack Write [13234] = addr 2
       Stack Write [13235] = addr 13113
       Display [1] = 12701
       Display [2] = 13105
       SP = 13236
       FP = 13231
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 13105 -> Level 2, Frame 12673
       Stack Push [13236] = integer 0d
       Stack Push [13237] = addr 13231
       Stack Push [13240] = addr 23527
       Stack Push [13241] = addr 13236
       Stack Push [13242] = addr 0
       Stack Push [13243] = addr 0
       Stack Write [13242] = addr 2
       Stack Write [13243] = addr 12701
       Display [1] = 12651
       Display [2] = 12673
       SP = 13244
       FP = 13237
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13243] = addr 12651
       Display [2] = 13237
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13244] = addr 112656
       SP = 13245
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13245] = integer 4d
       SP = 13246
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13245] = integer 4d
       Stack Push [13245] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [13245] = integer 3d
       Stack Pop [13244] = addr 112656
       Stack Write [12656] = integer 3d
       SP = 13244
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13244] = integer 0d
       Stack Push [13245] = addr 13237
       Stack Push [13246] = addr 23551
       Stack Push [13247] = addr 13244
       Stack Push [13250] = addr 0
       Stack Push [13251] = addr 0
       Stack Push [13252] = integer 0d
       Stack Push [13253] = addr 213237
       Stack Push [13254] = integer 0d
       Stack Push [13255] = addr 213237
       Stack Push [13256] = integer 0d
       Stack Push [13257] = addr 213237
       Stack Push [13260] = integer 0d
       Stack Push [13261] = addr 213237
       Stack Push [13262] = integer 0d
       Stack Push [13263] = addr 213237
       Stack Push [13264] = integer 0d
       Stack Push [13265] = addr 213237
       SP = 13266
       FP = 13245
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13250] = addr 1
       Display [1] = 13245
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13266] = addr 113252
       SP = 13267
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13267] = integer 3d
       SP = 13270
 23510: 00 00 00125 ST  store
       Stack Pop [13267] = integer 3d
       Stack Pop [13266] = addr 113252
       Stack Write [13252] = integer 3d
       SP = 13266
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13266] = integer 3d
       SP = 13267
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13267] = integer 1d
       SP = 13270
 23562: 00 00 00105 LES less <
       Stack Pop [13267] = integer 1d
       Stack Pop [13266] = integer 3d
       Stack Push [13266] = integer 1d
       SP = 13267
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13266] = integer 1d
       C = 0
       SP = 13266
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13266] = integer 0d
       Stack Push [13267] = addr 13245
       Stack Push [13270] = addr 23575
       Stack Push [13271] = addr 13266
       Stack Push [13272] = addr 0
       Stack Push [13273] = addr 0
       SP = 13274
       FP = 13267
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13272] = addr 2
       Stack Write [13273] = addr 13245
       Display [1] = 13245
       Display [2] = 13267
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13274] = addr 113252
       SP = 13275
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13275] = integer 3d
       SP = 13276
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13275] = integer 3d
       Stack Push [13275] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [13275] = integer 2d
       Stack Pop [13274] = addr 113252
       Stack Write [13252] = integer 2d
       SP = 13274
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13274] = integer 0d
       Stack Push [13275] = addr 13267
       Stack Push [13276] = addr 23551
       Stack Push [13277] = addr 13274
       Stack Push [13300] = addr 0
       Stack Push [13301] = addr 0
       Stack Push [13302] = integer 0d
       Stack Push [13303] = addr 213267
       Stack Push [13304] = integer 0d
       Stack Push [13305] = addr 213267
       Stack Push [13306] = integer 0d
       Stack Push [13307] = addr 213267
       Stack Push [13310] = integer 0d
       Stack Push [13311] = addr 213267
       Stack Push [13312] = integer 0d
       Stack Push [13313] = addr 213267
       Stack Push [13314] = integer 0d
       Stack Push [13315] = addr 213267
       SP = 13316
       FP = 13275
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13300] = addr 1
       Display [1] = 13275
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13316] = addr 113302
       SP = 13317
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13317] = integer 2d
       SP = 13320
 23510: 00 00 00125 ST  store
       Stack Pop [13317] = integer 2d
       Stack Pop [13316] = addr 113302
       Stack Write [13302] = integer 2d
       SP = 13316
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13316] = integer 2d
       SP = 13317
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13317] = integer 1d
       SP = 13320
 23562: 00 00 00105 LES less <
       Stack Pop [13317] = integer 1d
       Stack Pop [13316] = integer 2d
       Stack Push [13316] = integer 1d
       SP = 13317
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13316] = integer 1d
       SP = 13316
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13316] = integer 0d
       Stack Push [13317] = addr 13275
       Stack Push [13320] = addr 23575
       Stack Push [13321] = addr 13316
       Stack Push [13322] = addr 0
       Stack Push [13323] = addr 0
       SP = 13324
       FP = 13317
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13322] = addr 2
       Stack Write [13323] = addr 13275
       Display [1] = 13275
       Display [2] = 13317
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13324] = addr 113302
       SP = 13325
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13325] = integer 2d
       SP = 13326
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13325] = integer 2d
       Stack Push [13325] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [13325] = integer 1d
       Stack Pop [13324] = addr 113302
       Stack Write [13302] = integer 1d
       SP = 13324
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13324] = integer 0d
       Stack Push [13325] = addr 13317
       Stack Push [13326] = addr 23551
       Stack Push [13327] = addr 13324
       Stack Push [13330] = addr 0
       Stack Push [13331] = addr 0
       Stack Push [13332] = integer 0d
       Stack Push [13333] = addr 213317
       Stack Push [13334] = integer 0d
       Stack Push [13335] = addr 213317
       Stack Push [13336] = integer 0d
       Stack Push [13337] = addr 213317
       Stack Push [13340] = integer 0d
       Stack Push [13341] = addr 213317
       Stack Push [13342] = integer 0d
       Stack Push [13343] = addr 213317
       Stack Push [13344] = integer 0d
       Stack Push [13345] = addr 213317
       SP = 13346
       FP = 13325
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13330] = addr 1
       Display [1] = 13325
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13346] = addr 113332
       SP = 13347
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13347] = integer 1d
       SP = 13350
 23510: 00 00 00125 ST  store
       Stack Pop [13347] = integer 1d
       Stack Pop [13346] = addr 113332
       Stack Write [13332] = integer 1d
       SP = 13346
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13346] = integer 1d
       SP = 13347
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13347] = integer 1d
       SP = 13350
 23562: 00 00 00105 LES less <
       Stack Pop [13347] = integer 1d
       Stack Pop [13346] = integer 1d
       Stack Push [13346] = integer 1d
       SP = 13347
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13346] = integer 1d
       SP = 13346
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13346] = integer 0d
       Stack Push [13347] = addr 13325
       Stack Push [13350] = addr 23575
       Stack Push [13351] = addr 13346
       Stack Push [13352] = addr 0
       Stack Push [13353] = addr 0
       SP = 13354
       FP = 13347
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13352] = addr 2
       Stack Write [13353] = addr 13325
       Display [1] = 13325
       Display [2] = 13347
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13354] = addr 113332
       SP = 13355
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13355] = integer 1d
       SP = 13356
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13355] = integer 1d
       Stack Push [13355] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [13355] = integer 0d
       Stack Pop [13354] = addr 113332
       Stack Write [13332] = integer 0d
       SP = 13354
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13354] = integer 0d
       Stack Push [13355] = addr 13347
       Stack Push [13356] = addr 23551
       Stack Push [13357] = addr 13354
       Stack Push [13360] = addr 0
       Stack Push [13361] = addr 0
       Stack Push [13362] = integer 0d
       Stack Push [13363] = addr 213347
       Stack Push [13364] = integer 0d
       Stack Push [13365] = addr 213347
       Stack Push [13366] = integer 0d
       Stack Push [13367] = addr 213347
       Stack Push [13370] = integer 0d
       Stack Push [13371] = addr 213347
       Stack Push [13372] = integer 0d
       Stack Push [13373] = addr 213347
       Stack Push [13374] = integer 0d
       Stack Push [13375] = addr 213347
       SP = 13376
       FP = 13355
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13360] = addr 1
       Display [1] = 13355
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13376] = addr 113362
       SP = 13377
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13377] = integer 0d
       SP = 13400
 23510: 00 00 00125 ST  store
       Stack Pop [13377] = integer 0d
       Stack Pop [13376] = addr 113362
       Stack Write [13362] = integer 0d
       SP = 13376
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13376] = integer 0d
       SP = 13377
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13377] = integer 1d
       SP = 13400
 23562: 00 00 00105 LES less <
       Stack Pop [13377] = integer 1d
       Stack Pop [13376] = integer 0d
       Stack Push [13376] = integer 0d
       SP = 13377
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13376] = integer 0d
       C = 1
       SP = 13376
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 13355 -> Level 2, Frame 13347
       Stack Push [13376] = integer 0d
       Stack Push [13377] = addr 13355
       Stack Push [13400] = addr 23567
       Stack Push [13401] = addr 13376
       Stack Push [13402] = addr 0
       Stack Push [13403] = addr 0
       Stack Write [13402] = addr 2
       Stack Write [13403] = addr 13355
       Display [1] = 13325
       Display [2] = 13347
       SP = 13404
       FP = 13377
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 13347 -> Level 2, Frame 13317
       Stack Push [13404] = integer 0d
       Stack Push [13405] = addr 13377
       Stack Push [13406] = addr 23535
       Stack Push [13407] = addr 13404
       Stack Push [13410] = addr 0
       Stack Push [13411] = addr 0
       Stack Write [13410] = addr 2
       Stack Write [13411] = addr 13325
       Display [1] = 13275
       Display [2] = 13317
       SP = 13412
       FP = 13405
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 13317 -> Level 2, Frame 13267
       Stack Push [13412] = integer 0d
       Stack Push [13413] = addr 13405
       Stack Push [13414] = addr 23532
       Stack Push [13415] = addr 13412
       Stack Push [13416] = addr 0
       Stack Push [13417] = addr 0
       Stack Write [13416] = addr 2
       Stack Write [13417] = addr 13275
       Display [1] = 13245
       Display [2] = 13267
       SP = 13420
       FP = 13413
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 13267 -> Level 2, Frame 13237
       Stack Push [13420] = integer 0d
       Stack Push [13421] = addr 13413
       Stack Push [13422] = addr 23527
       Stack Push [13423] = addr 13420
       Stack Push [13424] = addr 0
       Stack Push [13425] = addr 0
       Stack Write [13424] = addr 2
       Stack Write [13425] = addr 13245
       Display [1] = 12651
       Display [2] = 13237
       SP = 13426
       FP = 13421
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13425] = addr 12651
       Display [2] = 13421
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13426] = addr 112656
       SP = 13427
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13427] = integer 3d
       SP = 13430
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13427] = integer 3d
       Stack Push [13427] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [13427] = integer 2d
       Stack Pop [13426] = addr 112656
       Stack Write [12656] = integer 2d
       SP = 13426
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13426] = integer 0d
       Stack Push [13427] = addr 13421
       Stack Push [13430] = addr 23551
       Stack Push [13431] = addr 13426
       Stack Push [13432] = addr 0
       Stack Push [13433] = addr 0
       Stack Push [13434] = integer 0d
       Stack Push [13435] = addr 213421
       Stack Push [13436] = integer 0d
       Stack Push [13437] = addr 213421
       Stack Push [13440] = integer 0d
       Stack Push [13441] = addr 213421
       Stack Push [13442] = integer 0d
       Stack Push [13443] = addr 213421
       Stack Push [13444] = integer 0d
       Stack Push [13445] = addr 213421
       Stack Push [13446] = integer 0d
       Stack Push [13447] = addr 213421
       SP = 13450
       FP = 13427
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13432] = addr 1
       Display [1] = 13427
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13450] = addr 113434
       SP = 13451
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13451] = integer 2d
       SP = 13452
 23510: 00 00 00125 ST  store
       Stack Pop [13451] = integer 2d
       Stack Pop [13450] = addr 113434
       Stack Write [13434] = integer 2d
       SP = 13450
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13450] = integer 2d
       SP = 13451
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13451] = integer 1d
       SP = 13452
 23562: 00 00 00105 LES less <
       Stack Pop [13451] = integer 1d
       Stack Pop [13450] = integer 2d
       Stack Push [13450] = integer 1d
       SP = 13451
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13450] = integer 1d
       C = 0
       SP = 13450
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13450] = integer 0d
       Stack Push [13451] = addr 13427
       Stack Push [13452] = addr 23575
       Stack Push [13453] = addr 13450
       Stack Push [13454] = addr 0
       Stack Push [13455] = addr 0
       SP = 13456
       FP = 13451
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13454] = addr 2
       Stack Write [13455] = addr 13427
       Display [1] = 13427
       Display [2] = 13451
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13456] = addr 113434
       SP = 13457
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13457] = integer 2d
       SP = 13460
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13457] = integer 2d
       Stack Push [13457] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [13457] = integer 1d
       Stack Pop [13456] = addr 113434
       Stack Write [13434] = integer 1d
       SP = 13456
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13456] = integer 0d
       Stack Push [13457] = addr 13451
       Stack Push [13460] = addr 23551
       Stack Push [13461] = addr 13456
       Stack Push [13462] = addr 0
       Stack Push [13463] = addr 0
       Stack Push [13464] = integer 0d
       Stack Push [13465] = addr 213451
       Stack Push [13466] = integer 0d
       Stack Push [13467] = addr 213451
       Stack Push [13470] = integer 0d
       Stack Push [13471] = addr 213451
       Stack Push [13472] = integer 0d
       Stack Push [13473] = addr 213451
       Stack Push [13474] = integer 0d
       Stack Push [13475] = addr 213451
       Stack Push [13476] = integer 0d
       Stack Push [13477] = addr 213451
       SP = 13500
       FP = 13457
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13462] = addr 1
       Display [1] = 13457
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13500] = addr 113464
       SP = 13501
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13501] = integer 1d
       SP = 13502
 23510: 00 00 00125 ST  store
       Stack Pop [13501] = integer 1d
       Stack Pop [13500] = addr 113464
       Stack Write [13464] = integer 1d
       SP = 13500
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13500] = integer 1d
       SP = 13501
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13501] = integer 1d
       SP = 13502
 23562: 00 00 00105 LES less <
       Stack Pop [13501] = integer 1d
       Stack Pop [13500] = integer 1d
       Stack Push [13500] = integer 1d
       SP = 13501
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13500] = integer 1d
       SP = 13500
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13500] = integer 0d
       Stack Push [13501] = addr 13457
       Stack Push [13502] = addr 23575
       Stack Push [13503] = addr 13500
       Stack Push [13504] = addr 0
       Stack Push [13505] = addr 0
       SP = 13506
       FP = 13501
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13504] = addr 2
       Stack Write [13505] = addr 13457
       Display [1] = 13457
       Display [2] = 13501
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13506] = addr 113464
       SP = 13507
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13507] = integer 1d
       SP = 13510
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13507] = integer 1d
       Stack Push [13507] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [13507] = integer 0d
       Stack Pop [13506] = addr 113464
       Stack Write [13464] = integer 0d
       SP = 13506
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13506] = integer 0d
       Stack Push [13507] = addr 13501
       Stack Push [13510] = addr 23551
       Stack Push [13511] = addr 13506
       Stack Push [13512] = addr 0
       Stack Push [13513] = addr 0
       Stack Push [13514] = integer 0d
       Stack Push [13515] = addr 213501
       Stack Push [13516] = integer 0d
       Stack Push [13517] = addr 213501
       Stack Push [13520] = integer 0d
       Stack Push [13521] = addr 213501
       Stack Push [13522] = integer 0d
       Stack Push [13523] = addr 213501
       Stack Push [13524] = integer 0d
       Stack Push [13525] = addr 213501
       Stack Push [13526] = integer 0d
       Stack Push [13527] = addr 213501
       SP = 13530
       FP = 13507
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13512] = addr 1
       Display [1] = 13507
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13530] = addr 113514
       SP = 13531
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13531] = integer 0d
       SP = 13532
 23510: 00 00 00125 ST  store
       Stack Pop [13531] = integer 0d
       Stack Pop [13530] = addr 113514
       Stack Write [13514] = integer 0d
       SP = 13530
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13530] = integer 0d
       SP = 13531
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13531] = integer 1d
       SP = 13532
 23562: 00 00 00105 LES less <
       Stack Pop [13531] = integer 1d
       Stack Pop [13530] = integer 0d
       Stack Push [13530] = integer 0d
       SP = 13531
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13530] = integer 0d
       C = 1
       SP = 13530
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 13507 -> Level 2, Frame 13501
       Stack Push [13530] = integer 0d
       Stack Push [13531] = addr 13507
       Stack Push [13532] = addr 23567
       Stack Push [13533] = addr 13530
       Stack Push [13534] = addr 0
       Stack Push [13535] = addr 0
       Stack Write [13534] = addr 2
       Stack Write [13535] = addr 13507
       Display [1] = 13457
       Display [2] = 13501
       SP = 13536
       FP = 13531
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 13501 -> Level 2, Frame 13451
       Stack Push [13536] = integer 0d
       Stack Push [13537] = addr 13531
       Stack Push [13540] = addr 23535
       Stack Push [13541] = addr 13536
       Stack Push [13542] = addr 0
       Stack Push [13543] = addr 0
       Stack Write [13542] = addr 2
       Stack Write [13543] = addr 13457
       Display [1] = 13427
       Display [2] = 13451
       SP = 13544
       FP = 13537
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 13451 -> Level 2, Frame 13421
       Stack Push [13544] = integer 0d
       Stack Push [13545] = addr 13537
       Stack Push [13546] = addr 23532
       Stack Push [13547] = addr 13544
       Stack Push [13550] = addr 0
       Stack Push [13551] = addr 0
       Stack Write [13550] = addr 2
       Stack Write [13551] = addr 13427
       Display [1] = 12651
       Display [2] = 13421
       SP = 13552
       FP = 13545
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 13421 -> Level 2, Frame 12643
       Stack Push [13552] = integer 0d
       Stack Push [13553] = addr 13545
       Stack Push [13554] = addr 23527
       Stack Push [13555] = addr 13552
       Stack Push [13556] = addr 0
       Stack Push [13557] = addr 0
       Stack Write [13556] = addr 2
       Stack Write [13557] = addr 12651
       Display [1] = 12621
       Display [2] = 12643
       SP = 13560
       FP = 13553
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13557] = addr 12621
       Display [2] = 13553
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13560] = addr 112626
       SP = 13561
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13561] = integer 5d
       SP = 13562
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13561] = integer 5d
       Stack Push [13561] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [13561] = integer 4d
       Stack Pop [13560] = addr 112626
       Stack Write [12626] = integer 4d
       SP = 13560
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13560] = integer 0d
       Stack Push [13561] = addr 13553
       Stack Push [13562] = addr 23551
       Stack Push [13563] = addr 13560
       Stack Push [13564] = addr 0
       Stack Push [13565] = addr 0
       Stack Push [13566] = integer 0d
       Stack Push [13567] = addr 213553
       Stack Push [13570] = integer 0d
       Stack Push [13571] = addr 213553
       Stack Push [13572] = integer 0d
       Stack Push [13573] = addr 213553
       Stack Push [13574] = integer 0d
       Stack Push [13575] = addr 213553
       Stack Push [13576] = integer 0d
       Stack Push [13577] = addr 213553
       Stack Push [13600] = integer 0d
       Stack Push [13601] = addr 213553
       SP = 13602
       FP = 13561
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13564] = addr 1
       Display [1] = 13561
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13602] = addr 113566
       SP = 13603
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13603] = integer 4d
       SP = 13604
 23510: 00 00 00125 ST  store
       Stack Pop [13603] = integer 4d
       Stack Pop [13602] = addr 113566
       Stack Write [13566] = integer 4d
       SP = 13602
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13602] = integer 4d
       SP = 13603
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13603] = integer 1d
       SP = 13604
 23562: 00 00 00105 LES less <
       Stack Pop [13603] = integer 1d
       Stack Pop [13602] = integer 4d
       Stack Push [13602] = integer 1d
       SP = 13603
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13602] = integer 1d
       C = 0
       SP = 13602
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13602] = integer 0d
       Stack Push [13603] = addr 13561
       Stack Push [13604] = addr 23575
       Stack Push [13605] = addr 13602
       Stack Push [13606] = addr 0
       Stack Push [13607] = addr 0
       SP = 13610
       FP = 13603
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13606] = addr 2
       Stack Write [13607] = addr 13561
       Display [1] = 13561
       Display [2] = 13603
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13610] = addr 113566
       SP = 13611
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13611] = integer 4d
       SP = 13612
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13611] = integer 4d
       Stack Push [13611] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [13611] = integer 3d
       Stack Pop [13610] = addr 113566
       Stack Write [13566] = integer 3d
       SP = 13610
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13610] = integer 0d
       Stack Push [13611] = addr 13603
       Stack Push [13612] = addr 23551
       Stack Push [13613] = addr 13610
       Stack Push [13614] = addr 0
       Stack Push [13615] = addr 0
       Stack Push [13616] = integer 0d
       Stack Push [13617] = addr 213603
       Stack Push [13620] = integer 0d
       Stack Push [13621] = addr 213603
       Stack Push [13622] = integer 0d
       Stack Push [13623] = addr 213603
       Stack Push [13624] = integer 0d
       Stack Push [13625] = addr 213603
       Stack Push [13626] = integer 0d
       Stack Push [13627] = addr 213603
       Stack Push [13630] = integer 0d
       Stack Push [13631] = addr 213603
       SP = 13632
       FP = 13611
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13614] = addr 1
       Display [1] = 13611
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13632] = addr 113616
       SP = 13633
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13633] = integer 3d
       SP = 13634
 23510: 00 00 00125 ST  store
       Stack Pop [13633] = integer 3d
       Stack Pop [13632] = addr 113616
       Stack Write [13616] = integer 3d
       SP = 13632
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13632] = integer 3d
       SP = 13633
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13633] = integer 1d
       SP = 13634
 23562: 00 00 00105 LES less <
       Stack Pop [13633] = integer 1d
       Stack Pop [13632] = integer 3d
       Stack Push [13632] = integer 1d
       SP = 13633
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13632] = integer 1d
       SP = 13632
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13632] = integer 0d
       Stack Push [13633] = addr 13611
       Stack Push [13634] = addr 23575
       Stack Push [13635] = addr 13632
       Stack Push [13636] = addr 0
       Stack Push [13637] = addr 0
       SP = 13640
       FP = 13633
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13636] = addr 2
       Stack Write [13637] = addr 13611
       Display [1] = 13611
       Display [2] = 13633
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13640] = addr 113616
       SP = 13641
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13641] = integer 3d
       SP = 13642
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13641] = integer 3d
       Stack Push [13641] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [13641] = integer 2d
       Stack Pop [13640] = addr 113616
       Stack Write [13616] = integer 2d
       SP = 13640
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13640] = integer 0d
       Stack Push [13641] = addr 13633
       Stack Push [13642] = addr 23551
       Stack Push [13643] = addr 13640
       Stack Push [13644] = addr 0
       Stack Push [13645] = addr 0
       Stack Push [13646] = integer 0d
       Stack Push [13647] = addr 213633
       Stack Push [13650] = integer 0d
       Stack Push [13651] = addr 213633
       Stack Push [13652] = integer 0d
       Stack Push [13653] = addr 213633
       Stack Push [13654] = integer 0d
       Stack Push [13655] = addr 213633
       Stack Push [13656] = integer 0d
       Stack Push [13657] = addr 213633
       Stack Push [13660] = integer 0d
       Stack Push [13661] = addr 213633
       SP = 13662
       FP = 13641
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13644] = addr 1
       Display [1] = 13641
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13662] = addr 113646
       SP = 13663
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13663] = integer 2d
       SP = 13664
 23510: 00 00 00125 ST  store
       Stack Pop [13663] = integer 2d
       Stack Pop [13662] = addr 113646
       Stack Write [13646] = integer 2d
       SP = 13662
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13662] = integer 2d
       SP = 13663
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13663] = integer 1d
       SP = 13664
 23562: 00 00 00105 LES less <
       Stack Pop [13663] = integer 1d
       Stack Pop [13662] = integer 2d
       Stack Push [13662] = integer 1d
       SP = 13663
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13662] = integer 1d
       SP = 13662
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13662] = integer 0d
       Stack Push [13663] = addr 13641
       Stack Push [13664] = addr 23575
       Stack Push [13665] = addr 13662
       Stack Push [13666] = addr 0
       Stack Push [13667] = addr 0
       SP = 13670
       FP = 13663
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13666] = addr 2
       Stack Write [13667] = addr 13641
       Display [1] = 13641
       Display [2] = 13663
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13670] = addr 113646
       SP = 13671
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13671] = integer 2d
       SP = 13672
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13671] = integer 2d
       Stack Push [13671] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [13671] = integer 1d
       Stack Pop [13670] = addr 113646
       Stack Write [13646] = integer 1d
       SP = 13670
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13670] = integer 0d
       Stack Push [13671] = addr 13663
       Stack Push [13672] = addr 23551
       Stack Push [13673] = addr 13670
       Stack Push [13674] = addr 0
       Stack Push [13675] = addr 0
       Stack Push [13676] = integer 0d
       Stack Push [13677] = addr 213663
       Stack Push [13700] = integer 0d
       Stack Push [13701] = addr 213663
       Stack Push [13702] = integer 0d
       Stack Push [13703] = addr 213663
       Stack Push [13704] = integer 0d
       Stack Push [13705] = addr 213663
       Stack Push [13706] = integer 0d
       Stack Push [13707] = addr 213663
       Stack Push [13710] = integer 0d
       Stack Push [13711] = addr 213663
       SP = 13712
       FP = 13671
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13674] = addr 1
       Display [1] = 13671
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13712] = addr 113676
       SP = 13713
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13713] = integer 1d
       SP = 13714
 23510: 00 00 00125 ST  store
       Stack Pop [13713] = integer 1d
       Stack Pop [13712] = addr 113676
       Stack Write [13676] = integer 1d
       SP = 13712
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13712] = integer 1d
       SP = 13713
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13713] = integer 1d
       SP = 13714
 23562: 00 00 00105 LES less <
       Stack Pop [13713] = integer 1d
       Stack Pop [13712] = integer 1d
       Stack Push [13712] = integer 1d
       SP = 13713
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13712] = integer 1d
       SP = 13712
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [13712] = integer 0d
       Stack Push [13713] = addr 13671
       Stack Push [13714] = addr 23575
       Stack Push [13715] = addr 13712
       Stack Push [13716] = addr 0
       Stack Push [13717] = addr 0
       SP = 13720
       FP = 13713
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13716] = addr 2
       Stack Write [13717] = addr 13671
       Display [1] = 13671
       Display [2] = 13713
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13720] = addr 113676
       SP = 13721
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13721] = integer 1d
       SP = 13722
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13721] = integer 1d
       Stack Push [13721] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [13721] = integer 0d
       Stack Pop [13720] = addr 113676
       Stack Write [13676] = integer 0d
       SP = 13720
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13720] = integer 0d
       Stack Push [13721] = addr 13713
       Stack Push [13722] = addr 23551
       Stack Push [13723] = addr 13720
       Stack Push [13724] = addr 0
       Stack Push [13725] = addr 0
       Stack Push [13726] = integer 0d
       Stack Push [13727] = addr 213713
       Stack Push [13730] = integer 0d
       Stack Push [13731] = addr 213713
       Stack Push [13732] = integer 0d
       Stack Push [13733] = addr 213713
       Stack Push [13734] = integer 0d
       Stack Push [13735] = addr 213713
       Stack Push [13736] = integer 0d
       Stack Push [13737] = addr 213713
       Stack Push [13740] = integer 0d
       Stack Push [13741] = addr 213713
       SP = 13742
       FP = 13721
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13724] = addr 1
       Display [1] = 13721
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13742] = addr 113726
       SP = 13743
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [13743] = integer 0d
       SP = 13744
 23510: 00 00 00125 ST  store
       Stack Pop [13743] = integer 0d
       Stack Pop [13742] = addr 113726
       Stack Write [13726] = integer 0d
       SP = 13742
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13742] = integer 0d
       SP = 13743
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [13743] = integer 1d
       SP = 13744
 23562: 00 00 00105 LES less <
       Stack Pop [13743] = integer 1d
       Stack Pop [13742] = integer 0d
       Stack Push [13742] = integer 0d
       SP = 13743
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [13742] = integer 0d
       C = 1
       SP = 13742
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 13721 -> Level 2, Frame 13713
       Stack Push [13742] = integer 0d
       Stack Push [13743] = addr 13721
       Stack Push [13744] = addr 23567
       Stack Push [13745] = addr 13742
       Stack Push [13746] = addr 0
       Stack Push [13747] = addr 0
       Stack Write [13746] = addr 2
       Stack Write [13747] = addr 13721
       Display [1] = 13671
       Display [2] = 13713
       SP = 13750
       FP = 13743
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 13713 -> Level 2, Frame 13663
       Stack Push [13750] = integer 0d
       Stack Push [13751] = addr 13743
       Stack Push [13752] = addr 23535
       Stack Push [13753] = addr 13750
       Stack Push [13754] = addr 0
       Stack Push [13755] = addr 0
       Stack Write [13754] = addr 2
       Stack Write [13755] = addr 13671
       Display [1] = 13641
       Display [2] = 13663
       SP = 13756
       FP = 13751
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 13663 -> Level 2, Frame 13633
       Stack Push [13756] = integer 0d
       Stack Push [13757] = addr 13751
       Stack Push [13760] = addr 23532
       Stack Push [13761] = addr 13756
       Stack Push [13762] = addr 0
       Stack Push [13763] = addr 0
       Stack Write [13762] = addr 2
       Stack Write [13763] = addr 13641
       Display [1] = 13611
       Display [2] = 13633
       SP = 13764
       FP = 13757
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 13633 -> Level 2, Frame 13603
       Stack Push [13764] = integer 0d
       Stack Push [13765] = addr 13757
       Stack Push [13766] = addr 23527
       Stack Push [13767] = addr 13764
       Stack Push [13770] = addr 0
       Stack Push [13771] = addr 0
       Stack Write [13770] = addr 2
       Stack Write [13771] = addr 13611
       Display [1] = 13561
       Display [2] = 13603
       SP = 13772
       FP = 13765
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [13771] = addr 13561
       Display [2] = 13765
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [13772] = addr 113566
       SP = 13773
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [13773] = integer 3d
       SP = 13774
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [13773] = integer 3d
       Stack Push [13773] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [13773] = integer 2d
       Stack Pop [13772] = addr 113566
       Stack Write [13566] = integer 2d
       SP = 13772
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [13772] = integer 0d
       Stack Push [13773] = addr 13765
       Stack Push [13774] = addr 23551
       Stack Push [13775] = addr 13772
       Stack Push [13776] = addr 0
       Stack Push [13777] = addr 0
       Stack Push [14000] = integer 0d
       Stack Push [14001] = addr 213765
       Stack Push [14002] = integer 0d
       Stack Push [14003] = addr 213765
       Stack Push [14004] = integer 0d
       Stack Push [14005] = addr 213765
       Stack Push [14006] = integer 0d
       Stack Push [14007] = addr 213765
       Stack Push [14010] = integer 0d
       Stack Push [14011] = addr 213765
       Stack Push [14012] = integer 0d
       Stack Push [14013] = addr 213765
       SP = 14014
       FP = 13773
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [13776] = addr 1
       Display [1] = 13773
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14014] = addr 114000
       SP = 14015
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14015] = integer 2d
       SP = 14016
 23510: 00 00 00125 ST  store
       Stack Pop [14015] = integer 2d
       Stack Pop [14014] = addr 114000
       Stack Write [14000] = integer 2d
       SP = 14014
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14014] = integer 2d
       SP = 14015
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14015] = integer 1d
       SP = 14016
 23562: 00 00 00105 LES less <
       Stack Pop [14015] = integer 1d
       Stack Pop [14014] = integer 2d
       Stack Push [14014] = integer 1d
       SP = 14015
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14014] = integer 1d
       C = 0
       SP = 14014
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14014] = integer 0d
       Stack Push [14015] = addr 13773
       Stack Push [14016] = addr 23575
       Stack Push [14017] = addr 14014
       Stack Push [14020] = addr 0
       Stack Push [14021] = addr 0
       SP = 14022
       FP = 14015
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14020] = addr 2
       Stack Write [14021] = addr 13773
       Display [1] = 13773
       Display [2] = 14015
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14022] = addr 114000
       SP = 14023
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14023] = integer 2d
       SP = 14024
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14023] = integer 2d
       Stack Push [14023] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [14023] = integer 1d
       Stack Pop [14022] = addr 114000
       Stack Write [14000] = integer 1d
       SP = 14022
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14022] = integer 0d
       Stack Push [14023] = addr 14015
       Stack Push [14024] = addr 23551
       Stack Push [14025] = addr 14022
       Stack Push [14026] = addr 0
       Stack Push [14027] = addr 0
       Stack Push [14030] = integer 0d
       Stack Push [14031] = addr 214015
       Stack Push [14032] = integer 0d
       Stack Push [14033] = addr 214015
       Stack Push [14034] = integer 0d
       Stack Push [14035] = addr 214015
       Stack Push [14036] = integer 0d
       Stack Push [14037] = addr 214015
       Stack Push [14040] = integer 0d
       Stack Push [14041] = addr 214015
       Stack Push [14042] = integer 0d
       Stack Push [14043] = addr 214015
       SP = 14044
       FP = 14023
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14026] = addr 1
       Display [1] = 14023
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14044] = addr 114030
       SP = 14045
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14045] = integer 1d
       SP = 14046
 23510: 00 00 00125 ST  store
       Stack Pop [14045] = integer 1d
       Stack Pop [14044] = addr 114030
       Stack Write [14030] = integer 1d
       SP = 14044
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14044] = integer 1d
       SP = 14045
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14045] = integer 1d
       SP = 14046
 23562: 00 00 00105 LES less <
       Stack Pop [14045] = integer 1d
       Stack Pop [14044] = integer 1d
       Stack Push [14044] = integer 1d
       SP = 14045
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14044] = integer 1d
       SP = 14044
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14044] = integer 0d
       Stack Push [14045] = addr 14023
       Stack Push [14046] = addr 23575
       Stack Push [14047] = addr 14044
       Stack Push [14050] = addr 0
       Stack Push [14051] = addr 0
       SP = 14052
       FP = 14045
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14050] = addr 2
       Stack Write [14051] = addr 14023
       Display [1] = 14023
       Display [2] = 14045
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14052] = addr 114030
       SP = 14053
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14053] = integer 1d
       SP = 14054
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14053] = integer 1d
       Stack Push [14053] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [14053] = integer 0d
       Stack Pop [14052] = addr 114030
       Stack Write [14030] = integer 0d
       SP = 14052
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14052] = integer 0d
       Stack Push [14053] = addr 14045
       Stack Push [14054] = addr 23551
       Stack Push [14055] = addr 14052
       Stack Push [14056] = addr 0
       Stack Push [14057] = addr 0
       Stack Push [14060] = integer 0d
       Stack Push [14061] = addr 214045
       Stack Push [14062] = integer 0d
       Stack Push [14063] = addr 214045
       Stack Push [14064] = integer 0d
       Stack Push [14065] = addr 214045
       Stack Push [14066] = integer 0d
       Stack Push [14067] = addr 214045
       Stack Push [14070] = integer 0d
       Stack Push [14071] = addr 214045
       Stack Push [14072] = integer 0d
       Stack Push [14073] = addr 214045
       SP = 14074
       FP = 14053
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14056] = addr 1
       Display [1] = 14053
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14074] = addr 114060
       SP = 14075
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14075] = integer 0d
       SP = 14076
 23510: 00 00 00125 ST  store
       Stack Pop [14075] = integer 0d
       Stack Pop [14074] = addr 114060
       Stack Write [14060] = integer 0d
       SP = 14074
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14074] = integer 0d
       SP = 14075
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14075] = integer 1d
       SP = 14076
 23562: 00 00 00105 LES less <
       Stack Pop [14075] = integer 1d
       Stack Pop [14074] = integer 0d
       Stack Push [14074] = integer 0d
       SP = 14075
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14074] = integer 0d
       C = 1
       SP = 14074
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 14053 -> Level 2, Frame 14045
       Stack Push [14074] = integer 0d
       Stack Push [14075] = addr 14053
       Stack Push [14076] = addr 23567
       Stack Push [14077] = addr 14074
       Stack Push [14100] = addr 0
       Stack Push [14101] = addr 0
       Stack Write [14100] = addr 2
       Stack Write [14101] = addr 14053
       Display [1] = 14023
       Display [2] = 14045
       SP = 14102
       FP = 14075
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 14045 -> Level 2, Frame 14015
       Stack Push [14102] = integer 0d
       Stack Push [14103] = addr 14075
       Stack Push [14104] = addr 23535
       Stack Push [14105] = addr 14102
       Stack Push [14106] = addr 0
       Stack Push [14107] = addr 0
       Stack Write [14106] = addr 2
       Stack Write [14107] = addr 14023
       Display [1] = 13773
       Display [2] = 14015
       SP = 14110
       FP = 14103
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 14015 -> Level 2, Frame 13765
       Stack Push [14110] = integer 0d
       Stack Push [14111] = addr 14103
       Stack Push [14112] = addr 23532
       Stack Push [14113] = addr 14110
       Stack Push [14114] = addr 0
       Stack Push [14115] = addr 0
       Stack Write [14114] = addr 2
       Stack Write [14115] = addr 13773
       Display [1] = 13561
       Display [2] = 13765
       SP = 14116
       FP = 14111
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 13765 -> Level 2, Frame 13553
       Stack Push [14116] = integer 0d
       Stack Push [14117] = addr 14111
       Stack Push [14120] = addr 23527
       Stack Push [14121] = addr 14116
       Stack Push [14122] = addr 0
       Stack Push [14123] = addr 0
       Stack Write [14122] = addr 2
       Stack Write [14123] = addr 13561
       Display [1] = 12621
       Display [2] = 13553
       SP = 14124
       FP = 14117
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14123] = addr 12621
       Display [2] = 14117
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14124] = addr 112626
       SP = 14125
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14125] = integer 4d
       SP = 14126
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14125] = integer 4d
       Stack Push [14125] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [14125] = integer 3d
       Stack Pop [14124] = addr 112626
       Stack Write [12626] = integer 3d
       SP = 14124
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14124] = integer 0d
       Stack Push [14125] = addr 14117
       Stack Push [14126] = addr 23551
       Stack Push [14127] = addr 14124
       Stack Push [14130] = addr 0
       Stack Push [14131] = addr 0
       Stack Push [14132] = integer 0d
       Stack Push [14133] = addr 214117
       Stack Push [14134] = integer 0d
       Stack Push [14135] = addr 214117
       Stack Push [14136] = integer 0d
       Stack Push [14137] = addr 214117
       Stack Push [14140] = integer 0d
       Stack Push [14141] = addr 214117
       Stack Push [14142] = integer 0d
       Stack Push [14143] = addr 214117
       Stack Push [14144] = integer 0d
       Stack Push [14145] = addr 214117
       SP = 14146
       FP = 14125
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14130] = addr 1
       Display [1] = 14125
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14146] = addr 114132
       SP = 14147
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14147] = integer 3d
       SP = 14150
 23510: 00 00 00125 ST  store
       Stack Pop [14147] = integer 3d
       Stack Pop [14146] = addr 114132
       Stack Write [14132] = integer 3d
       SP = 14146
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14146] = integer 3d
       SP = 14147
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14147] = integer 1d
       SP = 14150
 23562: 00 00 00105 LES less <
       Stack Pop [14147] = integer 1d
       Stack Pop [14146] = integer 3d
       Stack Push [14146] = integer 1d
       SP = 14147
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14146] = integer 1d
       C = 0
       SP = 14146
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14146] = integer 0d
       Stack Push [14147] = addr 14125
       Stack Push [14150] = addr 23575
       Stack Push [14151] = addr 14146
       Stack Push [14152] = addr 0
       Stack Push [14153] = addr 0
       SP = 14154
       FP = 14147
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14152] = addr 2
       Stack Write [14153] = addr 14125
       Display [1] = 14125
       Display [2] = 14147
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14154] = addr 114132
       SP = 14155
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14155] = integer 3d
       SP = 14156
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14155] = integer 3d
       Stack Push [14155] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [14155] = integer 2d
       Stack Pop [14154] = addr 114132
       Stack Write [14132] = integer 2d
       SP = 14154
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14154] = integer 0d
       Stack Push [14155] = addr 14147
       Stack Push [14156] = addr 23551
       Stack Push [14157] = addr 14154
       Stack Push [14160] = addr 0
       Stack Push [14161] = addr 0
       Stack Push [14162] = integer 0d
       Stack Push [14163] = addr 214147
       Stack Push [14164] = integer 0d
       Stack Push [14165] = addr 214147
       Stack Push [14166] = integer 0d
       Stack Push [14167] = addr 214147
       Stack Push [14170] = integer 0d
       Stack Push [14171] = addr 214147
       Stack Push [14172] = integer 0d
       Stack Push [14173] = addr 214147
       Stack Push [14174] = integer 0d
       Stack Push [14175] = addr 214147
       SP = 14176
       FP = 14155
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14160] = addr 1
       Display [1] = 14155
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14176] = addr 114162
       SP = 14177
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14177] = integer 2d
       SP = 14200
 23510: 00 00 00125 ST  store
       Stack Pop [14177] = integer 2d
       Stack Pop [14176] = addr 114162
       Stack Write [14162] = integer 2d
       SP = 14176
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14176] = integer 2d
       SP = 14177
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14177] = integer 1d
       SP = 14200
 23562: 00 00 00105 LES less <
       Stack Pop [14177] = integer 1d
       Stack Pop [14176] = integer 2d
       Stack Push [14176] = integer 1d
       SP = 14177
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14176] = integer 1d
       SP = 14176
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14176] = integer 0d
       Stack Push [14177] = addr 14155
       Stack Push [14200] = addr 23575
       Stack Push [14201] = addr 14176
       Stack Push [14202] = addr 0
       Stack Push [14203] = addr 0
       SP = 14204
       FP = 14177
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14202] = addr 2
       Stack Write [14203] = addr 14155
       Display [1] = 14155
       Display [2] = 14177
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14204] = addr 114162
       SP = 14205
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14205] = integer 2d
       SP = 14206
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14205] = integer 2d
       Stack Push [14205] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [14205] = integer 1d
       Stack Pop [14204] = addr 114162
       Stack Write [14162] = integer 1d
       SP = 14204
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14204] = integer 0d
       Stack Push [14205] = addr 14177
       Stack Push [14206] = addr 23551
       Stack Push [14207] = addr 14204
       Stack Push [14210] = addr 0
       Stack Push [14211] = addr 0
       Stack Push [14212] = integer 0d
       Stack Push [14213] = addr 214177
       Stack Push [14214] = integer 0d
       Stack Push [14215] = addr 214177
       Stack Push [14216] = integer 0d
       Stack Push [14217] = addr 214177
       Stack Push [14220] = integer 0d
       Stack Push [14221] = addr 214177
       Stack Push [14222] = integer 0d
       Stack Push [14223] = addr 214177
       Stack Push [14224] = integer 0d
       Stack Push [14225] = addr 214177
       SP = 14226
       FP = 14205
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14210] = addr 1
       Display [1] = 14205
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14226] = addr 114212
       SP = 14227
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14227] = integer 1d
       SP = 14230
 23510: 00 00 00125 ST  store
       Stack Pop [14227] = integer 1d
       Stack Pop [14226] = addr 114212
       Stack Write [14212] = integer 1d
       SP = 14226
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14226] = integer 1d
       SP = 14227
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14227] = integer 1d
       SP = 14230
 23562: 00 00 00105 LES less <
       Stack Pop [14227] = integer 1d
       Stack Pop [14226] = integer 1d
       Stack Push [14226] = integer 1d
       SP = 14227
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14226] = integer 1d
       SP = 14226
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14226] = integer 0d
       Stack Push [14227] = addr 14205
       Stack Push [14230] = addr 23575
       Stack Push [14231] = addr 14226
       Stack Push [14232] = addr 0
       Stack Push [14233] = addr 0
       SP = 14234
       FP = 14227
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14232] = addr 2
       Stack Write [14233] = addr 14205
       Display [1] = 14205
       Display [2] = 14227
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14234] = addr 114212
       SP = 14235
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14235] = integer 1d
       SP = 14236
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14235] = integer 1d
       Stack Push [14235] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [14235] = integer 0d
       Stack Pop [14234] = addr 114212
       Stack Write [14212] = integer 0d
       SP = 14234
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14234] = integer 0d
       Stack Push [14235] = addr 14227
       Stack Push [14236] = addr 23551
       Stack Push [14237] = addr 14234
       Stack Push [14240] = addr 0
       Stack Push [14241] = addr 0
       Stack Push [14242] = integer 0d
       Stack Push [14243] = addr 214227
       Stack Push [14244] = integer 0d
       Stack Push [14245] = addr 214227
       Stack Push [14246] = integer 0d
       Stack Push [14247] = addr 214227
       Stack Push [14250] = integer 0d
       Stack Push [14251] = addr 214227
       Stack Push [14252] = integer 0d
       Stack Push [14253] = addr 214227
       Stack Push [14254] = integer 0d
       Stack Push [14255] = addr 214227
       SP = 14256
       FP = 14235
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14240] = addr 1
       Display [1] = 14235
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14256] = addr 114242
       SP = 14257
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14257] = integer 0d
       SP = 14260
 23510: 00 00 00125 ST  store
       Stack Pop [14257] = integer 0d
       Stack Pop [14256] = addr 114242
       Stack Write [14242] = integer 0d
       SP = 14256
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14256] = integer 0d
       SP = 14257
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14257] = integer 1d
       SP = 14260
 23562: 00 00 00105 LES less <
       Stack Pop [14257] = integer 1d
       Stack Pop [14256] = integer 0d
       Stack Push [14256] = integer 0d
       SP = 14257
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14256] = integer 0d
       C = 1
       SP = 14256
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 14235 -> Level 2, Frame 14227
       Stack Push [14256] = integer 0d
       Stack Push [14257] = addr 14235
       Stack Push [14260] = addr 23567
       Stack Push [14261] = addr 14256
       Stack Push [14262] = addr 0
       Stack Push [14263] = addr 0
       Stack Write [14262] = addr 2
       Stack Write [14263] = addr 14235
       Display [1] = 14205
       Display [2] = 14227
       SP = 14264
       FP = 14257
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 14227 -> Level 2, Frame 14177
       Stack Push [14264] = integer 0d
       Stack Push [14265] = addr 14257
       Stack Push [14266] = addr 23535
       Stack Push [14267] = addr 14264
       Stack Push [14270] = addr 0
       Stack Push [14271] = addr 0
       Stack Write [14270] = addr 2
       Stack Write [14271] = addr 14205
       Display [1] = 14155
       Display [2] = 14177
       SP = 14272
       FP = 14265
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 14177 -> Level 2, Frame 14147
       Stack Push [14272] = integer 0d
       Stack Push [14273] = addr 14265
       Stack Push [14274] = addr 23532
       Stack Push [14275] = addr 14272
       Stack Push [14276] = addr 0
       Stack Push [14277] = addr 0
       Stack Write [14276] = addr 2
       Stack Write [14277] = addr 14155
       Display [1] = 14125
       Display [2] = 14147
       SP = 14300
       FP = 14273
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 14147 -> Level 2, Frame 14117
       Stack Push [14300] = integer 0d
       Stack Push [14301] = addr 14273
       Stack Push [14302] = addr 23527
       Stack Push [14303] = addr 14300
       Stack Push [14304] = addr 0
       Stack Push [14305] = addr 0
       Stack Write [14304] = addr 2
       Stack Write [14305] = addr 14125
       Display [1] = 12621
       Display [2] = 14117
       SP = 14306
       FP = 14301
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14305] = addr 12621
       Display [2] = 14301
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14306] = addr 112626
       SP = 14307
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14307] = integer 3d
       SP = 14310
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14307] = integer 3d
       Stack Push [14307] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [14307] = integer 2d
       Stack Pop [14306] = addr 112626
       Stack Write [12626] = integer 2d
       SP = 14306
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14306] = integer 0d
       Stack Push [14307] = addr 14301
       Stack Push [14310] = addr 23551
       Stack Push [14311] = addr 14306
       Stack Push [14312] = addr 0
       Stack Push [14313] = addr 0
       Stack Push [14314] = integer 0d
       Stack Push [14315] = addr 214301
       Stack Push [14316] = integer 0d
       Stack Push [14317] = addr 214301
       Stack Push [14320] = integer 0d
       Stack Push [14321] = addr 214301
       Stack Push [14322] = integer 0d
       Stack Push [14323] = addr 214301
       Stack Push [14324] = integer 0d
       Stack Push [14325] = addr 214301
       Stack Push [14326] = integer 0d
       Stack Push [14327] = addr 214301
       SP = 14330
       FP = 14307
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14312] = addr 1
       Display [1] = 14307
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14330] = addr 114314
       SP = 14331
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14331] = integer 2d
       SP = 14332
 23510: 00 00 00125 ST  store
       Stack Pop [14331] = integer 2d
       Stack Pop [14330] = addr 114314
       Stack Write [14314] = integer 2d
       SP = 14330
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14330] = integer 2d
       SP = 14331
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14331] = integer 1d
       SP = 14332
 23562: 00 00 00105 LES less <
       Stack Pop [14331] = integer 1d
       Stack Pop [14330] = integer 2d
       Stack Push [14330] = integer 1d
       SP = 14331
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14330] = integer 1d
       C = 0
       SP = 14330
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14330] = integer 0d
       Stack Push [14331] = addr 14307
       Stack Push [14332] = addr 23575
       Stack Push [14333] = addr 14330
       Stack Push [14334] = addr 0
       Stack Push [14335] = addr 0
       SP = 14336
       FP = 14331
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14334] = addr 2
       Stack Write [14335] = addr 14307
       Display [1] = 14307
       Display [2] = 14331
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14336] = addr 114314
       SP = 14337
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14337] = integer 2d
       SP = 14340
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14337] = integer 2d
       Stack Push [14337] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [14337] = integer 1d
       Stack Pop [14336] = addr 114314
       Stack Write [14314] = integer 1d
       SP = 14336
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14336] = integer 0d
       Stack Push [14337] = addr 14331
       Stack Push [14340] = addr 23551
       Stack Push [14341] = addr 14336
       Stack Push [14342] = addr 0
       Stack Push [14343] = addr 0
       Stack Push [14344] = integer 0d
       Stack Push [14345] = addr 214331
       Stack Push [14346] = integer 0d
       Stack Push [14347] = addr 214331
       Stack Push [14350] = integer 0d
       Stack Push [14351] = addr 214331
       Stack Push [14352] = integer 0d
       Stack Push [14353] = addr 214331
       Stack Push [14354] = integer 0d
       Stack Push [14355] = addr 214331
       Stack Push [14356] = integer 0d
       Stack Push [14357] = addr 214331
       SP = 14360
       FP = 14337
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14342] = addr 1
       Display [1] = 14337
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14360] = addr 114344
       SP = 14361
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14361] = integer 1d
       SP = 14362
 23510: 00 00 00125 ST  store
       Stack Pop [14361] = integer 1d
       Stack Pop [14360] = addr 114344
       Stack Write [14344] = integer 1d
       SP = 14360
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14360] = integer 1d
       SP = 14361
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14361] = integer 1d
       SP = 14362
 23562: 00 00 00105 LES less <
       Stack Pop [14361] = integer 1d
       Stack Pop [14360] = integer 1d
       Stack Push [14360] = integer 1d
       SP = 14361
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14360] = integer 1d
       SP = 14360
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14360] = integer 0d
       Stack Push [14361] = addr 14337
       Stack Push [14362] = addr 23575
       Stack Push [14363] = addr 14360
       Stack Push [14364] = addr 0
       Stack Push [14365] = addr 0
       SP = 14366
       FP = 14361
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14364] = addr 2
       Stack Write [14365] = addr 14337
       Display [1] = 14337
       Display [2] = 14361
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14366] = addr 114344
       SP = 14367
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14367] = integer 1d
       SP = 14370
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14367] = integer 1d
       Stack Push [14367] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [14367] = integer 0d
       Stack Pop [14366] = addr 114344
       Stack Write [14344] = integer 0d
       SP = 14366
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14366] = integer 0d
       Stack Push [14367] = addr 14361
       Stack Push [14370] = addr 23551
       Stack Push [14371] = addr 14366
       Stack Push [14372] = addr 0
       Stack Push [14373] = addr 0
       Stack Push [14374] = integer 0d
       Stack Push [14375] = addr 214361
       Stack Push [14376] = integer 0d
       Stack Push [14377] = addr 214361
       Stack Push [14400] = integer 0d
       Stack Push [14401] = addr 214361
       Stack Push [14402] = integer 0d
       Stack Push [14403] = addr 214361
       Stack Push [14404] = integer 0d
       Stack Push [14405] = addr 214361
       Stack Push [14406] = integer 0d
       Stack Push [14407] = addr 214361
       SP = 14410
       FP = 14367
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14372] = addr 1
       Display [1] = 14367
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14410] = addr 114374
       SP = 14411
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14411] = integer 0d
       SP = 14412
 23510: 00 00 00125 ST  store
       Stack Pop [14411] = integer 0d
       Stack Pop [14410] = addr 114374
       Stack Write [14374] = integer 0d
       SP = 14410
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14410] = integer 0d
       SP = 14411
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14411] = integer 1d
       SP = 14412
 23562: 00 00 00105 LES less <
       Stack Pop [14411] = integer 1d
       Stack Pop [14410] = integer 0d
       Stack Push [14410] = integer 0d
       SP = 14411
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14410] = integer 0d
       C = 1
       SP = 14410
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 14367 -> Level 2, Frame 14361
       Stack Push [14410] = integer 0d
       Stack Push [14411] = addr 14367
       Stack Push [14412] = addr 23567
       Stack Push [14413] = addr 14410
       Stack Push [14414] = addr 0
       Stack Push [14415] = addr 0
       Stack Write [14414] = addr 2
       Stack Write [14415] = addr 14367
       Display [1] = 14337
       Display [2] = 14361
       SP = 14416
       FP = 14411
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 14361 -> Level 2, Frame 14331
       Stack Push [14416] = integer 0d
       Stack Push [14417] = addr 14411
       Stack Push [14420] = addr 23535
       Stack Push [14421] = addr 14416
       Stack Push [14422] = addr 0
       Stack Push [14423] = addr 0
       Stack Write [14422] = addr 2
       Stack Write [14423] = addr 14337
       Display [1] = 14307
       Display [2] = 14331
       SP = 14424
       FP = 14417
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 14331 -> Level 2, Frame 14301
       Stack Push [14424] = integer 0d
       Stack Push [14425] = addr 14417
       Stack Push [14426] = addr 23532
       Stack Push [14427] = addr 14424
       Stack Push [14430] = addr 0
       Stack Push [14431] = addr 0
       Stack Write [14430] = addr 2
       Stack Write [14431] = addr 14307
       Display [1] = 12621
       Display [2] = 14301
       SP = 14432
       FP = 14425
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 14301 -> Level 2, Frame 12613
       Stack Push [14432] = integer 0d
       Stack Push [14433] = addr 14425
       Stack Push [14434] = addr 23527
       Stack Push [14435] = addr 14432
       Stack Push [14436] = addr 0
       Stack Push [14437] = addr 0
       Stack Write [14436] = addr 2
       Stack Write [14437] = addr 12621
       Display [1] = 00031
       Display [2] = 12613
       SP = 14440
       FP = 14433
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14437] = addr 31
       Display [2] = 14433
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14440] = addr 100036
       SP = 14441
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14441] = integer 6d
       SP = 14442
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14441] = integer 6d
       Stack Push [14441] = integer 5d
 23522: 00 00 00125 ST  store
       Stack Pop [14441] = integer 5d
       Stack Pop [14440] = addr 100036
       Stack Write [36] = integer 5d
       SP = 14440
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14440] = integer 0d
       Stack Push [14441] = addr 14433
       Stack Push [14442] = addr 23551
       Stack Push [14443] = addr 14440
       Stack Push [14444] = addr 0
       Stack Push [14445] = addr 0
       Stack Push [14446] = integer 0d
       Stack Push [14447] = addr 214433
       Stack Push [14450] = integer 0d
       Stack Push [14451] = addr 214433
       Stack Push [14452] = integer 0d
       Stack Push [14453] = addr 214433
       Stack Push [14454] = integer 0d
       Stack Push [14455] = addr 214433
       Stack Push [14456] = integer 0d
       Stack Push [14457] = addr 214433
       Stack Push [14460] = integer 0d
       Stack Push [14461] = addr 214433
       SP = 14462
       FP = 14441
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14444] = addr 1
       Display [1] = 14441
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14462] = addr 114446
       SP = 14463
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14463] = integer 5d
       SP = 14464
 23510: 00 00 00125 ST  store
       Stack Pop [14463] = integer 5d
       Stack Pop [14462] = addr 114446
       Stack Write [14446] = integer 5d
       SP = 14462
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14462] = integer 5d
       SP = 14463
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14463] = integer 1d
       SP = 14464
 23562: 00 00 00105 LES less <
       Stack Pop [14463] = integer 1d
       Stack Pop [14462] = integer 5d
       Stack Push [14462] = integer 1d
       SP = 14463
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14462] = integer 1d
       C = 0
       SP = 14462
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14462] = integer 0d
       Stack Push [14463] = addr 14441
       Stack Push [14464] = addr 23575
       Stack Push [14465] = addr 14462
       Stack Push [14466] = addr 0
       Stack Push [14467] = addr 0
       SP = 14470
       FP = 14463
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14466] = addr 2
       Stack Write [14467] = addr 14441
       Display [1] = 14441
       Display [2] = 14463
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14470] = addr 114446
       SP = 14471
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14471] = integer 5d
       SP = 14472
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14471] = integer 5d
       Stack Push [14471] = integer 4d
 23522: 00 00 00125 ST  store
       Stack Pop [14471] = integer 4d
       Stack Pop [14470] = addr 114446
       Stack Write [14446] = integer 4d
       SP = 14470
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14470] = integer 0d
       Stack Push [14471] = addr 14463
       Stack Push [14472] = addr 23551
       Stack Push [14473] = addr 14470
       Stack Push [14474] = addr 0
       Stack Push [14475] = addr 0
       Stack Push [14476] = integer 0d
       Stack Push [14477] = addr 214463
       Stack Push [14500] = integer 0d
       Stack Push [14501] = addr 214463
       Stack Push [14502] = integer 0d
       Stack Push [14503] = addr 214463
       Stack Push [14504] = integer 0d
       Stack Push [14505] = addr 214463
       Stack Push [14506] = integer 0d
       Stack Push [14507] = addr 214463
       Stack Push [14510] = integer 0d
       Stack Push [14511] = addr 214463
       SP = 14512
       FP = 14471
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14474] = addr 1
       Display [1] = 14471
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14512] = addr 114476
       SP = 14513
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14513] = integer 4d
       SP = 14514
 23510: 00 00 00125 ST  store
       Stack Pop [14513] = integer 4d
       Stack Pop [14512] = addr 114476
       Stack Write [14476] = integer 4d
       SP = 14512
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14512] = integer 4d
       SP = 14513
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14513] = integer 1d
       SP = 14514
 23562: 00 00 00105 LES less <
       Stack Pop [14513] = integer 1d
       Stack Pop [14512] = integer 4d
       Stack Push [14512] = integer 1d
       SP = 14513
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14512] = integer 1d
       SP = 14512
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14512] = integer 0d
       Stack Push [14513] = addr 14471
       Stack Push [14514] = addr 23575
       Stack Push [14515] = addr 14512
       Stack Push [14516] = addr 0
       Stack Push [14517] = addr 0
       SP = 14520
       FP = 14513
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14516] = addr 2
       Stack Write [14517] = addr 14471
       Display [1] = 14471
       Display [2] = 14513
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14520] = addr 114476
       SP = 14521
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14521] = integer 4d
       SP = 14522
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14521] = integer 4d
       Stack Push [14521] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [14521] = integer 3d
       Stack Pop [14520] = addr 114476
       Stack Write [14476] = integer 3d
       SP = 14520
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14520] = integer 0d
       Stack Push [14521] = addr 14513
       Stack Push [14522] = addr 23551
       Stack Push [14523] = addr 14520
       Stack Push [14524] = addr 0
       Stack Push [14525] = addr 0
       Stack Push [14526] = integer 0d
       Stack Push [14527] = addr 214513
       Stack Push [14530] = integer 0d
       Stack Push [14531] = addr 214513
       Stack Push [14532] = integer 0d
       Stack Push [14533] = addr 214513
       Stack Push [14534] = integer 0d
       Stack Push [14535] = addr 214513
       Stack Push [14536] = integer 0d
       Stack Push [14537] = addr 214513
       Stack Push [14540] = integer 0d
       Stack Push [14541] = addr 214513
       SP = 14542
       FP = 14521
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14524] = addr 1
       Display [1] = 14521
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14542] = addr 114526
       SP = 14543
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14543] = integer 3d
       SP = 14544
 23510: 00 00 00125 ST  store
       Stack Pop [14543] = integer 3d
       Stack Pop [14542] = addr 114526
       Stack Write [14526] = integer 3d
       SP = 14542
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14542] = integer 3d
       SP = 14543
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14543] = integer 1d
       SP = 14544
 23562: 00 00 00105 LES less <
       Stack Pop [14543] = integer 1d
       Stack Pop [14542] = integer 3d
       Stack Push [14542] = integer 1d
       SP = 14543
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14542] = integer 1d
       SP = 14542
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14542] = integer 0d
       Stack Push [14543] = addr 14521
       Stack Push [14544] = addr 23575
       Stack Push [14545] = addr 14542
       Stack Push [14546] = addr 0
       Stack Push [14547] = addr 0
       SP = 14550
       FP = 14543
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14546] = addr 2
       Stack Write [14547] = addr 14521
       Display [1] = 14521
       Display [2] = 14543
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14550] = addr 114526
       SP = 14551
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14551] = integer 3d
       SP = 14552
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14551] = integer 3d
       Stack Push [14551] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [14551] = integer 2d
       Stack Pop [14550] = addr 114526
       Stack Write [14526] = integer 2d
       SP = 14550
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14550] = integer 0d
       Stack Push [14551] = addr 14543
       Stack Push [14552] = addr 23551
       Stack Push [14553] = addr 14550
       Stack Push [14554] = addr 0
       Stack Push [14555] = addr 0
       Stack Push [14556] = integer 0d
       Stack Push [14557] = addr 214543
       Stack Push [14560] = integer 0d
       Stack Push [14561] = addr 214543
       Stack Push [14562] = integer 0d
       Stack Push [14563] = addr 214543
       Stack Push [14564] = integer 0d
       Stack Push [14565] = addr 214543
       Stack Push [14566] = integer 0d
       Stack Push [14567] = addr 214543
       Stack Push [14570] = integer 0d
       Stack Push [14571] = addr 214543
       SP = 14572
       FP = 14551
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14554] = addr 1
       Display [1] = 14551
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14572] = addr 114556
       SP = 14573
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14573] = integer 2d
       SP = 14574
 23510: 00 00 00125 ST  store
       Stack Pop [14573] = integer 2d
       Stack Pop [14572] = addr 114556
       Stack Write [14556] = integer 2d
       SP = 14572
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14572] = integer 2d
       SP = 14573
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14573] = integer 1d
       SP = 14574
 23562: 00 00 00105 LES less <
       Stack Pop [14573] = integer 1d
       Stack Pop [14572] = integer 2d
       Stack Push [14572] = integer 1d
       SP = 14573
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14572] = integer 1d
       SP = 14572
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14572] = integer 0d
       Stack Push [14573] = addr 14551
       Stack Push [14574] = addr 23575
       Stack Push [14575] = addr 14572
       Stack Push [14576] = addr 0
       Stack Push [14577] = addr 0
       SP = 14600
       FP = 14573
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14576] = addr 2
       Stack Write [14577] = addr 14551
       Display [1] = 14551
       Display [2] = 14573
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14600] = addr 114556
       SP = 14601
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14601] = integer 2d
       SP = 14602
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14601] = integer 2d
       Stack Push [14601] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [14601] = integer 1d
       Stack Pop [14600] = addr 114556
       Stack Write [14556] = integer 1d
       SP = 14600
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14600] = integer 0d
       Stack Push [14601] = addr 14573
       Stack Push [14602] = addr 23551
       Stack Push [14603] = addr 14600
       Stack Push [14604] = addr 0
       Stack Push [14605] = addr 0
       Stack Push [14606] = integer 0d
       Stack Push [14607] = addr 214573
       Stack Push [14610] = integer 0d
       Stack Push [14611] = addr 214573
       Stack Push [14612] = integer 0d
       Stack Push [14613] = addr 214573
       Stack Push [14614] = integer 0d
       Stack Push [14615] = addr 214573
       Stack Push [14616] = integer 0d
       Stack Push [14617] = addr 214573
       Stack Push [14620] = integer 0d
       Stack Push [14621] = addr 214573
       SP = 14622
       FP = 14601
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14604] = addr 1
       Display [1] = 14601
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14622] = addr 114606
       SP = 14623
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14623] = integer 1d
       SP = 14624
 23510: 00 00 00125 ST  store
       Stack Pop [14623] = integer 1d
       Stack Pop [14622] = addr 114606
       Stack Write [14606] = integer 1d
       SP = 14622
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14622] = integer 1d
       SP = 14623
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14623] = integer 1d
       SP = 14624
 23562: 00 00 00105 LES less <
       Stack Pop [14623] = integer 1d
       Stack Pop [14622] = integer 1d
       Stack Push [14622] = integer 1d
       SP = 14623
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14622] = integer 1d
       SP = 14622
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14622] = integer 0d
       Stack Push [14623] = addr 14601
       Stack Push [14624] = addr 23575
       Stack Push [14625] = addr 14622
       Stack Push [14626] = addr 0
       Stack Push [14627] = addr 0
       SP = 14630
       FP = 14623
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14626] = addr 2
       Stack Write [14627] = addr 14601
       Display [1] = 14601
       Display [2] = 14623
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14630] = addr 114606
       SP = 14631
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14631] = integer 1d
       SP = 14632
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14631] = integer 1d
       Stack Push [14631] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [14631] = integer 0d
       Stack Pop [14630] = addr 114606
       Stack Write [14606] = integer 0d
       SP = 14630
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14630] = integer 0d
       Stack Push [14631] = addr 14623
       Stack Push [14632] = addr 23551
       Stack Push [14633] = addr 14630
       Stack Push [14634] = addr 0
       Stack Push [14635] = addr 0
       Stack Push [14636] = integer 0d
       Stack Push [14637] = addr 214623
       Stack Push [14640] = integer 0d
       Stack Push [14641] = addr 214623
       Stack Push [14642] = integer 0d
       Stack Push [14643] = addr 214623
       Stack Push [14644] = integer 0d
       Stack Push [14645] = addr 214623
       Stack Push [14646] = integer 0d
       Stack Push [14647] = addr 214623
       Stack Push [14650] = integer 0d
       Stack Push [14651] = addr 214623
       SP = 14652
       FP = 14631
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14634] = addr 1
       Display [1] = 14631
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14652] = addr 114636
       SP = 14653
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14653] = integer 0d
       SP = 14654
 23510: 00 00 00125 ST  store
       Stack Pop [14653] = integer 0d
       Stack Pop [14652] = addr 114636
       Stack Write [14636] = integer 0d
       SP = 14652
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14652] = integer 0d
       SP = 14653
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14653] = integer 1d
       SP = 14654
 23562: 00 00 00105 LES less <
       Stack Pop [14653] = integer 1d
       Stack Pop [14652] = integer 0d
       Stack Push [14652] = integer 0d
       SP = 14653
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14652] = integer 0d
       C = 1
       SP = 14652
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 14631 -> Level 2, Frame 14623
       Stack Push [14652] = integer 0d
       Stack Push [14653] = addr 14631
       Stack Push [14654] = addr 23567
       Stack Push [14655] = addr 14652
       Stack Push [14656] = addr 0
       Stack Push [14657] = addr 0
       Stack Write [14656] = addr 2
       Stack Write [14657] = addr 14631
       Display [1] = 14601
       Display [2] = 14623
       SP = 14660
       FP = 14653
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 14623 -> Level 2, Frame 14573
       Stack Push [14660] = integer 0d
       Stack Push [14661] = addr 14653
       Stack Push [14662] = addr 23535
       Stack Push [14663] = addr 14660
       Stack Push [14664] = addr 0
       Stack Push [14665] = addr 0
       Stack Write [14664] = addr 2
       Stack Write [14665] = addr 14601
       Display [1] = 14551
       Display [2] = 14573
       SP = 14666
       FP = 14661
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 14573 -> Level 2, Frame 14543
       Stack Push [14666] = integer 0d
       Stack Push [14667] = addr 14661
       Stack Push [14670] = addr 23532
       Stack Push [14671] = addr 14666
       Stack Push [14672] = addr 0
       Stack Push [14673] = addr 0
       Stack Write [14672] = addr 2
       Stack Write [14673] = addr 14551
       Display [1] = 14521
       Display [2] = 14543
       SP = 14674
       FP = 14667
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 14543 -> Level 2, Frame 14513
       Stack Push [14674] = integer 0d
       Stack Push [14675] = addr 14667
       Stack Push [14676] = addr 23527
       Stack Push [14677] = addr 14674
       Stack Push [14700] = addr 0
       Stack Push [14701] = addr 0
       Stack Write [14700] = addr 2
       Stack Write [14701] = addr 14521
       Display [1] = 14471
       Display [2] = 14513
       SP = 14702
       FP = 14675
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14701] = addr 14471
       Display [2] = 14675
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14702] = addr 114476
       SP = 14703
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14703] = integer 3d
       SP = 14704
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14703] = integer 3d
       Stack Push [14703] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [14703] = integer 2d
       Stack Pop [14702] = addr 114476
       Stack Write [14476] = integer 2d
       SP = 14702
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14702] = integer 0d
       Stack Push [14703] = addr 14675
       Stack Push [14704] = addr 23551
       Stack Push [14705] = addr 14702
       Stack Push [14706] = addr 0
       Stack Push [14707] = addr 0
       Stack Push [14710] = integer 0d
       Stack Push [14711] = addr 214675
       Stack Push [14712] = integer 0d
       Stack Push [14713] = addr 214675
       Stack Push [14714] = integer 0d
       Stack Push [14715] = addr 214675
       Stack Push [14716] = integer 0d
       Stack Push [14717] = addr 214675
       Stack Push [14720] = integer 0d
       Stack Push [14721] = addr 214675
       Stack Push [14722] = integer 0d
       Stack Push [14723] = addr 214675
       SP = 14724
       FP = 14703
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14706] = addr 1
       Display [1] = 14703
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14724] = addr 114710
       SP = 14725
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14725] = integer 2d
       SP = 14726
 23510: 00 00 00125 ST  store
       Stack Pop [14725] = integer 2d
       Stack Pop [14724] = addr 114710
       Stack Write [14710] = integer 2d
       SP = 14724
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14724] = integer 2d
       SP = 14725
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14725] = integer 1d
       SP = 14726
 23562: 00 00 00105 LES less <
       Stack Pop [14725] = integer 1d
       Stack Pop [14724] = integer 2d
       Stack Push [14724] = integer 1d
       SP = 14725
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14724] = integer 1d
       C = 0
       SP = 14724
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14724] = integer 0d
       Stack Push [14725] = addr 14703
       Stack Push [14726] = addr 23575
       Stack Push [14727] = addr 14724
       Stack Push [14730] = addr 0
       Stack Push [14731] = addr 0
       SP = 14732
       FP = 14725
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14730] = addr 2
       Stack Write [14731] = addr 14703
       Display [1] = 14703
       Display [2] = 14725
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14732] = addr 114710
       SP = 14733
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14733] = integer 2d
       SP = 14734
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14733] = integer 2d
       Stack Push [14733] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [14733] = integer 1d
       Stack Pop [14732] = addr 114710
       Stack Write [14710] = integer 1d
       SP = 14732
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14732] = integer 0d
       Stack Push [14733] = addr 14725
       Stack Push [14734] = addr 23551
       Stack Push [14735] = addr 14732
       Stack Push [14736] = addr 0
       Stack Push [14737] = addr 0
       Stack Push [14740] = integer 0d
       Stack Push [14741] = addr 214725
       Stack Push [14742] = integer 0d
       Stack Push [14743] = addr 214725
       Stack Push [14744] = integer 0d
       Stack Push [14745] = addr 214725
       Stack Push [14746] = integer 0d
       Stack Push [14747] = addr 214725
       Stack Push [14750] = integer 0d
       Stack Push [14751] = addr 214725
       Stack Push [14752] = integer 0d
       Stack Push [14753] = addr 214725
       SP = 14754
       FP = 14733
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14736] = addr 1
       Display [1] = 14733
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14754] = addr 114740
       SP = 14755
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [14755] = integer 1d
       SP = 14756
 23510: 00 00 00125 ST  store
       Stack Pop [14755] = integer 1d
       Stack Pop [14754] = addr 114740
       Stack Write [14740] = integer 1d
       SP = 14754
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14754] = integer 1d
       SP = 14755
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [14755] = integer 1d
       SP = 14756
 23562: 00 00 00105 LES less <
       Stack Pop [14755] = integer 1d
       Stack Pop [14754] = integer 1d
       Stack Push [14754] = integer 1d
       SP = 14755
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [14754] = integer 1d
       SP = 14754
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [14754] = integer 0d
       Stack Push [14755] = addr 14733
       Stack Push [14756] = addr 23575
       Stack Push [14757] = addr 14754
       Stack Push [14760] = addr 0
       Stack Push [14761] = addr 0
       SP = 14762
       FP = 14755
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [14760] = addr 2
       Stack Write [14761] = addr 14733
       Display [1] = 14733
       Display [2] = 14755
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [14762] = addr 114740
       SP = 14763
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [14763] = integer 1d
       SP = 14764
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [14763] = integer 1d
       Stack Push [14763] = integer 0d
 23522: 00 00 00125 ST  store
       Stack Pop [14763] = integer 0d
       Stack Pop [14762] = addr 114740
       Stack Write [14740] = integer 0d
       SP = 14762
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [14762] = integer 0d
       Stack Push [14763] = addr 14755
       Stack Push [14764] = addr 23551
       Stack Push [14765] = addr 14762
       Stack Push [14766] = addr 0
       Stack Push [14767] = addr 0
       Stack Push [14770] = integer 0d
       Stack Push [14771] = addr 214755
       Stack Push [14772] = integer 0d
       Stack Push [14773] = addr 214755
       Stack Push [14774] = integer 0d
       Stack Push [14775] = addr 214755
       Stack Push [14776] = integer 0d
       Stack Push [14777] = addr 214755
       Stack Push [15000] = integer 0d
       Stack Push [15001] = addr 214755
       Stack Push [15002] = integer 0d
       Stack Push [15003] = addr 214755
       SP = 15004
       FP = 14763
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [14766] = addr 1
       Display [1] = 14763
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15004] = addr 114770
       SP = 15005
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [15005] = integer 0d
       SP = 15006
 23510: 00 00 00125 ST  store
       Stack Pop [15005] = integer 0d
       Stack Pop [15004] = addr 114770
       Stack Write [14770] = integer 0d
       SP = 15004
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15004] = integer 0d
       SP = 15005
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [15005] = integer 1d
       SP = 15006
 23562: 00 00 00105 LES less <
       Stack Pop [15005] = integer 1d
       Stack Pop [15004] = integer 0d
       Stack Push [15004] = integer 0d
       SP = 15005
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [15004] = integer 0d
       C = 1
       SP = 15004
 23564: 52 23 23572 if !C then T := 23572
 23565: 12 20 00641 S := 641
       S = 00 00 00641
 23566: 00 00 00043 TFR take formal result
       Memory Read [23542] = 00 40 23533
       Change Level 1, Frame 14763 -> Level 2, Frame 14755
       Stack Push [15004] = integer 0d
       Stack Push [15005] = addr 14763
       Stack Push [15006] = addr 23567
       Stack Push [15007] = addr 15004
       Stack Push [15010] = addr 0
       Stack Push [15011] = addr 0
       Stack Write [15010] = addr 2
       Stack Write [15011] = addr 14763
       Display [1] = 14733
       Display [2] = 14755
       SP = 15012
       FP = 15005
 23533: 12 20 00541 S := 541
       S = 00 00 00541
 23534: 00 00 00043 TFR take formal result
       Memory Read [23543] = 00 40 23530
       Change Level 2, Frame 14755 -> Level 2, Frame 14725
       Stack Push [15012] = integer 0d
       Stack Push [15013] = addr 15005
       Stack Push [15014] = addr 23535
       Stack Push [15015] = addr 15012
       Stack Push [15016] = addr 0
       Stack Push [15017] = addr 0
       Stack Write [15016] = addr 2
       Stack Write [15017] = addr 14733
       Display [1] = 14703
       Display [2] = 14725
       SP = 15020
       FP = 15013
 23530: 12 20 00441 S := 441
       S = 00 00 00441
 23531: 00 00 00043 TFR take formal result
       Memory Read [23544] = 00 40 23525
       Change Level 2, Frame 14725 -> Level 2, Frame 14675
       Stack Push [15020] = integer 0d
       Stack Push [15021] = addr 15013
       Stack Push [15022] = addr 23532
       Stack Push [15023] = addr 15020
       Stack Push [15024] = addr 0
       Stack Push [15025] = addr 0
       Stack Write [15024] = addr 2
       Stack Write [15025] = addr 14703
       Display [1] = 14471
       Display [2] = 14675
       SP = 15026
       FP = 15021
 23525: 12 20 00341 S := 341
       S = 00 00 00341
 23526: 00 00 00043 TFR take formal result
       Memory Read [23545] = 00 40 23512
       Change Level 2, Frame 14675 -> Level 2, Frame 14463
       Stack Push [15026] = integer 0d
       Stack Push [15027] = addr 15021
       Stack Push [15030] = addr 23527
       Stack Push [15031] = addr 15026
       Stack Push [15032] = addr 0
       Stack Push [15033] = addr 0
       Stack Write [15032] = addr 2
       Stack Write [15033] = addr 14471
       Display [1] = 14441
       Display [2] = 14463
       SP = 15034
       FP = 15027
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [15033] = addr 14441
       Display [2] = 15027
 23514: 12 20 00241 S := 241
       S = 00 00 00241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15034] = addr 114446
       SP = 15035
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15035] = integer 4d
       SP = 15036
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [15035] = integer 4d
       Stack Push [15035] = integer 3d
 23522: 00 00 00125 ST  store
       Stack Pop [15035] = integer 3d
       Stack Pop [15034] = addr 114446
       Stack Write [14446] = integer 3d
       SP = 15034
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [15034] = integer 0d
       Stack Push [15035] = addr 15027
       Stack Push [15036] = addr 23551
       Stack Push [15037] = addr 15034
       Stack Push [15040] = addr 0
       Stack Push [15041] = addr 0
       Stack Push [15042] = integer 0d
       Stack Push [15043] = addr 215027
       Stack Push [15044] = integer 0d
       Stack Push [15045] = addr 215027
       Stack Push [15046] = integer 0d
       Stack Push [15047] = addr 215027
       Stack Push [15050] = integer 0d
       Stack Push [15051] = addr 215027
       Stack Push [15052] = integer 0d
       Stack Push [15053] = addr 215027
       Stack Push [15054] = integer 0d
       Stack Push [15055] = addr 215027
       SP = 15056
       FP = 15035
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [15040] = addr 1
       Display [1] = 15035
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15056] = addr 115042
       SP = 15057
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [15057] = integer 3d
       SP = 15060
 23510: 00 00 00125 ST  store
       Stack Pop [15057] = integer 3d
       Stack Pop [15056] = addr 115042
       Stack Write [15042] = integer 3d
       SP = 15056
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15056] = integer 3d
       SP = 15057
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [15057] = integer 1d
       SP = 15060
 23562: 00 00 00105 LES less <
       Stack Pop [15057] = integer 1d
       Stack Pop [15056] = integer 3d
       Stack Push [15056] = integer 1d
       SP = 15057
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [15056] = integer 1d
       C = 0
       SP = 15056
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [15056] = integer 0d
       Stack Push [15057] = addr 15035
       Stack Push [15060] = addr 23575
       Stack Push [15061] = addr 15056
       Stack Push [15062] = addr 0
       Stack Push [15063] = addr 0
       SP = 15064
       FP = 15057
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [15062] = addr 2
       Stack Write [15063] = addr 15035
       Display [1] = 15035
       Display [2] = 15057
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15064] = addr 115042
       SP = 15065
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15065] = integer 3d
       SP = 15066
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [15065] = integer 3d
       Stack Push [15065] = integer 2d
 23522: 00 00 00125 ST  store
       Stack Pop [15065] = integer 2d
       Stack Pop [15064] = addr 115042
       Stack Write [15042] = integer 2d
       SP = 15064
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [15064] = integer 0d
       Stack Push [15065] = addr 15057
       Stack Push [15066] = addr 23551
       Stack Push [15067] = addr 15064
       Stack Push [15070] = addr 0
       Stack Push [15071] = addr 0
       Stack Push [15072] = integer 0d
       Stack Push [15073] = addr 215057
       Stack Push [15074] = integer 0d
       Stack Push [15075] = addr 215057
       Stack Push [15076] = integer 0d
       Stack Push [15077] = addr 215057
       Stack Push [15100] = integer 0d
       Stack Push [15101] = addr 215057
       Stack Push [15102] = integer 0d
       Stack Push [15103] = addr 215057
       Stack Push [15104] = integer 0d
       Stack Push [15105] = addr 215057
       SP = 15106
       FP = 15065
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [15070] = addr 1
       Display [1] = 15065
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15106] = addr 115072
       SP = 15107
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [15107] = integer 2d
       SP = 15110
 23510: 00 00 00125 ST  store
       Stack Pop [15107] = integer 2d
       Stack Pop [15106] = addr 115072
       Stack Write [15072] = integer 2d
       SP = 15106
 23511: 52 20 23556 T := 23556
 23556: 12 20 00241 S := 241
 23557: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15106] = integer 2d
       SP = 15107
 23560: 42 20 23624 B := 23624
       B = 23624
 23561: 00 00 00042 TIRS take integer result static
       Memory Read [23624] = 00 00 00001
       Stack Push [15107] = integer 1d
       SP = 15110
 23562: 00 00 00105 LES less <
       Stack Pop [15107] = integer 1d
       Stack Pop [15106] = integer 2d
       Stack Push [15106] = integer 1d
       SP = 15107
 23563: 00 00 00036 CAC copy boolean acc. into condition
       Stack Pop [15106] = integer 1d
       SP = 15106
 23564: 52 23 23572 if !C then T := 23572
 23572: 42 20 23512 B := 23512
       B = 23512
 23573: 02 20 00000 A := 0
       A = 00 00 00000
 23574: 00 00 00010 ETMR extransmark result
       Stack Push [15106] = integer 0d
       Stack Push [15107] = addr 15065
       Stack Push [15110] = addr 23575
       Stack Push [15111] = addr 15106
       Stack Push [15112] = addr 0
       Stack Push [15113] = addr 0
       SP = 15114
       FP = 15107
 23512: 42 20 00002 B := 2
       B = 2
 23513: 00 00 00131 SCC short circuit
       Stack Write [15112] = addr 2
       Stack Write [15113] = addr 15065
       Display [1] = 15065
       Display [2] = 15107
 23514: 12 20 00241 S := 241
 23515: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15114] = addr 115072
       SP = 15115
 23516: 12 20 00241 S := 241
 23517: 00 00 00041 TIRD take integer result dynamic
       Stack Push [15115] = integer 2d
       SP = 15116
 23520: 42 20 23624 B := 23624
       B = 23624
 23521: 00 00 00054 SUIS subtract integer static
       Memory Read [23624] = 00 00 00001
       Stack Pop [15115] = integer 2d
       Stack Push [15115] = integer 1d
 23522: 00 00 00125 ST  store
       Stack Pop [15115] = integer 1d
       Stack Pop [15114] = addr 115072
       Stack Write [15072] = integer 1d
       SP = 15114
 23523: 42 20 23502 B := 23502
       B = 23502
 23524: 52 20 23547 T := 23547
 23547: 02 20 00006 A := 6
       A = 00 00 00006
 23550: 00 00 00010 ETMR extransmark result
       Stack Push [15114] = integer 0d
       Stack Push [15115] = addr 15107
       Stack Push [15116] = addr 23551
       Stack Push [15117] = addr 15114
       Stack Push [15120] = addr 0
       Stack Push [15121] = addr 0
       Stack Push [15122] = integer 0d
       Stack Push [15123] = addr 215107
       Stack Push [15124] = integer 0d
       Stack Push [15125] = addr 215107
       Stack Push [15126] = integer 0d
       Stack Push [15127] = addr 215107
       Stack Push [15130] = integer 0d
       Stack Push [15131] = addr 215107
       Stack Push [15132] = integer 0d
       Stack Push [15133] = addr 215107
       Stack Push [15134] = integer 0d
       Stack Push [15135] = addr 215107
       SP = 15136
       FP = 15115
 23502: 42 20 00001 B := 1
       B = 1
 23503: 00 00 00131 SCC short circuit
       Stack Write [15120] = addr 1
       Display [1] = 15115
 23504: 12 20 00241 S := 241
 23505: 00 00 00020 TIAD take integer address dynamic
       Stack Push [15136] = addr 115122
       SP = 15137
 23506: 12 20 00241 S := 241
 23507: 00 00 00043 TFR take formal result
       Memory Read [23546] = 02 22 00005
       Stack Push [15137] = integer 1d
       SP = 15140
 23510: 00 00 00125 ST  store
       Stack Pop [15137] = integer 1d
       Stack P