mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-30 01:26:10 +00:00
57 lines
1008 B
Plaintext
57 lines
1008 B
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
.OP 65C02
|
||
*---------------------------------------
|
||
* Addressing Mode reserved : #(),XY
|
||
* U-Operators :
|
||
* B-Operators :
|
||
* Num Format : 0-9 -> decimal
|
||
* $ = Hexa
|
||
* % = binary
|
||
* & = octal
|
||
*---------------------------------------
|
||
EXP.Get jsr SRC.GetCharNB
|
||
beq .9
|
||
jsr SRC.IsDigit10 Decimal constant ?
|
||
bne .
|
||
|
||
|
||
|
||
|
||
|
||
|
||
cmp #'$' Hex?
|
||
bne .
|
||
|
||
|
||
|
||
|
||
cmp #''' literal?
|
||
bne .
|
||
|
||
|
||
|
||
|
||
jsr SRC.IsLetter Symbol ?
|
||
bne .
|
||
|
||
cmp #'#'
|
||
.9 lda #ERR.MISSING.EXP
|
||
sec
|
||
.99 rts
|
||
*---------------------------------------
|
||
stz SRC.ACC
|
||
stz SRC.ACC+1
|
||
stz SRC.ACC+2
|
||
stz SRC.ACC+3
|
||
*---------------------------------------
|
||
EXP.Operators .AS "^!|&<=>+-*/"
|
||
*---------------------------------------
|
||
MAN
|
||
SAVE BIN/ASM.S.DIR
|
||
LOAD BIN/ASM.S
|
||
ASM |