Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Beginner
47 Views

Intel Visual Fortran V8.1 Compiler for windows 8.0

Jump to solution

Hi,

My name is D.SundarChand from Hyderabad,Telangana,India.Originally,I have developed in MS-DOS Fortran 5.0 in 1983.After that I am busy with my Jobs.Now,I am a retired person.That is why I want to update that softwares in to Windows/Visual Fortran environment.I am facing trouble at the time of linking,call color, the below main routine and subroutine color routine from MSFLIB.F90 in the visual Studio Environment of Intel Visual Fortran 8.1 & Microsoft Fortran PowerStation 4.0 the color routine not working and it displays unresolved external symbols _bkcolor,_textcolor. Object file not created due to these 2 errors. How can I solve this problem?I tried in so many ways.but not succeeded.Please help me in this matter at the earliest.I have already developed interface to MS-DOS 5.0 Assembly Language routines to Fortran.But in that also object file not created.Because they are in MS-DOS Assembler 5.0.Only these 2 problems are pending.In assembler it is indicating no errors.but object file not created on windows 8.0 version.

How to resolve these 2 troubles?

I.1.FORTRAN MAIN PROGRAM 

      CALL SETTEXTPOSITION (9,6,XY)

      CALL COLOR (#000000,#00ff00)

      CALL OUTTEXT('Year')

      CALL COLOR (#000000,#00ff00)

      CALL SETTEXTPOSITION (9,48,XY)

      CALL COLOR (#00ff00,#000000)

      CALL OUTTEXT('    ')

      READ (*,010)      YB

 010  FORMAT(I4)

          END

2.FORTRAN SUBROUTINE 

      SUBROUTINE COLOR (K,L)

      USE MSFLIB

      J=SETBKCOLOR(K)

      I=SETTEXTCOLOR(L)

      RETURN

      END

 

Kindly let me know the fault in the Main Program and Subroutine and their corrections.

 

II.1.CURSIZ.ASM
Data    Segment Public 'DATA'
Data    EndS
DGROUP  GROUP Data
Code    Segment 'CODE'
        Assume Cs:Code, Ds:DGROUP, Ss:DGROUP
PUBLIC  CURSIZ
CURSIZ  Proc   Far
        Push Bp
        Mov    Bp, Sp
        Mov Ah, 1
        Les     bx, DWord Ptr [Bp + 10]
        Mov ECH, Es:[Ebx]
        Les     bx, DWord Ptr [Bp + 06]
        Mov ECL, Es:[Ebx]
        Int
        Mov Sp, Bp
        Pop    Bp
        Ret 08
        CURSIZ  EndP
        Code   EndS
End

2.KEY.ASM 

DATA    SEGMENT PUBLIC 'DATA'
DATA    ENDS
DGROUP  GROUP DATA
CODE    SEGMENT 'CODE'
        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
PUBLIC  KEY 
KEY     PROC   FAR
        PUSH   BP
        MOV    BP,SP
        MOV    AH,0
        INT    
        LES    BX,DWORD PTR[BP+10]
        MOV    ES:[EBX],AH
        LES    BX,DWORD PTR[BP+06]
        MOV    ES:[EBX],AL
        MOV    SP,BP
        POP    BP
        RET    08
        KEY    ENDP
        CODE   ENDS
END

Kindly let me know the fault in the .ASM routines and their corrections.

 

Thanks,

 

with regards,

D.SundarChand

+091-8688568699

sunderchand1957@gmail.com

0 Kudos
21 Replies
Highlighted
Black Belt Retired Employee
8 Views

You just repeated what you wrote before. As I wrote in the reply above yours, you made an error in the linker options by adding /QWIN after /SUBSYSTEM - there is no such /QWIN option and QWIN doesn't belong there. Just use /SUBSYSTEM:WINDOWS That may fix your other issue.

--
Steve (aka "Doctor Fortran") - https://stevelionel.com/drfortran
0 Kudos
Highlighted
Black Belt
8 Views

In FPS-4 the fl32 command-line compiler had options /MW for QuickWin graphics and /MWs for Standard graphics and QuickWin graphics.

0 Kudos