*DECK ZAPSAM
ARRAY 
  MTDISP [1..8] OF 1; 
BEGIN 
  
_ * * TIMER TABLE DISPATCH ADDRESSESS ? 
  
MTDISP[1] := /ENTRY (PMNSTO); 
MTDISP[2] := /ENTRY (PMPPDTO);
MTDISP[3] := /ENTRY (PMLRTO); 
MTDISP[4] := /ENTRY (PMDSRTO);
MTDISP[5] := /ENTRY (PMPPKTO);
MTDISP[6] := /ENTRY (PMIRTO); 
MTDISP[7] := /ENTRY (PMODDTO);
MTDISP[8] := /ENTRY (PMLFITO);
END.
