mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-08 08:33:37 +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
|