Mercurial > hg > Members > kono > nitros9-code

changeset 1791:4604b8d90bd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modified to for better use of 51x24 driver
author boisy
date Sat, 09 Apr 2005 21:35:26 +0000
parents 2330195b098c
children 5ff0761dda12
files level1/cmds/debug.asm level1/cmds/dir.asm level1/cmds/login.asm level1/cmds/mdir.asm
diffstat 4 files changed, 21 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/debug.asm	Sat Apr 09 19:17:22 2005 +0000
+++ b/level1/cmds/debug.asm	Sat Apr 09 21:35:26 2005 +0000
@@ -626,8 +626,8 @@
          beq   L0387
          puls  x,y,b,a
          lbra  L0735
-L0380    cmpx  #80		80 columns?
-         beq   L0387		branch if so
+L0380    cmpx  #51		51 columns?
+         bge   L0387		branch if so
          inc   <isnarrow
 L0387    puls  x,y,b,a
          ENDC
--- a/level1/cmds/dir.asm	Sat Apr 09 19:17:22 2005 +0000
+++ b/level1/cmds/dir.asm	Sat Apr 09 21:35:26 2005 +0000
@@ -91,7 +91,7 @@
          clr   <extended
          clr   <narrow
          clr   <dircount
-         ldd   #$1030
+         ldd   #$1030		set default column width and last col
          std   <u0008
          pshs  y,x,b,a
          lda   #$01		standard output
@@ -104,8 +104,12 @@
          lbra  L0268
 L0120    cmpx  #64		at least this wide?
          bge   NoScSiz		branch if so
-         inc   <narrow		else we're going narrow
-         ldd   #$0A14
+         cmpx  #51		51 columns?
+         blt   Do32
+         ldd   #$0A28
+         bra   ScSizNr
+Do32     ldd   #$0A14
+ScSizNr  inc   <narrow		else we're going narrow
          std   <u0008
 NoScSiz  puls  y,x,b,a
          pshs  x		save start of command line
--- a/level1/cmds/login.asm	Sat Apr 09 19:17:22 2005 +0000
+++ b/level1/cmds/login.asm	Sat Apr 09 21:35:26 2005 +0000
@@ -182,7 +182,7 @@
          cmpb  #E$UnkSvc
          beq   L01AB
          lbra  L0280
-L01A4    cmpx  #$0046
+L01A4    cmpx  #51
          bcc   L01AB
          inc   <u0000
 L01AB    lda   #READ.
--- a/level1/cmds/mdir.asm	Sat Apr 09 19:17:22 2005 +0000
+++ b/level1/cmds/mdir.asm	Sat Apr 09 21:35:26 2005 +0000
@@ -65,8 +65,6 @@
 
 start    stx   <parmptr
          clr   <zflag
-         ldd   #$0C30
-         std   <u000F
          clr   <narrow		assume wide output
          lda   #stdout		standard output
          ldb   #SS.ScSiz	we need screen size
@@ -74,13 +72,20 @@
          bcc   L00D2		branch if we got it
          cmpb  #E$UnkSvc	not a known service request error?
          lbne  Exit		if not, exit
-         bra   L00DF
+         bra   Do80
 L00D2    cmpx  #80		80 columns?
-         bge   L00DF		branch if greater or equal to
-         inc   <narrow
+         blt   Chk51		branch if less than
+Do80     ldd   #$0C30
+         bra   SetSize
+Chk51    cmpx  #51		51 columns?
+         blt   Do32
+Do51     ldd   #$0C28
+         bra   SetSize
+Do32     inc   <narrow
          ldd   #$0A15
+SetSize
          std   <u000F
-L00DF    leay  >tophead,pcr
+         leay  >tophead,pcr
          leax  <buffer,u
          stx   <bufptr
          lbsr  copySTR