6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2025-02-17 21:30:34 +00:00
Code Issues Projects Releases Wiki Activity

Updated, Tested, and Debugged module intlib

Browse Source
This commit is contained in:
Curtis F Kaylor 2020-10-06 12:30:20 -04:00
parent 3958d4b7c8
commit f1cbe3a02b
3 changed files with 240 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

194
include/intlib.a02
View File

@ -3,13 +3,15 @@
; external zero page locations SRCLO and SRCHI ; external zero page locations SRCLO and SRCHI
; and external locations RANDOM, RDSEED, TEMP0, TEMP1, and TEMP2. ; and external locations RANDOM, RDSEED, TEMP0, TEMP1, and TEMP2.
SUBROUTINE INTLIB
;iabs(n) - Get Integer ABSolute Value ;iabs(n) - Get Integer ABSolute Value
;Args: Y,X = Integer to get Absolute Value Of ;Args: Y,X = Integer to get Absolute Value Of
;Sets: TEMP1, TEMP2 ;Sets: TEMP1, TEMP2
;Affects: C, N, Z ;Affects: C, N, Z
;Returns: A = Absolute Value of Argument ;Returns: A = Absolute Value of Argument
IABS: CPY #$80 ;If Negative (High Bit Set) IABS: CPY #$80 ;If Negative (High Bit Set)
BCC IABSX ; Carry will Already be Set BCC .RETURN ; Carry will Already be Set
JSR SAVRXY ; Copy LSB, MSB to TEMP1. TEMP2 JSR SAVRXY ; Copy LSB, MSB to TEMP1. TEMP2
LDA #0 ; Subtract LSB LDA #0 ; Subtract LSB
SBC TEMP1 ; from 0 SBC TEMP1 ; from 0
@ -17,7 +19,7 @@ IABS: CPY #$80 ;If Negative (High Bit Set)
LDA #0 ; Subtract MSB LDA #0 ; Subtract MSB
SBC TEMP2 ; from 0 SBC TEMP2 ; from 0
TAY ; and Copy to Y Register TAY ; and Copy to Y Register
IABSX: RTS .RETURN RTS
;imax(i) - Get MAXimum of Two Integers ;imax(i) - Get MAXimum of Two Integers
;Args: Y,X = Second Integer ;Args: Y,X = Second Integer
@ -25,10 +27,10 @@ IABSX: RTS
;Affects: N,Z,C ;Affects: N,Z,C
;Returns: Y,X = Larger of the Two Arguments ;Returns: Y,X = Larger of the Two Arguments
IMAX: CPY SRCHI ;If Y < SRCHI IMAX: CPY SRCHI ;If Y < SRCHI
BCC IMAXC ; Return SRCLO, SRCHI BCC .GETSRC ; Return SRCLO, SRCHI
CPX SRCLO ;IF X >= SRCLO CPX SRCLO ;IF X >= SRCLO
BCS IMINX ; Return Argument BCS .RETURN ; Return Argument
IMAXC: JMP GETSRC ;Return Integer in SRCLO, SRCHI .GETSRC JMP GETSRC ;Return Integer in SRCLO, SRCHI
;imin(i) - Get MINimum of Two Integers ;imin(i) - Get MINimum of Two Integers
;Args: Y,X = Second Integer ;Args: Y,X = Second Integer
@ -36,11 +38,11 @@ IMAXC: JMP GETSRC ;Return Integer in SRCLO, SRCHI
;Affects: N,Z,C ;Affects: N,Z,C
;Returns: Y,X = Larger of the Two Arguments ;Returns: Y,X = Larger of the Two Arguments
IMIN: CPY SRCHI ;If Y < SRCHI IMIN: CPY SRCHI ;If Y < SRCHI
BCC IMINX ; Return Argument BCC .RETURN ; Return Argument
BNE IMAXC ;If Y > SRCHI Return SRCHI,SRCLO BNE .GETSRC ;If Y > SRCHI Return SRCHI,SRCLO
CPX SRCLO ;If X >= SRCLO CPX SRCLO ;If X >= SRCLO
BCS IMAXC ; Return SRCHI,SRCLO BCS .GETSRC ; Return SRCHI,SRCLO
IMINX: RTS ;Return Argument RTS ;Return Argument
;iaddc(c,i) - Add Byte c to Integer i ;iaddc(c,i) - Add Byte c to Integer i
IADDC: JSR SETSRC ;Save Integer and Clear Y IADDC: JSR SETSRC ;Save Integer and Clear Y
@ -51,8 +53,8 @@ IADDC: JSR SETSRC ;Save Integer and Clear Y
;Requires: setsrc(g) - Augend ;Requires: setsrc(g) - Augend
;Sets: TEMP1,TEMP2 = Addend ;Sets: TEMP1,TEMP2 = Addend
;Affects: Z,C ;Affects: Z,C
;Returns: A = Sum (Bits 16-23) ;Returns: A = Carry
; Y,X = Sum (Bits 0-15) ; Y,X = Sum
; N = Sign of Result ; N = Sign of Result
IADD: CLC ;Clear Carry for Addition IADD: CLC ;Clear Carry for Addition
TXA ;Add Addend LSB TXA ;Add Addend LSB
@ -70,8 +72,8 @@ IADD: CLC ;Clear Carry for Addition
;Requires: setsrc(m) - Minuend ;Requires: setsrc(m) - Minuend
;Sets: TEMP1,TEMP2 = Subtrahend ;Sets: TEMP1,TEMP2 = Subtrahend
;Affects: Z,C ;Affects: Z,C
;Returns: A = Differencee (Bits 16-23) ;Returns: A = Carry
; Y,X = Difference (Bits 0-15) ; Y,X = Difference
; N = Sign of Result ; N = Sign of Result
ISUB: JSR SAVRXY ;Store Subtrahend in TEMP1,TEMP2 ISUB: JSR SAVRXY ;Store Subtrahend in TEMP1,TEMP2
SEC ;Set Carry for Subtraction SEC ;Set Carry for Subtraction
@ -87,88 +89,111 @@ ISUB: JSR SAVRXY ;Store Subtrahend in TEMP1,TEMP2
;imult(m) - MULTiply Two Integers ;imult(m) - MULTiply Two Integers
;Args: Y,X - Multiplier ;Args: Y,X - Multiplier
;Requires: DSTHI,DSTLO = Multiplicand ;Requires: DSTPTR = Multiplicand
;Sets: TEMP0-TEMP3 = 32 Bit Product ;Sets: TEMP0-TEMP3 = 32 Bit Product
;Destroys: SRCHI, SRCLO ;Destroys: SRCPTR
;Affects: A,C,Z,N ;Affects: A,C,Z,N
;Returns: Y,X = 16 Bit Product ;Returns: A,Y,X = 24 Bit Product
IMULT: JSR SETSRC ;Save Multiplier IMULT: JSR SETSRC ;Save Multiplier
STY TEMP2 ;Clear Upper Bits of Product STY TEMP0+2 ;Clear Upper Bits of Product
STY TEMP3 STY TEMP0+3
LDX #16 ;Rotate Through 16 Bits LDX #16 ;Rotate Through 16 Bits
IMULTS: LSR SRCHI ;Divide Multiplier by 2 .MSHFTR LSR SRCPTR+1 ;Divide Multiplier by 2
ROR SRCLO ROR SRCPTR
BCC IMULTR ;If Shifted out Bit is 1 BCC .MROTR ;If Shifted out Bit is 1
LDA TEMP2 ; Add Multiplicand LDA TEMP0+2 ; Add Multiplicand
CLC ; to Upper Half of Product CLC ; to Upper Half of Product
ADC DSTLO ADC DSTPTR
STA TEMP2 STA TEMP0+2
LDA TEMP3 LDA TEMP0+3
ADC DSTHI ADC DSTPTR+1
IMULTR: ROR ;Rotate Partial Product STA TEMP0+3
STA TEMP3 .MROTR ROR TEMP0+3
ROR TEMP2 ROR TEMP0+2
ROR TEMP1 ROR TEMP0+1
ROR TEMP0 ROR TEMP0
DEX ;Decrement Counter DEX ;Decrement Counter
BNE IMULTS ;and Process Next Bit BNE .MSHFTR ;and Process Next Bit
LDX TEMP0 LDX TEMP0
LDY TEMP1 ;Return Low 16 Bits of Product LDY TEMP1 ;Return Low 24 Bits of
LDA TEMP2 ;Product in A, Y, and X
RTS RTS
;idiv(d) - DIVide Two Numbers ;idiv(d) - Integer DIVide
;Args: Y,X - Divisor ;Args: Y,X - Divisor
;Requires: DSTHI,DSTLO = Dividend ;Requires: DSTPTR = Dividend
;Sets: SRCHI,SRCLO = Divisor ;Sets: SRCPTR = Divisor
; DSTHI,DSTLO = Quotient ; DSTPTR = Quotient
; TEMP1,TEMP2 = Remainder ; TEMP1,TEMP2 = Remainder
;Affects: A,C,Z,N ;Affects: A,C,Z,N
;Returns: Y,X = 16 Bit Quotient ;Returns: Y,X = 16 Bit Quotient
IDIV: JSR SETSRC ;Save Divisor IDIV: JSR .IDIV ;Do Division and
STA TEMP1 JMP GETDST ;Return Quotient
STA TEMP2
;imod(d) - Integer MODulus
;Args: Y,X - Divisor
;Requires: DSTPTR = Dividend
;Sets: SRCPTR = Divisor
; DSTPTR = Quotient
; TEMP1,TEMP2 = Remainder
;Affects: A,C,Z,N
;Returns: Y,X = 16 Bit Remainder
IMOD: JSR .IDIV ;Do Division and
JMP RESRXY ;Return Remainder
.IDIV JSR SETSRC ;Save Divisor
STY TEMP1
STY TEMP1+1
LDX #16 ;repeat for each bit: ... LDX #16 ;repeat for each bit: ...
IDIVL: ASL DSTLO ;dividend lb & hb*2, msb -> Carry .IDLOOP ASL DSTPTR ;dividend lb & hb*2, msb -> Carry
ROL DSTHI ROL DSTPTR+1
ROL TEMP1 ;remainder lb & hb * 2 + msb from carry ROL TEMP1 ;remainder lb & hb * 2 + msb from carry
ROL TEMP2 ROL TEMP1+1
LDA TEMP1 LDA TEMP1
SEC SEC
SBC SRCLO ;substract divisor to see if it fits in SBC SRCPTR ;subtract divisor to see if it fits in
TAY ;lb result -> Y, for we may need it later TAY ;lb result -> Y, for we may need it later
LDA TEMP2 LDA TEMP1+1
SBC SRCHI SBC SRCPTR+1
BCC IDIVS ;if carry=0 then divisor didn't fit in yet BCC .IDSKIP ;if carry=0 then divisor didn't fit in yet
STA TEMP2 ;else save substraction result as new remainder, STA TEMP1+1 ;else save substraction result as new remainder,
STY TEMP1 STY TEMP1
INC DSTLO ;and INCrement result cause divisor fit in 1 times INC DSTPTR ;and INCrement result cause divisor fit in 1 times
IDIVS: DEX .IDSKIP DEX
BNE IDIVL BNE .IDLOOP
RTS RTS
;ishftl(n,i) - Shift Integer i to the Left n Bits ;ishftl(n,i) - Shift Integer i to the Left n Bits
;Sets: TEMP1, TEMP2 = LSB, MSB of Result ;Sets: TEMP1, TEMP2 = LSB, MSB of Result
;Affects: A,Y,N,Z,C ;Affects: A,Y,N,Z,C
;Returns: Y,X = Shifted Integer ;Returns: A = Bits Shifted out of Integer
; Y,X = Shifted Integer
ISHFTL: JSR SAVRXY ;Save X,Y in TEMP1,TEMP2 ISHFTL: JSR SAVRXY ;Save X,Y in TEMP1,TEMP2
TAY ;Set Counter to Number of Bits TAY ;Set Counter to Number of Bits
ASL TEMP1 ;Shift LSB to Left BEQ .RESRXY ;If Zero, Return
LDA #0 ;Clear Overflow
.LSLOOP ASL TEMP1 ;Shift LSB to Left
ROL TEMP2 ;Rotate MSB to Left ROL TEMP2 ;Rotate MSB to Left
ROL ;Rotate Carry into A
DEY ;Decrement Counter DEY ;Decrement Counter
BNE ISHFTL ; and Loop if Not 0 BNE .LSLOOP ; and Loop if Not 0
BEQ ISHFTX ;Return Shifted Integer BEQ .RESRXY ;Return Shifted Integer
;ishftr(n,i) - Shift Integer i to the Right n Bits ;ishftr(n,i) - Shift Integer i to the Right n Bits
;Sets: TEMP1, TEMP2 = LSB, MSB of Result ;Sets: TEMP1, TEMP2 = LSB, MSB of Result
;Affects: A,Y,N,Z,C ;Affects: A,Y,N,Z,C
;Returns: Y,X = Shifted Integer ;Returns: A = Bits Shifted out of Integer
; Y,X = Shifted Integer
ISHFTR: JSR SAVRXY ;Save X,Y in TEMP1,TEMP2 ISHFTR: JSR SAVRXY ;Save X,Y in TEMP1,TEMP2
TAY ;Copy TAY ;Set Counter to Number of Bits
LSR TEMP1 ;Shift LSB to Right BEQ .RESRXY ;If Zero, Return
ROR TEMP2 ;Rotate MSB to Right LDA #0 ;Clear Overflow
.RSLOOP LSR TEMP2 ;Shift MSB to Right
ROR TEMP1 ;Rotate LSB to Right
ROR ;Rotate Carry into A
DEY ;Decrement Counter DEY ;Decrement Counter
BNE ISHFTR ; and Loop if Not 0 BNE .RSLOOP ; and Loop if Not 0
ISHFTX: JMP RESRXY ;Load Shifted Integer and Return BEQ .RESRXY ;Load Shifted Integer and Return
;atoi(&s) - ASCII string TO Integer ;atoi(&s) - ASCII string TO Integer
;Args: Y,X = Address of String to Convert ;Args: Y,X = Address of String to Convert
@ -179,11 +204,11 @@ ISHFTX: JMP RESRXY ;Load Shifted Integer and Return
ATOI: JSR SETSRC ;Initialize Source String ATOI: JSR SETSRC ;Initialize Source String
STY TEMP1 ;Initialize Result STY TEMP1 ;Initialize Result
STY TEMP2 STY TEMP2
ATOIL: LDA (SRCLO),Y ;Get Next Character .AILOOP LDA (SRCLO),Y ;Get Next Character
CMP #$30 ;If Less Than '0' CMP #$30 ;If Less Than '0'
BCC ATOIX ; Exit BCC .AIDONE ; Exit
CMP #$3A ;If Greater Than '9' CMP #$3A ;If Greater Than '9'
BCS ATOIX ; Exit BCS .AIDONE ; Exit
AND #$0F ;Convert to Binary Nybble AND #$0F ;Convert to Binary Nybble
STA TEMP0 ; and Save It STA TEMP0 ; and Save It
LDA TEMP1 ;Load Result LDA TEMP1 ;Load Result
@ -208,25 +233,26 @@ ATOIL: LDA (SRCLO),Y ;Get Next Character
ADC TEMP2 ADC TEMP2
STA TEMP2 STA TEMP2
INY ;Increment Index INY ;Increment Index
BPL ATOIL ; and Loop BPL .AILOOP ; and Loop
ATOIX: TYA ;Return Number of Digits .AIDONE TYA ;Return Number of Digits
JMP RESRXY ;and Integer Value .RESRXY JMP RESRXY ;and Integer Value
;itoa(n) - Integer TO ASCII string ;itoa(n) - Integer TO ASCII string
;Args: Y,X = Integer Value to Convert ;Args: Y,X = Integer Value to Convert
;Uses: DSTHI,DSTLO = Destination String ;Uses: DSTHI,DSTLO = Destination String
;Affects: X
;Returns: A,Y = Length of String ;Returns: A,Y = Length of String
ITOA: JSR CVIBCD ;Convert Integer to Packed BCD ITOA: JSR CVIBCD ;Convert Integer to Packed BCD
LDY #0 ;Initialize Index into String LDY #0 ;Initialize Index into String
STY TEMP3 STY TEMP3
ITOAA: LDY #4 ;Set Initial Digit Number .ITOAA LDY #4 ;Set Initial Digit Number
ITOAZ: JSR UPBCDI ;Unpack Digit Y .IAZERO JSR UPBCDI ;Unpack Digit Y
BNE ITOAS ;If Zero BNE .IASKIP ;If Zero
DEY ; Decrement Digit Number DEY ; Decrement Digit Number
BNE ITOAZ ; If Not Zero Loop BNE .IAZERO ; If Not Zero Loop
BEQ ITOAS ; Else IDIVS Unpack BEQ .IASKIP ; Else .IDSKIP Unpack
ITOAL: JSR UPBCDI ;Unpack Digit #Y .IALOOP JSR UPBCDI ;Unpack Digit #Y
ITOAS: TAX ;Save Digit in X .IASKIP TAX ;Save Digit in X
TYA ;Push Digit Number into Stack TYA ;Push Digit Number into Stack
PHA PHA
TXA ;and Restore Digit TXA ;and Restore Digit
@ -237,7 +263,7 @@ ITOAS: TAX ;Save Digit in X
PLA ;Pull Digit Number off Stack PLA ;Pull Digit Number off Stack
TAY TAY
DEY ;Decrement Digit Number DEY ;Decrement Digit Number
BPL ITOAL ;Loop if >= Zero BPL .IALOOP ;Loop if >= Zero
LDA #0 ;Terminate String LDA #0 ;Terminate String
STA (DSTLO),Y STA (DSTLO),Y
TYA ;Return String Length TYA ;Return String Length
@ -250,18 +276,20 @@ ITOAS: TAX ;Save Digit in X
;Uses: TEMP0 = Low Byte ;Uses: TEMP0 = Low Byte
; TEMP1 = Middle Byte ; TEMP1 = Middle Byte
; TEMP2 = High Nybble ; TEMP2 = High Nybble
;Affects: X,C,N,Z ;Affects: X,N,Z
;Returns: A = Unpacked Digit ;Returns: A = Unpacked Digit
UPBCDI: TYA ;Divide Digit Number by 2, UPBCDI: PHP
TYA ;Divide Digit Number by 2,
LSR ; Setting Carry LSR ; Setting Carry
TAX ; if Digit Number is Odd TAX ; if Digit Number is Odd
LDA TEMP0,X ;Load BCD Byte LDA TEMP0,X ;Load BCD Byte
BCC UPBCDS ;If Digit Number is Odd BCC .UPSKIP ;If Digit Number is Odd
LSR ; Shift High Nybble to Low Nybble LSR ; Shift High Nybble to Low Nybble
LSR LSR
LSR LSR
LSR LSR
UPBCDS: AND #$0F ;Strip Off High Nybble .UPSKIP PLP
AND #$0F ;Strip Off High Nybble
RTS RTS
;cvibcd(int) - ConVert Integer to packed Binary Coded Decimal ;cvibcd(int) - ConVert Integer to packed Binary Coded Decimal
@ -269,7 +297,7 @@ UPBCDS: AND #$0F ;Strip Off High Nybble
;Sets: TEMP0 = Tens and Ones Digit ;Sets: TEMP0 = Tens and Ones Digit
; TEMP1 = Thousands and Hundreds Digit ; TEMP1 = Thousands and Hundreds Digit
; TEMP2 = Ten-Thousands Digit ; TEMP2 = Ten-Thousands Digit
;Affects: A,X,Y ;Affects: A
CVIBCD: LDA #0 ;Clear BCD Bytes CVIBCD: LDA #0 ;Clear BCD Bytes
STA TEMP0 STA TEMP0
STA TEMP1 STA TEMP1
@ -283,7 +311,7 @@ CVIBCD: LDA #0 ;Clear BCD Bytes
PHA PHA
TSX ;Copy Stack Pointer to X TSX ;Copy Stack Pointer to X
LDY #16 ;Process 16 bits of Binary LDY #16 ;Process 16 bits of Binary
CVIBCL: ASL $101,X ;Shift High Bit Into Carry .CVLOOP ASL $101,X ;Shift High Bit Into Carry
ROL $102,X ROL $102,X
LDA TEMP0 ;Add 6 Digit BCD Number Itself LDA TEMP0 ;Add 6 Digit BCD Number Itself
ADC TEMP0 ; Effectively Multiplying It by 2 ADC TEMP0 ; Effectively Multiplying It by 2
@ -295,8 +323,10 @@ CVIBCL: ASL $101,X ;Shift High Bit Into Carry
ADC TEMP2 ADC TEMP2
STA TEMP2 STA TEMP2
DEY ;Decrement Counter and DEY ;Decrement Counter and
BNE CVIBCL ; Process Next Bit BNE .CVLOOP ; Process Next Bit
PLA ;Restore Stack PLA ;Restore X and Y Registers
PLA PLA
PLP ;Restore Status Register PLP ;Restore Status Register
RTS RTS
ENDSUBROUTINE

