changeset 829:a114971abd3b

Changed the name of a def because it collided with Level 2
author boisy
date Tue, 14 Jan 2003 03:06:30 +0000
parents 064244c52232
children 80e125a9357d
files level1/cmds/deiniz.asm level1/cmds/iniz.asm level1/cmds/ngu.asm
diffstat 3 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/deiniz.asm	Tue Jan 14 03:04:22 2003 +0000
+++ b/level1/cmds/deiniz.asm	Tue Jan 14 03:06:30 2003 +0000
@@ -22,12 +22,12 @@
 rev      set   $01
 edition  set   4
 
-LINESIZE equ   80
+linebsiz equ   80
 
          mod   eom,name,tylg,atrv,start,size
 
          org   0
-readbuf  rmb   LINESIZE+1
+readbuf  rmb   linebsiz+1
 stack    rmb   64
 size     equ   .
 
@@ -56,7 +56,7 @@
 
 ReadnDnz clra			from stdin
          leax  readbuf,u	point to read buffer
-         ldy   #LINESIZE	get LINESIZE bytes
+         ldy   #linebsiz	get linebsiz bytes
          os9   I$ReadLn 	read it!
          bcc   DenizDev		branch if error
          cmpb  #E$EOF		end of file?
--- a/level1/cmds/iniz.asm	Tue Jan 14 03:04:22 2003 +0000
+++ b/level1/cmds/iniz.asm	Tue Jan 14 03:06:30 2003 +0000
@@ -22,12 +22,12 @@
 rev      set   $01
 edition  set   4
 
-LINESIZE equ   80
+linebsiz equ   80
 
          mod   eom,name,tylg,atrv,start,size
 
          org   0
-readbuf  rmb   LINESIZE+1
+readbuf  rmb   linebsiz+1
 stack    rmb   64
 size     equ   .
 
@@ -52,7 +52,7 @@
 
 ReadnInz clra			from stdin
          leax  readbuf,u	point to read buffer
-         ldy   #LINESIZE	get LINESIZE bytes
+         ldy   #linebsiz	get linebsiz bytes
          os9   I$ReadLn 	read it!
          bcc   InizDev		branch if error
          cmpb  #E$EOF		end of file?
--- a/level1/cmds/ngu.asm	Tue Jan 14 03:04:22 2003 +0000
+++ b/level1/cmds/ngu.asm	Tue Jan 14 03:06:30 2003 +0000
@@ -178,7 +178,7 @@
 IsItA    cmpa  #'a		is it this option?
          bne   IsItB		branch if not
          inc   <gota
-         lbra  FixCmdLn
+         bra  FixCmdLn
 IsItB    cmpa  #'b		is it this option?
          bne   IsItC		branch if not
          inc   <gotb