/PDP-5 TELETYPE OUTPUT PACKAGE
TYPE, 0          /TYPE ONE CHARACTER
      AND TTAB+1 /0077
      JMS CON
      JMS OTY
      JMP I TYPE
TY2,  0          /TYPE TWO CHARACTERS
      DCA TEMY
      TAD TEMY
      RTR
      RTR
      RTR
      JMS TYPE
      TAD TEMY
      JMS TYPE
      JMP I TY2
TYCR, 0          /TYPE C.R. AND L.F.
      CLA
      TAD TTAB+2 /0215
      JMS OTY
      TAD TTAB+3 /0212
      JMS OTY
      DCA TBC
      JMP I TYCR
TYSP, 0          /TYPE A SPACE
      CLA
      TAD TTAB+4 /0240
      JMS OTY
      JMP I TYSP
TYTB, 0          /TYPE A TAB
      CLA
      TAD TBC
      TAD TTAB   /-10(OCTAL)OR USER SET
      SMA
      JMP .-2
      DCA TBC
      JMS TYSP
      JMP .-1
TDIG, 0          /TYPE A DIGIT
      AND TTAB+5 /0017
      DCA TEMY
      TAD TEMY
      TAD TTAB+6 /-12(OCTAL)
      SMA CLA
      JMP I TDIG
      TAD TEMY
      TAD TTAB+7 /0260
      JMS OTY
      JMP I TDIG
CON,  0          /TRIMMED TO ASR 33
      TAD TTAB+10/-40
      SPA
      TAD TTAB+11/0100
      TAD TTAB+4 /0240
      JMP I CON
OTY,  0          /ONE CH. OUT AND COUNT
      TLS
      TSF
      JMP .-1
      CLA
      ISZ TBC
      JMP I OTY
      JMP I TYTB
TEMY, 0          /VARIABLES
TBC,  0
TTAB, 7770       /CONSTANTS
      77
      215
      212
      240
      17
      7766
      260
      7740
0100

$