Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

53 views
Skip to first unread message

Carl Claunch

unread,
Jul 14, 2016, 11:44:58 AM7/14/16
to IBM1130
I will have my 1130 system and related objects on exhibit at the VCF West event on August 6-7.

It is a 16K 3.6us 1130 with 1132 printer, internal disk drive and 1442 card reader/punch attached.

Attached is an expansion box that implements a number of additional peripherals, including virtual 2501 reader, 1403 printer, 2310 disk drive and attachment of physical peripherals that weren't configured into my system by IBM.

I expect to also bring my full size replica 1130 system, which is not complete cosmetically but is a timing and cycle by cycle realistic 32K memory, 2.2us machine with a working console.

Will have a few bits of 1130 era technology scattered about the exhibition area as well. 

Still figuring out exactly what demonstrations to provide, but with the virtual card readers and printers, people can edit card 'decks' on a PC, run them under DMS2 and look over their printout either physically on the 1132 or virtually on the virtual 1403's PC based 'paper' file. 

If you are in the silicon valley area that weekend, stop by and enjoy a living breathing 1130 once again. 


Richard Stofer

unread,
Jul 23, 2016, 8:05:54 PM7/23/16
to ibm...@googlegroups.com

Carl,

 

I’m planning to come to the show on the 6th.  Any particular time better than some other?

 

Thanks

Richard

 

 

From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Carl Claunch
Sent: Thursday, July 14, 2016 8:45 AM
To: IBM1130 <ibm...@googlegroups.com>
Subject: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

.

Carl Claunch

unread,
Jul 24, 2016, 12:41:48 PM7/24/16
to IBM1130
Hi Richard

These are my tentative demonstration times for each day, but there will be plenty of free time in between each session to talk 1130, try things and poke around. 

9:30,  10:15,  11:00,  
11:45,   1:15,    2:00, 
2:45,   3:30,    4:15

Carl

Gary Wheeler

unread,
Jul 25, 2016, 10:18:27 AM7/25/16
to ibm...@googlegroups.com

I'm anxious to see your 1130.  In working for IBM during the 1130 days, I wrote the assembler, some parts of DUP, and coordinated the inclusion of RPG.


  Gary Wheeler  



From: ibm...@googlegroups.com <ibm...@googlegroups.com> on behalf of Carl Claunch <carlcl...@gmail.com>
Sent: Thursday, July 14, 2016 8:44 AM
To: IBM1130

Subject: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum
--
You received this message because you are subscribed to the Google Groups "IBM1130" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ibm1130+u...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Bob Flanders

unread,
Jul 25, 2016, 10:35:31 AM7/25/16
to ibm...@googlegroups.com
Gary,

Thank you. 

RPG was the first language I learned.

Did I say thank you?

Bob

Eddy Quicksall

unread,
Jul 25, 2016, 11:23:15 AM7/25/16
to ibm...@googlegroups.com

Cool, I have RPG on my system. But I don’t know how to program in RPG.

Joseph Ambrose

unread,
Jul 25, 2016, 11:38:47 AM7/25/16
to ibm...@googlegroups.com
Gary,
Thanks for the wonderful work you've done all those years ago. Your work had an impact on many future CS professionals, myself included. THe 1130 was the first machine I wrote Assembler on, and FORTRAN, which was the dominant language that the CS department was using when I went to SUNY Oswego.... 40 years ago.
 

On Mon, Jul 25, 2016 at 11:23 AM, Eddy Quicksall wrote:

Cool, I have RPG on my system. But I don’t know how to program in RPG.

 

From: ibm...@googlegroups.com [mailto:ibm1130@googlegroups.com]
Sent: Monday, July 25, 2016 10:18 AM
To: ibm...@googlegroups.com
Subject: Re: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

 

I'm anxious to see your 1130.  In working for IBM during the 1130 days, I wrote the assembler, some parts of DUP, and coordinated the inclusion of RPG.

 

  Gary Wheeler  

 


From: ibm...@googlegroups.com <ibm...@googlegroups.com
Sent: Thursday, July 14, 2016 8:44 AM
To: IBM1130
Subject: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

 

I will have my 1130 system and related objects on exhibit at the VCF West event on August 6-7.

 

It is a 16K 3.6us 1130 with 1132 printer, internal disk drive and 1442 card reader/punch attached.

 

Attached is an expansion box that implements a number of additional peripherals, including virtual 2501 reader, 1403 printer, 2310 disk drive and attachment of physical peripherals that weren't configured into my system by IBM.

 

I expect to also bring my full size replica 1130 system, which is not complete cosmetically but is a timing and cycle by cycle realistic 32K memory, 2.2us machine with a working console.

 

Will have a few bits of 1130 era technology scattered about the exhibition area as well. 

 

Still figuring out exactly what demonstrations to provide, but with the virtual card readers and printers, people can edit card 'decks' on a PC, run them under DMS2 and look over their printout either physically on the 1132 or virtually on the virtual 1403's PC based 'paper' file. 

 

If you are in the silicon valley area that weekend, stop by and enjoy a living breathing 1130 once again. 

 




--

=================================================

Joseph Ambrose

Amityville, NY


Carl Claunch

