Apple-2gs-SW
/
ORCALib
mirror of https://github.com/byteworksinc/ORCALib.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Spellcheck comments.

This commit is contained in:
Stephen Heumann 2020-02-16 13:29:53 -06:00
parent 573bc6efa9
commit e5360c9605
8 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
equates.asm
View File

@ -70,7 +70,7 @@ FILE_ptr gequ FILE_next+4 next location to write to
FILE_base gequ FILE_ptr+4 first byte of the buffer
FILE_end gequ FILE_base+4 end of the file buffer
FILE_size gequ FILE_end+4 size of the file buffer
FILE_cnt gequ FILE_size+4 # chars that can be read/writen to buffer
FILE_cnt gequ FILE_size+4 # chars that can be read/written to buffer
FILE_pbk gequ FILE_cnt+4 put back character
FILE_flag gequ FILE_pbk+2 buffer flags
FILE_file gequ FILE_flag+2 GS/OS file ID

6
signal.asm
View File

@ -4,7 +4,7 @@
****************************************************************
*
* signal - Asyncronous event signal handler
* signal - Asynchronous event signal handler
*
* April 1990
* Mike Westerfield
@ -27,7 +27,7 @@ SIGMAX gequ 6 maximum number of signals
*
* void (*signal(int sig, void (*func) (int)))(int);
*
* Set the interupt handler
* Set the interrupt handler
*
* Inputs:
* sig - signal number
@ -41,7 +41,7 @@ SIGMAX gequ 6 maximum number of signals
*
signal start
using signalCommon
ptr equ 1 old sugnal handler
ptr equ 1 old signal handler
csubroutine (2:sig,4:func),4

18
stdio.asm
View File

@ -29,7 +29,7 @@ StdIO start dummy segment
* void clearerr(stream)
* FILE *stream;
*
* Clears the error flag for the givin stream.
* Clears the error flag for the given stream.
*
* Inputs:
* stream - file to clear
@ -334,7 +334,7 @@ fa3 lda #EOF assume there is an error
ph4 stream verify that stream exists
jsl ~VerifyStream
jcs rts
ldy #FILE_flag if the mode is not writting, quit
ldy #FILE_flag if the mode is not writing, quit
lda [stream],Y
and #_IOWRT
beq fl1
@ -1410,7 +1410,7 @@ lb1 ldy #FILE_flag if the file is not prepared for
bne lb2
bit #_IOREAD if it is being read then
bne pc2 flag the error
ora #_IOWRT set the writting flag
ora #_IOWRT set the writing flag
sta [stream],Y
lb2 ldy #FILE_file branch if this is a disk file
lda [stream],Y
@ -3109,7 +3109,7 @@ f equ 1 file pointer
jsl fopen
sta f
stx f+2
ora f+2 if sucessful then
ora f+2 if successful then
beq lb1
ldy #FILE_flag f->_flag |= _IOTEMPFILE
lda [f],Y
@ -3141,7 +3141,7 @@ type cstr 'w+bx'
*
ungetc start
char equ 1 characater to return
char equ 1 character to return
csubroutine (2:c,4:stream),2
@ -4287,7 +4287,7 @@ lb3 creturn 4:ptr
* Optional Precision
* ------------------
*
* This field is a number, *, or is ommitted. If it is an integer,
* This field is a number, *, or is omitted. If it is an integer,
* an argument is removed from the stack and used as the precision.
* The precision is used to describe how many digits to print.
*
@ -4302,9 +4302,9 @@ lb3 creturn 4:ptr
* --------------------
*
* d,i Signed decimal conversion from type int or long.
* u Signed decmal conversion from type unsigned or unsigned long.
* u Signed decimal conversion from type unsigned or unsigned long.
* o Octal conversion.
* x,X Hexadecomal conversion. 'x' generates lowercase hex digits,
* x,X Hexadecimal conversion. 'x' generates lowercase hex digits,
* while 'X' generates uppercase hex digits.
* c Character.
* s String.
@ -5546,7 +5546,7 @@ ch ds 2 temp storage
~eofFound ds 2 was EOF found during the scan?
~suppress ds 2 suppress assignment?
~scanCount ds 2 # of characters scanned
~scanError ds 2 set to 1 by scaners if an error occurs
~scanError ds 2 set to 1 by scanners if an error occurs
~scanWidth ds 2 max # characters to scan
~size ds 2 size specifier; -1 -> char, 1 -> long,
! 0 -> default

