{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: AUXILMF)}}
====== AUXILMF ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_MSYS|MACROS MSYS]]
**Used in:** [[george:source:MESSA|MESSA]], [[george:source:MESSAA|MESSAA]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSAD|MESSAD]], [[george:source:MESSAE|MESSAE]], [[george:source:MESSAF|MESSAF]], [[george:source:MESSAG|MESSAG]], [[george:source:MESSAH|MESSAH]], [[george:source:MESSAI|MESSAI]], [[george:source:MESSAJ|MESSAJ]], [[george:source:MESSB|MESSB]], [[george:source:MESSBA|MESSBA]], [[george:source:MESSBB|MESSBB]], [[george:source:MESSBC|MESSBC]], [[george:source:MESSBD|MESSBD]], [[george:source:MESSBE|MESSBE]], [[george:source:MESSBF|MESSBF]], [[george:source:MESSBG|MESSBG]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSBI|MESSBI]], [[george:source:MESSBJ|MESSBJ]], [[george:source:MESSC|MESSC]], [[george:source:MESSCA|MESSCA]], [[george:source:MESSCB|MESSCB]], [[george:source:MESSCC|MESSCC]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSCE|MESSCE]], [[george:source:MESSCF|MESSCF]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCH|MESSCH]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSCJ|MESSCJ]], [[george:source:MESSD|MESSD]], [[george:source:MESSDA|MESSDA]], [[george:source:MESSDB|MESSDB]], [[george:source:MESSDC|MESSDC]], [[george:source:MESSDJ|MESSDJ]], [[george:source:MESSE|MESSE]], [[george:source:MESSF|MESSF]], [[george:source:MESSG|MESSG]], [[george:source:MESSH|MESSH]], [[george:source:MESSI|MESSI]]
48#2 ...[??? AUXILMF SECT CENT FGN 56 DOC
4J32 #
4JGL #
4K2= # HERE FOLLOWS AUXILMF **** AUXILMF
4KFW # IT IS USED TO GENERATE THE EXECUTABLE
4K^G # CODE AT THE END OF EACH MESSAGE SEGMENT.
4LF6 # IT HAS NO PARAMETERS
4LYQ #
4MDB #MAC AUXILMF
4MFF ...#SKI SEGNO/512
4MGJ ...(
4MHM ...#SKI 21?-0?
4MJQ ...(
4MKT ...! WRONG LENGTH (PREVIOUS PART)
4MLY ...#DEF 0?=21?
4MN3 ...)
4MP6 ...#SKI 22?<1$1
4MQ9 ...(
4MR# ... MESSMONA 22,,,CT
4MSC ... 22HLAST PART NOT SUPPLIED
4MTG ...)
4MWK ...)
4MY2 #OPT TAB=0?
4N3X ... MFTAB 20?,MESSSTART
4N7S ...#SKI SEGNO<1$1
4N?P ...(
4N*2 ...#UNS AKMESSXX
4NB? ...(
4NCL ...MESSYK
4NHH ...#HAL +KMESSXX,+0
4NMD ...X128 +128
4NPB ...)
4NR* ...)
4NX= XK5 LDX 0 JOBNO(2)
4PBW STO 0 ACOMMUNE2(2)
4PWG XK3 STOZ GDESTINY(2)
4QB6 NGN 6 1
4QTQ XK1 LDEX 3 HMON1(2) [MESSAGE NUMBER WITHIN SEGMENT
4QX^ ...MF1
4R28 ...#SKI SEGNO<1$1
4R4C ...(
4R56 ...#UNS AKMESSXX
4R5T ...(
4R6L ... BXL 3 X128(1),MESSX
4R8T ... LDX 0 ALINK1(2)
4R?4 ... ANDN 0 #7777
4R*? ... ORX 0 MESSYK(1)
4RCG ... ACROSSVAR 0
4RFP ...MESSX
4RGS ...)
4RHY ...)
4RL7 ...#SKI SEGNOÈ
4RNB ... SBN 3 128
4RQK ... SRC 23 1
4RT2 SMO FX1
4S#L LDX 4 TAB(3)
4SS= BNG 2 MF3
4T?W SRL 4 12
4TRG MF3 ANDN 4 #7777 [ADDRESS OF MESSAGE IN SEGMENT
4W?6 ADX 1 4 [X1->MESSAGE
4WQQ LDX 3 1
4X=B LDCT 0 #100 [CONT'D BIT
4XQ2 MF2 ANDX 0 1(3)
4Y9L LDEX 5 0(3) [CHAR LENGTH OF THIS PART
4YP= ADN 5 11
4^8W SRL 5 2 [WORDS IN THIS MESSAGE PART +RED TAPE
4^NG ADX 3 5
5286 BNZ 0 MF2 [J IF CONT'D
52MQ SBX 3 1 [X3=LENGTH OF WHOLE MESSAGE+RED TAPE
537B SBN 3 512
53M2 BPZ 3 (GEOERR)
546L ADN 3 512
54L= SETUPCOR 3,2,GMON,ATEMP
555W ADN 2 A1
55KG LDX 5 2
5656 ADX 1 4
56JQ MOVE 1 0(3) [MOVE MESSAGE
574B PHOTO 7
57J2 BZE 6 OUTMESS [J IF 'OUTMESS'
583L ACROSS MONFILE,3
58H= OUTMESS
592W ACROSS SETMON,7
59GG XK4 LDN 6 0
5=26 BRN XK1
5=FQ XK2 LDX 3 4
5=^B LDN 6 0
5?F2 BRN MF1
5?YL XK12 LDX 0 JOBNO(2)
5#D= STO 0 ACOMMUNE2(2)
5#XW XK11 LDN 6 1 [INFORM
5*CG BRN XK1
5*X6 #NOR