unread,
Jul 26, 2016, 10:08:42 AM7/26/16
to IBM1130
The system has RPG and COBOL as well as Fortran and assembler. 

Wish I could find SL/1 and a few other rarer languages that were available on the 1130.

Carl

Brian Knittel

unread,
Jul 26, 2016, 12:44:08 PM7/26/16
to ibm...@googlegroups.com
Gary... It would be great if you could write down any recollections you have about the tool chain used to build DMS! I have to believe it was done using a cross assembler, and the binary load deck data (re)organized using some batch program on a 360? I'd love to know what the real process was.
Brian

Bob Flanders

unread,
Jul 26, 2016, 12:49:01 PM7/26/16
to ibm...@googlegroups.com
Has anybody found a cartridge with the EMU fortran installed?

That was so much better than the default 1130 Fortran.

Bob

Eddy Quicksall

unread,
Jul 26, 2016, 1:25:25 PM7/26/16
to ibm...@googlegroups.com

I use the DNA Fortran which is an upgrade of the EMU Fortran. But I don’t know how to extract it from a cartridge. If you can tell me that then I can send it to you.

 

BTW I can make my system available if someone can give me a place to put it.

 

Eddy

Bob Flanders

unread,
Jul 26, 2016, 1:29:44 PM7/26/16
to ibm...@googlegroups.com
Eddy,

If you can make a sector-by-sector copy of the cartridge, you could attach it to an email here and everyone would have access to it. (Maybe zip it.)

I also suspect that Brian Knittel would be willing to add it to the emulator's web site as well.

Bob

Eddy Quicksall

unread,
Jul 26, 2016, 3:05:19 PM7/26/16
to ibm...@googlegroups.com

What I sent is a timesharing system running TSO/CYTOS and DM2. So a PAUSE does not show a WAIT (the system will be in the idle loop allowing other users to continue running).

 

To run an instruction trace you  have to use the console. Do this:

 

1)      Put a PAUSE at the beginning of the program to be traced.

2)      Run the program.

3)      When it hits $PAUSE then 4 words will be printed.

4)      Press ctrl/F1. That is IMM STOP and brings up the panel routine. The prompt is ‘*’.

5)      Since the $PAUSE routine is an overlay then  you need to restore the overplayed code. Do that by:

a.       Type “+ 5 <the last number in the $PAUSE>”. That will add 5 to the address and print the result.

b.      Type “G <that address> and press Enter. That gets it out of the pause. You  won’t get a prompt after pressing Enter here.

c.        Then press Enter again. That will bring it back to the panel routine with a ‘*’ prompt. You  will see a ‘BSC L’ instruction.

d.      Type ‘T’ to step. That will bring it back to your code at the instruction after the PAUSE.

6)      Type ‘?’ to see the help. To run the trace type “LR <beginning address to trace> <end to trace trace>”.

7)      To begin the trace type “L 1 <address to stop at>”. Once it hits the “address to stop at” it will go back into the panel routine.

8)      Dump the trace by typing “L 2”.

Eddy Quicksall

unread,
Jul 26, 2016, 3:18:36 PM7/26/16
to ibm...@googlegroups.com

Hmm, it is 114MB won’t go over email. So I put it here: https://www.dropbox.com/s/wjwmswtv297cqyx/release.rar?dl=0

 

There is a README.docx file. If I didn’t say so in the doc it will run on XP or DOS. If you  are using something later than XP then load DOS or XP on a VM.

 

It supports a console plus 4 serial lines. If you run from a terminal it is most convenient because you will have a scroll back buffer. If you run from the console then you are limited to the number of lines DOS supports. When I run from a terminal I use a named pipe with VmWare.

 

I don’t actually use the DSM’s I’m sending for public use so I could have made a mistake someplace when preparing it. If you have any problems then send me an email.

 

When you bring it up it may give an error regarding the COM ports not being available. But that is the nature of a VM running a program that wants COM ports but none are available. For VmWare I just click on Ignore.

Eddy Quicksall

unread,
Jul 27, 2016, 8:39:47 AM7/27/16
to ibm...@googlegroups.com

I have attached my CTID 2202. It has the DNA Fortran which is an upgrade of the EMU Fortran. It is an exact image of a DM2 platter.

2202.rar

Carl Claunch

unread,
Jul 27, 2016, 11:26:23 AM7/27/16
to IBM1130
Hi Bob

I put it up on Google Drive and put the shared link in a separate post here.

Carl

Eddy Quicksall

unread,
Jul 27, 2016, 12:26:26 PM7/27/16
to ibm...@googlegroups.com

For some reason the moderator denied my message. I was only trying to help as I have been on the 1130, clones or emulators since the early 70’s. Can someone please contact the moderator and ask him  to contact me and let me know why he denied it? Maybe there was just a misunderstanding.

 

Eddy

Bob Flanders

unread,
Jul 27, 2016, 12:28:34 PM7/27/16
to ibm...@googlegroups.com

Sorry Eddy,

Please resend. It was marked as spam. I will release it next time.

Bob

Eddy Quicksall

unread,
Jul 27, 2016, 12:38:40 PM7/27/16
to ibm...@googlegroups.com