4
stdlib.asm
View File

@ -661,7 +661,7 @@ sr4b ph4 left swap left/right entries
lda left
cmp right
sr5 blt sr2
ph4 right sqap left/right entries
ph4 right swap left/right entries
ph4 left
jsr swap
ph4 left swap left/last entries
@ -1183,7 +1183,7 @@ D equ 1 caller's DP
tsc
adc >toRemove
tcs
pld resore the caller's DP
pld restore the caller's DP
plx remove the parameter from the stack
ply
pla

32
string.asm
View File

@ -85,7 +85,7 @@ lb2 sty str1
* set - pointer to the set of characters
*
* Outputs:
* strset - set of bytes; non-sero for chars in set
* strset - set of bytes; non-zero for chars in set
*
****************************************************************
*
@ -203,8 +203,8 @@ lb4 lda rtl+1 remove parameters from the stack
* equal, return 0; otherwise, return 1.
*
* Inputs:
* p1 - string to concatonate to
* p2 - string to concatonate
* p1 - string to concatenate to
* p2 - string to concatenate
*
* Outputs:
* A - result
@ -577,14 +577,14 @@ lb2 long I,M
****************************************************************
*
* strcat - string concatonation
* strcat - string concatenation
*
* Place *s2 at the end of *s1, returning a pointer to *s1. No
* checking for length is performed.
*
* Inputs:
* s1 - string to concatonate to
* s2 - string to concatonate
* s1 - string to concatenate to
* s2 - string to concatenate
*
* Outputs:
* X-A - pointer to the result (s1)
@ -956,14 +956,14 @@ lb2 long M
****************************************************************
*
* strncat - string concatonation with max length
* strncat - string concatenation with max length
*
* Place *s2 at the end of *s1, returning a pointer to *s1. No
* checking for length is performed.
*
* Inputs:
* s1 - string to concatonate to
* s2 - string to concatonate
* s1 - string to concatenate to
* s2 - string to concatenate
* n - max # chars to copy
*
* Outputs:
@ -1021,8 +1021,8 @@ lb4 lda #0 write the terminating null
* equal, return 0; otherwise, return 1.
*
* Inputs:
* s1 - string to concatonate to
* s2 - string to concatonate
* s1 - string to concatenate to
* s2 - string to concatenate
* n - max length of the strings
*
* Outputs:
@ -1243,9 +1243,9 @@ lb3 long M
****************************************************************
*
* strrchr - find the last occurrance of a character in a string
* strrchr - find the last occurrence of a character in a string
*
* Returns a pointer to the last occurrance of the character
* Returns a pointer to the last occurrence of the character
*
* Inputs:
* str - string to search
@ -1307,9 +1307,9 @@ lb4 long M
****************************************************************
*
* strrpos - find the last occurrance of a character in a string
* strrpos - find the last occurrence of a character in a string
*
* Returns the position of the las occurrance of the character
* Returns the position of the last occurrence of the character
*
* Inputs:
* str - string to search
@ -1598,7 +1598,7 @@ ds5 anop
;
; Search for the string
;
ss0 lda lensub if the length of the sreach string is
ss0 lda lensub if the length of the search string is
and #$8000 > 32767 then use a long method
ora lensub+2
beq ss3

2
time.asm
View File

@ -373,7 +373,7 @@ tm_isdst ds 2 daylight savings? 1 = yes, 0 = no
* struct tm *tmptr
*
* Inputs:
* tmptr - poiner to a time record
* tmptr - pointer to a time record
*
* Outputs:
* tmptr->wday - day of week

2
toolglue.asm
View File

@ -36,7 +36,7 @@ ToolGlue start dummy routine
****************************************************************
*
* MiscTool - Miscelaneous tool kit
* MiscTool - Miscellaneous tool kit
*
****************************************************************
*

2
vars.asm
View File

@ -39,7 +39,7 @@ _toolErr entry last error in a tool call (C)
****************************************************************
*
* ~InitIO - initialize the standad I/O files
* ~InitIO - initialize the standard I/O files
*
****************************************************************
*