home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / dispv1.1.asm < prev    next >
Encoding:
Assembly Source File  |  2019-04-13  |  2.4 KB  |  101 lines
  1. e
  2. _*********************************************************
  3. _*                                                       *
  4. _*       module name : DISP.ASM                          *
  5. _*                                                       *
  6. _*                Maintenance log                        *
  7. _*                ---------------                        *
  8. _*                                                       *
  9. _*   date      time                     action           *
  10. _*   ----      ----                     ------           *
  11. _* 24/02/89    00:00                initial coding       *
  12. _* 28/03/89    22:20       change message numbers        *
  13. _* 03/04/89    22:30    change brackets, fix ass bugs    *
  14. _* 24/04/89    19:10   add the nothing to display logic  *
  15. _*********************************************************
  16.  
  17.  
  18. _*********************************************************
  19. _*                                                       *
  20. _*       routine : DISPLAY - display the program table   *
  21. _*    cmd format : D                                     *
  22. _*                                                       *
  23. _*   entry                                               *
  24. _*   -----                                               *
  25. _*   none                                                *
  26. _*.......................................................*
  27. _*   used                                                *
  28. _*   ----                                                *
  29. _*   A,X,Y                                               *
  30. _*.......................................................*
  31. _*   exit                                                *
  32. _*   ----                                                *
  33. _*   none                                                *
  34. _*********************************************************
  35.  
  36. _
  37. _ Locations used
  38. _
  39.  
  40. dispflag    db 0
  41.  
  42.  
  43. _ message numbers 
  44.  
  45. susp       = 3
  46. active    = 4
  47.  
  48. display     equ *
  49.     
  50. _ Point to the start of the table
  51.  
  52.     £ inittab
  53.     ¥ #0
  54.     » dispflag
  55.  
  56. displop1    equ *
  57.     ƒ #flag
  58.     ¥ [tabpntr],y
  59.     æ #noprog
  60.     à nodisp
  61.     ƒ #name
  62.  
  63. displop2    equ *
  64.     ¥ [tabpntr],y
  65.     £ bsout
  66.     Ü
  67.     ô    #strtadd-1
  68.     ê displop2
  69.  
  70. _ Name displayed, now give whether suspended or active
  71.  
  72.     ƒ #flag
  73.     ¥ [tabpntr],y
  74.     æ #prgrun
  75.     à dispact
  76.  
  77. _ Set position for suspended message
  78.  
  79.     ¥ #susp   
  80.     db  $2c
  81. dispact   equ *
  82.     ¥ #active
  83.     » dispflag
  84.           £ dispmess
  85.     
  86.  
  87. nodisp    equ *
  88.     £ incloc
  89.     £ checkend
  90.     â displop1
  91.     ¥ dispflag
  92.     ê enddisp
  93.     ¥ #10
  94.     £ dispmess
  95.  
  96. enddisp    equ *
  97.     ¬
  98.  
  99.     IEND
  100.  
  101.