mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-10-31 17:04:42 +00:00
25 lines
524 B
NASM
25 lines
524 B
NASM
mcopy symbol.macros
|
|
****************************************************************
|
|
*
|
|
* ClearTable - set the symbol table to zeros
|
|
*
|
|
* Inputs:
|
|
* table - symbol table address
|
|
*
|
|
****************************************************************
|
|
*
|
|
ClearTable private cc
|
|
tableSize equ 7026 sizeof(symbolTable)
|
|
|
|
subroutine (4:table),0
|
|
|
|
ldy #tableSize-2
|
|
lda #0
|
|
lb1 sta [table],Y
|
|
dey
|
|
dey
|
|
bpl lb1
|
|
|
|
return
|
|
end
|