1 *7200 2 3 / HISTOGRAM ON TELETYPE SUBROUTINE 4 / REQUIRES SCALING FACTOR IN 'VSF' 5 / 2'S COMPLEMENT OF TABLE SIZE IN 'MSIZE' 6 / TABLE ADDRESS - 1 IN 'ADRTAB' 7 / ADDRESS - 1 OF TEMP TABLE IN 'ADRLIN' 8 9 10 07200 0000 GRAPH,0 11 07201 1007 TAD ADRTAB 12 07202 7001 IAC 13 07203 3363 DCA GGA 14 07204 1004 TAD MSIZE 15 07205 7001 IAC 16 07206 3364 DCA GGB 17 07207 1763 TAD I GGA 18 07210 3365 DCA GGC 19 07211 2363 GG1,ISZ GGA 20 07212 1763 TAD I GGA 21 07213 7140 CLL CMA 22 07214 1365 TAD GGC 23 07215 7630 SZL CLA 24 07216 5221 JMP .+3 25 07217 1763 TAD I GGA 26 07220 3365 DCA GGC 27 07221 2364 ISZ GGB 28 07222 5211 JMP GG1 29 07223 1005 TAD VSF 30 07224 7041 CIA 31 07225 3363 DCA GGA 32 07226 3364 DCA GGB 33 07227 7100 CLL 34 07230 1365 TAD GGC 35 07231 1363 TAD GGA 36 07232 3365 DCA GGC 37 07233 2364 ISZ GGB 38 07234 7430 SZL 39 07235 5227 JMP .-6 40 07236 1364 TAD GGB 41 07237 7041 CIA 42 07240 3364 DCA GGB 43 07241 1005 TAD VSF 44 07242 2364 ISZ GGB 45 07243 5241 JMP .-2 46 07244 3365 DCA GGC 47 07245 1004 GG2,TAD MSIZE 48 07246 3364 DCA GGB 49 07247 1007 TAD ADRTAB 50 07250 3366 DCA GGD 51 07251 1371 TAD GGP215 52 07252 4355 JMS TYPE 53 07253 1372 TAD GGP212 54 07254 4355 JMS TYPE 55 07255 1006 TAD ADRLIN 56 07256 3367 DCA GGE 57 07257 1370 TAD GGP336 58 07260 4355 JMS TYPE 59 60 07261 2366 GG3,ISZ GGD 61 07262 2367 ISZ GGE 62 07263 1766 TAD I GGD 63 07264 7041 CIA 64 07265 7100 CLL 65 07266 1365 TAD GGC 66 07267 7710 SPA CLA 67 07270 1376 TAD GGP12 68 07271 1374 TAD GGP237 69 07272 3767 DCA I GGE 70 07273 2364 ISZ GGB 71 07274 5261 JMP GG3 72 07275 1004 TAD MSIZE 73 07276 3364 DCA GGB 74 07277 1767 GG4,TAD I GGE 75 07300 1375 TAD GGM237 76 07301 7640 SZA CLA 77 07302 5312 JMP GG5 78 07303 7040 CMA 79 07304 3767 DCA I GGE 80 07305 7040 CMA 81 07306 1367 TAD GGE 82 07307 3367 DCA GGE 83 07310 2364 ISZ GGB 84 07311 5277 JMP GG4 85 07312 1004 GG5,TAD MSIZE 86 07313 3364 DCA GGB 87 07314 1006 TAD ADRLIN 88 07315 3366 DCA GGD 89 07316 2366 ISZ GGD 90 07317 1766 TAD I GGD 91 07320 7001 IAC 92 07321 7450 SNA 93 07322 5326 JMP GG6 94 07323 4355 JMS TYPE 95 07324 2364 ISZ GGB 96 07325 5316 JMP .-7 97 07326 7300 GG6,CLA CLL 98 07327 1365 TAD GGC 99 07330 1363 TAD GGA 100 07331 3365 DCA GGC 101 07332 7630 SZL CLA 102 07333 5245 JMP GG2 103 07334 1371 TAD GGP215 104 07335 4355 JMS TYPE 105 07336 1372 TAD GGP212 106 07337 4355 JMS TYPE 107 07340 1370 TAD GGP336 108 07341 4355 JMS TYPE 109 07342 1004 TAD MSIZE 110 07343 3364 DCA GGB 111 07344 1373 TAD GGP253 112 07345 4355 JMS TYPE 113 07346 2364 ISZ GGB 114 07347 5344 JMP .-3 115 07350 1371 TAD GGP215 116 07351 4355 JMS TYPE 117 07352 1372 TAD GGP212 118 07353 4355 JMS TYPE 119 07354 5600 JMP I GRAPH 120 121 07355 0000 TYPE,0 122 07356 6041 TSF 123 07357 5356 JMP .-1 124 07360 6046 TLS 125 07361 7200 CLA 126 07362 5755 JMP I TYPE 127 07363 0000 GGA,0 128 07364 0000 GGB,0 129 07365 0000 GGC,0 130 07366 0000 GGD,0 131 07367 0000 GGE,0 132 07370 0336 GGP336,336 133 07371 0215 GGP215,215 134 07372 0212 GGP212,212 135 07373 0253 GGP253,253 136 07374 0237 GGP237,237 137 07375 7541 GGM237,-237 138 07376 0012 GGP12,12 139 ADRLIN=6 140 ADRTAB=7 141 VSF=5 142 MSIZE=4 143 $ ADRLIN 0006 ADRTAB 0007 GG1 7211 GG2 7245 GG3 7261 GG4 7277 GG5 7312 GG6 7326 GGA 7363 GGB 7364 GGC 7365 GGD 7366 GGE 7367 GGM237 7375 GGP12 7376 GGP212 7372 GGP215 7371 GGP237 7374 GGP253 7373 GGP336 7370 GRAPH 7200 MSIZE 0004 TYPE 7355 VSF 0005