mirror of
https://github.com/RevCurtisP/C02.git
synced 2025-02-19 19:31:04 +00:00
Added X16 module abiregs
This commit is contained in:
Curtis F Kaylor
parent
66bf02a227
commit
c6a4551414
53
x16/abitest.c02
Normal file
53
x16/abitest.c02
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
/*********************************************
|
||||||
|
* ABIRREGS - Check ABI register definitions *
|
||||||
|
* for Commander X16 Kernal *
|
||||||
|
*********************************************/
|
||||||
|
|
||||||
|
//use -h option on command line
|
||||||
|
#include "include/abiregs.h02"
|
||||||
|
|
||||||
|
char aa,xx,yy; //Function Arguments
|
||||||
|
char i; //Loop Index
|
||||||
|
|
||||||
|
const char rvals = {$0F,$F0, $1E,$E1, $2D,$D2, $3C,$C3, $4B,$B4, $5A,$A5, $69,$96, $78,$87,
|
||||||
|
$80,$08, $91,$19, $A2,$2A, $B3,$B3, $C4,$4C, $D5,$5D, $E6,$6E, $F7,$7F};
|
||||||
|
char rcomp[32];
|
||||||
|
|
||||||
|
void prtadr(aa,yy,xx) {
|
||||||
|
putchr('$');
|
||||||
|
if (yy) prbyte(yy);
|
||||||
|
prbyte(xx);
|
||||||
|
}
|
||||||
|
|
||||||
|
main:
|
||||||
|
|
||||||
|
//Print Register Addresses
|
||||||
|
putstr("R0 "); prtadr(&R0); putstr(" R0L "); prtadr(&R0L); putstr(" R0H "); prtadr(&R0H); newlin();
|
||||||
|
putstr("R1 "); prtadr(&R1); putstr(" R1L "); prtadr(&R1L); putstr(" R1H "); prtadr(&R1H); newlin();
|
||||||
|
putstr("R2 "); prtadr(&R2); putstr(" R2L "); prtadr(&R2L); putstr(" R2H "); prtadr(&R2H); newlin();
|
||||||
|
putstr("R3 "); prtadr(&R3); putstr(" R3L "); prtadr(&R3L); putstr(" R3H "); prtadr(&R3H); newlin();
|
||||||
|
putstr("R4 "); prtadr(&R4); putstr(" R4L "); prtadr(&R4L); putstr(" R4H "); prtadr(&R4H); newlin();
|
||||||
|
putstr("R5 "); prtadr(&R5); putstr(" R5L "); prtadr(&R5L); putstr(" R5H "); prtadr(&R5H); newlin();
|
||||||
|
putstr("R6 "); prtadr(&R6); putstr(" R6L "); prtadr(&R6L); putstr(" R6H "); prtadr(&R6H); newlin();
|
||||||
|
putstr("R7 "); prtadr(&R7); putstr(" R7L "); prtadr(&R7L); putstr(" R7H "); prtadr(&R7H); newlin();
|
||||||
|
putstr("R8 "); prtadr(&R8); putstr(" R8L "); prtadr(&R8L); putstr(" R8H "); prtadr(&R8H); newlin();
|
||||||
|
putstr("R9 "); prtadr(&R9); putstr(" R9L "); prtadr(&R9L); putstr(" R9H "); prtadr(&R9H); newlin();
|
||||||
|
putstr("R10 "); prtadr(&R10); putstr(" R10L "); prtadr(&R10L); putstr(" R10H "); prtadr(&R10H); newlin();
|
||||||
|
putstr("R11 "); prtadr(&R11); putstr(" R11L "); prtadr(&R11L); putstr(" R11H "); prtadr(&R11H); newlin();
|
||||||
|
putstr("R12 "); prtadr(&R12); putstr(" R12L "); prtadr(&R12L); putstr(" R12H "); prtadr(&R12H); newlin();
|
||||||
|
putstr("R13 "); prtadr(&R13); putstr(" R13L "); prtadr(&R13L); putstr(" R13H "); prtadr(&R13H); newlin();
|
||||||
|
putstr("R14 "); prtadr(&R14); putstr(" R14L "); prtadr(&R14L); putstr(" R14H "); prtadr(&R14H); newlin();
|
||||||
|
putstr("R15 "); prtadr(&R15); putstr(" R15L "); prtadr(&R15L); putstr(" R15H "); prtadr(&R15H); newlin();
|
||||||
|
|
||||||
|
//Test setabi() and getabi()
|
||||||
|
for (i=0; i<=@rvals; i++) r0l[i] = 0; //Clear ABI Registers
|
||||||
|
//inline $ff;
|
||||||
|
setabi(@rvals, rvals); //Write to ABI Registers
|
||||||
|
for (i=0; i<@rvals; i++) {
|
||||||
|
if (!i&7) newlin();
|
||||||
|
if (!i&1) putstr(" $");
|
||||||
|
prbyte(R0l[i]);
|
||||||
|
if (R0l[i] <> rvals[i]) {putstr("ERROR!"); goto exit;}
|
||||||
|
}
|
||||||
|
|
||||||
|
goto exit;
|
||||||
78
x16/include/abiregs.a02
Normal file
78
x16/include/abiregs.a02
Normal file
@ -0,0 +1,78 @@
|
|||||||
|
;Commander X16 ABI Registers Assembly Language Routines
|
||||||
|
|
||||||
|
;Zero Page System Variables - x16emu Release 34 Memory Map
|
||||||
|
ABIPTR EQU $00 ;Pointer for ABI Functions
|
||||||
|
R0 EQU $02 ;ABI Register 0
|
||||||
|
R0L EQU $02 ;ABI Register 0 LSB
|
||||||
|
R0H EQU $03 ;ABI Register 0 MSB
|
||||||
|
R1 EQU $04 ;ABI Register 1
|
||||||
|
R1L EQU $04 ;ABI Register 1 LSB
|
||||||
|
R1H EQU $05 ;ABI Register 1 MSB
|
||||||
|
R2 EQU $06 ;ABI Register 2
|
||||||
|
R2L EQU $06 ;ABI Register 2 LSB
|
||||||
|
R2H EQU $07 ;ABI Register 2 MSB
|
||||||
|
R3 EQU $08 ;ABI Register 3
|
||||||
|
R3L EQU $08 ;ABI Register 3 LSB
|
||||||
|
R3H EQU $09 ;ABI Register 3 MSB
|
||||||
|
R4 EQU $0A ;ABI Register 4
|
||||||
|
R4L EQU $0A ;ABI Register 4 LSB
|
||||||
|
R4H EQU $0B ;ABI Register 4 MSB
|
||||||
|
R5 EQU $0C ;ABI Register 5
|
||||||
|
R5L EQU $0C ;ABI Register 5 LSB
|
||||||
|
R5H EQU $0D ;ABI Register 5 MSB
|
||||||
|
R6 EQU $0E ;ABI Register 6
|
||||||
|
R6L EQU $0E ;ABI Register 6 LSB
|
||||||
|
R6H EQU $0F ;ABI Register 6 MSB
|
||||||
|
R7 EQU $10 ;ABI Register 7
|
||||||
|
R7L EQU $10 ;ABI Register 7 LSB
|
||||||
|
R7H EQU $11 ;ABI Register 7 MSB
|
||||||
|
R8 EQU $12 ;ABI Register 8
|
||||||
|
R8L EQU $12 ;ABI Register 8 LSB
|
||||||
|
R8H EQU $13 ;ABI Register 8 MSB
|
||||||
|
R9 EQU $14 ;ABI Register 9
|
||||||
|
R9L EQU $14 ;ABI Register 9 LSB
|
||||||
|
R9H EQU $15 ;ABI Register 9 MSB
|
||||||
|
R10 EQU $16 ;ABI Register 10
|
||||||
|
R10L EQU $16 ;ABI Register 10 LSB
|
||||||
|
R10H EQU $17 ;ABI Register 10 MSB
|
||||||
|
R11 EQU $18 ;ABI Register 11
|
||||||
|
R11L EQU $18 ;ABI Register 11 LSB
|
||||||
|
R11H EQU $19 ;ABI Register 11 MSB
|
||||||
|
R12 EQU $1A ;ABI Register 12
|
||||||
|
R12L EQU $1A ;ABI Register 12 LSB
|
||||||
|
R12H EQU $1B ;ABI Register 12 MSB
|
||||||
|
R13 EQU $1C ;ABI Register 13
|
||||||
|
R13L EQU $1C ;ABI Register 13 LSB
|
||||||
|
R13H EQU $1D ;ABI Register 13 MSB
|
||||||
|
R14 EQU $1E ;ABI Register 14
|
||||||
|
R14L EQU $1E ;ABI Register 14 LSB
|
||||||
|
R14H EQU $1F ;ABI Register 14 MSB
|
||||||
|
R15 EQU $20 ;ABI Register 15
|
||||||
|
R15L EQU $20 ;ABI Register 15 LSB
|
||||||
|
R15H EQU $21 ;ABI Register 15 MSB
|
||||||
|
|
||||||
|
;Read ABI Registers into Array or Struct
|
||||||
|
GETABI: STX ABIPTR ;Store Array Address
|
||||||
|
STY ABIPTR+1
|
||||||
|
TAY ;Copy Array Size into Y Register
|
||||||
|
GETABY: DEY ;Decrement Counter
|
||||||
|
BMI .GETABX ;If Not Negative
|
||||||
|
LDA R0,Y ;Get Byte from ABI Register
|
||||||
|
STA (ABIPTR),Y ;And write to ABI Register
|
||||||
|
BRA GETABY ;and Loop
|
||||||
|
.GETABX RTS
|
||||||
|
|
||||||
|
;Return ABI Register Contents
|
||||||
|
GETABR: TAX ;Copy Register
|
||||||
|
|
||||||
|
|
||||||
|
;Write Array or Struct to ABI Registers
|
||||||
|
SETABI: STX ABIPTR ;Store Array Address
|
||||||
|
STY ABIPTR+1
|
||||||
|
TAY ;Copy Array Size into Y Register
|
||||||
|
SETABY: DEY ;Decrement Counter
|
||||||
|
BMI .SETABX ;If Not Negative
|
||||||
|
LDA (ABIPTR),Y ;Get Byte from Array or Struct
|
||||||
|
STA R0,Y ;Store in ABI Register
|
||||||
|
BRA SETABY ;and Loop
|
||||||
|
.SETABX RTS
|
||||||
11
x16/include/abiregs.h02
Normal file
11
x16/include/abiregs.h02
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
/* Commander X16 ABI Registers *
|
||||||
|
* Definitions and Routines */
|
||||||
|
|
||||||
|
//X16 ABI Registers
|
||||||
|
char r0l,r1l,r2l,r3l,r4l,r5l,r6l,r7l,r8l,r9l,r10l,r11l,r12l,r13l,r14l,r15l;
|
||||||
|
char r0h,r1h,r2h,r3h,r4h,r5h,r6h,r7h,r8h,r9h,r10h,r11h,r12h,r13h,r14h,r15h;
|
||||||
|
int r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15;
|
||||||
|
|
||||||
|
//X16 ABI Functions
|
||||||
|
void getabi(); //Read ABI Registers
|
||||||
|
void setabi(); //Get ABI Registers
|
||||||
Loading…
x
Reference in New Issue
Block a user