# HG changeset patch
# User boisy
# Date 1113082526 0
# Node ID 4604b8d90bd5eef8d7527ddcf49acf00f8ab0bc1
# Parent  2330195b098cd5c180311c2d6ff78c8bbd28de82
Modified to for better use of 51x24 driver

diff -r 2330195b098c -r 4604b8d90bd5 level1/cmds/debug.asm
--- 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
diff -r 2330195b098c -r 4604b8d90bd5 level1/cmds/dir.asm
--- 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
diff -r 2330195b098c -r 4604b8d90bd5 level1/cmds/login.asm
--- 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.
diff -r 2330195b098c -r 4604b8d90bd5 level1/cmds/mdir.asm
--- 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