home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / cmd1v1.4.asm < prev    next >
Encoding:
Assembly Source File  |  2019-04-13  |  5.7 KB  |  264 lines
  1. e
  2. _*********************************************************
  3. _*                                                       *
  4. _*       module name : PROGSTOP.ASM                      *
  5. _*                                                       *
  6. _*                Maintenance log                        *
  7. _*                ---------------                        *
  8. _*                                                       *
  9. _*   date      time                     action           *
  10. _*   ----      ----                     ------           *
  11. _* 14/02/89   23:30                initial coding        *
  12. _* 28/03/89   22:15                 tidy up              *
  13. _* 03/04/89   23:00             changed brackets         *
  14. _* 19/05/89   17:50     major recode for both routines   *
  15. _* 20/05/89   19:20     fix suspend bug, allow quiesce   *
  16. _*                   and suspend of suspended program    *
  17. _* 21/05/89   18:00    added free storage error check    *
  18. _* 21/05/89   18:50    fixed the quiesce storage error   *
  19. _* 22/05/89   18:50    update for new storage methods    *
  20. _* 18/06/89   19:10    Save stack don't remove info      *
  21. _* 05/07/89   22:10  Page 0 and 1 can be in both ram blk *
  22. _*********************************************************
  23.  
  24.  
  25. _*********************************************************
  26. _*                                                       *
  27. _*       routine : Suspend - suspends a program          *
  28. _*                 Quiesce - terminates a program        *
  29. _*                                                       *
  30. _*   entry                                               *
  31. _*   -----                                               *
  32. _*   CHARBUFF - characters of the command                *
  33. _*   Y        - current position after command found in  *
  34. _*              CHARBUFF                                 *
  35. _*.......................................................*
  36. _*   used                                                *
  37. _*   ----                                                *
  38. _*   A,X,Y                                               *
  39. _*   PRGNAME                                             *
  40. _*   NAMELEN                                             *
  41. _*.......................................................*
  42. _*   exit                                                *
  43. _*   ----                                                *
  44. _*   none                                                *
  45. _*********************************************************
  46.  
  47. _ These 2 commands suspend or remove a program in the table. on entry, Y
  48. _ points to the command, so the following info should be blank then name CR.
  49. _ 
  50.  
  51. suspend    equ *
  52.     ¥ #prgnorun         _ set suspend flag in table
  53.     db  $2c        _ skip next instruction
  54. quiesce    equ *
  55.     ¥ #noprog        _ set remove flag for table
  56.     » option
  57.  
  58.  
  59. _ Now we need to read the name of the program from the program buffer 
  60. _ and then locate it in the table
  61. _ if found then change the flag and display a message.
  62.  
  63.     £ readname        _ common routine to get name from buffer
  64.     £ locname        _ find name in the table
  65.     ä fndname
  66.  
  67.           ¥ #2
  68.     ¢ dispmess        _ display error message 2
  69.  
  70. _
  71. _ Name found, so we will either suspend or quiesce a program.
  72. _
  73.  
  74. fndname    equ *
  75.  
  76.     ƒ #flag
  77.     ¥ [tabpntr],y
  78.     æ #prgrun
  79.     ê notrun
  80.  
  81. _
  82. _  Program is active, so we will decrement the number of programs 
  83. _ running. If Suspending an already suspended program nothing happens
  84. _ but it is possible to quiesce a suspended program. 
  85. _
  86.  
  87.     ö progrun
  88.  
  89. notrun    equ *
  90.     ¥ option            _ reset the flag in table
  91.     » [tabpntr],y
  92.  
  93.     ¥ option            _ suspend or quiesce ?
  94.     æ #prgnorun
  95.     à allfree
  96.  
  97. _ we are quiescing a program, just free memory. The stack doesn't have
  98. _ to be touched.
  99.  
  100. _
  101. _ Free the program area.
  102. _
  103.  
  104.     ƒ #ramprg
  105.     ¥ [tabpntr],y
  106.     » ramused
  107.     ƒ #strtadd    
  108.     ¥ [tabpntr],y
  109.     » startram
  110.     Ü
  111.     ¥ [tabpntr],y
  112.     » startram+1
  113.     ƒ #endadd
  114.     ¥ [tabpntr],y
  115.     » endram
  116.     Ü
  117.     ¥ [tabpntr],y
  118.     » endram+1
  119.     £ frestor        _ free program area
  120.     â freezero
  121. errorfre    equ *
  122.     ¥ #13
  123.     ¢ dispmess
  124.  
  125.  
  126. _
  127. _ Free the page 0 area.
  128. _
  129.  
  130. freezero    equ *
  131.     ƒ #zeroram
  132.     ¥ [tabpntr],y
  133.     » ramused
  134.     ƒ #zerooff    
  135.     ¥ [tabpntr],y
  136.     » startram+1
  137.     » endram+1
  138.     ¥ #0
  139.     » startram
  140.     ¥ #pagend
  141.     » endram
  142.     £ frestor
  143.     â freeone
  144.     ä errorfre
  145.  
  146. _
  147. _ Free the page one area.
  148. _
  149.  
  150. freeone    equ *
  151.     ƒ #oneram
  152.     ¥ [tabpntr],y
  153.     » ramused
  154.     ƒ #oneoff    
  155.     ¥ [tabpntr],y
  156.     » startram+1
  157.     » endram+1
  158.     ¥ #0
  159.     » startram
  160.     ¥ #pagend
  161.     » endram
  162.     £ frestor
  163.     â allfree
  164.     ä errorfre
  165.  
  166. allfree    equ *
  167.     
  168. _
  169. _ Check to see if we are trying to suspend or quiesce the current
  170. _ program. If not, then it is ok just to leave the flag change etc.
  171. _ The switching logic just won't find it on the next search.
  172. _
  173.  
  174.     ¥ tabpntr+1
  175.     æ current+1
  176.     ê nofurther
  177.     ¥ tabpntr
  178.     æ current
  179.     ê nofurther
  180.     ¢ updprg
  181.  
  182. nofurther equ *
  183.     ¬
  184.  
  185.  
  186. _
  187. _ Ok, we are trying to stop or suspend the current program.
  188. _
  189.  
  190. updprg    equ *
  191.     ¥ option
  192.     æ #noprog
  193.     à contnext
  194.     
  195. _
  196. _ Ok, trying to suspend the program, so the stack must be saved.
  197. _ As this is the currently interrupted program, the stack address
  198. _ has been saved.
  199.  
  200.     ¥ savestk
  201.     ƒ #regsp
  202.     » [current],y
  203.  
  204. _
  205. _ find next program to run, if there is one.
  206. _
  207.  
  208.  
  209. contnext  equ *        
  210.  
  211.     ¥ progrun
  212.     à loopprg        _ go to dfltprg program
  213.     £ locnext        _ locate next program into current
  214.  
  215. _
  216. _ Run routine will set up the stack to simulate the program being run.
  217. _
  218.  
  219.     ¢ runcurr        _ run the current program
  220.  
  221. loopprg   equ *
  222.  
  223. _
  224. _ To simulate as though the looping program has been interrupted, we must
  225. _ place the interrupt logic on the op sys stack. As the return address is
  226. _ there, we must have that last and place the interrupt code before it.
  227. _
  228.  
  229.     Ñ
  230.     ▓
  231.     Ñ
  232.     │
  233.  
  234.  
  235.     ¥ #<initext1
  236.     ú
  237.     ¥ #>initext1
  238.     ú
  239.     ¥ #0
  240.     ú
  241.     ú
  242.     ú
  243.     ú
  244.     ¥ #config
  245.     ú
  246.  
  247.     ╖
  248.     ú
  249.     ╡
  250.     ú
  251.  
  252. _
  253. _ System pages are in, so we just return to the NMI calling routine. No
  254. _ Pages will be switched in on return to the NMI routine as there are no
  255. _ programs running.
  256. _
  257.  
  258.     ¬
  259.  
  260. option    db 0
  261.  
  262.     IEND
  263.  
  264.