COMPCHAN84
(George Source)
Macros used: ADJUSTLK, CAPCA, CLEAR, CLOSE, CREATEB, FCAPCA, FINDACTX, FINDLINK, FPCACA, FREELINK, ILLEGAL, JBC, LINKSET, LOCK, MENDAREA, OUTPACK, PAIR, PROGBRKIN, RESTART, RUNPROG, SEG, SEGENTRY, SETUPMODE, STEPBACK, TESTREP2, TESTRPN2, TOPFCA2, UNCOMERR, UNLOCK, UNPLUG, USEROPEX, VFREE
- COMPCHAN84.txt
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