Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/link.asm @ 1020:c1a5613ffe7b
changes
author | boisy |
---|---|
date | Thu, 06 Mar 2003 01:41:03 +0000 |
parents | c155aac72190 |
children | 84ea83668304 |
rev | line source |
---|---|
0 | 1 ******************************************************************** |
2 * Link - Link to a module | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
8 * 5 From Tandy OS-9 Level One VR 02.00.00 |
0 | 9 |
10 nam Link | |
11 ttl Link to a module | |
12 | |
13 * Disassembled 98/09/10 23:13:54 by Disasm v1.6 (C) 1988 by RML | |
14 | |
15 ifp1 | |
16 use defsfile | |
17 endc | |
18 | |
19 tylg set Prgrm+Objct | |
20 atrv set ReEnt+rev | |
21 rev set $01 | |
22 edition set 5 | |
23 | |
24 mod eom,name,tylg,atrv,start,size | |
25 | |
924 | 26 org 0 |
0 | 27 u0000 rmb 450 |
28 size equ . | |
29 | |
30 name fcs /Link/ | |
31 fcb edition | |
32 | |
33 start clra | |
34 clrb | |
35 os9 F$Link | |
36 bcs L0026 | |
37 lda ,x+ | |
38 cmpa #C$COMA | |
39 beq start | |
40 lda ,-x | |
41 cmpa #C$CR | |
42 bne start | |
43 clrb | |
44 L0026 os9 F$Exit | |
45 | |
46 emod | |
47 eom equ * | |
48 end | |
49 |