I sent a few. Can you please give me the first line so I can figure out which one it was?

Eddy Quicksall

unread,
Jul 27, 2016, 1:55:12 PM7/27/16
to ibm...@googlegroups.com

From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Bob Flanders


Sent: Wednesday, July 27, 2016 12:29 PM
To: ibm...@googlegroups.com

Subject: RE: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

 

Sorry Eddy,

Please resend. It was marked as spam. I will release it next time.

Bob

 

 

Sorry the link below is broken. The correct link is: https://www.dropbox.com/s/4ue1mu3wlf1te3u/1830%20release.rar?dl=0

 

This emulator is an IBM 1130 emulator with the addition of some 1800 instructions to allow support for TSO. The system is TSO/CYTOS which will run 31 terminals plus a console, each as an “1130” (but to go over 4 you would need a special board made by DigiBoard). The system has the capability of running dual systems via a serial cable used for coordination of locking/unlocking cartridges. The CLI is CYTOS and the timesharing option is TSO. It has DNA Fortran. Note that ‘STO L 1’ does not store into XR1,2,3. This is the nature of the 1800 and I didn’t want to break the 1800 programs (note, this is not a full 1800 but does have a similar interrupt system and programmed interrupts).

 

Quick start:

                                                                                                                                                                                                                                                        

On XP, unzip “1830 release.rar” to an XP system.

 

The emulator will run from an XP prompt (cmd.exe) but runs best if the MSDOS prompt (command.com) is used.

 

Edit Windows\System32\Config.NT

    dos=high, umb

    device=%SystemRoot%\system32\himem.sys

    files=40

 

Make a shortcut to C:\WINDOWS\system32\command.com /c run.bat

Right click and select Properties:

 

    Programm Tab:

        -Working Directory = wherever 1830.exe is

    Memory Tab:

        -Conventional memory: auto

        -Initial environment: auto

        -EMS: 16384

        -XMS: 16384

        -DPMI: auto

To run the emulator:

1.       run.bat

2.       TS0 00/00/80  0906 HRS

3.       PLEASE LOGON

4.       ==>

5.       LOGON JC TSO 2202

6.       ENTER PASSWORD> X

7.       ==>

8.       ATTACH (2,3)

9.       E <prog name> (should give a prompt “I=>”)

10.   Type your program

11.   If at the console, press ctrl/Enter (should give a prompt “E=>”)

12.   F <prog name> <prog name>

13.   LKED <prog name> <prog name>

14.   <prog name>

15.   If you need to modify the program, type “E <prog name>”. You will get an “E=>” prompt and can type editor commands. See the docs for editor commands.

16.   To return back to command.com type ctrl/F1 then Q<enter>

 

For example:

==>ATTACH (2,3)

==>e this1

I=>*ONE WORD INTEGERS

I=>      CALL EXIT

I=>      END

I=>

E=>F

THIS1.S(2202)

CART ID 2202   DB ADDR  5BB0   DB CNT   0006

==>F THIS1

         *ONE WORD INTEGERS

 

FEATURES SUPPORTED

ONE WORD INTEGERS

STANDARD PRECISION

 

CORE REQUIREMENTS FOR - THIS1

BLANK COMMON-     0,   VARIABLES AND TEMPORARIES-     0,   CONSTANTS AND PROGRAM-     4

 

END OF SUCCESSFUL COMPILATION

          COPYRIGHT DNA SYSTEMS, INC.

==>LKED THIS1 THIS1

CART ID 2202   DB ADDR  5BB6   DB CNT   0001

CART ID 2202   DB ADDR  5BC0   DB CNT   0010

==>THIS1

==>

 

Eddy

 

From: Eddy Quicksall [mailto:esqui...@gmail.com]

Sent: Tuesday, July 26, 2016 6:25 PM
To: 'ibm...@googlegroups.com'

Subject: RE: [IBM1130] Problem with 1130 simulator from IBM1130.org

 

I’m not sure if this message got out because I don’t see it reflected so here it is again:

 

 

Hmm, It is a timesharing system (TSO/CYTOS with DM2). it is 114MB won’t go over email. So I put it here: https://www.dropbox.com/s/wjwmswtv297cqyx/release.rar?dl=0

 

 

There is a README.docx file. If I didn’t say so in the doc it will run on XP or DOS. If you  are using something later than XP then load DOS or XP on a VM.

 

It supports a console plus 4 serial lines. If you run from a terminal it is most convenient because you will have a scroll back buffer. If you run from the console then you are limited to the number of lines DOS supports. When I run from a terminal I use a named pipe with VmWare.

 

I don’t actually use the DSM’s I’m sending for public use so I could have made a mistake someplace when preparing it. If you have any problems then send me an email.

 

When you bring it up it may give an error regarding the COM ports not being available. But that is the nature of a VM running a program that wants COM ports but none are available. For VmWare I just click on Ignore.

 

 

What I sent is a timesharing system running TSO/CYTOS and DM2. So a PAUSE does not show a WAIT (the system will be in the idle loop allowing other users to continue running).

 

To run an instruction trace you  have to use the console. Do this:

 

1)      Put a PAUSE at the beginning of the program to be traced.

2)      Run the program.

