Mercurial > hg > Members > kono > nitros9-code

view level2/cmds/unlink.asm @ 696:b0501e9fb255

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hmm. 'xmlto' does not allow underscore in filenames
author roug
date Tue, 31 Dec 2002 12:35:35 +0000
parents 6641a883d6b0
children bf6f854a4299
line wrap: on
line source

********************************************************************
* Unlink - Unlink a module
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
* 2      Original Tandy/Microware version

         nam   Unlink
         ttl   Unlink a module

* Disassembled 98/09/10 23:12:44 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01
edition  set   2

         mod   eom,name,tylg,atrv,start,size

u0000    rmb   512
size     equ   .

name     fcs   /Unlink/
         fcb   edition

start    clra  
         os9   F$UnLoad 
         bcs   exit
         lda   ,x+
         cmpa  #C$COMA
         beq   start
         lda   ,-x
         cmpa  #C$CR
         bne   start
         clrb  
exit     os9   F$Exit   

         emod
eom      equ   *
         end