Annotation of coco/dispatch.src, revision 1.1.1.2

1.1       root        1:        PAGE
1.1.1.2 ! root        2:        ;SBTTL "--- OPCODE DISPATCH TABLES ---"
1.1       root        3: 
                      4:        ; 0-OPS
                      5: 
1.1.1.2 ! root        6: OPT0:  .DW     ZRTRUE          ; 0
        !             7:        .DW     ZRFALS          ; 1
        !             8:        .DW     ZPRI            ; 2
        !             9:        .DW     ZPRR            ; 3
        !            10:        .DW     ZNOOP           ; 4
        !            11:        .DW     ZSAVE           ; 5
        !            12:        .DW     ZREST           ; 6
        !            13:        .DW     ZSTART          ; 7
        !            14:        .DW     ZRSTAK          ; 8
        !            15:        .DW     POPSTK          ; 9
        !            16:        .DW     ZQUIT           ; 10
        !            17:        .DW     ZCRLF           ; 11
        !            18:        .DW     ZUSL            ; 12
        !            19:        .DW     ZVER            ; 13
1.1       root       20: 
                     21: NOPS0  EQU     14              ; NUMBER OF 0-OPS
                     22: 
                     23:        ; 1-OPS
                     24: 
1.1.1.2 ! root       25: OPT1:  .DW     ZZERO           ; 0
        !            26:        .DW     ZNEXT           ; 1
        !            27:        .DW     ZFIRST          ; 2
        !            28:        .DW     ZLOC            ; 3
        !            29:        .DW     ZPTSIZ          ; 4
        !            30:        .DW     ZINC            ; 5
        !            31:        .DW     ZDEC            ; 6
        !            32:        .DW     ZPRB            ; 7
        !            33:        .DW     BADOP1          ; 8 (UNDEFINED)
        !            34:        .DW     ZREMOV          ; 9
        !            35:        .DW     ZPRD            ; 10
        !            36:        .DW     ZRET            ; 11
        !            37:        .DW     ZJUMP           ; 12
        !            38:        .DW     ZPRINT          ; 13
        !            39:        .DW     ZVALUE          ; 14
        !            40:        .DW     ZBCOM           ; 15
1.1       root       41: 
                     42: NOPS1  EQU     16              ; NUMBER OF 1-OPS
                     43: 
                     44:        ; 2-OPS
                     45: 
1.1.1.2 ! root       46: OPT2:  .DW     BADOP2          ; 0 (UNDEFINED)
        !            47:        .DW     ZEQUAL          ; 1
        !            48:        .DW     ZLESS           ; 2
        !            49:        .DW     ZGRTR           ; 3
        !            50:        .DW     ZDLESS          ; 4
        !            51:        .DW     ZIGRTR          ; 5
        !            52:        .DW     ZIN             ; 6
        !            53:        .DW     ZBTST           ; 7
        !            54:        .DW     ZBOR            ; 8
        !            55:        .DW     ZBAND           ; 9
        !            56:        .DW     ZFSETP          ; 10
        !            57:        .DW     ZFSET           ; 11
        !            58:        .DW     ZFCLR           ; 12
        !            59:        .DW     ZSET            ; 13
        !            60:        .DW     ZMOVE           ; 14
        !            61:        .DW     ZGET            ; 15
        !            62:        .DW     ZGETB           ; 16
        !            63:        .DW     ZGETP           ; 17
        !            64:        .DW     ZGETPT          ; 18
        !            65:        .DW     ZNEXTP          ; 19
        !            66:        .DW     ZADD            ; 20
        !            67:        .DW     ZSUB            ; 21
        !            68:        .DW     ZMUL            ; 22
        !            69:        .DW     ZDIV            ; 23
        !            70:        .DW     ZMOD            ; 24
1.1       root       71: 
                     72: NOPS2  EQU     25              ; NUMBER OF 2-OPS
                     73: 
                     74:        ; X-OPS
                     75: 
1.1.1.2 ! root       76: OPTX:  .DW     ZCALL           ; 0
        !            77:        .DW     ZPUT            ; 1
        !            78:        .DW     ZPUTB           ; 2
        !            79:        .DW     ZPUTP           ; 3
        !            80:        .DW     ZREAD           ; 4
        !            81:        .DW     ZPRC            ; 5
        !            82:        .DW     ZPRN            ; 6
        !            83:        .DW     ZRAND           ; 7
        !            84:        .DW     ZPUSH           ; 8
        !            85:        .DW     ZPOP            ; 9
        !            86:        .DW     ZSPLIT          ; 10
        !            87:        .DW     ZSCRN           ; 11
1.1       root       88: 
                     89: NOPSX  EQU     12              ; NUMBER OF X-OPS
                     90: 
1.1.1.2 ! root       91:        ;END
1.1       root       92: 

unix.superglobalmegacorp.com