|
31
|
1 ********************************************************************
|
|
|
2 * Unlink - Unlink a module
|
|
|
3 *
|
|
|
4 * $Id: unlink.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Original Tandy/Microware version
|
|
|
9
|
|
|
10 nam Unlink
|
|
|
11 ttl Unlink a module
|
|
|
12
|
|
|
13 * Disassembled 98/09/10 23:12:44 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 2
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 512
|
|
|
27 size equ .
|
|
|
28
|
|
|
29 name fcs /Unlink/
|
|
|
30 fcb edition
|
|
|
31
|
|
|
32 start clra
|
|
|
33 os9 F$UnLoad
|
|
|
34 bcs exit
|
|
|
35 lda ,x+
|
|
|
36 cmpa #C$COMA
|
|
|
37 beq start
|
|
|
38 lda ,-x
|
|
|
39 cmpa #C$CR
|
|
|
40 bne start
|
|
|
41 clrb
|
|
|
42 exit os9 F$Exit
|
|
|
43
|
|
|
44 emod
|
|
|
45 eom equ *
|
|
|
46 end
|
