mirror of https://github.com/dschmenk/VM02.git
31 lines
638 B
ArmAsm
Executable File
31 lines
638 B
ArmAsm
Executable File
;*
|
|
;* JAVA SYSTEM CLASSES FOR 6502
|
|
;*
|
|
.INCLUDE "global.inc"
|
|
.IMPORT HMEM_ALLOC,HMEM_ALLOC_FIXED,HMEM_FREE,HMEM_LOCK,HMEM_UNLOCK
|
|
.IMPORT HMEM_PTR,HMEM_REF_INC,HMEM_REF_DEC
|
|
.IMPORT HSTR_HASH,STR_HASH,HSTRPL_ADD,HSTRPL_DEL
|
|
.IMPORT MEMSRC,MEMDST,MEMCLR,MEMCPY
|
|
.IMPORT HCLASS_DUP
|
|
.IMPORT LOADCLASS_MEM
|
|
.IMPORT THROW_INTERNALERR
|
|
.EXPORT STRINGCLASS_INIT
|
|
|
|
.SEGMENT "INIT"
|
|
STRINGCLASS_INIT:
|
|
LDA #<STRING_CLASS_DATA
|
|
LDX #>STRING_CLASS_DATA
|
|
JSR LOADCLASS_MEM
|
|
.IFDEF DEBUG
|
|
CPY #CL_STR
|
|
BEQ :+
|
|
PERR "STRING CLASS NOT 3!"
|
|
:
|
|
.ENDIF
|
|
RTS
|
|
;*
|
|
;* MIRROR CLASS FILE STRUCTURE FOR SYSTEM CLASSES
|
|
;*
|
|
STRING_CLASS_DATA:
|
|
.INCLUDE "string.clasm"
|