14 22FL #LIS K0PCTSTART>K0PCT>K0ALLGEO>K0GREATGEO 16 22_= #SEG PCTSTART8 [G CONSTANTINIDES 16 2394 ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 10 23DW 8HPCTSTART 7 23YG # ENTRY POINTS 12 24D6 SEGENTRY K1PCTSTART,Z1PCTSTART 12 24XQ MENDAREA APCTGAP,K99PCTSTART 4 25CB [ 21 25X2 [ THIS SEGMENT SETS UP ALL BUFFER BLOCKS ASSOCIATED WITH PCT ACTIVITIES 21 26BL [ IT THEN GOES ACROSS TO COMPRO (FOR A CPA) AND TO LISTEND (FOR ACTLF'S) 4 26W= [ 4 27*W # 4 27TG # 16 28*6 #DEF MINCLEAR=ACTBUFF>ATRBUFF>CIBUFF>CRBUFF-EWAIT 4 28SQ # 18 29#B XBLEN [TABLE OF BLOCK LENGTHS 4 29S2 # 20 2=?L +ALFBLOKLEN [A7020/ALIST BLOCK (LINE PRINTER) 20 2=R= +CRBLOKLEN [A7020/INPUT BLOCK (CARD READER) 17 2?=W +ATWBLOKLEN [A7020/CONSIN BLOCK 20 2?QG +ATRBLOKLEN [A7020/INPUT BLOCK (TAPE READER) 20 2#=6 +ALFBLOKLEN [A7020/ALIST BLOCK (TAPE PUNCH) 4 2#PQ # 4 2*9B # 17 2*P2 XBNAME [TABLE OF BLOCK TYPES 4 2B8L # 11 2BN= #HAL +A7020+ALIST,0 11 2C7W #HAL +A7020+INPUT,0 11 2CMG #HAL +A7020+CONSIN,0 11 2D76 #HAL +A7020+INPUT,0 11 2DLQ #HAL +A7020+ALIST,0 4 2F6B # 4 2FL2 # 19 2G5L WHICHSEG [BRANCH TABLE FOR DECIDING IF 19 2GK= # [WE CREATED AN ACTLF OR CPAT 18 2H4W BRN XLFA1 [LP - LISTFILE ACTIVITY 17 2HJG BRN XCPA1 [CR - CARD I/P CPA 17 2J46 BRN XCPA3 [TW - OPERATORS CPA 17 2JHQ BRN XCPA2 [TR - TAPE I/P CPA 18 2K3B BRN XLFA2 [TP - LISTFILE ACTIVITY 4 2KH2 # 21 2L2L TYPBAS [TABLE OF BASIC PL TYPE ACCESSED BY 7020 TYPE. 16 2LG= 2,3,63,0,1 [LP,CR,TW,TR,TP 4 2L_W # 9 2MFG STX #76220000 9 2M_6 XETX #76007623 4 2NDQ # 19 2NYB XCONTEXT #00000222 [REMOTE, OPERATOR, NO USER 19 2PD2 ZCONTEXT #00020242 [REMOTE, NO BREAKIN, NO USER 4 2PXL # 19 2QC= Z1PCTSTART [ENTRY FOR SETTING UP THE PCT 14 2QWW [BUFFER 4 2RBG # 17 2RW6 [REMEMBER X4=DEVICE RECORD WORD(2ND) X5=IDENTIFIER WORD 8 2S*Q [JSOURCE1 = IDUNIQUE 4 2STB # 10 2T*2 LDX 6 JSOURCE1(2) 13 2TSL LDCH 0 6 [L# 8 2W#= LDCT 3 #200 17 2WRW LDCH 7 4(3) [X7 = INTERFACE NO. 15 2X?G ANDN 4 #77 [X4=7020 TYPE 7 2XR6 SMO 4 16 2Y=Q LDX 3 TYPBAS-1(1) [X3 =BASIC TYPE 14 2YQB DCH 3 6 [X6=AA/T# 14 2_=2 SRC 6 6 [T#/AA/0 18 2_PL DCH 7 6 [X6= T#/AA/INTERFACE NO. 10 329= STO 6 JSOURCE1(2) 15 32NW SLL 0 9 [X0 = 0/L#/0 8 338G LDCT 3 #500 15 33N6 ORX 3 0 [X0=PCT/L#/0 10 347Q STO 3 JSOURCE2(2) 14 34MB SMO 4 [ACCESS 17 3572 LDX 6 XBLEN-1(1) [BUFFER BLOCK LENGTH 21 35LL GETCORE 6,1,1,1,2 [GET THE BUFFER AT THE TOP OF CORE 16 366= FINDCORE 3 [POINTER IN X3 13 36KW SMO 4 [GET 13 375G LDX 0 XBNAME-1(1) [AND 16 37K6 NAMEX 3 [NAME THE BUFFER 19 384Q EMPTY FPTPCT(3) [CLEAR THE PCT RING ELEMENTS 16 38JB STO 5 APCTID(3) [SET IDENTIFIER 14 3942 STOZ EWAIT(3) [CLEAR 17 39HL LDN 0 EWAIT(3) [THE INDICATOR AREA 13 3=3= LDN 1 EWAIT+1(3) [OF 16 3=GW MOVE 0 MINCLEAR [THE BUFFER BLOCK 13 3?2G NXTBK LDX 2 JOBRING+1(2) [FIND 13 3?G6 SBN 2 JOBRING [THE 13 3?_Q LDCH 0 ATYPE(2) [PCT 14 3#FB SBN 0 AMOP/64 [ACTIVITY 14 3#_2 BNZ 0 NXTBK [BLOCK 8 3*DL LGEOG ,7 19 3*Y= HUNT2 2,A7020,INFORM [FIND THE INFORMATION BLOCK 6 3BCW ...#SKI JSKI17 4 3BXG ...( 9 3CC6 ... LDEX 1 APCTID(3) 7 3CWQ ... ADX 1 2 9 3DBB ... ADN 1 FPTPCT 9 3DW2 ... LDX 6 APCTID(3) 9 3F*L ... ANDX 6 HALFTOP 7 3FT= ... LDX 0 6 12 3Q68 ... ANDX 0 APCTSTAT-FPTPCT(1) 8 3Q6= ... BZE 0 NSPL 7 3Q6# ... LDN 0 4 7 3Q6B ... SRC 6 6 12 3Q6D ... ANDX 6 APCTSTAT-FPTPCT(1) 8 3Q6G ... BZE 6 STBTS 7 3Q6J ... ADN 0 2 9 3Q6L ...STBTS ORS 0 EWAIT(3) 4 3Q6N ...NSPL 4 3Q6Q ...) 21 3Q78 ... LDX 6 2 [REMEMBER INFORMATION BLOCK POINTER 21 3Q7L ... ENRING FPTPCT(3),BPTPCT(2) [RING IN THE BUFFER BLOCK AT THE END 16 3Q84 ... [OF THE PCT RING 10 3Q8G ... DEX 7 JSOURCE2(2) 14 3Q8Y ... LDN 1 JOBRING(2) [UNRING 15 3Q9B ... DERING 1 [THE ACTIVITY 18 3Q9S ... EMPTY JOBRING(2) [FROM THE TEMPORARY RING 13 3Q== ... SMO 4 [NOW 18 3Q=N ... BRN WHICHSEG-1 [SPLIT FOR CPA OR ACTLF 4 3Q?6 ...# 4 3Q?J ...# 19 3Q#2 ...XLFA1 LDN 4 #7635 [INSERT C/R INTO ETX BUFFER. 8 3Q#D ... BRN XLFA 19 3Q#W ...XLFA2 LDN 4 #7620 [INSERT NULL INTO ETX BUFFER 10 3Q*# ...XLFA LDN 6 ALFBUFFNUM-1 9 3Q*Q ... LDX 5 XETX(1) 21 3QB8 ... ADX 4 STX(1) [SET UP BUFFER FOR SENDING DC3 & ETX 11 3QBL ... LDN 0 ALFBUFFNUM-1*32 10 3QC4 ... STO 5 ETXBUFF+1(3) 10 3QCG ... STO 4 ETXBUFF(3) 21 3QCY ...XLFB SMO 6 [SET THE RELATIVE BUFFER POINTERS. 9 3QDB ... STO 0 INTLK(3) 8 3QDS ... SBN 0 32 8 3QF= ... BCT 6 XLFB 9 3QFN ... LDN 1 FPTPCT(3) 9 3QG6 ... LDEX 5 APCTID(3) 9 3QGJ ...XK1 LDX 1 FPCT(1) 11 3QH2 ... LDXC 0 APCTID-FPTPCT(1) 8 3QHD ... BCC XK1 7 3QHW ... SMO 5 12 3QJ# ... LDX 6 APCTSTAT-FPTPCT(1) 7 3QJQ ... ANDN 6 1 14 3QK8 ... ORS 6 EWAIT(3) [1901A RJE 9 3QK= ... FSHCODE B,SNOPRA1 4 3QK# ...( 8 3QKB ... LFBITSET A,2 7 3QKD ... FSHACTPR 5 3QKG ...SNOPRA1 4 3QKJ ...) 18 3QKL ... JOBCONS YBRKN [FIND THE CLUSTER CONSOLE 20 3QTW ... ACROSS PCTLISTB,1 [GO TO OUTPUT LINE OF ASTERISKS. 4 3R66 # 16 3RKQ XCPA1 LDN 4 CRBUFFNUM [NO OF CR BUFFERS 8 3S5B BRN XCPA 16 3SK2 XCPA2 LDN 4 ATRBUFFNUM [NO OF TR BUFFERS 20 3T4L XCPA LDCT 0 #200 [SET THE ^READ SINGLESHOT^ MARKER 20 3TJ= STO 4 FREBUFF(3) [SET THE NUMBER OF FREE BUFFERS 9 3W3W STO 0 EWAIT(3) 19 3WHG STO 4 BUFFNUM(3) [SAVE THE NUMBER OF BUFFERS 17 3X36 LDX 0 ZCONTEXT(1) [SET CARD/TAPE READER 14 3XGQ STO 0 CONTEXT(2) [CONTEXT 17 3Y2B LDN 0 #61 [SET THE MONITORING 15 3YG2 STO 0 AMXMSK(2) [FILE MASK 19 3Y_L LDX 2 6 [POINTER TO INFORMATION BLOCK 14 3_F= SRL 56 12 [INSERT 13 3_YW SRL 6 12 [THE 13 42DG SMO 6 [FLIP 13 42Y6 ORS 5 APCTD(2) [BIT 21 43CQ HUNTACT AMOP,2 [FIND, AND WAKE UP, THE PCT ACTIVITY. 10 43XB LONGCLEA 2,#62,XWAIT 19 44C2 ...XWAIT ACROSS COMPROA,1 [NOW SET IT GOING PROPERLY. 4 44WL # 19 45B= XCPA3 LDX 0 XCONTEXT(1) [SET REMOTE/NO-USER/OPERATOR 14 45TW STO 0 CONTEXT(2) [CONTEXT 14 46*G LDN 0 #61 [SET THE 17 46T6 STO 0 AMXMSK(2) [MONITORING FILE MASK 17 47#Q ACROSS READOPLN,1 [GET THE COMMAND LINE 4 47SB # 17 48#2 YBRKN [BREAK-IN(MOP OFF) 17 48RL DOWN PCTDIS,1 [RELEASE PERIPHERAL 10 48W9 ... FSHCODE B,SNOKILLA 4 48YS ...( 7 493C ... FSHKILL 5 4962 ...SNOKILLA 4 498K ...) 7 49?= SUICIDE 4 49QW # 4 4==G #END 8 ____ ...70502062000100000000