Directory of image this file is from
This file as a plain text file
*20 /TACHEYE PROGRAM: RUNS TACH3A TRIALS /IN EYE-MOVEMENT ENVIRONMENT LMODE *4020 /INPUT PARAMETERS TI,TD,TB,TM, AND TAPE- /FILE BLOCK NO. / PARAMS, HLT CLR IOB 6046 /INITIALIZE TTY SET I 1 LAB1-4000 JMP MESSAG JMP GET STC TI SET I 1 LAB2-4000 JMP MESSAG JMP GET STC TD SET I 1 LAB3-4000 JMP MESSAG JMP GET STC TB SET I 1 LAB4-4000 JMP MESSAG JMP GET STC TM SET I 1 LAB5-4000 JMP MESSAG JMP GET BSE I 7000 /SET MBLK=7 STC TBLK /INITIALIZE TAPE FILE LDF 3 ADD TBLK STC .+2 RDC U 0 SET I 4 7377 /VERIFY FILE: STARTS WITH "*20,CR"? LDA I 4 SAE I 5262 JMP ERR1 LDA I 4 SAE I 6043 JMP ERR1 / /DISPLAY ADJUSTMENT PATTERN UNTIL TOP /ROW KEY STRUCK ON PANEL / SETUP, IOB 6314 LDA I 376 STC XFIX JMP SYNC0 JMP SYNC JMP SHOFIX JMP SHOPAT IOB 6311 JMP .-5 / /CALIBRATE "CRIT" FROM EYE-POSN DATA /SAMPLED AFTER KEY-PRESSES: 1ST BOTTOM, /THEN TOP PANEL. / CALIB, IOB 6306 JMP SYNC0 JMP SYNC JMP SHOCAL /SHOW "X X" IOB 6301 JMP .-4 SAM 15 STC IL SET I 1 LABCR-4000 JMP MESSAG ADD IL JMP DECPUT IOB 6316 JMP SYNC0 JMP SYNC JMP SHOCAL IOB 6311 JMP .-4 SAM 15 COM ADA I IL, 0 APO JMP ERR5 /PTS NOT ORDERED SCR 1 STC CRIT ADD CRIT JMP DECPUT /TYPE CRIT VALUE SNS 0 JMP TRIAL-2 /START BLOCK JMP CALIB / /KEEPS TAKING CRITERION PAIRS UNTIL SW 0 /DOWN, AFTER WHICH /CONTROL TRANFERS TO FIRST TRIAL OF BLOK / /SAMPLING SUBROUTINE: RETURNS CALL+2 IF /SAMPLE POSN WITHIN CRIT OF INITIAL POSN /-ELSE RETURNS CALL+1 / CHECK, SAM 15 COM ADD I0 APO I COM ADA I CRIT, 100 APO I XSK I JMP / SHOFIX, DSC I 0 CLR ESF SET I 1 XFIX, 376 DSC I 1463 DSC I 6314 DSC I 0 LDA I 200 ESF JMP / SHOPAT, SET I 1 344 CLR DSC I 4477 DSC I 7744 SET I 1 414 DSC I 4477 DSC I 7744 JMP / /DISPLAYS PAIR OF XS FOR CALIB / SHOCAL, LDA 0 STC SHOCRJ LDA I XL, 0354 STC XFIX JMP SHOFIX LDA I XR, 404 STC XFIX JMP SHOFIX SHOCRJ, HLT / /SUBR TYPES AC AS I5 DECIMAL INTEGER / DECPUT, STC TEMP ADD STC DECRET /SAVE R.J. ADD TEMP APO I JMP .+6 />0: NO "-" COM STC TEMP LDA I 255 /"-" JMP .+3 LDA I 240 /" " JMP TYPE SET I 2 260 /COUNT DIGIT LDA I TEMP, 0 ADA I -1750 /THOUSANDS APO JMP .+3 XSK I 2 /INCR. DIGIT JMP .-5 AZE I /-0? JMP .-3 ADA I 1750 /RESTORE STC TEMP ADD 2 JMP TYPE /THOUSANDS DIGIT LDA TEMP SET I 2 260 ADA I -144 /HUNDREDS APO JMP .+3 XSK I 2 JMP .-5 AZE I JMP .-3 ADA I 144 STC TEMP ADD 2 JMP TYPE /HUNDREDS DIGIT LDA TEMP SET I 2 C260, 260 ADA I -12 /TENS APO JMP .+3 XSK I 2 JMP .-5 AZE I JMP .-3 ADA I 12 STC TEMP ADD 2 JMP TYPE /TENS DIGIT LDA TEMP ADD C260 JMP TYPE /UNITS DIGIT DECRET, HLT /R.J. / SYNC0, PDP PMODE CLA CLEN CLLR TAD RATE CLLR CLA TAD RATE+1 CLAB CLSA CLA CLSA SMA CLA JMP .-2 LINC LMODE JMP PMODE RATE, 3100 -62 LMODE / /EACH TRIAL STARTS HERE /ENCODE NEXT TWO LINES OF FILE: DISPLAY /AND MASK STRINGS INTO BUFFER&UP / SET I 17 /INITIALIZE DATA 2000 /ARRAY IN LDF 7 TRIAL, SET I 7 ADBUFR, BUFFER-4000 JMP NXCHAR SAE I 57 /LINE BEGINS "/" JMP ERR2 JMP NXCHAR STH I 7 SAE I 43 /ENDS WITH CR JMP .-4 LDA 7 STC ADMASK /AD-1/2 MASK JMP NXCHAR SAE I 57 JMP ERR2 JMP NXCHAR STH I 7 SAE I 43 JMP .-4 SET I 1 LABCR-4000 /CR,LF JMP MESSAG /STRINGS IN BUFFER. DISPLAY FIX DOTS /UNTIL 4-KEY PANEL STRUCK. IF SW 1 UP, /DISPLAY MASK STRING AS PRE-MASK. / AGAIN, IOB 6304 JMP SYNC0 /START CLOCK LDA I X0, 376 STC XFIX ADD ADMASK STC STRING JMP SYNC JMP SHOFIX SNS I 1 JMP DISPLA IOB 6301 JMP .-6 /SAMPLE INITIAL EYE-POSN, I0 SAM 15 STA I I0, 0 APO I COM / /I0/<BOUND? ADA I BOUND, 400 APO JMP ERR4 /NO: ERROR LDA I /INIT SACTIM=-1 -1 /FOR NO MOVEMENT STC SACTIM /DISPLAY FIXATION ANOTHER "TI" CYCLES; LDA I TI, 0 AZE I JMP TD-1 /SKIP IF 0 COM STC 5 JMP SYNC JMP SHOFIX XSK I 5 JMP .-3 /DISPLAY STRING ON FOR "TD" CYCLES, /UNLESS S LEAVES FIXATION REGION DURING /DISPLAY. IF SO, SW 4 UP: CONTINUE /DISPLAY UNTIL TIMEOUT; SW 4 DOWN: GO /DIRECTLY TO POST-DISPLAY ROUTINE. LDA I TD, 0 COM STC 5 ADD ADBUFR STC STRING JMP SYNC JMP CHECK JMP SACCAD /LEFT FIXATION JMP SHOFIX JMP DISPLA XSK I 5 JMP .-6 JMP BLANK /DISPLAY DONE! / /CONTROL ARRIVES HERE ON EYE-MOVEMENT /DURING DISPLAY INTERVAL. SW 4 UP=CONT /DISPLAY FOR TD DURATION; DOWN=TERMINATE /DISPLAY & GO TO PAUSE INTERVAL. / SACCAD, LDA 5 ADD TD STC SACTIM /SAVE TIME SNS 4 JMP BLANK JMP SYNC JMP SHOFIX JMP DISPLA XSK I 5 JMP .-4 /PAUSE "TB" CYCLES / BLANK, LDA I TB, 0 AZE I JMP TM-1 COM STC 5 JMP SYNC JMP SHOFIX XSK I 5 JMP .-3 /MASK STRING ON "TM" CYCLES LDA I TM, 0 AZE I JMP WAIT2 /0=NO MASK COM STC 5 LDA I ADMASK, 0 STC STRING JMP SYNC JMP DISPLA JMP SHOFIX XSK I 5 JMP .-4 /WAIT FOR 10-PANEL STRUCK FOR END TRIAL WAIT2, IOB 6314 IOB 6311 JMP .-2 / /TRIAL OVER: TYPE TIME OF /MOVEMENT, "SACTIM", (=-1 STORED IF NO /MOVEMENT, BUT NOT TYPED OUT HERE (SO /S CAN DISTINGUISH TRIALS ON WHICH /PREMATURE MOVEMENTS OCCURRED.)) / LDA I SACTIM, 0 LDF 7 STA I 17 /SAVE DATA APO I JMP DECPUT JMP TRIAL / ERR1, SET I 1 ELAB1-4000 JMP MESSAG JMP PARAMS /RESTART BLOCK ERR2, SET I 1 ELAB2-4000 JMP ERR1+2 / " " ERR3, SET I 1 ELAB3-4000 JMP ERR1+2 /RESTART BLOCK ERR4, LDA I 207 /RING BELL TWICE JMP TYPE /IF OFF-CENTER JMP TYPE /THEN TYPE MESG. SET I 1 ELAB4-4000 JMP MESSAG JMP AGAIN /GET NEW I0 ERR5, SET I 1 ELAB5-4000 JMP MESSAG JMP CALIB /REDO CALIBR. / ELAB1, TEXT "NOT A FILE!" ELAB2, TEXT "FILE ERROR!" ELAB3, TEXT "TIMING ERROR!" ELAB4, TEXT "OFF-CENTER!" ELAB5, TEXT "OUT OF ORDER!" / LAB1, TEXT "TI CYCLES" LAB2, TEXT "TD CYCLES" LAB3, TEXT "TB CYCLES" LAB4, TEXT "TM CYCLES" LAB5, TEXT "TAPE FILE" LABCR, 0 / /SUBR TYPES OUT CR+ PACKED ASCII MESSAGE /POINTED BY 1. / MESSAG, LDA 0 STC MESRET LDA I C215, 215 JMP TYPE LDA I C212, 212 JMP TYPE LDH I 1 AZE I MESRET, HLT /RETURN ADA I -37 /ADD 100 OR 200 APO /FOR 8-BIT CODE ADD C100 ADA I 237 JMP TYPE JMP MESRET-2 C100, 100 / TYPE, PDP PMODE TSF JMP .-1 TLS LINC LMODE JMP / /SUBR ACCEPTS UNSIGNED 4-DIGIT OCTAL /NUMBER FROM TTY - RUBOUT RESTARTS IT / GET, LDA 0 STC GETRET ENTRY, STC NUM LDA I 275 JMP TYPE /INITIAL "=" SET I 2 -4 NEXDIG, KST JMP .-1 IOB 6036 SAE I 377 JMP .+3 CLR JMP ENTRY /RESTART JMP TYPE ADA I -260 STC LDA I NUM, 0 ROL 3 ADD STC NUM XSK I 2 JMP NEXDIG ADD NUM GETRET, HLT /RETURN / /SUBR NXCHAR: PULLS NEXT 6-BIT ASCII CH /OFF BUFFERED TAPE FILE, UNIT 1 /BUFFER IN LDF 3, 7400-7777 / NXCHAR, DJR LDF 3 LDA 4 AZE /7777=END BUFFER JMP ROOM LDA I 1 ADM I TBLK, 0 /NEXT FILE TBLK STC .+2 RDC U 0 SET I 4 7377 /RESET POINTER JMP ROOM /USE UP DJR ROOM, LDH I 4 AZE JMP /RETURN /REACHED END OF FILE: TYPE MESSAGE AND /HALT. PRESS CONTINUE (WITH PUNCH ON) /FOR I5 OUTPUT OF TRIAL-BY-TRIAL /MOVEMENT TIMES. SET I 1 ENDLAB-4000 JMP MESSAG SET I 1 LABCR-4000 JMP MESSAG HLT LDA 17 COM STC 16 SET I 17 2000 LDF 7 LDA I 17 JMP DECPUT SET I 1 LABCR-4000 JMP MESSAG XSK I 16 JMP .-6 HLT JMP PARAMS /RESTART ENDLAB, TEXT "END OF FILE" / /SUBR DISPLA: DISPLAYS STRING OF ASCII /PACKED AS HALF-WORDS STARTING AT /"STRING" & PROCEEDING UNTIL CR (=43) / DISPLA, LDA 0 STC DISRJ SET I 7 STRING, 0 /AD-1/2 CH STR SET I 1 D0, 130 LDH I 7 SHD I 4300 /43=END STRING DISRJ, HLT /RETURN ROL 1 ADA I PATRN-2 STC 2 /ASCII-PATTERN LDA I Y0, 0 DSC 2 DSC I 2 LDA I DX, 4 ADM 1 JMP D0+1 / /SUBR SYNC: WAITS FOR NEXT CLOCK TICK - /ERROR IF OCCURRED PRIOR TO ENTRY / PMODE PAGE LMODE / SYNC, PDP PMODE CLA CLSA SPA CLA JMP E3 /ERROR CLSA SMA CLA JMP .-2 LINC LMODE JMP PMODE E3, LINC LMODE JMP ERR3 / /PACKED ASCII CHARACTER BUFFER FOR /DISPLAY AND MASK STRINGS / BUFFER, 0 / *.+100 /PATTERN WORDS FOR CHAR DISPL. PATRN, 4477 /A 7744 5177 /B 2651 4136 /C 2241 4177 /D 3641 4577 /E 4145 4477 /F 4044 4136 /G 2645 1077 /H 7710 7741 /I 0041 4142 /J 4076 1077 /K 4324 177 /L 301 3077 /M 7730 3077 /N 7706 4177 /O 7741 4477 /P 3044 4276 /Q 376 4477 /R 3146 5121 /S 4651 4040 /T 4077 177 /U 7701 176 /V 7402 677 /W 7701 1463 /X 6314 770 /Y 7007 4543 /Z 6151 4177 /[ 0000 2040 /\ 0410 0 /] 7741 2000 /^ 2077 3410 /BACK ARROW 1010 0 /SPACE 0 7500 /! 0 6006 /" 60 3614 /NUMBER SIGN 1436 7721 /DOLLAR SIGN 4677 1446 /% 6130 5166 /& 0523 500 /APOSTROPHY 6 4163 /( 0 0 /) 6341 2050 /* 50 404 /+ 437 605 /, 0 404 /- 404 1 /. 0 601 // 4030 4136 /0 3641 2101 /1 177 4523 /2 2151 4122 /3 2651 2414 /4 477 5172 /5 651 1506 /6 4225 4443 /7 6050 5126 /8 2651 5120 /9 3651 4200 /: 0 2601 /; 0 2410 /< 0042 1212 /= 1212 4200 /> 1024 4020 /? 2055