.TITLE FORTRAN INTERFACE ; ;IBF.MAC ; ; COPYRIGHT (C) 1976 ; ; DIGITAL EQUIPMENT CORPORATION ; MAYNARD, MASSACHUSETTS 01754 ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ; ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH ; THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, ; OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ; ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; ;AUTHOR: SRA ; JULY 1976 ; ;*************************************************** ; ASSEMBLE WITH IBP.MAC ;*************************************************** ; ;LINK FORTRAN NAMES TO NUMBERED CSECTS ; .MACRO LINK NAME,NUM .CSECT IB'NUM .GLOBL NAME NAME: .CSECT .ENDM ; LINK IBCMD 1 LINK IBIN 2 LINK IBOUT 3 LINK IBZLB 4 LINK IBZTB 5 LINK IBINIT 101 LINK IBSLG 201 LINK IBSHG 202 LINK IBDLG 203 LINK IBDHG 204 LINK IBSLP 205 LINK IBSHP 206 LINK IBDLP 207 LINK IBDHP 210 LINK IBSLS 211 LINK IBSHS 212 LINK IBDLS 213 LINK IBDHS 214 LINK IBSLC 215 LINK IBSHC 216 LINK IBDLC 217 LINK IBDHC 220 LINK IBGTL 221 LINK IBSDC 222 LINK IBPPC 223 LINK IBGET 224 LINK IBLLO 225 LINK IBDCL 226 LINK IBPPU 227 LINK IBSPE 230 LINK IBSPD 231 LINK IBUNT 232 LINK IBUNL 233 LINK IBSTA 301 LINK IBSLA 302 LINK IBGST 401 LINK IBPST 402 ; ;*************************************************** .GLOBL .IBERR ; ;ERROR REPORTING ROUTINE ; ; .IBERR: MOVB (R0)+,R5 ;HARD OR SOFT ERROR MOVB (R0)+,R4 ;ERROR CODE MOV R0,@SP ;SAVE RETURN ADR IF SOFT MOV #ERRTBL,R2 ;INDEX MESSAGES 3$: TST @R2 ;END? BEQ 1$ ;YES BIT (R2)+,R4 ;ERROR CODE? BEQ 2$ ;NO .MCALL .PRINT .PRINT @R2 2$: TST (R2)+ ;SKIP IT BR 3$ ;LOOP 1$: TST R5 ;HARD ERROR? BMI 4$ ;YES RETURN ;NO 4$: TRAP 300 ;FATAL TO F4 ; ERRTBL: .ER0,$ER0 .ER1,$ER1 .ER2,$ER2 LTN.F,LTN$F TLK.F,TLK$F ARG.F,ARG$F RNG.F,RNG$F SEQ.F,SEQ$F PRO.F,PRO$F 0 ;STOPPER ; .NLIST BEX $ER0: .ASCIZ /?IB ER0?/ $ER1: .ASCIZ /?IB ER1?/ $ER2: .ASCIZ /?IB ER2?/ LTN$F: .ASCIZ /?IB LTN BFR OVFL?/ TLK$F: .ASCIZ /?IB TLK BFR OVFL?/ ARG$F: .ASCIZ /?IB SYNTAX ERROR?/ RNG$F: .ASCIZ /?IB RANGE ERROR?/ SEQ$F: .ASCIZ /?IB SEQUENCE?/ PRO$F: .ASCIZ /?IB VECTOR CONFLICT?/ ; .EVEN .LIST BEX .END