16 22FL #SEG MULTIPLX8 [G CONSTANTINIDES 12 22_= #LIS K0MULTIPLX>K0ALLGEO>K0GREATGEO 7 23DW 8HMULTIPLX 7 23YG # ENTRY POINTS 12 24D6 SEGENTRY K1MULTIPLX,Z1MULTIPLX 12 24XQ SEGENTRY K3MULTIPLX,Z3MULTIPLX 12 25CB SEGENTRY K4MULTIPLX,Z4MULTIPLX 12 25M8 ... SEGENTRY K5MULTIPLX,Z5MULTIPLX 11 25X2 MENDAREA 20,K99MULTIPLX 4 26BL [ 4 26W= [ 4 27*W [ 11 27TG # FOR USE BY THE LONGWAIT MACRO 4 28*6 [ 6 28SQ Z1MULTIPLX 8 28T6 ... FSHCODE AORB 4 28TG ...( 17 28TW ... NOTALIEN XHOMEMOP,2 [J IF ON HOME MACHINE 19 28W= ... TRANSBEG FSHLONGMESS,MULTIPLX,1,CLB,,ACOMMUNE1,XIPBDOWN 18 28WL ... UP [RETURN FROM HOME MACHINE 5 28X2 ...XIPBDOWN 17 28XB ... TRANSDIE [KILL OFF ACTIVITY 5 28XQ ...XHOMEMOP 4 28Y6 ...) 8 28YM ... LDCT 0 #10 9 294J ... ANDX 0 CLONG1(2) 9 298F ... ERS 0 CLONG1(2) 6 29#B MOPOUT 8 29BK ... FSHCODE AORB 4 29DS ...( 21 29H3 ... TRANCHKN FSHLONGMESS,EQUAL,XHOMEUP,XHOMEUP [J IF NOT TRANSBEG'D TO 18 29K= ... TRANSFIN [RETURN TO OTHER MACHINE 5 29MF ...XHOMEUP 4 29PN ...) 5 29S2 UP 4 2=?L [ 4 2=R= [ 20 2?=W [THIS ENTRY POINT IS FROM THE MOPWAIT MACRO. IT SETS THE ACTIVITY 21 2?QG [WAITING IF A TRANSFER IS IN PROGRESS, AND IS WOKEN UP AGAIN AT THE END 7 2#=6 [OF THE TRANSFER 4 2#PQ [ 5 2*9B REFIND 10 2*P2 MHUNTW 2,AMXOR,ALCB 7 2B8L EXIT 1 0 6 2BN= Z3MULTIPLX 10 2C7W MHUNTW 3,AMXOR,ALCB 9 2CMG LDX 0 GFAIL(3) 16 2D76 BNG 0 UDAVID [J IF INOPERABLE 9 2DLQ LDX 0 GLASTM(3) 20 2F6B BZE 0 TREPT [J IF NO TRANSFERS IN PROGRESS 5 2FL2 UJOHN 8 2G5L LDX 0 GSIGN 16 2GK= ORS 0 GWAIT(3) [SET WAITING BIT 7 2H4W PHOTO 4 18 2HJG COOR1 [WAIT FOR END OF TRANSFER 9 2J46 TESTMOVE 4,NOMOVE 10 2JHQ MHUNTW 3,AMXOR,ALCB 5 2K3B NOMOVE 9 2KH2 LDX 0 GFAIL(3) 15 2L2L BNG 0 UDAVID [J IF INOP. 20 2LG= UMARY LDX 0 BITS22LS [UNSET FAIL BITS IF TRANSFER OK. 9 2L_W ANDS 0 GFAIL(3) 9 2MFG TREPT LDX 0 GWAIT(3) 20 2M_6 ANDN 0 #4 [CHECK TO SEE IF READY REPEAT NEEDED 13 2NDQ BNZ 0 REPREADY [J IF SO 21 2NYB HUNTW 1,AMXOR,AOUT [REPEAT IF MORE THAN ONE OF THESE. 8 2PD2 BNG 1 UP 11 2PXL HUNT2B 2,AMXOR,AOUT,3 7 2QC= SBX 1 2 17 2QWW BNZ 1 REPT [J IF REPEAT NEEDED 5 2RBG UP UP 4 2RW6 REPT 15 2S*Q DOWN MOPOUT,3 [REPEAT OUTPUT 10 2STB BRN Z3MULTIPLX 21 2T*2 REPREADY [COME HERE IF NEED TO REPEAT READY OUTPUT 19 2TSL ERS 0 GWAIT(3) [UNSET 'REPEAT READY' BIT. 21 2W#= FREELINK [FREE THE OLD LINK TO MOPOUT AND GO 21 2WRW ACROSS MOPOUT,2 [TO K2MOPOUT TO REPEAT THE ^READY^. 19 2X?G # THIS ROUTINE DEALS WITH A LINE WHICH HAS GONE INOPERABLE 21 2XR6 # WHILE BEING USED. IT SETS THE PERIPHERAL TYPE IN THE CPA TO MCF 18 2Y=Q # SO THAT SUBSEQUENT MONOUTS ARE ROUTED TO K4MULTIPLX. 4 2YQB # 4 2_=2 # 4 2_PL # 9 329= XMASK #01000001 10 32NW ... SEGENTRY K60MULTIPLX 8 338G ...XERR +34 16 33N6 ... 34HTRANSMISSION ERROR - PLEASE REPEAT 8 347Q ...XERR1 +18 12 34MB ... 18HTRANSMISSION ERROR 5 36KW UDAVID 20 375G LDX 0 GLASTM(3) [J. IF BUFFER IS NOT YET FREE. 8 37K6 BNZ 0 UJOHN 10 384Q ... SEGENTRY K50MULTIPLX 18 38JB LDN 7 0 [TO CHANGE BY INOPTIME 8 3942 BZE 7 XINOP 5 39HL XAGAIN 7 3=3= SBN 7 1 8 3=GW COOR3 #62 14 3?2G BNZ 7 XAGAIN [NOT YET 9 3?G6 CALL 1 REFIND 9 3?_Q LOCKC 2,REFIND 10 3#FB MHUNTW 3,AMXOR,ALCB 15 3#_2 LDX 0 BIT11 [CANCEL DC1 9 3*DL ORS 0 GWAIT(3) 17 3*QD ... LDN 0 4 [TEST B21 = 1 REPEAT 9 3B4= ... ANDX 0 GWAIT(3) 15 3BB4 ... BNZ 0 XN1 [J. IF SET 17 3BMW ... ADN 1 XERR1 [TRANSMISSION ERROR 8 3B_N ... BRN XN2 21 3C?G ...XN1 ADN 1 XERR [TRANSMISSION ERROR - PLEASE REPEAT 19 3CK# ...XN2 LDN 4 GNLBUFF(3) [SET UP START OF MESS. CHARS. 9 3CX6 ... LDN 5 BUFFER(3) 17 3D8Y ... LDCH 6 CHARS(3) [LD. CT. NO. CHARS. 7 3DGQ ... SMO 6 15 3DSJ ... MVCH 4 0 [MOVE SOM. 8 3F6B ... LDN 4 1(1) 8 3FD8 ... SMO 0(1) 19 3FQ2 ... MVCH 4 0 [MOVE MAIN MESSAGE REQUIRED 18 3G3S ... LDN 4 GNLBUFF(3) [LD. END OF MESS. CHARS. 9 3G*L ... SMO GNOCHS(3) 18 3GMD ... MVCH 4 0 [MOVE END OF MESS. CHARS. 19 3G_= ... ADX 6 0(1) [ADD. IN CT. OF MAIN MESSAGE 19 3H?4 ... ADX 6 GNOCHS(3) [ADD. IN CT. OF EOM CHARS. 7 3HJW ... SLC 5 2 7 3HWN ... SBN 5 2 20 3J8G ... SRC 5 2 [X5 POINT TO LAST BUT ONE CHAR 8 3JG# ... LDN 0 #10 7 3JS6 ... LDX 1 5 18 3K5Y ... DCH 0 0(1) [REPLACE EOM WITH CANCEL 19 3KCQ ... LDX 1 FX1 [RESET X1=FX1 - TO BE SAFE. 14 3KQ= LDX 2 IDENTM(3) [AMOP PTR 14 3L9W LDX 5 GUNITNO(3) [LINE NO 8 3LPG FINDLCA ,5 8 3M96 SLL 5 15 10 3MNQ DCA ,STO,5,MODE 10 3N8B DLCA 1,DLA,6,COUNT 9 3NN2 LDN 4 BUFFER(3) 10 3P7L DLCA 1,STO,4,CTSA 8 3PM= LDN 0 #11 20 3Q6W STO 0 GLASTM(3) [JUST SEND NULL TO CHECK INOPER 10 3QLG DLCA 1,DLA,0,MODE 9 3R66 LDN 4 GREP1(3) 10 3RKQ DLCA 1,STO,4,CREP 6 3S5B GLPERI 8 3SK2 LDX 0 JTIME 9 3T4L STO 0 GTIM(3) 8 3TJ= LDCT 0 #400 9 3W3W ORS 0 GWAIT(3) 6 3WHG COOR1 10 3X36 MHUNTW 3,AMXOR,ALCB 9 3XGQ LDX 0 GREP1(3) 17 3Y2B BXE 0 XMASK(1),UMARY [J IF NOW OPERABLE 16 3YG2 XINOP [STILL INOPERABLE 9 3Y_L LDX 2 IDENTM(3) 10 3_F= STOZ A1+BPTR(3) 10 3_YW SMO A1+FPTR(3) 15 42DG STOZ BPTR [GET UNIT NO 8 42Y6 LGEOG ,6 10 43CQ LDX 7 GUNITNO(3) 18 43XB OUTBLOCN 4 [SET UP PARAMETER BLOCK. 15 44C2 LDN 5 7 [SET FUNNY 16 44WL DCH 5 JSOURCE1(2) [PERIPHERAL TYPE 8 45B= GEOPACK 6,6,6 10 45TW OUTPACKC 6,1,GEOPER 19 46*G BZE 7 UNIP [J IF UNIPLEXOR: NO LINE NO. 8 46T6 OUTNUM 7,0 9 47#Q INFORM 2,JINOP,1 8 47SB RET BRN THERE 10 48#2 UNIP INFORM 2,HUINOP,1 8 48RL BRN RET 4 49?= # 4 49QW # 17 4==G # THIS ROUTINE TRAPS MONOUTS OF AN ONLINE JOB FOR 18 4=Q6 # WHICH THE CONSOLE HAS GONE INOPERABLE. IT CHECKS IF 17 4?9Q # READY OUTPUT; IF IT IS IT SETS A BIT FOR THE READY 18 4?PB # MACRO TO CHECK AND GOES UP. OTHERWISE IT JUST GOES UP. 4 4#92 # 4 4#NL # 6 4#TS ...Z5MULTIPLX 10 4*32 ... MFREEALL AMXOR,IDATSG 6 4*8= Z4MULTIPLX 5 4*MW THERE 8 4B7G #SKI ANOUSER<1$1 4 4BM6 ( 9 4C6Q LDX 0 JOBNO(2) 8 4CLB BZE 0 USER 4 4D62 ) 9 4DKL #SKI ANOUSER 15 4F5= NBREAKIN 2,16 [ABANDON JOB 10 4FJW #SKI ANOUSER<1$1 10 4G4G DOWN PROCONTX,16 19 4GJ6 READYON [SET MARK FOR READY TO CHECK 10 4H3Q HUNTW 3,AMXOR,AOUT 8 4HHB BNG 3 USER 9 4J32 LDXC 0 AMOPTY(3) 16 4JGL BCC USER [J IF NOT READY 7 4K2= FREECORE 3 5 4KFW USER UP 4 4K_G #END 8 ____ ...03746033000300000000