projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 6b9446bf SL |
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 | */ | |
| 02af060c | 6 | #ifndef lint |
| 6b9446bf | 7 | _sccsid:.asciz "@(#)dbxxx.s 5.3 (Berkeley) %G%" |
| 02af060c KM |
8 | #endif not lint |
| 9 | ||
| 6b9446bf SL |
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 | ||
| 02af060c KM |
17 | .data |
| 18 | .comm __dbargs,512 | |
| 19 | .text | |
| 20 | .align 1 | |
| 6b9446bf SL |
21 | .globl __dsubc |
| 22 | __dsubc: | |
| 23 | CALL(__dbargs+4,__dbargs) | |
| 24 | .globl __dsubn | |
| 25 | __dsubn: | |
| 02af060c KM |
26 | halt |
| 27 | ||
| 28 | .data | |
| 6b9446bf | 29 | /* __lg_flag is used by f77_abort to decide whether or not to dump memory */ |
| 7b6021e9 KM |
30 | .globl __lg_flag |
| 31 | __lg_flag: | |
| 32 | .long 1 | |
| 33 | .text |