Directory of image this file is from
This file as a plain text file
FORTR / TEMPORAL SCORING / SC3GRA PROGRAM TO COMBINE DATA FROM SESSION 3 OVER / SUBJECTS AND SCORE ALONG SEVERAL DIMENSIONS. UP TO / 20 SUBJECTS PER RUN. / 7-25-75 M.W.A. / FIRST DIMENSION=ANSWER CODE 2ND = QUESTION #. \25, NOP CALL 0,OPEN CALL 2,READ ARG (1 ARG \50 CALL 1,IOH ARG \NSUB CALL 1,IOH ARG 0 JMP ^A CPAGE 24 \50, 5047 1625 1502 522 4017 640 2325 212 503 2423 4025 2040 2417 4061 6640 7540 4047 5411 6251 0 ^A, DCA \I ^B, ISZ \I TAD \I CIA TAD \NSUB SPC JMP ^C CALL 2,READ ARG (1 ARG \70 CMA CALL 2,SUBSC ARG \I ARG \FILE ^D CALL 1,IOH ^D, ARG 0 CALL 1,IOH ARG 0 JMP ^E CPAGE 3 \70, 5001 6651 0 ^E, \75, NOP JMP ^B ^C, CALL 0,CKIO TAD (0 HLT CLA CALL 0,OPEN / / READ IN DATA / CIA IAC CIA DCA \K DCA \I ^F, ISZ \I TAD \I CIA TAD \NSUB SPC JMP ^G IAC TAD \K DCA \K TAD (14 CALL 1,MPY ARG \K DCA \J1 CMA CALL 2,SUBSC ARG \I ARG \FILE [0 CALL 1,IFAD ARG [0 CALL 1,STO ARG \FNAME CALL 2,IOPEN ARG ]3 ARG \FNAME DCA \J ^H, ISZ \J TAD \J CIA TAD (14 SPC JMP ^I TAD \J TAD \J1 DCA \J2 CALL 2,READ ARG (4 ARG \85 CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG \I3 CALL 1,IOH ARG \I4 CALL 1,IOH ARG \I5 CALL 1,IOH ARG 0 JMP ^J CPAGE 3 \85, 5065 1162 5100 ^J, TAD (300 CALL 3,SUBSC ARG (1 ARG \J2 ARG \ICODE [0 TAD \I1 DCA I [0 TAD (300 CALL 3,SUBSC ARG (2 ARG \J2 ARG \ICODE [0 TAD \I2 DCA I [0 TAD (300 CALL 3,SUBSC ARG (3 ARG \J2 ARG \ICODE [0 TAD \I3 DCA I [0 TAD (300 CALL 3,SUBSC ARG (4 ARG \J2 ARG \ICODE [0 TAD \I4 DCA I [0 TAD (300 CALL 3,SUBSC ARG (5 ARG \J2 ARG \ICODE [0 TAD \I5 DCA I [0 / 1=TEMP OR SPAT,2=PRESENT.CODE,3,4,5=1ST,2ND,3RD QUES. \90, NOP JMP ^H ^I, DCA \J ^K, ISZ \J TAD \J CIA TAD (14 SPC JMP ^L CALL 2,READ ARG (4 ARG \95 CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG \I3 CALL 1,IOH ARG \I4 CALL 1,IOH ARG \I5 CALL 1,IOH ARG \I6 CALL 1,IOH ARG \I7 CALL 1,IOH ARG \I8 CALL 1,IOH ARG \I9 CALL 1,IOH ARG 0 JMP ^M CPAGE 12 \95, 5063 1163 5465 3054 6311 6354 6530 5463 1163 5100 ^M, \100, NOP JMP ^K ^L, DCA \J ^N, ISZ \J TAD \J CIA TAD (14 SPC JMP ^O TAD \J TAD \J1 DCA \J2 CALL 2,READ ARG (4 ARG \105 CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG \I3 CALL 1,IOH ARG \I4 CALL 1,IOH ARG \I5 CALL 1,IOH ARG \I6 CALL 1,IOH ARG \I7 CALL 1,IOH ARG \I8 CALL 1,IOH ARG \I9 CALL 1,IOH ARG 0 JMP ^P CPAGE 14 \105, 5065 3054 6311 6354 6530 5463 1163 5465 3054 6311 6351 0 ^P, TAD (300 CALL 3,SUBSC ARG (1 ARG \J2 ARG \ITEMP [0 TAD \I1 DCA I [0 TAD (300 CALL 3,SUBSC ARG (2 ARG \J2 ARG \ITEMP [0 TAD \I4 DCA I [0 TAD (300 CALL 3,SUBSC ARG (3 ARG \J2 ARG \ITEMP [0 TAD \I7 DCA I [0 TAD (300 CALL 3,SUBSC ARG (1 ARG \J2 ARG \ISPAT [0 TAD \I2 DCA I [0 TAD (300 CALL 3,SUBSC ARG (2 ARG \J2 ARG \ISPAT [0 TAD \I5 DCA I [0 TAD (300 CALL 3,SUBSC ARG (3 ARG \J2 ARG \ISPAT [0 TAD \I8 DCA I [0 TAD (300 CALL 3,SUBSC ARG (1 ARG \J2 ARG \ICARD [0 TAD \I3 DCA I [0 TAD (300 CALL 3,SUBSC ARG (2 ARG \J2 ARG \ICARD [0 TAD \I6 DCA I [0 TAD (300 CALL 3,SUBSC ARG (3 ARG \J2 ARG \ICARD [0 TAD \I9 DCA I [0 \110, NOP JMP ^N ^O, \125, NOP JMP ^F ^G, / / ZERO ARRAYS / TAD (2 CALL 3,SUBSC ARG (1 ARG (1 ARG \NOMIT [0 DCA I [0 TAD (2 CALL 3,SUBSC ARG (2 ARG (1 ARG \NOMIT [0 DCA I [0 TAD (2 CALL 3,SUBSC ARG (1 ARG (2 ARG \NOMIT [0 DCA I [0 TAD (2 CALL 3,SUBSC ARG (2 ARG (2 ARG \NOMIT [0 DCA I [0 DCA \I ^Q, ISZ \I TAD \I CIA TAD (3 SPC JMP ^R DCA \J ^S, ISZ \J TAD \J CIA TAD (2 SPC JMP ^T TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ITFIR [0 DCA I [0 TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ISFIR [0 DCA I [0 TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ICFIR [0 DCA I [0 TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ITLAS [0 DCA I [0 TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ISLAS [0 DCA I [0 TAD (3 CALL 3,SUBSC ARG \J ARG \I ARG \ICLAS [0 DCA I [0 \130, NOP JMP ^S ^T, JMP ^Q ^R, / / INPUT TYPE OF ANALYSIS / CALL 2,READ ARG (1 ARG \160 CALL 1,IOH ARG \NPRC CALL 1,IOH ARG 0 JMP ^U CPAGE 27 \160, 5047 1625 1502 522 4017 640 2022 523 516 2401 2411 1716 4003 1716 411 2411 1716 2340 5540 4047 5411 6151 0 ^U, DCA \I ^V, ISZ \I TAD \I CIA TAD \NPRC SPC JMP ^W CALL 2,READ ARG (1 ARG \165 CALL 2,SUBSC ARG \I ARG \NPRES ^X CALL 1,IOH ^X, ARG 0 CALL 1,IOH ARG 0 JMP ^Y CPAGE 3 \165, 5011 6151 0 ^Y, \170, NOP JMP ^V ^W, CALL 2,READ ARG (1 ARG \175 CALL 1,IOH ARG \NFIRS CALL 1,IOH ARG \NLAST CALL 1,IOH ARG 0 JMP ^Z CPAGE 25 \175, 5047 611 2223 2440 2422 1101 1475 4040 4754 1162 5447 1401 2324 4024 2211 114 7540 4047 5411 6251 0 ^Z, / / SCORING / CIA IAC CIA DCA \K1 DCA \I ^AA, ISZ \I TAD \I CIA TAD \NSUB SPC JMP ^AB IAC TAD \K1 DCA \K1 TAD (14 CALL 1,MPY ARG \K1 DCA \K2 TAD \NFIRS TAD \K2 DCA \K3 TAD \NLAST TAD \K2 DCA \K4 IAC CIA TAD \K3 DCA \I1 ^AC, ISZ \I1 TAD \I1 CIA TAD \K4 SPC JMP ^AD DCA \I3 ^AE, ISZ \I3 TAD \I3 CIA TAD \NPRC SPC JMP ^AF TAD (300 CALL 3,SUBSC ARG (2 ARG \I1 ARG \ICODE [0 CALL 2,SUBSC ARG \I3 ARG \NPRES [1 TAD I [0 DCA [A TAD I [1 CIA TAD [A DCA \I4 TAD \I4 SNA CLA JMP \205 \200, NOP JMP ^AE ^AF, JMP \500 \205, TAD (300 CALL 3,SUBSC ARG (1 ARG \I1 ARG \ICODE [0 TAD I [0 DCA \I2 TAD \I2 SNA JMP \210 SPC JMP \210 JMP \500 \210, TAD (2 DCA \I5 DCA \I6 ^AG, ISZ \I6 TAD \I6 CIA TAD (2 SPC JMP ^AH / I6 REFERS TO QUESTION NUMBER IAC TAD \I5 DCA \I5 TAD (300 CALL 3,SUBSC ARG \I5 ARG \I1 ARG \ICODE [0 TAD I [0 DCA \I7 IAC CIA TAD \I7 DCA \I7 / 0=FIRST, 1=LAST. TAD \I7 SNA JMP \225 SPC JMP \225 JMP \250 \225, TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ITEMP [0 TAD I [0 DCA \J1 TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ISPAT [0 TAD I [0 DCA \J2 TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ICARD [0 TAD I [0 DCA \J3 TAD \J1 SNA JMP \235 SPC JMP \235 \230, TAD (3 CALL 3,SUBSC ARG \I6 ARG \J1 ARG \ITFIR [0 TAD (3 CALL 3,SUBSC ARG \J6 ARG \J1 ARG \ITFIR [1 TAD I [1 IAC DCA I [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J2 ARG \ISFIR [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J2 ARG \ISFIR [1 TAD I [1 IAC DCA I [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J3 ARG \ICFIR [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J3 ARG \ICFIR [1 TAD I [1 IAC DCA I [0 JMP \300 \235, TAD (2 CALL 3,SUBSC ARG \I6 ARG (1 ARG \NOMIT [0 TAD (2 CALL 3,SUBSC ARG \I6 ARG (1 ARG \NOMIT [1 TAD I [1 IAC DCA I [0 JMP \300 \250, TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ITEMP [0 TAD I [0 DCA \J1 TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ISPAT [0 TAD I [0 DCA \J2 TAD (300 CALL 3,SUBSC ARG \I6 ARG \I1 ARG \ICARD [0 TAD I [0 DCA \J3 TAD \J1 SNA JMP \260 SPC JMP \260 \255, TAD (3 CALL 3,SUBSC ARG \I6 ARG \J1 ARG \ITLAS [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J1 ARG \ITLAS [1 TAD I [1 IAC DCA I [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J2 ARG \ISLAS [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J2 ARG \ISLAS [1 TAD I [1 IAC DCA I [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J3 ARG \ICLAS [0 TAD (3 CALL 3,SUBSC ARG \I6 ARG \J3 ARG \ICLAS [1 TAD I [1 IAC DCA I [0 JMP \300 \260, TAD (2 CALL 3,SUBSC ARG \I6 ARG (2 ARG \NOMIT [0 TAD (2 CALL 3,SUBSC ARG \I6 ARG (2 ARG \NOMIT [1 TAD I [1 IAC DCA I [0 \300, NOP JMP ^AG ^AH, \500, NOP JMP ^AC ^AD, JMP ^AA ^AB, / / OUTPUT / CALL 2,WRITE ARG (1 ARG \510 CALL 1,IOH ARG 0 JMP ^AI CPAGE 15 \510, 5065 3054 4724 515 2017 2201 1440 2125 523 2411 1716 2347 5100 ^AI, DCA \I ^AJ, ISZ \I TAD \I CIA TAD (2 SPC JMP ^AK CALL 2,WRITE ARG (1 ARG \520 CALL 1,IOH ARG \I CALL 1,IOH ARG 0 JMP ^AL CPAGE 13 \520, 5061 6030 5447 2125 523 2411 1716 4047 5411 6251 0 ^AL, CALL 2,WRITE ARG (1 ARG \525 CALL 1,IOH ARG 0 JMP ^AM CPAGE 14 \525, 5071 3054 4706 1122 2324 4754 6171 3054 4714 123 2447 5100 ^AM, CALL 2,WRITE ARG (1 ARG \530 CALL 1,IOH ARG 0 JMP ^AN CPAGE 26 \530, 5064 3054 4724 515 2040 2320 124 4003 122 447 5461 6030 5447 2405 1520 4023 2001 2440 301 2204 4751 0 ^AN, DCA \J ^AO, ISZ \J TAD \J CIA TAD (3 SPC JMP ^AP TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ITFIR [0 TAD I [0 DCA \I1 TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ISFIR [0 TAD I [0 DCA \I2 TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ICFIR [0 TAD I [0 DCA \I3 TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ITLAS [0 TAD I [0 DCA \I4 TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ISLAS [0 TAD I [0 DCA \I5 TAD (3 CALL 3,SUBSC ARG \I ARG \J ARG \ICLAS [0 TAD I [0 DCA \I6 CALL 2,WRITE ARG (1 ARG \535 CALL 1,IOH ARG \J CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG \I3 CALL 1,IOH ARG \I4 CALL 1,IOH ARG \I5 CALL 1,IOH ARG \I6 CALL 1,IOH ARG 0 JMP ^AQ CPAGE 11 \535, 5011 6254 3054 6311 6554 7130 5463 1165 5100 ^AQ, \537, NOP JMP ^AO ^AP, TAD (2 CALL 3,SUBSC ARG \I ARG (1 ARG \NOMIT [0 TAD I [0 DCA \I1 TAD (2 CALL 3,SUBSC ARG \I ARG (2 ARG \NOMIT [0 TAD I [0 DCA \I2 CALL 2,WRITE ARG (1 ARG \540 CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG 0 JMP ^AR CPAGE 15 \540, 5047 1715 1123 2311 1716 2375 4047 5411 6354 6261 3054 1163 5100 ^AR, \600, NOP JMP ^AJ ^AK, CALL 2,WRITE ARG (1 ARG \605 CALL 1,IOH ARG 0 JMP ^AS CPAGE 10 \605, 5061 6530 5447 1726 522 114 1447 5100 ^AS, CALL 2,WRITE ARG (1 ARG \525 CALL 1,IOH ARG 0 CALL 2,WRITE ARG (1 ARG \530 CALL 1,IOH ARG 0 DCA \J ^AT, ISZ \J TAD \J CIA TAD (3 SPC JMP ^AU TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ITFIR [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ITFIR [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I1 TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ISFIR [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ISFIR [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I2 TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ICFIR [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ICFIR [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I3 TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ITLAS [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ITLAS [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I4 TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ISLAS [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ISLAS [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I5 TAD (3 CALL 3,SUBSC ARG (1 ARG \J ARG \ICLAS [0 TAD (3 CALL 3,SUBSC ARG (2 ARG \J ARG \ICLAS [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I6 CALL 2,WRITE ARG (1 ARG \535 CALL 1,IOH ARG \J CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG \I3 CALL 1,IOH ARG \I4 CALL 1,IOH ARG \I5 CALL 1,IOH ARG \I6 CALL 1,IOH ARG 0 \625, NOP JMP ^AT ^AU, TAD (2 CALL 3,SUBSC ARG (1 ARG (1 ARG \NOMIT [0 TAD (2 CALL 3,SUBSC ARG (2 ARG (1 ARG \NOMIT [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I1 TAD (2 CALL 3,SUBSC ARG (1 ARG (2 ARG \NOMIT [0 TAD (2 CALL 3,SUBSC ARG (2 ARG (2 ARG \NOMIT [1 TAD I [0 DCA [A TAD I [1 TAD [A DCA \I2 CALL 2,WRITE ARG (1 ARG \540 CALL 1,IOH ARG \I1 CALL 1,IOH ARG \I2 CALL 1,IOH ARG 0 CALL 2,WRITE ARG (1 ARG \635 CALL 1,IOH ARG 0 JMP ^AV CPAGE 2 \635, 5057 5100 ^AV, JMP \125 CALL 0,EXIT [0, BLOCK 2 [1, BLOCK 2 END LAP \ITEMP, 0 PAGE 0 PAGE 0 PAGE 0 PAGE BLOCK 100 \ISPAT, 0 PAGE 0 PAGE 0 PAGE 0 PAGE 0 PAGE BLOCK 0 \ICARD, 0 PAGE 0 PAGE 0 PAGE 0 PAGE BLOCK 100 \ICODE, 0 PAGE 0 PAGE 0 PAGE 0 PAGE 0 PAGE 0 PAGE 0 PAGE 0 PAGE BLOCK 0 \FILE, BLOCK 60 \ITFIR, BLOCK 6 \ISFIR, BLOCK 6 \ICFIR, BLOCK 6 \ITLAS, BLOCK 6 \ISLAS, BLOCK 6 \ICLAS, BLOCK 6 \NOMIT, BLOCK 4 \NPRES, BLOCK 6 \NSUB, BLOCK 1 \I, BLOCK 1 \K, BLOCK 1 \J1, BLOCK 1 \FNAME, BLOCK 3 \J, BLOCK 1 \J2, BLOCK 1 \I1, BLOCK 1 \I2, BLOCK 1 \I3, BLOCK 1 \I4, BLOCK 1 \I5, BLOCK 1 \I6, BLOCK 1 \I7, BLOCK 1 \I8, BLOCK 1 \I9, BLOCK 1 \NPRC, BLOCK 1 \NFIRS, BLOCK 1 \NLAST, BLOCK 1 \K1, BLOCK 1 \K2, BLOCK 1 \K3, BLOCK 1 \K4, BLOCK 1 \J3, BLOCK 1 \J6, BLOCK 1 [A, BLOCK 1 DUMMY [0 DUMMY [1 ]3, 424 161 0 CPAGE 6 EAP ENTRY MAIN MAIN, NOP CALL 0,OPEN PAUSE