Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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]] <code - CNSOURCE.mac.txt> 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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In