Subversion Repositories NedoOS

        DEVICE ZXSPECTRUM128

        include "../_sdk/sys_h.asm"

        include "8080.asm"

;

; CCC.ASM:  BDS C Run-Time Package (C.CCC)          v1.6, 2/86

;

;       Copyright (c) 1982, 1983, 1986  by BD Software, Inc.

;

; This is the source to the BDS C run-time package module. When running

; in a standard CP/M system environment, the run-time package object module

; resides at the start of the TPA (typically 100h). The code generated by

; the BDS C Compiler usually has its origin immediately following the end of

; the run-time package module.

;

; This file may be assembled either by Digital Research's assemblers

; (ASM and MAC) or by Microsoft's assembler (M80/L80). Set the M80 symbol

; (below) to specify which assembler shall be used. The final result of the

; assembly is a run-time package module named "C.CCC", ready for use by

; CLINK.COM or L2.COM.

;

;       Assembly instructions for MAC.COM / ASM.COM:

;       (set  M80 to FALSE)

;               >asm ccc

;               >load ccc

;               >ren c.ccc=ccc.com

;

;       Assembly instructions with M80.COM for standard CP/M TPA operation:

;       (set M80 to TRUE)

;               >m80 ccc,ccc=ccc.asm

;               >l80 /p:100,ccc/n,ccc/e

;               >ren c.ccc=ccc.com

;

M80     EQU     FALSE   ;TRUE for M80 and L80, FALSE if using ASM/MAC and LOAD

;

; Equate statements in CAPITAL letters may be configured to control the

; following environmental and auxilliary options of the run-time environment:

;

;       a) operating system environment, or lack thereof  (CPM, MPM2)

;       b) recognition of the CP/M "user area" mechandsm (USAREA)

;       c) CDB debugger interface (USERST, RSTNUM)

;       d) code compression through use of restart vectors 1-7 (ZOPT1-ZOPT7)

;

; All the above options (except CPM and sometimes ZOPT1-ZOPT7) may be altered

; freely WITHOUT requiring the reassembly of the CSM-coded portions of the 

; C library (object in DEFF2.CRL). Changing ZOPT1-ZOPT7 requires library

; reassembly only when PRESRV is set to FALSE.

;

; If generating code for an operating-system-independent application (when

; the CPM equate is set to FALSE), make sure to set the following values:

;

;       e) the origin of the run-time package code segment (ORIGIN)

;       f) the origin of the run-time package's local data area (RAM)

;       g) the transfer address upon program termination (EXITAD)

;

FALSE   equ     0

TRUE    equ     not FALSE

CPM     EQU     TRUE    ;True if to be run under any CP/M- or MP/M-like system

MPM2    EQU     FALSE   ;True ONLY if running MP/M II (forces R/O file closes)

NEDOOS EQU 1

;

;       Use this section to configure run-time package

;       for non-CP/M-resident operation (e.g., for ROM):

;

        IF NOT CPM              ;fill in the appropriate values...

ORIGIN  EQU     NEWBASE         ;Address at which programs are to run

RAM     EQU     WHATEVER        ;R/W memory area for non-CP/M configurations

                                ;(default: immediately after C.Ccall c,under CP/M)

EXITAD  EQU     WHENDONE        ;where to go when done executing

        ENDIF

;

; Some CP/M-specific symbolic values:

;

        if      CPM

nfcbs   EQU     8       ;maximum # of files open at one time

base    equ     0       ;start of system ram

bdos    equ     base+5  ;bdos entry pt.

tpa     equ     base+100h

tbuff   equ     base+80h

ORIGIN  equ     tpa

EXITAD  equ     base    ;warm boot location

conin   equ     1       ;BDOS call codes...console input

cstat   equ     11      ;interrogate console status

closec  equ     16      ;close file

gsuser  equ     32      ;get/set user code

        endif

;

; The location of the jump vectors and utility routines must remain

; constant relative to the beginning of this run-time module.

;

; Do NOT change ANYTHING between here and the start of the

; "init" routine!!!!!!!!

;

        ;IF NOT M80

        org     ORIGIN

begin

        ;ENDIF

        include "ccc.asm"

end

        savebin "c.ccc",begin,end-begin

        LABELSLIST "../../us/user.l"