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
|
* ~Zero - zero an area of direct page memory
|
||||||
*
|
*
|
||||||
* Inputs:
|
* Inputs:
|
||||||
* addr - address of the memory
|
* addr - address of the memory
|
||||||
* size - number of bytes to zero (must be > 1)
|
* size - number of bytes to zero (must be > 1)
|
||||||
*
|
*
|
||||||
****************************************************************
|
****************************************************************
|
||||||
*
|
*
|
||||||
~Zero start
|
~Zero start
|
||||||
|
|
||||||
csubroutine (2:size,4:addr),0
|
csubroutine (2:size,4:addr),0
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta [addr]
|
sta [addr]
|
||||||
ldx addr
|
ldx addr
|
||||||
txy
|
txy
|
||||||
iny
|
iny
|
||||||
lda size
|
lda size
|
||||||
dea
|
dea
|
||||||
dea
|
dea
|
||||||
phb
|
phb
|
||||||
mvn 0,0
|
mvn 0,0
|
||||||
plb
|
plb
|
||||||
|
|
||||||
creturn
|
creturn
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -850,7 +850,7 @@ __ctype start
|
||||||
* __ctype2 - character types array
|
* __ctype2 - character types array
|
||||||
*
|
*
|
||||||
* This data area defines a second array of of bit masks. It
|
* 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
|
* determine if a character is allowed as an initial character
|
||||||
* in a symbol, and _csym with the array element for the
|
* in a symbol, and _csym with the array element for the
|
||||||
* character being tested. If the result is non-zero, 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?
|
_IOEOF gequ $0080 has an EOF been found?
|
||||||
_IOERR gequ $0100 has an error occurred?
|
_IOERR gequ $0100 has an error occurred?
|
||||||
_IOTEXT gequ $0200 is this file a text file?
|
_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
|
! record structure
|
||||||
! ----------------
|
! ----------------
|
||||||
|
|
|
||||||
6
orca.asm
6
orca.asm
|
|
@ -85,9 +85,9 @@ shellid start
|
||||||
rtl
|
rtl
|
||||||
|
|
||||||
lb1 lda >~COMMANDLINE+2
|
lb1 lda >~COMMANDLINE+2
|
||||||
pha
|
pha
|
||||||
lda >~COMMANDLINE
|
lda >~COMMANDLINE
|
||||||
pha
|
pha
|
||||||
phd
|
phd
|
||||||
tsc
|
tsc
|
||||||
tcd
|
tcd
|
||||||
|
|
|
||||||
16
stdio.asm
16
stdio.asm
|
|
@ -640,7 +640,7 @@ rdTransferCount ds 4
|
||||||
*
|
*
|
||||||
* Outputs:
|
* Outputs:
|
||||||
* Returns NULL if an EOF is encountered, placing any
|
* 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.
|
* 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.
|
* 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.
|
* is mapped into EOF.
|
||||||
*
|
*
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
|
@ -2273,7 +2273,7 @@ args ds 2 original argument address
|
||||||
* int putchar(c)
|
* int putchar(c)
|
||||||
* char 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.
|
* returned. No errors are possible.
|
||||||
*
|
*
|
||||||
* The character \n is automatically followed by a $0D, which
|
* The character \n is automatically followed by a $0D, which
|
||||||
|
|
@ -4264,7 +4264,7 @@ lb3 creturn 4:ptr
|
||||||
* ------------------------
|
* ------------------------
|
||||||
*
|
*
|
||||||
* '-' Left justify the output.
|
* '-' 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.
|
* flag is ignored if the '-' flag is also used.
|
||||||
* '+' Only used for conversion operations 'd' 'e' 'E' 'f' 'g' 'G'.
|
* '+' Only used for conversion operations 'd' 'e' 'E' 'f' 'g' 'G'.
|
||||||
* Specifies that a leading sign is to be printed for
|
* Specifies that a leading sign is to be printed for
|
||||||
|
|
@ -4278,7 +4278,7 @@ lb3 creturn 4:ptr
|
||||||
* Optional Min Field Width
|
* 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
|
* argument is consumed from the stack and used as the field
|
||||||
* width. In either case, the output value is printed in a field
|
* width. In either case, the output value is printed in a field
|
||||||
* that is NUMBER characters wide. By default, the value is
|
* 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
|
* 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.
|
* but have no effect in this implementation.
|
||||||
*
|
*
|
||||||
* Conversion Specifier
|
* Conversion Specifier
|
||||||
|
|
@ -5223,7 +5223,7 @@ read ds 2 # chars read
|
||||||
* int ~scanf(format, additional arguments)
|
* int ~scanf(format, additional arguments)
|
||||||
* char *format;
|
* 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:
|
* is interpreted as follows:
|
||||||
*
|
*
|
||||||
* Assignment Suppression Flag
|
* Assignment Suppression Flag
|
||||||
|
|
@ -5367,7 +5367,7 @@ rm1d cmp #']' skip ']' in scanset, if present
|
||||||
bne rm2a
|
bne rm2a
|
||||||
rm2 jsr IncFormat
|
rm2 jsr IncFormat
|
||||||
rm2a tax
|
rm2a tax
|
||||||
beq rt1 skip up to the closing ']'
|
beq rt1 skip up to the closing ']'
|
||||||
cmp #']'
|
cmp #']'
|
||||||
bne rm2
|
bne rm2
|
||||||
rm3 tyx if '*' not found
|
rm3 tyx if '*' not found
|
||||||
|
|
|
||||||
|
|
@ -742,7 +742,7 @@ lb1 lda [s1],Y
|
||||||
inc s2+2
|
inc s2+2
|
||||||
bra lb1
|
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.
|
lda [s2],Y strings are equal.
|
||||||
beq lb4
|
beq lb4
|
||||||
less ldx #-1 It wasn't, so *s1 < *s2
|
less ldx #-1 It wasn't, so *s1 < *s2
|
||||||
|
|
@ -1058,7 +1058,7 @@ lb1a iny
|
||||||
inc s2+2
|
inc s2+2
|
||||||
bra lb1
|
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.
|
lda [s2],Y strings are equal.
|
||||||
beq lb4
|
beq lb4
|
||||||
less ldx #-1 It wasn't, so *s1 < *s2
|
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_year ds 2 year 70..200 (1900=0)
|
||||||
tm_wday ds 2 day of week 0..6 (Sun = 0)
|
tm_wday ds 2 day of week 0..6 (Sun = 0)
|
||||||
tm_yday ds 2 day of year 0..365
|
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
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
|
|
||||||
28
toolglue.asm
28
toolglue.asm
|
|
@ -625,21 +625,21 @@ GetMSData start
|
||||||
|
|
||||||
csubroutine (4:reserved,4:DP),0
|
csubroutine (4:reserved,4:DP),0
|
||||||
|
|
||||||
tsc
|
tsc
|
||||||
sec
|
sec
|
||||||
sbc #8
|
sbc #8
|
||||||
tcs
|
tcs
|
||||||
_GetMSData
|
_GetMSData
|
||||||
sta >~TOOLERROR
|
sta >~TOOLERROR
|
||||||
ldy #2
|
ldy #2
|
||||||
pla
|
pla
|
||||||
sta [DP]
|
sta [DP]
|
||||||
pla
|
pla
|
||||||
sta [DP],Y
|
sta [DP],Y
|
||||||
pla
|
pla
|
||||||
sta [reserved]
|
sta [reserved]
|
||||||
pla
|
pla
|
||||||
sta [reserved],Y
|
sta [reserved],Y
|
||||||
|
|
||||||
creturn
|
creturn
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue