              
/ 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 GGP215
  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 GGP336
  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
  TSF
  JMP .-1
  TLS
  CLA
  JMP I TYPE
GGA,0
GGB,0
GGC,0
GGD,0
GGE,0
GGP336,336
GGP215,215
GGP212,212
GGP253,253
GGP237,237
GGM237,-237
GGP12,12
    