mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-07-02 23:29:33 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
98 lines
1.7 KiB
NASM
98 lines
1.7 KiB
NASM
_MLIT MAC
|
|
IF #=]1
|
|
LDA ]1/$100
|
|
STA ]2+1
|
|
LDA ]1
|
|
STA ]2
|
|
ELSE
|
|
LDA ]1+1
|
|
STA ]2+1
|
|
LDA ]1
|
|
STA ]2
|
|
FIN
|
|
<<<
|
|
_ISLIT MAC
|
|
IF #=]1
|
|
LDA ]1/$100
|
|
PHA
|
|
LDA ]1
|
|
PHA
|
|
ELSE
|
|
LDA ]1+1
|
|
PHA
|
|
LDA ]1
|
|
PHA
|
|
FIN
|
|
<<<
|
|
_AXLIT MAC
|
|
IF #=]1
|
|
LDX ]1/$100
|
|
LDA ]1
|
|
ELSE
|
|
LDX ]1+1
|
|
LDA ]1
|
|
FIN
|
|
<<<
|
|
_MSTR MAC
|
|
IF "=]1
|
|
JMP __STRCONT
|
|
]STRTMP STR ]1
|
|
__STRCONT
|
|
LDA #>]STRTMP
|
|
STA ]2+1
|
|
LDA #<]STRTMP
|
|
STA ]2
|
|
ELSE
|
|
_ISLIT ]1
|
|
FIN
|
|
<<<
|
|
_ISSTR MAC
|
|
IF "=]1
|
|
JMP __STRCONT
|
|
]STRTMP STR ]1
|
|
__STRCONT
|
|
LDA #>]STRTMP
|
|
PHA
|
|
LDA #<]STRTMP
|
|
PHA
|
|
ELSE
|
|
_ISLIT ]1
|
|
FIN
|
|
<<<
|
|
_AXSTR MAC
|
|
IF "=]1
|
|
JMP __STRCNT2
|
|
]STRTMP STR ]1
|
|
__STRCNT2
|
|
LDX #>]STRTMP
|
|
LDA #<]STRTMP
|
|
ELSE
|
|
_AXLIT ]1
|
|
FIN
|
|
<<<
|
|
GRET MAC
|
|
_AXLIT ]1
|
|
JSR __GETRET
|
|
<<<
|
|
DUMP MAC
|
|
_AXLIT ]1
|
|
LDY ]2
|
|
JSR __DUMP
|
|
<<<
|
|
_PRN MAC
|
|
JSR __P
|
|
ASC ]1
|
|
HEX 00
|
|
<<<
|
|
_WAIT MAC
|
|
JSR __W
|
|
<<<
|
|
ERRH MAC
|
|
_AXLIT
|
|
JSR __ERRH
|
|
<<<
|
|
CLRHI MAC
|
|
LDA ]1
|
|
JSR __CLRHI
|
|
<<<
|