{ this deck defines constants for use  with
{ keypoints in bap procedures.
{ COMMON DECK bak$bap_procedure_keypoints }

  CONST
    bak$control = bak$base + 1,
    {E 'bap$control' }
    {X 'bap$control' }

    bak$connected_file_device = bak$base + 2,
    {E 'bap$connected_file_device' }
    {X 'bap$connected_file_device' }

    bak$open_file = bak$base + 4,
    {E 'bap$open_file' }
    {X 'bap$open_file' }

    bak$log_device = bak$base + 5,
    {E 'bap$log_device' }
    {X 'bap$log_device' }

    bak$us_blk_undef_rec_tape_fap = bak$base + 59,
    {E 'bap$us_blk_undefined_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'us_undef_tape - get_next' 'fid + op' I12 }
    {E 8.134 'us_undef_tape - put_next' 'fid + op' I12 }
    {E 8.124 'us_undef_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'us_undef_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'us_undef_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'us_undef_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'us_undef_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'us_undef_tape - skip' 'fid + op' I12 }
    {E 8.128 'us_undef_tape - open' 'fid + op' I12 }
    {E 8.101 'us_undef_tape - fetch_access_information' 'fid + op' I12 }
    {E 8.117 'us_undef_tape - fetch' 'fid + op' I12 }
    {E 8.126 'us_undef_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'us_undef_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'us_undef_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'us_undef_tape - rewind' 'fid + op' I12 }
    {E 8.152 'us_undef_tape - store' 'fid + op' I12 }
    {E 8.112 'us_undef_tape - close' 'fid + op' I12 }
    {E 8.160 'us_undef_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'us_undef_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$us_blk_undefined_rec_tape_fap  ' 'status' I20 }

    bak$sys_blk_undef_rec_tape_fap = bak$base + 60,
    {E 'bap$sys_blk_undefined_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'sys_undef_tape - get_next' 'fid + op' I12 }
    {E 8.134 'sys_undef_tape - put_next' 'fid + op' I12 }
    {E 8.124 'sys_undef_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'sys_undef_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'sys_undef_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'sys_undef_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'sys_undef_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'sys_undef_tape - skip' 'fid + op' I12 }
    {E 8.128 'sys_undef_tape - open' 'fid + op' I12 }
    {E 8.101 'sys_undef_tape - fetch_access_info' 'fid + op' I12 }
    {E 8.117 'sys_undef_tape - fetch' 'fid + op' I12 }
    {E 8.126 'sys_undef_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'sys_undef_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'sys_undef_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'sys_undef_tape - rewind' 'fid + op' I12 }
    {E 8.152 'sys_undef_tape - store' 'fid + op' I12 }
    {E 8.112 'sys_undef_tape - close' 'fid + op' I12 }
    {E 8.160 'sys_undef_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'sys_undef_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$sys_blk_undefined_rec_tape_fap  ' 'status' I20 }

    bak$sys_blk_var_rec_tape_fap = bak$base + 61,
    {E 'bap$sys_blk_var_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'sys_var_tape - get_next' 'fid + op' I12 }
    {E 8.134 'sys_var_tape - put_next' 'fid + op' I12 }
    {E 8.124 'sys_var_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'sys_var_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'sys_var_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'sys_var_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'sys_var_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'sys_var_tape - skip' 'fid + op' I12 }
    {E 8.128 'sys_var_tape - open' 'fid + op' I12 }
    {E 8.101 'sys_var_tape - fetch_access_information' 'fid + op' I12 }
    {E 8.117 'sys_var_tape - fetch' 'fid + op' I12 }
    {E 8.126 'sys_var_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'sys_var_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'sys_var_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'sys_var_tape - rewind' 'fid + op' I12 }
    {E 8.152 'sys_var_tape - store' 'fid + op' I12 }
    {E 8.112 'sys_var_tape - close' 'fid + op' I12 }
    {E 8.160 'sys_var_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'sys_var_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$sys_blk_var_rec_tape_fap  ' 'status' I20 }

    bak$us_blk_var_rec_tape_fap = bak$base + 63,
    {E 'bap$us_blk_var_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'us_var_tape - get_next' 'fid + op' I12 }
    {E 8.134 'us_var_tape - put_next' 'fid + op' I12 }
    {E 8.124 'us_var_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'us_var_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'us_var_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'us_var_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'us_var_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'us_var_tape - skip' 'fid + op' I12 }
    {E 8.128 'us_var_tape - open' 'fid + op' I12 }
    {E 8.101 'us_var_tape - fetch_access_information' 'fid + op' I12 }
    {E 8.117 'us_var_tape - fetch' 'fid + op' I12 }
    {E 8.126 'us_var_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'us_var_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'us_var_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'us_var_tape - rewind' 'fid + op' I12 }
    {E 8.152 'us_var_tape - store' 'fid + op' I12 }
    {E 8.112 'us_var_tape - close' 'fid + op' I12 }
    {E 8.160 'us_var_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'us_var_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$us_blk_var_rec_tape_fap  ' 'status' I20 }

    bak$sys_blk_fixed_rec_tape_fap = bak$base + 65,
    {E 'bap$sys_blk_fixed_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'sys_fixed_tape - get_next' 'fid + op' I12 }
    {E 8.134 'sys_fixed_tape - put_next' 'fid + op' I12 }
    {E 8.124 'sys_fixed_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'sys_fixed_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'sys_fixed_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'sys_fixed_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'sys_fixed_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'sys_fixed_tape - skip' 'fid + op' I12 }
    {E 8.128 'sys_fixed_tape - open' 'fid + op' I12 }
    {E 8.101 'sys_fixed_tape - fetch_access_info' 'fid + op' I12 }
    {E 8.117 'sys_fixed_tape - fetch' 'fid + op' I12 }
    {E 8.126 'sys_fixed_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'sys_fixed_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'sys_fixed_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'sys_fixed_tape - rewind' 'fid + op' I12 }
    {E 8.152 'sys_fixed_tape - store' 'fid + op' I12 }
    {E 8.112 'sys_fixed_tape - close' 'fid + op' I12 }
    {E 8.160 'sys_fixed_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'sys_fixed_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$sys_blk_fixed_rec_tape_fap  ' 'status' I20 }

    bak$us_blk_fixed_rec_tape_fap = bak$base + 67,
    {E 'bap$us_blk_fixed_rec_tape_fap' 'fid.ord' H16 }
    {E 8.122 'us_fixed_tape - get_next' 'fid + op' I12 }
    {E 8.134 'us_fixed_tape - put_next' 'fid + op' I12 }
    {E 8.124 'us_fixed_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'us_fixed_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'us_fixed_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'us_fixed_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'us_fixed_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'us_fixed_tape - skip' 'fid + op' I12 }
    {E 8.128 'us_fixed_tape - open' 'fid + op' I12 }
    {E 8.101 'us_fixed_tape - fetch_access_information' 'fid + op' I12 }
    {E 8.117 'us_fixed_tape - fetch' 'fid + op' I12 }
    {E 8.126 'us_fixed_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'us_fixed_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'us_fixed_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'us_fixed_tape - rewind' 'fid + op' I12 }
    {E 8.152 'us_fixed_tape - store' 'fid + op' I12 }
    {E 8.112 'us_fixed_tape - close' 'fid + op' I12 }
    {E 8.160 'us_fixed_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'us_fixed_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$us_blk_fixed_rec_tape_fap  ' 'status' I20 }

    bak$labelled_tape_fap = bak$base + 69;
    {E 'bap$labelled_tape_fap' 'fid.ord' H16 }
    {E 8.122 'labelled_tape - get_next' 'fid + op' I12 }
    {E 8.134 'labelled_tape - put_next' 'fid + op' I12 }
    {E 8.124 'labelled_tape - get_partial' 'fid + op' I12 }
    {E 8.135 'labelled_tape - put_partial' 'fid + op' I12 }
    {E 8.147 'labelled_tape - seek_direct' 'fid + op' I12 }
    {E 8.119 'labelled_tape - get_direct' 'fid + op' I12 }
    {E 8.131 'labelled_tape - put_direct' 'fid + op' I12 }
    {E 8.150 'labelled_tape - skip' 'fid + op' I12 }
    {E 8.128 'labelled_tape - open' 'fid + op' I12 }
    {E 8.101 'labelled_tape - fetch_access_information' 'fid + op' I12 }
    {E 8.117 'labelled_tape - fetch' 'fid + op' I12 }
    {E 8.126 'labelled_tape - get_segment_pointer' 'fid + op' I12 }
    {E 8.148 'labelled_tape - set_segment_eoi' 'fid + op' I12 }
    {E 8.149 'labelled_tape - set_segment_position' 'fid + op' I12 }
    {E 8.145 'labelled_tape - rewind' 'fid + op' I12 }
    {E 8.152 'labelled_tape - store' 'fid + op' I12 }
    {E 8.112 'labelled_tape - close' 'fid + op' I12 }
    {E 8.160 'labelled_tape - ifc$fetch_terminal' 'fid + op' I12 }
    {E 8.161 'labelled_tape - ifc$store_terminal' 'fid + op' I12 }
    {X 'bap$labelled_tape_fap  ' 'status' I20 }

?? PUSH (LISTEXT := ON) ??
*copyc osk$keypoints
?? POP ??
