home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / commonv1.1.asm < prev    next >
Encoding:
Assembly Source File  |  2019-04-13  |  3.1 KB  |  97 lines
  1. e
  2. _*********************************************************
  3. _*                                                       *
  4. _*       module name : COMMON.ASM                        *
  5. _*                                                       *
  6. _*                Maintenance log                        *
  7. _*                ---------------                        *
  8. _*                                                       *
  9. _*   date      time                     action           *
  10. _*   ----      ----                     ------           *
  11. _* 28/03/89    17:00                initial coding       *
  12. _*                                                       *
  13. _*********************************************************
  14.  
  15.  
  16. _*********************************************************
  17. _*                                                       *
  18. _*       routine : CONVRAM - convert ram number to a     *
  19. _*                 configuration                         *
  20. _*                                                       *
  21. _*   entry                                               *
  22. _*   -----                                               *
  23. _*   A - RAM configuration number                        *
  24. _*.......................................................*
  25. _*   used                                                *
  26. _*   ----                                                *
  27. _*   A,X                                                 *
  28. _*.......................................................*
  29. _*   exit                                                *
  30. _*   ----                                                *
  31. _*********************************************************
  32.  
  33. convram    equ *
  34.     ▓
  35.     ¥ convtab,x
  36.     ¬
  37.  
  38. convtab    db $3e,$7e
  39.  
  40.  
  41. _*********************************************************
  42. _*                                                       *
  43. _*       routine : READNAME - read name from the cmd     *
  44. _*                 buffer                                *
  45. _*                                                       *
  46. _*   entry                                               *
  47. _*   -----                                               *
  48. _*   CHARBUFF - command buffer                           *
  49. _*   Y        - current position in the buffer           *
  50. _*.......................................................*
  51. _*   used                                                *
  52. _*   ----                                                *
  53. _*   A,X,Y                                               *
  54. _*.......................................................*
  55. _*   exit                                                *
  56. _*   ----                                                *
  57. _*   PRGNAME - program name entered                      *
  58. _*   NAMELEN - length of the name                        *
  59. _*   c = 0, no error.   c = 1, name too long             *
  60. _*********************************************************
  61.  
  62.  
  63. readname  equ *
  64.     ₧ #0
  65. readlop1    equ *
  66.     Ü            _ point to next character
  67.     ¥ charbuff,y
  68.     æ #space
  69.     à readlop1
  70. readlop2    equ *
  71.     æ #cr
  72.     à readend
  73.  
  74. _ first non blank found, so pull info off
  75.  
  76.     » prgname,x
  77.     Ö
  78.     Æ #17
  79.     à toolong
  80.     Ü
  81.     ¥ charbuff,y
  82.     ¢ readlop2
  83.  
  84. readend    equ *
  85.     ò
  86.     ░ namelen
  87.     ì
  88.           ¬
  89.  
  90. toolong    equ *
  91.           ¼
  92.     ¬
  93.  
  94.     IEND
  95.  
  96.  
  97.