root/doc_inner/gnu_global/S/2631.html

/* [<][>][^][v][top][bottom][index][help] */
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
<html xmlns='http://www.w3.org/1999/xhtml'>
<head>
<title>as/app/mula_timestab.casl</title>
<meta name='robots' content='noindex,nofollow' />
<meta name='generator' content='GLOBAL-6.6.5' />
<meta http-equiv='Content-Style-Type' content='text/css' />
<link rel='stylesheet' type='text/css' href='../style.css' />
</head>
<body>
<a id='TOP' name='TOP'></a><h2 class='header'><a href='../mains.html'>root</a>/<a href='../files/2861.html'>as</a>/<a href='../files/2862.html'>app</a>/mula_timestab.casl</h2>
<em class='comment'>/* [&lt;][&gt;][^][v][top]<a href='#BOTTOM'>[bottom]</a><a href='../mains.html'>[index]</a><a href='../help.html'>[help]</a> */</em>
<hr />
<pre>
<a id='L1' name='L1'></a>   1 MAIN    START
<a id='L2' name='L2'></a>   2         LAD     GR1,0
<a id='L3' name='L3'></a>   3         SUBA    GR1,XMAX
<a id='L4' name='L4'></a>   4 LOOPX   CPA     GR1,XMAX
<a id='L5' name='L5'></a>   5         JPL     FIN
<a id='L6' name='L6'></a>   6         OUT     SEP,SLEN
<a id='L7' name='L7'></a>   7         CALL    OUTA
<a id='L8' name='L8'></a>   8         OUT     SEP,SLEN
<a id='L9' name='L9'></a>   9         LAD     GR2,0
<a id='L10' name='L10'></a>  10         SUBA    GR2,YMAX
<a id='L11' name='L11'></a>  11 LOOPY   CPA     GR2,YMAX
<a id='L12' name='L12'></a>  12         JPL     XNEXT
<a id='L13' name='L13'></a>  13         CALL    MULA
<a id='L14' name='L14'></a>  14         JOV     WOV
<a id='L15' name='L15'></a>  15         PUSH    0,GR1
<a id='L16' name='L16'></a>  16         LD      GR1,GR0
<a id='L17' name='L17'></a>  17         CALL    OUTA
<a id='L18' name='L18'></a>  18         POP     GR1
<a id='L19' name='L19'></a>  19 YNEXT   OUT     SEP,SLEN        
<a id='L20' name='L20'></a>  20         LAD     GR2,1,GR2
<a id='L21' name='L21'></a>  21         JUMP    LOOPY
<a id='L22' name='L22'></a>  22 WOV     OUT     YOMSG,YLEN
<a id='L23' name='L23'></a>  23         JUMP    YNEXT
<a id='L24' name='L24'></a>  24 XNEXT   LAD     GR1,1,GR1
<a id='L25' name='L25'></a>  25         JUMP    LOOPX
<a id='L26' name='L26'></a>  26 FIN     RET
<a id='L27' name='L27'></a>  27 XMAX    DC      9
<a id='L28' name='L28'></a>  28 YMAX    DC      9
<a id='L29' name='L29'></a>  29 SEP     DC      '--------------------'
<a id='L30' name='L30'></a>  30 SLEN    DC      20
<a id='L31' name='L31'></a>  31 YOMSG   DC      'Warning: overflow'
<a id='L32' name='L32'></a>  32 YLEN    DC      17        
<a id='L33' name='L33'></a>  33         END
</pre>
<hr />
<a id='BOTTOM' name='BOTTOM'></a>
<em class='comment'>/* [&lt;][&gt;][^][v]<a href='#TOP'>[top]</a>[bottom]<a href='../mains.html'>[index]</a><a href='../help.html'>[help]</a> */</em>
</body>
</html>

/* [<][>][^][v][top][bottom][index][help] */