{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SPEAK8)}}
====== SPEAK8 ======
(George Source)
**Macros used:** [[george:macro:APROPNAME|APROPNAME]], [[george:macro:BXE|BXE]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERRX|COMERRX]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNTMISB|HUNTMISB]], [[george:macro:INFORMX|INFORMX]], [[george:macro:MARKAXES|MARKAXES]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTBLOCK|OUTBLOCK]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:PROPNO|PROPNO]], [[george:macro:SAWCE|SAWCE]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARANOX|SPARANOX]], [[george:macro:SPARANXT|SPARANXT]], [[george:macro:TESTREP|TESTREP]]
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