.NLIST TTM ;======================================================================= ; .TITLE MOOSE .IDENT /040181/ ; ; AUTHOR: T V ATKINSON ; P HOFFMAN ; DEPARTMENT OF CHEMISTRY ; MICHIGAN STATE UNIVERSITY ; EAST LANSING, MI 48824 ; ; DATE: 01-APR-81 ; ; ABSTRACT(GENERAL): THIS AND OTHER ROUTINES OF THIS TYPE ARE LIBRARIES ; OF VECTOR LISTS. EACH ENTRY CONSISTS OF A SET OF VECTORS ; WHICH WHEN DRAWN DEPICT ONE SYMBOL (CHARACTERS, NUMBERS, ; PUNCTUATION MARKS, AND OTHER SYMBOLS). EACH VECTOR ; CONTAINS A MODE(IM), A X COORDINATE(IX), AND A Y COORDINATE(IY). ; THE VECTORS MAY BE WRITTEN(IM=2) OR UNWRITTEN(IM=1). THE ; LIBRARY IS CONSTRUCTED UNDER THE ASSUMPTION THAT EACH VECTOR ; WILL BE DRAWN FROM THE CURRENT POSITION TO THE POINT (IX,IY). ; THE POINTS (IX,IY) SPAN AN INTEGER SPACE (-64.LE.IX.LE.63, ; -128.LE.IY.LE.127). THE COORDINATES IX,IY ARE RELATIVE TO ; THE ORIGIN OF THE SYMBOL. ; ; THIS LIBRARY IS STRUCTURED TO BE USED IN CONJUNCTION ; WITH SYMGET.MAC AND SYMPLT.FTN. ; ;=============================================================================== .PAGE .SBTTL MACRO DEFINITIONS ; ;----------------------------------------------------------------------------- ; ; AVECT: MACRO TO PACK VECTORS INTO SINGLE WORD ; ;----------------------------------------------------------------------------- ; ; PACKED VECTOR FORMAT (ONE 16 BIT WORD): ; ; BIT15 IM = MODE OF DRAWING VECTOR ; =0 -> UNWRITTEN VECTOR ; =1 -> WRITTEN VECTOR ; ; BIT14-BIT08 IX = 7 BIT SIGNED TWO'S COMPLEMENT X COORD. ; ; BIT07-BIT00 IY = 8 BIT SIGNED TWO'S COMPLEMENT Y COORD. ; ;----------------------------------------------------------------------------- ; .MACRO AVECT,IM,IX,IY .WORD <&100000>!<&77400>! .ENDM AVECT .PAGE .SBTTL LIBRARY .PSECT MOOSE,REL,RW,I .GLOBL MOOSE ; ;--------------------------------------------------------------------- ; ; ENTRY POINT ; ;--------------------------------------------------------------------- ; MOOSE: .WORD 101 ; CODE FOR FIRST SYMBOL .WORD 102 ; CODE FOR LAST SYMBOL .WORD 64. ; HORIZONTAL RASTER SIZE .WORD 64. ; VERTICAL RASTER SIZE ; ;--------------------------------------------------------------------- ; ; POINTER TABLE ; ;--------------------------------------------------------------------- ; .WORD COD101 .WORD COD102 .WORD COD103 .PAGE ; ;--------------------------------------------------------------------- ; ; SYMBOL LIBRARY ; ;--------------------------------------------------------------------- ; COD101: .BYTE -25., 63. ; XMIN,XMAX .BYTE -43., 50. ; YMIN,YMAX AVECT 1, 30., -41. AVECT 2, 28., -40. AVECT 2, 28., -39. AVECT 2, 28., -38. AVECT 2, 29., -36. AVECT 2, 30., -34. AVECT 2, 31., -31. AVECT 2, 30., -28. AVECT 2, 29., -24. AVECT 2, 29., -18. AVECT 2, 28., -14. AVECT 2, 28., -10. AVECT 2, 30., -4. AVECT 2, 29., 5. AVECT 2, 30., 7. AVECT 2, 31., 11. AVECT 2, 32., 15. AVECT 2, 31., 19. AVECT 2, 35., 23. AVECT 2, 36., 22. AVECT 2, 38., 23. AVECT 2, 40., 21. AVECT 2, 42., 22. AVECT 2, 45., 23. AVECT 2, 44., 27. AVECT 2, 42., 34. AVECT 2, 42., 36. AVECT 2, 42., 37. AVECT 2, 46., 37. AVECT 2, 50., 37. AVECT 2, 54., 39. AVECT 2, 60., 41. AVECT 2, 62., 42. AVECT 2, 63., 45. AVECT 2, 63., 47. AVECT 2, 62., 45. AVECT 2, 58., 42. AVECT 2, 60., 45. AVECT 2, 62., 49. AVECT 2, 60., 48. AVECT 2, 58., 47. AVECT 2, 57., 45. AVECT 2, 56., 50. AVECT 2, 55., 47. AVECT 2, 54., 47. AVECT 2, 52., 47. AVECT 2, 50., 51. AVECT 2, 51., 47. AVECT 2, 48., 47. AVECT 2, 44., 47. AVECT 2, 46., 45. AVECT 2, 48., 42. AVECT 2, 48., 42. AVECT 2, 38., 41. AVECT 2, 39., 46. AVECT 2, 36., 47. AVECT 2, 37., 42. AVECT 2, 32., 43. AVECT 2, 30., 44. AVECT 2, 34., 50. AVECT 2, 32., 48. AVECT 2, 30., 50. AVECT 2, 28., 47. AVECT 2, 26., 48. AVECT 2, 26., 41. AVECT 2, 25., 42. AVECT 2, 24., 44. AVECT 2, 25., 48. AVECT 2, 26., 50. AVECT 2, 25., 52. AVECT 2, 23., 50. AVECT 2, 21., 45. AVECT 2, 21., 43. AVECT 2, 19., 45. AVECT 2, 17., 48. AVECT 2, 16., 50. AVECT 2, 17., 52. AVECT 2, 15., 54. AVECT 2, 14., 50. AVECT 2, 11., 53. AVECT 2, 10., 52. AVECT 2, 11., 50. AVECT 2, 13., 48. AVECT 2, 13., 47. AVECT 2, 15., 45. AVECT 2, 17., 43. AVECT 2, 19., 41. AVECT 2, 21., 39. AVECT 2, 23., 39. AVECT 2, 25., 38. AVECT 2, 26., 38. AVECT 2, 28., 38. AVECT 2, 29., 38. AVECT 2, 27., 37. AVECT 2, 25., 35. AVECT 2, 23., 35. AVECT 2, 21., 34. AVECT 2, 21., 34. AVECT 2, 19., 35. AVECT 2, 17., 35. AVECT 2, 15., 35. AVECT 2, 13., 33. AVECT 2, 11., 31. AVECT 2, 9., 29. AVECT 2, 7., 29. AVECT 2, 5., 28. AVECT 2, 3., 29. AVECT 2, 1., 29. AVECT 2, -1., 30. AVECT 2, -3., 30. AVECT 2, -5., 31. AVECT 2, -7., 31. AVECT 2, -9., 31. AVECT 2, -11., 31. AVECT 2, -13., 30. AVECT 2, -15., 29. AVECT 2, -17., 28. AVECT 2, -18., 27. AVECT 2, -20., 27. AVECT 2, -22., 23. AVECT 2, -23., 21. AVECT 2, -22., 17. AVECT 2, -24., 13. AVECT 2, -25., 7. AVECT 2, -24., 4. AVECT 2, -20., -1. AVECT 2, -18., 2. AVECT 2, -17., 3. AVECT 2, -16., 4. AVECT 2, -15., 2. AVECT 2, -15., -6. AVECT 2, -16., -8. AVECT 2, -16., -12. AVECT 2, -17., -14. AVECT 2, -17., -18. AVECT 2, -17., -20. AVECT 2, -13., -22. AVECT 2, -13., -18. AVECT 2, -13., -14. AVECT 2, -11., -10. AVECT 2, -9., -6. AVECT 2, -9., -4. AVECT 2, -7., -0. AVECT 2, -5., -2. AVECT 2, -3., -3. AVECT 2, -1., -4. AVECT 2, 1., -4. AVECT 2, 3., -4. AVECT 2, 5., -4. AVECT 2, 7., -2. AVECT 2, 7., -8. AVECT 2, 9., -14. AVECT 2, 9., -18. AVECT 2, 9., -25. AVECT 2, 11., -24. AVECT 2, 11., -22. AVECT 2, 11., -20. AVECT 2, 11., -18. AVECT 2, 13., -14. AVECT 2, 13., -8. AVECT 2, 13., -0. AVECT 2, 15., -1. AVECT 2, 17., -2. AVECT 2, 19., -1. AVECT 2, 21., -1. AVECT 2, 23., 2. AVECT 2, 22., -5. AVECT 2, 23., -8. AVECT 2, 24., -12. AVECT 2, 25., -14. AVECT 2, 25., -18. AVECT 2, 26., -22. AVECT 2, 27., -26. AVECT 2, 28., -28. AVECT 2, 28., -32. AVECT 2, 26., -39. AVECT 2, 26., -39. AVECT 2, 26., -42. AVECT 2, 27., -43. AVECT 2, 30., -41. ; COD102: .BYTE -56.,64. .BYTE -47.,52. AVECT 1, -56., -47. AVECT 2, 38., -47. AVECT 2, 36., -47. AVECT 2, 34., -45. AVECT 2, 32., -44. AVECT 2, 30., -41. AVECT 2, 28., -42. AVECT 2, 26., -42. AVECT 2, 25., -39. AVECT 2, 23., -36. AVECT 2, 21., -34. AVECT 2, 19., -30. AVECT 2, 17., -28. AVECT 2, 15., -25. AVECT 2, 13., -24. AVECT 2, 11., -24. AVECT 2, 9., -25. AVECT 2, 7., -24. AVECT 2, 5., -24. AVECT 2, 3., -23. AVECT 2, 1., -24. AVECT 2, -1., -24. AVECT 2, -3., -24. AVECT 2, -5., -24. AVECT 2, -7., -24. AVECT 2, -9., -23. AVECT 2, -11., -21. AVECT 2, -13., -24. AVECT 2, -13., -22. AVECT 2, -18., -20. AVECT 2, -20., -18. AVECT 2, -22., -16. AVECT 2, -20., -13. AVECT 2, -18., -12. AVECT 2, -17., -8. AVECT 2, -18., -8. AVECT 2, -20., -1. AVECT 2, -22., 2. AVECT 2, -24., 4. AVECT 2, -26., 5. AVECT 2, -28., 5. AVECT 2, -30., 5. AVECT 2, -32., 5. AVECT 2, -34., 6. AVECT 2, -36., 6. AVECT 2, -38., 5. AVECT 2, -40., 5. AVECT 2, -42., 4. AVECT 2, -44., 3. AVECT 2, -46., 2. AVECT 2, -48., 1. AVECT 2, -50., 1. AVECT 2, -52., 1. AVECT 2, -54., 1. AVECT 2, -56., -0. AVECT 2, -56., -47. AVECT 1, 30., -41. AVECT 2, 28., -40. AVECT 2, 28., -39. AVECT 2, 28., -38. AVECT 2, 29., -36. AVECT 2, 30., -34. AVECT 2, 31., -31. AVECT 2, 30., -28. AVECT 2, 29., -24. AVECT 2, 29., -18. AVECT 2, 28., -14. AVECT 2, 28., -10. AVECT 2, 30., -4. AVECT 2, 29., 5. AVECT 2, 30., 7. AVECT 2, 31., 11. AVECT 2, 32., 15. AVECT 2, 31., 19. AVECT 2, 35., 23. AVECT 2, 36., 22. AVECT 2, 38., 23. AVECT 2, 40., 21. AVECT 2, 42., 22. AVECT 2, 45., 23. AVECT 2, 44., 27. AVECT 2, 42., 34. AVECT 2, 42., 36. AVECT 2, 42., 37. AVECT 2, 46., 37. AVECT 2, 50., 37. AVECT 2, 54., 39. AVECT 2, 60., 41. AVECT 2, 62., 42. AVECT 2, 63., 45. AVECT 2, 63., 47. AVECT 2, 62., 45. AVECT 2, 58., 42. AVECT 2, 60., 45. AVECT 2, 62., 49. AVECT 2, 60., 48. AVECT 2, 58., 47. AVECT 2, 57., 45. AVECT 2, 56., 50. AVECT 2, 55., 47. AVECT 2, 54., 47. AVECT 2, 52., 47. AVECT 2, 50., 51. AVECT 2, 51., 47. AVECT 2, 48., 47. AVECT 2, 44., 47. AVECT 2, 46., 45. AVECT 2, 48., 42. AVECT 2, 48., 42. AVECT 2, 38., 41. AVECT 2, 39., 46. AVECT 2, 36., 47. AVECT 2, 37., 42. AVECT 2, 32., 43. AVECT 2, 30., 44. AVECT 2, 34., 50. AVECT 2, 32., 48. AVECT 2, 30., 50. AVECT 2, 28., 47. AVECT 2, 26., 48. AVECT 2, 26., 41. AVECT 2, 25., 42. AVECT 2, 24., 44. AVECT 2, 25., 48. AVECT 2, 26., 50. AVECT 2, 25., 52. AVECT 2, 23., 50. AVECT 2, 21., 45. AVECT 2, 21., 43. AVECT 2, 19., 45. AVECT 2, 17., 48. AVECT 2, 16., 50. AVECT 2, 17., 52. AVECT 2, 15., 54. AVECT 2, 14., 50. AVECT 2, 11., 53. AVECT 2, 10., 52. AVECT 2, 11., 50. AVECT 2, 13., 48. AVECT 2, 13., 47. AVECT 2, 15., 45. AVECT 2, 17., 43. AVECT 2, 19., 41. AVECT 2, 21., 39. AVECT 2, 23., 39. AVECT 2, 25., 38. AVECT 2, 26., 38. AVECT 2, 28., 38. AVECT 2, 29., 38. AVECT 2, 27., 37. AVECT 2, 25., 35. AVECT 2, 23., 35. AVECT 2, 21., 34. AVECT 2, 21., 34. AVECT 2, 19., 35. AVECT 2, 17., 35. AVECT 2, 15., 35. AVECT 2, 13., 33. AVECT 2, 11., 31. AVECT 2, 9., 29. AVECT 2, 7., 29. AVECT 2, 5., 28. AVECT 2, 3., 29. AVECT 2, 1., 29. AVECT 2, -1., 30. AVECT 2, -3., 30. AVECT 2, -5., 31. AVECT 2, -7., 31. AVECT 2, -9., 31. AVECT 2, -11., 31. AVECT 2, -13., 30. AVECT 2, -15., 29. AVECT 2, -17., 28. AVECT 2, -18., 27. AVECT 2, -20., 27. AVECT 2, -22., 23. AVECT 2, -23., 21. AVECT 2, -22., 17. AVECT 2, -24., 13. AVECT 2, -25., 7. AVECT 2, -24., 4. AVECT 2, -20., -1. AVECT 2, -18., 2. AVECT 2, -17., 3. AVECT 2, -16., 4. AVECT 2, -15., 2. AVECT 2, -15., -6. AVECT 2, -16., -8. AVECT 2, -16., -12. AVECT 2, -17., -14. AVECT 2, -17., -18. AVECT 2, -17., -20. AVECT 2, -13., -22. AVECT 2, -13., -18. AVECT 2, -13., -14. AVECT 2, -11., -10. AVECT 2, -9., -6. AVECT 2, -9., -4. AVECT 2, -7., -0. AVECT 2, -5., -2. AVECT 2, -3., -3. AVECT 2, -1., -4. AVECT 2, 1., -4. AVECT 2, 3., -4. AVECT 2, 5., -4. AVECT 2, 7., -2. AVECT 2, 7., -8. AVECT 2, 9., -14. AVECT 2, 9., -18. AVECT 2, 9., -25. AVECT 2, 11., -24. AVECT 2, 11., -22. AVECT 2, 11., -20. AVECT 2, 11., -18. AVECT 2, 13., -14. AVECT 2, 13., -8. AVECT 2, 13., -0. AVECT 2, 15., -1. AVECT 2, 17., -2. AVECT 2, 19., -1. AVECT 2, 21., -1. AVECT 2, 23., 2. AVECT 2, 22., -5. AVECT 2, 23., -8. AVECT 2, 24., -12. AVECT 2, 25., -14. AVECT 2, 25., -18. AVECT 2, 26., -22. AVECT 2, 27., -26. AVECT 2, 28., -28. AVECT 2, 28., -32. AVECT 2, 26., -39. AVECT 2, 26., -39. AVECT 2, 26., -42. AVECT 2, 27., -43. AVECT 2, 30., -41. COD103: .END