git.sur5r.net Git - cc65/blob - libsrc/geos-common/process/processinitrestartenable.s

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 27.10.99
   5
   6 ; void  InitProcesses   (char number, struct process* proctab);
   7 ; void  RestartProcess  (char number);
   8 ; void  EnableProcess   (char number);
   9
  10             .import popa
  11             .export _InitProcesses
  12             .export _RestartProcess
  13             .export _EnableProcess
  14
  15             .include "jumptab.inc"
  16             .include "geossym.inc"
  17
  18 _InitProcesses:
  19         sta r0L
  20         stx r0H
  21         jsr popa
  22         jmp InitProcesses
  23
  24 _RestartProcess:
  25         tax
  26         jmp RestartProcess
  27
  28 _EnableProcess:
  29         tax
  30         jmp EnableProcess