Topspeed_JPI/TS-V3/SRC/INITNEW.A

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  INITNEW.A - Modula program startup                                      *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

module initnew

section
segment ENTERCODE(CODE,28H)
segment INITCODE(CODE,28H)
segment CODE(none,28H);
segment SIG_TEXT(CODE,68H)
segment EMU_TEXT(EMU_CODE,28H)
segment PROC_TEXT(CODE,68H)
segment MP_CODE(MP_CODE,68H)
segment _TEXT(CODE,28H)
segment _INIT(INIT_CODE,28H)
segment EMU_STATE(DATA,28H)
segment CONST(CONST,28H)
segment _CONST(DATA,28H)
segment _DATA(DATA,28H)
segment BSS_START(BSS,28H)
segment _BSS(BSS,28H)
segment BSS_END(BSS,28H)
segment _FAR_DATA(FAR_DATA,28H)
segment FAR_BSS(FAR_BSS,28H)
segment STACK(STACK,74H)

section

segment ENTERCODE(CODE,28H)
segment INITCODE(CODE,28H)
segment CODE(none,28H);
segment SIG_TEXT(CODE,68H)
segment EMU_TEXT(EMU_CODE,28H)
segment PROC_TEXT(CODE,68H)
segment MP_CODE(MP_CODE,68H)
segment _TEXT(CODE,28H)
segment _INIT(INIT_CODE,28H)
segment EMU_STATE(DATA,28H)
reserved:
  dw 0,0,0,0,0,0,0,0
segment CONST(CONST,28H)
segment _CONST(DATA,28H)
segment _DATA(DATA,28H)
segment BSS_START(BSS,28H)
segment _BSS(BSS,28H)
segment BSS_END(BSS,28H)
segment _FAR_DATA(FAR_DATA,28H)
segment FAR_BSS(FAR_BSS,28H)
segment STACK(STACK,74H)
segment NEAR_STACK(BSS, 28H)
segment NEAR_HEAP(BSS, 28H)

group DGROUP(EMU_STATE,CONST,_CONST,_DATA,BSS_START,_BSS,BSS_END,NEAR_STACK,NEAR_HEAP)

select _DATA

SSisDS    = 8
HeapSize  = 6
StackSize = 4

InitRec: dw 0, 0, 0, _INIT


select BSS_START
public __bss_start:
public _edata:  db 0


select BSS_END
public __bss_end:
public _end:

select _TEXT


text_dummy : org 6

select ENTERCODE
extrn __startup
extrn _x_main
extrn _x_initx
extrn __initx
extrn __heap_size
extrn _x_bss_end
extrn _x_bss_start
extrn __near_stack_start
extrn __x_near_stack_start
extrn __InitLink

  push ds
  mov dx, seg __initx
  mov ds, dx
  mov cx, [__initx]
  mov si, [__initx][2]
  push [__initx][StackSize]
  push ax
  push bx
  mov ax, [__initx][HeapSize]
  dec ax
  mov dx, seg _x_main
  mov ds, dx
  mov [_x_initx], cx
  mov [_x_initx][2], si
  mov [__heap_size], ax
  mov word [__x_near_stack_start], __near_stack_start
  mov ax, cs:[main_ptr]
  mov word [_x_main][0], ax
  mov ax, cs:[main_ptr][2]
  mov word [_x_main][2], ax
  mov bx, InitRec
  mov ax, _DATA
  extrn __InitLink
  call far __InitLink
  pop bx
  pop ax
  mov word [_x_bss_end], __bss_end
  mov word [_x_bss_start], __bss_start

  mov dx, seg __initx
  mov ds, dx
  mov cl, [__initx][SSisDS]
  sub ch, ch
  pop si
  pop ds
  jmp far __startup

dw EMU_STATE
dw CONST
dw _CONST
dw _DATA
dw BSS_START
dw _BSS
dw BSS_END (* establishs order ! *)
dw NEAR_STACK
dw NEAR_HEAP
dw text_dummy
dw reserved
dw 0

extrn _main
main_ptr: dd _main

end *