7 229S ...#OPT ASPEAK=#33 7 22FL #OPT K0SPEAK=0 14 22_= #LIS K0SPEAK>K0ALLGEO>K0GREATGEO>K0COMMAND 16 23DW #SEG SPEAK8 [G CONSTANTINIDES 9 23YG 8HSPEAK8 17 24D6 # OUTPUTS TO THE RELEVANT OPS CONSOLES A GIVEN MESSAGE 7 24XQ # ENTRY POINTS 11 25CB SEGENTRY K1SPEAK,Z1SPEAK 10 25X2 MENDAREA 20,K100SPEAK 10 26BL XCEN 12HCENTRAL :- 8 26W= XBRACB #31 9 27*W XBR #42202020 8 27TG XBRAC #30 9 2?=W ZJTIMD +JTIMD 19 2?QG Z1SPEAK [ENTERED BY 'SPEAK' COMMAND 9 2#=6 STOZ AWORK1(2) 9 2#PQ STOZ AWORK3(2) 21 2*9B CALL 7 YCEN [MARK IN AW4 IF SOURCE LOCAL OR REM 21 2*P2 LDN 4 3 [BROADCAST INDICATED BY 3RD PARAMET 13 2B8L [ER 8 2BN= CALL 7 XPARA 15 2C7W BZE 0 W5W [J IF NO %C 8 2CMG BNG 0 W5W 9 2D76 LDX 0 APARA(3) 9 2DLQ SBX 0 XBR(1) 15 2F6B BNZ 0 W5W [J IF NOT B 20 2FL2 LDN 0 3 [ROUTING PARAMETER FOR BROADCAST 9 2G5L STO 0 AWORK3(2) 19 2GK= LDX 0 AWORK4(2) [J IF BROADCAST FROM REMOTE 16 2H4W BNG 0 TERBR [CONSOLE-ERROR 18 2HJG FREECORE 3 [DO NOT BOTHER WITH %A 8 2J46 BRN W8W 16 2JHQ W5W FREECORE 3 [NOT A BROADCAST 17 2K3B [OPEN SYSTEM.PROPERTY 13 2KH2 ... OPENSYS XBRK,PROPERTY,READ,QUERY 9 2NDQ TESTREP OK,START 4 2NYB YCOM 10 2PD2 GEOERR 1,SYS.PROP 5 2QC= START 21 2QWW LDN 4 1 [EXAMINE %A-DESTINATION OF MESSAGE 8 2RBG CALL 7 XPARA 17 2RW6 BNG 0 TERMES [NO PARAMETERS-ERROR 15 2S*Q BNZ 0 START2 [%A PRESENT 21 2STB LDX 4 AWORK4(2) [%A NULL -SOURCE MUST NOT BE CENTRAL 14 2T*2 BPZ 4 TERCENA [CONSOLE 8 2TSL BRN W4W 18 2W#= START2 [GET THE PROPERTY NUMBER 16 2WRW ANDN 0 #7777 [NO OF CHS IN %A 8 2X?G SBN 0 13 18 2XR6 BPZ 0 TERPR [PROPERTY NAME UNKNOWN 9 2Y=Q LDX 0 APARA(3) 9 2YQB SBX 0 XCEN(1) 8 2_=2 BNZ 0 X1X 10 2_PL LDX 0 APARA+1(3) 9 329= SBX 0 XCEN+1(1) 8 32NW BNZ 0 X1X 7 338G STOZ 4 8 33N6 BRN X2X 9 347Q X1X PROPNO 4,0,TERPR 20 34MB BPZ 4 TERPR [J.IF NOT A CONSOLE PROP-ERROR 9 3572 ANDX 4 BITS22LS 16 35LL X2X LDX 7 JSOURCE3(2) [MY PROPERTY NAME 9 366= ANDX 7 BITS22LS 9 36KW STO 4 AWORK1(2) 20 375G BXE 4 7,TERCEN [SOURCE AND DESTINATION THE SAME 9 37K6 LDX 6 AWORK4(2) 17 384Q BPZ 6 XENDA [J IF SOURCE CENTRAL 10 38JB LDX 0 JSOURCE2(2) 7 3942 SLL 0 1 14 39HL BNG 0 XIPB [J IF IPB 10 3=3= LDX 5 JSOURCE1(2) 19 3=GW SLL 5 6 [B0-B11 TERMINAL IDENTIFIER 9 3?2G ANDX 5 HALFTOP 8 3?G6 SRL 0 10 14 3?_Q DCH 0 5 [LINE NO 6 3#6YP...#SKI JSKI04 14 3##6P... LDEX 4 JSOURCE2(2) [GEOG NO 8 3#FB BRN XENDA 4 3#_2 XIPB 7 3*8SP...#SKI JSKI04<1$1 16 3*DL SLL 0 11 [B0-B11 GEOG NO 10 3*Y= LDX 5 JSOURCE1(2) 15 3BCW ANDN 5 #7777 [IDENTIFIER 6 3BF?P...#SKI JSKI04 4 3BGNP...( 7 3BJ5P... SLL 0 1 8 3BKGP... BPZ 0 XIPB1 13 3BLXP... LDX 4 JSOURCE2(2) [CI 14 3BN#P... ANDX 4 BSP16 [PROP NO 8 3BPPP... BRN XENDA 17 3BR6P...XIPB1 SLL 0 10 [GEOG NO IN B0-B11 7 3BSHP... STOZ 4 4 3BTYP...) 7 3BXG ADX 5 0 5 3CC6 XENDA 11 3CWQ HUNTMISB 3,APERI,CONSOLE 9 3DBB BNG 3 TERCEN 9 3DW2 XTAG LDX 0 A1+1(3) 16 3F*L BZE 0 XNF [%A NOT IN HUIDGE 9 3FT= ANDX 0 BITS22LS 6 3FW_P...#SKI JSKI04 4 3FYNP...( 15 3G2CP... BXE 0 AWORK1(2),XSR [ENTRY FOR %A 10 3G46P... ADN 3 HUIDGENTLEN 15 3G5TP... BRN XTAG [NEXT ENTRY 4 3G7JP...) 7 3G9?P...#SKI JSKI04<1$1 4 3G?2P...( 15 3G#W BXE 0 4,XSR [ENTRY FOR %A 8 3GSG BDX 3 XTAG 4 3H4#P...) 8 3H#6 XSR BPZ 6 W8W 7 3HF#P...#SKI JSKI04<1$1 4 3HLGP...( 9 3HRQ LDX 0 A1+2(3) 7 3J?B ERX 0 5 9 3JR2 BZE 0 TERCEN 4 3JSJP...) 6 3JW6P...#SKI JSKI04 4 3JXNP...( 9 3J_=P... ERX 4 A1+3(3) 9 3K2SP... ERX 5 A1+2(3) 7 3K4BP... ADX 4 5 8 3K5YP... BVSR XCOK 9 3K7GP... BZE 4 TERCEN 4 3K94P...) 8 3K=L BRN XCOK 9 3KQ= XNF BPZ 6 TERCEN 4 3L9W XCOK 8 3LPG BRN W7W 15 3M96 W4W [GET MY NAME 10 3MNQ LDX 7 JSOURCE3(2) 9 3N8B ANDX 7 BITS22LS 4 3NN2 W7W 10 3P7L APROPNAME 7,0,NONUM 7 3PM= W8W LDN 4 2 8 3Q6W CALL 7 XPARA 18 3QLG BZE 0 TERMES [NO MESSAGE TO SEND(%B) 9 3R66 BNG 0 TERMES 9 3RKQ ANDX 0 HALFTOP 8 3S5B SRL 0 12 7 3SK2 SBN 0 2 16 3T4L BNZ 0 NOTCOMP [NOT COMPOSITE 7 3TJ= FREECORE 3 14 3W3W LDX 6 ACOMMUNE3(2) [SAVE IT 17 3WHG SPARANXT ,,4 [GET MESSAGE PARAM 10 3X36 MFREE CPB,CMULTI 10 3XGQ MHUNT 3,CPB,CUNI 10 3Y2B STO 6 ACOMMUNE3(2) 5 3YG2 NOTCOMP 9 3Y_L NGX 0 ANUM(3) 15 3_F= BPZ 0 TERMES [ERROR-NO %B 7 3_YW NGX 0 0 15 42DG ANDN 0 #7777 [NO OF CHS 10 42Y6 LDX 7 JSOURCE3(2) 9 43CQ ANDX 7 BITS22LS 9 43XB ADS 7 AWORK4(2) 9 44C2 LDX 7 AWORK1(2) 10 44WL STO 7 JSOURCE3(2) 9 45B= STO 0 AWORK1(2) 9 45TW LDX 0 AWORK4(2) 8 46*G BNG 0 W9W 7 46T6 LDN 7 7 8 47#Q SMO FX1 8 47SB LDN 4 XCEN 10 48#2 LDN 5 ACOMMUNE1(2) 7 48RL MOVE 4 3 8 49?= BRN T5T 4 49QW W9W 20 4==G LDN 6 12 [CALCULATE THE NO. OF CHARACTERS 17 4=Q6 STOZ 3 [IN THE PROPERTY NAME 7 4?9Q STOZ 7 10 4?PB T1T LDCH 0 ACOMMUNE1(2) 8 4#92 SBN 0 #20 8 4#NL BZE 0 T2T 7 4*8= STOZ 3 7 4*MW BCHX 2 / 8 4B7G BCT 6 T1T 7 4BM6 STO 2 3 8 4C6Q BRN T3T 8 4CLB T2T BNZ 3 T4T 7 4D62 STO 2 3 8 4DKL LDN 7 12 7 4F5= SBX 7 6 7 4FJW T4T BCHX 2 / 8 4G4G BCT 6 T1T 8 4GJ6 T3T LDN 0 #20 10 4H3Q DCH 0 ACOMMUNE1(3) 7 4HHB BCHX 3 / 8 4J32 LDN 0 #12 10 4JGL DCH 0 ACOMMUNE1(3) 7 4K2= BCHX 3 / 8 4KFW LDN 0 #35 10 4K_G DCH 0 ACOMMUNE1(3) 8 4LF6 BNZ 7 T5T 8 4LYQ LDN 7 12 7 4MDB T5T ADN 7 3 8 4MY2 SMO FX2 9 4NCL STO 7 AWORK2 8 4NX= SMO FX2 9 4PBW ADX 7 AWORK1 7 4PWG LDN 4 4 7 4QB6 DVS 6 4 8 4QTQ BZE 6 W3W 7 4R*B ADN 7 1 20 4RT2 W3W ADN 7 2 [NO OF WORDS REQUIRED FOR MESSAGE 11 4S7C ... SETNCORE 5,3,AMXOR,ASPEAK 21 4SFS ... STOZ A1(3) [PRESET SO CONSROOT WILL REROUTE I 10 4SS= LDN 4 ACOMMUNE1(2) 9 4T?W ... LDN 5 A1+1(3) 7 4TRG MOVE 4 4 7 4W?6 LDN 6 2 19 4WQQ LDX 0 AWORK3(2) [J IF BROADCAST SINCE SYSPROP 15 4X=B BNZ 0 P1P [WAS NOT OPEN 6 4XQ2 CLOSE 20 4Y9L # IF ONE OF THE TWO CONSOLES IS CENTRAL USE ROUTING PAR 2 FOR INFORM 10 4YP= LDX 0 JSOURCE3(2) 9 4_8W ANDX 0 BITS22LS 9 4_NG LDX 5 AWORK4(2) 9 5286 ANDX 5 BITS22LS 16 52MQ BZE 0 XCE1 [ONE IS CENTRAL 11 52RM ... MHUNTW 3,AMXOR,ASPEAK 7 52XJ ... LDN 0 1 21 533F ... STO 0 A1(3) [SO CONSROOT TELLS US IF DESTINA 8 537B BZE 5 XCE2 15 53M2 BRN P1P [NONE CENTRAL 10 546L XCE1 STO 5 JSOURCE3(2) 7 54L= XCE2 LDN 0 2 13 555W STO 0 AWORK3(2) [R P 8 55KG P1P OUTBLOCK 7 14 5656 ... OUTPARAM AWORK2(2),A1+1,AMXOR,ASPEAK 13 56JQ OUTPARAM AWORK1(2),APARA,CPB,CUNI 12 574B INFORMX AWORK3(2),ZJTIMD(1),1 9 57J2 LDX 0 AWORK3(2) 14 583L BNZ 0 TENDA [FINISHED 9 58H= LDX 0 AWORK4(2) 9 592W ANDX 0 BITS22LS 10 59GG STO 0 JSOURCE3(2) 8 59LY ... BCT 6 P1Q 8 59RB ... BRN TENDA 11 59XS ...P1Q MHUNTW 3,AMXOR,ASPEAK 8 5=4= ... LDX 0 GSIGN 21 5=8N ... ANDS 0 A1(3) [DONT WANT TO KNOW IF ORIG CONS INOP 8 5=*6 ... BRN P1P 5 5=FQ TENDA 7 5=_B MARKAXES 9 5?F2 LDX 0 AWORK4(2) 16 5?YL ANDX 0 BITS22LS [PUT BACK JSE3 10 5#D= STO 0 JSOURCE3(2) 11 5#HB ... MHUNTW 3,AMXOR,ASPEAK 8 5#LG ... LDX 0 A1(3) 8 5#PL ... BNG 0 ZINOP 18 5#SQ ...[ J IF RECEIVING CONS INOP 6 5#XW NOBC ENDCOM 8 5*CG XPARA SBX 7 FX1 7 5*X6 SPARANOX 4 10 5BBQ MHUNT 3,CPB,CUNI 9 5BWB LDX 0 ANUM(3) 8 5CB2 ADX 7 FX1 7 5CTL EXIT 7 0 4 5D*= YCEN 10 5DSW SAWCE CENTRAL,YC1 8 5F#G LDCT 0 #400 9 5FS6 STO 0 AWORK4(2) 8 5G?Q BRN YC2 9 5GRB YC1 STOZ AWORK4(2) 4 5H?2 YC2 7 5HQL EXIT 7 0 9 5J== NONUM LDX 0 AWORK3(2) 8 5JPW BNZ 0 NOBC 6 5K9G CLOSE 8 5KP6 BRN NOBC 7 5KR4 ...XBRK COMBRKIN 4 5KT2 ...[ 9 5KWY ...ZINOP MFREE CPB,CUNI 19 5KYW ...[ FREE CUNI WITH MESSAGE IN 10 5L2S ... LDX 3 TERINOP(1) 9 5L4Q ... BRN XOUTER 9 5L6N ...TERINOP +JNOMINOP 4 5L8Q # 7 5LNB # ERROR MESSAGES 4 5M82 # 20 5MML TERCENA [PUT CENTRAL IN FIRST CPB/CUNI 9 5N7= LDN 2 XCEN(1) 8 5NLW ADN 3 APARA 7 5P6G MOVE 2 2 7 5PL6 LDN 0 8 8 5Q5Q SBN 3 APARA 9 5QKB STO 0 ANUM(3) 9 5R52 BRN TERCEN 9 5RJL +JNOMS 19 5S4= TERCEN [SOURCE SAME AS DESTINATION 6 5SHW CLOSE 10 5T3G LDX 3 TERCEN-1(1) 9 5TH6 BRN XOUTER 9 5W2Q +JPARMIS 21 5WGB TERMES [%B MISSING -NO MESGE TO SEND (OR %A 14 5X22 [MISSING) 20 5XFL LDX 0 AWORK3(2) [IF BROADCAST SYSPROP NOT OPEN 9 5X_= BNZ 0 XNOOPEN 6 5YDW CLOSE 5 5YYG XNOOPEN 10 5_D6 LDX 3 TERMES-1(1) 9 5_XQ BRN XOUTER 9 62CB +JCONPR 18 62X2 TERPR [%A NOT ACONSOLE PROPERTY 6 63BL CLOSE 10 63W= LDX 3 TERPR-1(1) 9 64*W BRN XOUTER 9 64TG +JSKBRO 20 65*6 TERBR [BROADCAST FROM REMOTE CONSOLE 10 65SQ LDX 3 TERBR-1(1) 5 66#B XOUTER 7 66S2 COMERRX 3 4 67?L # 4 67R= # 4 68=W #END 8 ____ ...20721532000700000000