j8takagi.net > YACASL2 > 内部仕様書 - Doxygen | GNU Global

root/as/app/mula_timestab.casl

/* [<][>][^][v][top][bottom][index][help] */ 
MAIN    START
        LAD     GR1,0
        SUBA    GR1,XMAX
LOOPX   CPA     GR1,XMAX
        JPL     FIN
        OUT     SEP,SLEN
        CALL    OUTA
        OUT     SEP,SLEN
        LAD     GR2,0
        SUBA    GR2,YMAX
LOOPY   CPA     GR2,YMAX
        JPL     XNEXT
        CALL    MULA
        JOV     WOV
        PUSH    0,GR1
        LD      GR1,GR0
        CALL    OUTA
        POP     GR1
YNEXT   OUT     SEP,SLEN        
        LAD     GR2,1,GR2
        JUMP    LOOPY
WOV     OUT     YOMSG,YLEN
        JUMP    YNEXT
XNEXT   LAD     GR1,1,GR1
        JUMP    LOOPX
FIN     RET
XMAX    DC      9
YMAX    DC      9
SEP     DC      '--------------------'
SLEN    DC      20
YOMSG   DC      'Warning: overflow'
YLEN    DC      17        
        END
/* [<][>][^][v][top][bottom][index][help] */