1 /LAB-8E CONVERT PROGRAM-CONVERTS LAB-8E MS DATA 2 /AND SINGLE, DOUBLE, AND FLOATING TO SING,DOUB,AND FLOATING. 3 / 4 /DEC-8E-ACVTA-A-LA 5 / 6 /COPYRIGHT 1972 7 /DIGITAL EQUIPMENT CORPORATION 8 /MAYNARD, MASSACHUSETTS 01754 9 / 10 11 /FILE CON.14 12 /CONVERT PROGRAM FOR LAB-8E PROGRAMS 13 /RUNNING UNDER PS-8 14 /LAB-8E CONVERT 15 SET1= CLL CLA IAC 16 SET2= CLL CLA IAC RAL 17 SET3= CLL CLA IAC CML RAL 18 SET4= CLL CLA IAC RTL 19 SET6= CLL CLA IAC CML RTL 20 SETM2= CLL CLA CMA RAL 21 SETM3= CLL CLA CMA RTL 22 FIELD 0 23 *7200 /TELETYPE DEVICE HANDLES AND 24 /INPUT FILE DEVICE HANDLER. 25 /7200 - 7577 26 *6600 /OUTPUT DEVICE HANDLER. 27 /6600 - 7177 28 *5200 29 005200 0000 BUFJOB, 0 /BUFFER FOR JOB LIST OF AVERAGER. 30 31 *5600 32 005600 0000 BUFOUT, 0 /BUFFER FOR OUTPUT. 33 34 *6200 35 006200 0000 BUFIN, 0 /BUFFER FOR INPUT. 36 FIELD 1 37 *20 38 010020 0000 OUTTYP, 0 /TYPE = 1,2,3,4,5,6,7 FOR F4, F2 39 010021 0000 INTYP, 0 /SI, DO, DA, AV, HI. 40 010022 0000 SWITCH, 0 41 010023 0000 0 /SWITCH VALUES,0 AFTER LAST VALUE. 42 010024 0000 0 43 010025 0000 0 44 010026 0000 0 45 010027 0000 0 46 47 010030 0000 ENTRYI, 0 /ENTRY POINT TO INPUT DEVICE HANDLES 48 010031 0000 ENTRYO, 0 /ENTRY POINT TO OUTPUT D.H. 49 010032 0000 FILESZ, 0 /FILE SIZE OF INPUT FILE. 50 51 010033 0000 READNO, 0 /NUMBER OF CHARACTERS IN READ BUF. 52 010034 0000 WRITNO, 0 /NUMBER OF CHARACTERS ON WRITE BUF. 53 010035 0000 CONVTY, 0 /CONVERT TYPE FOR CONVERT ROUTINE 54 55 010036 0000 CONINP, 0 /INPUT & OUTPUT FOR CONVERT ROUTINE. 56 010037 0000 0 57 010040 0000 0 58 010041 0000 0 59 010042 0000 0 60 010043 0000 0 61 62 010044 0000 BLKOSZ, 0 /LOGICAL SIZE OF THE OUTPUT BLOCK. 63 010045 0000 BLKISZ, 0 /LOGICAL SIZE OF THE INPUT BLOCK. 64 010046 0000 TEMP1, 0 65 010047 0000 TEMP2, 0 66 010050 0000 TEMP3, 0 67 010051 0000 BLKIN, 0 /INPUT BLOCK NUMBER. 68 010052 0000 BLKOUT, 0 /OUTPUT BLOCK NUMBER 69 70 010053 0000 FILOSZ, 0 /-SIZE OF OUTPUT FILE. 71 010054 0000 AVHBKA, 0 /ADDRESS OF NEXT HEADER BLOCK. 72 010055 0000 AVHBBA, 0 /HEADER BLOCK BUFFER ADDRESS 73 74 010056 0000 AVHBBC, 0 /HEADER BLOCK BUFFER COUNT. 75 76 010057 0000 AVTMP1, 0 77 010060 0000 AVTMP2, 0 78 010061 0000 AVTMP3, 0 79 010062 0000 AVTMP4, 0 80 010063 0000 AVBACT, 0 /BLOCK ADDRESS OF # OF DATA POINTS 81 /FOR AVERAGE 82 010064 0000 AVLACT, 0 /LOCATION IN BUFFER OF # OF DATA 83 /POINTS FOR AVERAGE 84 85 010065 0000 FIOBUF, 0 /OUTPUT BUFFER POINTER. 86 010066 0000 FIOBFS, 0 /SAVED LAST LOC. WRITTEN TO MS. 87 88 010067 0000 AVDQFG, 0 /DAQUAN FLAG TO CYCLE ON DATA 89 90 010070 0000 AVDALK, 0 /FLAG TO DETERMINE IF THERE IS A 91 /LINKED DATA BLOCK. 92 93 010071 0000 AVDATY, 0 /TYPE OF DATA GOING OUT, 1,2, OR 3 94 /FOR AVG, CONF.L. OR TREND 95 010072 0000 AVDTYV, 0 /DATA TYPE VARIABLE, - DATA TYPE 96 97 010073 0000 AVDQBS, 0 /BLOCK SAME FOR DAQUAN REREAD. 98 010074 0000 AVDQLS, 0 /LOCATION SAVE FOR DAQUAN REREAD. 99 100 010075 0000 AVF2SP, 0 /FORTRAN 2 SINGLE PRECISION POSITION PT. 101 010076 0000 SIDOFG, 0 /=0,FLAG OFF;=1,THEN A 12 BIT # 102 /IS CONSIDERED POSITIVE 0-4095. 103 104 010077 0000 DARDS, 0 /END TELE INPUT CHAR. 105 010100 0000 CRDGET, 0 /# OF NUMBERS TO READ 106 /FOR SI AND DO ONLY. 107 010101 0000 0 108 010102 0000 CRDSKP, 0 /# OF NUMBERS TO SKIP, 109 /FOR SI AND DO ONLY. 110 010103 0000 0 111 010104 0000 REDSF, 0 /DONE FLAG FOR REDSU ROUTINE. 112 113 *2000 114 012000 6201 START, CDF 0 115 012001 7300 CLA CLL 116 012002 1377 TAD (4003 /SET JOB CONTROL WORD 117 012003 3776 DCA I (7746 118 012004 6211 CDF 10 119 012005 4775 JMS CRLF 120 012006 4774 JMS I (7700 /LOCK IN USR 121 012007 0010 10 122 012010 4773 JMS I (200 /CALL COMMAND DECODER 123 012011 0005 5 124 012012 0000 0 125 012013 0000 0 126 012014 1372 TAD (7201 127 012015 3224 DCA DHCT4 128 012016 1771 TAD I (7617 /LOAD INPUT AND OUTPUT DEVICE HANDLERS. 129 012017 7450 SNA /TEST FOR BAD COMMAND 130 012020 5770 JMP COMERR 131 012021 0367 AND (17 132 012022 4773 JMS I (200 133 012023 0001 1 134 012024 7201 DHCT4, 7201 /ENTRY POINT TO INPUT HANDLER 135 012025 5766 JMP ERR /HANDLER AT 7200 FIELD 0 136 012026 1365 TAD (6601 137 012027 3236 DCA DHCT5 138 012030 1764 TAD I (7600 /LOAD OUTPUT HANDLER. 139 012031 7450 SNA /TEST FOR BAD COMMAND. 140 012032 5770 JMP COMERR 141 012033 0367 AND (17 142 012034 4773 JMS I (200 143 012035 0001 1 144 012036 6601 DHCT5, 6601 /ENTRY POINT FOR OUTPUT HANDLER. 145 012037 5766 JMP ERR /IS AT 6600 OF FIELD 0. 146 012040 1363 TAD (7601 147 012041 3245 DCA DHCT6 148 012042 1764 TAD I (7600 /CREATE OUTPUT FILE. 149 012043 4773 JMS I (200 150 012044 0003 3 151 012045 7601 DHCT6, 7601 /RETURN STARTING BLOCK FOR OUTPUT. 152 012046 0000 DHCT7, 0 /RETURN FILE SIZE 153 012047 5766 JMP ERR 154 012050 4773 JMS I (200 /UNLOCK USR. 155 012051 0011 11 156 157 012052 7300 CLL CLA 158 012053 6032 KCC 159 012054 1362 TAD (252 160 012055 4761 JMS PRTCH /PRINT VALUE 161 012056 1360 TAD (-2 162 012057 3015 DCA 15 163 012060 4757 JMS TTYIN1 /SET UP TTY READ. 164 012061 1356 TAD (-6 /DETERMINE OUTPUT TYPE. 165 012062 3010 CON3, DCA 10 166 012063 3014 DCA 14 167 012064 1355 TAD (COMLST-1 /SET LIST ADDRESS 168 012065 3011 DCA 11 169 012066 4754 JMS TTYINP /READ FIRST CHAR. 170 012067 7106 CLL RTL 171 012070 7006 RTL 172 012071 7006 RTL 173 012072 3012 DCA 12 174 012073 4754 JMS TTYINP /2ND CHAR. 175 012074 1012 TAD 12 176 012075 3012 DCA 12 177 178 012076 1012 CON2, TAD 12 /COMPARE INPUT TO LIST. 179 012077 7041 CIA 180 012100 1411 TAD I 11 181 012101 2014 ISZ 14 /SET TYPE. 182 012102 7650 SNA CLA /SEARCH FOR COMPARISON 183 012103 5307 JMP CON1 184 012104 2010 ISZ 10 185 012105 5276 JMP CON2 186 012106 5770 JMP COMERR 187 188 012107 2015 CON1, ISZ 15 /TEST IF DONE. 189 012110 5312 JMP .+2 190 012111 5320 JMP CON4 191 012112 1014 TAD 14 /DO TEST ON INPUT TYPE 192 012113 3020 DCA OUTTYP 193 012114 4754 JMS TTYINP /READ < 194 /INPUT IS IN THE FORM XX