mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-25 18:29:36 +00:00
Work In Progress (ASM)
This commit is contained in:
parent
40b78c11a4
commit
84712111d5
|
@ -45,7 +45,7 @@ DIR.EN clc
|
||||||
DIR.EP clc
|
DIR.EP clc
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
DIR.EQ jsr EXP.Get
|
DIR.EQ jsr EXP.Eval
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
clc
|
clc
|
||||||
|
@ -176,7 +176,7 @@ DIR.OP jsr SRC.GetArg
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
DIR.OR jsr EXP.Get
|
DIR.OR jsr EXP.Eval
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
ldy #ASM.PC
|
ldy #ASM.PC
|
||||||
|
|
|
@ -5,8 +5,6 @@ INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
* Addressing Mode reserved : []#(),
|
|
||||||
* EXP.Operators .AS "^!|&<=>+-*/"
|
|
||||||
* U-Operators :
|
* U-Operators :
|
||||||
* B-Operators :
|
* B-Operators :
|
||||||
* Num Format : 0-9 -> decimal
|
* Num Format : 0-9 -> decimal
|
||||||
|
@ -15,7 +13,7 @@ AUTO 6
|
||||||
* & = octal
|
* & = octal
|
||||||
* * = PC
|
* * = PC
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
EXP.Get jsr SRC.GetCharNB
|
EXP.Eval jsr SRC.GetCharNB
|
||||||
beq .98
|
beq .98
|
||||||
cmp #'*'
|
cmp #'*'
|
||||||
bne .10
|
bne .10
|
||||||
|
@ -55,7 +53,14 @@ EXP.Get jsr SRC.GetCharNB
|
||||||
bra .8
|
bra .8
|
||||||
|
|
||||||
|
|
||||||
.3 jsr SRC.IsLetter Symbol ?
|
.3 cmp #'&' octal?
|
||||||
|
bne .4
|
||||||
|
jsr SRC.GetOctal
|
||||||
|
bcs .97
|
||||||
|
|
||||||
|
bra .8
|
||||||
|
|
||||||
|
.4 jsr SRC.IsLetter Symbol ?
|
||||||
bcs .97
|
bcs .97
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -29,7 +29,7 @@ FIO.OpenFileA sta hFileName
|
||||||
|
|
||||||
ldy #SRC.COUNT
|
ldy #SRC.COUNT
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
cmp #SRC.IN.DEPTH.MAX
|
cmp #SRC.IN.MAXDEPTH
|
||||||
bne .10
|
bne .10
|
||||||
|
|
||||||
lda #ERR.SRC.TOO.MANY.IN
|
lda #ERR.SRC.TOO.MANY.IN
|
||||||
|
|
|
@ -118,7 +118,7 @@ SRC.ParseLine.OpCode
|
||||||
>SYSCALL SYS.GetMemPtrA
|
>SYSCALL SYS.GetMemPtrA
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
|
||||||
ldy #ASM.T.O
|
ldy #ASM.T.O setup Ptr to Opcodes
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
clc
|
clc
|
||||||
adc ZPPtr1
|
adc ZPPtr1
|
||||||
|
@ -128,6 +128,17 @@ SRC.ParseLine.OpCode
|
||||||
adc ZPPtr1+1
|
adc ZPPtr1+1
|
||||||
sta ZPPtr2+1
|
sta ZPPtr2+1
|
||||||
|
|
||||||
|
ldy #ASM.T.R setup Ptr to Registers
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
clc
|
||||||
|
adc ZPPtr1
|
||||||
|
sta ZPPtr3
|
||||||
|
iny
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
adc ZPPtr1+1
|
||||||
|
sta ZPPtr3+1
|
||||||
|
|
||||||
|
|
||||||
.10 lda (ZPPtr2)
|
.10 lda (ZPPtr2)
|
||||||
ldy #1
|
ldy #1
|
||||||
ora (ZPPtr2),y
|
ora (ZPPtr2),y
|
||||||
|
@ -144,6 +155,8 @@ SRC.ParseLine.OpCode
|
||||||
cpx SRC.Buffer
|
cpx SRC.Buffer
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
|
jsr SRC.ParseLine.AM
|
||||||
|
bcs .99
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
@ -160,7 +173,97 @@ SRC.ParseLine.OpCode
|
||||||
|
|
||||||
.9 lda #ERR.INVALID.OPCODE
|
.9 lda #ERR.INVALID.OPCODE
|
||||||
sec
|
sec
|
||||||
|
.99 rts
|
||||||
|
*---------------------------------------
|
||||||
|
SRC.ParseLine.AM stz SRC.AM.ID
|
||||||
|
stz SRC.AM.StrBuf
|
||||||
|
|
||||||
|
.1 jsr SRC.GetCharUC any arg immediately after ' '?
|
||||||
|
beq .8 no, AM.ID=0 (implied)
|
||||||
|
|
||||||
|
cmp #' ' another space ?
|
||||||
|
beq .8 ignore end of line (comment)
|
||||||
|
|
||||||
|
jsr SRC.IsAMReserved
|
||||||
|
bcs .2
|
||||||
|
|
||||||
|
inc SRC.AM.StrBuf
|
||||||
|
ldx SRC.AM.StrBuf
|
||||||
|
sta SRC.AM.StrBuf,x
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
|
||||||
|
.8 lda SRC.AM.StrBuf
|
||||||
|
beq .89
|
||||||
|
>PUSHW L.SRC.AM.StrBuf
|
||||||
|
>PUSHW L.MSG.DEBUG
|
||||||
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
||||||
|
.89 clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
.2 jsr SRC.IsLetter Any register?
|
||||||
|
bcs .70 no, try something else
|
||||||
|
|
||||||
|
stz SRC.AM.tmpBuf
|
||||||
|
sta SRC.AM.tmpBuf+1
|
||||||
|
inc SRC.AM.tmpBuf
|
||||||
|
|
||||||
|
.3 jsr SRC.GetCharUC
|
||||||
|
beq .4
|
||||||
|
jsr SRC.IsLetterOrDigit
|
||||||
|
bne .4
|
||||||
|
inc SRC.AM.tmpBuf
|
||||||
|
ldx SRC.AM.tmpBuf
|
||||||
|
sta SRC.AM.tmpBuf,x
|
||||||
|
bra .3
|
||||||
|
|
||||||
|
.4 dec SRC.BufPtr back one char
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
|
.5 lda (ZPPtr3),y
|
||||||
|
beq .71 last register ?
|
||||||
|
|
||||||
|
ldx #$ff
|
||||||
|
|
||||||
|
.6 lda (ZPPtr3),y
|
||||||
|
iny
|
||||||
|
inx
|
||||||
|
cmp SRC.AM.tmpBuf,x
|
||||||
|
bne .7
|
||||||
|
|
||||||
|
cpx SRC.AM.tmpBuf
|
||||||
|
bne .6
|
||||||
|
|
||||||
|
ldy #0 register match, add to AM string
|
||||||
|
ldx SRC.AM.StrBuf
|
||||||
|
|
||||||
|
.61 iny
|
||||||
|
lda SRC.AM.tmpBuf,y
|
||||||
|
sta SRC.AM.StrBuf,x
|
||||||
|
inx
|
||||||
|
cpy SRC.AM.tmpBuf
|
||||||
|
bne .61
|
||||||
|
stx SRC.AM.StrBuf
|
||||||
|
bra .72
|
||||||
|
|
||||||
|
.7 iny
|
||||||
|
bra .5
|
||||||
|
|
||||||
|
.70 dec SRC.BufPtr back one char
|
||||||
|
|
||||||
|
|
||||||
|
.71 jsr SRC.GetExp
|
||||||
|
bcs .99
|
||||||
|
.72 jmp .1
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.9 lda #ERR.INVALID.AM.SYN
|
||||||
|
sec
|
||||||
|
.99 rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SRC.PrintLine bcs .8 if CS, unconditional
|
SRC.PrintLine bcs .8 if CS, unconditional
|
||||||
ldy #ASM.MACRO.ON
|
ldy #ASM.MACRO.ON
|
||||||
|
@ -269,6 +372,52 @@ SRC.GetHex stz SRC.ACC+1
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
.99 lda #ERR.SYNTAX.ERROR
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
|
SRC.GetOctal stz SRC.ACC+1
|
||||||
|
stz SRC.ACC+2
|
||||||
|
stz SRC.ACC+3
|
||||||
|
|
||||||
|
jsr SRC.GetChar
|
||||||
|
beq .99
|
||||||
|
jsr SRC.IsDigit8
|
||||||
|
bcs .99
|
||||||
|
and #$0F
|
||||||
|
sta SRC.ACC
|
||||||
|
|
||||||
|
.1 jsr SRC.GetChar
|
||||||
|
beq .8
|
||||||
|
cmp #' '
|
||||||
|
beq .8
|
||||||
|
jsr SRC.IsDigit8
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
|
||||||
|
ldx #3
|
||||||
|
.2 asl
|
||||||
|
rol SRC.ACC
|
||||||
|
rol SRC.ACC+1
|
||||||
|
rol SRC.ACC+2
|
||||||
|
rol SRC.ACC+3
|
||||||
|
bcs .9
|
||||||
|
dex
|
||||||
|
bne .2
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 lda #ERR.VAL.TOO.BIG
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
|
||||||
.99 lda #ERR.SYNTAX.ERROR
|
.99 lda #ERR.SYNTAX.ERROR
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -386,6 +535,35 @@ SRC.GetKeyword >STYA ZPPtr1
|
||||||
inc SRC.Keyword.ID
|
inc SRC.Keyword.ID
|
||||||
bra .3
|
bra .3
|
||||||
|
|
||||||
|
.9 sec
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
|
SRC.GetExp stz SRC.Exp
|
||||||
|
jsr SRC.GetCharUC
|
||||||
|
beq .9
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
jsr SRC.IsAMReserved
|
||||||
|
bcc .8
|
||||||
|
|
||||||
|
iny
|
||||||
|
sta SRC.Exp+1
|
||||||
|
|
||||||
|
.1 jsr SRC.GetCharUC
|
||||||
|
beq .89
|
||||||
|
cmp #' '
|
||||||
|
beq .89
|
||||||
|
jsr SRC.IsAMReserved
|
||||||
|
bcc .8
|
||||||
|
iny
|
||||||
|
sta SRC.Exp,y
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.8 dec SRC.BufPtr
|
||||||
|
.89 sty SRC.Exp
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
@ -410,6 +588,26 @@ SRC.GetArg jsr SRC.GetCharUC
|
||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
SRC.IsAMReserved ldx SRC.AM.RESERVED
|
||||||
|
.1 cmp SRC.AM.RESERVED,x
|
||||||
|
beq .8
|
||||||
|
dex
|
||||||
|
bne .1
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
|
SRC.IsEXPReserved ldx SRC.EXP.RESERVED
|
||||||
|
.1 cmp SRC.EXP.RESERVED,x
|
||||||
|
beq .8
|
||||||
|
dex
|
||||||
|
bne .1
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
SRC.IsLetterOrDigit jsr SRC.IsDigit10
|
SRC.IsLetterOrDigit jsr SRC.IsDigit10
|
||||||
bcc SRC.IsLetterRTS
|
bcc SRC.IsLetterRTS
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
@ -447,6 +645,14 @@ SRC.IsDigit10 cmp #'0'
|
||||||
cmp #'9'+1
|
cmp #'9'+1
|
||||||
rts cc if ok, cs if not
|
rts cc if ok, cs if not
|
||||||
|
|
||||||
|
.9 sec
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
|
SRC.IsDigit8 cmp #'0'
|
||||||
|
bcc .9
|
||||||
|
cmp #'7'+1
|
||||||
|
rts cc if ok, cs if not
|
||||||
|
|
||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
@ -460,7 +666,7 @@ SRC.GetCharUC jsr SRC.GetChar
|
||||||
beq .9
|
beq .9
|
||||||
cmp #'a'
|
cmp #'a'
|
||||||
bcc .9
|
bcc .9
|
||||||
cmp #'{'
|
cmp #'z'+1
|
||||||
bcs .9
|
bcs .9
|
||||||
eor #$20 to Uppercase
|
eor #$20 to Uppercase
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -5,6 +5,42 @@ INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
* Global Symbol Record: (7 bytes)
|
||||||
|
* 0 : SYM.Block.ID
|
||||||
|
* 1 : Index in SYM.Block
|
||||||
|
* 2 : Flags:
|
||||||
|
* b7=R/W (.SE)
|
||||||
|
* b6=Forward ref
|
||||||
|
* 3-6 : Value
|
||||||
|
*---------------------------------------
|
||||||
|
* Local Symbol Record: (4 bytes)
|
||||||
|
* 0,1 : Pointer to Global Symbol in main table
|
||||||
|
* 2 : 2 digits name (.99)
|
||||||
|
* 3 : offset from Global Symbol
|
||||||
|
*---------------------------------------
|
||||||
|
* Private Symbol Record: (7 bytes)
|
||||||
|
* 0,1 : MacroID
|
||||||
|
* 2 : 2 digits name (:99)
|
||||||
|
* 3-6 : Value
|
||||||
|
*---------------------------------------
|
||||||
|
SYM.Init >PUSHWI SYM.MAXCOUNT*8
|
||||||
|
>PUSHBI S.MEM.F.INIT0
|
||||||
|
>SYSCALL SYS.GetMem
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
ldy #SYM.hMem
|
||||||
|
txa
|
||||||
|
sta (pData),y
|
||||||
|
clc
|
||||||
|
.9 rts
|
||||||
|
*---------------------------------------
|
||||||
|
SYM.Quit ldy #SYM.hMem
|
||||||
|
lda (pData),y
|
||||||
|
beq .8
|
||||||
|
>SYSCALL SYS.FreeMemA
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
*---------------------------------------
|
||||||
SYM.Add
|
SYM.Add
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
@ -41,7 +77,7 @@ SYM.LookupPrivate
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SYM.BLOCK.ALLOC ldx #0
|
SYM.AddBlock ldx #0
|
||||||
.1 lda SYM.BLOCKS,x
|
.1 lda SYM.BLOCKS,x
|
||||||
beq .2
|
beq .2
|
||||||
inx
|
inx
|
||||||
|
|
|
@ -15,20 +15,22 @@ AUTO 6
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
ZPPtr1 .EQ ZPBIN
|
ZPPtr1 .EQ ZPBIN
|
||||||
ZPPtr2 .EQ ZPBIN+2
|
ZPPtr2 .EQ ZPBIN+2
|
||||||
|
ZPPtr3 .EQ ZPBIN+4
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
ASM.T.AM .EQ 0
|
ASM.T.AM .EQ 0
|
||||||
ASM.T.R .EQ 2
|
ASM.T.R .EQ 2
|
||||||
ASM.T.O .EQ 4
|
ASM.T.O .EQ 4
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SYM.BLOCK.SIZE .EQ 4096
|
SYM.BLOCK.MAX .EQ 128 128*256 = 32k max of symbols
|
||||||
SYM.BLOCK.MAX .EQ 8
|
SYM.MAXCOUNT .EQ 1024
|
||||||
SRC.IN.DEPTH.MAX .EQ 7
|
SRC.IN.MAXDEPTH .EQ 7
|
||||||
SRC.LABEL.MAXLEN .EQ 32
|
SRC.LABEL.MAXLEN .EQ 32
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
ERR.INV.ARGS .EQ $80
|
ERR.INV.ARGS .EQ $80
|
||||||
ERR.SRC.INV.TYPE .EQ $90
|
ERR.SRC.INV.TYPE .EQ $90
|
||||||
ERR.SRC.TOO.MANY.IN .EQ $91
|
ERR.SRC.TOO.MANY.IN .EQ $91
|
||||||
ERR.SRC.UNEXP.EOF .EQ $92
|
ERR.SRC.UNEXP.EOF .EQ $92
|
||||||
|
ERR.OOM .EQ $93
|
||||||
ERR.SYNTAX.ERROR .EQ $A0
|
ERR.SYNTAX.ERROR .EQ $A0
|
||||||
ERR.SYM.TOO.LONG .EQ $A1
|
ERR.SYM.TOO.LONG .EQ $A1
|
||||||
ERR.VAL.TOO.BIG .EQ $A2
|
ERR.VAL.TOO.BIG .EQ $A2
|
||||||
|
@ -36,6 +38,8 @@ ERR.LINE.TOO.LONG .EQ $A3
|
||||||
ERR.INVALID.LABEL .EQ $A4
|
ERR.INVALID.LABEL .EQ $A4
|
||||||
ERR.INVALID.DIRECTIVE .EQ $A5
|
ERR.INVALID.DIRECTIVE .EQ $A5
|
||||||
ERR.INVALID.OPCODE .EQ $A6
|
ERR.INVALID.OPCODE .EQ $A6
|
||||||
|
ERR.INVALID.AM.SYN .EQ $A7
|
||||||
|
ERR.INVALID.AM.4.OC .EQ $A8
|
||||||
ERR.MISSING.EXP .EQ $B0
|
ERR.MISSING.EXP .EQ $B0
|
||||||
ERR.EXP.SYN.ERROR .EQ $B1
|
ERR.EXP.SYN.ERROR .EQ $B1
|
||||||
ERR.INVALID.MACRO.DEF .EQ $E0
|
ERR.INVALID.MACRO.DEF .EQ $E0
|
||||||
|
@ -63,6 +67,8 @@ L.MSG.HELP1 .DA MSG.HELP1
|
||||||
L.MSG.HELP2 .DA MSG.HELP2
|
L.MSG.HELP2 .DA MSG.HELP2
|
||||||
L.MSG.SRCLINE .DA MSG.SRCLINE
|
L.MSG.SRCLINE .DA MSG.SRCLINE
|
||||||
L.MSG.ERROR .DA MSG.ERROR
|
L.MSG.ERROR .DA MSG.ERROR
|
||||||
|
L.MSG.DEBUG .DA MSG.DEBUG
|
||||||
|
L.SRC.AM.StrBuf .DA SRC.AM.StrBuf
|
||||||
L.MSG.PASS .DA MSG.PASS
|
L.MSG.PASS .DA MSG.PASS
|
||||||
L.MSG.SRC.FILE .DA MSG.SRC.FILE
|
L.MSG.SRC.FILE .DA MSG.SRC.FILE
|
||||||
L.MSG.OBJ.FILE .DA MSG.OBJ.FILE
|
L.MSG.OBJ.FILE .DA MSG.OBJ.FILE
|
||||||
|
@ -427,13 +433,15 @@ MSG.OBJ.FILE >CSTRING "Object File:%S, Type=%02x\n"
|
||||||
MSG.T.FILE >CSTRING "CPU Definition File:%S\n"
|
MSG.T.FILE >CSTRING "CPU Definition File:%S\n"
|
||||||
MSG.SRCLINE >CSTRING "%05D-%s\n"
|
MSG.SRCLINE >CSTRING "%05D-%s\n"
|
||||||
MSG.ERROR >CSTRING "%05D-Error:$%h\n"
|
MSG.ERROR >CSTRING "%05D-Error:$%h\n"
|
||||||
|
MSG.DEBUG >CSTRING "DEBUG:%S\n"
|
||||||
|
SRC.AM.RESERVED >PSTRING "[]#(),"
|
||||||
|
SRC.EXP.RESERVED >PSTRING "^!|&<=>+-*/"
|
||||||
ASM.T.DEFAULT .AS ".T.6502"
|
ASM.T.DEFAULT .AS ".T.6502"
|
||||||
ASM.T.FILENAMELEN .BS 1
|
ASM.T.FILENAMELEN .BS 1
|
||||||
ASM.T.FILENAME .BS 65
|
ASM.T.FILENAME .BS 65
|
||||||
hLIBSTR .BS 1
|
hLIBSTR .BS 1
|
||||||
hFileName .BS 1
|
hFileName .BS 1
|
||||||
SRC.LINENUM .BS 2
|
SRC.LINENUM .BS 2
|
||||||
SRC.BufPtr .BS 1
|
|
||||||
SRC.Label.Flags .BS 1
|
SRC.Label.Flags .BS 1
|
||||||
SRC.Label .BS SRC.LABEL.MAXLEN
|
SRC.Label .BS SRC.LABEL.MAXLEN
|
||||||
SRC.LabelValue .BS 4
|
SRC.LabelValue .BS 4
|
||||||
|
@ -441,6 +449,12 @@ SRC.Directive.ID .BS 1
|
||||||
SRC.Keyword.ID .BS 1
|
SRC.Keyword.ID .BS 1
|
||||||
SRC.ACC .BS 4
|
SRC.ACC .BS 4
|
||||||
SRC.ACCTMP .BS 4
|
SRC.ACCTMP .BS 4
|
||||||
|
SRC.AM.ID .BS 1
|
||||||
|
SRC.AM.StrBuf .BS 32
|
||||||
|
SRC.AM.tmpBuf .BS 32
|
||||||
|
SRC.Exp .BS 128
|
||||||
|
SRC.BufPtr .BS 1
|
||||||
|
SRC.BufPtrSave .BS 1
|
||||||
SRC.Buffer .BS 256
|
SRC.Buffer .BS 256
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DUMMY
|
.DUMMY
|
||||||
|
@ -452,9 +466,9 @@ bCANCEL .BS 1
|
||||||
SRC.hFILENAME .BS 1
|
SRC.hFILENAME .BS 1
|
||||||
|
|
||||||
SRC.COUNT .BS 1
|
SRC.COUNT .BS 1
|
||||||
SRC.hREFNUMS .BS SRC.IN.DEPTH.MAX Store ref_num of opened files (Main, .INs & .INBs)
|
SRC.hREFNUMS .BS SRC.IN.MAXDEPTH Store ref_num of opened files (Main, .INs & .INBs)
|
||||||
SRC.hBUFFERS .BS SRC.IN.DEPTH.MAX Store hMem to allocated buffers
|
SRC.hBUFFERS .BS SRC.IN.MAXDEPTH Store hMem to allocated buffers
|
||||||
SRC.hFILETYPES .BS SRC.IN.DEPTH.MAX Store file type of opened SRC files
|
SRC.hFILETYPES .BS SRC.IN.MAXDEPTH Store file type of opened SRC files
|
||||||
|
|
||||||
DST.hFILENAME .BS 1
|
DST.hFILENAME .BS 1
|
||||||
DST.hREFNUM .BS 1
|
DST.hREFNUM .BS 1
|
||||||
|
@ -463,6 +477,10 @@ DST.hFILETYPE .BS 1
|
||||||
|
|
||||||
ASM.T.hMem .BS 1 handle to ASM.T.xxxxx
|
ASM.T.hMem .BS 1 handle to ASM.T.xxxxx
|
||||||
|
|
||||||
|
SYM.Count .BS 2
|
||||||
|
SYM.hMem .BS 1
|
||||||
|
SYM.hBlocks .BS SYM.BLOCK.MAX
|
||||||
|
|
||||||
ASM.PASS .BS 1
|
ASM.PASS .BS 1
|
||||||
ASM.MACRO.ON .BS 1
|
ASM.MACRO.ON .BS 1
|
||||||
ASM.PH.ON .BS 1
|
ASM.PH.ON .BS 1
|
||||||
|
@ -472,7 +490,6 @@ ASM.LI.XON .BS 1
|
||||||
ASM.PC .BS 4 32Bits PC
|
ASM.PC .BS 4 32Bits PC
|
||||||
ASM.PC.PH .BS 4 32Bits PC saved for PH directive
|
ASM.PC.PH .BS 4 32Bits PC saved for PH directive
|
||||||
|
|
||||||
SYM.BLOCKS .BS SYM.BLOCK.MAX
|
|
||||||
DS.END .ED
|
DS.END .ED
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
Loading…
Reference in New Issue
Block a user