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_base gequ FILE_ptr+4 first byte of the buffer
FILE_end gequ FILE_base+4 end of the file buffer FILE_end gequ FILE_base+4 end of the file buffer
FILE_size gequ FILE_end+4 size 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_pbk gequ FILE_cnt+4 put back character
FILE_flag gequ FILE_pbk+2 buffer flags FILE_flag gequ FILE_pbk+2 buffer flags
FILE_file gequ FILE_flag+2 GS/OS file ID 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 * April 1990
* Mike Westerfield * Mike Westerfield
@ -27,7 +27,7 @@ SIGMAX gequ 6 maximum number of signals
* *
* void (*signal(int sig, void (*func) (int)))(int); * void (*signal(int sig, void (*func) (int)))(int);
* *
* Set the interupt handler * Set the interrupt handler
* *
* Inputs: * Inputs:
* sig - signal number * sig - signal number
@ -41,7 +41,7 @@ SIGMAX gequ 6 maximum number of signals
* *
signal start signal start
using signalCommon using signalCommon
ptr equ 1 old sugnal handler ptr equ 1 old signal handler
csubroutine (2:sig,4:func),4 csubroutine (2:sig,4:func),4

18
stdio.asm
View File

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

4
stdlib.asm
View File

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

32
string.asm
View File

@ -85,7 +85,7 @@ lb2 sty str1
* set - pointer to the set of characters * set - pointer to the set of characters
* *
* Outputs: * 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. * equal, return 0; otherwise, return 1.
* *
* Inputs: * Inputs:
* p1 - string to concatonate to * p1 - string to concatenate to
* p2 - string to concatonate * p2 - string to concatenate
* *
* Outputs: * Outputs:
* A - result * 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 * Place *s2 at the end of *s1, returning a pointer to *s1. No
* checking for length is performed. * checking for length is performed.
* *
* Inputs: * Inputs:
* s1 - string to concatonate to * s1 - string to concatenate to
* s2 - string to concatonate * s2 - string to concatenate
* *
* Outputs: * Outputs:
* X-A - pointer to the result (s1) * 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 * Place *s2 at the end of *s1, returning a pointer to *s1. No
* checking for length is performed. * checking for length is performed.
* *
* Inputs: * Inputs:
* s1 - string to concatonate to * s1 - string to concatenate to
* s2 - string to concatonate * s2 - string to concatenate
* n - max # chars to copy * n - max # chars to copy
* *
* Outputs: * Outputs:
@ -1021,8 +1021,8 @@ lb4 lda #0 write the terminating null
* equal, return 0; otherwise, return 1. * equal, return 0; otherwise, return 1.
* *
* Inputs: * Inputs:
* s1 - string to concatonate to * s1 - string to concatenate to
* s2 - string to concatonate * s2 - string to concatenate
* n - max length of the strings * n - max length of the strings
* *
* Outputs: * 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: * Inputs:
* str - string to search * 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: * Inputs:
* str - string to search * str - string to search
@ -1598,7 +1598,7 @@ ds5 anop
; ;
; Search for the string ; 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 and #$8000 > 32767 then use a long method
ora lensub+2 ora lensub+2
beq ss3 beq ss3

2
time.asm
View File

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