13 lines
292 B
Plaintext
13 lines
292 B
Plaintext
|
|
<CONSTANT C-TABLELEN 180>
|
|
<GLOBAL C-TABLE <ITABLE NONE 180>>
|
|
<GLOBAL C-DEMONS 180>
|
|
<GLOBAL C-INTS 180>
|
|
<CONSTANT C-INTLEN 6>
|
|
<CONSTANT C-ENABLED? 0>
|
|
<CONSTANT C-TICK 1>
|
|
<CONSTANT C-RTN 2>
|
|
<DEFINE-ROUTINE QUEUE>
|
|
<DEFINE-ROUTINE INT>
|
|
<GLOBAL CLOCK-WAIT <>>
|
|
<DEFINE-ROUTINE CLOCKER> |