mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-03 18:49:28 +00:00
106 lines
1.9 KiB
Plaintext
106 lines
1.9 KiB
Plaintext
*
|
|
STR2NUM
|
|
*
|
|
PLA
|
|
STA RETADR
|
|
PLA
|
|
STA RETADR+1
|
|
PLA
|
|
STA ADDR1
|
|
PLA
|
|
STA ADDR1+1
|
|
LDY #0
|
|
LDA (ADDR1),Y
|
|
TAX
|
|
LDA #1
|
|
STA :NINDEX
|
|
LDA #0
|
|
STA :NACCUM
|
|
STA :NACCUM+1
|
|
STA :SNGFLAG
|
|
TXA
|
|
BNE :INIT1
|
|
JMP :EREXIT
|
|
:INIT1
|
|
LDY :NINDEX
|
|
LDA (ADDR1),Y
|
|
CMP #173
|
|
BNE :PLUS
|
|
LDA #$0FF
|
|
STA :SNGFLAG
|
|
INC :NINDEX
|
|
DEX
|
|
BEQ :EREXIT
|
|
JMP :CNVERT
|
|
:PLUS
|
|
CMP #'+'
|
|
BNE :CHKDIG
|
|
INC :NINDEX
|
|
DEX
|
|
BEQ :EREXIT
|
|
:CNVERT
|
|
LDY :NINDEX
|
|
LDA (ADDR1),Y
|
|
:CHKDIG
|
|
CMP #$B0 ; "0"
|
|
BMI :EREXIT
|
|
CMP #$BA
|
|
BPL :EREXIT
|
|
PHA
|
|
ASL :NACCUM
|
|
ROL :NACCUM+1
|
|
LDA :NACCUM
|
|
LDY :NACCUM+1
|
|
ASL :NACCUM
|
|
ROL :NACCUM+1
|
|
ASL :NACCUM
|
|
ROL :NACCUM+1
|
|
CLC
|
|
ADC :NACCUM
|
|
STA :NACCUM
|
|
TYA
|
|
ADC :NACCUM+1
|
|
STA :NACCUM+1
|
|
PLA
|
|
SEC
|
|
SBC #$B0
|
|
CLC
|
|
ADC :NACCUM
|
|
STA :NACCUM
|
|
BCC :D2B1
|
|
INC :NACCUM+1
|
|
:D2B1
|
|
INC :NINDEX
|
|
DEX
|
|
BNE :CNVERT
|
|
LDA :SNGFLAG
|
|
BPL :OKEXIT
|
|
LDA #0
|
|
SEC
|
|
SBC :NACCUM
|
|
STA :NACCUM
|
|
LDA #0
|
|
SBC :NACCUM+1
|
|
STA :NACCUM+1
|
|
:OKEXIT
|
|
CLC
|
|
BCC :EXIT
|
|
:EREXIT
|
|
SEC
|
|
:EXIT
|
|
LDA RETADR+1
|
|
PHA
|
|
LDA RETADR
|
|
PHA
|
|
LDX :NACCUM+1
|
|
LDY :NACCUM
|
|
STY RETURN
|
|
STX RETURN+1
|
|
LDA #2
|
|
STA RETLEN
|
|
LDA :NINDEX
|
|
RTS
|
|
:NACCUM DS 2
|
|
:SNGFLAG DS 1
|
|
:NINDEX DS 1
|