14 22FL #LIS K0PCTBEGIN>K0PCT>K0ALLGEO>K0COMMAND 16 22_= #SEG PCTBEGIN8 [G CONSTANTINIDES 10 23DW 8HPCTBEGIN 7 23YG # ENTRY POINTS 12 24D6 SEGENTRY K1PCTBEGIN,Z1PCTBEGIN 12 24XQ MENDAREA APCTGAP,K99PCTBEGIN 4 25CB [ 21 25X2 [THIS SEGMENT IS THE INITIALISATION SEGMENT FOR THE 7020 SEGMENTS USING 21 26BL [A MULTIPLEXOR/UNIPLEXOR.THE CURRENT ACTIVITY IS'AMOP,APCT'.THE SEGMENT 21 26W= [IS ENTERED FROM THE SEGMENT'SCAN'WHICH AT'EMS'OR'MOP ON'TIME SETS UP AN 15 27*W [AMOP,APCT AND FPUT'S WITH A LINK TO .PCTBEGIN. 20 27TG [THE'AMOP,APCT'HAS AN'IDF,B7020'BLOCK CHAINED AFTER IT CONTAINING AN 21 28*6 [ENTRY FOR EACH HARDWARE COMMAND DEFINING A 7020 ON A PARTICULAR LINE 19 28SQ [THIS SEGMENT SETS UP AN'A7020,ALCB'BLOCK AND RINGS IT TO THE 19 29#B ['AMXOR,ALINES'BLOCK OF THE'AMOP'ACTIVITY(WHICH NOTICES FLAGS). 19 29S2 [ALSO AN'A7020,INFORM'BLOCK IS SET UP AND INFORMATION ABOUT THE 10 2=?L [INTERFACES PASSED ACROSS. 20 2=R= [IF A CONCEPTUAL IS CANCELLED FOR A 7020 THEN AN AMOP,APCT ENTERS 12 2?=W [PCTBEGIN BY AN ACROSS FROM 'SCAN' 7 2?QG [IN THIS SEGMENT 19 2#=6 [ ON ENTRY DURING ON EXIT 4 2#PQ [ 5 2*9B [AWORK1 14 2*P2 [AWORK2 'B7020',ADD. 14 2B8L [AWORK3 'INFORM' ADD. 7 2BN= [X7 LINE # 4 2C7W [ 7 2CCN ...ZMSK1 #00770000 7 2CMG XGEN #76240000 7 2D76 #76250000 5 2DLQ +0 10 2DWJ ...XLINK PAIR PCTSTART,1 4 2F6B [ 10 2FL2 #OPT ASLICETIME=1000/K9*60 4 2G5L [ 10 2GK= TSLICE +ASLICETIME 9 2H4W PAIR PAIR MORNING,5 4 2HJG [ 21 2J46 [THIS S/R CALLED'XENTRY'SETS UP 2 WORD INTERFACE ENTRIES IN THE INFORM 12 2JHQ [BLOCK.X0 IS THE CALLING ACCUMULATOR 19 2K3B [ X1 =1 FOR SOURCE INTERFACE I.E. TR,CR,TW(CONSOLE INPUT) 20 2KH2 [ X1 =2 FOR ACCEPTOR INTERFACE I.E. LP,TP,TW(CONSOLE OUTPUT) 11 2L2L [ X2 POINTS TO IDF B7020 11 2LG= [ X3 POINTS TO INFORM BLOCK 16 2L_W [ X4 CONTAINS INTERFACE TYPE I.E.LP=1 FOR 7021 16 2MFG [ CR=2 FOR 7022 16 2M_6 [ TW=3 FOR 7023 16 2NDQ [ TR=4 FOR 7024 16 2NYB [ TP=5 FOR 7025 20 2PD2 [ X6 CONTAINS RELATIVE POINTER TO LAST ENTRY INSERTED IN TABLE 11 2PXL [ X7 HAS B0 UNSET ON ENTRY 21 2QC= [THE S/R IS ALSO CALLED'XCONS' IN THE CASE OF CONSOLE OUTPUT ENTRIES. 10 2QWW [IN THIS CASE 'V' IS SET. 4 2RBG [ 21 2RW6 XENT2 BNG 4 XENT3 [J. IF SOURCE INTERFACE, OTHERWISE SE 21 2S*Q ORS 5 APCTX(3) [BIT POSN. IN ^LISTFILE DEVICES^ MASK 5 2STB ...XENT3 6 2W*7 ...#SKI JSKI17 4 2WB4 ...( 9 2WB_ ... ANDX 5 BITS22LS 7 2WCW ... SMO 1 10 2WDR ... ERX 6 APCTNO+1(2) 8 2WFN ... BPZ 6 NSPL 10 2WGK ... ORS 5 APCTSTAT(3) 7 2WHG ... SLC 6 1 8 2WJC ... BPZ 6 NUNA 7 2WK# ... SRL 5 6 10 2WL9 ... ORS 5 APCTSTAT(3) 7 2WM6 ... SLC 5 6 7 2WN3 ...NUNA SRC 6 1 7 2WNY ...NSPL SMO 1 10 2WPT ... ERX 6 APCTNO+1(2) 8 2WQ4 ... BVC NCSPL 9 2WQ? ... ORX 5 GSIGN 5 2WQG ...NCSPL 4 2WQQ ...) 10 2WQ_ ... ORX 5 APCTHADD(3) 7 2WR8 ... ORX 5 1 7 2WRC ... SMO 6 21 2WRL ... STO 5 APCTDEV(3) [INTERFACE BIT POSN./HARDWARE ADDRESS 21 2WRW SBN 6 2 [STEP THE INSERTION POINTER DOWN ONE. 20 2X?G XENT4 SBN 1 5 [EXIT IF X1 > 4 BEFORE UPDATE. 8 2XR6 BPZ 1 (0) 18 2Y=Q ADN 1 7 [ADD 2 TO ENTRY MODIFIER. 21 2YQB XENTRY [ON ENTRY X1 IS ODD (=1) FOR SOURCE 21 2_=2 SMO 1 [AND EVEN (=2) FOR ACCEPTOR INTERFACE 21 2_PL LDX 5 APCTNO+1(2) [J. IF THIS ENTRY NOT CORRECT TYPE. 9 2__D ... ANDX 5 BITS22LS 7 329= SBXC 5 4 8 32NW BNZ 5 XENT4 21 338G SMO 6 [INSERT TYPE (B0 SET INDICATES SOURCE 15 33N6 STO 4 APCTDEV+1(3) [INTERFACE). 21 347Q LDN 5 #4000 [GET INTERFACE BIT POSN. TO B6-B11. 18 34MB SBN 1 5 [N. B. FLAGS ARE SET IN 20 3572 BNG 1 XENT1 [INTERFACE ORDER : 4,3,2,1,6,5. 8 35LL LDN 5 #40 7 366= XENT1 ADN 1 5 8 36KW SLL 5 2(1) 21 375G SMO 6 [INSERT UNIT NO. OF THIS INTERFACE. 10 37K6 DCH 1 APCTDEV+1(3) 19 384Q BVC XENT2 [J. IF NOT CONSOLE OUTPUT. 20 38JB SRL 5 6 [UNSET THE ^NO ACTIVITY^ BIT FOR 16 3942 ERS 5 APCTD(3) [THIS INTERFACE. 7 39HL SLL 5 6 21 3=3= ORX 7 GSIGN [SET SWITCH TO SHOW CONSOLE EXISTS. 21 3=GW ORX 5 GSIGN [SET B0 TO INDICATE CONSOLE OUTPUT. 15 3?2G BRN XENT3 [J. BACK IN. 4 3?G6 [ 21 3?_Q XCONS BVCI XENTRY [SET V FOR CONSOLE OUTPUT ENTRIES. 4 3#FB [ 4 3#_2 [ 6 3*DL Z1PCTBEGIN 9 3*GT ... FSHCODE B,SNOPRA1 4 3*K4 ...( 21 3*M? ... TESTPAIR SNOPRA1 [MAY BE PAIRED ALREADY IF ACROSS FROM 19 3*PG ... FSHACTPR ['SCAN' - ELSE GET US A PAIR 5 3*RP ...SNOPRA1 4 3*TY ...) 14 3*Y= SETNCORE GENQ3+4-A1,3,A7020,ALCB,1,1,2 9 3BCW STO 6 IDENTM(3) 9 3BXG STOZ GWAIT(3) 14 3CC6 STO 7 GUNITNO(3) [LINE NO. 9 3CWQ LDN 0 XGEN(1) 9 3DBB LDN 1 GENQ1(3) 7 3DW2 MOVE 0 3 11 3F*L HUNT2 2,AMXOR,ALINES,6 7 3FT= LDX 5 7 7 3G#W SLL 5 2 7 3GSG ADX 2 5 21 3H#6 RINGTWO A1(2),A1(3) [RING THE LCB INTO THE ROUTING BLOCK. 20 3HRQ LDX 0 GSIGN [UNSET THE ^IGNORE FLAGS^ MARKER. 11 3J?B ERS 0 A1+FOURTHWD(2) 10 3JR2 MHUNTW 2,IDF,B7020 9 3K=L LDN 3 APCTRLEN 21 3KQ= LDN 4 APCTSTAT+1-A1 [1WD. EXTRA FOR ZERO AT END OF GLOCK. 9 3L9W MPA 3 APCTNO(2) 13 3LPG SETUPCORE 4,3,A7020,INFORM,,1,2 9 3M96 EMPTY FPTPCT(3) 18 3MNQ STO 3 AWORK3(2) [REMEMBER ITS ADDRESS. 8 3N8B LDX 0 GSIGN 9 3NN2 STO 0 APCTID(3) 8 3P7L LDX 4 JTIME 10 3PM= STO 4 APCTCLNCT(3) 10 3Q6W STOZ APCTINOP(3) 10 3QLG STOZ ALINESTAT(3) 10 3R66 STOZ APCTACT(3) 9 3RKQ STOZ APCTP(3) 10 3S5B MHUNTW 2,IDF,B7020 19 3SK2 LDX 7 APCTNO(2) [NO. OF PCTS ON THIS LINE. 7 3T4L LDX 0 7 16 3TJ= SBN 0 1 [J. IF ONE ONLY. 8 3W3W SMO FX2 9 3WHG STO 2 AWORK2 8 3X36 BZE 0 ONLY1 19 3XGQ LDX 0 TSLICE(1) [SET SLICE TIME FOR EACH PCT. 20 3Y2B NULL [FREE FOR MENDING INTO IF NOT OK. 21 3YG2 ONLY1 STO 0 ATSLICE(3) [ZERO IF ONLY ONE TERMINAL ON LINE. 10 3Y_L STO 7 APCTNUM(3) 10 3_F= STO 7 APCTACT(3) 8 3_YW LDX 4 A1(2) 17 42DG SRL 4 12 [LINE NO IN B12-23 18 42Y6 SMO FX2 [REMEMBER FOR POSTERITY. 9 43CQ STO 4 AWORK4 21 43XB BCHX 3 / [SET CHARACTER POINTER FOR LATER USE. 4 44C2 XOOP 10 44WL LDX 5 APCTNO+1(2) 7 45B= LDN 6 0 20 45TW DSA 5 6 [HARDWARE ADDRESS OF TERMINAL. 21 46*G ANDX 5 HALFTOP [TWO CHARACTER TERMINAL IDENTIFIER. 8 46T6 SMO FX2 21 47#Q ORX 5 AWORK4 [IDENTIFIER WORD FOR THIS TERMINAL. 10 47SB STO 5 IDUNIQUE(3) 10 48#2 STO 6 APCTHADD(3) 16 48RL ANDN 6 1 [B23=1 IF 1901A 20 49?= ERS 6 APCTHADD(3) [UNSET IT IF SET IN HW ADDRESS 16 49QW STO 6 APCTSTAT(3) [0 IF NOT 1901A 15 4==G NGN 4 #100 [#77777700. 9 4=Q6 STO 4 APCTD(3) 9 4?9Q STOZ APCTX(3) 21 4?PB LDN 6 10 [POINTER TO LAST ENTRY IN INFORM TABL 14 4#92 LDN 4 3 [TW TYPE. 21 4#NL LDN 1 1 [FIRST SOURCE ENTRY IN B7020 BLOCK. 20 4*8= ORX 4 GSIGN [SET ^SOURCE INTERFACE^ MARKER. 21 4*MW CALL 0 XENTRY [SET UP ANY CONSOLE INPUT ENTRIES. 21 4B7G LDN 1 2 [FIRST ACCEPTOR ENTRY IN B7020 BLOCK. 14 4BM6 LDN 4 3 [TW TYPE 21 4C6Q CALL 0 XCONS [SET UP ANY CONSOLE OUTPUT ENTRIES. 19 4CLB BVSR / [CLEAR CONSOLE OUTPUT SWITCH. 7 4D62 LDN 1 2 14 4DKL LDN 4 1 [LP TYPE. 18 4F5= CALL 0 XENTRY [SET UP PRINTER ENTRIES. 7 4FJW LDN 1 2 14 4G4G LDN 4 5 [TP TYPE. 18 4GJ6 CALL 0 XENTRY [SET UP PUNCH ENTRIES. 14 4H3Q LDN 4 2 [CR TYPE. 7 4HHB LDN 1 1 19 4J32 ORX 4 GSIGN [^SOURCE INTERFACE^ MARKER. 20 4JGL CALL 0 XENTRY [SET UP ANY CARD READER ENTRIES. 14 4K2= ADN 4 2 [TR TYPE. 7 4KFW LDN 1 1 20 4K_G CALL 0 XENTRY [SET UP ANY TAPE READER ENTRIES. 20 4LF6 BNG 6 XALL [J. IF ALL INTERFACES DEFINED. 10 4LYQ LDX 5 APCTHADD(3) 20 4MDB XNXT1 SMO 6 [CLEAR UNUSED INTERFACE WORDS. 10 4MY2 STO 5 APCTDEV(3) 7 4NCL SMO 6 10 4NX= STOZ APCTDEV+1(3) 7 4PBW SBN 6 2 8 4PWG BPZ 6 XNXT1 8 4QB6 LDN 6 10 21 4QTQ XNXT2 SMO 6 [SET UP MASK FOR ALL DEFINED INTERFAC 10 4R*B ORX 4 APCTDEV(3) 7 4RT2 SBN 6 2 8 4S#L BPZ 6 XNXT2 19 4SS= ORN 4 -1 [AND IT INTO THE ^RIGHT^ MASK 18 4T?W SLL 4 6 [I. E. MARK ALL UNDEFINED 18 4TRG ANDS 4 APCTD(3) [INTERFACE AS ^WRONGED^. 7 4W?6 XALL LDX 5 2 7 4WQQ LDX 6 3 21 4X=B LDX 0 APCTX(3) [UNSET LF INTERFACE BITS IN OPERABILI 8 4XQ2 LDX 2 FX2 18 4Y9L SBX 5 AWORK2(2) [SAVE PLACE IN BLOCKS. 9 4YP= SBX 6 AWORK3(2) 21 4_8W ERS 0 APCTD(3) [(THIS GIVES FORM-FEED AFTER START UP 21 4_NG LDXC 7 7 [J. IF NO CONSOLE OUTPUT ON THIS PCT. 8 5286 BCC NOCON 21 52MQ LDX 2 3 [FIND THE (FIRST) CONSOLE OUTPUT ENTR 7 537B XNXT3 ADN 2 2 10 53M2 LDXC 0 APCTDEV(2) 8 546L BCC XNXT3 20 54L= ANDX 0 HALFTOP [REMEMBER ITS INTERFACE BIT POSN. 7 555W SLL 0 6 7 55KG PHOTO 4 9 5656 ORS 0 APCTX(3) 21 56JQ GETACT CONSA,APCTMESS [ACTIVITY TO OUTPUT ^GEORGE READY^. 21 574B SETNCORE APCTID+1-A1,1,A7020,CONSIN,,1,2 [DUMMY INPUT BUFFER BLOCK 9 57J2 LDX 3 AWORK3(2) 9 583L TESTMOVE 4,NMV1 18 58H= MHUNTW 3,IDF,B7020 [RESET POINTERS IN CASE 17 592W STO 3 AWORK2(2) [OF CORE MOVEMENT. 11 59GG MHUNTW 3,A7020,INFORM 9 5=26 STO 3 AWORK3(2) 21 5=FQ NMV1 ENRINGD FPTPCT(1),FPTPCT(3) [RING IN TO THE BUFFER BLOCK RING. 21 5=_B SMO 6 [GET THE TWO LETTER IDENTIFIER FOR 16 5?F2 LDX 0 IDUNIQUE(3) [THIS TERMINAL. 9 5?YL LDX 1 FPTR(2) 21 5#D= STO 6 APCTID(1) [SET THE POINTER (B1 SET DON'T MATTER 8 5#XW SRL 0 12 9 5*CG LDX 3 BPTR(2) 18 5*X6 STO 0 AWORK1(3) [STORE THE IDENTIFIER. 20 5BBQ CHAIN 1,3 [CHAIN BUFFER TO OUTPUT ACTIVITY. 7 5BWB LDX 2 3 17 5CB2 LINKSET 3,PAIR(1) [LINK TO K5MORNING 6 5CTL FPUT 18 5D*= NOCON LDX 3 AWORK3(2) [INFORM BLOCK POINTER. 17 5DSW LDX 1 AWORK2(2) [IDF BLOCK POINTER. 17 5F#G SBN 7 1 [J. IF NO MORE TO DO. 8 5FS6 BZE 7 NMV2 7 5G?Q LDX 2 1 21 5GRB ADX 3 6 [STEP POINTERS DOWN TO NEXT ENTRIES. 7 5H?2 ADX 2 5 9 5HQL ADN 3 APCTRLEN 7 5J== ADN 2 7 17 5JPW BRN XOOP [ROUND WE GO AGAIN. 4 5K9G # 17 5KP6 WAIT LDX 0 GSIGN [MARK AS ^ASLEEP^. 9 5L8Q ORS 0 AWORK1(2) 7 5LNB PHOTO 4 6 5M82 COOR1 21 5MML LDX 3 AWORK3(2) [RESET POINTERS AFTER COORDINATION. 9 5N7= LDX 1 AWORK2(2) 9 5NLW TESTMOVE 4,NMV2 11 5P6G MHUNTW 3,A7020,INFORM 10 5PL6 MHUNTW 1,IDF,B7020 9 5Q5Q STO 3 AWORK3(2) 9 5QKB STO 1 AWORK2(2) 21 5R52 NMV2 LDX 0 BPTPCT(3) [J. IF BUFFER BLOCK RING EMPTY AGAIN. 9 5RJL SBN 0 FPTPCT(3) 8 5S4= BNZ 0 WAIT 7 5SHW ADX 3 6 21 5T3G NGN 0 1 [SET MARKER TO INDICATE END OF BLOCK. 12 5TH6 STO 0 APCTSTAT+APCTRLEN(3) 17 5W2Q FREECORE 1 [FREE THE IDF BLOCK. 10 5WGB MHUNTW 3,A7020,ALCB 8 5X22 LDCT 0 #20 20 5XFL SMO A1+FPTR(3) [UNSET THE ^SETTING UP^ MARKER. 9 5XG6 ... ERS 0 FOURTHWD 7 5XGL ... LDX 7 6 11 5XH6 ... MHUNTW 2,A7020,INFORM 9 5XHB ... ANDX 6 BITS22LS 4 5XHL ...[ 4 5XJ6 ... DO 4 5XJL ...[ 7 5XK6 ... ADX 2 7 10 5XKL ... LDX 3 IDUNIQUE(2) 8 5XL6 ... LDCT 4 #770 17 5XLL ... ANDX 4 APCTD(2) [RIGHTED INTERFACES 8 5XM6 ... SRL 4 12 16 5XML ... ANDX 4 APCTD(2) [WITH NO ACTIVITY 7 5XN6 ... SLL 4 6 17 5XNL ... ANDX 4 APCTX(2) [WHICH ARE LP OR TP 17 5XP6 ...[ INT BITS IN CHAR 1 7 5XPL ... LDX 0 4 7 5XQ6 ... SRL 0 6 17 5XQL ... ERS 0 APCTD(2) [UNSET NO ACTY BITS 4 5XR6 ...[ 8 5XRL ... WHILE 4,NZ 5 5XS6 ... DO 4 5XSL ...[ 11 5XT6 ... LDX 0 APCTDEV(2) 9 5XTD ... SMO FX1 10 5XTQ ... ANDX 0 ZMSK1 9 5XW6 ... ORX 6 0 19 5XWL ... ANDX 0 4 [DO WE WANT THIS IDENT 4 5XX6 ...[ 15 5XXL ... IF 0,NZ [IF SO 7 5XY6 ... THEN 19 5XYL ... ERX 4 0 [SHOW INT FOUND 13 5X_6 ... LDX 5 APCTDEV+1(2) 18 5X_L ... GETACT ACTLF,GREMOTE [AND GET ACTY 12 5Y26 ... LDX 1 BPTR(2) 15 5Y2L ... ENRINGD JOBRING(1),JOBRING(2) 12 5Y36 ... LDX 2 BPTR(2) 19 5Y3L ... STO 3 JSOURCE1(2) [STORE IDUNIQUE 19 5Y46 ... STO 5 ACC4(2) [2ND DEVICE WORD 20 5Y4L ... STO 6 ACC5(2) [INT BIT + PCT DISP 13 5Y56 ... LINKSET 2,XLINK(1) 9 5Y5L ... FPUT 14 5Y66 ... MHUNTW 2,A7020,INFORM 10 5Y6L ... ADX 2 7 4 5Y76 ...[ 7 5Y7L ... FI 4 5Y86 ...[ 10 5Y8L ... ANDN 6 #7777 18 5Y96 ...[ REMOVE INTERFACE BITS 9 5Y9L ... ADN 2 2 4 5Y=6 ...[ 9 5Y=L ... REPEAT DX 7 4 5Y?6 ...[ 18 5Y?L ... SBN 6 APCTRLEN [POINT AT NEXT PCT RECORD 7 5Y#6 ... SBX 2 7 20 5Y#L ...[ POINT AT START OF INFORM BLOCK 7 5Y*6 ... LDX 7 6 4 5Y*L ...[ 8 5YB6 ... REPEAT UNTIL,6,NG 4 5YBL ...[ 9 5YDW ACROSS PCTCON,1 4 5YYG # 4 5_D6 #END 8 ____ ...30300337000400000000