Mercurial > hg > Members > kono > nitros9-code

changeset 939:8f1263d3e3d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small touch-ups to source
author boisy
date Tue, 21 Jan 2003 13:20:52 +0000
parents cef89b8a4241
children 903ccb6c06cf
files level2/modules/ioman.asm level2/modules/scf.asm
diffstat 2 files changed, 15 insertions(+), 27 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/ioman.asm	Tue Jan 21 05:26:20 2003 +0000
+++ b/level2/modules/ioman.asm	Tue Jan 21 13:20:52 2003 +0000
@@ -27,7 +27,7 @@
 
          IFP1            
          use   defsfile  
-         endc            
+         ENDC            
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev 
@@ -764,12 +764,7 @@
          ldb   #WRITE.   
          bra   L03BA     
 
-IDeletX  equ   *
-         IFNE  H6309
-         ldb   #I$Delete-$80	want to call this routine in FM
-         ELSE
-         ldb   #I$Delete	want to call this routine in FM
-         ENDC
+IDeletX  ldb   #EXEC.+UPDAT.
          pshs  b         
          ldb   R$A,u     
          bra   L03BA     
--- a/level2/modules/scf.asm	Tue Jan 21 05:26:20 2003 +0000
+++ b/level2/modules/scf.asm	Tue Jan 21 13:20:52 2003 +0000
@@ -1,6 +1,8 @@
 ********************************************************************
 * SCF - OS-9 Level Two Sequential Character File Manager
 *
+* $Id$
+*
 * This contains an added SetStat call to allow placing prearranged data
 * into the keyboard buffer of ANY SCF related device.
 *
@@ -15,8 +17,6 @@
 *
 * This also includes Kevin Darlings SCF Editor patches.
 *
-* $Id$
-*
 * Ed.    Comments                                       Who YY/MM/DD
 * ------------------------------------------------------------------
 *        Merged NitrOS-9 and TuneUp versions for        BGP 02/10/11
@@ -125,27 +125,20 @@
          nam   SCF
          ttl   OS-9 Level Two Sequential Character File Manager
 
-         ifp1
+         IFP1
          use   defsfile
          use   scfdefs
-         endc
-
-* Line editor control characters
-
-PLine    equ   $13          Print remainder of line
-Insert   equ   $11          Insert character
-Delete   equ   $10          Delete character
+         ENDC
 
-* Revision
-
-Rev      equ   1            Revision
+tylg     set   FlMgr+Objct
+atrv     set   ReEnt+rev
+rev      set   1
+edition  equ   16
 
-* Module start
-
-         mod   eom,SCFName,FlMgr+Objct,ReEnt+Rev,SCFEnt,0
+         mod   eom,SCFName,tylg,atrv,SCFEnt,0
 
 SCFName  fcs   /SCF/
-         fcb   $10
+         fcb   edition
 
 
 * Default input buffer setting for SCF devices when Opened/Created
@@ -1159,7 +1152,7 @@
          bra   L05F8        go read next character
 
 * Process print rest of line
-L0629    cmpa  #PLine         Print rest of line code?
+L0629    cmpa  #C$PLINE       Print rest of line code?
          bne   L0647          No, check insert
 L062D    pshs  u              Save buffer pointer
          lbsr  L038B          Go print rest of line
@@ -1178,7 +1171,7 @@
          bra   L05F8          Return
 
 * Process Insert character (NOTE:Currently destroys W)
-L0647    cmpa  #Insert        Insert character code?
+L0647    cmpa  #C$INSERT      Insert character code?
          bne   L0664          No, check delete
          IFNE  H6309
          pshs  x,y            Preserve x&y a moment
@@ -1208,7 +1201,7 @@
          bra   L062D          Go print rest of line
 
 * Process delete line
-L0664    cmpa  #Delete        Delete character code?
+L0664    cmpa  #C$DELETE      Delete character code?
          bne   L068B          No, check end of line
          pshs  u              Save buffer pointer
          lda   ,u             Get character there