
{ this common deck defines constants for use with
{ keypoints in rmp procedures.
{ COMMON DECK RMDKEY }

  CONST
    rmk$get_device_class = rmk$base + 1,
    {E 'rmp$get_device_class' }
    {X 'rmp$get_device_class' 'status' I20 }

    rmk$request_mass_storage = rmk$base + 2,
    {E 'rmp$request_mass_storage' }
    {X 'rmp$request_mass_storage' 'status' I20}

    rmk$request_null_device = rmk$base + 3,
    {E 'rmp$request_null_device' }
    {X 'rmp$request_null_device' 'status' I20}

    rmk$request_tape = rmk$base + 4,
    {E 'rmp$request_tape'}
    {X 'rmp$request_tape' 'status' I20}

    rmk$request_terminal = rmk$base + 5;
    {E 'rmp$request_terminal'}
    {X 'rmp$request_terminal' 'status' I20}


?? PUSH (LISTEXT := ON) ??
*copyc OSK$KEYPOINTS
?? POP ??
