[Simh] Simh Digest, Vol 169, Issue 2

[Robert Thomas]

Just add a leading space as below:

998     FORMAT(1X,20A5)

TYPE is very old and was a non-standard form that only sent output to the console device.

Sincerely,
Robert F. Thomas

 44 Industrial Way 
Norwood, MA USA 02062
N  Office Phone - (781) 329-9200
O mail to: rft at asthomas.com
 

-----Original Message-----


Message: 6
Date: Fri, 02 Feb 2018 08:41:18 +0000
From: Lars Brinkhoff <lars at nocrew.org>
To: Dave L <davel.rss at googlemail.com>
Cc: simh at trailing-edge.com
Subject: Re: [Simh] Crowther's Adventure game
Message-ID: <7winbfaimp.fsf at junk.nocrew.org>
Content-Type: text/plain

Dave L wrote:
> Been a long time since I wrote fortran but IIRC the first character on 
> the output line was to perform carriage-control of the LPT, so you'd 
> have to always have a leading pad character such as a space in order 
> to get the output lines to be correct. Some characters were reserved 
> actions, 1 = FF from memory. I've not looked at the code involved but 
> that'd be my first thoughts

Thanks.  Since the SPEAK subroutine is only a few lines, I'll post it here.  Maybe someone hows how TYPE, FORMAT(20A5), and FORMAT(/) work.



        SUBROUTINE SPEAK(IT)
        IMPLICIT INTEGER(A-Z)
        COMMON RTEXT,LLINE
        DIMENSION RTEXT(100),LLINE(1000,22)

        KKT=RTEXT(IT)
        IF(KKT.EQ.0)RETURN
999     TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(KKT,2))
998     FORMAT(20A5)
        KKT=KKT+1
        IF(LLINE(KKT-1,1).NE.0)GOTO 999
997     TYPE 996
996     FORMAT(/)
        RETURN
        END


------------------------------

Message: 7
Date: Fri, 2 Feb 2018 09:16:06 +0000
From: Vorländer, Martin <MV at pdv-systeme.de>
To: 'SIMH' <simh at trailing-edge.com>
Subject: Re: [Simh] DEC Alpha Emulation
Message-ID:
	<900B141A56D06B40B719F9709BC01C99E82BA404 at gsmail01.goslar.hit.pdv>
Content-Type: text/plain; charset="utf-8"

Zane,

just had a look at your Alpha page, and noticed that you missed an emulator:
FreeAXP / Avanti from Migration Specialties, http://www.migrationspecialties.com/
This is where the ES40 emulator went, AFAIK.

cu,
Martin

-----Ursprüngliche Nachricht-----
Von: Simh [mailto:simh-bounces at trailing-edge.com] Im Auftrag von Zane Healy
Gesendet: Freitag, 2. Februar 2018 05:56
An: SIMH <simh at trailing-edge.com>
Betreff: [Simh] DEC Alpha Emulation

I'm in the process of slowly updating my DEC Emulation website, which has been largely stagnant since 2007.  The first page I'm spending some significant time on is the DEC Alpha page, as I'm curious to see what the current options are.  In reviewing things, I notice that Alpha emulation was worked on at some point for SIMH (probably around 2006).  What is the current state of that work?  I had a quick google, and the most popular hit seems to be mirrored copies of my site. 

http://www.avanthar.com/healyzh/decemulation/Alpha.html

Thanks,
Zane



_______________________________________________
Simh mailing list
Simh at trailing-edge.com
http://mailman.trailing-edge.com/mailman/listinfo/simh

------------------------------

Message: 8
Date: Fri, 2 Feb 2018 14:12:04 +0000
From: Ken Cornetet <Ken.Cornetet at kimballelectronics.com>
To: "simh at trailing-edge.com" <simh at trailing-edge.com>
Subject: Re: [Simh] Crowther's Adventure game
Message-ID: <fc1295a90cb0460998da90c8e1a088c2 at NTS1115.kei.keint.com>
Content-Type: text/plain; charset="utf-8"

I have vague recollections that FORMAT(/) prints a new line

Format(20A5) takes 20 elements of an array and prints them as character stings padded to a width of 5 characters.

"TYPE" is not standard fortran. That must have been a DEC extension. Standard fortran would have used "write".

-----Original Message-----
From: Simh [mailto:simh-bounces at trailing-edge.com] On Behalf Of Lars Brinkhoff
Sent: Friday, February 2, 2018 3:41 AM
To: Dave L <davel.rss at googlemail.com>
Cc: simh at trailing-edge.com
Subject: Re: [Simh] Crowther's Adventure game

Dave L wrote:
> Been a long time since I wrote fortran but IIRC the first character on 
> the output line was to perform carriage-control of the LPT, so you'd 
> have to always have a leading pad character such as a space in order 
> to get the output lines to be correct. Some characters were reserved 
> actions, 1 = FF from memory. I've not looked at the code involved but 
> that'd be my first thoughts

Thanks.  Since the SPEAK subroutine is only a few lines, I'll post it here.  Maybe someone hows how TYPE, FORMAT(20A5), and FORMAT(/) work.



        SUBROUTINE SPEAK(IT)
        IMPLICIT INTEGER(A-Z)
        COMMON RTEXT,LLINE
        DIMENSION RTEXT(100),LLINE(1000,22)

        KKT=RTEXT(IT)
        IF(KKT.EQ.0)RETURN
999     TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(KKT,2))
998     FORMAT(20A5)
        KKT=KKT+1
        IF(LLINE(KKT-1,1).NE.0)GOTO 999
997     TYPE 996
996     FORMAT(/)
        RETURN
        END
_______________________________________________
Simh mailing list
Simh at trailing-edge.com
http://mailman.trailing-edge.com/mailman/listinfo/simh

------------------------------

Subject: Digest Footer

_______________________________________________
Simh mailing list
Simh at trailing-edge.com
http://mailman.trailing-edge.com/mailman/listinfo/simh

------------------------------

End of Simh Digest, Vol 169, Issue 2
************************************