File EXAMPL.SK

Directory of image this file is from
This file as a plain text file

		////////////////////////////////////////
	       /                                      /
	      /     FIXED RATIO 60                   /
	     /   TIME-SHARE SUPER  SKED             /
	    /                                      /
	   ////////////////////////////////////////
/FR60S.SK    FIXED RATIO 60  EXAMPLE
/**SKED PROGRAM TO COLLECT EVERY IRT
/AND APPEND IT TO A CODE NUMBER

/2=LIGHT ABOVE LEVER	3=FEEDER   4=STEPPER   5=REPORT   6=MOTOR   1=RESET
/Z1=COUNT OF REINFORCEMENTS
/Z2=CUMULATIVE RECORDER
/CODE: 0=IRT
/	 1=REINFORCED IRT
/	 7=END OF SESSION
/	 2=RESPONSES DURING REINFORCEMENT
/	 3=END OF REINFORCEMENT CYCLE
S.S.1,/RATIO
S1,
	R12:ON2,4,5,6,1;OPEN;IF B=0[SET B=60];SET B(1)=B--->S2 /DEFAULT RATIO SIZE=60
S2,
	B(1) R1:RECORD 1;SET B(1)=B;ON3;OFF2,5,6;Z2;Z1--->S3 /FEED ON,LIGHT & MOTOR
						/OFF,REPORT,CODE=1
	R1:OFF4;Z2;;RECORD0--->SX   /STEP RECORDER,INC COUNTER & CODE=0
S3,
	R1:RECORD 2;--->SX  /NO CUM RECORD,INC COUNTER & CODE=2
	4":OFF3;ON6,2;RECORD 3;--->S2 /OFF FEED,ON LIGHT & MOTOR
						/INC COUNTER & CODE=3
S.S.2,/CUMULATIVE RECORDERS
S1,
	Z2--->S2
S2,
	.02":ON4,5--->S1	/STEP AND/OR REPORT
S.S.3,/END OF SESSION
S1,
	R12--->S2
S2,
	60'+100Z1+R13:RECORD 7--->S3	/CODE=7
                                        /END SESSION FROM KEYBOARD
S3,
	.01":CLOSE--->STOP	/HIT LAST DUMP 'TILL WE HAVE TIME
$

//////////////////////////////////////// / / / VARIABLE INTERVAL / /****FOR SUPER SKED*** / / / //////////////////////////////////////// /VI WITH CODED IRTS AND DUMPS /VINTER.SK /CONTAINS LIST FOR ONE AND TWO MINUTE VI-SELECT WITH "/" /TIMES MAY BE SELECTED RANDOMLY OR SEQUENTIALY -- USE "/" / TO COMMENT OUT RAND OR LIST FUNCTION IN S1 & S2 OF S.S.1 CTRS=1 /3 = FEEDER /2 = LIGHT /1 = RESET /4 = STEPPER /5 = REPORT /6 = MOTOR /CODE :0=IRT / 1=REINFORCED IRT / 7=END OF SESSION / 2=RESPONSES DURING REINFORCEMENT / 3=END OF REINFORCEMENT CYCLE / 4=END OF INTERVAL / /VARIABLES: A=LIST OF INTERVALS / B=POINTER TO NEXT ELEMENT--B MAY BE SET BEFORE SESSION STARTS / Z=CURRENT INTERVAL / /TWO MINUTE VI /LIST A=6",12.32",18.98",26.04",33.54",41.54",50.11",59.34",69.34",80.25", /92.25",105.59",120.59",137.73",157.73",181.70",211.73",251.73",311.73",431.73" / /ONE MINUTE VI LIST A=15",40",80",3",110",50",118",20",105",115",5",100",30",10",60",90",70",17" / / S.S.1,/ IRT CODING S1, / R12:LIST Z=A(B);ON2,1,4,5,6;OPEN-->S2 R12:RAND Z=A;ON1,2,4,5,6;OPEN---->S2 /RANDOM FROM LIST A S2, / Z T:LIST Z=A(B);RECORD 4--->S3 Z T:RAND Z=A;RECORD 4--->S3 /RAND WITHOUT REPLACEMENT R1:RECORD 0;OFF4;Z3-->SX S3, R1:ON3;OFF2,5,6;Z3;RECORD 1-->S4/START RF S4, 4":OFF3;ON2,6;RECORD 3-->S2/END RF & START OF NEXT INTERVAL R1:RECORD 2-->SX/ RESPONSES DURING RF COUNTED S.S.4,/ CUMMULATIVE RECORDERS S1, Z3-->S2 S2, .02":ON4,5-->S1 S.S.5,/ END SESSION AND FINAL DUMP S1, R12-->S2 S2, 60':RECORD 7-->S3 R13:RECORD 7-->S3 S3, .01":CLOSE-->STOP/ FINAL DUMP $
//////////////////////////////////////// / / / FI FR (STRIPPED DOWN VERSION) / /FOR SUPER SKED! / / / //////////////////////////////////////// COUNTERS=8 / EVERY IRT IS COLLECTED / RATIO SIZE IS 20 AND INTERVAL SIZE IS 7' / 1-RESET 2-SD LIGHT AND TONE 3-FEEDER AND REPORT (RECORDS REIN.) / 4-STEPPER (RESPONSES) 5-MOTOR AND EVENT MARKER (RECORDS CHANGE / IN SCHEDULE) 6-HOUSELIGHT / / Z1-STARTS FR AFTER T.O. Z2-CUMULATIVE RECORDER OPERATION / Z4-STARTS FI AFTER T.O. Z5-STARTS T. O. Z7- SD OPERATION FOR FR / Z8-STOPS SD DURING REIN. IN FI. Z9-COUNTS COMPLETE CYCLES. / SESSION ENDS AFTER 6 CYCLES OR 60' / / IRT CODES / 0- IRT 1-REINFORCED IRT 2- RESPONSES DURING REINFORCEMENT / 3- END OF REINFORCEMENT CYCLE 4-END OF LIMITED HOLD / 5- END OF TIME OUT 6- END OF TIME OUT / 7- END OF SESSION / /MONITOR COUNTERS FOR DURING SESSION. NOT DUMPED AUTOMATICALLY /COUNTER: /1-RESPONSES DURING FR /2-FR REINFORCEMENTS /3-RESPONSES DURING FI /4-REINFORCEMENTS DURING FI /5-NUMBER OF FR REINFORCEMENTS MISSED BECAUSE OF LIMITED HOLD /6-NUMBER OF TIMES FI REINFORCEMENT IS MISSED BECAUSE OF LIMITED HOLD /7-RESPONSES DURING FR TIME OUT /8-RESPONSES DURING FI TIME OUT / S.S.1, /FIXED RATIO S1, R12:OPEN;ON1,2,5,6;Z7;SET S=1--->S2 S2, 20 R1:RECORD 1;ADD 1;ON3;OFF2,5;Z8--->S3 /CODE=1 R1:RECORD 0;OFF4;Z2;ADD 1--->SX /STEP & RECORD IRT 5':RECORD 4;ADD 5;Z5,8--->S4 /EXPIRATION OF LH IN RATIO S3, R1:OFF4;RECORD 2;Z2--->SX / CUM REC. CODE=2 4":OFF3;RECORD 3;Z5;ADD 2--->S4 /OFF FEED, EVENT MARKS END OF RF.,STARTS /T.O. CODE=3 S4, Z1:SET S=1;ON1,2,5,6;Z7--->S2 /STARTS FR AFTER T.O. /VALUE OF S INDICATES THAT NEXT /TIME OUT IS A RATIO TIMEOUT / S.S.2, /FI7' S1, Z4:SET S=2;ON2,5,6--->S2 /Z4 FROM FR T.O. STARTS INTERVAL. S2, R1: RECORD 0;OFF4;Z2;ADD 3--->SX /CODE=0, R ARE COUNTED. 7':RECORD 6--->S3 /END OF FI INTERVAL. CODE=6 S3, R1:RECORD 1;ON3;OFF2,5;ADD 4--->S4 /REIN. R. CODE=1 1':RECORD 4;OFF5;Z5;ADD 6--->S1 / LIMITED HOLD. STARTS FI T.O. S4, 4":OFF3;RECORD 3;Z5--->S1 /END REIN. CODE=3 /STARTS FI T.O. R1:RECORD 2--->SX /COUNTS R DURING REIN. CODE=2 / S.S.3, / FR DISC. STIMULI OPERATION S1, Z7--->S2 / STARTS OF FR STARTS THIS S.S. SD ARE ON. S2, .04":OFF2--->S3 /SD IS ON .O4" /RESTART BY BEGINNING OF FI. Z8:OFF2--->S1 /TURNS OFF SD DURING REINFORCEMENT S3, .15":ON2--->S2 / AFTER .15" OFF, TURNS ON Z8--->S1 / FR LIMITED HOLD HAS EXPIRED OR REINFORCEMENT HAS / OCCURRED. WAIT FOR START OF NEXT RATIO / S.S.4, /TIME OUT S1, Z5:OFF2,6--->S2 /STARTS T.O.,OFF HL,REPORT /REPORT-MOTOR OFF. Z2 TURNS ON /AFTER .O2" IN S.S.2 S2, R1:RECORD 0;Z2;OFF4 --->SX /COUNT R DURING T.O. 25"--->S3 /R DURING 1ST. 25" HAVE NO EFFECT S3, R1:RECORD 0;Z2;OFF4;IF S=2; ADD 8--->S3 /R RESETS CLOCK TO 5" :ADD 7--->S3 5":RECORD 5;IF S=2;OFF1;Z1,2,9--->S1 :Z4,2--->S1 /IF S=2, THIS MEANS THAT LAST SCHEDULE WAS AN INTERVAL, SO /START RATIO,RESET CUMULATIVE RECORDER, AND COUNT COMPLETE / CYCLE (Z1,9). IF S IS NOT /EQUAL TO 2 THEN LAST SCHEDULE WAS A RATIO SO INTERVAL /IS STARTED BY GOING TO NEXT (DEFAULT) LINE. /CODE 5 IS END OF TIME OUT. / S.S.5, /CUMULATIVE RECORDER OPERATION FOR ALL STATE SETS. S1, Z2--->S2 S2, .02":ON1,4--->S1 /RESET,STEPPER,REPORT / S.S.6, / ENDING SESSION S1, R12--->S2 S2, R13 + 6Z9 + 60' :RECORD 7--->S3 /RECORDS TIME BETWEEN LAST RESPONSE AND END OF SESSION /SESSION ENDS AFTER 6 CYCLES OR 60 MINUTES
S3, .01":CLOSE--->STOP /END OF SESSION DUMP
//////////////////////////////////////// / / /FIXED RATIO 45 / /12 HOUR SESSION / / / //////////////////////////////////////// CTRS=38 /NEWFR45.SK /1=RESPONSES /2=RESPONSES DURING THE REINFORCEMENT /3=POSTREINFORCEMENT PAUSES /4=RATIO DURATION /CF=HISTOGRAM OF RF FREQUENCY /2=LIGHT--3=FEEDER--4=REPORT /R1=LEVER /E(1)=CURRENT RATIO SIZE /E(0)=RATIO SIZE /X=STARTING TIME /Y=ENDING TIME /L=LENGTH OF SESSION IN HALF HOURS AND IS AN INTEGER /A=THE NUMBER OF UNUSED SPACES FOR DATA /Z1=START OF REINFORCEMENT /Z2=END OF REINFORCEMENT /Z3=RECORDER S.S.1,/RATIO S1, / DEFAULT RATIO SIZE IS 45 , SET E TO CHANGE RATIO SIZE R12:ON2;OPEN;IF E=0[SET E=45]; SET E(1)=E;TIME X;WRITE E,16; IF L=0[SET L=22]--->S2 / L MAX=22 S2, R1:ADD 1--->SX / AFTER ONE RATIO FEEDER AND REPORT ON,LIGHT OFF,RESET E(1) TO 45 E(1) R1:ON3,4;OFF2;Z1;SET E(1)=E--->S3 S3, R1:ADD 2--->SX / THE FEEDER IS UP FOR 4 SECONDS 4":OFF3,4;ON2;Z2--->S2 S.S.2,/END S1, R12--->S2 S2, / EVERY 30 MINUTES PRINT THE FIRST FOUR COUNTERS UNTIL 22 HOURS ARE UP 30':ADD A;FOR I=1,1,4;WRITE C(I),16;SET C(I)=0;NEXT;IF A<L--->SX :--->S3 R13:SET L=A--->S3 S3, / 96=24*4, THAT IS 12 HOURS TIMES THE FIRST FOUR COUNTERS+8 DUMMYS, 1":TIME Y;SET A=A*4;SET A=96-A; FOR I=1,1,A;WRITE 0,16--->S4 / PRINT ZEROES WHERE THERE IS NO DATA S4, / PRINT THE FREQUENCY HISTOGRAM WHICH HAS 34 COUNTERS / THEN PRINT THE TIME STARTED AND THE TIME FINISHED 1":FOR I=5,1,38;WRITE C(I),16;NEXT;WRITE X,16;WRITE Y,16;WRITE Z,16; WRITE L,16--->S5 S5, .01":CLOSE--->STOP S.S.3,/PAUSES AND RATIO TIMES S1, R12--->S2 S2, .01":ADD Z--->SX R1--->S4 S3, .01":ADD 3--->SX R1--->S4 S4, .01":ADD 4--->SX Z1--->S5 S5, Z2--->S3 S.S.4,/HISTOGRAM OF RF FREQUENCY S1, R12:SET F=5--->S2 S2, 12":ADD F;Z4--->SX Z1:ADD CF;SET F=5--->S2 10Z4:--->S3 S3, 120":ADD F;Z4--->SX Z1:ADD CF;SET F=5--->S2 20Z4--->S4 S4, Z1:ADD CF;SET F=5--->S2 40':ADD F;Z4--->SX 3Z4:--->S5 S5, Z1:ADD CF;SET F=5--->S2 $
//////////////////////////////////////// / / / DURATION DISCRIMINATION / / FOR SUPER SKED / / / //////////////////////////////////////// /DURATION DISCRIMINATION PROGRAM /LATEST REVISION AS OF SEPT. 16,1977 /STIMULI / 1=SONALERT OR CLICKER / 2=FEEDER OPERATE / 3=FEEDER LIGHT / 4=HOUSELIGHT / 5=CUM RECORDER STEP / 6=CUM RECORDER PIP / 7=RIGHT KEY LIGHT RED / 8=CUM RECORDER EVENT PEN / 9=LEFT KEY LIGHT RED / 10=LEFT KEY LIGHT GREEN / 11=RIGHT KEY LIGHT GREEN / 12=CUM RECORDER MOTOR START /RESPONSES / R1=LEFT KEY / R2=RIGHT KEY / R3=DOOR SWITCH /COUNTERS / C1-SHORT DURATION STIMULUS, RIGHT KEY RED / C2=SHORT DURATION STIMULUS, RIGHT KEY (CORRECT ) RESPONSE / C3=SHORT DURATION STIMULUS, LEFT KEY GREEN / C4=SHORT DURATION STIMULUS, LEFT KEY (INCORRECT) RESPONSE / C5=SHORT DURATION STIMULUS, RIGHT KEY GREEN / C6=SHORT DURATION STIMULUS, RIGHT KEY (INCORRECT) RESPONSE / C7=SHORT DURATION STIMULUS, LEFT KEY RED / C8=SHORT DURATION STIMULUS, LEFT KEY (CORRECT) RESPONSE C9=LONG DURATION STIMULUS, RIGHT KEY RED / C10=LONG DURATION STIMULUS, RIGHT KEY (INCORRECT)RSPONSE / C11=LONG DURATION STIMULUS, LEFT KEY GREEN / C12=LONG DURATION STIMULUS, LEFT KEY (CORRECT) RESPONSE / C13=LONG DURATION STIMULUS, RIGHT KEY GREEN / C14=LONG DURATION STIMULUS, RIGHT KEY (CORRECT) RESPONSE / C15=LONG DURATION STIMULUS, LEFT KEY RED / C16=LONG DURATION STIMULUS, LEFT KEY (INCORRECT) RESPONSE / C17= TOTAL NUMBER OF CORRECT RESPONSES / C18=TOTAL NUMBER OF CORRECT RESPONSES TO SHORT DURATION STIMULI / C19=TOTAL NUMBER OF CORRECT RESPONSES TO LONG DURATION STIMULI / C20=TOTAL NUMBER OF RESPONSES / C21=TOTAL NUMBER OF REINFORCERS / C22= TOTAL SESSION LENGTH IN MINUTES /FOR SHORT DURATION STIMULI (1-5"), RED IS THE CORRECT RESPONSE /FOR LONG DURATION STIMULI (6-10"), GREEN IS THE CORRECT RESPONSE /Z PULSES / Z1=RESPONSE PRODUCED CLICK / Z2=CUM RECORDER CONTROL / Z3=CONTROLS SESSION TERMINATION CTRS=30 LIST A = 1",10" S.S.1, /DURATION DISCRIMINATION S1, R12:OPEN; ON 12; RAND B = A;IF V=0 [SET V=4] --->S2 S2, 8":SET B(1)=B;ON 1,4 --->S3 R1:ADD 23---->S2 R2:ADD 24 --->S2 S3, B T: OFF 1;RAND B=A; IF B(1)<6" --->S4 :---->S7 R1: ADD 25 --->SX R2: ADD 26 ---->SX S4, /SHORT DURATION STIMULUS PRESENTATIONS .01":Z10;WITH P=500; ON 7,10;ADD 1;ADD 3;WRITE B(1),2; ---->S5 :ON 9,11; ADD 5;ADD 7;WRITE B(1),1 ---->S6 S5, R2:ADD X;OFF 7,10;ON 1,3,5;Z1;Z2;ADD 2;ADD 17;ADD 18; ADD 20;IF X=V ;ON 2,6 ---->S11 : --->S10 R1:OFF 4,7,10;ON 1,8;ADD 4;ADD 20;Z1;Z2 --->S12 S6, R1:ADD X;OFF 9,11;ON 1,3,5;Z1;Z2;ADD 8;ADD 17;ADD 18; ADD 20;IF X=V;ON 2,6 --->S11 : --->S10 R2:OFF 4,9,11;ON 1,8;ADD 6;ADD 20;Z1;Z2 --->S12 S7, .01":Z10;WITH P=500; ON 7,10;ADD 9;ADD 11;WRITE B(1),1 --->S8 :ON 11,9;ADD 13;ADD 15;WRITE B(1),2 --->S9 S8, R1:ADD X;OFF 7,10;ON 1,3,5;Z1;Z2;ADD 12;ADD 17;ADD 19; ADD 20;IF X=V;ON2,6 ---->S11 : --->S10 R2:OFF 4,7,10;ON 1,8;Z1;Z2;ADD 10;ADD 20 ---->S12 S9, R2:ADD X;OFF 9,11; ON 1,3,5;Z1;Z2;ADD 14;ADD 17;ADD 19; ADD 20;IF X=V; ON 2,6 ---->S11 : --->S10 R1:OFF 4,9,11;ON 1,8;Z1;Z2;ADD 16;ADD 20 --->S12 S10, 1.0": OFF 3,4 ---->S2 S11, 3":OFF 2,3,4; SET X=0;Z3;ADD 21 ---->S2 S12, 8":ON 1,4;SET B(3)=B(1);ADD 29 --->S13 R1:ADD 27 --->S12 R2:ADD 28 --->S12 S13, B(3) T:OFF 1;IF B(1)<6"--->S4 : --->S7 R1:ADD 25 --->SX R2:ADD 26 --->SX S.S.2, /RESPONSE PRODUCED CLICK S1, R12: ---->S2 S2, Z1: ---->S3 S3, .05":OFF 1 ---->S2 S.S.4, /CUM RECORDER FUNCTIONS S1, R12: ---->S2 S2, Z2: ---->S3 S3, .10":OFF 5,6,8 ---->S2 S.S.5, /SESSION TERMINATION S1, R12: ---->S2 S2, 40Z3 +150': OFF 12;WRITE C(23),6;WRITE C(24),6;
WRITE C(27),6;WRITE C(28),6; WRITE 0,7 ---->S3 S3, .01":CLOSE --->STOP S.S.6, /SESSION LENGTH S1, R12: ---->S2 S2, 1': ADD 22 ---->S2 S.S.7, S1, Z10: --->S2 S2, R1:SET D=C25 +C26;WRITE D,5;IF X=V;WRITE L,11 --->S1 :WRITE L,1 --->S1
R2:SET D=C25 + C26;WRITE D,5;IF X=V;WRITE L,12 --->S1 :WRITE L,2 --->S1 .01":ADD L --->SX
//////////////////////////////////////// / / /RESPONSE DURATION SHAPING / /TOLUENE SELF ADMINSTRATION / / / //////////////////////////////////////// / /TOL2.SK / /DATE: 5 SEPT 77 / / / / / / CTRS=12 / /R1 BEAM BROKEN /R2 BEAM UNBROKEN /R3 LICKOMETER IN HELMET /R4 FOOD LEVER /R5 CHAMBER H2O SPOUT CONTACT / VARIABLE CONTENTS / A=X00 SESSION START TIME (DEFAULT 1100) / B=X00 SESSION STOP TIME (DEFAULT 1500) / D=X00 STOP WATER AVAILABILITY AFTER B / V=DURATION REQUIREMENT (DEFAULT 15") /R12 START,AFTER /R13 TO SET DEFAULTS, OR / ENTER VALUES AND R13 TO SET FROM KBD /R14 FORCE SESSION START REGARDLESS OF TIME OF DAY /R15 FORCE SESSION TERMINATION REGARDLESS OF TIME OF DAY /R20 TERMINATE / /STIMULI /1 HOUSELIGHT /2 JUICE /3 FOOD /4 INHALANT /5 STEP /6 SLASH /7 EVENT /8 RESET /9 JUICE IN HELMET /10 INHALANT AVAILABLE LIGHT / / / COUNTERS ARE DOUBLE PRECISION /0 BEAM BROKEN OR INHALANT DELIVERIES /1 LICKS IN HELMET /2 LIQUID REINFORCER DELIVERIES IN HELMET /3 PELLET DELIVERIES /4 TRAY RESPONSES /5 LIQUID DELIVERIES ON FR1--R5 /6 TOTAL INHALANT DELIVERY DURATION / / PANEL ASSIGNMENTS / 1-10 OUTPUTS / 18-22 INPUTS / 32 GND / 31 +24VDC / 13 +5VDC / 11 SHIELDS /
/ /UNINTERRUPTED RESPONSE DURATION SHAPING PROGRAM /INCREMENTS DURATION REQUIREMENT WITH EACH REINFORCEMENT /REINFORCER DELIVERY CONTINGENT UPON A SECOND RESPONSE / S.S.1, S1, R12:ON1--->SX R13: IF V=0 [SET V=15"];SET V(1)=V; IF A=0 [SET A=1100]; IF B=0 [SET B=1500]; IF D=0 [SET D=1530];--->SX R14:ON10--->S2 R2:OFF4,7--->SX Z3:IF Y=A;ON10--->S2 S2, Z3:IF Y=B;OFF10--->S6 R15:OFF10--->S1 R1:SET V(1)=V;ON4,7;ADD 0--->S3 /EVENT PEN ON R2:OFF4,7--->SX R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 S3, Z3:IF Y=B;OFF10--->S6 R15:OFF10--->S1 V(1) T--->S4 /DURATION REQUIREMENT SATISFIED R2:OFF4,7--->S2 /DURATION INTERRUPTED,EVENT PEN OFF R3:Z6;ON5;Z1--->SX /STEP ON LICK R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 S4, Z3:IF Y=B;OFF10--->S6 R15:OFF10--->S1 R2:OFF4,7--->S2 /EVENT PEN OFF R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 R3:Z6;ADD 2;ON9,6,5;Z1--->S5 /JUICE ON,RECORDER SLASH,STEP S5, Z3:IF Y=B;OFF6,9,10--->S6 R15:OFF10--->S1 R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 R2:OFF4,7--->SX 1":OFF9,6;IF V<15" [SET V=V+.50"];SET V(1)=V;Z2--->S2 /TERMINATE JUICE,INCREMENT DURATION / /REMOVE THESE TWO STATES FOR 24 HR AVAILABILITY /AND THE Z3 TRANSITION LINES IN S.S.1; /INSURE TRANSITION TO STATE 2 / S6, Z3:IF Y=A;ON10--->S2 R14:ON10--->S2 R1:ADD 0--->S7 R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 S7, Z3:IF Y=A;ON10--->S2 R14:ON10--->S2 R2:--->S6 R3:Z6--->SX R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 / / S.S.2, S1, Z1--->S2 S2, .04":OFF5,8--->S1 /TURN OFF STEP AND RESET AFTER ONE SHOT / / / GATING AND Z PULSE EVENTS WITHOUT STATE TRANSITIONS / / S.S.3, S1, / TURN ON SESSION LIGHT AT 5 AM Z3:IF Y=500;ON1--->SX / COUNT LICKS IN HELMET Z6:ADD 1--->SX //ACCUMULATE INHALANT DURATION .01" :&S.S.1=3;ADD 6--->SX :&S.S.1=4:ADD 6--->SX :&S.S.1=7:ADD 6--->SX / / / /CRF FOR LICKS (R5) / AVAILABLE FROM B TO D (TIME OF DAY) / TO CHANGE TO 24 HR OPERATION, REPLACE 1ST Z3 WITH R12,AND / DELETE 2ND Z3 CHECK / S.S.4, S1, / R12:--->S2 //24 HR AVAILABILITY!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Z3: IF Y=B;ON2;--->S3 S2, Z3: IF Y=D--->S1 R5:ADD 5;ON2,5;Z1--->S3 /JUICE ON,RECORDER STEP R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 S3, 1":OFF2,6--->S2 R20:OFF1,2,3,4,5,6,7,8,9,10--->S1 / /PELLET DELIVERIES CONTINGENT ON TRAY PULLS / 9/16/77 1700 LEVER NOT REINFORCED WHEN HEAD IN HELMET / S.S.7, S1, R12:--->S2 S2, R4:ADD 4--->SX 10R4:&S.S.1=1:ADD 3;ON3--->S3 /29 SEPT DAMN!!! 10R4:&S.S.1=2:ADD 3;ON3--->S3 / GATE FOR HEAD OUT 10R4:&S.S.1=6:ADD 3;ON3--->S3 S3, .10":OFF3--->S4 S4, 5":--->S2 / / / / / /RECORD /SIMULATES PRINTOUT COUNTER /30 MINUTE INTERVAL /11 COUNTERS (0-10), AND TIME OF DAY IN COUNTER 12 (11) / / S.S.8, S1, R12:OPEN--->S2 S2, 1":TIME Y; IF Y(2)=30 ;Z3--->S3 :IF Y(2)=0 ;Z3--->S3 S3, 30':TIME Y;SET C(11)=Y;ON8;Z3;Z1; FOR I=0,1,11;WRITE C(I),16;SET C(I)=0;NEXT; IF Y(1)=21;OFF1;--->SX R20:WRITE 0,7--->S4 S4, .01":CLOSE--->S1 / $



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search