10
30
40

50

ke-

60

80
90
100

120
230
149

ivo
190
290

4
...
ne
230
2490

250

259
76
ndrin
—90

360

9-07

3290
230
340

49

Program to show how to

Demonstrates FEEK, FOKE,

PROGRAM divmult2
VAR rtREAL;

FUNCTION divby2(::: REAL) :REAL3
VAR i:INTEGER;
GEGIN

i1zADDR(:)t13

POKE(i ,PRED(FEEK(i, CHAR)I);

divby2izx ti
ENO;

FUNCTION multos2(x?REAL) ?REAL;
EEGIN s
INLINE (£00,£34,3) ;

moltbyžisx
END;

EEGIN

REFEAT
WRZTE('Enter tne nrnijaner r ');
READ(r); ij

WRITELN('r divided by two is'
WEŽTELN('r MV? Prva by two is'
UNTIL rz)

END.

Uac.. v

"get yowr harids dirty'! ;
i.e. how to modify Fascal. variables uvsine machine cose.
ADDR and INLINE.

-——————--—-———-—----fSeotson 2.Zila 2. . 86.6.86... pb:

sdivbyž(r): v dle
snultby2 (1): TA z?

a

o z PON a anode...

£tFuretion to divide by 2 ..
».. uvickigy?

£CFoirnt to the expornent of ::ž
CDecremenit the e:ponent of ;:,

see Appendix 3.1.3.2
3

<Funcetion to multiply by 2..
.. auicklsž

CINC (ZX?:3) - the e:iponent c? ::
— see Appendix 3.2 -Ž

CNo need for KTADLN — see

o NBA s —
a UZ RRNA