{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CNSOURCE)}}
====== CNSOURCE ======
(GIN Macro)
**Defined in:** [[george:source:MACS_PW|MACS PW]]
**Used in:** [[george:source:CONNECTA867|CONNECTA867]], [[george:source:DSCNCT867|DSCNCT867]]
3F*3 [??? CNSOURCE SECT COMM FGN 9 DOC
3F*8 #
3F*D #MAC CNSOURCE
3F*N LDX %A ACTNUM(%A)
3F*Y #SKI JSKI27
3FB8 MOPASAT %B
3FBD LDX 2 FX2
3FBN LDCH %B JSOURCE1(2)
3FBY SBN %B 10
3FC8 BZE %B MCN1 [J IF UX
3FCD BCT %B MCN2 [J IF NOT MPX
3FCN MCN1 MOPWAIT
3FCY MCN2 HUNTACTF CPAT,2
3FD8 TXU %A ACTNUM(2)
3FDD BCS MCN2
3FDN LDX %A 2
3FDY LDX 2 FX2
3FF8 LDN 0 JSOURCE1(2)
3FFD LDN 1 JSOURCE1(%A)
3FFN MOVE 0 2
3FFY LDX 0 CPPTR(2)
3FG8 STO 0 CPPTR(%A)
3FGD STOZ JSOURCE1(2)
3FGN STOZ JSOURCE2(2)
3FGY STOZ CPPTR(2)
3FH8 LDN 0 CPPTR(2)
3FHD LDN 1 CPPTR+1(2)
3FHN MOVE 0 3
3FHY STO %A 2 [SAVE PTR
3FJ8 LDX 2 ACTRING(2)
3FJD SBN 2 ACTRING
3FJN BZE %B MCN4 [J IF UX,MPX
3FJY SBN %B 13
3FK8 BNZ %B MCN5 [J IF NOT IPB
3FKD MHUNTW 1,AMXOR,ADCB [IPB
3FKN BRN MCN6
3FKY MCN4 MHUNTW 1,AMXOR,ALCB
3FL8 BRN MCN6
3FLD MCN5 SBN %B 36
3FLN BNZ %B MCN3 [J IF NOT CI EITHER-INOP?(TYPE 7)
3FLY MHUNTW 1,AMXOR,CILCB [CI CHANNEL
3FM8 MCN6 LDX %B 2
3FMD CHAIN 1,BPTR(2)
3FMN #SKI JSKI27
3FMY (
3FN8 MHUNTW 1,APERI,ASSOCS0
3FND BRN MCN9
3FNN )
3FNY MCN8 HUNTW 1,AMXOR,BBC
3FP8 BNG 1 MCN7 [FINI
3FPD #SKI JSKI27
3FPN MCN9
3FPY LDX 2 %B
3FQ8 CHAIN 1,BPTR(2)
3FQD BRN MCN8
3FQN MCN3 LDX 2 FX2
3FQY MCN7 LDX 1 FX1
3FR8 #NOR