Workbook for SLD Offline Users - IDA Code Used

All members of the New Users Task Force should feel free to update this file.

Here is a list showing the order in which IDA commands are introduced in the workbook.

• First Day - Note that concepts introduced on the first day are given only brief explanation in the expectation that they will be discussed in more detail in subsequent sections.
  • OPENTAPE READ a disk file
  • GO 1
  • INDEX
  • PEEK
  • DEF EVANAL
  • BANKLOOP
  • HIST
  • HOUT 1 XTERM
  • HOUT 1 POSTSCR
  • REWIND
  • CMDPROC DSPCMD
  • DSP SELECT XTERM
  • DSP DRAW
  • DSP ADD
  • DSP USERDATA
  • DSP SHOW TYPES
  • DSP SHOW ADDED
  • DSP SELECT COLPOST
  • DSP CLOSE
• The Data
• The Tape System
  • CLOSE INFILE
  • OPENTAPE READ a tape by its nickname
  • OPENTAPE READ a tape by its full name
  • OPENTAPE WRITE a tape
  • IF
  • TYPE
  • WRITE USING INLIST
  • CLOSE OUTFILE
• IDA Structure
• IDA Continued
• IDA Processors
• The Monte Carlo

Below is the actual IDA code used to take one through the first eight sections of the workbook (from the "first day" section through "the batch system").

The numbers at left indicate the order in which lines are added to the job.

• First Day

   1  OPENTAPE READ REC94_MDST
   1  GO 1
   1  INDEX
   1  PEEK IEVENTH
   1  PEEK PHCHRG(1)
   1  PEEK PHCHRG(5).HLXPAR(2)
   1  PEEK PHKLUS
  
   2  DEF EVANAL
   2     PEEK PHCHRG(1).HLXPAR(2)
   2  ENDDEF
   
   2  GO 4
  
   3  DEF EVANAL
   3     PEEK IEVENTH.EVENT
  
   3     BANKLOOP PHCHRG
   3        HIST PHCHRG%(HLXPAR(2)) FROM 0 TO 10 ID 1 TITLE "HLXPAR(2)"
   3     ENDLOOP
  
   3  ENDDEF
  
   3  GO 50
   3  HOUT 1 XTERM
   3  HOUT 1 POSTSCR
  
   4  REWIND
   4  GO 1
  
   5  CMDPROC DSPCMD
   5  DSP SELECT XTERM
   5  DSP DRAW
   5  DSP ADD DETWIC
   5  DSP ADD DETLAC
   5  DSP USERDATA DSTUDSP
   5  DSP ADD PHCHRG
   5  DSP SHOW TYPES
   5  DSP ADD PHKLUS
   5  DSP SHOW ADDED
   5  DSP SELECT COLPOST
   5  DSP DRAW
   5  DSP CLOSE COLPOST
  
  

• The Data
• The Tape System

   1  CLOSE INFILE
   1  OPENTAPE READ REC27840
  
   2  CLOSE INFILE
   2  OPENTAPE READ QF0062.26/REC27840
  
   3  OPENTAPE READ REC94_MDST
   3  OPENTAPE WRITE your_tape_id.1/FIVETRK
  
   3  DEF EVANAL
   3     NTRACKS=0
   3     BANKLOOP PHCHRG
   3        IF PHCHRG%(NHIT) > 40
   3           NTRACKS=NTRACKS+1
   3        ENDIF
   3     ENDLOOP
  
   3     IF NTRACKS > 5
   3        WRITE USING INLIST
   3        TYPE "Wrote Event   " _IEVENTH%(EVENT)
   3     ELSE
   3        TYPE "Rejected Event" _IEVENTH%(EVENT)
   3     ENDIF
   3  ENDDEF
  
   3  GO 50
  
   3  CLOSE INFILE
   3  CLOSE OUTFILE
  
   4  OPENTAPE READ your_tape_id.1/FIVETRK
  
   4  DEF EVANAL
   4     TYPE "Tape contains Event   " _IEVENTH%(EVENT)
   4  ENDDEF
  
   4  GO 0
   4  CLOSE INFILE
  
   5  OPENTAPE READ your_tape_id.1/FIVETRK/STAGE/WAIT
  

• IDA Structure
• IDA Continued
• IDA Processors
• The Monte Carlo