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