Mercurial > hg > Members > kono > nitros9-code

changeset 1349:b9df6b3f2eef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rolled Level 2 unlink into here.
author boisy
date Wed, 17 Sep 2003 20:10:46 +0000
parents 8e804211cb25
children 8e90ef1b670e
files level1/cmds/unlink.asm
diffstat 1 files changed, 10 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/unlink.asm	Wed Sep 17 18:19:38 2003 +0000
+++ b/level1/cmds/unlink.asm	Wed Sep 17 20:10:46 2003 +0000
@@ -7,7 +7,7 @@
 * Comment
 * ------------------------------------------------------------------
 *   2      ????/??/??
-* From Tandy OS-9 Level One VR 02.00.00.
+* Original Tandy/Microware version
 
          nam   Unlink
          ttl   Unlink memory module
@@ -33,21 +33,22 @@
          fcb   edition
 
 start    clra  
+         IFGT  Level-1
+         os9   F$UnLoad
+         ELSE
          clrb  
          os9   F$Link   
-         bcs   L0032
-         os9   F$UnLink 
-         bcs   L0032
+         bcs   exit
          os9   F$UnLink 
-         bcs   L0032
-         lda   ,x+
-         cmpa  #C$COMA
-         beq   start
+         bcs   exit
+         os9   F$UnLink 
+         ENDC
+         bcs   exit
          lda   ,-x
          cmpa  #C$CR
          bne   start
          clrb  
-L0032    os9   F$Exit   
+exit     os9   F$Exit   
 
          emod
 eom      equ   *