15 22FL #SEG MEXTSJ70 [K.KOSKUBA 10 22_= #LIS K0MEXTSJ>K0ALLGEO>0 21 23DW # THIS SEGMENT SERVICES THE SYSTA_EM JOURNAL SJMESS TYPE EXTRACODES: 14 23YG # THAT IS PERI TYPE 60 MODES:- #73 J 20 24D6 # ON ENTRY FROM OPCA THE SEGMENT ENSURES THAT THE USER HAS THE 20 24XQ # REQUIRED PRIVILEGE, PERFORMS MINIMAL CHECKING ON THE FORMAT OF 17 25CB # THE MESSAGE WHICH IS THEN PUT ON THE JOURNAL CHAIN 20 25X2 # AUTONOMOUSLY FOR MODE #73 AND NON-AUTONOMOUSLY FOR MODE #74 12 26BL # AND THE PROGRAM IS RESTARTED 9 26W= 8HMEXTSJ 11 27*W SEGENTRY K1MEXTSJ,XK1MEXT 8 27TG SJM1 CATMASK JL,OL 9 28*6 SJMESS 8HSJMESS 8 28SQ SERB4 +ERB4 5 29#B XK1MEXT 20 29S2 CHEKPRIV JOB,SJMESS(1),R10,NOTOPEN [CHECK USER HAS PRIVILEGE 18 2=?L # TO USE EXTRACODE 9 2=R= LDX 3 EVENT2(2) 7 2?=W LDN 5 4 9 2?QG LDN 4 AWORK1(2) 21 2#=6 FOUTMOVE 2,3,4,5,HLOCK1 [MOVE 4WD CONTROL AREA TO AWORK WDS 20 2#PQ LDX 5 AWORK1(2) [PICK UP MODE FROM CONTROL AREA 8 2*9B LDCT 6 60 8 2*P2 ADN 6 #74 19 2B8L LDN 7 1 [SET NON-AUTONOMOUS INDICATOR 7 2BN= SBX 6 5 20 2C7W BZE 6 SJMX1 [J IF MODE #73 :- AUTONOMOUS CASE 7 2CMG SBN 6 1 17 2D76 BNZ 6 R20 [J IF ILLEGAL MODE 20 2DLQ LDN 7 0 [ZEROISE AUT/NON-AUT INDICATOR 5 2F6B SJMX1 20 2FL2 LDX 4 AWORK4(2) [PICK UP START ADDR OF MESSAGE 20 2G5L LDX 5 AWORK3(2) [PICK UP NO. OF CHARS IN MESSAGE 8 2GK= LDN 6 2000 7 2H4W SBX 6 5 20 2HJG BNG 6 R40 [J IF COUNT OF CHARS OUT OF RANGE 8 2HS# ... BZE 5 R40 7 2J46 ADN 5 1 21 2JHQ SRA 5 2 [CALCULATE NO. OF WDS MSG REQUIRES 9 2K3B CHECKB 4,5,R30,, 10 2KH2 ADN 5 JCATS-A1+1 11 2L2L SETUPCORE 5,3,GMON,JRNAL 10 2LG= STOZ JWAITER(3) 7 2L_W LDX 1 5 10 2MFG SBN 1 JCATS-A1+1 9 2M_6 LDN 5 JCATS(3) 11 2NDQ FOUTMOVE 2,4,5,1,HLOCK2 9 2NYB LDX 5 JJOBNO(3) 7 2PD2 ADN 5 1 8 2PXL BZE 5 SJMX2 8 2QC= BNG 5 RF10 8 2QWW BNZ 5 SJMX3 5 2RBG SJMX2 8 2RW6 FJOPCA 1,2 9 2S*Q LDX 5 JOBNUM(1) 9 2STB STO 5 JJOBNO(3) 5 2T*2 SJMX3 8 2TSL SMO FX1 8 2W#= LDX 4 SJM1 9 2WRW ORS 4 JCATS(3) 9 2X?G LDX 5 JCATS(3) 7 2XR6 SLL 5 3 10 2Y=Q STOZ JWAITER(3) 8 2YQB BPZ 5 SJMX4 10 2_=2 LDX 6 JPACKORG(3) 8 2_PL BNZ 6 SJMX4 5 329= SJMX35 18 32NW MONOUT JINCPM [INCORRECT PACKED MESSAGE 8 338G BRN R15 5 33N6 SJMX4 10 347Q LDX 6 JPACKORG(3) 8 34MB ANDN 6 #7777 9 3572 BZE 6 SJMX45 8 35LL LDCT 5 #40 9 366= ORS 5 JCATS(3) 5 36KW SJMX45 8 375G BZE 7 SJMX5 9 37K6 LDX 4 ACTNUM(2) 10 384Q STO 4 JWAITER(3) 5 38JB SJMX5 9 3942 LDX 5 AWORK3(2) 8 39HL SBN 5 12 7 3=3= TXL 5 6 9 3=GW BCS SJMX35 8 3?2G SJCHAIN 3,5 9 3?G6 STOZ AWORK2(2) 7 3?_Q LDN 5 0 5 3#FB SJMX55 9 3#_2 LDX 3 EVENT2(2) 7 3*DL ADN 3 1 10 3*Y= FADDRESS 2,3,HLOCK1 8 3BCW STO 5 0(3) 7 3BXG RUNPROG 4 3CC6 R50 8 3CWQ LDCT 5 #40 7 3DBB FREECORE 3 9 3DW2 STO 5 AWORK2(2) 9 3F*L BRN SJMX55 4 3FT= R10 8 3G#W ILLEGAL MODE 7 3GSG R15 ILLEGAL 9 3H#6 R20 ILLEGAL MNOTREC 9 3HRQ ...R30 ILLEGAL RESVIOL 8 3J?B R40 ILLEGAL COUNT 9 3JR2 RF10 MONOUT JINVJNO 7 3K=L ILLEGAL 8 3KQ= MENDAREA 75 4 3L9W #END 8 ____ ...06632537000400000000