|
0
|
1 ********************************************************************
|
|
|
2 * Unlink - Unlink memory module
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Unlink
|
|
|
11 ttl Unlink memory module
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 22:32:26 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
|
|
|
23 mod eom,name,tylg,atrv,start,size
|
|
|
24
|
|
|
25 u0000 rmb 512
|
|
|
26 size equ .
|
|
|
27
|
|
|
28 name fcs /Unlink/
|
|
|
29 fcb $02
|
|
|
30
|
|
|
31 start clra
|
|
|
32 clrb
|
|
|
33 os9 F$Link
|
|
|
34 bcs L0032
|
|
|
35 os9 F$UnLink
|
|
|
36 bcs L0032
|
|
|
37 os9 F$UnLink
|
|
|
38 bcs L0032
|
|
|
39 lda ,x+
|
|
|
40 cmpa #C$COMA
|
|
|
41 beq start
|
|
|
42 lda ,-x
|
|
|
43 cmpa #C$CR
|
|
|
44 bne start
|
|
|
45 clrb
|
|
|
46 L0032 os9 F$Exit
|
|
|
47
|
|
|
48 emod
|
|
|
49 eom equ *
|
|
|
50 end
|
|
|
51
|
