8 22FL #OPT K0LINECTRL=0 15 22_= ...#LIS K0LINECTRL>K0ALLGEO>K0GREATGEO>K0COMMAND 7 23DW ...#SEG LINECTRL 7 23YG ... 8HLINECTRL 8 24D6 ...[ THE ENTRY POINT 12 24XQ ... SEGENTRY K1LINECTRL,X1LINECTRL 4 25CB ...[ 4 25X2 ...[ 20 26BL ...[ THIS SEGMENT IMPLEMENTS THE LINECONTROL COMMAND TO CHANGE THE 16 26W= ...[ STATE OF A MULTIPLEXER LINE ON A DME SYSTEM 4 27*W ...[ 18 27TG ...[ DEFN OF BITS IN ACC OF LINE CONTROL EXTRACODE 17 28*6 ... BITDEFS AWORK1,0,NOTACC [REPLIES FROM EXEC 20 28SQ ... FIELDDEF REPMODCONT,3,0,2 [MODEM CONTROL FIELD IN REP FROM... 20 29#B ...[ [...EXEC WHEN ASKING ABOUT PREV COMMAND 21 29S2 ... FIELDDEF SETMODCONT,3,0,23 [MODEM CTRL FIELD IN REQUEST TO EXEC 17 29W9 ...[ NOW PORT,COUPLER AND PROTOCOL IN REQUEST 10 29YD ... FIELDDEF PORT,6,0,14 11 2=2M ... FIELDDEF SCOUPLER,6,0,8 10 2=4W ... FIELDDEF PROT,4,0,20 6 2=75 ...#DEF C03=3 8 2=9# ...#DEF TRANSBIT=#200 9 2=?L ...#DEF RACTION=#40000000 9 2=R= ...#DEF RCONNECT=#20000000 7 2?=W ...#DEF RFOUR=4 7 2?QG ...#DEF RSLOW=2 7 2#=6 ...#DEF RNORMAL=1 12 2#PQ ...[ TABLE FOR PARAMETER ANALYS :- 14 2*9B ...[ PARAM HOLDS MIN NUMBER OF CHARS IN PARAM 12 2*P2 ...[ NEXT 3 WORDS HOLD TEXT OF PARAM 17 2B8L ...[ PARASET HOLDS MASK OF BITS TO BE SET IF PARAM PRESENT 20 2BN= ...[ PARASWITCH HOLDS MASK OF BITS IN LINECONTROL OPERATION WHICH ARE 12 2C7W ...[ TO BE INVERTED IF PARAM IS PRESENT 4 2CMG ...[ 5 2CSN ...MAXVAL 8 2C_W ... +16 5 2D76 ...PARAM 5 2DLQ ... +2 19 2F6B ... 12HSTANDBY [MUST BE TESTED BEFORE SLOW 5 2FL2 ...PARASET 7 2G5L ... +RNORMAL 6 2GK= ...PARASWITCH 7 2H4W ... +RNORMAL 10 2HJG ...#DEF PARATABLEN=0?-PARAM 8 2HL9 ... +2 11 2HMY ... 12HTRANSPARENT 9 2HPM ... +TRANSBIT 8 2HRB ... +0 8 2HT5 ... +3 9 2HWS ... 12HC03 9 2HYH ... +TRANSBIT 9 2J2= ... +TRANSBIT 5 2J46 ... +1 7 2JHQ ... 12HSLOW 6 2K3B ... +RSLOW 5 2KH2 ... +0 5 2L2L ... +1 8 2LG= ... 12HDISCONNECT 7 2L_W ... +RCONNECT 7 2MFG ... +RCONNECT 5 2M_6 ... +1 7 2NDQ ... 12H2-WIRE 6 2NYB ... +RFOUR 6 2PD2 ... +RFOUR 5 2PXL ... +1 7 2QC= ... 12HNORMAL 7 2QWW ... +RNORMAL 5 2RBG ... +0 5 2RW6 ... +1 7 2S*Q ... 12HFAST 6 2STB ... +RSLOW 6 2T*2 ... +RSLOW 5 2TSL ... +1 7 2W#= ... 12H4-WIRE 6 2WRW ... +RFOUR 5 2X?G ... +0 5 2XR6 ... +1 7 2Y=Q ... 12HCONNECT 7 2YQB ... +RCONNECT 5 2_=2 ... +0 15 2_PL ... -1 [END OF TABLE 5 2_RT ...PARPROG 8 2_W4 ... +4 9 2_Y? ... 4HPROG 5 322G ...TRANNA 8 324P ... +4 9 326Y ... 4HTRAN 12 329= ...[ [ 20 32NW ...SDEFAULTS [SETTING FOR DEFAULT PARAMETERS 9 338G ... +RACTION+RCONNECT 4 33N6 ...[ 4 347Q ...[ 17 348B ...PARGIN [SUB TO CALL PARABEG 8 3492 ... SBX 5 FX1 11 349L ... PARABEG 1,0(3),1(3),,0 8 34== ... ADX 5 FX1 10 34=W ... MHUNT 3,CPB,CUNI 7 34?G ... EXIT 5 0 19 34#6 ...PARAG [SUB TO GET PORT OR COUPLER 7 34#Q ... LDX 3 7 8 34*B ... SBX 7 FX1 9 34B2 ... CALL 5 PARGIN 9 34BL ... LDX 5 ANUM(3) 18 34C= ... BNG 5 ZEX2 [EXIT IF PAR NOT PRESENT 15 34CW ... ANDN 5 #7777 [OR IF NULL 8 34DG ... BZE 5 ZEX2 16 34F6 ... CHNUMCOD ,3 [CONVERT TO DEC 8 34FQ ... ADX 7 FX1 18 34GB ... TESTREPN OK,XCHER [J IF NOT VALID NUMBER 10 34H2 ... LDX 5 ACOMMUNE1(2) 10 34HL ... MHUNT 3,CPB,CUNI 9 34J= ... TXL 5 MAXVAL(1) 17 34JW ... BCC TOOLARGE [J IF OUT OF RANGE 7 34KG ... EXIT 7 4 8 34L6 ...ZEX2 ADX 7 FX1 7 34LQ ... EXIT 7 3 19 34MB ...SOUTUNIT [SUB TO OUTPARAM PERI DESC 10 3572 ... MHUNTW 3,CPAR,JSCE 8 35LL ... SBX 7 FX1 9 366= ... LDX 5 JSCEQ(3) 15 36KW ... SRL 5 12 [PARAM NUMBER 7 375G ... PARANOTX 5 10 37K6 ... MHUNT 3,CPB,CUNI 9 384Q ... LDX 6 ANUM(3) 19 38JB ... ANDN 6 #7777 [NUMBER OF CHARS IN PERI DESC 21 3942 ... OUTPARAM 6,APARA,CPB,CUNI [CUNI CREATED SO COM PROC KNOWS PAR N 8 39HL ... ADX 7 FX1 7 3=3= ... EXIT 7 0 4 3=GW ...[ 6 3?2G ...X1LINECTRL 10 3?G6 ... JENVNOT WRONGENV,DME 9 3?_Q ... STOZ AWORK3(2) 10 3#FB ... LDX 0 SDEFAULTS(1) 18 3#_2 ... STO 0 AWORK1(2) [PRESET DEFAULT ACTION 17 3*DL ... PARSORT ZBREAKIN [ANALYSE PERI DESC 10 3*Y= ... HUNTW 3,CPAR,JSCE 18 3BCW ... BNG 3 PARSORTERR [J IF PARSORT FOUND ERROR 15 3BXG ... SAWCEJX JSCEB(3),NOTMX,NOTMX [J IF NOT MX 9 3CC6 ... LDX 4 JSCEB(3) 7 3CWQ ... SRL 4 9 16 3DBB ... ANDN 4 #77 [ISOLATE LINE NUM 16 3DW2 ... STO 4 AWORK2(2) [SAVE LINE NUM 7 3F*L ... LDN 5 0 9 3FD9 ... LDX 2 JSCEP(3) 9 3FGS ... ANDX 2 BITS22LS 8 3FKC ... SMO FX2 9 3FN2 ... STO 2 AWORK4 20 3FQK ... LINECTRL 4,2 [ASK EXEC VALUES FOR LAST COMMAND 8 3FT8 ... LDX 2 FX2 18 3FXT ... BNG 5 ZPRCON [J IF UNDER PROG CONTROL 7 3G2D ... LDX 5 4 7 3G53 ... SLL 5 6 7 3G7L ... SRL 5 3 9 3G=9 ... ORS 5 AWORK1(2) 7 3G#W ... LDN 6 4 19 3GSG ... LF 6,REPMODCONT,7 [GET LAST MODEM CONT VALUE 9 3H#6 ... LDN 6 AWORK1(2) 16 3HRQ ... STF 6,SETMODCONT,7 [AND STORE IN AW1 8 3HS? ... CALL 7 PARAG 8 3HSS ... +4 16 3HT* ... 8HPORT [GET PORT PARAM 15 3HTW ... BRN NOPORT [J IF NONE 9 3HWC ... LDN 6 AWORK1(2) 9 3HWY ... STF 6,PORT,5 5 3HXF ...NOPORT 16 3HY2 ... FREECORE 3 [GET RID OF CUNI 16 3HYH ... CALL 7 PARAG [NOW FIND COUPLER 8 3H_4 ... +7 9 3H_K ... 8HCOUPLER 9 3J26 ... BRN NOCOUP 9 3J2M ... LDN 6 AWORK1(2) 10 3J38 ... STF 6,SCOUPLER,5 5 3J3P ...NOCOUP 7 3J4= ... FREECORE 3 5 3J4R ...NOTRAN 8 3J5# ... LDN 5 C03 9 3J5T ... STF 6,PROT,5 10 3J6B ... LDN 3 PARPROG(1) 9 3J6X ... CALL 5 PARGIN 9 3J7D ... LDX 0 ANUM(3) 19 3J7_ ... BNG 0 NOPROG [J IF NOT PROGRAM CONTROL 8 3J8G ... LDCT 0 #400 9 3J93 ... ORS 0 AWORK2(2) 5 3J9J ...NOPROG 7 3J=5 ... FREECORE 3 7 3J?B ... LDN 7 0 4 3JR2 ...[ 16 3K=L ...[ NOW CHECK FOR EACH POSSIBLE PARAMETER 5 3KQ= ...TLOOP 7 3L9W ... SMO 7 9 3LPG ... LDN 1 PARAM(1) 8 3M96 ... LDX 0 0(1) 18 3MNQ ... BNG 0 ZENDPARS [J IF END OF PARAM TABLE 21 3N8B ... PARABEG 1,0(1),1(1),,0 [FIND FIRST UNACCESSED PARAM WHICH 19 3NN2 ...[ STARTS WITH CORRECT CHARS 7 3P7L ... SMO 7 10 3PM= ... LDN 2 PARAM+1(1) 7 3Q6W ... SLC 2 2 7 3QLG ... SMO 7 21 3R66 ... ADX 2 PARAM(1) [POINT AT FIRST CHAR AFTER PARABEG 7 3RKQ ... SRC 2 2 10 3S5B ... MHUNT 3,CPB,CUNI 9 3SK2 ... LDX 6 ANUM(3) 17 3T4L ... BNG 6 NOTPRES [J IF PARAM NOT FOUND 8 3TJ= ... ANDN 6 #7777 15 3W3W ... BZE 6 PARNULL [J IF NULL 9 3WHG ... LDN 1 APARA(3) 5 3X36 ...TELOOP 8 3XGQ ... LDCH 0 0(1) 8 3Y2B ... LDCH 5 0(2) 7 3YG2 ... TXU 0 5 20 3Y_L ... BCS PARFORMERR [J IF PARAM CONTINUES INCORRECTLY 7 3_F= ... BCHX 1 / 7 3_YW ... BCHX 2 / 16 42DG ... BCT 6 TELOOP [J FOR NEXT CHAR 5 42Y6 ...PARNULL 8 43CQ ... LDX 1 FX1 8 43XB ... LDX 2 FX2 7 44C2 ... SMO 7 10 44WL ... LDX 0 PARASET(1) 9 45B= ... ANDX 0 AWORK3(2) 21 45TW ... BZE 0 ZCOMPAT [J UNLESS INCOMPATIBLE PARAM GIVEN 9 46*G ... ZERRORX JILLPAR 5 46T6 ...ZCOMPAT 7 47#Q ... SMO 7 10 47SB ... LDX 0 PARASET(1) 17 48#2 ... ORS 0 AWORK3(2) [RECORD TYPE OF PARAM 17 48RL ... ORS 0 AWORK1(2) [SET VALUE FOR EXEC 7 49?= ... SMO 7 10 49QW ... LDX 0 PARASWITCH(1) 19 4==G ... ERS 0 AWORK1(2) [INVERT BIT(S) FOR THIS PARAM 5 4=Q6 ...NOTPRES 7 4?9Q ... FREECORE 3 17 4?PB ... ADN 7 PARATABLEN [POINT AT NEXT PARAM 8 4#92 ... BRN TLOOP 21 4#NL ...ZENDPARS [PARAMS ANALYSED. NOW PERFORM COMM 18 4*8= ... PARUNACC [SEE IF ANY MORE PARAMS 10 4*MW ... MHUNT 3,CPB,CUNI 9 4B7G ... LDX 0 ANUM(3) 20 4BM6 ... BPZ 0 PARFORMERR [ANY MORE PARAMS MUST BE ERRORS 7 4C6Q ... FREECORE 3 16 4CLB ... LDX 4 AWORK2(2) [RECOVER LINE NUM 16 4D62 ... LDX 5 AWORK1(2) [COMMAND FOR EXEC 9 4DDC ... LDX 3 AWORK4(2) 17 4DQS ... LINECTRL 4,3 [TELL EXEC TO DO IT 15 4F5= ... STO 4 AWORK1(2) [STORE REPLY 16 4FJW ... JBC ZOK,2,NOTACC [J IF ACCEPTED 9 4G4G ... CALL 7 SOUTUNIT 20 4GJ6 ...[ ERROR IF LINE ALREADY DOING LC 5 4H3Q ...ZINPROG 9 4HHB ... ZERRORX JALREALC 4 4J32 ...[ 6 4JGL ...PARFORMERR 9 4K2= ... LDX 6 ATYPE(3) 16 4KFW ... ANDN 6 #7777 [PARAMETER NUMBER 7 4K_G ... FREECORE 3 7 4LF6 ... PARANOTX 6 17 4LYQ ... ZERRORX APFERR [PARAM FORMAT ERROR 5 4MDB ...WRONGENV 12 4MY2 ... COMERR JENVMUSTBE,JENVDME 5 4NCL ...ZBREAKIN 7 4NX= ... COMBRKIN 5 4P74 ...XCHER 6 4PBW ...PARSORTERR 4 4PWG ...ZOK 6 4QB6 ... ENDCOM 5 4QDP ...ZPRCON 9 4QH# ... CALL 7 SOUTUNIT 9 4QKX ... ZERRORX ALIPRCON 5 4QNG ...TOOLARGE 9 4QR5 ... ZERRORX ERANGE 5 4QTQ ...NOTMX 9 4R*B ... CALL 7 SOUTUNIT 9 4RT2 ... ZERRORX JUNITERR 7 4S#L ... ZERRORY 4 4SS= ...#END 8 ____ ...1020723700200000000