{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RELCOM)}}
====== RELCOM ======
(George Source)

**Macros used:** [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:HUNT|HUNT]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PERCON|PERCON]], [[george:macro:RELPERENT|RELPERENT]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TRACE|TRACE]]

<code - RELCOM.txt>22FL    #LIS           K0RELCOM 
22^=    #SEG  RELCOM                       [R.H.THOMPSON  F6
23DW                   8HRELCOM 
23YG    #     THIS SEGMENT DEALS WITH THE RELEASE COMMAND.  
24D6    #     THE PERIPHERAL GIVEN BY THE FIRST PARAMETER IS RELEASED FROM THE  
24XQ    #     CURRENT CORE IMAGE.IT MAY BE EITHER ON OR OFFLINE.
25CB    #     IF THE FIRST PARAMETER IS NOT A VALID PERIPHERAL NAME A COMMAND ER
25X2    #     IS REPORTED.IF THERE IS NO CORE IMAGE OR IF THE PERIPHERAL IS NOT 
26BL    #     ALLOCATED TO IT THE COMMAND HAS NO EFFECT 
26W=    #     ENTRY POINTS:-
27*W    #     1)FROM THE COMMAND PROCESSOR WHEN A RELEASE COMMAND IS ENCOUNTERED
27TG          SEGENTRY K1RELCOM 
28*6    XREL
28SQ          PARAPASS                     [READ FIRST PARAM
29#B          HUNT     3,CPB,CUNI   
29S2          LDX   4  ANUM(3)  
2=?L          BNG   4  ZREL2               [ERROR IF NON-EXISTANT   
2=R=          ANDN  4  #7777
2?=W          BZE   4  ZREL2               [ERROR IF NULL   
2?QG          PERCON                       [CONVERT TO TYPE/UNIT NO.
2#=6          HUNT     3,CPAR,GPERCON      [IF IT IS NOT A PERIPHERAL NAME  PECO
2#PQ          BNG   3  ZREL3               [HAVE REPORTED AN ERROR SO FINISH.   
2*9B          LDX   4  A1(3)
2*P2    #SKIP          K6RELCOM>999-999 
2B8L          TRACE    4,RELCOMTU   
2BN=          LDX   0  CONTEXT(2)   
2C7W          ANDN  0  #1000
2CMG          BZE   0  ZREL3               [JUMP NO CORE IMAGE  
2D76          RELPERENT   4                [REMOVE PERIPHERAL ENTRY FROM PRB
2DLQ    ZREL3 ENDCOM                       [RETURN TO COMMAND PROCESSOR 
2F6B    ZREL2 COMERR   JPARMIS,APER 
2FL2    #END
^^^^ ...55333347000100000000
</code>