9 22FL #LIS K0ANSCOM 15 22_= ...#SEG ANSCOM50 [RUTH PORTER 9 23DW 8HANSCOM 11 23YG SEGENTRY K1ANSCOM,SENTRY1 13 248# ... FSHENTRY K2ANSCOM,SENTRY2,,SENTRY2 10 24D6 # PARAMETERS OF THE SEGMENT 18 24XQ #DEF VLENGTH=11 [LENGTH OF 'DISPLAY'BLOCK 17 25CB #DEF VCHARS=A1 [POSN OF CHAR COUNT 19 25X2 #DEF VMESS=A1+1 [& MESSAGE IN'DISPLAY'BLOCK 8 26W= Q2 +2 8 27*W Q4 +4 9 27TG ZJ1 +JZANSC 20 28*6 Q41 +41 [MAX LENGTH OF 'DISPLAY' MESSAGE 18 29S2 PJLEN +ASTJOB [SIZE OF SHORT JOB BLOCK 8 2=?L STRING +1 21 2=R= 4H: [COLON IGNORED WHEN USER NAME PASSED 21 2?QG # ANSWER COMMAND.IF A MOP USER ANSWERS,A CHECK IS MADE TO SEE IF HE HAS 21 2#=6 # ASKED A QUESTION AND,IF SO,HIS ANSWER IS WRITTEN TO THE QUESTION BLOCK 20 2#PQ # OTHERWISE,THE JOB QUEUE IS SEARCHED FOR AN ENTRY CORRESPONDING TO 20 2*9B # THE USER NAME,JOB NAME SPECIFIED IN THE ANSWER COMMAND.IF SUCH AN 20 2*P2 # ENTRY IS FOUND,THE JOB NO IS USED TO LOCATE THE APPROPRIATE CPA. 20 2B8L # THE ROUTINE THEN HUNTS FOR AN ASSOCIATED QUESTION BLOCK.IF FOUND, 20 2BN= # THE ANSWER IS WRITTEN TO THIS BLOCK.THEN,ACTIVITIES WAITING FOR AN 9 2C7W # ANSWER ARE WOKEN UP. 20 2CMG # IF BREAKIN GIVES THE ANSWER WHEN THE QUESTION HAS BEEN SENT TO THE 16 2D76 # OPERATOR,THIS ANSWER IS OUTPUT TO THE OPERATOR. 5 2DLQ SENTRY1 8 2F6B #SKIP K6ANSCOM>99-99 8 2FL2 TRACE 1,ANSWER 15 2G5L PARANUMB 3 [NO OF PARAMS 10 2GK= ... LDX 0 CONTEXT(2) 8 2H4W ... ANDN 0 #60 19 2HJG ... BZE 0 ZC8 [JUMP UNLESS OPERATOR CONTEXT 10 2J46 ... BXGE 3 Q2(1),ZC13 20 2K3B COMERR JPARMIS,JUSERJOB [USER/JOB NAME PARAMETER MISSING 4 2K?8 ...[ 10 2KH2 ...ZC8 BXL 3 Q2(1),ZC12 19 2LG= COMERR JONEPAR [ONLY ONE PARAMETER ALLOWED 4 2LQ4 ...[ 7 2L_W ZC12 SPARAPASS 8 2MFG BRN ZC9 4 2MKY ...ZC13 14 2MQB ...[ OPERATOR CONTEXT - LOOK FOR USERNAME 10 2MWS ... SPARABEG 1,STRING(1) 10 2N3= ... MHUNT 3,CPB,CUNI 9 2N7N ... LDX 4 ANUM(3) 15 2N#6 ... BNG 4 NUMB [J IF NO USERNAME 9 2NDQ CHECKLFN ZC2,ZC7 8 2NYB ... LDX 0 ACES 17 2PD2 ... STO 0 AWORK1(2) [SPACE FILL USER NAME 15 2PXL ... STO 0 AWORK2(2) [DUMP AREA 9 2QC= ... STO 0 AWORK3(2) 16 2QWW ... HUNT 3,CPB,CUNI [FIND USER NAME 9 2XR6 ... LDN 5 APARA(3) 9 2Y=Q ... LDN 6 AWORK1(2) 9 2YQB ... LDEX 4 ANUM(3) 7 2_=2 SMO 4 19 2_PL MVCH 5 0 [USER NAME TO WORKING BLOCK 4 3243 ...[ 9 32BD ...[ NOW GET JOB NAME 16 32NW SPARUNAC [PASS JOB NAME 9 347Q CHECKLFN ZC2,ZC7 10 34K9 ... HUNT 3,CPB,CUNI 9 352N ... LDN 0 APARA(3) 18 35D7 ... LDX 5 ACES [SPACE FILL JOB NAME DUMP 8 35TL ... LDX 6 ACES 8 36?5 ... LDX 7 ACES 7 36NJ ... LDN 1 5 9 3763 ... LDEX 4 ANUM(3) 7 37HG ... SMO 4 16 37Y_ ... MVCH 0 0 [JOB NAME TO DUMP 16 38BD ... LDX 1 FX1 [JUST TO BE SAFE 9 38BG ... BRN SEARCH 3 38BJ ... 4 38BL ...[ 4 38BN ...NUMB 9 38BQ ...[ CHECK JOB NUMBER 16 38BS ... SPARAPASS [GET 1ST PARAM 10 38BW ... MHUNT 3,CPB,CUNI 9 38BY ... LDX 4 ANUM(3) 19 38C2 ... BNG 4 NOJOB [J IF NULL OR NON-EXISTENT 8 38C4 ... BZE 4 NOJOB 15 38C6 ... CHNUMCOD 1,3 [CONVERT 18 38C8 ... TESTRPN2 OK,WRNUMB [J IF NOT VALID NUMBER 10 38C= ... LDX 4 ACOMMUNE1(2) 19 38C# ... STO 4 AWORK1(2) [STORE JOB NO IN AWORK1 4 38CB ...[ 4 38CD ...[ 5 38CG ...SEARCH 10 38CR ... FSHCODE B,XFSHBANS 4 38F6 ...( 15 38GF ... TRANSBEG FSHANSWER,ANSCOM,2,CLB,,ACOMMUNE1 8 38HS ... BRN ZC7 5 38K7 ...XFSHBANS 4 38LG ...) 10 38MT ... FSHSKIP B,XFSHNBANS1 4 38P8 ...( 5 38QH ...SENTRY2 18 38Q_ ... LDX 4 AWORK1(2) [USERNAME OR JOB NO 15 38RC ... BPZ 4 REPLY [J IF JOB NO 17 38RX ... LDN 3 BJOBQ [SEARCH FOR JOB BLOCK 9 399B ...ROUND LDX 3 FPTR(3) 9 39LT ... BXU 3 CXJO,MID 6 39R# ...XFSHNBANS1 4 39XR ...) 4 3=4# ...ZC2 17 3=FR ...NOJOB COMERR JZNOJOB [ERROR BE NOT FOUND 10 3=L= ... FSHSKIP B,XFSHNBANS2 4 3=QP ...( 20 3=X= ...MID JBS ROUND,3,JBSAVING [IGNORE IF BEING SAVED =7 BG JOB 9 3?#P ... TXU 5 JNAME(3) 10 3?Q8 ... TXU 6 JNAME+1(3) 10 3#7M ... TXU 7 JNAME+2(3) 18 3#K6 ... BCS ROUND [J IF JOB NAME MISMATCH 9 3*2K ... LDX 0 AWORK1(2) 9 3*D4 ... LDX 1 AWORK2(2) 9 3*TH ... LDX 4 AWORK3(2) 9 3B?2 ... TXU 0 JUSER(3) 10 3BNF ... TXU 1 JUSER+1(3) 10 3C5Y ... TXU 4 JUSER+2(3) 18 3CHC ... BCS ROUND [J IF USER NAME MISMATCH 16 3CW3 ... LDX 4 JOBNUM(3) [KEEP JOB NUMBER 4 3D8M ...[ 5 3DH? ...REPLY 16 3DW2 SPARAPASS [ANSWER MESSAGE 8 3G#W ...[NOW FIND CPAT ETC 9 3GSG ... FINDJOBQ 3,4,NOJOB 15 3H#6 ... FCAJO 2,3 [X2 -> CPAT 16 3HRQ ... LDX 7 JSOURCE3(2) [SAVE FOR LATER 6 3HYY ...XFSHNBANS2 4 3J66 ...) 14 3J?B ...ZC9 [USER CONTEXT ANSWER JOINS HERE 13 3JR2 ... HUNT2J 3,APED,AQUESTION,2,ZC15 8 3K=L ... LDX 2 FX2 9 3KQ= ... LDX 0 VCHARS(3) 7 3L9W ... ADN 0 1 16 3LPG ... BZE 0 ZC6 [J IF QN ASKED 4 3N8B ZC15 19 3NN2 COMERR JZNOQUES [JOB HAS NOT ASKED A QUESTION 9 3P7L ZC6 LDX 4 VMESS(3) 17 3PM= HUNT 2,CPB,CUNI [FIND MESSAGE PARAM 15 3Q6W LDX 6 ANUM(2) [NO OF CHARS 8 3QLG ... BPZ 6 ZA5 7 3RKQ LDN 6 0 8 3S5B ZA5 ANDN 6 #7777 10 3SK2 ... BXL 6 Q41(1),ZC14 8 3TJ= LDN 6 40 15 3TLT ...[NOW WE CHECK ROUTING PARAMETERS AND CLUSTERS 13 3TPD ...[ IF ROUTING WAS 0,ONLY USER MAY ANSWER 17 3TS3 ...[ 1 OR 3,USER,CENTRAL OR CORRECT CLUSTER 13 3TWL ...[ 2,ONLY USER OR CENTRAL 8 3T_9 ...ZC14 LDX 2 FX2 10 3W3S ... LDX 0 CONTEXT(2) 8 3W6C ... ANDN 0 #60 17 3W92 ... BZE 0 NOTOP [J IF NOT OPERATOR 7 3W?K ... SBN 4 4 20 3WB8 ... BZE 4 WRONG [J IF ROUTING WAS ZERO - ERROR 10 3WDR ... LDX 0 JSOURCE3(2) 16 3WHB ... BZE 0 OK [J IF CENTRAL -OK 7 3WK_ ... ADN 4 2 19 3WNJ ... BZE 4 WRONG [J IF WAS ROUTING 2 -ERROR 18 3WR7 ... BXU 0 7,WRONG [J IF NOT RIGHT CLUSERT 5 3WTQ ...NOTOP 10 3WY* ...OK LDX 7 CONTEXT(2) 8 3X36 ANDN 7 #60 19 3XGQ BNZ 7 ZC10 [JUMP IF OPERATORS CONSOLE 8 3Y2B TXU 4 Q4(1) 21 3YG2 BCC ZC10 [JUMP IF ORIGINAL ROUTING PARAM. ZERO 8 3Y_L LDN 7 19 7 3_F= OUTBLOCK 7 11 3_YW OUTPARAM 6,APARA,CPB,CUNI 11 42DG HUNTW 3,APED,AQUESTION 14 42Y6 OUTPARAM A1+11(3),A1+12,APED,AQUESTION 18 43CQ INFORMX 4,ZJ1(1),1 [ANSWER TO OPERATOR(S) 11 43JY ... HUNTW 3,APED,AQUESTION 4 43Q6 ...ZC10 17 43XB HUNT 2,CPB,CUNI [FIND MESSAGE PARAM 18 44C2 ... CALL 7 XMON [ANSWER TO QUESTION BLOCK 21 45B= LONGON FORANS [WAKE UP ACTIVITIES AWAITING ANSWERS 8 45TW #SKIP K6ANSCOM>99-99 8 46*G TRACE 1,ANSEND 4 46D5 ...ZC7 10 46GN ... FSHCODE A,XFSHAANS 4 46K? ...( 19 46MW ... TRANSFIN ,,ALIEN [RETURN IF ON ALIEN MACHINE 5 46QF ...XFSHAANS 4 46T4 ...) 6 46XM ... ENDCOM 5 472# ...WRONG 9 477G ... COMERR CLUSANS 5 478H ...WRNUMB 8 479J ...[ INVALID JOB NO 10 47=K ... COMERR GENERR,JINVJNO 4 47?L ...[ 16 47#Q # TRANSFERS MESSAGE PARAM INTO BLOCK GIVEN BY X3. 4 47SB XMON 18 48#2 LDX 5 6 [NO OF CHARS TO BE MOVED 9 48RL ZA3 STO 5 VCHARS(3) 17 49?= BZE 5 ZA4 [JUMP IF NULL MESSAGE 15 49QW ADN 2 APARA [MOVE MESSAGE 8 4==G ADN 3 VMESS 7 4=Q6 ADN 5 3 7 4?9Q SRL 5 2 7 4?PB SMO 5 7 4#92 MOVE 2 0 7 4#NL ZA4 EXIT 7 0 5 4*8= XMEND 10 4*MW MENDAREA 20,GAPANSCOM 4 4B7G #END 8 ____ ...65601676000300000000