&hash new(numpexpr) , numvar
This commit is contained in:
parent
bdd0b765df
commit
32fd86c01f
18
HashKEGS.aii
18
HashKEGS.aii
|
@ -195,11 +195,27 @@ do_ampr
|
||||||
jmp (hash_table,x)
|
jmp (hash_table,x)
|
||||||
|
|
||||||
hash_new
|
hash_new
|
||||||
|
; todo -- use hash new(type),ok
|
||||||
|
jsr CHKOPN
|
||||||
jsr GETBYT
|
jsr GETBYT
|
||||||
stx type
|
stx type
|
||||||
|
jsr CHKCLS
|
||||||
|
|
||||||
stx prmtbl+0
|
stx prmtbl+0
|
||||||
stz prmtbl+1
|
stz prmtbl+1
|
||||||
brl hash_native_init
|
bsr hash_native_init
|
||||||
|
sta a1 ; return value.
|
||||||
|
stz a1+1
|
||||||
|
|
||||||
|
lda (TXTPTR)
|
||||||
|
cmp #','
|
||||||
|
beq @rw
|
||||||
|
rts
|
||||||
|
@rw
|
||||||
|
jsr CHKCOM
|
||||||
|
ldy #OMM_PUTWORD
|
||||||
|
ldx #OMM_ID
|
||||||
|
jmp OMMVEC
|
||||||
|
|
||||||
|
|
||||||
hash_data
|
hash_data
|
||||||
|
|
Loading…
Reference in New Issue