8 22FL    #OPT  K0HOLDCOM=0   
  15 22_=    #LIS  K0HOLDCOM>K0ALLGEO>K0GREATGEO>K0COMMAND   
   7 23DW    #SEG  HOLDCOM   
   4 23JR ...#   
  16 23NN ...#      COPYRIGHT INTERNATIONAL COMPUTERS LTD   1982 
   4 23SK ...#   
   7 23YG          8HHOLDCOM 
   8 24D6    [ THE ENTRY POINT   
  12 24XQ          SEGENTRY K1HOLDCOM,XK1HOLDCOM 
   4 25CB    [   
   4 25X2    [   
  20 26BL    [     THIS SEGMENT IMPLEMENTS THE HOLD COMMAND - I.E. IT SIMULATES  
  15 26W=    [     THE EFFECT OF A HOLD BUTTON ON A DEVICE   
   4 27*W    [   
   4 27TG    [   
   4 28*6    [   
  20 28SQ    ZDEVTYPES                         [LIST OF DEV TYPES FOR WHICH...   
  19 29#B                                      [...HOLD COMMAND IS PERMITTED 
   8 29S2                   +6   
   8 2=?L                   +26  
   6 2=R=    ZENDTYPES   
  12 2?=W    #DEF  TYPESLEN=ZENDTYPES-ZDEVTYPES  
   4 2?QG    [   
   4 2#=6    [   
  20 2#PQ    SOUTUNIT                           [SUB TO OUTPUT PERI DESC PARAM   
  18 2*9B    [                                   USED FOR ERROR MESSAGES 
  20 2*P2          SBX   7  FX1                 [ON ENTY X3 IS ADDR OF CPAR JSCE 
   9 2B8L          LDX   5  JSCEQ(3) 
  17 2BN=          ANDN  5  #7777               [NO. OF CHARS IN DESC
  18 2C7W          OUTPARAM 5,JSCER,CPAR,JSCE   [OUTPUT PERI DESC PARAM  
   8 2CMG          ADX   7  FX1  
   7 2D76          EXIT  7  0
   4 2DLQ    [   
   7 2F6B          ZERRORY   
   4 2FL2    [   
   6 2G5L    XK1HOLDCOM  
  17 2GK=          PARSORT  ZBREAKIN            [ANALYSE PERI DESC   
  10 2H4W          HUNTW    3,CPAR,JSCE  
  18 2HJG          BNG   3  PARSORTERR          [J IF PARSORT FOUND ERROR
  19 2J46          SAWCEJX  JSCEB(3),YLOCAL,NOTLOCAL,NOTLOCAL [J IF NOT LOCAL
   5 2JHQ    YLOCAL  
   9 2K3B          LDX   4  JSCEP(3) 
  18 2KH2          ANDX  4  BITS22LS            [EXTRACT DEV LIST POINTER
  16 2L2L          LTYPE    4,7                 [DEV TYPE INTO X7
  19 2LG=          LDN   5  TYPESLEN            [NUMBER OF PERMITTED TYPES   
   5 2L_W    SCHTYPE 
   7 2MFG          SMO      5
  11 2M_6          TXU   7  ZDEVTYPES-1(1)   
  17 2NDQ          BCC      TYPEOK              [J IF PERMITTED TYPE 
   9 2NYB          BCT   5  SCHTYPE  
  18 2PD2          BRN      TYPEWRONG           [J IF NOT PERMITTED TYPE 
   5 2PXL    TYPEOK  
  16 2Q7D ...      JDISENG  4,ZDISNOW           [_ IF DISENGAGED 
  17 2QC=          JHOLD    4,ZHELDNOW          [J IF ALREADY HELD   
  21 2QWW          SETHOLD  4                   [SET HOLD BIT TO SIMULATE HOLD BUTTON
  19 2RBG ...      STO   4  AWORK3(2)           [STORE D.L. PTR FOR CARTCONT 
  18 2S*Q          DOWN     CARTCONT,2          [GO TO ACT ON HOLD BUTTON
   5 2STB    ZBREAKIN
   6 2T*2    PARSORTERR  
   6 2TSL          ENDCOM
   4 2W#=    [   
   4 2WRW    [   
  16 2X?G    [                                   ERROR ROUTINES  
   4 2XR6    [   
   4 2Y=Q    [   
   5 2YQB    NOTLOCAL
   6 2_=2    TYPEWRONG   
   9 2_PL          CALL  7  SOUTUNIT 
  19 329=          ZERRORX  JUNITERR            [%A IS NOT A SUITABLE DEVICE 
   5 32NW    ZHELDNOW
   9 338G          CALL  7  SOUTUNIT 
  18 33N6          ZERRORX  JHELDNOW            [UNIT %A IS ALREADY HELD 
   5 33S3 ...ZDISNOW 
   9 33XY ...      CALL  7  SOUTUNIT 
  20 343T ...      ZERRORX  JDISNOW             [UNIT %A IS ALREADY DISENGAGED   
   4 347Q    [   
   4 34MB    [   
   4 3572    #END
   8 ____ ...4464756000010000000