I need the asm version of the basic commands:
Send({222,500})
and
Get X
My robot device works if i use the basic commands on it. I have an asm app that needs to communicate to it the very same way.
I have read and tried the routine example from the TI 83 plus system routines document. I am building a real list using L1 and sending it. My calculator is a TI-84 plus. Below is the code. I am using brass/latenite. My macros cause the app to pause and wait for user to hit enter. It fails on the SendVarCmd, obviously.
Thanks in advance for your help.
Code:
Send({222,500})
and
Get X
My robot device works if i use the basic commands on it. I have an asm app that needs to communicate to it the very same way.
I have read and tried the routine example from the TI 83 plus system routines document. I am building a real list using L1 and sending it. My calculator is a TI-84 plus. Below is the code. I am using brass/latenite. My macros cause the app to pause and wait for user to hit enter. It fails on the SendVarCmd, obviously.
Thanks in advance for your help.
Code:
PauseWithStatus(Strings.AlphaCondition)
; Look up L1 and store 1 to element 30.
LD HL,L1name
bcall(_Mov9ToOP1) ; OP1 = name
;
bcall(_FindSym) ; look up
.breakpoint Got_L1addy_to_DE
RET C ; return if undefined
ld a, b ; b is 1 if archived
or a
jp nz, err
ld a, ListObj ; set type of list
bcall(_IncLstSize)
.breakpoint just_incrementedList
push de ; ptr to list
push hl ; last element #
bcall(_OP1Set1) ; op1 = 222
ld a, 82h
ld (op1+1), a
ld a, 12h
ld (op1+2), a
ld a, 20h
ld (op1+3), a
pop hl
pop de ; restore
push de ; save ptr to list
bcall(_PutToL)
.breakpoint just_inserted_3_toL1
pop de ; restore
bcall(_incLstSize)
.breakpoint incremented_second_time
push de ; ptr to list
push hl ; last element # (new dimension)
bcall(_OP1Set1)
ld a, 82h
ld (op1+1), a
ld a, 50h
ld (op1+2), a
ld a, 00h
ld (op1+3), a
pop hl ; restore last element
pop de ; restore ptr
bcall(_PutToL) ; save op1 to the list
.breakpoint just_inserted_2_toL1
PauseWithStatus(Strings.BetaCondition)
ld hl, L1name
rst rMOV9TOOP1
bcall(_SendVarCmd)
bit comFailed, (IY+getSendFlg)
jp nz, sendFailed
PauseWithStatus(Strings.CharlieCondition)
bcall(_AppGetCbl)
bit comFailed, (IY+getSendFlg)
jp nz, getFailed
PauseWithStatus(Strings.DeltaCondition)
sendFailed:
getFailed:
err:
RET
L1name:
.db ListObj,tVarLst,tL1,0