RELCOM
(George Source)
Macros used: COMERR, ENDCOM, HUNT, PARAPASS, PERCON, RELPERENT, SEGENTRY, TRACE
- 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