ROOT    TITLE   "Z80 BCPL Run Time System  -  Root"
        GET     "HEADER"
        LAYOUT
;  Root of the Z80 BCPL System for the Cambridge Z80 systems.  Define the
;  absolute entry point, and RST38 handler.
        LAYOUT
        REF     BCPL
        REF     RST38

        DEF     ROOT
        LAYOUT
        ABSOLUTE

        ORG     USERRAM                 ;  Main entry point
        JP      BCPL                    ;  Enter main program

        ORG     R38ENTRY                ;  RST #X38 entry point
        JP      RST38                   ;  Enter RST #X38 program
        LAYOUT
        ALIGN

ROOT                                    ;  Start of other BCPL modules
        END


