Texas Instruments TI-83-Plus - Page 104

94 Chapter 2: TI-83 Plus Specific Information
TI-83 Plus Developer Guide Third Release May 28, 2002
For example, assume that L1 contains a list to set up the CBL to continuously poll
for data using one of its probes, sends the list to the CBL, and polls it for data.
CALL l1name ; L1
RES onInterrupt,(IY+onFlags) ; clear break
B_CALL SendVarCmd ; send L1 to start up
; CBL
BIT comFailed,(IY+getSendFlg) ; fail ?
RET NZ ; return if yes
;
; loop and read data into OP1
;
read_Loop:
CALL GetNewValue ; try to get another
; value
RET NZ ; ret if link failed
CALL StoreData ; store data somewhere
JR Read_Loop
;
; get from CBL into var L1 and recall to OP1
;
GetNewValue:
CALL l1name ; L1
B_CALL AppGetCbl ; get data
BIT comFailed,(IY+getSendFlg) ; fail ?
RET NZ ; yes
;
; RCL L1(1) -> OP1
; ACC = size of list,1=CBL,2=CBR
;
Rcl_new_val:
CALL l1name
RST rFindSym ; look up L1 in symbol
; table
;
INC DE
INC DE ; move past size bytes
EX DE,HL ; HL = pointer to
; element 1
RST rMov9ToOP1 ; OP1 = val
RET
;
L1name:
LD HL,L1name
RST rMov9ToOP1 ; OP1 = L1 name
RET