Use consistent indentation within files.
Tabs have been expanded to spaces in several files that use mainly spaces for indentation. The files ctype.asm, stdio.asm, and string.asm consistently use tabs for indentation. The tabs in these files have been left alone, except that a few tabs between sentences in comments were changed to spaces. One space-indented line in stdio.asm was changed to use a tab.
This commit is contained in:
Stephen Heumann
parent
44dfc1d1d6
commit
573bc6efa9
30
cc.asm
30
cc.asm
|
|
@ -1085,26 +1085,26 @@ dv10 pld return
|
|||
* ~Zero - zero an area of direct page memory
|
||||
*
|
||||
* Inputs:
|
||||
* addr - address of the memory
|
||||
* size - number of bytes to zero (must be > 1)
|
||||
* addr - address of the memory
|
||||
* size - number of bytes to zero (must be > 1)
|
||||
*
|
||||
****************************************************************
|
||||
*
|
||||
~Zero start
|
||||
~Zero start
|
||||
|
||||
csubroutine (2:size,4:addr),0
|
||||
|
||||
lda #0
|
||||
sta [addr]
|
||||
ldx addr
|
||||
txy
|
||||
iny
|
||||
lda size
|
||||
dea
|
||||
dea
|
||||
phb
|
||||
mvn 0,0
|
||||
plb
|
||||
lda #0
|
||||
sta [addr]
|
||||
ldx addr
|
||||
txy
|
||||
iny
|
||||
lda size
|
||||
dea
|
||||
dea
|
||||
phb
|
||||
mvn 0,0
|
||||
plb
|
||||
|
||||
creturn
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -850,7 +850,7 @@ __ctype start
|
|||
* __ctype2 - character types array
|
||||
*
|
||||
* This data area defines a second array of of bit masks. It
|
||||
* is used to test for character types. For example, to
|
||||
* is used to test for character types. For example, to
|
||||
* determine if a character is allowed as an initial character
|
||||
* in a symbol, and _csym with the array element for the
|
||||
* character being tested. If the result is non-zero, the
|
||||
|
|
|
|||
|
|
@ -61,7 +61,7 @@ _IOMYBUF gequ $0040 buffer was allocated by stdio
|
|||
_IOEOF gequ $0080 has an EOF been found?
|
||||
_IOERR gequ $0100 has an error occurred?
|
||||
_IOTEXT gequ $0200 is this file a text file?
|
||||
_IOTEMPFILE gequ $0400 was this file created by tmpfile()?
|
||||
_IOTEMPFILE gequ $0400 was this file created by tmpfile()?
|
||||
|
||||
! record structure
|
||||
! ----------------
|
||||
|
|
|
|||
6
orca.asm
6
orca.asm
|
|
@ -85,9 +85,9 @@ shellid start
|
|||
rtl
|
||||
|
||||
lb1 lda >~COMMANDLINE+2
|
||||
pha
|
||||
lda >~COMMANDLINE
|
||||
pha
|
||||
pha
|
||||
lda >~COMMANDLINE
|
||||
pha
|
||||
phd
|
||||
tsc
|
||||
tcd
|
||||
|
|
|
|||
16
stdio.asm
16
stdio.asm
|
|
@ -640,7 +640,7 @@ rdTransferCount ds 4
|
|||
*
|
||||
* Outputs:
|
||||
* Returns NULL if an EOF is encountered, placing any
|
||||
* characters read before the EOF into s. Returns S if
|
||||
* characters read before the EOF into s. Returns S if
|
||||
* a line or part of a line is read.
|
||||
*
|
||||
****************************************************************
|
||||
|
|
@ -2064,7 +2064,7 @@ wrTransferCount ds 4
|
|||
*
|
||||
* Read a character from standard in. No errors are possible.
|
||||
*
|
||||
* The character read is returned in A. The null character
|
||||
* The character read is returned in A. The null character
|
||||
* is mapped into EOF.
|
||||
*
|
||||
****************************************************************
|
||||
|
|
@ -2273,7 +2273,7 @@ args ds 2 original argument address
|
|||
* int putchar(c)
|
||||
* char c;
|
||||
*
|
||||
* Print the character to standard out. The character is
|
||||
* Print the character to standard out. The character is
|
||||
* returned. No errors are possible.
|
||||
*
|
||||
* The character \n is automatically followed by a $0D, which
|
||||
|
|
@ -4264,7 +4264,7 @@ lb3 creturn 4:ptr
|
|||
* ------------------------
|
||||
*
|
||||
* '-' Left justify the output.
|
||||
* '0' Use '0' for the pad character rather than ' '. This
|
||||
* '0' Use '0' for the pad character rather than ' '. This
|
||||
* flag is ignored if the '-' flag is also used.
|
||||
* '+' Only used for conversion operations 'd' 'e' 'E' 'f' 'g' 'G'.
|
||||
* Specifies that a leading sign is to be printed for
|
||||
|
|
@ -4278,7 +4278,7 @@ lb3 creturn 4:ptr
|
|||
* Optional Min Field Width
|
||||
* ------------------------
|
||||
*
|
||||
* This field is either a number or *. If it is *, an integer
|
||||
* This field is either a number or *. If it is *, an integer
|
||||
* argument is consumed from the stack and used as the field
|
||||
* width. In either case, the output value is printed in a field
|
||||
* that is NUMBER characters wide. By default, the value is
|
||||
|
|
@ -4295,7 +4295,7 @@ lb3 creturn 4:ptr
|
|||
* -----------------------
|
||||
*
|
||||
* An 'l' indicates that the 'd', 'o', 'u', 'x' or 'X' argument is
|
||||
* long. 'L' and 'u' are also accepted for compliance with ANSI C,
|
||||
* long. 'L' and 'u' are also accepted for compliance with ANSI C,
|
||||
* but have no effect in this implementation.
|
||||
*
|
||||
* Conversion Specifier
|
||||
|
|
@ -5223,7 +5223,7 @@ read ds 2 # chars read
|
|||
* int ~scanf(format, additional arguments)
|
||||
* char *format;
|
||||
*
|
||||
* Scan by calling ~getchar indirectly. If a '%' is found, it
|
||||
* Scan by calling ~getchar indirectly. If a '%' is found, it
|
||||
* is interpreted as follows:
|
||||
*
|
||||
* Assignment Suppression Flag
|
||||
|
|
@ -5367,7 +5367,7 @@ rm1d cmp #']' skip ']' in scanset, if present
|
|||
bne rm2a
|
||||
rm2 jsr IncFormat
|
||||
rm2a tax
|
||||
beq rt1 skip up to the closing ']'
|
||||
beq rt1 skip up to the closing ']'
|
||||
cmp #']'
|
||||
bne rm2
|
||||
rm3 tyx if '*' not found
|
||||
|
|
|
|||
|
|
@ -742,7 +742,7 @@ lb1 lda [s1],Y
|
|||
inc s2+2
|
||||
bra lb1
|
||||
|
||||
lb2 ldx #0 s1 is finished. If s2 is, too, the
|
||||
lb2 ldx #0 s1 is finished. If s2 is, too, the
|
||||
lda [s2],Y strings are equal.
|
||||
beq lb4
|
||||
less ldx #-1 It wasn't, so *s1 < *s2
|
||||
|
|
@ -1058,7 +1058,7 @@ lb1a iny
|
|||
inc s2+2
|
||||
bra lb1
|
||||
|
||||
lb2 ldx #0 s1 is finished. If s2 is, too, the
|
||||
lb2 ldx #0 s1 is finished. If s2 is, too, the
|
||||
lda [s2],Y strings are equal.
|
||||
beq lb4
|
||||
less ldx #-1 It wasn't, so *s1 < *s2
|
||||
|
|
|
|||
2
time.asm
2
time.asm
|
|
@ -364,7 +364,7 @@ tm_mon ds 2 month 0..11
|
|||
tm_year ds 2 year 70..200 (1900=0)
|
||||
tm_wday ds 2 day of week 0..6 (Sun = 0)
|
||||
tm_yday ds 2 day of year 0..365
|
||||
tm_isdst ds 2 daylight savings? 1 = yes, 0 = no
|
||||
tm_isdst ds 2 daylight savings? 1 = yes, 0 = no
|
||||
end
|
||||
|
||||
****************************************************************
|
||||
|
|
|
|||
28
toolglue.asm
28
toolglue.asm
|
|
@ -625,21 +625,21 @@ GetMSData start
|
|||
|
||||
csubroutine (4:reserved,4:DP),0
|
||||
|
||||
tsc
|
||||
sec
|
||||
sbc #8
|
||||
tcs
|
||||
_GetMSData
|
||||
tsc
|
||||
sec
|
||||
sbc #8
|
||||
tcs
|
||||
_GetMSData
|
||||
sta >~TOOLERROR
|
||||
ldy #2
|
||||
pla
|
||||
sta [DP]
|
||||
pla
|
||||
sta [DP],Y
|
||||
pla
|
||||
sta [reserved]
|
||||
pla
|
||||
sta [reserved],Y
|
||||
ldy #2
|
||||
pla
|
||||
sta [DP]
|
||||
pla
|
||||
sta [DP],Y
|
||||
pla
|
||||
sta [reserved]
|
||||
pla
|
||||
sta [reserved],Y
|
||||
|
||||
creturn
|
||||
end
|
||||
|
|
|
|||
Loading…
Reference in New Issue