|
|
1.1 ! root 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) 1/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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.