CT2577 Datasheet, PDF (17/41 Pages) Aeroflex Circuit Technology – APPLICATION NOTE 108

REM *
REM *
REM *******************************************************************************************
REM********************************************************************************************
REM ************ INITIALIZATION ROUTINE
***********************************************
REM *******************************************************************************************
INIT: DEFINT A-Z
OUT 1, 400(h) "WRITE TO THIS ADDRESS TO SET CT2577 INTO RT MODE
INPUT MODE, XX(h) "READ PIN BCNRT FROM THE CT2577
" 0 = RT MODE
" 1 = BC MODE
DIM DATA(32)
"LOCATIONS 1-32 = 32 WORDS
REM ******************************************************************************************
REM ******************************************************************************************
REM ************ DETECT COMMAND ROUTINE ****************************************
REM ******************************************************************************************
DETECT: IF NCMDEMPTY = 1 THEN
CMDWORD = INPUT(OOh) ;READ FROM LOCATION 00
MEMPOINT = CMDWORD & 0000011111111111(b)
T/R_BIT = CMDWORD & 0000010000000000(b)
WORDCNT = CMDWORD & 0000000000011111(b)
END IF
MEMPOINT = MEMPOINT - 1
"OFFSET POINTER SO THAT FINAL POSITION
"IS AT LOCATION 00. FOR EXAMPLE, A ONE
"WORD TRANSFER SHOULD BE LOADED IN
"LOCATION 00 OF THAT SUBADDRESS.
IF WORDCNT = 00000(b) THEN
WORDCNT = 32 "ALL ZEROS IN WORD COUNT FIELD = 32 DATA WORDS
END IF
IF T/R_BIT = 0000000000000000(b) THEN
REDIM DATA() ;CLEARS ARRAY DATA()
; GOT TO ROUTINE TO READ OUT
; THE RECEIVED DATA FROM THE 1553 BUS
GOTO RECEIVE
END IF
IF T/R_BIT = 0000010000000000(b) THEN
REDIM DATA()
;CLEARS ARRAY DATA()
FOR J = 1 TO 32
APPLICATION NOTE #108
17
Released 9/98