AUXILMF
(GIN Macro)
Defined in: MACROS MSYS
Used in: MESSA, MESSAA, MESSAB, MESSAC, MESSAD, MESSAE, MESSAF, MESSAG, MESSAH, MESSAI, MESSAJ, MESSB, MESSBA, MESSBB, MESSBC, MESSBD, MESSBE, MESSBF, MESSBG, MESSBH, MESSBI, MESSBJ, MESSC, MESSCA, MESSCB, MESSCC, MESSCD, MESSCE, MESSCF, MESSCG, MESSCH, MESSCI, MESSCJ, MESSD, MESSDA, MESSDB, MESSDC, MESSDJ, MESSE, MESSF, MESSG, MESSH, MESSI
- AUXILMF.mac.txt
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