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: [email protected] -----Original Message----- Message: 6 Date: Fri, 02 Feb 2018 08:41:18 +0000 From: Lars Brinkhoff <[email protected]> To: Dave L <[email protected]> Cc: [email protected] Subject: Re: [Simh] Crowther's Adventure game Message-ID: <[email protected]> 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 <[email protected]> To: 'SIMH' <[email protected]> Subject: Re: [Simh] DEC Alpha Emulation Message-ID: <[email protected]> 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:[email protected]] Im Auftrag von Zane Healy Gesendet: Freitag, 2. Februar 2018 05:56 An: SIMH <[email protected]> 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 [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh ------------------------------ Message: 8 Date: Fri, 2 Feb 2018 14:12:04 +0000 From: Ken Cornetet <[email protected]> To: "[email protected]" <[email protected]> Subject: Re: [Simh] Crowther's Adventure game Message-ID: <[email protected]> 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:[email protected]] On Behalf Of Lars Brinkhoff Sent: Friday, February 2, 2018 3:41 AM To: Dave L <[email protected]> Cc: [email protected] 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 [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh ------------------------------ Subject: Digest Footer _______________________________________________ Simh mailing list [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh ------------------------------ End of Simh Digest, Vol 169, Issue 2 ************************************ _______________________________________________ Simh mailing list [email protected] http://mailman.trailing-edge.com/mailman/listinfo/simh
