
  CONST
   base = iok$base+50,
    ioc$tape_exit_ioptun = base,
    ioc$tape_exit_ioptf = base+1,
    ioc$tape_exit_ioptqsu = base+2,
    ioc$tape_exit_ioptrqs = base+3,
    ioc$tape_exit_ioptwr = base+4,
    ioc$tape_exit_ioptwtm = base+5,
    ioc$tape_exit_ioptdse = base+6,
    ioc$tape_exit_iopte = base+7,
    ioc$tape_exit_ioptin = base+8,
    ioc$tape_exit_ioptqrq = base+9,
    ioc$tape_exit_ioptrd = base+10,
    ioc$tape_exit_ioptrew = base+11,
    ioc$tape_exit_ioptsb = base+12,
    ioc$tape_exit_ioptsf = base+13,
    ioc$tape_entry_iopterr = base+14,
    ioc$tape_entry_ioptqrq = base+15,
    ioc$tape_entry_ioptqsu = base+16,
    ioc$tape_entry_ioptitb = base+17,
    ioc$tape_exit_ioptitb = base+18,
    ioc$tape_entry_ioptf = base+19,
    ioc$tape_entry_ioptrqs = base+20,
    ioc$tape_entry_ioptun = base+21,
    ioc$tape_entry_ioptclr = base+22,
    ioc$tape_entry_ioptdnc = base+23,
    ioc$tape_entry_ioptdnu = base+24,
    ioc$tape_entry_ioptopm = base+25,
    ioc$tape_entry_ioptppe = base+26,
    ioc$tape_entry_ioptrio = base+27,
    ioc$tape_entry_ioptum = base+28,
    ioc$tape_entry_ioptuns = base+29,
    ioc$tape_entry_ioptrwr = base+30,
    ioc$tape_entry_ioptptr = base+31,
    ioc$tape_debug_ioptptr = base+33,
    ioc$tape_entry_ioptsck = base+34,
    ioc$tape_debug_ioptsck = base+35,
    ioc$tape_enter_ioptwr = base+36,
    ioc$tape_debug_ioptrsu = base+38,
    ioc$tape_entry_ioptrd = base+39,
    ioc$tape_exit_ioptrdb = base+40,
    ioc$tape_exit_ioptrpb = base+43,
    ioc$tape_exit_ioptrpf = base+44,
    ioc$tape_exit_ioptvp = base+45,
    ioc$tape_enter_iopterm = base+46,
    ioc$tape_exit_ioptgus = base+47,
    ioc$tape_entry_iomtirs = base+48,
    ioc$tape_exit_iomtirs = base+49;

*copyc OSK$KEYPOINTS
