1
CAMAC
ϲ .
: 140 .
: , 140.
1. MDS-140.
140 䳿 CAMAC, . ³ CAMAC. ³ CAMAC, , , .
:
RUN CONTINOUS - ,
SINGLE TRANSFER - ,
SINGLE STEP - .
, , .
2.i
2.1.1.
, :
- () N,
- () ,
- F.
Q. Q=L, . S1 ( , ) . XS1=0 , STOP. OFF , , X=1. ( L) LAM ( L1-L18).
, , . : , I, Z.
i
1-18N - , .
X OFF - 䒺 ( ) I .
EXT OSC - , EXT OSC.
SUB ADDRESS A 1,2,4,8- () .
FUNCTION 1,2,4,8,16- , .
- . ³ . I, NAF .
Z Z . I, NAF .
|
|
|
SINGLE STEP - , EXEC.
SINGLE TRANSFER - EXEC.
RUN - .
CLEAR - i .
2.1.3.
RUN - , .
- .
NAF - , N, () F .
S1 - S1 .
S2 - S2 .
- .
Z - .
I - .
X - S1. .
Q - II.
L - .
STOP - ( ) S1.
2.1.4.ii
TRIGGER OUT - , .
EXT OSC - .
EXT TRIGGER - TTL .
ճ
1. 25 140 i 440, 730 446.
2. 140 , , , , F1 .
3. 140 , CLEAR, STEP.
4. EXEC, NAF, B, Q, X, S1, S2, 446 . , .
5. 䳿 .4 MEMORY ON/OFF . , .
6. 䳿 .4, F1 F16. , .
7. 䳿 .4, , I, Z. 440, 446 730, . .
8. .
1. ?
2. ?
3. F() ?
4. i ?
5. ?
|
|
|
6. Single Step, Single Transfer, Run?
2
-
I
Д
: .
: , , IBM- .
I`
` () ` IBM PC/XT/AT .
, .
2.
, . , 23 . , 8- 16- . 700 /. .
0,..., 6 . , , , , . 8..., . ֳ , X Q , LAM - .
7 .
3. 䳿
, ON/OF, DISPLAY CLEAR/DATA WAY CLEAR, REQEST, GRANT IN, GRANT OUT .
L16L1 CAMAC, LAM. LAM .
1 .
, .
є , .
161 , .
D 0.5 CAMAC, 2 - .
, .
CAMAC
MCC (Manual Crate-Controller) RMC (Resident Manual Controller) CAMAC- ii .
( ), .
, .
, -, -.
RMC i Ctrl+Right Shift+C, ii , -. RMC Ctrl+Right Shift+U. RMC .
|
|
|
ճ
1. 25 , 璺 .
2. 70, 440 446. . 3. MCCRUS. EXE.
4. , , 446, F0 F2( , 446).
5. ( ) ( ), R, X, Q, L. , , , 446 .
6.i R , 446 .
7. R , . , ( 3, 2, 1 ) R .
8. - ( ).
9. H, M, L , , , .
10. U, . W , H, M, L .
11. F16, F446. R, X, Q, .
12. 䳿 . 11, -7. .
13. MCCRUS.EXE ( Q).
14. RMCRUS.EXE ( ).
15. .
1. MCCRUS.EXE RMCRUS.EXE?
?
2. ?
3. , MCCRUS.EXE RMCRUS.EXE, , ?
4. 75?
5. $12, R?
3
- I I
: .
: , , IBM- .
BROCAMAC - PC - Turbo Pascal
, , - - .
, , . DSP Technology Corporation.
, .
BROCAMAC. , , USES.
:
- ;
- -;
|
|
|
- ;
D - ;
F - ;
N - CC.
CamBase
ij: -.
: CamBase(B:byte);
:
- - $3, ຺ $3AO...$3AF - IBM PC. IBM PC, , , .
:
CamBase($10); { }
{ $100...$10F}
CamCrate
ij: .
: CamCrate(C:byte);
:
4 . . , , - 1. 1...4.
:
CamCrate(3); { 3}.
Cam
ij: .
: Cam(N, A, F: byte);
:
(F8:11, ), , , , , , .
:
var
SubAddr,Func:byte;
onst
ADC=16;
begin
For SubAddr: =0 to 15 do For Func: =0 to 32 do
begin
Write( , SubAddr:2,. , Func);
Cam(ADC, SubAddr, Func);
If CamX then Writeln(. X=1 )
else Writeln(. X=0 )
end;
end.
ADC, 16, .
Cam0
ij: 16- .
: Cam0(N,A,F:byte; D:word);
:
Cam0(1,0,16,$FFFF);
F(16) 16- 0 , i 1.
Cam024
ij: 24- .
: Cam024(N,A,F:byte; D:LongInt);
:
32- .
:
Cam024(1,0,16,$FFFFFF);
F(16) 16- 0 , 1.
CamCI
ij: .
: CamCI(I:byte);
:
:
x AX4 AX3 AX2 AX1 I C Z
, : I, C, Z BROCAMAC, -.
:
amCI(C+Z);
Z .
CamI
ij: 16- .
: CamI(N,A,F: byte):word;
: 16- (word),
:
24-, .
:
var
Data:word;
begin
Data:=CamI(1,0,0);
end.
F(0) 16- 0 , 1, Data.
CamI24
ij 24- .
: CamI24(N,A,F:byte):LongInt;
: 32- (long integer).
:
32- 0.
:
var
Data:LongInt;
begin
Data:=CamI24(1,0,0);
end.
(0) 24- 0 , 1, Data.
CamL
ij: -.
: CamL:byte;
: .
~L L16 L8 L4 L2 L1
_____________________
,
: 1 , ~L=0, . 6...7 - .
|
|
|
:
If (CamL and $20)=0 then ( -);
䳿, .
CamQ
ij: Q .
: CamQ;Boolean;
: (Boolean).
:
const ADC:byte=1; { 1}
begin
Cam(ADC,0,25); { }
{ }
Repeat
Cam(ADC,0,27); { }
until CamQ; { Q}
{ }
(...)
end.
CamX
ij: .
: CamX:Boolean;
: (Boolean).
:
. m.
CamStep
ij: -.
: CamStep;
:
ϳ .
:
Begin (- )
CamStep; ( )
( )
CamNStep; { }
(- )
end.
amNStep
ij: ³ -.
: CamNStep;
:
. CamStep;
ճ
1. BROCAMAC.
2. - (, ).
3. ( Cam ) Turbo Pascal.
4. , . , .
5. , - (, ) .
6. , .
7. .
1. L- .
2. -, ( L- ), 10 . 1 .
4
