Texas Instruments 990 User Manual page 110

Applications Prog,ramming
*
.....
* THIS ROUTINE WILL TAKE INPUTS FROM A FORTRAN CALL
* AND EXECUTE AN XOPlS-4D
*
* CALL WRIT4D(BUFFER,COUNT,DID,SID,ERROR)
*
WRIT4D DATA
WSPl BSS
DATA
DATA
DATA
STARTl BL
DATA
DATA
NAME 1 TEXT
LI
LI
MOV
MOV
CLR
MOV
CLR
MOV
MOV
CLR
MOV
MOV
MOV
MOV
SVC
MOV
MOVB
SRA
MOV
MOV
MOV
MOV
MOV
RTWP
PAGE
WSP1,START1,0
32
NAME
1
STARTl
1
@F$RGMY
5
PASSED
'WRIT4D'
Rl,BLOCK
R3,PASSED
@I04D,*Rl
@WRIT,@2(Rl)
@4 (Rl)
*R3,@6(Rl)
@8 (Rl)
@2(R3),R2
*R2,@10(Rl)
@12 (Rl)
@4(R3),R2
*R2,@14 (Rl)
@6(R3),R2
*R2,@16 (Rl)
*Rl
@8(R3),R2
@1(Rl),R4
R4,8
R4,*R2
@4(R3),R2
@14(Rl),*R2
@6(R3),R2
@16(Rl),*R2
NAME OF SUBROUTINE
STARTING ADDRESS
l=NON REENTRANT CODE
NUMBER OF PARAMETERS
ADDRESS WHERE PARAMETERS PUT
6 CHARACTER SUB NAME
SET CALL BLOCK TO WRITE
GET ADDRESS OF ADDRESSES PASSED
SET THE >4D OP CODE
SET OP CODE AND CLEAR RUN ID
CLEAR SYSTEM FLAGS AND USER FLAGS
GET BUFFER ADDRESS PASSED
CLEAR THE LOGICAL RECORD LENGTH
GET ADDRESS OF CHARACTER COUNT
SET THE OUTPUT CHARACTER COUNT
CLEAR RESEARVED WORD
GET DID ADDRESS
SET DID IN CALL BLOCK
GET SID ADDRESS
SET SID IN CALL BLOCK
EXECUTE XOP15->4D CALL
GET ADDRESS OF ERROR
GET ERRO R RETURN
RETURN ERROR CODE
RETURN DID
RETURN SID
Figure 4-7 Assembly Language Interface (Sheet 2 of 4)
4-24 2270526-9701