{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPCHAN84)}}
====== COMPCHAN84 ======
(George Source)
**Macros used:** [[george:macro:ADJUSTLK|ADJUSTLK]], [[george:macro:CAPCA|CAPCA]], [[george:macro:CLEAR|CLEAR]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CREATEB|CREATEB]], [[george:macro:FCAPCA|FCAPCA]], [[george:macro:FINDACTX|FINDACTX]], [[george:macro:FINDLINK|FINDLINK]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FREELINK|FREELINK]], [[george:macro:ILLEGAL|ILLEGAL]], [[george:macro:JBC|JBC]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PAIR|PAIR]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:RESTART|RESTART]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETUPMODE|SETUPMODE]], [[george:macro:STEPBACK|STEPBACK]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCA2|TOPFCA2]], [[george:macro:UNCOMERR|UNCOMERR]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UNPLUG|UNPLUG]], [[george:macro:USEROPEX|USEROPEX]], [[george:macro:VFREE|VFREE]]
22FL SEG COMPCHAN,6,GEORGE PORTER,OLP
22^= SEGENTRY K1COMPCHAN,Z1COMPCHAN
23DW [
23YG [ THIS SEGMENT DEALS WITH MULTIFILE COMPONENT CHANGING FOR OBJECT PROGRA
24D6 [ IT IS ENTERED BY THE COMPQU MACRO
24XQ PLINK PAIR COMPCHAN,1
25CB SEARCH [EXPECTS & LEAVES X2=FX2 & LEAVES X3=
25X2 FPCACA 3,2 [X3->APET
26BL FINDACTX 3,4 [X3->AOLPT
26W= EXIT 7 0
27*W STCHANGE [CHANGES FILE TO ACTIVITY->X3
27TG SBX 7 FX1
28*6 LOCK 3
28SQ CHANGEST 3
29#B UNLOCK 3
29S2 ADX 7 1
2=?L EXIT 7 0
2=R= SETLINK [EXPECTS X3->AOLPT
2?=W [ RECOVERS LINK TO OFFLINE PERI SEGMENT & FREES REDUNDANT LINK IN ST
2?QG FINDLINK 1,3 [FIND AOLPT LINK STACK
2#=6 ADN 1 ACC3
2#PQ LDN 2 ACC3(3)
2*9B MOVE 1 ALINK
2*P2 FREELINK 3 [& SCRAP LINK STACK ENTRY
2B8L EXIT 7 0
2BN= [
2C7W Z1COMPCHAN [ENTRY IN AOLPT
2CMG [
2D76 LDX 4 ACTNUM(2) [TO IDENTIFY AOLPT FOR RETURN
2DLQ LDX 5 FSCTM(2) [FOR CREATE BLOCK
2F6B LDX 6 FSCMODE(2) [USEROPEX MODES (B0=CURRENT CPT CLOSE
2HJG CLEAR APETADDR(2),0 [LOCKDOWN AREAS (NULL IN G3)
2J46 CHANGEAC APETADDR(2) [NOW IN APET
2JHQ UNPLUG
2K3B FCAPCA 3,2 [X3->CPAT
2KH2 FINDACTX 2,4 [X2->AOLPT
2L2L CHANGEAC 2 [NOW IN AOLPT
2LG= CALL 7 STCHANGE [CHANGESTREAM TO CPAT
2L^W CHANGEAC APETADDR(2)
2MFG CAPCA [NOW IN CPAT
2M^6 CREATEB 1
2NDQ STO 5 CETM(1)
2NYB LDCT 0 #420
2PD2 STO 0 CEINF1(1)
2PQC ... TOPFCA2 2
2Q4S ... JBC USE,2,BAMULT
2QC= CLOSE [ ELSE CLOSE IT
2S*Q USE
2SCN ...#UNS FTS1
2SFL ...(
2SHJ ... SETUPMODE ,7,FROZEN
2SKG ... USEROPEX TBRK,6,7
2SMD ...)
2SPB ...#UNS FTS1
2SR# ...#SKI
2STB USEROPEX TBRK,6 [OPEN NEXT COMPONENT
2T58 ... VFREE FILE,CREATE
2T*2 TESTRPN2 OK,STREAMERR
2TSL CALL 7 SEARCH [FIND AOLPT
2W#= CALL 7 SETLINK [& SET UP CORRECT LINK
2WRW CALL 7 STCHANGE [& MOVE FILE TO IT
2X?G RESTART
2XR6 STEPBACK [O.N.R. SO PERI WILL BE REPEATED
2Y=Q RUNPROG [RESTART PROGRAM
2YQB STREAMERR
2^=2 TESTREP2 ENDMULT,STREAMEND
2^PL LDX 6 GSIGN
329= UNCOMERR [DONT OBEY WHENEVER COMMAND
32NW TBRK
32YN ... VFREE FILE,CREATE
338G CALL 7 SEARCH [FIND AOLPT
33N6 CALL 7 STCHANGE [ & CHANGESTREAM TO IT
3572 LDX 7 FTYPNO(3) [TYPE/UNIT NO FOR ILLEGAL
35LL LINKSET 3,PLINK(1) [SET LINK TO K1COMPCHAN FOR REPEAT
366= BNG 6 NOTBRK [J IF NOT BREAK-IN
36KW STEPBACK [SO PERI WILL BE REPEATED
375G PROGBRKIN [ & RETORN TO COMMAND LEVEL
37K6 NOTBRK
384Q OUTPACK 7,1,PERINAME
38JB ILLEGAL STREAM [ ILLEGAL MESSAGE
3942 STREAMEND
39HL CALL 7 SEARCH [FIND AOLPT
3=3= CALL 7 SETLINK [& SET UP LINK & THEN
3=GW LDN 0 1
3?2G ADJUSTLK 3 [RESET LINK EQUIVALENT TO UPPLUS 1
3?G6 BRN RESTART
3?^Q [
3#FB MENDAREA AOLPGAP,K99COMPCHAN
3#^2 #END
^^^^ ...11535460000500000000