XPDIS FUNCTION RN1,C24

0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69

0.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12

0.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5

0.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0

 

KOMPL1 BVARIABLE (CH$WAIT1'GE'3)'AND'(CH$WAIT2'GE'3)

KOMPL2 BVARIABLE (CH$WAIT1'GE'3)'AND'(CH$WAIT3'GE'3)

KOMPL BVARIABLE (KOMPL1'OR'KOMPL2)

 

    GENERATE ,,,1

NXT ADVANCE 100,FN$XPDIS

    SPLIT 1,SECOND

    LINK WAIT1,FIFO,WAITING

 

SECOND  ADVANCE 200,FN$XPDIS

    SPLIT 1,THIRD

    LINK WAIT2,FIFO,WAITING

 

THIRD   ADVANCE 200,FN$XPDIS

    SPLIT 1,NXT

    LINK WAIT3,FIFO,WAITING

 

WAITING TEST E BV$KOMPL,1

    TEST E BV$KOMPL2,1,OBSL1

    UNLINK WAIT3,OBSL,3

    UNLINK WAIT1,OBSL,3

OBSL1   UNLINK WAIT2,OBSL,3

    UNLINK WAIT1,OBSL,3

OBSL    ASSEMBLE 6

    SEIZE CPU

    ADVANCE 100,FN$XPDIS

    RELEASE CPU

    PRIORITY PR,BU

    UNLINK WAIT1,WAITING

    TERMINATE 1

    START 5000