/SUBROUTINE TO DISPLAY 5X7 CHARACTERS AND NUMBERS
/OCCUPIES 200 TO 777.
/L.T.GELL-UNIVERSITY OF ROCHESTER-12-12-67
/MODIFIED DEC 5-48-M-BIN--3-2-65
/
*0200
GAIN,  0
   DCA SHUV
TWIN,  CMA
   TAD  I SHUV
   SZA
   JMP  ORIO
   CLL
   JMP  I GAIN
ORIO,  IAC
   ISZ  SHUV
   JMS  ASTR
   JMP  TWIN
SHUV,  0
ASTR,  0
   DCA  DODG
   TAD  CARD
   DCA  BRAV
   TAD  DODG
   CLL RTR
   RTR
   RTR
   CLL
   JMS  PIRA
   TAD  DODG
   JMS  PIRA
   JMP  I ASTR
PIRA,  0
   AND  METS
   SNA
   JMP  CHAR
   TAD  CARD
   DCA  BRAV
   TAD  I BRAV
   DCA  WRD1
   TAD  I CARD
   TAD  BRAV
   DCA  BRAV
   TAD  I BRAV
   DCA  WRD2
   TAD  I CARD
   TAD  BRAV
   DCA  BRAV
   TAD  I BRAV
   DCA  WRD3
   CMA CLA
   DCA  WRDC
   CMA CLA
   DCA  WRDD
   TAD  M14
   DCA  XWCNT
   TAD  WRD1
CONT,  DCA  SVAC
   TAD  MIN7
   DCA  XCNT
   TAD  OTHE
   DCA  INDY
   TAD  XVAL
   DXL
   TAD  INDX
   DCA  XVAL
   TAD  SVAC
WRDL,  SPA
   JMP  PLT
CNTU,  ISZ  INDY
   RAL CLL
   ISZ  XWCNT
   SKP
   JMP  WHICH
   ISZ  XCNT
   JMP  WRDL
   JMP  CONT
WHICH,  CLA CLL
   TAD  M14
   DCA  XWCNT
   ISZ  WRDC
   SKP
   JMP  GETW2
   ISZ  WRDD
   JMP  XIT
   TAD  WRD3
   JMP  WHICH-3
GETW2,  TAD  WRD2
   JMP  WHICH-3
XIT,  TAD  INDX
   TAD  XVAL
   DCA  XVAL
   JMP  I PIRA
PLT,  DCA  SVAC
   TAD  I INDY
   TAD  VALU
   DYS
   CLA CLL
   TAD  SVAC
   JMP  CNTU
DODG,  0
CARD,  YANK
BRAV,  0
SVAC,  EQU  BRAV
METS,  0077
WRD1,  0
WRD2,  0
WRD3,  0
MIN7,  7771
WRDC,  0
XCNT,  0
OTHE,  WHY
WHY,  0
      10
SCAL,  20
      30
      40
      50
      60
INDX,  0006
INDY,  0
XVAL,  0
WRDD,  0
XWCNT,  0
M14,  7764
*400
CHAR,  TAD I ODG
   SNA
   JMP  BLAN
   TAD  M12
   SNA
   JMP  PLAT
   TAD  M15
   SNA CLA
   JMP  CRLF
   TAD  I ODG
   TAD  M15
   SNA CLA
   DCA  I OAL
   CLL
   JMP  I OTR
BLAN,  TAD  I ODX
   CLL RTL
   TAD  I ODX
   TAD  I OAL
   DCA  I OAL
   JMP  I OTR
CRLF,  DCA  I OAL
PLAT,  TAD  I OCAL
   CLL RTL
   CIA
   TAD  VALU
   DCA  VALU
   JMP  I OTR
M15,  7763
M12,  7766
VALU,  1700
ORDI,  1700
ODG,  DODG
OAL,  XVAL
OTR,  ASTR
ODX,  INDX
OCAL,  SCAL
*500
YANK,  0100
   7702
   7762
   3720
   7760
   7762
   7742
   3720
   7742
   0020
   3020
   7742
   7760
   7740
   7740
   3720
   7742
   3720
   7742
   2322
   0040
   3760
   0744
   7750
   4045
   0040
   4064
   0000   /OPEN BRACKET
   0000   /VIRGULE
   0000   /CLOSED  BRACKET
   0000   / UP ARROW
   0000   /BACK ARROW  ILLEGAL
   0000   /SPACE ILLEGAL IN THIS FORM
   0000   /EXCLAMATON POINT
   0000   /QUOTATION MARK
   0000   /NUMBER SYMBOL
   0000   /DOLLAR SIGN  ILL
   0000   /PERCENT
   0000   /AMPERSAND ILL
   0000   /
   0000   /
   0000   /
   0000   /
   0000   /
   0000   /APOSTROPHE
   0000   /
   4000   /PERIOD
   0000   /
   0017   /0
   4020
   6124
   2120
   1744
   2361
   3724
   0060
   3322
   2322
   0000   /COLON
   0000   /SEMICOLON ILL
   0000   /GREATER THAN
   0000   /EQUAL
   0000   /LESS THAN
   0000   /QUESTION MARK
*0600
NON,  0
   2110
   3114
   3014
   3014
   3114
   2110
   3217
   0100
   3774
   1013
   0242
   1004
   4040
   4102
   3014
   2110
   3216
   2111
   3114
   3770
   1004
   0401
   0202
   0101
   5740
   3114
   0000   /
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   5014
   5774
   3114
   3114
   0207
   3054
   3114
   2210
   3114
   3114
   0000
   0000
   0000
   0000
   0000
   0000
*0700
   0000
   4774
   4554
   0504
   0574
   4602
   4402
   0444
   4376
   0400
   7402
   1202
   0200
   1376
   0376
   0574
   4414
   0774
   4714
   4544
   0402
   0176
   0036
   0376
   2202
   1002
   2602
   0000   /
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0000
   0574
   0200
   4614
   4554
   7040
   2562
   4544
   2402
   4554
   4574
   0000
   0000
   0000
   0000
   0000
   0000
   $
/