3)      When it hits $PAUSE then 4 words will be printed.

4)      Press ctrl/F1. That is IMM STOP and brings up the panel routine. The prompt is ‘*’.

5)      Since the $PAUSE routine is an overlay then  you need to restore the overplayed code. Do that by:

a.       Type “+ 5 <the last number in the $PAUSE>”. That will add 5 to the address and print the result.

b.      Type “G <that address> and press Enter. That gets it out of the pause. You  won’t get a prompt after pressing Enter here.

c.        Then press Enter again. That will bring it back to the panel routine with a ‘*’ prompt. You  will see a ‘BSC L’ instruction.

d.      Type ‘T’ to step. That will bring it back to your code at the instruction after the PAUSE.

6)      Type ‘?’ to see the help. To run the trace type “LR <beginning address to trace> <end to trace trace>”.

7)      To begin the trace type “L 1 <address to stop at>”. Once it hits the “address to stop at” it will go back into the panel routine.

8)      Dump the trace by typing “L 2”.

 

Eddy

 

Bob Flanders

unread,
Jul 27, 2016, 1:56:32 PM7/27/16
to ibm...@googlegroups.com
All,

I am really sorry that I deleted the message before asking Eddy. 

I only deleted one (from spam catcher), but I see no way on the interface to get it back.

My apologies to Eddy first and all of you.

Bob

Eddy Quicksall

unread,
Jul 27, 2016, 2:01:55 PM7/27/16
to ibm...@googlegroups.com

I have attached my CTID 2202. It has the DNA Fortran which is an upgrade of the EMU Fortran. It is an exact image of a DM2 platter.

 

Eddy

2202.rar

br...@quarterbyte.com

unread,
Jul 27, 2016, 2:06:12 PM7/27/16
to ibm...@googlegroups.com
HI Eddy,

The disk image is a data image, 320 words per sector. The simh simulator needs the raw sector data, 321 words per sector. DMS puts the absolute sector number in that word. I am at this very minute working on making an image file with the sector numbers.

brian

br...@quarterbyte.com

unread,
Jul 27, 2016, 2:20:11 PM7/27/16
to ibm...@googlegroups.com
Hi,

