Table of Contents
Advertisement
Operating Instructions
274
276
277
278
279
280
283
286
287
289
290
292
293
294
295
!
!
F=19
Datl=128
GOSUB CafflO
!
F=26
GOSUB Camo
!
F=9
GOSUB Camo
I
I
V I
IF Mode="A" THEN Trig
GOTO 301
296 Trig:
297
F=25
295
GOTO 301
296 Trig:
297
F=25
GOSUB Camo
298
299
301
302
303
304
305
306
!
307 Getdata;
308
GOSUB Serpol
GOSUB TransSk
GOTO PlotSk
!
OUTPUT 701 US
309
310
ING "#,B":65.
I
ON INTR 7 GOTO Getdata !Serpol
ENABLE INTR 7;2
GOTO 305
!WRITE OUT ZERO INPUT OFFSET
!ENABLE LAM
!START DIGITIZER
!IF "A" THEN ISSUE STOP TRIGGER
!SEND COMPUTER STOP TRIGGER
'ENABLE SRQ
!ENABLE INTERUPT
!SIT AND WAIT FOR INTERRUPT
+01
10010
10020
10030
10031
10040
10050
10060
Camo;! SUBROUTINE CAMO
10070
OUTPUT 701 USING
.B";F,A,N,Datl,Dat2
10080
SEND 7; TALK 1 ITELL 8901 TO TALK
10090
RETURN
SUBROUTINES
GO TO SERIAL POLL SUBROUTINE
GO READ DATA WITH A "TRANSFER"
GO PLOT DATA
( CAMO ), ( SERPOL )
CAMAC OUTPUT SUBROUTINE
SERIAL POLL SERVICE SUBROUTINE
10091
10100
10110
10120
10130
10140
Serpol; I SERIAL POLL ROUTINE
RETURNS STATUS OF CRATE
I at this point SRQ WILL HAVE BEEN ASSERTED
!
10141
DISABLE INTR 7
10143
INTEGER Statl,Stat2,Stat3,Stat4,StatS
10150
OUTPUT 701 USING "#,B";64
10160
SEND Z;UNL MLA TALK 1 CMD 24
10170
ENTER 7 USING "#,B"; Statl,Stat2,StatS,Stat4,Stat5
10180
SEND 7: CMD 25 UNT
!DISABLE INTERRUPTS
I DISABLE ANY FURTHER
SRQ'S
I CONFIGURE BUS AND
SEND SPE
I GET STATUS
17
Advertisement
Table of Contents
