mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-26 21:29:31 +00:00
1cca2ca580
mostly updated the required and common libraries, as well as created a minify program in applesoft basic that automatically creates a .min file from fully-commented source.
72 lines
1.5 KiB
Plaintext
72 lines
1.5 KiB
Plaintext
*
|
|
*``````````````````````````````*
|
|
* DECLARATIONS.PUT *
|
|
*- -*
|
|
* USED IN CONJUNCTION WITH *
|
|
* OTHER PUT FILES. DEFINES *
|
|
* BASIC DECLARATIONS USED *
|
|
* ACROSS DIFFERENT ROUTINES *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
** ADDRESS STORAGE LOCATIONS FOR
|
|
** INDIRECT ADDRESSING.
|
|
*
|
|
ADDR1 EQU $06
|
|
ADDR2 EQU $08
|
|
ADDR3 EQU $EB
|
|
ADDR4 EQU $ED
|
|
*
|
|
** SCRATCHPAD ZERO PAGE LOCATIONS AND
|
|
** DEDICATED ZERO PAGE ADDRESS TO HOLD
|
|
** A RETURN ADDRESS PASSED VIA THE STACK
|
|
*
|
|
SCRATCH EQU $19
|
|
SCRATCH2 EQU $1E
|
|
RETADR EQU $FE
|
|
*
|
|
** ZERO PAGE ADDRESSES DEDICATED TO PASSING
|
|
** BACK RESULTS WHEN THERE ARE MORE THAN
|
|
** THREE BYTES BEING PASSED (AXY) AND THE
|
|
** USE OF THE STACK IS IMPRACTICAL OR TOO SLOW
|
|
*
|
|
RESULT EQU $FA
|
|
RESULT2 EQU $FC
|
|
*
|
|
** VARIOUS HOOKS USED BY ALL ROUTINES
|
|
*
|
|
REENTRY EQU $3D0
|
|
*
|
|
*
|
|
*
|
|
*
|
|
** ERROR HANDLING
|
|
*
|
|
** SET ERRSTOP TO 1 IF YOU WANT THE PROGRAM TO
|
|
** HALT WHEN A RUNTIME ERROR OCCURS (BRK)
|
|
*
|
|
LDA #1
|
|
STA ERRSTOP
|
|
*
|
|
** SET ERRMESG TO 1 IF YOU WANT THE LIBRARY TO
|
|
** OUTPUT AN ERROR MESSAGE WHEN AN ERROR OCCURS,
|
|
** RATHER THAN JUST PASSING THE ERROR BACK TO
|
|
** THE CALLING ROUTINE.
|
|
*
|
|
LDA #1
|
|
STA ERRMESG
|
|
*
|
|
** SET ERRCTRL TO 1 IF YOU WANT ERROR CATCHING ON
|
|
** IN THE FIRST PLACE. HAVING THIS TURNED OFF WILL
|
|
** SAVE A FEW CYCLES, BUT POSSIBLY AT THE EXPENSE
|
|
** OF YOUR FRUSTRATION. CAN BE TURNED ON LATER THOUGH.
|
|
*
|
|
LDA #1
|
|
STA ERRCTRL
|
|
*
|
|
JMP VARSKIP
|
|
ERRSTOP DS 1
|
|
ERRMESG DS 1
|
|
ERRCTRL DS 1
|
|
VARSKIP
|
|
*
|