[0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [ 87 ] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117]

INTEGER REF(N),FRAMES.PAGES

INTEGER AFTER(10D),BEF0RE(1DC),END.FAULT(10.0C)

INTEGER FRAME(50),FRO NT,J,K.TABLE(100).TOTAL.Tl.T2

J - 1

DO 30 I 1.PACES TAELE(I) «0 BEFORE(I) - 0 AFTER(I) « 0 3D CONTINUE

- REF(I) TABLE(K) «1 FRONT " END » . FAULT(I) 1. TOTAL = 1 FRAME(I) » REF(I) EO 100 J = 2.FRAMES 40 i > I + 1

IFt I .. N ) 170

1-

> REF(I)

-

IF[TABLE(K) .NE. 0) GO 50

90

5 FAULT(I) »



IF( AFTER(K) .EQ, D ) GO 40

(FRONT)

IF(FRONT .EQ. ) GO 60 GO 70

: FRONT

60 FRONT = AFTER(K)

BEFORE (FRO NT) = D GO TO 8D

70 TI = BEFORE(K)

2 = AFTEB(H) AFTER (Ti) = T2 BEF0RE(T2) = TI

(END)

80 BEFORElKl- = END

AFTER(K) » AFTER (END) » END =. GO TO 40

; J -

SO TABLE(K1 - J

FRAME(J) = AFTER(END) = EEFORE(K) - END END => FAULT(I) - 1 TOTAL » TOTAL + 1

1Ca CONTINUE

. 5.4.3.



IN = 1+1

160 I = IN.N = REF(I)

IF( TABLE(K) .NE. ) GO 110 GO 150 , 110 FAULT! I) =

(END)

IF( AFTER(K) .EQ. - ) GO 160

(FRONT)

IF( FRONT .EQ. ) GO 120

GO 130

12D FRONT =. AFTER(K)

BEFORE (FRONT) = GO TO 14G

13D 1 = BEFORE(K)

T2 = AFTER () BEF0RE(T2) = Tl AFTER (Til T2

BEFORE(K) = END AFTER() = D AFTER(END) = END = GD TO 16G

J. ., J

15D J = TABLE(FRONT)

TABLE() = J TABLE(FRO NT) = G

. 5.4.3.



[0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [ 87 ] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117]

0.001