Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/link.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children e9ce43cc215e
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Link - Link to a module
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 5 Original Tandy/Microware version
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
26 u0000 rmb 450
27 size equ .
28
29 name fcs /Link/
30 fcb edition
31
32 start clra
33 clrb
34 os9 F$Link
35 bcs L0026
36 lda ,x+
37 cmpa #C$COMA
38 beq start
39 lda ,-x
40 cmpa #C$CR
41 bne start
42 clrb
43 L0026 os9 F$Exit
44
45 emod
46 eom equ *
47 end
48