{This deck defines constants for use with KEYPOINTS.


{Define base keypoint procedure identifiers for each area of the OS.
{ The following should be kept in value order and not alphabetical order.

  CONST
    ptk$performance_base = 0, {0 - 99}
    amk$base = 050, {050 - 149}
    bak$base = 150, {150 - 249}
    clk$base = 250, {250 - 299}
    cmk$base = 300, {300 - 349}
    clk$base_2 = 350, {350 - 399}
    dmk$base = 400, {400 - 549}
    dfk$base = 550, {550 - 599}
    ick$base = 600, {600 - 649}
    ifk$base = 650, {650 - 699}
    iik$base = 700, {700 - 749}
    iik$vt_base = 750, {750 - 799}
{ open 800 - 849}
    lgk$base = 850, {850 - 899}
{ open 900 - 949}
    lok$base = 950, {950 - 999}
    rfk$ai_base = 1000, {1000 - 1049}
    mlk$base = 1050, {1050 - 1099}
    mmk$monitor_base = 1100, {1100 - 1149}
    mmk$job_base = 1150, {1150 - 1199}
    msk$base = 1200, {1200 - 1249}
    mtk$base = 1250, {1250 - 1299}
    ock$base = 1300, {1300 - 1349}
    ofk$base = 1350, {1350 - 1399}
    osk$base = 1400, {1400 - 1449}
    pfk$base = 1500, {1500 - 1599}
    pmk$base = 1600, {1600 - 1749}
    rhk$base = 1750, {1750 - 1799}
    srk$base = 1800, {1800 - 1849}
    stk$base = 1850, {1850 - 1899}
    tmk$monitor_base = 1900, {1900 - 1949}
    tmk$job_base = 1950, {1950 - 1999}
    jsk$base = 2000, {2000 - 2099}
    avk$base = 2100, {2100 - 2149}
    sfk$base = 2150, {2150 - 2199}
    iok$base = 2200, {2200 - 2249}
    nfk$base = 2250, { 2250 - 2299}
    dmk$tape_base = 2300, {2300 - 2349}
    syk$job_base = 2350, {2350 - 2399}
    nak$job_base = 2400, {2400 - 2599}
    nlk$xt_job_base = 2500, {2500 - 2549}
    nlk$gt_job_base = 2550, {2550 - 2599}
    jmk$base = 2600, {2600 - 2699}
    fmk$base = 2700, {2700 - 2799}
    fsk$base = 2800, {2800 - 2899}
    rmk$base = 2900, {2900 - 2999}
    nak$monitor_base = 3000, {3000 - 3049}
    fdk$base = 3050, {3050 - 3099}
    csk$base = 3100, {3100 - 3149}
    mtk$assembly_language_base = 4000; {4000 - 4049}
{   OS assembly language      4000 - 4049}
*copyc OSK$KEYPOINT_CLASS_CODES
