17 22FL ...#SEG EVENTS [OWEN N JOHN :CENT 7 22_= #OPT K0EVENTS=0 11 23DW #LIS K0EVENTS>K0ALLGEO>K0LLS 7 23YG 8HEVENTS 4 24D6 # 21 24XQ # THIS SEGMENT DEALS WITH CERTAIN GEORGE INITIATED PROGRAM EVENTS 17 25CB # AND CERTAIN UPDATES AND MESSAGE OUTPUT FOR BLANKET 4 25X2 # 13 26BL # THE ENTRY POINTS ARE AS FOLLOWS: 4 26W= # 17 27*W # K1: THE TICKLER MACRO FOR A SPECIFIED MEMBER 15 27TG # K2: THE TICKLER MACRO FOR ALL MEMBERS 17 28*6 # K3: UPDATES AND MESSAGE OUTPUT FOR BLANKET 16 28SQ # K4: PCA ENTRY FOR GEORGE INITIATED EVENTS 16 29#B # K5: ENTRY AFTER UNPLUG FOR PROGRAM TIMEUP 4 29S2 # 10 2=?L SEGENTRY K1EVENTS,XX1E 10 2=R= SEGENTRY K2EVENTS,XX2E 10 2?=W SEGENTRY K3EVENTS,XX3E 10 2?QG SEGENTRY K4EVENTS,XX4E 10 2#=6 SEGENTRY K5EVENTS,XX5E 10 2#C# ... SEGENTRY K7EVENTS,XX7E 9 2#JG ...XLINK LINK EVENTS,7 4 2#PQ # 4 2*9B # 8 2*P2 THOU +1000 4 2B8L # 15 2BN= # PCA ENTERS HERE FOR GEORGE INITIATED EVENT 19 2C7W # I.E. ON-LINE PERI FAIL, PROGRAM TIMEUP, BREAKIN, JOBTIMEUP 4 2CMG # 4 2D76 XX4E 21 2DLQ UNPLUG 1 [NO WORDS ADJ IF PER FAIL OR PROGRAM 16 2F6B CAPCA [CHANGE TO CPA 8 2FL2 FPCACA 3,2 10 2G5L JBC QJ,3,ASTOPBIN 7 2GK= PROGBRKIN 4 2H4W QJ 10 2H#N ... JBCC QG,3,ASTOPJOB 11 2HJG ... HUNTW 3,COMDAT,CJTEX 14 2HS# ... BPZ 3 QG [J IF WE JTEX SET 8 2J46 FJOCA 3,2 14 2JHQ JBC QH,3,JBOFFL [J IF MOP 16 2K3B SPRIVJUM JSISSUE+JSSTART,3,QH [J IF SYS JOB 16 2KH2 [ISSUED/STARTED 19 2L2L QG PROGEND [RETURN TO COMMAND PROCESSOR 21 2LG= [WHICH WILL NOTICE JOBTIME UP,IF THAT 19 2L_W [WAS INDEED THE EVENT,WHEN 21 2MFG [CHARGING FOR THE ENTER COMMAND AND 15 2M_6 [DEAL WITH IT 9 2NDQ QH LDX 4 JOBTIME 9 2NYB MPY 4 THOU(1) 10 2PD2 ADSC 5 ATIMEJ+1(3) 9 2PXL ADS 4 ATIMEJ(3) 9 2QC= MONOUT JOBTEX 12 2QWW ... HLSINFORM QH1,JOBTIME,JOBNO(2) 16 2R2R ... JBS QH1,2,CXTFULSTART [J IF LEFT FS 3 2R32 ... 21 2R39 ... [THE NEXT FEW LINES CLEAR B9385, WHEREBY THERE WAS NO CHECK 19 2R3D ... [THAT THE HLS WAS INVOLVED IN FULLY STARTING JOBS 3 2R3M ... 14 2R3W ... JBC NOFFL,3,JBOFFL [J IF MOP 21 2R45 ... JBC QH1,,HLSBFS [J IF HLS NOT FSTARTING BACKGRND JOBS 8 2R4# ... BRN SHLS 5 2R4H ...NOFFL 20 2R4Q ... JBC QH1,,HLSMFS [J IF HLS NOT FSTARTING MOP JOBS 4 2R4_ ...SHLS 14 2R5B ... HLSINFORM SAVEABLE,FSTART,,,,,XLINK(1) 4 2R7_ ...XX7E 10 2R=K ... HLSINFRT QH1,FSTART 4 2RBG ...QH1 14 2RW6 RUNPROG [RESTART 21 2S*Q [FOR THE ENTER COMMAND AND DEAL WITH 4 2STB # 15 2T*2 # ENTERED HERE FROM UNPLUG IF PROGRAM TIMEUP 4 2TSL # 4 2W#= XX5E 9 2WRW ILLEGAL TIMEUP 4 2X?G # 4 2XR6 # 21 2Y=Q # THE ACTCDT ACTIVITY ENTERS HERE TO ASSEMBLE THE NECESSARY DA 21 2YQB # MESSAGE WHICH IS TO BE SENT TO THE OPERATORS CONSOLE. ON ENTRY, B0 21 2_=2 # OF X7 INDICATE RESPECTIVELY WHETHER DATE AND/OR TIME IS TO BE OUTP 20 2_PL # OBEYS CONSOUT MACRO TO SEND THE MESSAGE, THEN COMMITS SUICIDE. 4 329= # 4 32NW # 4 338G XX3E 10 33*N ... BBUS 23,4,TD11E 4 33GW ...[ 20 33N4 ...[ THIS CURES B3208 WHEREBY IF EVENTS HAS TO WAIT CHARGESC MAY 16 33T= ...[ GET IT TO OP ^SYS CAN NOW MEET ...^ TWICE 17 342D ...[ DONE 11TH JULY 75 :CENT 4 347L ...[ 14 34#S ... JMBAC TD11E,,ASWOQMISS,ASWREALBAD 4 34G2 ...[ 12 34MB MBC ,ASWOQMISS,ASWREALBAD 17 3572 MONOUT CANQUOT [OUTPUT ALL CLEAR 5 35LL TD11E 19 35WD ... BSON EMSBIT,TD11D [CAN'T UPDATE GMT DURING BMAP 10 366= BBUS 22,4,TD11D 7 36KW GMTUPDATE 5 375G TD11D 10 37K6 BBUS 20,4,TD11C 10 37Q# ... FSHSKIP B,XFSHNB2400 4 37XG ...( 9 384Q OUTPAR DATENOW 9 38JB MONOUT JDCHAN 6 38PJ ...XFSHNB2400 4 38WQ ...) 5 3942 TD11C 20 39?S ... BSON EMSBIT,TD11A [OMIT PERCOUNT - IP'S NOT SETUP 10 39HL ... BBUS 21,4,TD11A 8 3=3= PERCOUNT ALL 5 3=GW TD11A 8 3?2G BNG 4 ND11 21 3?G6 BBUS 12,4,TD11B [JUMP IF NO DATE/TIME TO BE OUTPUT 4 3?_Q ND11 7 3#FB LDN 5 4 16 3#_2 BPZ 4 ND1 [J NO DATE TO O/P 7 3*DL LDN 5 7 7 3*Y= ND1 OUTBLOCK 5 8 3BCW BPZ 4 TD7 9 3BXG BBUS 12,4,TD8 9 3CC6 TD7 OUTPAR TIMENOW 8 3CWQ BNG 4 TD9 8 3DBB BRN TD10 7 3DW2 TD8 OUTNULL 9 3F*L TD9 OUTPAR DATENOW 8 3FT= BRN TD11 7 3G#W TD10 OUTNULL 9 3GSG TD11 INFORM 3,JTIMD,0 8 3H#6 BPZ 4 TD11B 19 3HHY ... BSON EMSBIT,TD11B [CAN'T O/P REMOTELY IN EMS 9 3HRQ ACROSS IPBOUT,5 5 3J?B TD11B 7 3JR2 SUICIDE 4 3K=L # 21 3KQ= # THE TWO FOLLOWING ENTRY POINTS ARE USED BY THE TICKLE MACRO. ENTRY IS 19 3L9W # AT K1EVENTS WHEN A SPECIFIC MEMBER IS TO BE TICKLED, K2EVENTS 21 3LPG # WHEN ALL MEMBERS ARE TO BE TICKLED.FOR ANY MEMBER TO BE TICKLED, 21 3M96 # IF IT IS ACTIVE,OR THE SMP BIT IS CLEAR,THEN THE P BIT WILL BE SET 14 3MNQ # OTHERWISE THE SMP BIT WILL BE CLEARED. 20 3N8B # ON ENTRY THE JOB NUMBER WILL BE IN ACOMMUNE2, AND WHEN ENTRY IS AT 14 3NN2 # K1EVENTS, THE MEMBER NUMBER IN ACOMMUNE1 4 3P7L # 4 3PM= XX2E 16 3Q6W LDN 4 4 [COUNT OF MEMBERS 8 3QLG LDN 3 AFW1 8 3R66 BRN XJOIN 4 3RKQ XX1E 9 3S5B LDN 3 AFW2-AFW1 19 3SK2 MPY 3 ACOMMUNE1(2) [MULTIPLY BY MEMBER NUMBER 7 3SXC ... LDX 3 4 19 3T9S ... ADN 3 AFW1 [X3=MEL (CORRECTS B2623) 17 3TJ= LDN 4 1 [NUMBER OF MEMBERS 5 3W3W XJOIN 13 3WHG FINDJOBQ 1,ACOMMUNE2(2),(GEOERR) 19 3WNN ... LDEX 0 JMISC(1) [J IF JOB HAS NO CORE IMAGE 19 3WTW ... BZE 0 UP [ AS TICKLER HAS NULL EFFECT 14 3X36 FPCAJO 2,1 [X2 ->PCA 15 3XGQ ADX 3 2 [X3 -> MEL 9 3Y2B TOUR LDXC 0 ASU(3) 19 3YG2 BCS PEND [J IF MEMBER NOT ESTABLISHED 17 3Y_L BZE 0 SETP [J IF MEMBER ACTIVE 10 3_F= BBUS 3,ASU(3),SETP 9 3_YW LDX 0 HSMPBIT 21 42DG ANDS 0 ASU(3) [MUST BE CLEARED LIKE THIS AS EXEC CA 8 42Y6 BRN PEND 16 433K ...SETP SETBIT 16,ARM(3) [SET REMEMBRANCE 4 4374 ...[ 17 43=H ...[ THE FOLLOWING CURES B3241 - VIZ SMP MUST BE CLEARED 10 43B2 ...[ AFTER P-FLAG SET ! 4 43FF ...[ 9 43JY ... LDX 0 HSMPBIT 9 43NC ... ANDS 0 ASU(3) 4 43RW ...[ 16 43XB PEND ADN 3 AFW2-AFW1 [INCREMENT PTR 18 44C2 BCT 4 TOUR [BACKAGAIN IF NECESSARY 4 44WL TFIN 7 45B= FJOPCA 2 10 45TW JBC UP,2,JBREPRI 9 46*G PROGRING LOCKOFF 5 46T6 UP UP 7 47#Q #SKI K6ALLGEO 10 47SB MENDAREA 50,K100EVENTS 4 48#2 #END 6 ____ ...225413100003