100 /EYE MOVEMENT FINDING PROGRAM 120 XLIST 1 130 IFNDEF OFF 140 ON= 0 150 XLIST ON 160 /PROGRAM TO LOCATE AND MARK EYE MOVEMENT DATA TAPES 180 / LAST EDIT: 13-SEP-1979 03:00:00 CJL 200 / MAY BE ASSEMBLED WITH '/J' SWITCH SET. 220 / MOVEMENT PARAMETERS 240 XLIST OFF 250 IFZERO CHAN < 260 XLIST ON 270 / THIS IS THE FOUR WORD VERSION 280 XLIST OFF > 290 XLIST ON 300 XLIST OFF 310 IFNZRO CHAN < 320 XLIST ON 330 / THIS IS THE TWO WORD VERSION 340 / FORMAT: X WORD IS 5 BITS OF FREQ AND 7 BITS OF X EOG 350 / Y WORD IS BIT 12 SLOW PHAS, BIT 10 IS BLINK, 360 / BIT 9 IS END, BIT 8 IS BEG AND 7 BITS OF Y EOG 370 XLIST OFF > 380 XLIST ON 390 DECIMAL /TIMX2 400 410 BLNK1= 120 /END OF BLINK UP TO DOWN TIME (MS.)(112) 420 BLNK1F= 0 /END OF BLINK UP TO DOWN TIME FRACTION (100 US.) 430 BLNK2= 200 /END OF BLINK TIME (MS.)(416) 440 BLNK2F= 0 /END OF BLINK TIME FRACTION (100 US.) 450 BLNK3= 28 /BLINK BEGIN THRES(4) 460 BLNK4= 10 /BLINK END THRES(1) 470 BLDIF1= 80 /VERTICAL BLINK BEGIN THRESHOLD 480 BLDIF2= 20 /VERTICAL BLINK END THRESHOLD 490 CHAN= 0 /0 IS 4 WORD FORMAT, 2 IS 2 WORD FORMAT 500 DIFF1= 20 /HORIZONTAL BEGIN THRESHOLD(3) 510 DIFF2= 20 /VERTICAL BEGIN THRESHOLD(3) 520 DIFF3= 10 /HORIZONTAL END THRESHOLD 530 DIFF4= 10 /VERTICAL END THRESHOLD 540 EAESET= 1 /0 IS 8/I EAE, 1 IS 8/E EAE (MODE "B") 550 FUDG1= 12 /BEGIN RELOCATION FACTOR (MS.)(1) 560 FUDG1F= 8 /BEGIN RELOCATION FACTOR FRACTION (100 US.)(6) 570 FUDG2= 9 /END RELOCATION FACTOR (MS.) 580 FUDG2F= 6 /END RELOCATION FACTOR FRACTION (100 US.) 590 NUMBER= 7 /MEDIAN WORD COUNT(4) SHOULD BE ODD NUMBER 600 TIME1= 28 /BEGIN TIME FACTOR (MS.)(12) 610 TIME1F= 8 /BEGIN TIME FACTOR FRACTION (100 US.)(8) 620 TIME2= 64 /END TIME FACTOR (MS.)(35) 630 TIME2F= 0 /END TIME FACTOR FRACTION (100 US.)(2) 640 TIME3= 249 /SLOW-PHASE THRESHOLD TIME (MS.) 650 TIME3F= 6 /SLOW-PHASE THRESHOLD TIME FRACTION (100 US.) 660 UPDAT= 38 /BLINK UPDATE FACTOR (MS.) 670 UPDATF= 4 /BLINK UPDATE FACTOR FRACTION (100 US.) 680 EJECT 690 OCTAL 700 710 / EAE DEFINITIONS 720 730 ASR= 7415 /ARITHMETIC SHIFT RIGHT 740 CAM= 7621 /CLEAR AC, MQ 750 XLIST OFF 760 IFNZRO EAESET < 770 XLIST ON 780 DAD= 7443 /DOUBLE PRECISION ADD 790 DCM= 7575 /DOUBLE PRECISION COMPLEMENT 800 DLD= 7663 /DOUBLE PRECISION ADD 810 DST= 7445 /DOUBLE PRECISION STORE 820 XLIST OFF > 830 XLIST ON 840 LSR= 7417 /LOGICAL SHIFT RIGHT 850 MQA= 7501 /MQ TO AC 860 MQL= 7421 /AC TO MQ, CLEAR AC 870 SHL= 7413 /SHIFT LEFT 880 XLIST OFF 890 IFNZRO EAESET < 900 XLIST ON 910 SWAB= 7431 /SWITCH TO MODE B 920 XLIST OFF > 930 XLIST ON 940 SWBA= 7447 /SWITCH TO MODE A 950 SWP= 7521 /SWAP AC, MQ 960 970 /MONITOR DEFINITIONS 980 990 SBOOT= 7600 /MONITOR EXIT ADDRESS 1000 SYSIO= 7640 /I/O ENTRY POINT 1010 WRITE= 4000 /SYSIO WRITE BIT 1020 UNIT= 0005 /I/O UNIT FOR DATA 1030 1040 XLIST OFF 1050 IFNDEF BUMP 1060 IFNDEF COMPARE 1070 IFZERO EAESET < 1080 IFNDEF DAD 1090 IFNDEF DCM 1100 IFNDEF DLD 1110 > 1120 IFNDEF DOSOME 1130 IFZERO EAESET < 1140 IFNDEF DST 1150 > 1160 IFNDEF EXTEND 1170 IFNDEF LOAD 1180 IFNDEF MARK 1190 IFNDEF NEXTX 1200 IFNDEF NEXTY 1210 IFNDEF SCANIN 1220 IFNDEF SCANOUT 1230 IFNDEF STORE 1240 XLIST ON 1250 /INSTRUCTIONAL DEFINITIONS 1260 1270 BUMP= JMS I [BUMPER]/BUMP A POINTER ROUTINE 1280 COMPARE=JMS I [COMP] /COMPARE ROUTINE 1290 D= CHAN^2+4 /DIVIDE PARAMETER FOR TIME FORMULAE 1300 XLIST OFF 1310 IFZERO EAESET < 1320 XLIST ON 1330 DAD= JMS I [DBLADD]/DOUBLE ADD ROUTINE 1340 DCM= JMS I [DBLCOM]/DOUBLE COMPLEMENT ROUTINE 1350 DLD= JMS I [DBLOAD]/DOUBLE LOAD ROUTINE 1360 XLIST OFF > 1370 XLIST ON 1380 DOSOME= JMS I [STUFF] /DO SOME STUFF ROUTINE 1390 XLIST OFF 1400 IFZERO EAESET < 1410 XLIST ON 1420 DST= JMS I [DBLSTR]/DOUBLE STORE ROUTINE 1430 XLIST OFF >