/ HISTOGRAM ON TELETYPE SUBROUTINE / REQUIRES SCALING FACTOR IN 'VSF' / 2'S COMPLEMENT OF TABLE SIZE IN 'MSIZE' / TABLE ADDRESS - 1 IN 'ADRTAB' / ADDRESS - 1 OF TEMP TABLE IN 'ADRLIN' GRAPH,0 TAD ADRTAB IAC DCA GGA TAD MSIZE IAC DCA GGB TAD I GGA DCA GGC GG1,ISZ GGA TAD I GGA CLL CMA TAD GGC SZL CLA JMP .+3 TAD I GGA DCA GGC ISZ GGB JMP GG1 TAD VSF CIA DCA GGA DCA GGB CLL TAD GGC TAD GGA DCA GGC ISZ GGB SZL JMP .-6 TAD GGB CIA DCA GGB TAD VSF ISZ GGB JMP .-2 DCA GGC GG2,TAD MSIZE DCA GGB TAD ADRTAB DCA GGD TAD GGP215 JMS TYPE TAD GGP212 JMS TYPE TAD ADRLIN DCA GGE TAD GGP336 JMS TYPE GG3,ISZ GGD ISZ GGE TAD I GGD CIA CLL TAD GGC SPA CLA TAD GGP12 TAD GGP237 DCA I GGE ISZ GGB JMP GG3 TAD MSIZE DCA GGB GG4,TAD I GGE TAD GGM237 SZA CLA JMP GG5 CMA DCA I GGE CMA TAD GGE DCA GGE ISZ GGB JMP GG4 GG5,TAD MSIZE DCA GGB TAD ADRLIN DCA GGD ISZ GGD TAD I GGD IAC SNA JMP GG6 JMS TYPE ISZ GGB JMP .-7 GG6,CLA CLL TAD GGC TAD GGA DCA GGC SZL CLA JMP GG2 TAD GGP215 JMS TYPE TAD GGP212 JMS TYPE TAD GGP336 JMS TYPE TAD MSIZE DCA GGB TAD GGP253 JMS TYPE  ISZ GGB JMP .-3 TAD GGP215 JMS TYPE TAD GGP212 JMS TYPE JMP I GRAPH TYPE,0 TSF JMP .-1 TLS CLA JMP I TYPE GGA,0 GGB,0 GGC,0 GGD,0 GGE,0 GGP336,336 GGP215,215 GGP212,212 GGP253,253 GGP237,237 GGM237,-237 GGP12,12