mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-06-07 10:29:28 +00:00
9f35f32f67
- massive overhaul of architecture - first round of optimizations - first draft of the technical manual for the entire library - reorganization of directory structure
98 lines
1.7 KiB
Plaintext
98 lines
1.7 KiB
Plaintext
_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
|
|
<<<
|