1/* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 */ 6#ifndef lint 7_sccsid:.asciz "@(#)dbxxx.s 5.3 (Berkeley) 01/26/86" 8#endif not lint 9 10#if defined(vax) 11#define CALL(n, f) callg n,*f 12#endif 13#if defined(tahoe) 14#define CALL(n, f) calls n,*f 15#endif 16 17 .data 18 .comm __dbargs,512 19 .text 20 .align 1 21 .globl __dsubc 22__dsubc: 23 CALL(__dbargs+4,__dbargs) 24 .globl __dsubn 25__dsubn: 26 halt 27 28 .data 29/* __lg_flag is used by f77_abort to decide whether or not to dump memory */ 30 .globl __lg_flag 31__lg_flag: 32 .long 1 33 .text 34