mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-09-27 14:56:27 +00:00
Updated module ctype and moved test program from py65/ to test/
This commit is contained in:
parent
d816bd1273
commit
abe031958f
@ -3,117 +3,120 @@
|
|||||||
;C02 Functions modify Accumulator and Flags
|
;C02 Functions modify Accumulator and Flags
|
||||||
; ISxxxx will load $FF into Accumulator to and Set Carry if True
|
; ISxxxx will load $FF into Accumulator to and Set Carry if True
|
||||||
; and load $00 into Accumulator to and clear Carry if False
|
; and load $00 into Accumulator to and clear Carry if False
|
||||||
; toxxxx set Carry if character IS converted, otherwISe clear Carry
|
; toxxxx set Carry if character is converted, otherwise clear Carry
|
||||||
;Machine Language Subroutines modify Flags but not Accumulator
|
;Machine Language Subroutines modify Flags but not Accumulator
|
||||||
; Carry will be Set if True and Cleared if False
|
; Carry will be Set if True and Cleared if False
|
||||||
;Index RegISters are not modified by any routines
|
;Index Registers X an Y are not modified by any routines
|
||||||
|
|
||||||
|
SUBROUTINE CTYPE
|
||||||
|
|
||||||
;Character Test Functions - Set Accumulator
|
;Character Test Functions - Set Accumulator
|
||||||
ISALNM: JSR ISALN ;Is Alphanumeric Character
|
ISALNM: JSR ISALN ;Is Alphanumeric Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISALPH: JSR ISALP; ;Is Alphabetic Character
|
ISALPH: JSR ISALP ;Is Alphabetic Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISBDGT: JSR ISBIN ;Is Binary Digit
|
ISBDGT: JSR ISBIN ;Is Binary Digit
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISCTRL: JSR ISCTL ;Is Control Character
|
ISCTRL: JSR ISCTL ;Is Control Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISDIGT: JSR ISDGT ;Is Digit
|
ISDIGT: JSR ISDGT ;Is Digit
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISGRPH: JSR ISGRP ;Is Graphical Character
|
ISGRPH: JSR ISGRP ;Is Graphical Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISHDGT: JSR ISHEX ;Is Hex Digit
|
ISHDGT: JSR ISHEX ;Is Hex Digit
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISLOWR: JSR ISLWR ;Is Lowercase Character
|
ISLOWR: JSR ISLWR ;Is Lowercase Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISPNCT: JSR ISPNC ;Is Punctuation Character
|
ISPNCT: JSR ISPNC ;Is Punctuation Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISPRNT: JSR ISPRT ;Is Printable Character
|
ISPRNT: JSR ISPRT ;Is Printable Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISSPCE: JSR ISSPC ;Is White Space Character
|
ISSPCE: JSR ISSPC ;Is White Space Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
ISUPPR: JSR ISUPR ;Is Uppercase Character
|
ISUPPR: JSR ISUPR ;Is Uppercase Character
|
||||||
BVC ISBTF
|
BVC .ISBTF
|
||||||
|
|
||||||
;Internal Routines - Set Accumulator based on Carry Flag
|
;Internal Routines - Set Accumulator based on Carry Flag
|
||||||
ISBTF: BCC ISFLS ;If Carry Set
|
.ISBTF BCC .ISFLS ;If Carry Set
|
||||||
ISTRU: LDA #$FF ; Return TRUE
|
.ISTRU LDA #$FF ; Return TRUE
|
||||||
RTS ;Else
|
RTS ;Else
|
||||||
ISFLS: LDA #$00 ; Return FALSE
|
.ISFLS LDA #$00 ; Return FALSE
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
;C02/ML Character Conversion Routines
|
;C02/ML Character Conversion Routines
|
||||||
TOLOWR: JSR ISUPR ;If Char IS Not Upper Case
|
TOLOWR: JSR ISUPR ;If Char IS Not Upper Case
|
||||||
BCC ISRTS ; Return
|
BCC .ISRTS ; Return
|
||||||
ORA #$20 ;Else Set Bit 5
|
ORA #$20 ;Else Set Bit 5
|
||||||
RTS ; and Return
|
RTS ; and Return
|
||||||
|
|
||||||
TOUPPR: JSR ISLWR ;If Char IS Not Lower Case
|
TOUPPR: JSR ISLWR ;If Char IS Not Lower Case
|
||||||
BCC ISRTS ; Return
|
BCC .ISRTS ; Return
|
||||||
AND #$DF ;Else Clear Bit 5
|
AND #$DF ;Else Clear Bit 5
|
||||||
RTS ; and Return
|
RTS ; and Return
|
||||||
|
|
||||||
;Machine Language Subroutines - Set/Clear Carry, Preserve Accumulator
|
;Machine Language Subroutines - Set/Clear Carry, Preserve Accumulator
|
||||||
ISALN: JSR ISDGT ;If Char IS Digit
|
ISALN: JSR ISDGT ;If Char IS Digit
|
||||||
BCS ISRTS ; Return Carry Set
|
BCS .ISRTS ; Return Carry Set
|
||||||
;Else
|
;Else
|
||||||
ISALP: JSR ISUPR ;If Char IS Upper Case
|
ISALP: JSR ISUPR ;If Char IS Upper Case
|
||||||
BCS ISRTS ; Return Carry Set
|
BCS .ISRTS ; Return Carry Set
|
||||||
;Else
|
;Else
|
||||||
ISLWR: CMP #$61 ;If Char < 'a'
|
ISLWR: CMP #$61 ;If Char < 'a'
|
||||||
BCC ISRTS ; Return with Carry Clear
|
BCC .ISRTS ; Return with Carry Clear
|
||||||
CMP #$7B ;Else If Char >= '{'
|
CMP #$7B ;Else If Char >= '{'
|
||||||
JMP ISBCS ; Return with Carry Clear Else Return with Carry Set
|
JMP ISBCS ; Return with Carry Clear Else Return with Carry Set
|
||||||
|
|
||||||
ISUPR: CMP #$41 ;If Char < 'A'
|
ISUPR: CMP #$41 ;If Char < 'A'
|
||||||
BCC ISRTS ; Return with Carry Clear
|
BCC .ISRTS ; Return with Carry Clear
|
||||||
CMP #$5B ;Else If Char >= '['
|
CMP #$5B ;Else If Char >= '['
|
||||||
ISBCS: BCS ISCLC ; Return with Carry Clear
|
ISBCS: BCS .ISCLC ; Return with Carry Clear
|
||||||
BCC ISSEC ;Else Return with Carry Set
|
BCC .ISSEC ;Else Return with Carry Set
|
||||||
|
|
||||||
ISSEC: SEC ;Set Carry
|
.ISSEC SEC ;Set Carry
|
||||||
BCS ISRTS ; and Return
|
BCS .ISRTS ; and Return
|
||||||
|
|
||||||
ISCLC: CLC ;Clear Carry
|
.ISCLC CLC ;Clear Carry
|
||||||
ISRTS: CLV ;Clear Overflow - for C02 calls
|
.ISRTS CLV ;Clear Overflow - for C02 calls
|
||||||
RTS ;Return from Subroutine
|
RTS ;Return from Subroutine
|
||||||
|
|
||||||
ISCTL: CMP #$7F ;If Char = DEL
|
ISCTL: CMP #$7F ;If Char = DEL
|
||||||
BEQ ISSEC ; Return Carry Set
|
BEQ .ISSEC ; Return Carry Set
|
||||||
CMP #$20 ;Else If Char < ' '
|
CMP #$20 ;Else If Char < ' '
|
||||||
JMP ISBCS ; Return Carry Set Else Return Carry Clear
|
JMP ISBCS ; Return Carry Set Else Return Carry Clear
|
||||||
|
|
||||||
ISBIN: CMP #$32 ;If Char >= '2'
|
ISBIN: CMP #$32 ;If Char >= '2'
|
||||||
BCS ISCLC ; Return Carry Set
|
BCS .ISCLC ; Return Carry Set
|
||||||
;Else
|
;Else
|
||||||
ISDGT: CMP #$30 ;If Char < '0'
|
ISDGT: CMP #$30 ;If Char < '0'
|
||||||
BCC ISRTS ; Return Carry Clear
|
BCC .ISRTS ; Return Carry Clear
|
||||||
CMP #$3A ;Else If Char >= ':'
|
CMP #$3A ;Else If Char >= ':'
|
||||||
JMP ISBCS ; Return FALSE Else Return TRUE
|
JMP ISBCS ; Return FALSE Else Return TRUE
|
||||||
|
|
||||||
ISPNC: JSR ISALN ;If Char IS Alphanumeric
|
ISPNC: JSR ISALN ;If Char IS Alphanumeric
|
||||||
BCS ISCLC ; Return Carry Clear
|
BCS .ISCLC ; Return Carry Clear
|
||||||
;Else
|
;Else
|
||||||
ISGRP: CMP #$20 ;If Char IS Space
|
ISGRP: CMP #$20 ;If Char IS Space
|
||||||
BEQ ISCLC ; Return Carry Clear
|
BEQ .ISCLC ; Return Carry Clear
|
||||||
;Else
|
;Else
|
||||||
ISPRT: CMP #$80 ;If Char IS High ASCII
|
ISPRT: CMP #$80 ;If Char IS High ASCII
|
||||||
BCS ISCLC ; Return Carry Clear
|
BCS .ISCLC ; Return Carry Clear
|
||||||
JSR ISCTL ;If Char IS Not Control
|
JSR ISCTL ;If Char IS Not Control
|
||||||
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
||||||
|
|
||||||
ISSPC: CMP #$20 ;If Char IS ' '
|
ISSPC: CMP #$20 ;If Char IS ' '
|
||||||
BEQ ISSEC ; Return Carry Set
|
BEQ .ISSEC ; Return Carry Set
|
||||||
CMP #$09 ;If Char < '\t'
|
CMP #$09 ;If Char < '\t'
|
||||||
BCC ISRTS ; Return Carry Clear
|
BCC .ISRTS ; Return Carry Clear
|
||||||
CMP #$0E ;Else If Char > '\r'
|
CMP #$0E ;Else If Char > '\r'
|
||||||
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
||||||
|
|
||||||
ISHEX: CMP #$41 ;If Char < 'A'
|
ISHEX: CMP #$41 ;If Char < 'A'
|
||||||
BCC ISDGT ; Check for Digit
|
BCC ISDGT ; Check for Digit
|
||||||
CMP #$47 ;Else If Char < 'G'
|
CMP #$47 ;Else If Char < 'G'
|
||||||
BCC ISSEC ; Return Carry Set
|
BCC .ISSEC ; Return Carry Set
|
||||||
CMP #$61 ;Else If Char < 'a'
|
CMP #$61 ;Else If Char < 'a'
|
||||||
BCC ISRTS ; Return Carry Clear
|
BCC .ISRTS ; Return Carry Clear
|
||||||
CMP #$67 ;Else If Char >= 'g'
|
CMP #$67 ;Else If Char >= 'g'
|
||||||
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
JMP ISBCS ; Return Carry Clear Else Return Carry Set
|
||||||
|
|
||||||
|
ENDSUBROUTINE
|
||||||
|
@ -1,60 +0,0 @@
|
|||||||
/**********************************************
|
|
||||||
* TESTCT - Test Library ctype.h02 in py65mon *
|
|
||||||
**********************************************/
|
|
||||||
|
|
||||||
#include <py65.h02>
|
|
||||||
#include <ctype.h02>
|
|
||||||
|
|
||||||
char c, i;
|
|
||||||
|
|
||||||
main:
|
|
||||||
i = 0;
|
|
||||||
|
|
||||||
head:
|
|
||||||
prchr(' ');
|
|
||||||
prchr(' ');
|
|
||||||
prchr(' ');
|
|
||||||
prchr(' ');
|
|
||||||
prchr(' ');
|
|
||||||
prchr('C'); //Control
|
|
||||||
prchr('S'); //White Space
|
|
||||||
prchr('P'); //Punctuation
|
|
||||||
prchr('D'); //Digit
|
|
||||||
prchr('H'); //Hex Digit
|
|
||||||
prchr('U'); //Upper Case
|
|
||||||
prchr('L'); //Lower Case
|
|
||||||
prchr('A'); //Alphabetic
|
|
||||||
prchr('N'); //Alphanumeric
|
|
||||||
prchr('G'); //Graphic
|
|
||||||
prchr('R'); //Printable
|
|
||||||
prchr('B'); //Binary
|
|
||||||
newlin();
|
|
||||||
|
|
||||||
loop:
|
|
||||||
prbyte(i);
|
|
||||||
prchr(' ');
|
|
||||||
c = i;
|
|
||||||
if (c < $20) c = $20;
|
|
||||||
if (c >= $7F) c = $20;
|
|
||||||
prchr(c);
|
|
||||||
prchr(' ');
|
|
||||||
c = isctrl(i) & $0A | $20; prchr(c);
|
|
||||||
c = isspce(i) & $0A | $20; prchr(c);
|
|
||||||
c = ispnct(i) & $0A | $20; prchr(c);
|
|
||||||
c = isdigt(i) & $0A | $20; prchr(c);
|
|
||||||
c = ishdgt(i) & $0A | $20; prchr(c);
|
|
||||||
c = isuppr(i) & $0A | $20; prchr(c);
|
|
||||||
c = islowr(i) & $0A | $20; prchr(c);
|
|
||||||
c = isalph(i) & $0A | $20; prchr(c);
|
|
||||||
c = isalnm(i) & $0A | $20; prchr(c);
|
|
||||||
c = isgrph(i) & $0A | $20; prchr(c);
|
|
||||||
c = isprnt(i) & $0A | $20; prchr(c);
|
|
||||||
c = isbdgt(i) & $0A | $20; prchr(c);
|
|
||||||
newlin();
|
|
||||||
i++;
|
|
||||||
if (i == 0) goto exit;
|
|
||||||
if (i & $0F <> 0) goto loop;
|
|
||||||
newlin();
|
|
||||||
c = getkey();
|
|
||||||
if (c == $1B) goto exit;
|
|
||||||
goto head;
|
|
56
test/ctypetst.c02
Normal file
56
test/ctypetst.c02
Normal file
@ -0,0 +1,56 @@
|
|||||||
|
/*************************************
|
||||||
|
* CTYPETST - Test Library ctype.h02 *
|
||||||
|
*************************************/
|
||||||
|
|
||||||
|
//Specify System Header using -H option
|
||||||
|
#include <ctype.h02>
|
||||||
|
|
||||||
|
char c, i;
|
||||||
|
|
||||||
|
main:
|
||||||
|
i = 0;
|
||||||
|
|
||||||
|
head:
|
||||||
|
putstr(" ");
|
||||||
|
putchr('C'); //Control
|
||||||
|
putchr('S'); //White Space
|
||||||
|
putchr('P'); //Punctuation
|
||||||
|
putchr('D'); //Digit
|
||||||
|
putchr('H'); //Hex Digit
|
||||||
|
putchr('U'); //Upper Case
|
||||||
|
putchr('L'); //Lower Case
|
||||||
|
putchr('A'); //Alphabetic
|
||||||
|
putchr('N'); //Alphanumeric
|
||||||
|
putchr('G'); //Graphic
|
||||||
|
putchr('R'); //Printable
|
||||||
|
putchr('B'); //Binary
|
||||||
|
newlin();
|
||||||
|
|
||||||
|
loop:
|
||||||
|
prbyte(i);
|
||||||
|
putchr(' ');
|
||||||
|
c = i;
|
||||||
|
if (c < $20) c = $20;
|
||||||
|
if (c >= $7F) c = $20;
|
||||||
|
putchr(c);
|
||||||
|
putchr(' ');
|
||||||
|
c = isctrl(i) & $0A | $20; putchr(c);
|
||||||
|
c = isspce(i) & $0A | $20; putchr(c);
|
||||||
|
c = ispnct(i) & $0A | $20; putchr(c);
|
||||||
|
c = isdigt(i) & $0A | $20; putchr(c);
|
||||||
|
c = ishdgt(i) & $0A | $20; putchr(c);
|
||||||
|
c = isuppr(i) & $0A | $20; putchr(c);
|
||||||
|
c = islowr(i) & $0A | $20; putchr(c);
|
||||||
|
c = isalph(i) & $0A | $20; putchr(c);
|
||||||
|
c = isalnm(i) & $0A | $20; putchr(c);
|
||||||
|
c = isgrph(i) & $0A | $20; putchr(c);
|
||||||
|
c = isprnt(i) & $0A | $20; putchr(c);
|
||||||
|
c = isbdgt(i) & $0A | $20; putchr(c);
|
||||||
|
newlin();
|
||||||
|
i++;
|
||||||
|
if (i == 0) goto exit;
|
||||||
|
if (i & $0F <> 0) goto loop;
|
||||||
|
newlin();
|
||||||
|
c = getkey();
|
||||||
|
if (c == $1B) goto exit;
|
||||||
|
goto head;
|
Loading…
Reference in New Issue
Block a user