Apple-2-SW/AppleIIAsm-Collection
1
0
Fork 0
mirror of https://github.com/nathanriggs/AppleIIAsm-Collection.git synced 2024-12-04 10:51:10 +00:00
Code Issues Projects Releases Wiki Activity
ad58479739
AppleIIAsm-Collection/disks/disk3_arrays/T.AGET82.SUB

265 lines
5.5 KiB
Plaintext
Raw Normal View History

added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
*``````````````````````````````*
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
* AGET82 : INIT 2D ARRAY *
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*- -*
* THIS GETS THE ADDRESS OF AN *
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
* ELEMENT AT THE INDEX OF *
* [:XIDX],[:YIDX]. *
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*- -*
* CLOBBERS: *
* *
* FLAGS: ????---- REG: AXYM *
*- -*
* CYCLES: ??? *
* SIZE: *
*- -*
* USAGE: *
* *
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
* LDA #>$300 ; ARRAY ADDR *
* PHA *
* LDA #<$300 *
* PHA *
* LDA #2 ; X INDEX *
* PHA *
* LDA #3 ; Y INDEX *
* PHA *
* JSR AGET82 *
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*- -*
* ENTRY *
* *
* TOP OF STACK *
* *
* LOW BYTE OF RETURN ADDRESS *
* HI BYTE OF RETURN ADDRESS *
* Y INDEX OF ELEMENT *
* X INDEX OF ELEMENT *
* LOW BYTE OF ARRAY ADDRESS *
* HIGH BYTE OF ARRAY ADDRESS *
*- -*
* EXIT *
* *
* TOP OF STACK *
* *
* LOW BYTE OF RETURN ADDRESS *
* HI BYTE OF RETURN ADDRESS *
* *
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
* .Y = LO BYTE OF ELEM ADDR *
* .X = HI BYTE OF ELEM ADDR *
* .A = ELEMENT/RETURN LENGTH *
* *
* [RETURN] = VALUE FOUND AT *
* SPECIFIED INDEX. *
* *
* [RETLEN] = LENGTH IN BYTES *
* OF THE RETURN VALUE. *
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
*
AGET82
*
** SAVE RETURN ADDRESS
*
PLA
STA RETADR
PLA
STA RETADR+1
*
** GET PARAMETERS
*
PLA
STA :YIDX
PLA
STA :XIDX
PLA
STA ADDR1
PLA
STA ADDR1+1
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
DEC :XIDX
DEC :YIDX
*
** GET ARRAY SIZES
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
LDY #2
LDA (ADDR1),Y ; ELEMENT LENGTH
STA :MCAND ; ELEMENT LENGTH
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
STA :ELEN
DEY
LDA (ADDR1),Y ; Y LENGTH
STA :YLEN
DEY
LDA (ADDR1),Y ; X LENGTH
STA :XLEN
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
LDA #0
STA :MCAND+1
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
********************************
*
* ERROR CONTROL
*
********************************
*
LDA ERRCTRL
CMP #1
BEQ :CHKERR
JMP :ERREND
:CHKERR
LDA :XIDX ; IF X > MAX LEN
CLC
ADC #1
CMP :XLEN
BCS :XOVF
JMP :ERRCONT1
:XOVF
_ERR :E_SID;:E_XOVF;:E_DUMP;:XIDX;#15
:ERRCONT1
LDA :YIDX ; IF Y > MAX LEN
CLC
ADC #1
CMP :YLEN
BCS :YOVF
JMP :ERRCONT2
:YOVF
_ERR :E_SID;:E_YOVF;:E_DUMP;:XIDX;#15
:ERRCONT2
LDA :XIDX ; IF INDEX IS 0, ERR
CMP #255
BEQ :XOVF
:ERRCONT3
LDA :YIDX
CMP #255
BEQ :YOVF
*
********************************
*
:ERREND
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
********************************
*
** MULTIPLY Y-INDEX BY Y-LENGTH
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
LDA #0
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
*
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
TAY
STY SCRATCH
BEQ :ENTLP
*
:DOADD
CLC
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
ADC :YIDX
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
TAX
*
TYA
ADC SCRATCH
TAY
TXA
*
:LP
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
ASL :YIDX
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
ROL SCRATCH
:ENTLP
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
LSR :YLEN
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
BCS :DOADD
BNE :LP
*
STX :MLIER
STY :MLIER+1
*
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
** NOW ADD X INDEX
*
CLC
LDA :MLIER
ADC :XIDX
STA :MLIER
BCC :CONTADD
LDA :MLIER+1
ADC #1
STA :MLIER+1
:CONTADD
*
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
** NOW MULTIPLY BY LENGTH OF ELEMENTS
*
LDA #0
STA :PROD+2
STA :PROD+3
LDX #$10
:SHIFTR LSR :MLIER+1
ROR :MLIER
BCC :ROTR
LDA :PROD+2
CLC
ADC :MCAND
STA :PROD+2
LDA :PROD+3
ADC :MCAND+1
:ROTR
ROR
STA :PROD+3
ROR :PROD+2
ROR :PROD+1
ROR :PROD
DEX
BNE :SHIFTR
*
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
CLC
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
INC :PROD ; INCREASE BY 3
INC :PROD
INC :PROD
0.2.0 updates: Arrays - Some major bugfixes - more compact commenting - added required.lib, mac and hooks - changed array get routines to copy appropriate element to memory address designated as "return" - created .min versions of each file that has no comments to save space in large projects - reordered catalog alphabetically
2018-12-12 19:29:06 +00:00
BCC :NOCAR
INC :PROD+1
:NOCAR
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
** NOW ADD BASE ADDRESS OF ARRAY TO GET
** THE ADDRESS OF THE INDEX VALUE
*
CLC
LDA :PROD
ADC ADDR1
STA :PROD
LDA :PROD+1
ADC ADDR1+1
STA :PROD+1
*
** RETURN ADDRESS IN Y(LOW) AND X(HIGH)
*
LDY :PROD
LDX :PROD+1
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
STY ADDR1
STX ADDR1+1
LDY #0
:RLP
LDA (ADDR1),Y
STA RETURN,Y
INY
CPY :ELEN
BNE :RLP
LDA :ELEN
STA RETLEN
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
** RESTORE RETURN ADDRESS
*
LDA RETADR+1
PHA
LDA RETADR
PHA
*
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
LDA RETLEN
LDY ADDR1
LDX ADDR1+1
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
RTS
*
** DATA
*
:XIDX DS 2
:YIDX DS 2
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
:XLEN DS 1
:YLEN DS 1
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
:PROD DS 4
:MLIER DS 2
:MCAND DS 2
Disk 3: ARRAYS 0.3.0 updates - major bugfixes, especially in 2D arrays - separated each subroutine into own file - reconfigured arrays to use 1-based indexing - Arrays.demo uses macros now - added overflow error handling to get and put routines
2019-01-21 00:14:17 +00:00
:ELEN DS 1
*
:E_SID ASC "AGET82 (GET82 MACRO)",00
:E_DUMP ASC ":XIDX(2) :YIDX(2) :XLEN(1) :YLEN(1)"
ASC ":PROD(4) :MLIER(2) :MCAND(2) :ELEN(1)",00
:E_XOVF ASC "X-OVERFLOW! X IS > MAXIMUM OR IS 0.",00
:E_YOVF ASC "Y-OVERFLOW! Y IS > MAX OR IS 0.",00
added disk3: Array Routines - 16bit array subroutines will be added here at a later date. - Strings library separated from arrays on its own disk in anticipation of larger libraries.
2018-11-10 22:41:05 +00:00
*
Reference in New Issue Copy Permalink