Mercurial > hg > Members > kono > nitros9-code

annotate level2/cmds/unlink.asm @ 1143:f052edb830d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Article from 1994 about DAVID with background info about Microware
author roug
date Mon, 21 Apr 2003 16:56:47 +0000
parents 6641a883d6b0
children bf6f854a4299
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Unlink - Unlink a module
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * 2 Original Tandy/Microware version
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Unlink
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Unlink a module
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/10 23:12:44 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 edition set 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 u0000 rmb 512
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 name fcs /Unlink/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 start clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 os9 F$UnLoad
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 bcs exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 cmpa #C$COMA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 beq start
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 bne start
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 exit os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 end