96
include/intlib.h02
View File

@ -2,69 +2,77 @@
* intlib - Standard Library Routines for Integer Values * * intlib - Standard Library Routines for Integer Values *
*********************************************************/ *********************************************************/
/* Absolute Value * /* Integer Absolute Value *
* Args: w - Word to get absolute value of * * Args: int w - Integer to test *
* Returns: (int) Absolute value of w */ * Returns: int v -Absolute value of w */
char iabs(); char iabs();
/* Add Integers * /* Integer Add *
* Requires: setsrc(g) - Augend * * Setup: setsrc(g) - Augend *
* Args: d - Addend * * Args: int d - Addend *
* Returns: (int) Sum */ * Returns: char c - Carry *
* int r - Sum */
char iadd(); char iadd();
/* Convert ASCII String to Unsigned Integer * /* ASCII to Integer *
* Convert ASCII string to Unsigned Integer *
* Args: &s - String to Convert * * Args: &s - String to Convert *
* Returns: (char) Number of digits parsed * * Returns: char n - Number of digits parsed *
* (int) Numeric value of string */ * int v - Numeric value of string */
char atoi(); char atoi();
/* Convert Unsigned Integer to ASCII String * /* Integer to ASCII *
* Requires: setdst(s) - Destination String * * Convert Unsigned Integer to String *
* Args: w - Unsigned Byte to Convert * * Setup: setdst(s) - Destination String *
* Returns: Length of string */ * Args: int w - Unsigned Int to Convert *
* Returns: char n - Length of string */
void itoa(); void itoa();
/* Divide Unsigned Integers * /* Integer Divide *
* Requires: setsrc(n) - Numerator * * Divide Unsigned Integers *
* Args: d - Denominator * * Aetup: setdst(n) - Numerator *
* Returns: (int) Quotient */ * Args: int d - Denominator *
* Returns: int q - Quotient */
char idiv(); char idiv();
/* Maximum of Two Integers * /* Integer Maximum *
* Return Largest of Two Integers *
* Requires: setsrc(i) - First Integer * * Requires: setsrc(i) - First Integer *
* Args: j - Second Integer * * Args: int j - Second Integer *
* Returns: (int) Greater of the Two */ * Returns: int m - Greater of the Two */
char max(); char imax();
/* Minimum of Two Integers * /* Integer Minimum *
* Return smallest of Two Integers *
* Requires: setsrc(i) - First Integer * * Requires: setsrc(i) - First Integer *
* Args: j - Second Integer * * Args: int j - Second Integer *
* Returns: (int) Lesser of the Two */ * Returns: int m - Lesser of the Two */
char min(); char imin();
/* Multiply Unsigned Integers * /* Integer Multiply *
* Requires: setsrc(m) - Muliplicand * * Multiply Unsigned Integers *
* Args: r - Multiplier * * Requires: setdst(m) - Muliplicand *
* Returns: (char) Product (Bits 16-23) * * Args: int r - Multiplier *
* (int) Product (Bits 0-15) */ * Returns: long p - Product */
char mult(); char imult();
/* Shift Integer Left * /* Integer Left Shift *
* Args: n - Number of Bits to Shift * * Args: char n - Number of Bits *
* w - Integer Value to Shift * * int w - Value to Shift *
* Returns: Shifted Integer */ * Returns: char v - Overflow Bits *
int r - Shifted Integer */
char ishftl(); char ishftl();
/* Shift Byte Right * /* Integer Shift Right *
* Args: n - Number of Bits to Shift * * Args: char n - Number of Bits *
* w - Integer Value to Shift * * int w - Value to Shift *
* Returns: Shifted Integer */ * Returns: char v - Overflow Bits *
int r - Shifted Integer */
char ishftr(); char ishftr();
/* Subtract Integers * /* Integer Subtract *
* Requires: setsrc(m) - Minuend * * Requires: setsrc(m) - Minuend *
* Args: s - Subtrahend * * Args: int s - Subtrahend *
* Returns: (int) Difference */ * Returns: char c - Carry *
* int d - Difference */
char isub(); char isub();

