Topspeed_JPI/JPI-1/asm/arder.a

(* Copyright (C) 1987 Jensen & Partners International *)
(* This module can be used to change the ordering of segments and
   classes. This version causes the program entry point to be at
   zero which is useful for GEM.

   To use it, use the batch command:

   m2 /l order+prog,prog

   where prog is the name of your program.
*)

module order

segment ENTERCODE(CODE,28H)
segment INITCODE(CODE,28H)
(*ajout *)
segment MW_VECT(CODE,68H)
segment FIND_CODE(CODE,68H)
(* fin    *)

segment C_ORDER(FCODE,28H);group G_order (C_ORDER);

select C_ORDER;


 public order$Q_ORDEROBJ_Q:
        ret    far        0

segment _DATA(BSS,68H)
segment EMU_STATE(DATA,68H)
segment D_MATHLIB(DATA,68H)
segment DATASTART(DUMMY,68H)
segment _BSS(BSS,68H)
segment D_ORDER(M_DATA,68H)
segment STACK(STACK,68H)
segment HEAP(HEAP,68H)

end