Even with the sector numbers, I am not getting this (eddy's disk image) to work under SIMH. The directory structure (LET) doesn't seem to be right. Image attached.

Brian



dna.zip

Eddy Quicksall

unread,
Jul 27, 2016, 2:21:59 PM7/27/16
to ibm...@googlegroups.com

When I originally copied the 1130 cartridges I used a program that only read the data (320 words). With my images I didn’t bother to add the extra word used to identify the sector. I can’t remember if I added the extra cylinders used in the defective cylinder table … but I don’t think I did because our defective cylinder table doesn’t show any defective cylinders. Also when I looked at one of your cartridges long ago I think you used little endian for some stuff but big endian for some other stuff. I use all big endian (that is why I said an exact image).

 

Eddy

Eddy Quicksall

unread,
Jul 27, 2016, 2:31:54 PM7/27/16
to ibm...@googlegroups.com

Download the simulator and use DCIP to dump the first few sectors. When I was writing my Windows to DM2 driver I think I remember that your cartridges used little endian. I use an exact image which is all big endian.

 

PLEASE LOGON

 

==>

LOGON JC TSO 2202

ENTER PASSWORD>

==>     ATTACH (2,3)

==>     DCIP

TSO MOD 13 DCIP

INSTRUCTIONS (YES/NO)? N

TYPER OUTPUT (YES/NO)? Y

D, P, I, A, C, N, OR F? D

DUMP

ID? 2202

PLATTER 1-01

SEC. ADDRESS? 0

NO. OF SEC  TO DUMP? 1

 

CTID  2202  SECTOR  0000  PLATTER 1-01  TYPE  0002  MOD 020D

 

WORD ***0 ***1 ***2 ***3 ***4 ***5 ***6 ***7 ***8 ***9 ***A ***B ***C ***D ***E ***F  0 1 2 3 4 5 6 7 8 9 A B C D E F

0000 0658 0658 0658 2202 0003 0000 0000 0002 0000 0000 0000 0000 0000 0000 0000 0000 *................................*

0010 110C 0000 2389 6000 F000 7FF0 2700 0000 0000 0000 0000 0000 0000 0000 00EF FF6A *......-.0..0....................*

0020 0000 7400 00EE 70FD 7029 0000 7000 C025 4C20 01B5 085F 74FF 0032 1000 74E1 00EE *................................*

0030 1000 C05A 4C28 0114 1001 4C10 0113 C054 E05E F060 4C20 0113 C052 1808 F059 4C98 *..................0-........0...*

0040 00F7 C04A 18D0 C04C 4400 0085 084D 7401 0032 741F 00EE 4C80 00F7 0000 6937 7000 *.7...........(...........7......*

0050 4804 9044 8043 1008 E83D D04A 18D0 D001 6500 0000 C101 188C 802D D004 1810 1884 *........Y...........A...........*

0060 D82B C400 0000 9032 1890 A837 D038 1090 A030 8822 A831 D035 1810 A82D 1088 1808 *Q.D.............................*

0070 1088 D030 C100 D02F 4C08 0157 C480 0134 188B D0D3 4C20 017A 7102 6926 0813 0814 *....A.......D......L............*

0080 7401 0032 741F 00EE 080B 6500 0000 4C80 00F2 0000 009F 5C60 0000 0000 0000 0000 *.................2....*-........*

0090 5002 5C20 8040 5C40 0170 5C00 0002 0800 0001 0658 0800 0010 0130 0097 0F40 0000 *&.*.. * ..*.................. ..*

00A0 0000 0000 0000 0000 0000 0400 0004 015E 108B D050 1808 D050 084F 084C C101 18D0 *...................&...&....A...*

00B0 C100 D84C C0F0 4C08 0157 904A D0EC 4830 1810 8047 D100 C0D1 D101 1883 D043 4C20 *A.Q..0..............J..JJ.......*

00C0 0197 0842 1004 4C28 01A0 083C 741F 00EE 7401 0032 1000 7400 00EE 70FD C0D1 F034 *.............................J0.*

00D0 1803 1083 D034 6932 0831 741F 00EE 7401 0032 1000 7400 00EE 70FD 7401 015F 7500 *................................*

00E0 0140 1000 70CB 74E1 00EE 1000 74FF 0032 1000 081A 4828 700B 1001 4C90 00F7 6580 *. ...........................7..*

00F0 01D8 C80C D100 18D0 D101 4C80 00F7 C098 3000 70FE 0000 2410 0000 2408 0000 0000 *.QH.J...J....7..................*

0100 0140 0141 0000 2402 A440 2701 0000 0000 00A0 0000 016E 01A9 0000 0000 7000 617F *. ....... ..................../.*

0110 C82B DC00 0004 C825 D925 D127 C01E D12F C181 4C28 01F0 E984 E819 7001 C184 D120 *H.....H.R.J...J.A....0Z.Y...A.J.*

0120 D01C C156 D0E6 C0EE 1890 D16F D11B 4173 7400 00EE 70FD 1810 D1B3 C80C D985 C00D *..A..W....J.J...........J.H.R...*

0130 D120 C006 D181 41C0 FFFF 009A 0080 0000 70FF 0658 0000 0007 00E8 0002 0000 0000 *J...J....................Y......*

 

 

 

DUMP COMPLETE

 

D, P, I, A, C, N, OR F?

br...@quarterbyte.com

unread,
Jul 27, 2016, 2:36:14 PM7/27/16
to ibm...@googlegroups.com
Word swap fixed it.
Eddy's disk image, attached, has Cobol and Fortran on it.

When I boot it, though, it doesn't read cards or print anything, on either a 1403 or 1132 printer.

Brian 


dna.zip

Eddy Quicksall

unread,
Jul 27, 2016, 2:36:55 PM7/27/16
to ibm...@googlegroups.com

Here is how to run an “1130” from a serial port. You will be able to scroll back but at the console you are limited by command.com:

 

C:\Windows\System32\cmd.exe /C START "TeraTerm" /high /affinity 1 "C:\Program Files (x86)\teraterm\ttermpro.exe" \namedpipe \\.\pipe\com_1

Eddy Quicksall

unread,
Jul 27, 2016, 2:44:48 PM7/27/16
to ibm...@googlegroups.com

I think it has the drivers for TSO.

Eddy Quicksall

unread,
Jul 27, 2016, 3:28:50 PM7/27/16
to ibm...@googlegroups.com

This cartridge has the drivers for TSO. They support spooling. Spooling would require you to use the full system. https://www.dropbox.com/s/4ue1mu3wlf1te3u/1830%20release.rar?dl=0

 

 

If you run the full system the printer output will go to a spooling queue then to the printer. If the queue is empty then it has already posted to P1132.OUT. But the emulator doesn’t flush the DOS files until you exit. The .cfg file tells where to send the printer output. The 1132 output goes to P1130.OUT which should get allocated in the folder where the emulator runs from. The 1403 goes to LPT1 (see 1830.cfg).

 

The card reader uses input spooling and I never added that driver to the system since my customer doesn’t have one. With input spooling all we did was to stick our deck of cards into the reader and it would take off all by itself and read into the queue.

 

SYSOUT

------

NEW SYSOUT COMMAND TO ALLOW SYSOUT AREA SPECIFICATION                      

                                                                           

    SYSOUT (DEVICE) (UNIT)                                                

I.E.                                                                      

    SYSOUT HERE                                                            

    SYSOUT P1132                                                          

    SYSOUT P1403                                                          

    SYSOUT TAPE N (WHERE N IS 0 TO 3 FOR TAPE UNIT)                       

    SYSOUT FICHE N (WHERE N IS 0 TO 3 FOR TAPE UNIT)                      

    SYSOUT AREA N (WHERE N IS AREA NUMBER)                                

                                                                           

AFTER THE FOLLOWING LOAD MODUEL (@SYSO.L) IS STORED ON THE                 

SYSTEM THE FOLLOWING CYTOS COMMANDS MUST BE EXECUTED ON                   

EVERY MASTER PACK WHICH WILL USE THE NEW SYSOUT COMMAND

 

MSQ

---

Starting the emulator as follows will initialize the MSQ spooling.

1830.exe 0 /BCOLDO.CDI /S0400

 

Also see email dated 11/29/2012 2:22 PM

 

To cause all printing to go into a single Q entry:

QCON,,'CPR'<CR>

The qcon setting invoked by the user remain in effect until:

1.  The system is re IPLed

2.  QCON is run changing the current settings

 

To clear the queue:

-=> Q

    R

    S

    (CR)

    (CR)

    (CR)

    Y

 

 

 

TS0 00/40/80  0400 HRS

PLEASE LOGON

 

==>

logon jc tso 2202

ENTER PASSWORD> x

==>     attach (2,3)

==>     sysout p1132

==>     catpr

==>     q

TOTAL SPOOL SIZE = 29952

SPOOL EMPTY

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) q

==>

==>qcon,,'cpr'

==>catpr

==>q

TOTAL SPOOL SIZE = 29952

INDX UN ID         AR CPAD  DATE   TIME   TOTAL  LEFT

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

0B1F P2            -1      01/08 04:02:06    40    40

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q)

