;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< START CONTROL SCLK 0.01 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< SET VARIABLES 0000 DIGOUT [.......0] 0001 SETVAR: MOVI V10,0 ;FIXATION STATE 0002 MOVI V11,0 ;STIMULUS STATE 0003 MOV V30,V20 ;TIME TO GET ON-TARGET DURATION, FROM SCRIPT (MS) 0004 MOV V31,V21 ;INITIAL FIXATION DURATION, FROM SCRIPT (MS) 0005 MOV V32,V22 ;SECONDARY FIXATION DURATION, FROM SCRIPT (MS) 0006 MOV V33,V23 ;OVERLAP DURATION, FROM SCRIPT (MS) 0007 MOV V34,V24 ;REACTION TIME, FROM SCRIPT (MS) 0008 MOV V35,V25 ;FIXATION TIME FOR REWARD, FROM SCRIPT (MS) 0009 MOV V36,V26 ;REWARD DURATION, FROM SCRIPT (MS) 0010 MOVI V50,MS(1)/10 ;FOR CALC OF STEPS/MS 0011 MOVI V51,500 ;FOR TEST PULSE OUTPUT 0012 MUL V30,V50 ;SEQUENCER TIME TO GET ON-TARGET DURATION 0013 MUL V31,V50 ;SEQUENCER INITIAL FIXATION DURATION 0014 MUL V32,V50 ;SEQUENCER SECOND FIXATION DURATION (SOUND+IMAGE) 0015 MUL V33,V50 ;SEQUENCER OVERLAP DURATION 0016 MUL V34,V50 ;SEQUENCER REACTION TIME 0017 MUL V35,V50 ;SEQUENCER FIXATION TIME FOR REWARD 0018 MULI V36,MS(1) ;SEQUENCER REWARD DURATION 0019 MULI V51,MS(1) ;SEQUENCER FOR TEST PULSE OUTPUT ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END SET VARIABLES 0020 BLACK: BEQ V11,0,BLACK ;WAIT UNTIL FIXATION TARGET IS PRESENTED,FROM SCRIPT 0021 REDUX1: CHAN V3,2 0022 CHAN V4,3 0023 NOP 0024 NOP 0025 NOP 0026 BGT V3,V5,GETONTAR ;WAIT TO GET ON TARGET 0027 OK1: BLT V3,V6,GETONTAR ;WAIT TO GET ON TARGET 0028 OK2: BGT V4,V7,GETONTAR ;WAIT TO GET ON TARGET 0029 OK3: BLT V4,V8,GETONTAR ;WAIT TO GET ON TARGET 0030 JUMP FIXTARON ;START EXPERIMENT, MOVE ON 0031 GETONTAR: DBNZ V30,REDUX1 ;SUBJECT MUST FIX ON TARGET BEFORE V30 GETS TO ZERO 0032 JUMP FAIL 0033 FIXTARON: BEQ V11,0,FIXTARON ;CHECK THAT FIXATION TARGET IS BEING PRESENTED,FROM SCRIPT 0034 MOVI V10,2 0035 REDUX2: CHAN V3,2 0036 CHAN V4,3 0037 NOP 0038 NOP 0039 NOP 0040 BGT V3,V5,FAIL 0041 BLT V3,V6,FAIL 0042 BGT V4,V7,FAIL 0043 BLT V4,V8,FAIL 0044 DBNZ V31,REDUX2 ;STAY ON TARGET FOR DURATION V31 0045 MOVI V10,1 ;STAYED ON TARGET, VAR TO SCRIPT 0046 SOUND: BEQ V11,1,SOUND ;CHECK THAT SOUND IS BEING PRESENTED,FROM SCRIPT 0047 MOVI V10,0 0048 REDUX3: CHAN V3,2 0049 CHAN V4,3 0050 NOP 0051 NOP 0052 BGT V3,V5,FAIL 0053 BLT V3,V6,FAIL 0054 BGT V4,V7,FAIL 0055 BLT V4,V8,FAIL 0056 DBNZ V32,REDUX3 ;LOOK AT FIXATION TARGET FOR DURATION V32 0057 MOVI V10,1 ;LOOKED AT FIXATION TARGET, VAR TO SCRIPT 0058 IMAGEON: BEQ V11,2,IMAGEON ;WAIT UNTIL IMAGE IS PRESENTED,FROM SCRIPT 0059 MOVI V10,2 0060 REDUX4: CHAN V3,2 0061 CHAN V4,3 0062 NOP 0063 NOP 0064 NOP 0065 BGT V3,V5,GETONIMG ;WAIT TO GET ON IMAGE 0066 OK4: BLT V3,V6,GETONIMG ;WAIT TO GET ON IMAGE 0067 OK5: BGT V4,V7,GETONIMG ;WAIT TO GET ON IMAGE 0068 OK6: BLT V4,V8,GETONIMG ;WAIT TO GET ON IMAGE 0069 JUMP REDUX5 ;LOOKED AT IMAGE, MOVE ON 0070 GETONIMG: DBNZ V34,REDUX4 ;SUBJECT MUST FIX ON IMAGE BEFORE V34 GETS TO ZERO 0071 JUMP FAIL 0072 REDUX5: CHAN V3,2 0073 CHAN V4,3 0074 NOP 0075 NOP 0076 NOP 0077 BGT V3,V5,FAIL 0078 BLT V3,V6,FAIL 0079 BGT V4,V7,FAIL 0080 BLT V4,V8,FAIL 0081 DBNZ V35,REDUX5 ;LOOK AT IMAGE FOR DURATION V35 FOR REWARD 0082 MOVI V10,1 ;LOOKED AT IMAGE, VAR TO SCRIPT 0083 JUMP REWARD 0084 REWARD: DIGOUT [......11] 0085 DELAY V36 0086 DIGOUT [......00] 0087 JUMP SETVAR 0088 FAIL: JUMP SETVAR ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END CONTROL