diff level1/cmds/unlink.asm @ 0:6641a883d6b0

Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000 (2002-04-04)
parents
children e9ce43cc215e
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/unlink.asm	Thu Apr 04 16:34:12 2002 +0000
@@ -0,0 +1,51 @@
+********************************************************************
+* Unlink - Unlink memory module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  2     Original Microware distribution version
+
+         nam   Unlink
+         ttl   Unlink memory module
+
+* Disassembled 02/04/03 22:32:26 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Prgrm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+
+         mod   eom,name,tylg,atrv,start,size
+
+u0000    rmb   512
+size     equ   .
+
+name     fcs   /Unlink/
+         fcb   $02 
+
+start    clra  
+         clrb  
+         os9   F$Link   
+         bcs   L0032
+         os9   F$UnLink 
+         bcs   L0032
+         os9   F$UnLink 
+         bcs   L0032
+         lda   ,x+
+         cmpa  #C$COMA
+         beq   start
+         lda   ,-x
+         cmpa  #C$CR
+         bne   start
+         clrb  
+L0032    os9   F$Exit   
+
+         emod
+eom      equ   *
+         end
+