74
test/ilibtest.c02
View File

@ -14,6 +14,7 @@
char size; char size;
char s[128]; //Test String char s[128]; //Test String
char cval,cnum,ctot; //Character Function Variables
int ivar,ival; //Integer Variables int ivar,ival; //Integer Variables
int icmp,itot,ires; //Function Variables int icmp,itot,ires; //Function Variables
int less, more; //Test Values for imin() and imax() int less, more; //Test Values for imin() and imax()
@ -53,35 +54,70 @@ void itaati(ivar) {
setdst(s); size = itoa(ivar); puts(s); putln("\""); setdst(s); size = itoa(ivar); puts(s); putln("\"");
puts("ATOI(\""); puts(s); puts("\")=$"); puts("ATOI(\""); puts(s); puts("\")=$");
ival = atoi(s); putwrd(ival); newlin(); ival = atoi(s); putwrd(ival); newlin();
//cpival(ivar); cpival(ivar);
} }
/* Test iadd() and isub() */ /* Test iadd() and isub() */
//**needs iaddc()
void addsub(ivar) { void addsub(ivar) {
newlin(); newlin();
putint(ival); putchr('+'); putint(ivar); putchr('='); putint(ival); putc('+'); putint(ivar); putc('=');
setsrc(ival); itot = iadd(ivar); putint(itot); newlin(); setsrc(ival); ctot, itot = iadd(ivar);
putint(itot); putchr('-'); putint(ivar); putchr('='); putint(itot); puts(" carry=$"); puthex(ctot); newlin();
setsrc(itot); ires = isub(ivar); putint(ires); newlin(); putint(itot); putc('-'); putint(ivar); putc('=');
setsrc(itot); ires = isub(ivar);
putint(itot); puts(" carry=$"); puthex(ctot); newlin();
cpival(ires); cpival(ires);
} }
/* Test imult() and idiv() */ /* Test imult() and idiv() */
void mltdiv(ivar) { void mltdiv(ivar) {
newlin(); newlin();
putint(ival); putchr('X'); putint(ivar); putchr('='); putint(ival); putc('*'); putint(ivar); putc('=');
setsrc(ival); itot = imult(ivar); putint(itot); newlin(); setdst(ival); cval,itot = imult(ivar); putint(itot);
putint(itot); putchr('/'); putint(ivar); putchr('='); if (cval) puts(" OVERFLOW!"); newlin();
setsrc(itot); ires = idiv(ivar); putint(ires); newlin(); putint(itot); putc('/'); putint(ivar); putc('=');
setdst(itot); ires = idiv(ivar); putint(ires); newlin();
cpival(ires);
ival>>; setsrc(ival); cval,itot = iadd(itot);
if (cval) return; //Number to Large to Modulo
putint(itot); putc('%'); putint(ivar); putc('=');
setdst(itot); ires = imod(ivar); putint(ires); newlin();
cpival(ires); cpival(ires);
} }
void prshft() {
puts(); putc('('); putdec(cval); puts(",%");
cnum = >ivar; putbin(cnum); putspc();
cnum = <ivar; putbin(cnum); puts(")=");
}
void prctot() {putc('%'); putbin(ctot); putspc();}
void pritot() {
putc('%'); cnum = >itot; putbin(cnum);
putspc(); cnum = <itot; putbin(cnum); putspc();
}
/* Test ishftl() and ishiftr() */
void shftlr(cval, ivar) {
newlin();
ival = ivar; for (cnum = 0; cnum < cval; cnum++) ival<<; prshft("ISHFTL");
ctot, itot = ishftl(cval, ivar); prctot(); pritot(); newlin();
cpival(itot);
ival = ivar; for (cnum = 0; cnum < cval; cnum++) ival>>; prshft("ISHFTR");
ctot, itot = ishftr(cval, ivar); pritot(); prctot(); newlin();
cpival(itot);
}
main: main:
less = $009A; more = $00DE; minmax(); less = $009A; more = $00DE; minmax();
less = $789A; more = $78DE; minmax(); less = $789A; more = $78DE; minmax();
less = $7800; more = $BC00; minmax(); less = $7800; more = $BC00; minmax();
less = $789A; more = $BCDE; minmax(); less = $789A; more = $BCDE; minmax();
less = $F18F; more = $F18F; minmax();
anykey(); anykey();
itaati(&0); itaati(&0);
@ -97,9 +133,27 @@ ival = &1234; addsub(&5678);
ival = &23456; addsub(&34567); ival = &23456; addsub(&34567);
ival = &$7700; addsub(&$6600); ival = &$7700; addsub(&$6600);
ival = &$7FFF; addsub(&$8000); ival = &$7FFF; addsub(&$8000);
ival = &$FDEC; addsub(&$CDEF);
anykey(); anykey();
//ival = &123; mltdiv(&234); ival = &23; mltdiv(&34);
ival = &123; mltdiv(&234);
ival = &255; mltdiv(&257);
anykey();
shftlr(0,&$AA55);
shftlr(1,&$A55A);
shftlr(2,&$F00F);
shftlr(3,&$0FF0);
shftlr(4,&$AA55);
shftlr(7,&$A55A);
anykey();
shftlr(8,&$AA55);
shftlr(9,&$A55A);
shftlr(11,&$0FF0);
shftlr(12,&$AA55);
shftlr(15,&$A55A);
shftlr(16,&$F00F);
goto exit; goto exit;