Return to m68coder.sig CVS log

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

Annotation of researchv10no/cmd/sml/src/m68/m68coder.sig, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: signature M68CODER = sig
                      3: 
                      4: eqtype Label
                      5: 
                      6: val newlabel : unit -> Label
                      7: 
                      8: datatype Register = DataReg of int
                      9:                  | AddrReg of int
                     10:                  | FloatReg of int
                     11:                  | PC
                     12: 
                     13: datatype Size = Byte | Word | Long
                     14: 
                     15: datatype EA = Direct of Register
                     16:            | PostInc of Register
                     17:            | PreDec of Register
                     18:            | Displace of Register * int
                     19:            | Index of Register * int * Register * Size
                     20:            | Immedlab of Label
                     21:            | Immed of int
                     22:            | Abs of int
                     23:            | Address of Label
                     24: 
                     25: val d0 : Register
                     26: val d1 : Register
                     27: val d2 : Register
                     28: val d3 : Register
                     29: val d4 : Register
                     30: val d5 : Register
                     31: val d6 : Register
                     32: val d7 : Register
                     33: val a0 : Register
                     34: val a1 : Register
                     35: val a2 : Register
                     36: val a3 : Register
                     37: val a4 : Register
                     38: val a5 : Register
                     39: val a6 : Register
                     40: val sp : Register
                     41: val fp0 : Register
                     42: val fp1 : Register
                     43: val fp2 : Register
                     44: val fp3 : Register
                     45: val fp4 : Register
                     46: val fp5 : Register
                     47: val fp6 : Register
                     48: val fp7 : Register
                     49: 
                     50: val align : unit -> unit
                     51: val mark : unit -> unit
                     52: val define : Label -> unit
                     53: val emitstring : string -> unit
                     54: val realconst : string -> unit
                     55: val emitlong : int -> unit
                     56: 
                     57: val emitlab : int * Label -> unit
                     58: 
                     59: val rts : unit -> unit
                     60: val exg : (EA * EA) -> unit
                     61: val movl : (EA * EA) -> unit
                     62: val orl : (EA * EA) -> unit
                     63: val andl : (EA * EA) -> unit
                     64: val eorl : (EA * EA) -> unit
                     65: val addl : (EA * EA) -> unit
                     66: val subl : (EA * EA) -> unit
                     67: val cmpl : (EA * EA) -> unit
                     68: val btst : (EA * EA) -> unit
                     69: val pea : EA -> unit
                     70: val lea : (EA * EA) -> unit
                     71: val jne : EA -> unit
                     72: val jeq : EA -> unit
                     73: val jra : EA -> unit
                     74: val jbsr : EA -> unit
                     75: 
                     76: val jgt : EA -> unit
                     77: val jge : EA -> unit
                     78: val jlt : EA -> unit
                     79: val jle : EA -> unit
                     80: val asrl : EA * EA -> unit
                     81: val asll : EA * EA -> unit
                     82: val divl : EA * EA -> unit
                     83: val mull : EA * EA -> unit
                     84: val movb : EA * EA -> unit
                     85: 
                     86: val fjne : EA -> unit
                     87: val fjeq : EA -> unit
                     88: val fjgt : EA -> unit
                     89: val fjge : EA -> unit
                     90: val fjlt : EA -> unit
                     91: val fjle : EA -> unit
                     92: 
                     93: val fcmpd : EA * EA -> unit
                     94: val faddd : EA * EA -> unit
                     95: val fsubd : EA * EA -> unit
                     96: val fmuld : EA * EA -> unit
                     97: val fdivd : EA * EA -> unit
                     98: val fnegd : EA * EA -> unit
                     99: val fmoved : EA * EA -> unit
                    100: 
                    101: val trapv : unit -> unit
                    102: val trapmi : unit -> unit
                    103: 
                    104: val exg : EA * EA -> unit
                    105: 
                    106: val push : EA -> unit
                    107: val pusha : EA -> unit
                    108: val pop : EA -> unit
                    109: 
                    110: val comment : string -> unit
                    111: 
                    112: end (* signature CODER *)
                    113: 
                    114: signature M68MCODER = 
                    115: sig 
                    116:     structure Coder : M68CODER
                    117:     val finish : unit -> string
                    118: end

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