16 22FL #SEG MORNING8 [G CONSTANTINIDES 15 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 15 22_= #LIS K0MORNING>K0MULTIPLX>K0ALLGEO>K0GREATGEO 10 23DW 8HMORNING8 7 23YG # ENTRY POINTS 12 24D6 SEGENTRY K1MORNING,Z1MORNING 12 24XQ SEGENTRY K2MORNING,Z2MORNING 12 25CB SEGENTRY K3MORNING,Z3MORNING 12 25X2 SEGENTRY K4MORNING,Z4MORNING 12 26BL SEGENTRY K5MORNING,Z5MORNING 12 26W= SEGENTRY K7MORNING,Z7MORNING 11 27*W MENDAREA 30,K100MORNING 20 27TG [THIS ENTRY POINT OUTPUTS A 'GOOD MORNING' MESSAGE TO A MOP CONSOLE 4 28*6 [ 17 28SQ ZISSUE +G3ISSUE [ISSUE NO. OF GEORGE 17 29#B ZMARK +G3MARK [MARK NO. OF GEORGE 18 29S2 ZTYPE +G4<1+3 [TYPE OF GEORGE - 3 OR 4. 19 2=?L K50MORNING [FOR USE BY THE GREADY MACRO. 8 2=R= +0 8 2?=W ZMESS 20H 4 2?QG [ 11 2#=6 ZCONATT +CONATT,+COATIDE 4 2#PQ [ 9 2*9B ZHI7020 +HI7020 9 2*P2 ZJTIMD +JTIMD 4 2B8L [ 4 2BN= ZDEV 8 2C7W #HAL AMXOR+ADEVS,0 4 2CMG ZLIN 8 2D76 #HAL AMXOR+ALINES,0 5 2DLQ XCONBF 9 2F6B #HAL CONBUFF+IREMTW,0 5 2FL2 XA7020 9 2G5L #HAL A7020+CONSOUT,0 4 2GK= [ 21 2H4W [THIS SUBROUTINE OUTPUTS THE ^THIS IS GEO3 MARK M.N ON 31FEB84^ LINE. 4 2HJG [ 6 2J46 OUTMORNING 16 2JHQ SBX 6 1 [RELATIVISE LINK 7 2K3B OUTBLOCN 5 17 2KH2 OUTNUM ZMARK(1),0 [GEORGE MARK NUMBER. 17 2L2L OUTNUM ZISSUE(1),0 [GEORGE ISSUE NUMBER. 9 2LG= OUTPARC DATENOW 16 2L_W MONOUT GOODMORNING [OUTPUT MESSAGE. 15 2MFG ADX 6 1 [RESTORE LINK 7 2M_6 EXIT 6 0 4 2NDQ [ 6 2NYB Z1MORNING 21 2PD2 LDX 4 ZLIN(1) [BLOCK TYPE. (CHARACTER BUFFERING MX) 13 2PXL LDX 1 AWORK4(2) [AMOP 8 2QC= BRN MORNG 4 2QWW [ 6 2RBG Z3MORNING 18 2RW6 ORX 7 GSIGN [MARK TO SHOW K3 ENTRY. 21 2S*Q LDX 4 ZDEV(1) [BLOCK TYPE. (MESSAGE BUFFERING MXOR) 13 2STB LDX 1 AWORK1(2) [AMOP 21 2T*2 MORNG LDCT 0 #110 [MASK FOR MOPPING OFF AND ONLINE BITS 7 2TSL LDX 3 1 20 2W#= LDCT 6 #20 [MASK TO UNSET ^SETTING UP^ BIT. 21 2WRW NEXT1 LDX 1 FPTR(1) [FIND THE ENTRY IN THE ROUTING BLOCK. 11 2X?G BXU 4 ATYPE(1),NEXT1 16 2XR6 LDXC 5 7 [J. IF MX OR UX. 8 2Y=Q BCC NOTCC 18 2YQB SBX 5 A1+FOURTHWD(1) [SUBTRACT LOWEST IDE. NO. 7 2_=2 NOTCC SLL 5 2 7 2_PL ADX 1 5 20 329= ANDX 0 A1+FOURTHWD(1) [UNSET ^SETTING UP^ BIT(S) AND J. 11 32F4 ... ANDX 6 A1+FOURTHWD(1) 20 32NW ERS 6 A1+FOURTHWD(1) [IF BEING ONLINED OR MOPPED OFF. 8 338G BNZ 0 XMOP2 16 33N6 LDCT 6 2 [OUTPUT NEW LINE. 9 347Q STOZ AWORK4(2) 10 34MB OUTMOND 0,AWORK4,6 10 3572 CALL 6 OUTMORNING 16 35LL RETRY LDX 1 3 [AMOP ADDRESS. 21 366= NEXT2 LDX 1 FPTR(1) [FIND THE ENTRY IN THE ROUTING BLOCK. 11 36KW BXU 4 ATYPE(1),NEXT2 7 375G ADX 1 5 11 37K6 LDX 0 A1+FOURTHWD(1) 21 384Q SLC 0 2 [J. IF LINE MARKED TO BE MOPPED OFF. 8 38JB BNG 0 XMOP1 19 3942 ANDN 0 1 [J. IF ATTACHED BIT NOT SET. 8 39HL BZE 0 XATT 20 3=3= HUNTW 1,IDF,CONNAME [J. IF NO NAME BLOCK AVAILABLE. 8 3=GW BNG 1 NONAM 20 3?2G LDX 4 A1(1) [GET THE CONCEPTUAL LINE NUMBER. 21 3?G6 OUTBLOCN 6 [SET UP A BLOCK TO HOLD THE PARAMETER 19 3?_Q OUTNUM 4,0 [%A = CONCEPTUAL LINE NUMBER. 18 3#FB OUTPARN 12,A1+1,IDF,CONNAME [%B = CONCEPTUAL NAME. 7 3#RR ... LDX 6 7 17 3*68 ...[ SAVE TYPE INDICATOR 7 3*DL LDXC 7 7 7 3*Y= ADN 1 0 10 3BCW LDX 7 ZCONATT(1) 7 3BXG MONOUTX 7 15 3BY6 ... BPZ 6 XMOP15 [J IF NOT IPB 10 3BYQ ... MHUNTW 1,AMXOR,ADCB 15 3B_B ... LDX 2 A1+FPTR(1) [ADEVS ENTRY 8 3C22 ... LDCT 0 #200 10 3C2L ... ANDX 0 FOURTHWD(2) 18 3C3= ... BZE 0 NLAH [J IF NO LONGER ATTACHED 8 3C3W ... LDX 0 BIT10 10 3C4G ... ANDX 0 FOURTHWD(2) 18 3C56 ... BZE 0 XMOP15 [J UNLESS ONLINE FINISHED 10 3C5Q ... ERS 0 FOURTHWD(2) 15 3C6B ... LDX 7 IDENTNO(1) [IDENT NUMBER 15 3C72 ... LDX 6 CPPTR(3) [DEV LIST PTR 15 3C7L ... STOZ BPTR(2) [DERING ADCB 10 3C8= ... STOZ A1+BPTR(1) 15 3C8W ... FREECORE 1 [AND FREE IT 19 3C9G ... ACROSS ATTACHB,4 [GO TO COMPLETE ATTACHMENT 7 3C=6 ...NLAH NGN 0 1 8 3C=Q ... ERX 0 BIT10 17 3C?B ... ANDS 0 FOURTHWD(2) [LEAVE BIT 10 UNSET 10 3C#2 ... MFREEW IDF,CONNAME 18 3C#L ... MONOUT AHCCL [SAY ATTACHMENT CANCELLED 17 3C*= ... BRN XATT [CONTINUE WITH MOP 5 3C*W ...XMOP15 10 3CBG ... MFREEW IDF,CONNAME 8 3CC6 BRN XMOP2 21 3CWQ XMOP1 MONOUT JABANDMOF [^JOB ABANDONED : MOP SWITCHED OFF^. 20 3DBB XMOP2 MOPCLOSE [WAIT FOT TRANSFERS TO FINISH. 4 3DDD ...XFIN 9 3DGG ... FSHCODE B,NOKILLA 4 3DJJ ...( 9 3DLL ... TESTUNPR NOKILLA 7 3DNN ... FSHKILL 5 3DQQ ...NOKILLA 4 3DSS ...) 7 3DWW ... SUICIDE 7 3D_6 ...#UNS IDFMARK8 13 3F4= ...NONAM WHICHCON (GEOERR),NOCON,CPPTR(3),7 7 3F7B ...#UNS IDFMARK8 4 3F=G ...#SKI 11 3F*L NONAM WHICHCON NOCON,CPPTR(3),7 15 3FT= BRN RETRY [J. BACK IN. 18 3G#W NOCON LDX 2 3 [LINE NO LONGER ATTACHED. 21 3GSG NEXT3 LDX 2 FPTR(2) [FIND THE ENTRY IN THE ROUTING BLOCK. 11 3H#6 BXU 4 ATYPE(2),NEXT3 7 3HHY ... ADX 2 5 8 3HRQ LDCT 0 #200 11 3J?B ANDX 0 A1+FOURTHWD(2) 11 3JR2 ERS 0 A1+FOURTHWD(2) 10 3K2S ... VFREEW IDF,CONNAME 8 3K=L BRN XATT 4 3KQ= [ 19 3L9W [THIS ENTRY IS FOR THE COMMAND ISSUER ROUTINES (PERI TYPE 60). 4 3LPG [ 6 3M96 Z2MORNING 10 3MNQ CALL 6 OUTMORNING 4 3MS9 ...XATT 9 3MXN ... FSHCODE B,NOTPRA 4 3N37 ...( 9 3N6L ... TESTUNPR NOTPRA 9 3N=5 ... ACROSS COMPRO,17 5 3N*J ...NOTPRA 4 3NF3 ...) 20 3NJG ... ACROSS COMPROA,1 [ENTER THE COMMAND PROCESSOR. 4 3NN2 [ 15 3P7L [SUBROUTINES TO SET UP CONBUFF/IREMTW BLOCKS. 4 3PM= [ 21 3Q6W [THIS ONE SETS UP A DUMMY BLOCK WITH A ZERO CHARACTER COUNT TO FORCE N/L 4 3QLG [ 7 3R66 OUTNL SBX 7 1 17 3RKQ SETNCORE ICBUFF-A1,3,CONBUFF,IREMTW [DUMMY BLOCK. 21 3S5B LDCT 5 #37 [ROUTING PARAMETER = 3 (DON'T REROUTE 16 3SK2 LDX 6 AWORK1(2) [IDENTIFIER NO. 7 3T4L ADX 7 1 8 3TJ= STO 5 A1(3) 21 3W3W STOZ A1+1(3) [N.B. THIS PROCEDURE MAY HAVE TO BE 21 3WHG STO 6 A1+2(3) [CHANGED IF ^CONSROOT^ IS REWRITTEN. 7 3X36 EXIT 7 0 4 3XGQ [ 7 3Y2B OUTIM SBX 7 1 7 3YG2 OUTBLOCN 2 11 3Y_L OUTPARC TIMENOW,DATENOW 15 3_F= LDX 5 ZJTIMD(1) [^%A %B^. 18 3_YW BRN OUTCS [GO TO SET UP FOR OUTPUT. 4 42DG [ 7 42Y6 OUTMS SBX 7 1 20 43CQ OUTBLOCN 4 [SET UP BLOCK TO HOLD PARAMETERS. 17 43XB OUTNUM ZMARK(1),0 [OUTPUT MARK NUMBER. 17 44C2 OUTNUM ZISSUE(1),0 [OUTPUT ISSUE NUMBER. 18 44LS ... OUTPARC DATENOW [CREATES A MON ASET BLOCK 19 44WL LDX 5 ZHI7020(1) [^GEORGE N MK%A.%B READY^. 4 45B= [ 21 45TW [AND THIS ONE PUTS THE START-UP MESSAGES INTO BLOCKS OF THE RIGHT LENGTH 4 46*G [ 18 46T6 OUTCS LDN 1 0 [DUMMY ROUTING PARAMETER 17 47#Q INFORMX 1,5,0 [DONT FREE THE BLOCK 17 47SB FINDRET 1 [FIND RETAIN BLOCK 8 48#2 OUTLEN 1,3 7 48RL ADN 3 3 7 49?= SRL 3 2 7 49QW PHOTO 6 7 4==G LDX 4 1 21 4=Q6 SETNCORE ICBUFF-A1(3),2,CONBUFF,IREMTW [GET A BLOCK THE CONSOLE 20 4?9Q LDX 1 4 [OUTPUT ROUTINES CAN HANDLE, AND 21 4?PB TESTMOVE 6,NMV [MOVE THE ASSEMBLED MESSAGE INTO IT. 17 4#92 FINDRET 1 [FIND MESSAGE BLOCK 21 4#NL NMV LDCT 6 #37 [SET THE ROUTING PARAMETER TO 3 SO 21 4*8= LDN 4 A1+2(1) [THAT IF THE OUTPUT FAILS THE MESSAGE 20 4*MW ADX 6 3 [WILL NOT BE REROUTED ELSEWHERE. 9 4B7G LDN 5 ICBUFF(2) 8 4BM6 SMO FX2 20 4C6Q LDX 0 AWORK1 [N.B. THIS WORKS CURRENTLY, BUT 20 4CLB MOVE 4 0(3) [^CONSROOT^ IS EVER REVAMPED THIS 18 4D62 STO 6 A1(2) [MAY HAVE TO BE CHANGED. 9 4DKL STOZ A1+1(2) 9 4F5= STO 0 A1+2(2) 19 4FJW FREECORE 1 [FREE THE OLD MESSAGE BLOCK. 7 4G4G SMO 7 7 4GJ6 EXIT 1 0 4 4H3Q [ 21 4HHB [THIS ENTRY IS TO OUTPUT A ^GOOD MORNING^ MESSAGE FOR A CONSA/IREMTW ACT 4 4J32 [ 6 4JGL Z4MORNING 20 4K2= ORX 7 GSIGN [MARKER TO INDICATE 7900 SOURCE. 15 4KFW LDX 3 AWORK1(2) [AMOP ADDRESS 16 4K_G STO 7 AWORK1(2) [IDENTIFIER NO. 18 4LF6 LDX 4 ZDEV(1) [AMXOR/ADEVS BLOCK TYPE. 8 4LYQ LDCT 7 #20 16 4MDB NEXT4 LDX 3 FPTR(3) [FIND THE BLOCK. 11 4MY2 BXU 4 ATYPE(3),NEXT4 7 4N58 ... SMO 6 11 4N=B ... ANDX 7 A1+FOURTHWD(3) 19 4NCL SMO 6 [UNSET THE ^SETTING UP^ BIT. 11 4NX= ERS 7 A1+FOURTHWD(3) 19 4PBW CALL 7 OUTIM [SET UP TIME AND DATE OUTPUT. 21 4PWG CALL 7 OUTMS [SET UP THE ^GEORGE READY^ MESSAGE. 20 4QB6 CALL 7 OUTNL [AND FINALLY SET UP A LINE FEED. 21 4QTQ ACROSS IPBCONS,1 [N.B. THE LAST MESSAGE WILL GO OUT 1S 4 4R*B [ 21 4RT2 [THIS ENTRY IS TO OUTPUT ^GEORGE READY^ MESSAGE FOR A CONSA/APCTMESS ACT 4 4S#L [ 19 4SS= [ AWORK1 ALREADY CONTAINS THE TWO LETTER TERMINAL IDENTIFIER. 4 4T?W [ 6 4TRG Z5MORNING 9 4TW5 ... FSHCODE B,XNOPRA 4 4TYN ...( 7 4W3? ... FSHACTPR 5 4W5W ...XNOPRA 4 4W8F ...) 17 4W?6 CALL 7 OUTNL [LINE-FEED OUTPUT. 20 4WQQ PCTMESA [CONVERT TO 7020 OUTPUT BLOCKS. 21 4X=B CALL 7 OUTMS [SET UP THE ^GEORGE READY^ MESSAGE. 20 4XQ2 PCTMESA [CONVERT TO 7020 OUTPUT BLOCKS. 19 4Y9L CALL 7 OUTIM [SET UP TIME AND DATE OUTPUT. 20 4YP= PCTMESA [CONVERT TO 7020 OUTPUT BLOCKS. 21 4_8W MHUNTW 3,A7020,CONSIN [GET THE UNIQUE IDENTIFIER FOR THE 15 4_NG LDX 2 3 [TERMINAL, 20 5286 LDEX 4 APCTID(3) [PUT IT IN EACH CONSOUT BLOCK AND 19 52MQ PCTHUNTB 3 [CHAIN THE BLOCKS IN SEQUENCE 18 537B DERINGD FPTPCT(2) [AFTER THE INFORM BLOCK. 18 53M2 SMO 4 [AND FLIP CONSOLE OUTPUT. 9 546L LDCH 0 APCTX(3) 7 54L= SMO 4 10 555W LDX 7 IDUNIQUE(3) 7 55KG SMO 4 9 5656 ORS 0 APCTD(3) 9 56JQ XBACK LDX 2 FPTR(2) 9 574B LDX 0 ATYPE(2) 20 57J2 BXGE 0 CACT,XOUT [J. IF NO MORE BLOCKS TO CHAIN. 11 583L BXE 0 XCONBF(1),XFOUN 11 58H= BXU 0 XA7020(1),XBACK 10 592W STO 7 CIDENTM(2) 8 59GG XFOUN CHAIN 2,3 8 5=26 BRN XBACK 18 5=FQ XOUT LDX 0 BPTPCT(3) [J. UNLESS RING EMPTY. 9 5=_B SBN 0 FPTPCT(3) 8 5?F2 BNZ 0 XFIN 18 5?YL HUNTACT AMOP,2,3 [FIND THE PCY ACTIVITY. 17 5#D= LDX 0 GSIGN [J. IF NOT ASLEEP. 9 5#XW ANDX 0 AWORK1(2) 8 5*CG BZE 0 XFIN 18 5*X6 ERS 0 AWORK1(2) [OTHERWISE WAKE IT UP. 6 5BBQ FPUT 13 5BWB BRN XFIN [END. 4 5CB2 [ 4 5CTL [ 21 5D*= Z7MORNING [ENTRY FROM SETUP TO OUTPUT CENTRAL 21 5DSW LDX 3 K50MORNING(1) [NO. OF WORDS IN OPTIONAL ADDITION. 21 5F#G OUTBLOCN 7(3) [SET UP GMON/ASET BLOCK LONG ENOUGH. 21 5FS6 LDX 3 1 [CAN'T USE X1 TO MODIFY IN OUTPACK. 14 5G?Q OUTPACK ZTYPE(3),1,NUMA [3 OR 4. 7 5GRB LDX 3 1 14 5H?2 OUTPACK ZMARK(3),1,NUMB [MARK NO. 7 5HQL LDX 3 1 15 5J== OUTPACK ZISSUE(3),1,NUMC [ISSUE NO. 7 5JPW LDX 3 1 21 5K9G LDX 2 K50MORNING(1) [J IF NO ADDITIONAL MESSAGE REQUIRED 10 5KP6 BZE 2 NOXTRAMESS 21 5L8Q OUTPACK ZMESS(3),0(2),VARCHAR [USER DEFINED ADDITIONAL MESSAGE 6 5LNB NOXTRAMESS 10 5M82 INFORM 1,GREADY,1 5 5MML UP 4 5N7= #END 8 ____ ...45614220000100000000