diff 3rdparty/utils/boisy/timer.asm @ 1260:0e08f0830fd8

Changes pointed out by Rodney H.
author boisy
date Mon, 18 Aug 2003 12:03:50 +0000
parents 6641a883d6b0
children
line wrap: on
line diff
--- a/3rdparty/utils/boisy/timer.asm	Mon Aug 18 03:22:19 2003 +0000
+++ b/3rdparty/utils/boisy/timer.asm	Mon Aug 18 12:03:50 2003 +0000
@@ -19,7 +19,7 @@
          use   defsfile
          endc
 
-         mod   Size,Name,Prgrm+Objct,Reent+1,Start,Fin
+         mod   Size,Name,Prgrm+Objct,ReEnt+1,Start,Fin
 
 Name     fcs   /Timer/
 Ed       fcb   $02
@@ -37,13 +37,13 @@
 Fin      equ   .
 
 HelpMsg  fcc   /Usage:  Timer <progname> [params]/
-SpCR     fcb   $20,$0a,$0d
+SpCR     fcb   C$SPAC,C$LF,C$CR
 HelpLen  equ   *-HelpMsg
 
 
-Header   fdb   $0a0d
+Header   fdb   C$LF,C$CR
          fcc   /Timer Statistics:/
-         fdb   $0a0d,$0a0d
+         fdb   C$LF,C$CR,C$LF,C$CR
          fcc   /Command line:  /
 Header1  fcc   /Date:  /
 Header2  fcc   /Start Time:  /
@@ -53,31 +53,31 @@
 
 Start    decb                          Check for params
          lbeq  Help                    if none, show help
-         lda   #$0d
+         lda   #C$CR
          leay  ParmBuff,u              Else put a CR in param buffer
          sta   ,y
 
          leay  ProgName,u              and put progname in progname buffer
 GetName  lda   ,x+
          sta   ,y+
-         cmpa  #$20                    any space after name?
+         cmpa  #C$SPAC                 any space after name?
          beq   PlaceCR                 Yep, assume params are on line
-         cmpa  #$0d                    Is next char a CR?
+         cmpa  #C$CR                   Is next char a CR?
          bne   GetName                 nope, not finished getting name
          bra   GetTime                 else assume no params...
 
-PlaceCR  lda   #$0D                    Put CR behind progname,
+PlaceCR  lda   #C$CR                   Put CR behind progname,
          sta   -1,y
 
 SkipSpac lda   ,x+                     skip leading spaces
-         cmpa  #$20
+         cmpa  #C$SPAC
          beq   SkipSpac
          leax  -1,x
 
 SaveParm leay  ParmBuff,u              and store params in param buffer
 Loop     lda   ,x+
          sta   ,y+
-         cmpa  #$0d                    Is char a CR?
+         cmpa  #C$CR                   Is char a CR?
          beq   GetTime                 Yep, we're finished parsing
          bra   Loop                    else get next char
 
@@ -122,7 +122,7 @@
          leax  ParmBuff,u
          ldy   #200
          lda   #2
-         os9   I$Writln
+         os9   I$WritLn
          bcs   Error
          bra   DateShow
 
@@ -252,7 +252,7 @@
          bcc   p1
          sta   ,u+
          cmpa  #$30
-         bne   P2
+         bne   p2
          leau  -1,u
 p2       lda   #$3a
 p3       deca
@@ -263,6 +263,7 @@
          stb   ,u+
          puls  a,b,u
          rts
+
          emod
 Size     equ   *
          end