TOTAL SPOOL SIZE = 29952

INDX UN ID         AR CPAD  DATE   TIME   TOTAL  LEFT

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

0B1F P2            -1      01/08 04:02:06    40    40

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) p0b1f

P0B1F DONE

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) l

INDX UN ID         AR CPAD  DATE   TIME   TOTAL  LEFT

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

0B1F P2            -1  PA  01/08 04:02:06    40     2

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) c0b1f

C0B1F DONE

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) l

INDX UN ID         AR CPAD  DATE   TIME   TOTAL  LEFT

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

0B1F P2            -1 C  D 01/08 04:02:06    40    40

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) r0b1f

R0B1F DONE

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q) l

SPOOL EMPTY

ENTER FUNCTION (P, U, R, C, M, A, L, LL, Q)

Eddy Quicksall

unread,
Jul 27, 2016, 3:39:33 PM7/27/16
to ibm...@googlegroups.com

When I extracted the cartridge someone had made a request to get the EMU compiler. I replied saying I did not know how to get the compiler off of my cartridge. So he said just send a copy of the cartridge. I figured he had a program to extract the compiler. So I sent a cartridge from my system which uses TSO to run DM2. That cartridge has a few TSO drivers and the TSO resident image … I didn’t expect that someone would try to run it. My system has 512 cartridges and I just blindly extracted ID 2202.

 

Do you have a way to extract the compiler? If so then you could download the full system and run your extraction program.

 

Eddy

Eddy Quicksall

unread,
Jul 27, 2016, 4:31:35 PM7/27/16
to ibm...@googlegroups.com

BTW When I worked for Cisco I think that museum was just a few blocks from my apartment. Now I wish I had just walked over there.

 

From: Eddy Quicksall [mailto:esqui...@gmail.com]

Sent: Wednesday, July 27, 2016 3:39 PM
To: 'ibm...@googlegroups.com'

Subject: RE: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

 

When I extracted the cartridge someone had made a request to get the EMU compiler. I replied saying I did not know how to get the compiler off of my cartridge. So he said just send a copy of the cartridge. I figured he had a program to extract the compiler. So I sent a cartridge from my system which uses TSO to run DM2. That cartridge has a few TSO drivers and the TSO resident image … I didn’t expect that someone would try to run it. My system has 512 cartridges and I just blindly extracted ID 2202.

 

Do you have a way to extract the compiler? If so then you could download the full system and run your extraction program.

 

Eddy

esquicksall

unread,
Jul 27, 2016, 5:37:46 PM7/27/16
to IBM1130
That's odd because lots of LET programs work which came directly from people in the field. And DUP has always worked. I'll check your zip file and see what I can.



Sent via the Samsung Galaxy S® 6, an AT&T 4G LTE smartphone

Eddy Quicksall

unread,
Jul 27, 2016, 6:29:35 PM7/27/16
to ibm...@googlegroups.com

Can you please give me the information that seems incorrect? Please include relative 0 sector numbers and offsets.

 

Eddy

Eddy Quicksall

unread,
Jul 27, 2016, 6:51:33 PM7/27/16
to ibm...@googlegroups.com

Brian was trying to mount a cartridge I sent containing EMU Fortran. Note that the drivers have been replaced with TSO drivers to support timesharing so don’t try to boot to it (however you should be able to mount it). I have attached the cartridge that Brian sent to me.

 

Since Brian is going on “vacation” (a.k.a work) does anyone see the problem he noticed in the LET format (see his comment below). I have looked and don’t see a problem. Also TSO has been running since the early 70’s and my emulator knows nothing about the disk layout and it has been running in production since the mid 90’s. DNA had about 100 customers who ran their own 1130 programs with TSO and I have several LET/FLET programs that came from the original 1130 (DUP, XDUP, let/flet searches, etc) and there is never been a failure or complaint.

 

Note also that my cartridges are big endian and don’t contain the sector address which precedes each sector. Brian made those changes so he could mount it and I think  the changes are in the zip file attached.

 

Regarding the EMU compiler. If someone has a program that will extract the phases then send it to me and I’ll try it myself.

 

Eddy

 

