Texas Instruments 990 User Manual page 112

Applications Programming
*
*
*
*
*
*
THIS ROUTINE ENTRY WILL GET DATA PASSED FROM
A FORTRAN PROGRAM AND EXECUTE AN XOP15->4D
CALL WKUP4D (OPTION',ERROR)
WKUP4D DATA
WSP4 BSS
DATA
DATA
DATA
START4 BL
DATA
DATA
NAME 4 TEXT
LI
LI
MOV
MOV
MOV
CI
JLT
CI
JLT
ERROR LI
JMP
*
OK
SET
SLA
MOV
CLR
CLR
CLR
CLR
CLR
CLR
CLR
SVC
MOVB
SRA
MOV
MOV
RTWP
PAGE
END
WSP4,START4,0
32
NAME 4
START4
1
@F$RGMY
2
PASSED
. . . . WKUP4D . . . .
Rl,BLOCK
R3,PASSED
@I04D,*Rl
*R3,R2
*R2,R4
R4,4
ERROR
R4,8
OK
R4,1
SET
R4,8
R4, @2 (Rl)
@4 (Rl)
@6 (Rl)
@8 (Rl)
@10 (Rl)
@12 (Rl)
@14 (Rl)
@16 (Rl)
*Rl
@l(Rl},R4
R4,8
@2(R3},R2
R4,*R2
NAME OF SUBROUTINE
STARTING ADDRESS
l=NON REENTRANT CODE
NUMBER OF PARAMETERS
6 CHARACTER SUB NAME
GET CALL BLOCK ADDRESS
GET PARAMETER ADDRESS
SET THE >4D OP CODE
GET THE OPTION CODE
4 <= OPTION <= 7
RETURN ERRO R OF
1
LEFT JUSTIFY IT
SET THE OPTION CODE
CLEAR SYSTEM & USER FLAGS
CLEAR BUFFER POINTER
CLEAR LOGICAL RECORD LENGTH
CLEAR CHARACTER COUNT
CLEAR RESEARVED WORD
CLEAR DID
CLEAR SID
DO XOP1S->4D
GET ERROR RETURN
GET ERROR ADDRESS
RETURN THE ERROR
Figure 4-7 Assembly Language Interface (Sheet 4 of 4)
4-26 2270526-9701