.MACRO F4CALL FRTN,ARGLST ;THIS MACRO DOES A FORTRAN SUBROUTINE CALL ;TO THE ROUTINE FRTN, PASSING IT THE ;ARGUMENTS IN ARGLST ;THE CONTENTS OF R5 ARE DESTOYED ; ; The following programs are used in the RT-11 User and RT-11 ; Programmer self paced instruction courses for RT-11 V4.They are also ; similar to programs used in the Programming with RT-11 series for ; RT-11 V5.0 or later. The name of the files are as specified in the ; self paced course. ; ; The code is supplied as a service as Digital does not supply these ; on diskette. ; Any copyright is the property of Digital Equipment Corporartion ; NUMARG = 0 ;COUNT # OF ARGUMENTS ;IN THE LIST .IRP ARG NUMARG=NUMARG+1 .ENDM ;RESERVE SPACE ON STACK FOR THE ARG BLOCK SUB #2*, SP ;LOAD ARGUMENT BLOCK MOV SP,R5 ;R5=>ARG. BLOCK MOV #NUMARG,(R5)+ ;LOAD ARGUMENT COUNT .IRP ARG MOV ARG,(R5)+ .ENDM MOV SP,R5 ;R5=>ARG. BLOCK AGAIN JSR PC,FRTN ADD #2*, SP;REMOVE ARGUMENT BLOCK FROM STACK .ENDM F4CALL .END