Return to vaxcoder.sig CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / vax

Annotation of researchv10no/cmd/sml/src/vax/vaxcoder.sig, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: signature VAXCODER = sig
                      3: 
                      4: eqtype Label
                      5: 
                      6: val newlabel : unit -> Label
                      7: 
                      8: datatype Register = reg of int
                      9: 
                     10: datatype EA = direct of Register
                     11:            | autoinc of Register
                     12:            | autodec of Register
                     13:            | displace of int * Register
                     14:            | deferred of int * Register
                     15:            | immed of int
                     16:            | immedlab of Label
                     17:            | address of Label
                     18:            | index of EA * Register
                     19: 
                     20: val r0 : Register
                     21: val r1 : Register
                     22: val r2 : Register
                     23: val r3 : Register
                     24: val r4 : Register
                     25: val r5 : Register
                     26: val r6 : Register
                     27: val r7 : Register
                     28: val r8 : Register
                     29: val r9 : Register
                     30: val r10 : Register
                     31: val r11 : Register
                     32: val r12 : Register
                     33: val r13 : Register
                     34: val sp : Register
                     35: val pc : Register
                     36: 
                     37: val align : unit -> unit
                     38: val mark : unit -> unit
                     39: val define : Label -> unit
                     40: val emitstring : string -> unit
                     41: val realconst : string -> unit
                     42: val emitlong : int -> unit
                     43: 
                     44: val emitlab : int * Label -> unit
                     45: 
                     46: val jne : EA -> unit
                     47: val jbr : EA -> unit
                     48: val bbc : EA * EA * EA -> unit
                     49: val bbs : EA * EA * EA -> unit
                     50: val movl : EA * EA -> unit
                     51: val movq : EA * EA -> unit
                     52: val movb : EA * EA -> unit
                     53: val movzbl : EA * EA -> unit
                     54: val moval : EA * EA -> unit
                     55: val pushal : EA -> unit
                     56: val rsb : unit -> unit
                     57: val cmpl : EA * EA -> unit
                     58: val addl2 : EA * EA -> unit
                     59: val addl3 : EA * EA * EA -> unit
                     60: val subl2 : EA * EA -> unit
                     61: val subl3 : EA * EA * EA -> unit
                     62: val bisl3 : EA * EA * EA -> unit
                     63: val bicl3 : EA * EA * EA -> unit
                     64: val ashl : EA * EA * EA -> unit
                     65: val xorl3 : EA * EA * EA -> unit
                     66: val mull2 : EA * EA -> unit
                     67: val divl3 : EA * EA * EA -> unit
                     68: val divl2 : EA * EA -> unit
                     69: val jmp : EA -> unit
                     70: val brb : EA -> unit
                     71: val brw : EA -> unit
                     72: val beql : EA -> unit
                     73: val bneq : EA -> unit
                     74: val bgeq : EA -> unit
                     75: val bgtr : EA -> unit
                     76: val blss : EA -> unit
                     77: val bleq : EA -> unit
                     78: val sobgeq : EA * EA -> unit
                     79: 
                     80: val movg : EA * EA -> unit
                     81: val mnegg : EA * EA -> unit
                     82: val addg3 : EA * EA * EA -> unit
                     83: val subg3 : EA * EA * EA -> unit
                     84: val mulg3 : EA * EA * EA -> unit
                     85: val divg3 : EA * EA * EA -> unit
                     86: val cmpg : EA * EA -> unit
                     87: 
                     88: val push : EA -> unit
                     89: val pusha : EA -> unit
                     90: val pop : EA -> unit
                     91: 
                     92: val comment : string -> unit
                     93: 
                     94: end (* signature CODER *)
                     95: 
                     96: signature VAXMCODER = 
                     97: sig 
                     98:     structure Coder : VAXCODER
                     99:     val finish : unit -> string
                    100: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.