Texas Instruments 990 User Manual page 111

Applications Programming
*
* THIS ROUTINE WILL GET DATA FORM A FORTRAN CALL
* AND EXECUTE AN XOPl5-4D.
*
*
*
READ4D
WSP3
START3
NAME 3
READ4D(BUFFER,LENBUF,COUNT,DID,SID,ERROR)
DATA
BSS
DATA
DATA
DATA
BL
DATA
DATA
TEXT
LI
LI
MOV
MOV
CLR
MOV
MOV
MOV
CLR
CLR
MOV
MOV
MOV
MOV
SVC
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB
SRA
MOV
RTWP
PAGE
WSP3,START3,O
32
NAME 3
START3
1
@F$RGMY
6
PASSED
~READ4D~
Rl,BLOCK
R3,PASSED
@I04D,*Rl
@READ, @2 (Rl)
@4 (Rl)
*R3,@6(Rl)
@2(R3),R2
*R2,@8(Rl)
@lO(Rl)
@l2 (R1)
@6(R3),R2
*R2,@14(R1)
@8(R3),R2
*R2,@16(R1)
*R1
@6(R3),R2
@14(Rl),*R2
@8(R3),R2
@l6(Rl),*R2
@4(R3),R2
@10(R1),*R2
@10(R3),R2
@1(Rl),R4
R4,8
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 FOR >4D CALL
SET READ OP CODE AND CLEAR RUN ID
CLEAR SYSTEM AND USER FLAGS
SET BUFFER POINTER
GET LOGICAL RECORD LENGTH ADDRESS
SET LOGICAL RECORD LENGTH
CLEAR CHARACTER COUNT
CLEAR RESEARVED WORD
GET ADDRESS OF DID
SET DID IS CALL BLOCK
GET ADDRESS OF SID
SET SID IN CALL BLOCK
CALL XOP15->4D
RETURN DID
RETURN SID
GET THE COUNT ADDRESS
RETURN COUNT FROM CALL BLOCK
GET THE ERROR ADDRESS
RETURN THE ERROR
Figure 4-7 Assembly Language Interface (Sheet 3 of 4)
2270526-9701 4-25