15 22FL ...#SEG IPBINC8 [COMM - IPB 8 22S3 ...#OPT K0IPBINC=0 16 236D ...#LIST K0IPBINC>K0IPB>K0ALLGEO>K0GREATGEO 9 23DW ... 8HIPBINC 4 23YG # 12 24D6 ... SEGENTRY K1IPBINC,SK1IPBINC 12 24XQ ... SEGENTRY K11IPBINC,SK11IPBINC 18 25CB ...[ K11 ENTERED BY AMOP-IPBIN WHEN TELELOAD REQUEST RECEIVED 12 25X2 ... SEGENTRY K12IPBINC,SK12IPBINC 14 26BL ...[ K12 ENTERED DBY CPA INITIATING TELELOAD 12 26W= ... SEGENTRY K13IPBINC,SK13IPBINC 12 27*W ...[ K13 ENTERED BY TELELOAD COMMAND 20 27TG ...#DEF VRUC=33 [COUNT OF CHARS IN RACK UP SEQUENCE 21 28*6 ...#DEF VBIC=8 [COUNT OF CHARS IN 'BREAK IN' MESSAGE 10 28SQ ...SBREAK 8HBREAK IN 9 29#B ...SHDR #40240000 9 29S2 ...SMSKR #77607777 9 2=?L ...VRACKUP #76130700 4 2=R= ...# 20 2?=W ...# SUBROUTINE TO SET UP ACTIVITY OF TYPE IN X5 AND LENGTH IN X6 4 2?QG ...# 5 2#=6 ...SETAC 8 2#PQ ... SBX 0 FX1 8 2*9B ... SLL 5 12 9 2*P2 ... STO 0 AWORK3(2) 8 2B8L ... GETACTX 5,6 9 2BN= ... LDX 0 AWORK3(2) 9 2C7W ... LDX 2 BPTR(2) 8 2CMG ... ADX 0 FX1 7 2D76 ... EXIT 0 0 4 2DLQ ...# 20 3F*L # SUBROUTINE TO GET ADDRESS IN X2 OF ACTIVITY OWNING ADCB IN X1 4 3FT= # 7 3G#W SKACT LDX 2 1 9 3GSG SFRED LDX 2 BPTR(2) 9 3H#6 LDX 0 ATYPE(2) 8 3HRQ TXL 0 CACT 8 3J?B BCS SFRED 7 3JR2 EXIT 7 0 4 3K=L # 20 3KQ= # SUBROUTINE TO FIND ADDRESS IN X1 OF ADCB FOR GIVEN IDENTIFIER 21 3L9W # IN ((X3)) AND ADDRESS IN X2 OF ADEVS ENTRY FOR THE IDEN 4 3LPG # 10 3M96 SKADB MHUNTW 2,AMXOR,ADEVS 17 3MNQ LDX 0 0(3) [IDENTIFIER NUMBER 8 3N8B ANDN 0 #7777 21 3ND8 ... BZE 0 TDCB [ZERO : SYSTEM SUPERVISOR'S NUMBER 20 3NN2 SBX 0 A1+FOURTHWD(2) [SUBTRACT LOWEST IDENTIFIER NO. 7 3P7L SLC 0 2 10 3Q6W TXL 0 ALOGLEN(2) 6 3Q=2 ...#UNS CCERROR 20 3Q*6 ... BCC SERR1 [DCP ERROR : IDENTIFIER TOO LARGE 6 3QD= ...#UNS CCERROR 4 3QHB ...#SKI 20 3QLG BCC SERR [DCP ERROR : IDENTIFIER TOO LARGE 7 3R66 ADX 2 0 10 3RKQ ...TDCB LDX 1 A1+BPTR(2) 19 3S5B BZE 1 (7) [X1 ZERO IF NO RING POINTER 9 3SK2 SBN 1 A1+FPTR 7 3T4L EXIT 7 0 4 3TJ= # 21 3W3W # SUBROUTINE TO WAKE ACTIVITY IF NECESSARY , WITH GIVEN DCB ADDRESS 4 3WHG # 8 3X36 STASH LDN 0 #2000 21 3XGQ ANDX 0 IWAIT(1) [B13 SET IF WARNING NOTICED BY ACT. 8 3Y2B BZE 0 (6) 9 3YG2 ERS 0 IWAIT(1) 9 3Y_L STAKE LDXC 0 IWAIT(1) 17 3_F= ... BCC VCK [ACTIVITY NOT ASLEEP 9 3_YW STO 0 IWAIT(1) 8 42DG CALL 7 SKACT 18 42Y6 ... LDX 7 1 [PRESERVE ADCB ADDRESS 18 43CQ FPUT [END OF WARNING CONDITION 7 43XB ...WOKEN LDX 1 7 7 44C2 EXIT 6 0 20 44WL ...VCK [WAKEUP MOP ACTIVITY IF IN WAITING STYLE: IVDUWAIT 6 45B= ...#UNS JSKI37 4 45TW ...( 10 46*G ... SMO A1+FPTR(1) 9 46T6 ... LDEX 0 FOURTHWD 8 47#Q ... SBN 0 10 16 47SB ... BNZ 0 NVDTW [J IF NOT A VDU 8 48#2 ... LDN 0 #1000 9 48RL ... ANDX 0 ICONTU(1) 17 49?= ... BZE 0 NVDTW [J IF NOT SUSP OUTPUT 20 49QW ... ERS 0 ICONTU(1) [UNSET ^WAITING OUTPUT SUSPENDED^ 7 4==G ... LDX 7 1 14 4=Q6 ... FON CONTVDUWT [WAKE CPA 8 4?9Q ... BRN WOKEN 5 4?PB ...NVDTW 4 4#92 ...) 16 4#NL ... CALL 7 SKACT [SET X2 -> CPAT 18 4*8= ... LDX 7 1 [PRESERVE ADCB ADDRESS 11 4*MW ... LONGCLEA 2,IVDUWAIT,(6) 8 4B7G ... BRN WOKEN 6 4BM6 ...#UNS AV7900S 4 4C6Q ...( 4 4CLB ...# 15 4D62 ...# SUBROUTINE TO CREATE AN AMXOR/IOUT BLOCK 18 4DKL ...# ON ENTRY X6 = THE REQUIRED LOGICAL LENGTH OF THE BLOCK 15 4F5= ...# ON EXIT X2 -> THE AMXOR/IOUT BLOCK CREATED 7 4FJW ...# LINK IN X7 4 4G4G ...# 6 4GJ6 ...SETUPIOUTBK 8 4H3Q ... SBX 7 FX1 11 4HHB ... SETUPCOR 6,2,AMXOR,IOUT,1 8 4J32 ... ADX 7 FX1 7 4JGL ... EXIT 7 0 4 4K2= ...) 6 4KFW ...#UNS ATELE 4 4K_G ...( 5 4LF6 ...SK12LINK 9 4LYQ ... PAIR IPBINC,12 8 4MDB ...ZJTELING +JTELING 9 4MY2 ...ZJTELNOT +JTELNOT 9 4NCL ...TLCOM 8HLOADTCP 8 4NX= ...TLIDW +0 9 4PBW ... 4H0 ,T 9 4PWG ...TLREF 4H00,_ 8 4Q6# ... 4H 21 4QB6 ...[ FIRST 2 CHARS OF TLREF HAVE TCP REFE 5 4QTQ ...TLCME 9 4R42 ...TLREF3 4H000, 8 4R== ... 4H_ 3 4RDG ... 11 4RLQ ...#DEF REFBL=ATELCOM+TLREF-TLCOM 21 4RT2 ...[ REFBL IS POSN OF TCP REF IN COMPASS 11 4S#L ...#DEF TIDBL=ATELCOM+TLIDW-TLCOM 21 4SS= ...[ TIDBL IS POSITION OF PERIDESC IN COM 20 4T?W ...#DEF TLLEN=TLCME-TLCOM [LTH IN WDS OF LOADTCP COMMAND 20 4TRG ...#DEF TLCHAR=TLLEN@L2 [NUMBER CHARS IN TLOADTCP COMMAND 5 4W?6 ...TELLCEN 16 4WQQ ... LDN 1 1 [SEND TO CENTRAL 8 4X=B ... SBX 7 FX1 8 4XQ2 ... INFORMX 1,6,1 8 4Y9L ... ADX 7 FX1 7 4YP= ... EXIT 7 0 20 4_8W ...[ SUB TO SEND MESSAGE TO TELE IDENT 4 4_NG ...[ 21 5286 ...[ IDENTIFIERS TO FIND DATA AFTER TLOUT 17 52MQ ...#DEF TEXOK=0 [EXIT IF MOOUTPUT OK 17 537B ...#DEF TEXNREQ=TEXOK+1 [EXIT IF NOT OUTPUT 21 53M2 ...#DEF TLMASK=TEXNREQ+1 [BITS IN 4W UNSET IF SENDING MESSAGE 16 546L ...#DEF TMOVE=TLMASK+1 [NO. WDS IN MESSAGE 15 54L= ...#DEF TDAT=TMOVE+1 [START OF DATA 5 555W ...TLOUT 9 55KG ... LDX 7 TMOVE(3) 16 5656 ... ADN 7 IDATA-A1-1 [LTH. OF BLOCK 8 56JQ ... SBX 3 FX1 11 574B ... SETUPCORE 7,1,AMXOR,IOUT,1 8 57J2 ... ADX 3 FX1 14 583L ... HUNT2J 2,AMXOR,ADEVS,AWORK4(2),TLVRQ 17 58H= ... ADX 2 4 [POINT TO ADEVS ENTRY 16 592W ... LDX 6 2 [SAVE ADEVS ENTRY 19 59GG ... LDX 0 TLMASK(3) [MASK OF BITS TO FREE MESSAGE 11 5=26 ... ANDX 0 A1+FOURTHWD(2) 18 5=FQ ... BNZ 0 TLVRQ [GO TO FREE IF ANY SET 16 5=_B ... STOZ IBSW(1) [SHOW DATA ONLY 20 5?F2 ... STOZ IMOPTY(1) [SO IPBOUT WONT TRY TO WAKE ACT 16 5?YL ... STO 5 IPBIDE(1) [IDENT NUMBER 17 5#D= ... ADN 1 IDATA-1 [POINT TO SEG HEADER 9 5#XW ... LDN 0 TDAT(3) 9 5*CG ... SMO TMOVE(3) 18 5*X6 ... MOVE 0 0 [MOVE MESSAGE INTO BLOCK 18 5BBQ ... SBN 1 IDATA-1 [POINT AT START OF BLOCK 8 5BWB ... SMO FX2 16 5CB2 ... LDX 2 AWORK4 [IPBIN ADDRESS 10 5CTL ... LDX 7 IPBRING(2) 16 5D*= ... SBN 7 IPBRING [IPBOUT ADDRESS 7 5DSW ... SMO 7 9 5F#G ... LDX 2 ACTRING 9 5FS6 ... SBN 2 ACTRING 9 5G?Q ... LDX 2 BPTR(2) 15 5GRB ... CHAIN 1,2 [SEND MESSAGE 7 5H?2 ... LDX 2 7 8 5HQL ... LDCT 0 #100 9 5J== ... ANDX 0 IPBSW(2) 19 5JPW ... BZE 0 TLALWK [J IF IPBOUT ALREADY AWAKE 9 5K9G ... ERS 0 IPBSW(2) 6 5KP6 ... FPUT 5 5L8Q ...TLALWK 8 5LNB ... LDX 2 FX2 8 5M82 ... EXIT 3 TEXOK 15 5MML ...TLVRQ FREECORE 1 [FREE IOUT 9 5N7= ... EXIT 3 TEXNREQ 4 5NLW ...) 4 =SNW # 20 =T8G # BREAK-IN SEGMENT ; ACTIVITY NEWLY SET UP , TIMED OUT , ALREADY 19 =TN6 # BROKEN IN ON OR ACTIVE ; IF ACTIVE TRY TO BREAK IN ON JOB 19 =TS3 ...# FOR MOP DISPLAYS: NO ^REVERSION^ OCCURS; REPLY IS ALWAYS 20 =TXY ...# BINAK TO PREVENT ANY MESSAGES BEING DISCARDED GIVING RISE TO 12 =W3T ...# MIS-POSITIONING OF MESSAGES 4 =W7Q # 4 =W8R ...[ 6 =W9S ...[ X X X 6 =W=T ...[ X X X 6 =W?W ...[ XX X 6 =W#X ...[ X X X 6 =W*Y ...[ X X X 4 =WB_ ...[ 6 =WD2 ...SK1IPBINC 4 =WF3 ...[ 4 =WG4 ...[ 15 =WH5 ...[ NOTE X3 WILL CONTAIN PTR TO BUFFER BLOCK 4 =WJ6 ...[ 20 =WK7 ... CALL 7 SKADB [RE-FIND ADEV'S ENTRY AND ADCB 18 =WKM ... BZE 1 SIDLE [ACTIVITY HAS TIDIED UP 15 =WL8 ... LDN 5 0 [RE-SET X5 8 =WMB LDCT 6 #10 7 =X72 LDCT 0 4 7 =XLL ADN 6 1 19 =Y6= ANDX 0 A1+FOURTHWD(2) [BIT 6 SET IF CPA JUST SET UP 11 =Y?D ... LDEX 4 A1+FOURTHWD(2) 21 =YDL ... BNZ 4 TNEW [MOP DISPLAY : NO ACTUAL ^REVERSION^ 9 =YKW ADS 6 IBIL(1) 15 =_5G ...TNEW BNZ 0 SOP [NB X5 = 0 8 =_K6 SMO FX1 15 ?24Q LDX 0 SMSKR [#77607777 10 ?342 ANDS 0 ISTATUS(1) 15 ?3*B ... BNZ 4 VRDYC [MOP DISPLAY 19 ?3LQ ... LDCT 5 #200 [INDICATE REVERSION EXPECTED 9 ?3Y6 ... ORS 5 IWAIT(1) 8 ?49G ... LDCT 0 #040 9 ?4GW ANDX 0 IWAIT(1) 16 ?52G BZE 0 SNOTO [NOT TIMED OUT 15 ?5G6 ERS 0 IWAIT(1) [UNSET T/O 18 ?5_Q CALL 6 STAKE [WAKE ACTIVITY IF ASLEEP 8 ?6FB BRN SMK 4 ?6G7 ...# 20 ?6GY ...# MOP DISPLAY : DON'T PERMIT THE BREAK-IN WHEN A READY 12 ?6HP ...# MESSAGE IS BEING SENT 17 ?6JG ...# NOTE IWAIT'S READY FLAG(B7) IS NOT TESTED 19 ?6K? ...# ESP AS IT CAN REMAIN SET SOME TIME AFTER INPUT 15 ?6L4 ...VRDYC CALL 7 SKACT [LOCATE CPA 21 ?6LT ... LDX 2 FPTR(2) [CHECK FOR GMON/AOUT BLK IMMEDIATELY 15 ?6ML ... LDX 0 ATYPE(2) [AFTER CPA 8 ?6NC ... SRL 0 12 9 ?6P8 ... SBN 0 GMON+AOUT 19 ?6P_ ... BNZ 0 SNOTO [NO OUTPUT MESSAGE BEING SENT 9 ?6QQ ... LDX 5 A1+1(2) 7 ?6XD ... SLC 5 1 18 ?6Y9 ... BNG 5 SOP [READY MESSAGE BEING SENT 4 ?6_2 # 18 ?7DL SNOTO LDCT 0 4 [BROKEN IN ON OR ACTIVE 9 ?7Y= ANDX 0 IWAIT(1) 19 ?8CW BZE 0 SYBI [NEW BREAK IN : JOB ACTIVE 8 ?8XG SMK LDX 0 BIT9 20 ?9C6 ORS 0 ISTATUS(1) [UPDATE CONTROL MASK FOR DISCARDS 7 ?9WQ SBIAC LDN 5 0 8 ?=BB BRN SOP 4 ?=W2 # 16 ??*L SYBI CALL 7 SKACT [LOCATE ACTIVITY 7 ??F5 ...#UNS ENBREAKIN 4 ??JJ ...( 18 ??N3 ... NBREAKIN 2,8,,SBIY [TRY TO BREAK IN ON JOB 20 ??RG ... [IF BREAK IN ALLOWED,J TO SBIY 4 ??W_ ...) 7 ?#2D ...#UNS ENBREAKIN 4 ?#5X ...#SKI 4 ?#9B ...( 18 ?##W NBREAKIN 2,8 [TRY TO BREAK IN ON JOB 16 ?D9W BRN SBIY [BREAK IN ALLOWED 4 ?DPG ...) 17 ?F96 ... CALL 7 SKADB [BREAK IN REJECTED 18 ?G8B BZE 1 SIDLE [J IF CPAT HAS SUICIDED 9 ?GN2 LDEX 0 IBIL(1) 7 ?H7L SBN 0 2 8 ?HM= BPZ 0 SBIAC 20 ?J6W LDCT 5 #404 [INDICATE BINAK & NL BUT NO DATA. 16 ?JLG BRN SOP [O/P BI NOT ALLWD 4 ?K66 # 16 ?KKQ SBIY CALL 7 SKADB [BREAK IN ALLOWED 8 ?KTJ ... BZE 1 SIDLE 7 ?L5B LDCT 0 4 21 ?LK2 ORS 0 IWAIT(1) [SET 7900 BI BIT(G3 BI BIT WAS SET BY PROCONTX) 7 ?M4L LDN 5 8 4 ?MJ= # 16 ?N3W ...# OUTPUT BIACK OR BINAK WITH OR WITHOUT MESSAGE 4 ?NHG # 7 ?P36 SOP LDCT 0 1 19 ?PGQ ORS 0 ISTATUS(1) [SET MASK TO DISCARD READIES 7 ?Q2B LDN 2 0 17 ?QG2 BZE 5 SBA [ZERO IF NO MESSAGE 14 ?Q_L BNG 5 SNLON [NO DATA 17 ?RF= LDCH 2 ICHARS(1) [LENGTH OF NEWLINE 7 ?RYW ADX 2 5 14 ?SDG SNLON ADN 2 3 [ROUNDING 14 ?SY6 ADX 2 INOCHS(1) [NL+EOM 7 ?TCQ SRL 2 2 8 ?TXB SBA LDX 4 0(3) 10 ?W3? ... SMO A1+FPTR(1) 9 ?W78 ... LDEX 0 FOURTHWD 15 ?W?5 ... BNZ 0 VBREAKIN [MOP DISPLAY 21 ?WC2 LDN 6 IDATA-A1(2) [ACCOUNT FOR IMOPTY,IPBSW,IPBIDE,IPBIDE+1 6 ?WG6 ...#UNS AV7900S 10 ?WK= ... CALL 7 SETUPIOUTBK 6 ?WNB ...#UNS AV7900S 4 ?WRG ...#SKI 11 ?WWL SETUPCORE 6,2,AMXOR,IOUT,1 15 ?XB= LDX 0 SHDR(1) [#40240000 17 ?XTW STO 4 IPBIDE(2) [IDENTIFIER NUMBER 21 ?Y*G ORX 0 5 [B0 OF X5 MAY BE SET : ADD CHAR CT. 10 ?YT6 STO 0 IPBIDE+1(2) 21 ?_#Q BZE 5 SBB [J IF NO DATA : DOUBLE BI OR NEW CPA 7 ?_SB LDX 6 2 8 #2#2 CALL 7 SKADB 21 #2RL BZE 1 SJUG [CPAT HAS JUST SUICIDED : TRY AGAIN 7 #3?= LDX 2 6 9 #3QW LDN 7 IDATA(2) 21 #4=G BNG 5 SNAL [J IF NL ONLY REQ : BI NOT ALLOWED 9 #4Q6 LDCH 0 ICHARS(1) 10 #59Q LDN 6 INLBUFF(1) 10 #5PB ADS 0 IPBIDE+1(2) 7 #692 SMO 0 14 #6NL MVCH 6 0 [NEWLINE 9 #78= LDN 6 SBREAK 8 #7MW ADX 6 FX1 7 #87G SMO 5 14 #8M6 MVCH 6 0 [BREAK IN 9 #96Q SNAL LDX 0 INOCHS(1) 10 #9LB ADS 0 IPBIDE+1(2) 10 #=62 LDN 6 INLBUFF(1) 7 #=KL SMO 0 16 #?5= MVCH 6 0 [NEWLINE + EOM 8 #?5C ... BRN SBB 4 #?5J ...# 4 #?5K ...[ 8 #?5L ...[ MOP DISPLAY 4 #?5M ...[ 5 #?5P ...VBREAKIN 6 #?5Y ...#UNS AV7900S 4 #?67 ...#SKI 21 #?6D ... LDCT 7 #404 [FOR BINAK SEG HEADER(EOM + BINAK) 21 #?77 ... LDN 6 IDATA-A1 [BLK LENGTH: IMOPTY,IBSW,BINAK SEG 6 #?7= ...#UNS AV7900S 4 #?7* ...( 10 #?7D ... CALL 7 SETUPIOUTBK 21 #?7H ... LDCT 7 #404 [FOR BINAK SEG HEADER(EOM + BINAK) 4 #?7L ...) 6 #?7P ...#UNS AV7900S 4 #?7S ...#SKI 11 #?7X ... SETUPCOR 6,2,AMXOR,IOUT,1 15 #?84 ... STO 4 IPBIDE(2) [IDENTIFIER 16 #?89 ... STO 7 IPBIDE+1(2) [SEGMENT HEADER 21 #?8B ... BNG 5 SBB [BREAK-IN REJECTED : QUEUE BINAK SEG 20 #?8J ... BZE 5 SBB [ACTIVITY NEWLY SET UP OR ALREADY 20 #?8Q ... [BROKEN IN ON : QUEUE BINAK SEG 18 #?8Y ...# BREAK-IN ACCEPTED : SET UP ^BREAK IN^ MESSAGE 15 #?96 ...# THEN QUEUE BINAK SEG & MESSAGE 18 #?9# ... LDX 6 2 [IN CASE OF JUMP TO SJUG 15 #?9F ... CALL 7 SKADB [RE-FIND DCB 21 #?9L ... BZE 1 SJUG [CPAT HAS JUST SUICIDED : TRY AGAIN 21 #?9R ... LDEX 6 ICURSOR(1) [ACC FOR IMOPTY,IBSW,RACK UP,BI MESS, 9 #?9Y ... ADX 6 INOCHS(1) 21 #?=5 ... ADN 6 IDATA-A1+(VRUC+VBIC+3/4) [MESS TERM SEQ & CUR POS CODES 6 #?=6 ...#UNS AV7900S 10 #?=7 ... CALL 7 SETUPIOUTBK 6 #?=8 ...#UNS AV7900S 4 #?=9 ...#SKI 11 #?== ... SETUPCOR 6,2,AMXOR,IOUT,1 17 #?=C ... LDX 5 2 [PRESERVE IOUT PTR 15 #?=J ... CALL 7 SKADB [RE-FIND DCB 21 #?=P ... BZE 1 SJUGA [CPAT HAS JUST SUICIDED : TRY AGAIN 21 #??4 ... LDCT 0 #200 [SET ^REVERSION EXPECTED^ FLAG(B1) 21 #??C ... ORS 0 IWAIT(1) [AND WAKE CPA IF NOT ALREADY TAKEN 16 #??Q ... CALL 6 STAKE [BREAK-IN EXIT 16 #?#6 ...VRIP LDX 2 5 [RESET IOUT PTR 21 #?#? ... LDN 6 IDATA(2) [PTR FOR START OF MESS IN IOUT BLOCK 19 #?#D ... LDCH 7 ICURPOS(1) [CURRENT LINE NO OF CURSOR 19 #?#K ... LDEX 0 ICURPOS(1) [CURRENT COLUMN NO OF CURSOR 21 #?#Q ... BZE 0 VRACK [CURSOR ON COLUMN 0:USE CURRENT LINE 16 #?#X ... ADN 7 1 [USE NEXT LINE NO 15 #?*4 ...VRACK BCHX 1 / [-> CHAR 1 16 #?*9 ... LDCH 0 ICHARS(1) [DISPLAY LENGTH 9 #?*B ... ANDX 1 BITS22LS 21 #?*H ... TXL 7 0 [IF MESSAGE LINE NO DCB FOR SKACT 16 #?JB ... CALL 7 SKACT [SET X2 -> CPAT 19 #?JF ... CHAIN 5,2 [CHAIN BI MESSAGE AFTER CPAT'S OUTPUT MESSAGE 18 #?JM ...VBIR HUNT2 2,AMXOR,IOUT [SET X2 -> BINAK BLOCK 4 #?JW # 18 ##4G SBB STOZ IMOPTY(2) [ACTIVITY NOT TO BE WOKEN 9 ##J6 STOZ IBSW(2) 8 #*3Q SMO FX2 9 #*HB LDX 3 IPBRING 7 #B32 LDX 1 2 19 #BGL SBN 3 IPBRING [ADDRESS OF IPBOUT ACTIVITY 10 #C2= LDX 2 ACTRING(3) 20 #CFW SBN 2 ACTRING [ADDRESS OF ACTIVITY AFTER IPBOUT 18 #C_G CHAIN 1,BPTR(2) [CHAIN IOUT BEHIND IPBOUT 10 #D6N ... HUNTW 2,AMXOR,IOUT 21 #D?W ... BPZ 2 SBB [MUST BE ^BREAK IN^ MESS : CHAIN TOO 8 #DF6 LDCT 0 #100 18 #DYQ ANDX 0 IPBSW(3) [B2 SET IF IPBOUT ASLEEP 16 #FDB BZE 0 SNEW [ALREADY AWAKE 9 #FY2 ERS 0 IPBSW(3) 7 #GCL LDX 2 3 6 #GMD ... FPUT 4 #GX= ...SNEW 16 #HBW ... UP [RETURN TO IPBIN 4 #HWG ...[ 7 #JB6 ...[ X X X X 7 #JTQ ...[ X X X X 7 #K*B ...[ XX X X 7 #KT2 ...[ X X X X 7 #L#L ...[ X X X X 4 #LS= ...[ 19 #M?W ...SK11IPBINC [ENTRY FOR PVDU FROM IPBIN 6 #MRG ...#UNS ATELE 4 #N?6 ...( 17 #NQQ ... STO 2 AWORK4(2) [AMOP ADDR FOR TLOUT 8 #P=B ... LDXC 0 1(3) 18 #PQ2 ... BCC TLNREQ [J IF NOT WHOLE MESSAGE 8 #Q9L ... ANDN 0 #7777 7 #QP= ... ERN 0 2 16 #R8W ... BNZ 0 TLNREQ [J IF NOT 2 CHARS 8 #RG= ... LDX 6 2(3) 15 #RRL ... STO 6 AWORK1(2) [SAVE MESSAGE 4 #S52 ...[ 16 #SBB ...[ 1ST CHAR SHOULD BE BETWEEN #50 (H) AND #61 (Q) 4 #SMQ ...[ 16 #S_6 ...[ 2ND CHAR SHOULD BE BETWEEN #40 (@) AND #51 (I) 3 #T=G ... 4 #THW ...[ 7 #TT= ... LDN 5 0 7 #W6L ... SLL 56 6 16 #WD2 ... SBN 5 #50 [EXTRACT 1ST CHAR 15 #WPB ... BNG 5 TLNREQ [LESS THAN #50 8 #X2Q ... SBN 5 #12 17 #X#6 ... BPZ 5 TLNREQ [J. GREATER THAN #61 7 #XKG ... SLL 56 6 8 #XWW ... ANDN 5 #77 8 #Y8= ... ERN 5 #40 8 #YFL ... SBN 5 10 18 #YR2 ... BPZ 5 TLNREQ [J. 2ND CHAR NOT IN RANGE 16 #_4B ... LDX 5 0(3) [SAVE IDENT NO. 9 #_J2 ... STO 5 AWORK2(2) 18 *23L ... CALL 3 TLOUT [SEND PLEASE WAIT TO 7502 14 *2H= ... BRN TLSOK [J IF OK 18 *32W ... BRN TLNREQ [NO LONGER REQ TELELOAD 20 *3GG ... #77350040 [TL NOT REQ IF THESE SET IN 4W 19 *426 ... +TLWTEN-TLWTSTAR [LTH TO BE MOVED INTO IOUT 5 *4FQ ...TLWTSTAR 16 *4_B ... #40000015 [DAT SEG HEADER 11 *5F2 ... 16H PLEASE WAIT 5 *5YL ...TLWTEN 5 *6D= ...TLSOK 8 *6XW ... LDN 0 #2000 7 *7CG ... SMO 6 21 *7X6 ... ORS 0 A1+FOURTHWD [SET B13 SO AMOP IGNORES OTHER REQUE 8 *8BQ ... LDN 5 CPAT 9 *8WB ... LDN 6 CPATLEN 14 *9B2 ... CALL 0 SETAC [GET ACPA 9 *9TL ... STO 4 AWORK2(2) 8 *=*= ... LDX 3 FX2 9 *=SW ... LDX 0 AWORK1(3) 16 *?#G ... STO 0 AWORK1(2) [SAVE DATA CHARS 9 *?S6 ... LDX 0 AWORK2(3) 15 *#?Q ... STO 0 ACC5(2) [IDENT NUM 15 *#RB ... STO 3 ACC4(2) [AMOP ADDR 10 **?2 ... LINKSET 2,SK12LINK(1) 6 **QL ... FPUT 5 *B== ...TLNREQ 5 *BPW ... UP 4 *C9G ...) 4 *CP6 ...[ 7 *D8Q ...[ X X X XXX 7 *DNB ...[ X X X X 7 *F82 ...[ XX X X 7 *FML ...[ X X X X 7 *G7= ...[ X X X XXX 6 *GLW ...SK12IPBINC 6 *H6G ...#UNS ATELE 4 *HL6 ...( 21 *J5Q ...[ SETUP JSOURCE WD TYPE FORMAT IN AC WD 10 *JKB ... STO 5 ACOMMUNE8(2) 7 *K52 ... SMO 4 8 *KJL ... LDX 0 CPPTR 8 *L4= ... LGEOG 0,6 8 *LHW ... LDCT 0 #300 7 *M3G ... ORX 0 6 10 *MH6 ... STO 0 ACOMMUNE7(2) 10 *N2Q ... STOZ ACOMMUNE9(2) 21 *NGB ... LDX 0 ACES [SPACEFILL AC2-3 TO RECEIVE PERIDESC 10 *P22 ... STO 0 ACOMMUNE2(2) 10 *PFL ... STO 0 ACOMMUNE3(2) 20 *P_= ... ORIGIN [GET DESC OF ORIGININATING IDENT 14 *QDW ... SETNCORE ATELCOMLEN,3,ADATA,COMPASS 9 *QYG ... LDX 0 AWORK2(2) 17 *RD6 ... STO 0 ATELDIS(3) [ADEVS DISPLACEMENT 15 *RXQ ... STO 4 ATELAM(3) [AMOP ADDR 10 *SCB ... LDN 7 ATELCOM(3) 9 *SX2 ... LDN 6 TLCOM(1) 8 *TBL ... MOVE 6 TLLEN 9 *TW= ... STO 5 ATELID(3) 7 *T_B ... LDN 6 0 9 *W4G ... LDX 7 AWORK1(2) 7 *W7L ... SLL 67 6 8 *W=Q ... SBN 6 #52 16 *W*W ... BNG 6 TL2C [J RANGE 80 - 99 9 *WF2 ... LDN 6 TLREF3(1) 9 *WJ6 ... LDN 7 REFBL(3) 19 *WM= ... MOVE 6 2 [ 3 CHARS RANGE 100 TO 179 7 *WQB ... LDN 6 2 9 *WTG ... LDX 7 AWORK1(2) 7 *WYL ... SLL 7 1 7 *X3Q ... SLL 67 5 16 *X6W ... SBN 6 #12 [TENS - RANGE 0-7 8 *X=2 ... LDCT 0 #170 7 *X*6 ... ANDX 7 0 17 *XD= ... SLL 67 6 [UNITS - RANGE 0 - 9 7 *XHB ... SLL 6 6 9 *XLG ... BRN TLSTRQ 4 *XPL ...TL2C 17 *XSQ ... LDN 6 #1717 [ORIGINAL RANGE 80-99 8 *XXW ... SLL 6 12 9 *Y32 ... ANDX 6 AWORK1(2) 5 *Y66 ...TLSTRQ 9 *Y9= ... ORS 6 REFBL(3) 10 *Y#B ... LDN 6 ACOMMUNE2(2) 9 *YS2 ... LDN 7 TIDBL(3) 17 *_?L ... MVCH 6 5 [MOVE IN PERI DESC 12 *_R= ... OUTPARN 5,TIDBL,ADATA,COMPASS 21 B2=W ...[ OUTPUT PERIDESC AS PARAM TO MESSAGE 10 B2QG ... LDX 6 ZJTELING(1) 16 B3=6 ... CALL 7 TELLCEN [TELL OPERATORS 16 B3PQ ... TELECOM [GO TO COMMAND 4 B49B ...) 4 B4P2 ...[ 7 B58L ...[ X X X XXXX 7 B5N= ...[ X X X X 7 B67W ...[ XX X X 7 B6MG ...[ X X X X 7 B776 ...[ X X X XXXX 6 B7LQ ...SK13IPBINC 6 B86B ...#UNS ATELE 4 B8L2 ...( 21 B95L ... SYSCOMTE 3 [CHECK COMMAND ISSUED BY K12IPBINB 15 B9K= ... SETNCORE CPDATA+TLLEN-A1,3,ADATA,CREADL 11 B=4W ... MHUNTW 1,ADATA,COMPASS 18 B=JG ... LDN 0 TLCHAR [NUMBER CHARS IN COMMAND 8 B?46 ... STO 0 A1(3) 10 B?HQ ... LDN 7 ATELCOM(1) 9 B#3B ... LDN 0 CPDATA(3) 16 B#H2 ... MOVE 7 TLLEN [MOVE IN COMMAND 4 B*2L ...[ 21 B*G= ...[ NOW GET DATA OUT OF COMPASS TO SAVE FINDING IT AGAIN AFTER COMMAND 4 B*_W ...[ 15 BBFG ... LDX 4 ATELDIS(1) [ADEVS DISP 15 BB_6 ... LDX 5 ATELID(1) [IDENT NO. 9 BCDQ ... LDX 0 ATELAM(1) 15 BCYB ... STO 0 AWORK4(2) [AMOP ADDR 21 BDD2 ... ISSUCOML TLCE [ISSUE COMMAND - GO TLCE IF COM ERROR 21 BDXL ... HUNT2J 2,AMXOR,ADEVS,AWORK4(2),ZEC [GO TO ENDCOM IF NO ADEVS 8 BFC= ... NGN 0 #2001 7 BFWW ... SMO 4 15 BGBG ... ANDS 0 A1+FOURTHWD(2) [UNSET B13 15 BGW6 ... BRN ZEC [GO TO ENDCOM 20 BH*Q ...TLCE LDCT 6 #400 [PRESET TO CHECK IF MOPPED OFF 8 BHTB ... CALL 3 TLOUT 9 BJ*2 ... BRN TLSENT 9 BJSL ... BRN TLSENT 9 BK#= ... #57150040 19 BKRW ... +TLNOTEN-TLNOTSTAR [LTH TO BE MOVED INTO IOUT 6 BL?G ...TLNOTSTAR 16 BLR6 ... #40000041 [DATA SEG HEADER 16 BM=Q ... 36H AUTOMATIC TELELOAD UNSUCCESSFUL 5 BMQB ...TLNOTEN 5 BN=2 ...TLSENT 18 BNPL ... BNG 6 TLNADEV [IF -VE MUST BE NO ADEVS 8 BP9= ... NGN 0 #2001 7 BPNW ... SMO 6 15 BQ8G ... ANDS 0 A1+FOURTHWD [UNSET B13 5 BQN6 ...TLNADEV 7 BR7Q ... LDN 7 5 7 BRMB ... OUTBLOCK 7 12 BS72 ... OUTPARN 5,TIDBL,ADATA,COMPASS 11 BS9S ... MHUNTW 3,ADATA,COMPASS 7 BS#L ... LDN 6 3 8 BSCD ... LDN 0 #77 9 BSG= ... ANDX 0 REFBL(3) 8 BSK4 ... SBN 0 #34 15 BSMW ... BZE 0 TLNOUT3 [J = COMMA 7 BSQN ... LDN 6 2 5 BSTG ...TLNOUT3 8 BSY# ... LDN 7 REFBL 12 BT36 ... OUTPARAX 6,7,ADATA,COMPASS 10 BT6= ... LDX 6 ZJTELNOT(1) 21 BTKW ... CALL 7 TELLCEN [TELL OPERATORS LOADTCP DIDNT WORK 6 BW5G ...ZEC ENDCOM 4 BWK6 ...) 5 BX4Q ...SERR1 20 BXJB ... LDN 0 CCINVIDEN [REPORT INVALID IDEN + (SEG WD 0) 8 BY42 ... LDX 1 0(3) 8 BYHL ... LDX 2 FX2 20 B_3= ... STO 0 ACOMMUNE2(2) [FOR CCERROR MACRO%A AND CHAINADD 20 B_GW ... STO 1 ACOMMUNE3(2) [FOR CCERROR MACROS %B OR INFORM 9 C22G ... DOWN IPBINB,6 7 C2G6 ... UPPLUS 1 3 C2_Q ... 5 C3FB ...SJUGA 8 C3_2 ... FREECORE 5 10 C4DL ... MHUNTW 2,AMXOR,IOUT 7 C4Y= ... LDX 6 2 4 C5CW ...SJUG 8 C5XG ... FREECORE 6 5 C6C6 ...SIDLE 18 C6WQ ... UPPLUS 2 [GO UP TO LABEL SIDLE 4 C7BB ...#END 6 ____ ...166356520006