====== UNLINK ======
<code>
Header for : Unlink
Module size: $38  #56
Module CRC : $9C977B (Good)
Hdr parity : $10
Exec. off  : $0014  #20
Data size  : $0200  #512
Edition    : $02  #2
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

</code>
===== CODE =====
<code>
* Disassembly by Os9disasm of unlink

 mod L0038,L000d,$11,$81,L0014,D0200

* OS-9 system function equates

F$Link equ $00
F$UnLink equ $02
F$Exit equ $06

* OS9 data area definitions

 rmb 512
D0200 equ .

L000d fcb $55
 jmp   12,s
 rol   14,s
 addb  2,x
L0014 clra  
 clrb  
 os9 F$Link
 bcs   L0032
 os9 F$UnLink
 bcs   L0032
 os9 F$UnLink
 bcs   L0032
 lda   ,x+
 cmpa  #$2c
 beq   L0014
 lda   ,-x
 cmpa  #$0d
 bne   L0014
 clrb  
L0032 os9 F$Exit

 emod 

L0038 equ *

 end
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]