From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of br...@quarterbyte.com
Sent: Wednesday, July 27, 2016 2:36 PM
To: ibm...@googlegroups.com
Subject: Re: [IBM1130] Come see an 1130 in action at Vintage Computer Federation West, August 6-7 at Computer History Museum

 

Word swap fixed it.

Eddy's disk image, attached, has Cobol and Fortran on it.

 

 

[Eddy] Because this has the TSO drivers to support timesharing.

When I boot it, though, it doesn't read cards or print anything, on either a 1403 or 1132 printer.

 

Brian 

 

 

dna.zip

Eddy Quicksall

unread,
Jul 28, 2016, 9:10:42 AM7/28/16
to ibm...@googlegroups.com

Please let me know what you  see wrong in the directory structure. Here is my analysis:

CTID  2202  SECTOR  0350  PLATTER 1-01  TYPE  0002  MOD 020D

 

0000 0358 0000 0003 0351 rel sect 0, address of UA = 358, reserved = 0, words available = 3, addr of next sector = 351

0604 4100 0008  FADD.DSF, DBC = 8

068A 4080 0000  FSUB,  entry point

0604 4127 0000  FADDX, entry point

068A 40A7 0000  FSUBX, entry point

0304 4100 0006  CADD.DSF, DBC=6

0304 4127 0000 038A 4080 0000 038A 40A7 0000 0388 2640 0000

0388 2667 0000 0606 7240 0007 0606 7267 0000 0306 7240 0006 0306 7267 0000 0310

9940 0005 0310 9967 0000 0612 5640 0003 0612 5667 0000 0312 5640 0004 0312 5667

0000 061C 58D7 0002 031C 58D7 0002 064C 4000 0005 064C 49C0 0000 068A 3580 0000

068A 35A7 0000 034C 4000 0005 034C 49C0 0000 038A 3580 0000 038A 35A7 0000 0651

7A00 0005 0651 7A27 0000 0351 7A00 0004 0351 7A27 0000 0688 2640 0003 0688 2667

0000 0604 2880 0002 0606 54C0 0000 0304 2880 0002 0306 54C0 0000 0606 3540 000A

0606 3055 0000 0606 3572 0005 0606 7080 0005 0606 70A7 0000 039E 70C0 0003 039E

7640 0000 0616 75C0 0009 069D 7540 0000 0316 75C0 0003 039D 7540 0000 064D 5000

000A 0605 3587 0000 034D 61C0 0002 034D 5000 0000 064C 7C70 0002 064D 5C70 0000

0688 91D5 0004 0688 9540 0009 0688 9545 0000 060D 6880 0000 060D 6895 0000 0388

9540 0004 0388 9545 0000 030D 6880 0004 030D 6895 0000 0689 8640 0006 0689 8663

0000 0389 8663 0004 0389 8640 0000 068C 1548 0005 068D 5200 0000 0688 9548 0004

060D 6888 0004 068C 1540 0004 068D 5000 0000 060D 68D5 0004 060E 3540 0000 0605

4584 0003 0650 19F1 0006 0650 9571 0000 0652 7C40 0000 0651 5C40 0000 0610 9500

0003 0604 9563 0004 0605 58C0 0000 0625 58C0 0002 0625 58E2 0000 0627 4563 0002

06D1 58C0 0000 0624 6267 0002 0624 69C0 0000 06D0 6267 0002 06D0 69C0 0000 0351

6113 0003 0351 6100 0000 0305 98D5 0003 0305 98C0 0000 0351 74E7 0003 2218 1640

0004 2218 1667 0000 0318 1640 0004 0318 1667 0000 2218 9180 0003 0000 0000 0000

Brian Knittel

unread,
Jul 28, 2016, 1:39:54 PM7/28/16
to ibm...@googlegroups.com
Sorry for the confusion. The issue was the byte ordering. The second version of the .dsk file I sent shortly after the first, with the byte ordering corrected, had no directory issues.

Eddy Quicksall

unread,
Jul 28, 2016, 2:19:05 PM7/28/16
to ibm...@googlegroups.com

Thanks for getting back with me.

 

I would like to setup a TCP/IP connection to my 1130 running TSO/CYTOS if anyone would be interested in playing  with it.

 

TSO supports 32 remote 1130’s. But I’m having trouble with VmWare and can only get VmWare to recognize 2 serial ports. CYTOS is a CLI for DM2.

 

Please let me know.

 

Eddy

Eddy Quicksall

unread,
Jul 28, 2016, 5:44:26 PM7/28/16
to ibm...@googlegroups.com

Thanks for getting back with me.

 

I would like to setup a TCP/IP connection to my 1130 running TSO/CYTOS if anyone would be interested in playing  with it.

 

TSO supports 32 remote 1130’s. But I’m having trouble with VmWare and can only get VmWare to recognize 2 serial ports. CYTOS is a CLI for DM2.

 

Please let me know.

 

Eddy

Bob Flanders

unread,
Jul 28, 2016, 5:56:16 PM7/28/16
to ibm...@googlegroups.com
What version of VMWare are you using? (12 is current) Doc says you can have a max of 4 serial ports for a VM.

Bob

Eddy Quicksall

