100 /MASTER GRIND PROGRAM 120 XLIST OFF 130 IFNDEF OFF 140 ON= 0 150 DECIMAL 160 XLIST ON; IFZERO 1< 170 LAST EDIT: 24-SEP-1979 04:00:00 CJL 190 MAY BE ASSEMBLED WITH '/J' SWITCH SET. 210 GENERAL PARAMETERS: 230 >XLIST ON 240 / BLKPRT= 0 /DON'T REPORT WHETHER MOVEMENT IS A BLINK 250 BLKPRT= 1 /REPORT WHETHER MOVEMENT IS BLINK 260 BLKTST= 0 /DON'T THROW AWAY BLINKS 270 / BLKTST= 1 /THROW AWAY BLINKS 280 CHAN= 0 /USE FOUR WORD FORMAT 290 / CHAN= 2 /USE TWO WORD FORMAT 300 / EAESET= 0 /SIMULATE PDP-8/E EAE USING PDP-8/I EAE 310 EAESET= 1 /USE PDP-8/E EAE INSTRUCTION SET 320 / FILE= 0 /OUTPUT TO TTY: DIRECTLY 330 FILE= 1 /OUTPUT TO P?S FILES NOT TTY: 340 FREQ= 0 /USE SACCADIC ACTIVITY AS PROTOTYPE 350 / FREQ= 1 /USE SPIKE ACTIVITY AS PROTOTYPE 360 MODEM= 0 /DON'T ANALYZE MODEM OUTPUT 370 / MODEM= 1 /ANALYZE MODEM OUTPUT (IF CHAN= 0) 380 NERVE= 0 /DON'T LOCATE SPIKES 390 / NERVE= 1 /LOCATE SPIKES ABOUT SACCADIC MOVEMENTS 400 / OKN= 0 /CONSIDER SLOW PHASE AS MOVEMENT 410 OKN= 1 /DON'T CONSIDER SLOW PHASES AS MOVEMENTS 420 PARM1= 11 /PAUSE BEGINNING CORRECTION FACTOR (MS.) 430 PARM1F= 4 /PAUSE BEGINNING CORRECTION FACTOR (100 US.) 440 PARM2= -11 /PAUSE ENDING CORRECTION FACTOR (MS.) 450 PARM2F= 4 /PAUSE ENDING CORRECTION FACTOR (100 US.) 460 PARM3= -48 /MOVEMENT BEGINNING CORRECTION FACTOR (MS.) 470 PARM3F= 0 /MOVEMENT BEGINNING CORRECTION FACTOR (100 US.) 480 PARM4= -16 /MOVEMENT ENDING CORRECTION FACTOR (MS.) 490 PARM4F= 0 /MOVEMENT ENDING CORRECTION FACTOR (100 US.) 500 PDP12= 0 /4 WORD FORMAT NOT GENERATED BY KW12A 510 / PDP12= 1 /4 WORD FORMAT GENERATED AT KW12A RATE (NOT DK8EP) 520 / SAC= 0 /DON'T USE SACCADIC QUICK PHASE AS PROTOTYPE 530 SAC= 1 /USE SACCADIC QUICK PHASE AS PROTOTYPE 540 TIME1= 120 /BACKUP BEFORE FIRING BURST TIME (MS.) 550 TIME1F= 0 /BACKUP BEFORE FIRING BURST TIME (100 US.) 560 TIME2= 80 /BURST ONSET THRESHOLD TIME (MS.) 570 TIME2F= 0 /BURST ONSET THRESHOLD TIME (100 US.) 580 TIME3= 80 /BURST OFFSET THRESHOLD TIME (MS.) 590 TIME3F= 0 /BURST OFFSET THRESHOLD TIME (100 US.) 620 / N. B. PARM1, PARM2, PARM3, AND PARM4 CAN BE NEGATIVE, HOWEVER 630 / THE CORRESPONDING FRACTIONS MUST BE GIVEN IN POSITIVE FORM 640 EJECT 650 XLIST OFF 660 OCTAL 670 XLIST ON; IFZERO 1< 680 PROGRAM DEFINITIONS: 700 >XLIST ON 710 ASR= 7415 /ARITHMETIC SHIFT RIGHT 720 BEGIN= 0200 /BEGIN VALUE 730 BLINK= 1000 /BLINK VALUE 740 CAM= 7621 /CLEAR AC, MQ 750 D= CHAN^2+4 /DIVIDE PARAMETER FOR TIME FORMULAE 760 XLIST OFF 770 IFNDEF DAD 780 IFNDEF DCM 790 IFZERO EAESET < 800 XLIST ON 810 DAD= JMS I [DADD] /DOUBLE PRECISION ADD 820 DCM= JMS I [DCOM] /DOUBLE PRECISION COMPLEMENT 830 XLIST OFF > 840 XLIST ON 850 DIGITS= 7 /SEVEN OUTPUT DIGITS 860 XLIST OFF 870 IFNDEF DLD 880 IFNDEF DST 890 IFZERO EAESET < 900 XLIST ON 910 DLD= JMS I [DLOAD] /DOUBLE PRECISION LOAD 920 DST= JMS I [DSTR] /DOUBLE PRECISION STORE 930 XLIST OFF > 940 XLIST ON 950 DVI= 7407 /DIVIDE 960 END= 0400 /END VALUE 970 FILBUF= 3000 /P?S/8 FILES CREATED HERE 980 XLIST OFF 990 IFNDEF FNDSPK 1000 XLIST ON 1010 FNDSPK= JMS I [SPKFND]/LOCATE SPECIFIED SPIKES 1020 XLIST OFF 1030 IFNDEF FRCTIME 1040 XLIST ON 1050 FRCTIME=JMS I [TIMFRC]/EVALUATE FRACTIONAL TIME 1060 XLIST OFF 1070 IFNDEF LOAD 1080 XLIST ON 1090 LOAD= JMS I [XLOAD] /LOAD A VALUE 1100 LSR= 7417 /LOGICAL SHIFT RIGHT 1110 M= D-1 /MASK FOR TIME FORMULAE 1120 XLIST OFF 1130 IFNDEF MOVE 1140 XLIST ON 1150 MOVE= JMS I [XMOVE] /MOVE TWO WORDS