mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-01 06:49:59 +00:00
dafe80d008
- added _RDUMP to required library - added MSWAP to common library - deleted full required library from each disk except #2, replaced with min versions (still need to update demos accordingly) - added beginnings of error handling in required library
76 lines
1.4 KiB
Plaintext
76 lines
1.4 KiB
Plaintext
_ISLIT MAC
|
|
IF #=]1 ; IF ]1 IS A LITERAL
|
|
LDA ]1/$100 ; GET HI
|
|
PHA
|
|
LDA ]1 ; GET LO
|
|
PHA
|
|
ELSE ; ]1 IS ADDRESS
|
|
LDA ]1+1 ; SO GET HIGH VAL FROM ADDR
|
|
PHA
|
|
LDA ]1 ; THEN LO VAL
|
|
PHA
|
|
FIN
|
|
<<<
|
|
_ISSTR MAC
|
|
IF "=]1 ; IF ]1 IS A STRING
|
|
JMP STRCONT
|
|
]STRTMP STR ]1
|
|
STRCONT
|
|
LDY #0
|
|
LDA ]STRTMP
|
|
STA PARLEN
|
|
STA PARAM
|
|
]STRLP1
|
|
INY
|
|
LDA ]STRTMP,Y
|
|
STA PARAM,Y
|
|
CPY PARLEN
|
|
BNE ]STRLP1
|
|
*
|
|
LDA #>PARAM ; GET HI
|
|
PHA
|
|
LDA #<PARAM ; GET LO
|
|
PHA
|
|
ELSE ; ]1 IS ADDRESS
|
|
LDA #>]1 ; SO GET HIBYTE OF ADDR
|
|
PHA
|
|
LDA #<]1 ; THEN LOBYTE
|
|
PHA
|
|
FIN
|
|
<<<
|
|
_GRET MAC
|
|
LDA #>]1
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
JSR __GETRET
|
|
<<<
|
|
_SPAR MAC
|
|
LDA #>]1
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
JSR __SETPARM
|
|
<<<
|
|
_DUMP MAC
|
|
LDA #>]1
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
LDA ]2
|
|
PHA
|
|
JSR __DUMP
|
|
<<<
|
|
_PRNT MAC
|
|
JSR __P
|
|
ASC ]1
|
|
HEX 00
|
|
<<<
|
|
_WAIT MAC
|
|
JSR __W
|
|
<<<
|
|
_RDUMP MAC
|
|
JSR __RDMP
|
|
<<<
|
|
*
|