13 22FL #LIS K0PCTMES>K0PCT>K0ALLGEO>K0GREATGEO 16 22_= #SEG PCTMES8 [G CONSTANTINIDES 9 23DW 8HPCTMES8 7 23YG # ENTRY POINTS 11 24D6 SEGENTRY K1PCTMES,Z1PCTMES 12 24XQ MENDAREA APCTGAP,K100PCTMES 4 25CB [ 20 25X2 [ THIS SEGMENT IS ENTERED WHEN A CONSOLE CATEGORY MESSAGE IS TO BE 21 26BL [ SENT TO A REMOTE TELE-TYPE. THE SEGMENT GETS AN A7020/CONSOUT BLOCK 18 26W= [AND MOVES THE MESSAGE (IN CONBUF/IREMTW) AND TRANSMISSION 21 27*W [CHARACTERS INTO IT AT COUTBUFF ONWARDS.THE ROUTING BLOCK IS THEN CHAIND 13 27TG [TO THE FRONT - NEXT TO THE ACTIVITY. 4 28*6 # 4 28SQ # 19 29#B X35 +35 [MAXIMUM MESSAGE LENGTH (+2) 20 29S2 XDELTA #74 [TO BE CONVERTED TO DELTA SHIFT 4 2=?L # 4 2=R= # 16 2?=W NLETX #76327635 [NL(FE2), CR(FE5) 14 2?QG #76047623 [DC4, ETX 4 2#=6 # 4 2#PQ # 21 2*9B Z1PCTMES [TO PREPARE A MESSAGE FOR OUTPUT TO 17 2*P2 [A 7023 TELE-TYPE. 4 2B8L # 20 2BN= STOZ AWORK1(2) [PRESET THE MESSAGE BUFFER REMEM. 11 2C7W MHUNTW 3,CONBUFF,IREMTW 8 2CMG LDX 4 A1(3) 14 2D76 ANDN 4 #7777 [WD CT 7 2DLQ SLL 4 2 16 2F6B STO 4 AWORK4(2) [CHAR CT OF MSGE. 5 2FL2 NXBLOCK 21 2G5L SETNCORE COUTBUFF-COUTREP+1+32,3,A7020,CONSOUT,1 [GET THE BUFFER 20 2GK= STO 3 AWORK2(2) [REMEMBER BUFFER BLOCK ADDRESS 11 2H4W MHUNTW 2,CONBUFF,IREMTW 17 2HJG SMO FX2 [REMEMBER THE MESSAGE 16 2J46 STO 2 AWORK3 [BLOCK ADDRESS 16 2JHQ SLL 2 2 [PREPARE POINTER 17 2K3B SMO FX2 [TO POINT TO THE NEXT 17 2KH2 ADX 2 AWORK1 [MESSAGE CHARACTER 16 2L2L SRC 2 2 [TO BE TRANSFERED 13 2LG= LDN 0 #76 [MOVE 14 2L_W DCH 0 COUTBUFF(3) [IN THE 13 2MFG BCHX 3 / [THE 14 2M_6 LDN 0 #22 [START OF 14 2NDQ DCH 0 COUTBUFF(3) [MESSAGE 15 2NYB BCHX 3 / [CHARACTERS 14 2PD2 SMO FX2 [MESSAGE 14 2PXL LDX 6 AWORK4 [LENGTH 20 2QC= BZE 6 MESSEND [IF NO CHARS,J TO SEND N/L ONLY 15 2QWW LDN 4 128-10 [BUFFER COUNT 18 2RBG LDN 5 80 [TRANSMISSION BLOCK COUNT 16 2RW6 LDN 7 72 [PRINT LINE COUNT 20 2S*Q NXCH LDCH 0 ICBUFF(2) [GET THE NEXT MESSAGE CHARACTER 19 2STB TXL 0 XDELTA(1) [IS THE CHARACTER TO BE IN 15 2T*2 BCC ZDELTA [DELTA SHIFT 18 2TSL DCH 0 COUTBUFF(3) [INSERT IT IN THE BUFFER 19 2W#= BCHX 2 / [STEP THE BUFFER AND MESSAGE 16 2WRW BCHX 3 / [BLOCK POINTERS 14 2X?G XDELT SBN 6 1 [REDUCE 16 2XR6 BZE 6 MESSEND [MESSAGE COUNT 14 2Y=Q SBN 4 1 [REDUCE 15 2YQB BZE 4 XEND [BUFFER COUNT 14 2_=2 SBN 7 1 [REDUCE 17 2_PL BZE 7 XEND [THE PRINTLINE COUNT 20 329= BCT 5 NXCH [REDUCE TRANSMISSION BLOCK COUNT 21 32NW XEND LDX 1 2 [REMEMBER POINTER TO MESSAGE BLOCK 13 338G SMO FX1 [MOVE 13 33N6 LDN 2 NLETX [IN 14 347Q ADN 3 COUTBUFF [THE END 18 34MB MVCH 2 8 [OF MESSAGE CHARACTERS 19 3572 LDX 2 FX2 [RESET THE ACTIVITY POINTER 16 35LL STO 6 AWORK4(2) [RETAIN THE COUNT 19 366= LDX 0 AWORK3(2) [POINTER TO THE MESSAGE BLOCK 18 36KW SLC 0 2 [^ITS CHARACTER POSITION^ 18 375G SLC 1 2 [LENGTH OF THE MESSAGE 15 37K6 SBX 1 0 [TRANSFERED 17 384Q STO 1 AWORK1(2) [REMEMBER THIS LENGTH 15 38JB SMO AWORK3(2) [CALCULATE 17 3942 LDX 4 A1 [THE SIZE OF MESSAGE 15 39HL SRL 1 2 [STILL TO BE 15 3=3= SBX 4 1 [TRANSFERED 19 3=GW LDX 3 AWORK2(2) [POINTER TO THE BUFFER BLOCK 21 3?2G BRN NXBLOCK [NOW GO FOR THE NEXT MESSA&E BLOCK 4 3?G6 # 5 3?_Q ZDELTA 20 3#FB LDN 1 #76 [DEPOSIT A DELTA SHIFT CHARACTER 16 3#_2 DCH 1 COUTBUFF(3) [IN THE BUFFER 14 3*DL LDX 1 FX1 [RESET X1 18 3*Y= BCHX 3 / [STEP THE BUFFER POINTER 19 3BCW SBN 0 #10 [ADJUST THE MESSAGE CHARACTER 20 3BXG DCH 0 COUTBUFF(3) [AND DEPOSIT THAT IN THE BUFFER 17 3CC6 BCHX 3 / [STEP THE BUFFER AND 18 3CWQ BCHX 2 / [MESSAGE BLOCK POINTETERS 19 3DBB BCT 4 XDELT [HAS THE BUFFER COUNT BEEN 15 3DW2 BRN XEND [EXHAUSTED? 4 3F*L # 5 3FT= MESSEND 14 3G#W LDN 2 NLETX(1) [MOVE IN 14 3GSG ADN 3 COUTBUFF [THE END 15 3H#6 MVCH 2 8 [OF MESSAGE 8 3HRQ LDX 2 FX2 7 3J?B SLC 3 2 8 3JR2 ADN 3 11 17 3K=L SRL 3 2 [ADDR OF LAST WD USED 17 3KQ= SBX 3 AWORK2(2) [LOGICAL LENGTH REQD 8 3L9W LDN 0 4(3) 10 3LPG TXL 0 ALOGLEN(2) 20 3M96 BCC RECHAIN [J IF ITS NOT WORTH LENGTH CHANGE 16 3MNQ ALTLEN AWORK2(2),3 [SHORTEN BLOCK 5 3N8B RECHAIN 11 3NN2 MHUNTW 3,CONBUFF,IREMTW 17 3P7L CHAIN 3,2 [RE-CHAIN NEXT TO ACT 18 3PM= UP [FINISH OF THE ^OUTPUT^ 4 3Q6W # 4 3QLG # 4 3R66 #END 8 ____ ...22741506000100000000