unread,
Jul 28, 2016, 6:13:04 PM7/28/16
to ibm...@googlegroups.com

I’m using VMware Workstation 12 Player (the free one). I have had this problem with older VMware’s too (the paid versions). Here is what I sent to a friend at VMware (however he has not gotten back with me yet). It gives some detail of my problem.

 

Hi Mike

 

Are you still working at VmWare? If so I have a problem described below. I can’t get any help on the forums and was hoping you knew someone that could help. I have had this problem on all versions of the Workstation so it must be that I  don’t understand something.

 

I am using XP under VM Ware Player using Windows 10. I run a DOS program under XP. The program uses 4 serial ports. If I use DEBUG from a command.com prompt, I can see that 4 ports exist at 40:0 (COM1=3F8, COM2=2F8, COM3=3E8, COM4=2E8). So I shut down XP and configured the settings with 4 serial ports, each with a named pipe. The pipe names are \\.pipe\com_1, 2, 3 and 4. For the Named Pipe dialog I have set it to "This end is the server" and "The other end is an application". And "connect at power on".

 

But when I run the program I get a popup that says "The system cannot open COM3 port requested by the application". Then if I click Ignore it gives the same message except for COM4. Note that COM1 and 2 work just fine via the named pipe. And my program works on a real DOS using COM1,2,3,4.

 

I had this problem with earlier versions of VmWare but always thought it was a bug in VmWare. So I updated to the latest Player and get the same problem, now I think there is something I don't understand.

 

Note: When I click on the Serial Port settings I see a message that says "Virtual printers must be enabled in the preferences". I don't know why because I'm not using a printer but I enabled it anyway. I get the same problem.

 

 

Here are my settings (note that the actual port number is not 1 to 1 with the name I gave the pipe):

 

 

 

image001.png
image002.png
image003.png
image004.png

Bob Flanders

unread,
Jul 28, 2016, 11:30:10 PM7/28/16
to ibm...@googlegroups.com
I took a VM that I have (win7) and added 4 com ports to it using VMWare 12 workstation pro. To do so, I had to remove a printer port. 

I then started it up and check the device manage and found 4 com ports.

I shut it down and started it in VMWare 12 player. Same thing .. 4 ports 

Now I don't have a program to use the ports, so I don't know if they work properly, but they seem to start ok.

Bob

John R Pierce

unread,
Jul 28, 2016, 11:39:58 PM7/28/16
to ibm...@googlegroups.com
On 7/28/2016 8:30 PM, Bob Flanders wrote:
> I took a VM that I have (win7) and added 4 com ports to it using
> VMWare 12 workstation pro. To do so, I had to remove a printer port.
>
> I then started it up and check the device manage and found 4 com ports.
>
> I shut it down and started it in VMWare 12 player. Same thing .. 4 ports
>
> Now I don't have a program to use the ports, so I don't know if they
> work properly, but they seem to start ok.

Virtualbox running on MS Windows seems to support 4 COM ports, too. I
don't see any way to add /more/ com devices, howevver.


My PC (win10) actually has 5 physical com ports, one on the motherboard,
and 4 on a pci-express card (I needed extra ports to run a eprom
programmer, weather station, and another data collector a year ago, not
using them anymore but the card is still plugged in).



--
john r pierce, recycling bits in santa cruz

Eddy Quicksall

unread,
Jul 29, 2016, 8:38:18 AM7/29/16
to ibm...@googlegroups.com

You won’t see a problem if you don’t try to access the ports. Try using DEBUG and try some I/O on 3E8+.

 

Note that COM1,2 work just fine. If I boot to a real DOS all 4 ports work just fine so I can’t blame my emulator. Also the emulator is running 16 ports on a real DOS at my client’s site.

 

Here are my options. I don’t see a printer.

 

Here is the message I get. Note that it has already accepted COM1 and 2. It is COM3 and 4 that gives the problem.

 

Here I went to DOS to check the COM ports. Notice that DOS thinks all 4 ports are there:

Z:\DROPBOX\1830~90F>debug

-d 40:0

0040:0000  F8 03 F8 02 E8 03 E8 02-BC 03 78 03 78 02 80 9F   ..........x.x...

0040:0010  23 C8 00 80 02 28 00 40-00 00 26 00 26 00 08 0E   #....(.@..&.&...

0040:0020  3A 27 30 0B 0D 1C 00 20-64 20 65 12 62 30 75 16   :'0.... d e.b0u.

0040:0030  67 22 0D 1C 64 20 20 39-34 05 30 0B 3B 27 00 80   g"..d  94.0.;'..

0040:0040  24 00 C3 00 02 12 00 20-00 03 50 00 E0 1A 00 00   $...... ..P.....

0040:0050  00 2A 00 00 00 00 00 00-00 00 00 00 00 00 00 00   .*..............

0040:0060  07 06 00 D4 03 29 30 94-00 00 C8 FF 5B 87 08 00   .....)0.....[...

0040:0070  00 00 00 00 00 00 00 00-14 14 14 00 01 01 01 01   ................

-

image005.png
image006.png
image007.png
image008.png
image009.png
image001.png
Reply all
Reply to author
Forward
0 new messages