diff level2/modules/pipeman_named.asm @ 2114:ac2f5aa71f93

made certain pseudo-ops uppercase
author boisy
date Wed, 22 Aug 2007 02:22:41 +0000
parents 46c68f878889
children db97356e3648
line wrap: on
line diff
--- a/level2/modules/pipeman_named.asm	Tue Aug 21 19:06:40 2007 +0000
+++ b/level2/modules/pipeman_named.asm	Wed Aug 22 02:22:41 2007 +0000
@@ -113,10 +113,10 @@
 *
 *   Global equates
 *
-         ifp1  
+         IFP1  
          use   defsfile
          use   pipedefs
-         endc  
+         ENDC  
 
 *
 *   Local Equates
@@ -444,7 +444,7 @@
 
 NewPipe  ldy   10,S       ;Get PD pointer
 
-         ifeq  (PIPEDIR-YESDIR)
+         IFEQ  (PIPEDIR-YESDIR)
          lda   PD.MOD,Y   ;Check pipe attributes
          bita  #DIR.
          beq   NEWP1
@@ -453,7 +453,7 @@
 
          lbsr  SizDirP
 *         beq    XYZZY       ;Special if no pipes created
-         endc  
+         ENDC  
 
 *   Normal (non-dir) processing
 
@@ -639,7 +639,7 @@
 *   Update IOMAN variables.
 *   Reg-Y = where IOMAN thinks the PD is.
 
-         ifeq  (CAUTION-CAREFUL)
+         IFEQ  (CAUTION-CAREFUL)
          cmpy  (14+IOMAGIC),S ;Make sure the stack looks right (PD matches)
          beq   OKMagic
 
@@ -649,7 +649,7 @@
          ldb   #E$Bug
          leas  14,S
          rts   
-         endc  
+         ENDC  
 
 *   Stack is right; go fix PD pointers
 
@@ -678,7 +678,7 @@
          sta   PD.CNT,Y   ;Get rid of any artificial openings
          clr   PD.Keep,Y
 
-         ifeq  (PIPEDIR-YESDIR)
+         IFEQ  (PIPEDIR-YESDIR)
 *   Handle prefill of pipe directory buffer
 
          lda   PD.Mod,Y   ;Is this a DIR. open?
@@ -686,7 +686,7 @@
          beq   OpnXt2
 
          lbsr  FilDirP    ;Send directory info to pipe
-         endc  
+         ENDC  
 
 OpnXt2   ldu   12,S       ;Point at caller's registers
          ldd   4,S        ;Get revised path name pointer
@@ -1079,7 +1079,7 @@
 
 *   Not SS.EOF.  Check for SS.FD
 
-         ifeq  (PIPEDIR-YESDIR)
+         IFEQ  (PIPEDIR-YESDIR)
 NotSSEOF cmpa  #SS.FD
          bne   NotSSFD
 
@@ -1087,9 +1087,9 @@
 
          lbsr  DoSSFD
          bra   G.OK       ;Successful always
-         else  
+         ELSE  
 NotSSEOF equ   *
-         endc  
+         ENDC  
 
 *   Not SS.FD.  Check for SS.ScSiz
 
@@ -1694,7 +1694,7 @@
 
          rts   
 
-         ifeq  (PIPEDIR-YESDIR)
+         IFEQ  (PIPEDIR-YESDIR)
 
 *
 *   Find out how many pipes there are for the
@@ -1854,7 +1854,7 @@
          leas  (16+5),S
          puls  U,X,Y,D,PC
 
-         endc  
+         ENDC  
 
          emod