CYTOS for the 1130
Eddy Quicksall
I am working on a TCP connection to my 1130 emulator. You can try it by using a serial program that accesses TCP and port 30001 (user 1) or 30002 (user 2). When you are finished just close the connection. This is in development so please give me any feedback.
Connect on 108.83.243.140
Logon like this:
LOGON JC TSO 2202 (a 2nd user at a terminal can use 2203)
The password is X.
ATTACH (1,2,3)
The explain file is CYTXP.S(7FF3). CYTOS automatically knows that but you have to mount it to use it. So type M(,7ff3) and then type EXPLAIN EXPLAIN to get CYTOS command information.
See the document here: https://www.dropbox.com/sh/of8btlc3jsv4k04/AACdcDwqHQ-hxA1Nqenfg2xLa?dl=0.
As a simple experiment try this:
· Int req is ctrl/Enter
· Mount (,xxxx,xxxx,xxxx,xxxx) – mount cartridges
· Catpr here – will output the equivalent of // DUP
· E xxx.s – edit the file called xxx.s. It will prompt with i=> if no file exists (insert mode) or e=> if the file exists. To get out of insert mode press ctrl/enter. To get out of the editor type Q at the e=> prompt.
· Letp – will show all of the files on the currently mounted drives
· LOOKQ – Look at a queue item. Type LOOKQ HERE. When prompted for “PRINT” answer with “N”. Enter “L” to list the queue. Then enter the queue index with the 4 byte hex number given under INDX. Press Enter to exit LOOKQ (Interrupt Request is disabled in LOOKQ).
If you print to the 1403 or 1132 the output will go into a spool. I’ll tell you how to look at the spool later but for now you can use LOOKQ. To make print output go to the console, type “sysout here”. Don’t try to use the card reader because it will want to use a physical reader … you will get $pause 4000, just type EXIT to get back.
There are lots of source files but I would prefer that you don’t change any of them. You can create your own if you want. If you want to have them available then let other people know what cartridge you are using so they won’t be or modified.
Please let me know if you try it and how it worked out.
Eddy
Eddy Quicksall
I forgot to say that “logoff” and “done” will hang CYTOS so please don’t use them until I have debugged them (which may be a while since I’m working on how to access 1130 files via a web page).
Eddy
--
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
To unsubscribe from this group and stop receiving emails from it, send an email to ibm1130+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
Eddy Quicksall
2202 seemed to have crashed when I checked this morning. If someone had tried to logoff that would happen. I re-booted and it looks ok now. If you can’t get onto 2202 (user 1) try 2203 (user 2).
Eddy
From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Bob Flanders
Sent: Saturday, November 25, 2017 2:06 PM
To: ibm...@googlegroups.com
Subject: Re: [IBM1130] CYTOS for the 1130
oops.
I tried it last night, but didn't get very far.
Thanks, Eddy!
Bob
On Sat, Nov 25, 2017 at 8:02 AM, Eddy Quicksall <Ed...@quicksall.com> wrote:
I forgot to say that “logoff” and “done” will hang CYTOS so please don’t use them until I have debugged them (which may be a while since I’m working on how to access 1130 files via a web page).
Eddy
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.
--
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.
--
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.
Eddy Quicksall
I was using an experimental logon/logoff program. I am currently copying the original back. I’ll let you know when I’m done.
Eddy Quicksall
Someone was on when I had to go to the ER. I was out cutting wood and the chainsaw slipped and hit my knee. I panicked and shut down the computer by mistake. It should be back up now.
I put the old LOGON and LOGOF code on so you should be able to use LOGOFF when you are done.
Joseph Ambrose
To unsubscribe from this group and stop receiving emails from it, send an email to ibm1130+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
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+unsubscribe@googlegroups.com.
Eddy Quicksall
Hurts a bit but I will survive. The DR said if it had hit just an inch higher it would need surgery. I guess I’ve been a bit lucky recently … several years ago I was using a belt sander and it slipped onto my bare upper leg … the sander pulled up so much skin that it broke a gear in the sander. Then just about 2 years ago I came close to cutting the end of my finger off with a table saw but it just got the tip. The nurse told my wife to take away all of my power tools … that will be the day.
Software engineers should not be allowed to use power tools. I guess I’ll go back to sailing where I could tie every knot in existence … they didn’t call me knot-head for nothing.
Eddy
From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Joseph Ambrose
Sent: Sunday, November 26, 2017 4:37 PM
To: ibm...@googlegroups.com
Subject: Re: [IBM1130] CYTOS for the 1130
Eddie,
How's your knee???
On Sun, Nov 26, 2017 at 4:25 PM, Eddy Quicksall <Ed...@quicksall.com> wrote:
Someone was on when I had to go to the ER. I was out cutting wood and the chainsaw slipped and hit my knee. I panicked and shut down the computer by mistake. It should be back up now.
I put the old LOGON and LOGOF code on so you should be able to use LOGOFF when you are done.
Eddy
From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Eddy Quicksall
Sent: Sunday, November 26, 2017 7:28 AM
To: ibm...@googlegroups.com
Subject: RE: [IBM1130] CYTOS for the 1130
I was using an experimental logon/logoff program. I am currently copying the original back. I’ll let you know when I’m done.
Eddy
From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Eddy Quicksall
Sent: Saturday, November 25, 2017 4:15 PM
To: ibm...@googlegroups.com
Subject: RE: [IBM1130] CYTOS for the 1130
2202 seemed to have crashed when I checked this morning. If someone had tried to logoff that would happen. I re-booted and it looks ok now. If you can’t get onto 2202 (user 1) try 2203 (user 2).
Eddy
From: ibm...@googlegroups.com [mailto:ibm...@googlegroups.com] On Behalf Of Bob Flanders
Sent: Saturday, November 25, 2017 2:06 PM
To: ibm...@googlegroups.com
Subject: Re: [IBM1130] CYTOS for the 1130
oops.
I tried it last night, but didn't get very far.
Thanks, Eddy!
Bob
On Sat, Nov 25, 2017 at 8:02 AM, Eddy Quicksall <Ed...@quicksall.com> wrote:
I forgot to say that “logoff” and “done” will hang CYTOS so please don’t use them until I have debugged them (which may be a while since I’m working on how to access 1130 files via a web page).
Eddy
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.
--
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.
--
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.
--
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.
--
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.
--
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.
--
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.
Eddy Quicksall
Here is an example:
TSO 11/26/17 1652 HRS
DSI SYSTEM A AREA 1
PLEASE LOGON
==>logon jc tso 2205
CART IS ACTIVE IN AREA -1
TSO 11/26/17 1652 HRS
DSI SYSTEM A AREA 1
PLEASE LOGON
==>logon jc tso 2203
ENTER PASSWORD>
==> e this.s
I=> *ONE WORD INTEGERS
I=> *IOCS (TYPEWRITER)
I=> WRITE(1,100)
I=> 100 FORMAT('THIS IS A TEST')
I=> CALL EXIT
I=> END
I=>
E=> f
THIS.S(2203)
CART ID 2203 DB ADDR 5C90 DB CNT 000C
==> f this.s this.o (list here)
*ONE WORD INTEGERS
*IOCS (TYPEWRITER)
C-ERRS...STNO.C..... F O R T R A N S O U R C E S T A T E M E N T S ........ IDENTFCN **COMPILER MESSAGES**
0001 WRITE(1,100)
0002 100 FORMAT('THIS IS A TEST')
0003 CALL EXIT
0004 END
FEATURES SUPPORTED
ONE WORD INTEGERS
STANDARD PRECISION
IOCS-
TYPEWRITER
CORE REQUIREMENTS FOR - THIS
BLANK COMMON- 0, VARIABLES AND TEMPORARIES- 0, CONSTANTS AND PROGRAM- 40
END OF SUCCESSFUL COMPILATION COPYRIGHT DNA SYSTEMS, INC.
THIS.O(2203)
CART ID 2203 DB ADDR 5C9C DB CNT 0004
==> lked this.o this.l (map here)
CART ID 2203 DB ADDR 5C9C DB CNT 0004
R 41 74D6 (HEX) WDS UNUSED BY CORE LOAD
TYPE NAME ENADR LOAD CIDN LNTH TVADR
ILS ILS02 00B3 00B3 2203
ILS ILS04 00C4 00C4 2203
LIBF SWRT 0251 0226 2203 7FE4
LIBF SCOMP 0371 0226 2203 7FE1
LIBF SFIO 0407 0226 2203 068A 7FF0
LIBF WRTYZ 08B0 08B0 2203 00EC 7FED
LIBF FSTO 09A0 099C 2203 7FE7
LIBF FLD 09BC 099C 2203 0038 7FEA
CALL INIT$ 09D4 09D4 2203 0006 7FFF
LIBF IFIX4 09E4 09DA 2203 002A 7FDE
LIBF IFIX 0A04 0A04 2203 002C 7FDB
LIBF FLOT4 0A30 0A30 2203 000C 7FD8
LIBF FLOAT 0A3C 0A3C 2203 000C 7FD5
LIBF PAUSE 0A4A 0A48 2203 0028 7FD2
CALL IOCS2 0A7D 0A70 2203 000E 7FFE
CALL CXCLR 0A7E 0A7E 2203 0008 7FFD
CALL ZCOR$ 0A86 0A86 2203 0034 7FFC
LIBF NORM 0ABA 0ABA 2203 002A 7FCF
LIBF TTEST 0AE4 0AE4 2203 0012 7FCC
CORE LOAD NAME IS- THIS
7F7C (HEX) IS $XR3X TR VCTR ADDR
0208 (HEX) IS THE EXECUTION ADDR
CART ID 2203 DB ADDR 5CA0 DB CNT 0080
==> run this.l
THIS IS A TEST
==>
Eddy
From: Eddy Quicksall [mailto:Ed...@Quicksall.com]
Sent: Friday, November 24, 2017 8:44 PM
To: 'ibm...@googlegroups.com'
Subject: CYTOS for the 1130
I am working on a TCP connection to my 1130 emulator. You can try it by using a serial program that accesses TCP and port 30001 (user 1) or 30002 (user 2). When you are finished just close the connection. This is in development so please give me any feedback.
Connect on 108.83.243.140
Logon like this:
LOGON JC TSO 2202 (a 2nd user at a terminal can use 2203)
The password is X.
ATTACH (1,2,3)
The explain file is CYTXP.S(7FF3). CYTOS automatically knows that but you have to mount it to use it. So type M(,7ff3) and then type EXPLAIN EXPLAIN to get CYTOS command information.
See the document here: https://www.dropbox.com/sh/of8btlc3jsv4k04/AACdcDwqHQ-hxA1Nqenfg2xLa?dl=0.
As a simple experiment try this:
· Int req is ctrl/Enter
· Mount (,xxxx,xxxx,xxxx,xxxx) – mount cartridges
· Catpr here – will output the equivalent of // DUP
· E xxx.s – edit the file called xxx.s. It will prompt with i=> if no file exists (insert mode) or e=> if the file exists. To get out of insert mode press ctrl/enter. To get out of the editor type Q at the e=> prompt.
· Letp – will show all of the files on the currently mounted drives
· LOOKQ – Look at a queue item. Type LOOKQ HERE. When prompted for “PRINT” answer with “N”. Enter “L” to list the queue. Then enter the queue index with the 4 byte hex number given under INDX. Press Enter to exit LOOKQ (Interrupt Request is disabled in LOOKQ).
If you print to the 1403 or 1132 the output will go into a spool. I’ll tell you how to look at the spool later but for now you can use LOOKQ. To make print output go to the console, type “sysout here”. Don’t try to use the card reader because it will want to use a physical reader … you will get $pause 4000, just type EXIT to get back.
There are lots of source files but I would prefer that you don’t change any of them. You can create your own if you want. If you want to have them available then let other people know what cartridge you are using so they won’t be or modified.
Please let me know if you try it and how it worked out.
Eddy
