INPI-France/Brevets-Francais-2024-Chunked huggingface dataset:
Le canal par lequel le fil métallique est introduit dans cette zone peut autre par exemple un alésage lisse de diamètre uniforme ou de section décroissante jusqutà un diamètre relativement petit entre les extrémités opposées du canal. Ce mode opératoire est bien connu des spécialistes. A titre illustratif, le processus d'extrusion implique le mélange dtune r- sine d'un halogénure de vinyle sous la forme d'une poudre finement divisée avec un plastifiant ou autres additifs pour former habituellement des pastilles. Cette composition de résine thermoplastique est ensuite introduite par l'intermédiaire d'une trémie (non représentée) dans une extrémité dSune extrudeuse classique de laquelle la matière plastique est transférée à une vis classique 45 montée dans le cylindre 47 en maintenant un faible jeu entre eux, par exemple, 0,001 cm par centimètre du diamètre de la vis. La vis 45 est entraînée à une yitesse comprise entre 30 et 100 tr/mn par un moteur à vitesse variable (non représenté).Le cylindre 47 est normalement chauffé électriquement ainsi que par la chaleur résultant du cisaillement de la résine vinylique pastillée avancée par la vis 45 dans le cylindre 47 à partir de la trémie pour titre à l'étant fondu lorsqu'elle stapproche de la tête dtex- trusion constituée par le canal restreint de ltadaptateur 48 et la tette d'équerre 430 La vitesse de rotation de la vis et la température de cisaillement atteinte dans le cylindre 47 sont d'autant plus élevées que la vitesse de défilement du fil à revsstir est plus grande.En conséquence, la liaison obtenue entre la colle et le revêtement vinylique est d'autant plus forte que la température de la composition résineuse est plus élevée à son entrée dans la titre d'équerre 43. La température atteinte dans le cylindre 47 est suffisante pour activer la colle fusible introduite dans la tdte d'équerre à partir de la seconde zone de traitement dans laquelle la colle a été refroidie et suffisamment solidifiée pour passer sans entrave dans la tête d'équerre et sans la colmater au voisinage de l'entrée du fil encollé.
La température atteinte dans la tette dtextrusion ou tette de la troisième zone de traitement est comprise entre environ 149 et 232 C et, de préférence, entre environ 177 et 204 C ; ces températures sont suffisantes pour assurer une liaison efficace entre le revêtement vinylique et le fil métallique 12 sans dégrader la colle ou la résine vinylique.
CNM=512.
' .DALC LDINC=100070 .DALC STINC=100170 .DALC CONST=100270 .DALC NORM=100370 .DALC BKPRJ=100470 .ZREL C4EXP: EXP C4XNM: XNM .NREL .COMM AR,20000 .COMM BP,210 .EXTN MS.
; ; ; ***** SUBROUTINE TO CALCULATE EXPANSION LIMITS AND EXPAND MEASUREMENTS. ; THIS ROUTINE CAN HANDLE UP TO S1X DBUF BUFFERS.
; CALL C4EXP(IMS) ; DTMP; 0 ; TEMPROARY POINTER TO CURRENT DBUF BUFFER DPNT: .+1 ;POINTER TO ARRAY OF BUFFER POINTERS .GADD MS,4000 ; FIRST DBUF BUFFER .GADD MS,6000 ; SECOND .GADD MS,10000 ; THIRD .GADD MS,12000 .GADD MS,14000 .GADD MS,16000 .1.5: 1.5 .25S: 377 .512: 1000 125: 0.125 IMS=-3 EXP: SAVE 3 FLDS F0,0DY FAB F0 FLDS F1,0DX FAB F1 FAS F1,F0 ; ABS(DX) + ABS(DY) LDA R2,NC FLAS R2,F1 ; FLOAT(NC) FMS F1,F0 FMMS F0,.125 FAMS F0,.1.5 ; F0 FLDS F1,@YC FMOV F1,F2 FAS F1,F2 ; YC+TMP FSS F0,F2 ; YC-TMP FFAS R0,F1 ; TO CALCULATE 11 FFAS R2,F2 ; TO CALCULATE 12 LDA R1,.255 ADD R1,R0 MOVL* R0,R0,SZ0 SUB R0,R0 ; I1-1 INC R1,R1 ADD R1,R2 LDA R1,NM SGE R1,R2 MOV.R1,R2 ; I2+1 SBI 1,R2 SUB R0,R2 NEG R2,R2 STA R2,1,R3 ; COUNT FOR J LOOP (TEMPORARY) MOVZL R0,R0 MOVZL R0,R1 ; 4*(I1-1) = K1-2 LDA R2,IBUF ADD R1,R2 STA R2,2,R3 ; ADDR (IBUF(K1-1)) (TEMPORARY) LDA R1,@IMS,R3 ; LAST PARAMETER ACCESS LDA R2,DPNT ; FETCH POINTER TO DBUF BUFFER ADDRESSES ADD R1,R2 ; INDEX BY BUFFER NUMSER (IMS) DESIRED LDA R2,0,R2 ; PICK UP POINTER TO APPROPRIATE BUFFER STA R2,DTMP ; SAVE FOR LATER USE ADD R0,R2 ; ADD 2*(I1-1) FOR ADDR(DBUF(K3)) ACCUMULATOR CONTENTS WILL BE: R0 = WORK F0 = WORK R1 = LOOP COUNT (J) F1 = 2*DBUF(K3)*SCLNP8 R2 = DBUF ADDRESS F2 = DBUF(K3)*SCLNP8 R3 = IBUF ADDRESS F3 = S*DBUF(K2)*SCLNP8 LDA R1,1,R3 ; PICK UP J LOOP COUNT FLDS F2,0,R2 ; FETCH FIRST DBUF(K3) FMOV F2,F0 ; SAVE FMMS F2,.8 ; SCALE BY 8 ADI 2,R2 ; INCREMENT DBUF POINTER LDA R3,2,R3 ;PICK UP IBUF ADDRESS (STACK POINTER NOW GONE) FFAS R0,F2 ; FIX FIRST IBUF = DBUF*SCLNP STINC R0,R3 ; STORE FIRST TBUF STINC R0,R3 ; STORE SECOND IBUF RMOV F0,F2 ; GET DBUF(K3) FMOV F2,F3 FAS F3,F3 ; INITIAL IZE F3 TO 2*DBUF(K3) L.J: FMMS F0,.7 ; 7*DBUF(K2) FLDS F2,0,R2 ; FETCH DBUF(K3) ADI 2,R2 ; INCREMENT DBUF POINTER FMOV F2,F1 FAS F1,F1 ; 2*DBUF(K3) FAS F2,F0 ; DBUF(K3) + 7*DBUF(K2) THIS MACRO STORES AII IBUF VALUE WHILE CALCULATING THE NEXT: MACRO MIB.
FFAS R0,F0 ; FIX VALUE FOR K=#1 FAS F1,F0 ; START K=#2 - ADD 28DBUF(K3) FSS F3,F0 ; SUBTRACT S*DBUF(K2) STINC R0,R3 ; STORE VALUE FOR K=#1 AND INCREMENT POINTER MIB 1,3 MIB 3,5 MIB 5,7 FFAS R0,F0 ; FIX VALUE FOR K=7 STINC R0,R3 ; STORE VALUE FOR K=7 AND INCREMENT POINTER FMOV F2,F0 ; LEAVE DBUF(K3) IN F0 FMOV F1,F3 ; LEAVE 2*DBUF(K3) IN F3 INC R1,R1,SZR ; DONE WITH J LOOP ? JMP. L.J ; NO FMMS F0,.8 ; GET DBUF(K3)*SCLNP FFAS R0,F0 ; FIX STA R0,0,R3 ; STORE LAST TWO IBUF VALUES STA R0,1,R3 LDA R2,DTMP ; PICK UP POINTER TO BEGINNING OF BUFFER LDA R0,M70 ; PICK UP FLAG STA R0,0,R2 ; SET FLAG MARKING FINISHED EXPANSION JMP BPRJ ; PROCEED TO BACK-PROJECTION M70: -70000 ; FLAG FOR END OF EXPANSION .4: 4.0 .7: 7.0 I.7: 7.
.8: 8.0 NC: CNC NM: CNM DEN: .GADD AR,0 SI: .GADD BP,0 YC: .GADD BP,200 DX: .GADD BP,202 DY: .GADD BP,206 IYB: .GADD BP,207 IYL: .GADD MS,0 IBUF: .GADD MS,4000 DBUF: 0 DPNTR: 0 XCNT: 0 ***** SUBROUTINE TO PERFORM BACK-PROJECTION BPRJ: FLDS F0,0YC FMMS F0,.4 ; YC*4.0 LDA R0,01YL STA F0,YCNT ; SET IY LOOP COUNTER LDA R1,X4 ; PICK UP FLOATING POINT EXPONENT OF 4 THIS MACRO ADDS 4 TO THE EXPONENT OF THE FLOATING POINT ACCUMULATOR SPECIFIED, PREPARING FOR CONVERSION TO A DOUBLE PRECISION INTEGER: .MACRO EXP4 FRH #1 ; FETCH EXPONENT OF #2 ADD R1,R0 ; ADD 4 FEXP #1 ; REPLACE EXPONENT EXP4 F0,YC FLD5 F1,@DY ; FETCH DY EXP4 F1,DY FSTS F1,ADY ; SAVE DY FLDS F2,@DX ; FETCH DX FXP4 F2,DX FSTS F2,ADX ; SAVE DX FFMD F2,IDX ;CONVERT DX TO DOUBLE PRECISION INTEGER FAS F1,F2 ; DY+DX LDA R2,MC INC R2,R2 FLAS R2,F3 ; FLOAT(NC+1) LDA R2,@IYB FHLV F3 ; NC2+0.5 FMS F3,F2 LDA R0,X1 SBI 1,R0 ADD R2,R0 STA R0,21 ; STORE POINTER TO XI ARRAY FSS F2,F0 ADDI 100,R0 FLAS R2,F2 ; FLOAT(IYB) STA R0,22 ; STORE POINTER TO XL ARRAY FMS F2,F1 ; IYB*DY LDA R0,1.7 SBI 1,R2 LSH R0,R2 ; (IYB-1)*128 LDA R3,DEN ADD R2,R3 ; GET ADDRESS OF ROW IYB IN DEN ARRAY FAS F1,F0 ; YB FLDS F1,ADY ; PICK UP DY AGAIN FLDS F2,ADX ; AND DX ...
LOOP: STA R3,DPMTR ; SAVE DEN ARRAY POINTER LDA R0,021 ; PICK UP IXI FLAS R0,F3 ; FLOAT IXI FAS F1,F0 ; INCREMENT YB BY DY MOVZL R0,R0 ; 2*IXI LDA R3,DPNTR FMS F2,F3 ; DX*IXI ADDI 200,R3 ; NEXT ROW OF DEN ARRAY STA R3,DPNTR ; SAVE ADD R0,R3 ; OFFSET INTO ROW BY IXI FAS F0,F3 ; ADD YB LDA R0,022 ; FETCH IXL FFMD F3,IXB ; FIX XB AS DOUBLE PRECISION INTEGER THE 2000K OFFSET ADDED TO IXB CONSISTS OF: . 0.5 OFFSET TO CENTER OF MEASUREMENT . 0.5 OFFSET FOR NEAREST NEIGHBOR TRUNCATION . 1024 CONVERSION FROM COORDINATE TO ARRAY INDEX . -1 CONVERSION FROM ARRAY INDEX TO ADDRESS OFFSET.
BKPRJ 0.0 ; BACK-PROJECT IXB: 0.0 IDX: 0.0 MASK: 174000 .GADD MS,0 YCNT: 0 IYLOOP ; LAST PARAMETER FOR BACK-PROJECTION CALL RTN ; FINISHED WITH BACK-PROJECTION X4: 487 ADX: 0,0 ADY: 0,0 ***** :SUBROUTINE TO NORMALIZE DENSITY ARRAY CALL C4XNM XNH: SAVE 0 LDA R1,.4K LDA R2,DEN ; INITIAL IZE COUNTER MOV R2,R3 ; INITIALIZE READ POINTER NORM 0,0 ; INITIALIZE WRITE POINTER RTN ; PERFORM NORMAL IZATION IN WCS 4K: 10000 ;YES - RETURN ***** SUBROUTINE TO SCALE MEASUREMENTS IF NOT ALREADY DONE CALL C4SCL (BUF,SCALEFACTOR) .ENT C4SCL .ZREL C4SCL: SCALE .NREL SCALE: SAVE 0 MOV R1,R2 ; BUFFER ADDRESS FLDS F0,0-4,R3 ; SCALE FACTOR LDA R0,NM ; COUNT NEG R0,R0 ; SCLL:FLDS F1,0,R2 ; PICK UP MEASUREMENT FMS F0,F1 ; MULTIPLY BY SCALE FACTOR ADI 2,R2 ; INCREMENT BUFFER POINTER FSTS F1,-2,R2 ; STORE SCALED MEASUREMENT INC R0,R0,SZR ; INCREMENT COUNTER JMP SCLL ; LOOP RTN ; RETURN ,.END C C ************************************************************** C ************************************************************** C C ***** C4: SELECTED BACK-PROJECTION PACKAGE C C ***** MEASUREMENT INPUT TASK C ***** EC4MRD,FR C ***** C ***** JIM DEHMERT C ***** ECL IPSE C ***** 5 AUGUST, 1975 C C C C PARAMETER MSR=3, MSBLK=4 C SUBROUTINE MREAD(NMS,IPMAX) C COMMUN /ISK/KEY,IP0 COMMON /MS/ IBUF(2048),DBUF(1536) C C 100 CALL RDBLK(MSR,IP0*MSBLK,DBUF,MSBLK*NMS,IER) CALL CHECK(IER) CALL REC(KEY,IER) IF (IP0,LT.IPMAX) GO TO 100 RETURN C .
END Annexe B Partie VIII ***** MICROCODED UTILITY INSTRUCTIONS JIM DEHNERT 29 JULY, 1975 +++++ CALL XOP1 ACS,ACD,0 FOR LDA ACS,0,ACD INC ACD,ACD +++++ CALL XOP1 ACS,ACD,1 FOR STA ACS,0,ACD INC ACD,ACD (WHERE, FOR BOTH INSTRUCTIONS, ACS AND ACD ARE DIFFERENT) +++++ CALL XOP1 ACS,ACD,2 TO SET A BLOCK OF MEMORY TO A CONSTANT (INTEGER) VALUE, WHERE AC0 CONTAINS THE WORD COUNT ACS CONTAINS THE CONSTANT ACD CONTAINS THE STARTING ADDRESS WCSNP CSBEG 0 W0: ;START MEMORY FOR LOADING AC: CSTA AR,ACD,0,A,0,N,0,S,N,0,0,NC,2,0,W1 W1: ;READ DATA, START INSTRUCTION FETCH: CSTA AR,PC,ACS,A,F0,N,N,S,READ,0,BMEM,NC,2,0,W4 W2: ;START MEMORY FOR STORING AC: CSTA AR,ACD,0,A,0,N,0,S,N,0,0,NC,2,0,W3 W3: ;WRITE DATA, START INSTRUCTION FETCH: CSTA AR,PC,ACS,A,F0,N,N,S,WRIT,0,BMEM,NC,2,0,W4 W4: ;INCREMENT ACD, LOAD NEXT INSTRUCTION: CSBA AR,ACD,0,A1,FA,L,0,N,READ,0,0,LDIR,0,0,0 W10: ; LOAD COUNTER, SHIFT COUNT REGISTER, CSTA AR,AC0,0,AM1,R0,L,CLR,N,N,DCH,LCNT,NC,2,0,W11 W11: ;SHIFT AC0 THREE MORE BITS: CSTA AR,AC0,0,A,R0,L,CLR,N,N,DCH,0,NC,2,0,W12 W12: CSTA AR,AC0,0,A,R0,L,CLR,N,N,DCH,0,NC,2,0,W13 W13: ;INCREMENT AC0 DURING LAST SHIFT: CSTA CON,AC0,AC0,APB,R0,L,CLR,N,N,DCH,0,NC,2,2,W14 W14: ;START FIRST WIRTE: CSTA AR,ACD,0,A,F0,M,CLR,S,N,0,0,NC,2,0,W15 W15: ;WRITE DATA, START NEXT MEMORY LOCATION, REPEAT UNTIL COUNTER=0: CS AR,ACD,ACS,A1,FA,L,CLR,S,WRIT,0,BMEM,CNTND,2,W16 W16: ;DECREMENT ACO, LOOP IF NOT YET ZERO: CS AR,AC0,0,AMI,FA,L,CLR,N,N,0,0,ALUZ,2,W17,W15 W17: ;RELEASE LAST MEMORY LOCATION OPENED, START INSTRUCTION FETCH: CSTA AR,PC,D,A,F0,N,CLR,S,READ,0,0,NC,2,0,W18 W18: ;READ NEXT INSTRUCTION INTO IR: CSBA 0,0,0,0,0,0,0,N,READ,0,0,LDIR,0,0,0 CSEND CTBEG 0 CT W0 CT W2 .CT W10 .CTEND .FNAME CSUTIL,CS .END ***** MICROCODE FOR C4 VER E5 JIM DEHNERT 30 JULY 1915 +++++ CALL XOP1 ACS,ACD,3 TO PERFORM THE MORNALIZATION OF THE DEN ARRAY, WHERE AC1 COMTAINS THE NUMBER OF DOUBLE INTEGERS TO BE PROCESSED AC2 COMTAINS THE ADDRESS OF THE FIRST WORD TO BE READ AC3 COMTAINS THE ADDRESS OF THE FIRST WORD TO BE WRITTEN.
ALL THREE ACCUHULATORS ARE LOST, AC0 IS UNCHANGED.
+++++ CALL XOP1 ACS,ACD,4 TO PERFORM THE BACK-PROJECTION, WHERE: AC0 CONTAINS THE REPEAT COUNT FOR THE ROW AC3 CONTAINS THE START ADDRESS OF THE ROW IN DEN AC3 AND ACD HAVE HO SIGNIFICANCE.
ALL ACCUMULATORS ARE LOST; THE COMPLETE CALL ING SEQUENCE IS: XOP1 ACS,ACD,4 IXB: 0.0 IDX: 0.0 MASK: 174000 .GADD MS,0 YCNT: 0 IYLOOP YCNT IS AUTOMATICALLY DECREMENTED AFTER BACK-PROJECTING THE ROW; IF 0, CONTROL IS RETURNED TO THE WORD FOLLINGIMG THE CALLING SEQUENCE, QTHERWISE, COMTROL IS RETURMED TO LOCATION IYLOOP. YCNT IS THE ONLY WORD IN THE CALLING SEQUEMCE WHICH IS MODIFIED. NOTE THAT THE ROUTINE USES ABSOLUTE LOCATION 37 FOR TEMPORARY STORAGE.
WCSNP CSBEG 20 +++++ NORHALIZATION ROUTINE: ;START READ: W20: CSTA AR,AC2,0,A,F0,N,CLR,S,N,0,0,NC,2,0,W21 ;READ HIGH ORDER WORD, INCREMENT READ POINTER, START READ: W21: CSTA AR,AC2,0,A1,F0,L,CLR,S,READ,0,0.NC,2,0,W22 ;READ LOW ORDER WORD, IMCREMENT READ POINTER W22: CSTA AR,AC2,GR1,A1,F0,L,CLR,N.READ,DCH,BMEM,NC,2,0,W23 ;PERFORM TWO DOUBLE SHIFTS: W23: CSTA AR,GR1,0,A,L0,L,CLR,N,N,DCH,0,NC,2,0,W24 W24: CSTA AR,GR0,0,A,LL,L,CLR,N,N,DCH,0,MC,2,0,W25 W25: CSTA AR,GR1,0,A,L0,L,CLR,N,N,DCH,0,NC,2,0,W26 W26: CSTA AR,GR0,0,A,LL,L,CLR,N,N,DCH,0,NC,2,0,W27 ;MASK OFF PROPER BYTES AND SWAP: W27: CSTA CON, GR0,GR0,ANB,SW,L,CLR,N,N,DCH,0,NC,2,377,W28 W28: CSTA CCN, GR1,GR1,ANB,SW,L,CLR,N,N,DCH,0,NC,2,0,W29 ;OR THE TWO WORDS TOGETHER: W29 CSTA AR,GR0,GR1,AOB,FA,L,CLR,N,N,DCH,0,NC,2,0.W30 ;START WRITE: W30:CSTA AR,AC3,0,A,F0,N,CLR,S,N,0,0,NC,2,0,W31 ;INCREMENT WRITE POINTER: W31: CSTA AR,AC3,0,A1,F0,L,CLR,N,N,0,0,NC,2,0,W32 ;WRITE DATA AND LOOP: W32: CS AR,AC1,GR0,AMI,FA,L,CLR,N,WRIT,DCH,BMEM,@UZ,Z,W33,W20 @@TART INSTRVCTION FETCH: W33: CETA AR,PC,0,A,F0,N,CLR,S,N,0,0,NC,2,0,W34 LOAD NEW INSTRUCTION INTO IR: W34: CSBA 0,0,0.0.0.N,0,N,READ.M.0,LDIR.0,0,0 +++++ BACK-PROJECTION ROUTIHE ;SET COUNT REGISTER TO BIT POSITION FOR ADDING 2000 LATER: W40: CSTA CON,0,G,A,0,M,0,N,M,DCH,LCNT,MC,2,5,W41 ;READ IXB AND IDX FROM LOCATIONS AFTER XOP1: W41: CSTA AR,PC,0,A,F0,N,CLR,S,N,N,N,NC,2,0,W42 ;START INTEGER IXB W42: CSTA AR,PC,AC1,A1,F0,L,CLR,S,READ,M,BHEM,NC,2,0,W43 ;FRACTIONAL IXB W43: CSTA AR,PC,AC2,A1,F0.L,CLR,S,READ,M,BMEM,NC,2,0,W44 ;IMTEGER IDX W44: CSTA AR,PC,GR1,A1,F0,L,CLR,S,READ,M,EMEH,MC,2,0,W45 ;FRACTIONAL IDX W45:CSTA AR,PC,GR2,A1,F0,L,CLR,S,PEAD,N,BMEM,NC,2,0,W46 ;START MASK READ ;READ MASK IMT0 G@O; ADD 2000 TO INTEGER IXB: W46: CSTA BIT,AC1,AC1,APB,FA,L,CLR,H,READ,DCH,0,NC,2,0,W47 ;LOAD COUNT REGISTER, SAVE HIGH ORDER PART OF XCMT IN LOC 37: W47: CSTA AR,AC0,0,AM1,RO,L,CLR,N,N,DCH,LCNT,NC,2,0,W48 W48: CSTA AR,AC0,0,A,R0,L,CLR,H,N,DCH,0,NC,2,B,W48 W49: CSTA AR,AC0,0,A,R0,L,CLR,M,H,DCH,0,NC,2,0,W50 W50: CSTA CON,AC0,AC0,AP0,R0,L,CLR,N,N,DCH,0,MC,2,2,W51 W51: CSTA CON,0,0,A,0,H,CLR,S,H,0,0,MC,2,37,W52 W52: CSTA 0,0,AC0,0,0,N,CLR,M,WRIT,DCH,BMEM,NC,2,0,XLP ;START X LOOP: ADD FRACTIOHAL DX TO XB: XLP: CS AR,AC2,GR2,AFB,FA,L,CLR,N,N,DCH,0,CRY0B,2,XLIN,XL1C ; ADD INTEGER DX TO XB, WITH OR WITHOUT CARRY: XL1C: CSTA AR,AC1,GR1,APB1,FA,L,N,N,N,DCH,0,NC,2,0,XL2 XL1N: CSTA AR,AC1,GR1,APB,FR,L,M,N,N,DCH,0,NC,2,0,XL2 ;MASK TO CHECK IHDEX PANGE - EXIT IF OUT: XL2:CS AR,AC1,GR0,ANB,0,H,CLR,N,N,DCH,0,ALU2,2,XL3,XEX2 FETCH IBUF ADDRESS: XL3: CSTA AR,PC,0,A1,F0,N,0,S,N,0,0,NC,2,0,XL4 XL4: CSTA 0,0,AC0,0,0,N,0,0,READ,DCH,BMEM,NC,2,0,XL5 ;FETCH IBUF ELEMENT ...
CALL STCON(ADDRESS.WORD COUNT,CONSTANT) .ENT STCON, STCHST ZREL STCON: STC STCNST: STC .NREL STC: SAVE 0 MOV R1,R2 ; SET SOURCE ADDRESS LDA R0,@-5,R3 ; FETCH CONSTANT TO BE STORED LDA R1,@-4,R3 ; FETCH WORD COUNT SBI 2,R1 ; DECREMENT WORD COUNT MOV R2,R3 ; SET DESTINATION ADDRESS ADI 2,R3 STA R0,,R2 : SET FIRST WORD STA R0,1,R2 ; SET SECOND WORD BLM ; SET REMAINDER RTN ***** ROUTINE TO SET A BLOCK OF CORE TO A CONSTANT (FLOATING) CALL FSTCON(ADDRESS.NUMBER COUNT,CONSTANT) ENT FSTCON .ZREL FSTCON: FSTC '.NREL FSTC: SAVE 0 MOV R1-R2 ; SET SOURCE ADDRESS LDA R1,@-4,R3 : FETCH NUMBER COUNT SBI 1,R1 :DECREMENT MOVZL R1,R1 LDA R3,-5,R3 CONVERT TO WORD COUNT LDA R0,0,R3 ; ADDRESS OF CONSTANT STA R0,0,R2 ; FETCH FIRST WORD LDA R0,1,R3 ; AND STORE STA R0,1,R2 ; FETCH SECOND WORD MOV R2,R3 AND STORE ADI 2,R3 ; SET DESTINATION ADDRESS BLM RTN ; MOVE DATA ***** ROUTINE TO COPY A BLOCK OF CORE FROM ONE LOCATION TO ANGTHER CALL BMOVE (SOURCE ADDRESS,DESTINATION ADDRESS,WORD COUNT .ENT BMOVE .ZREL BMOVE: BMV .NREL BMV:SAVE 0 MODV R1,R2 ; SET SOURCE ADDRESS LDA R1,@-5,R3 ; SET COUNT MOV R0,R3 ; SET DESTINATION ADDRESS BLM ; MOVE RTN END Annexe C Partie I c C DISPLAY.FR C FLDR DISPLAY INPUT DSPLY'D648 DAN DERS DEQ DLU CNVAB CNVBA FORT.LB C C FOR TED TO USE THE SIDE KEYBOARD C C PURPOSE DISPLAY SLICE NUMBER OUT OF C4ARRAY.SC C PARAMETER KS=64 PARAMETER TDIM=2001 C DIMENSION IHEAD(256) DIMENSION IWIM(7) INTEGER CENTER,WIDTH INTEGER T(TDiM) C C OPEN THE INPUT FILES CALL OPEN (0."C4ARRAY.SC",2,IER) IF (IER.NE.1) GO TO 100 CALL OPEN (1."C4PAT.SC",2,IER) IF (IER.NE.1) GO TO 100 C C ERASE THE SCREEN CALL DERS C C GAMMA CORRECTION CALL DLU CENTER=10 WIDTH=10 IW=-15 IDELTA=50 C C READ THE HEADER AND TELL OPERATOR THE SLICE NUMBERS CALL RDBLK(1,0,IHEAD,1,IER).
IF(IER.NE.1) GO TO 100 IHEAD(52)=ISHFT(IHEAD(51),8)+IHEAD(52)/400K IHEAD(51)=ISHFT(IHEAD(50),8)+IHEAD(51)/400K WRITE (10,10) IHEAD(51),IHEAD(52) 10 FORMAT("XSTARTING SLICE IS ",A2,/"XENDING SLICE IS ".A2) IHEAD(52)=0 I=0 CALL CNVAB(IHEAD(51),NST,1) C C C READ THE INPUT SLICE NUMBER 2 ACCEPT "INPUT SLICE NUMBER ", NSLCE NSLCE = NSLCE - NST + 1 IF (NSLCE.LE.0.OR.NSLCE.ST.12) GO TO 2 C C READ THE HEADER FOR THE SLICE CALL RDBLK(1.NSLCE-1,IHEAD,1,IER) IF (JER.NE.1) GO TO 100 C C C C CHANGE TIME AND DATA TO ASCII DO 1500 I = 1.7 CALL CNVBA(IHEAD(I),IWIN) IHEAD(I) = IWIN(2) 1500 CONTINUE C C C FIRST TIME THROUGH USE THE INITIAL VALUES.
L'invention décrite dans le brevet de même date de la Demanderesse intitulé "Système de commande de guidage pour un véhicule automoteur propose un système de guidage par radio à deux voies dans lequel un véhicule automoteur envoie des informations de position et de destination à une station disposée latéralement au trajet ou à un régulateur central qui transmet à son tour des signaux de commande de direction et de traction en vue de commander le véhicule. Le trajet que le véhicule doit suivre est formé, non pas d'un seul conducteur mais d'antennes en boucle fermée, segmentées, disposées le long du trajet et le déterminant. Le trajet de guidage est donc formé d'antennes en boucle verticales segmentées qui sont chacune appelées "bloc"} c'est-à-dire l'unité d'information de base.Le véhicule passe successivement d'un BLOC à un autre. Le fait qu'un véhicule émet des informations de destination dans un BLOC distinct-sert à identifier la position du véhicule ainsi qu'à transmettre l'identité de sa destination finale. De plus, lorsque la station latérale ou l'unité de régulation ou de traitement centrale envoie des ordres de direction et de traction à un BLOC distinct, l'énergie électromagnétique émise est confinée à une région relativement étroite, de sorte que des détecteurs montés sur les roues avant du véhicule peuvent détec ter avec précision des déviations à partir de l'antenne en bou cle verticale proche, et produire des signaux de commande visant à renvoyer le véhicule sur son trajet de guidage.L'émission de signaux de traction destinés à un BLOC à la fois, assure que la station latérale ou l'unité de traitement ou de régulation centrale puisse agir à tout moment sur le véhicule.
Un système de guidage aussi compliqué que celui-ci exige un système de commande de surveillance évolué pour attribuer des priorités et choisir un régime qui garantisse la précision et la sécurité du véhicule dans le sens du'trafic.
Un tel système opérationnel peut êre réalisé pourvu que l'espace physique et les frais d'investissement n'entrent pas en ligne de compte.
L'invention propose un système économique compact et nouveau pour recevoir et traiter la myriade de signaux mécaniques et électriques utilisés dans le principe de commande de traction conforme à l'invention décrit plus loin et pour fournir des signaux de commande servant à maîtriser le véhicule le long du trajet de guidage vers sa destination choisie.
L'invention réside d'une manière générale dans un système de commande de surveillance destiné à un véhicule automoteur qui réagisse à des signaux de RETENUE, de CHEMINEMENT et d'ARRET DE STATION et peut Strie mis en oeuvre dans le mode manuel ou automatique, le véhicule étant destiné à suivre un trajet prescrit qui comprend plusieurs paires de pâles, séparées les unes des autres le long du trajet selon des intervalles déterminant des positions d'arrêts le système comprenant a) un dispositif pour fournir une énergie de traction au véhicule; b) un dispositif pour commander le serrage d'un frein en vue d'arrSter le déplacement du véhicule; (c) un dispositif pour recevoir un ordre d'arrêt de station à partir d'une station latérale et pour reconnattre deux paires de pales distinctes parmi les divers pâles afin dtidentifier respectivement des situations d'ARRET DE STATION et de RETENUE, et pour fournir respectivement des signaux de RETENUE, DE CHEMINEMENT et D'ARRET DE STATION, le signal ARRET DE STATION étant envoyé au frein pour amorcer l'opé- ration d'arrêt; d) un dispositif pour produire un signal en pente de vitesse de traction, propre à recevoir des signaux de déplacement manuel dans le mode manuel et des ordres de déplace ment ainsi que des signaux de CHEMINEMENT et d'APRET DE STATION dans le mode automatique à partir du dispositif d'identification des pôles, et pour fournir un signal de référence en pente de vitesse de traction, et un signal de "VITESSE ZER3't au dispositif de traction; e) un dispositif de direction réglé, coopérant avec le trajet de guidage dans le mode automatique et propre à recevoir des ordres de déplacement manuel dans le mode manuel, et f) un dispositif pour recevoir plusieurs paramètres de démarrage comprenant le signal zéro à partir du générateur de signaux en pente de vitesse de traction pour identifier le mode opérationnel choisi et pour fournir un signai. de validation au générateur de signaux en pente de vitesse de traction, au frein et au dispositif de direction réglé.
Pour mieux comprendre l'invention, on se référera à la description détaillée d'une forme d'exécution préférée donnée c5-après, à titre d'exemple, avec référence aux dessins annexés, dans lesquels la Fig. l est un schéma synoptique du dispositif de commande de surveillance conforme à l'nvention, avec d'autres élé- ment s coopérants du système de transport automatique; la Fig. 2 est un schéma du circuit de commande de validation automatique/manuel; la Fig. 3 est un schéma illustrant un dispositif détecteur de pôles magnétiques le long du trajet; la Fig. 4 est un schéma du circuit détecteur de vitesse de cheminement du dispositif logique de positionnement; ; la Fig. 5A est un schéma du circuit détecteur d'arret de station du dispositif logique de positionnement; la Fig. 53 est un schéma de tension utilisé pour expliquer le fonctionnement du circuit de la Fig. 5A; la Fig. 6 est un schéma du circuit détecteur de retenue du dispositif logique de positionnement; la Fig. 7 est un schéma du circuit de commande du frein; la Fig. 8 est un schéma du circuit d'arret en cas d'ur- gence; la Fig. 9 est un schéma du circuit de couplage du dispositif élevateur; la Fig. 10 est un schéma du circuit de commande du frein; la Fig. ll est un schéma du circuit de-commande de référence automatique/manuel; la Fig. 12 est un schéma électrique du générateur de si- gnaux en pente de vitesse de traction;; la Fig. 13 est un schéma électrique du circuit de comman- de du renversement de marche; la Fig. 14 est une vue schématique en perspective illustrant le véhicule de traction dans son milieu opérationnel, et la Fig. 15 est un schéma synoptique illustrant une forme d'exécution ainsi que les éléments coopérants d'un système de commande complet.
Les principes de l'invention s'appliquent en particulier dans un système de transport automatique destiné à un véhicule automoteur sans chauffeur représenté sur la Fig.14. Le véhicule automoteur indiqué d'une manière générale en 10 peut être mis en oeuvre automatiquement ou à la main. Dans le mode autonatiques le véhicule 10 est en communication radio à deux voies avec un régulateur de trafic central, la communication étant établie au moyen de plusieurs antennes en boucle fermée segmentées 12 et 14 qui sont encastrées en dessous de la surface sur laquelle le véhicule doit se déplacer.Le véhicule 10 peut transporter une charge modulaire 16 qui peut astre soulevée ou enlevée mécaniquement (par des moyens non représentés) à destination.Une manette 18 comporte une position neutre indlquée en 20 utile lorsque le véhicule se trouve dans le mode automatique, ainsi que des positions d'actionne- ment normales, lorsqu'il est utilisé dans le mode manuel.La sélection du mode automatique ou du mode manuel, ainsi qu'un arrêr d'urgence du véhicule, s'effectuent à l'aide de de plusieurs cadrans et boutons-poussoirs prévus sur un tableau de bord indiqué en 22. Le véhicule 10 suit le trajet déterminé par les antennes en boucle 12 et 14 au moyen d'une roue directrice 24, la traction assurant le déplacement du véhicule en marche avant et en marche arrière étant assurée par deux roues indiquées d'lue ma nière générale en 26.