Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/utils/boisy/makdir.asm @ 2527:051d0f956c6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleaned up patches and attempted to keep tempo intact. Unfortunately tempo is 1.23x slower for no known reason. RG
author robertgault
date Sat, 10 Apr 2010 13:44:38 +0000
parents 0e08f0830fd8
children
line wrap: on
line source

         nam     MakDir Vr. 5
         ttl     Automatically capitalizes directories

         ifp1
         use     defsfile
         endc

         mod     Size,Name,Prgrm+Objct,ReEnt+1,Start,Fin

Name     fcs     /MakDir/
Vrsn     fcb     $05

         org     0

Stuff    rmb     80
Stack    rmb     200
Fin      equ     .

Start    pshs    x
Loop     lda     ,x+
         cmpa    #'a
         blo     DecIt
         cmpa    #'z
         bhi     DecIt
         anda    #$df
         sta     -1,x
DecIt    decb
         bne     Loop
         puls    x
MakDir   ldb     #$bf
Execute  os9     I$MakDir 
         bcs     Error
         clrb
Error    os9     F$Exit 

         emod
Size     equ     *
         end