This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
cdc6500_survival_guide [2019/09/11 03:58] cvena325 [Program source files] add FTNTS example |
cdc6500_survival_guide [2020/08/12 06:12] (current) hc9 [Local files] |
||
---|---|---|---|
Line 7: | Line 7: | ||
This document is a short guide for those interested in exploring the 6500's interactive command environment. | This document is a short guide for those interested in exploring the 6500's interactive command environment. | ||
- | //(Note: The primary author worked briefly with a CDC NOS computer 30 years ago, but all information below is based on study of the referenced manuals and experimentation on LC's 6500. We apologizes | + | //(Note: The primary author worked briefly with a CDC NOS computer 30 years ago, but all information below is based on study of the referenced manuals and experimentation on LC's 6500. We apologize |
===== Connecting ===== | ===== Connecting ===== | ||
Line 79: | Line 79: | ||
Local files are the set of temporary files and direct access files (permanent files) currently open by a particular job or user session. | Local files are the set of temporary files and direct access files (permanent files) currently open by a particular job or user session. | ||
- | File names my be up to seven alphanumeric (upper-case) characters and may not begin with a numeric character. The following file names are reserved by the system: | + | File names may be up to seven alphanumeric (upper-case) characters and may not begin with a numeric character. The following file names are reserved by the system: |
| INPUT | P8 | SCR3 | | | INPUT | P8 | SCR3 | | ||
Line 143: | Line 143: | ||
| '' | | '' | ||
RNH\\ | RNH\\ | ||
- | RUN, | + | RUN, |
- | ** FTNTS Example | + | ** FORTRAN subsystem example** |
+ | Here the FORTRAN subsystem is selected, an existing program is loaded, listed, and run. | ||
+ | < | ||
+ | FORTRAN | ||
+ | READY. | ||
+ | |||
+ | OLD,TEST2 | ||
+ | LIST | ||
+ | |||
+ | | ||
+ | PROGRAM | ||
+ | |||
+ | 00100 PROGRAM TEST2(OUTPUT) | ||
+ | 00110 INTEGER J | ||
+ | 00120 REAL Z, | ||
+ | 00130 Z=0.0 | ||
+ | 00140 Q=0.0 | ||
+ | 00150 DO 210 J=1,25 | ||
+ | 00160 Z=SQRT(Q)+Z | ||
+ | 00170 W=SQRT(Q) | ||
+ | 00180 Q2=Q*Q | ||
+ | 00190 Q3=Q*Q*Q | ||
+ | 00200 PRINT 190, | ||
+ | 00210 190 FORMAT(1X, | ||
+ | 00220 Q=Q+1.0 | ||
+ | 00230 210 CONTINUE | ||
+ | 00240 W=Z/25.0 | ||
+ | 00250 PRINT 230,W | ||
+ | 00260 230 FORMAT(1X, | ||
+ | 00270 END | ||
+ | |||
+ | READY. | ||
+ | |||
+ | RUN | ||
+ | |||
+ | | ||
+ | PROGRAM | ||
+ | |||
+ | | ||
+ | | ||
+ | | ||
+ | ... | ||
+ | 24 | ||
+ | 25 | ||
+ | | ||
+ | | ||
+ | |||
+ | SRU 0.447 UNTS. | ||
+ | |||
+ | RUN COMPLETE. | ||
+ | |||
+ | READY. | ||
+ | </ | ||
+ | |||
+ | ** FTNTS subsystem example | ||
Here the FTNTS subsystem is selected, an existing program is loaded, listed, and run. Note the way the FORTRAN line numbers 190, 210, and 230 as specified in addition to the editing line numbers which do not make up part of the program. | Here the FTNTS subsystem is selected, an existing program is loaded, listed, and run. Note the way the FORTRAN line numbers 190, 210, and 230 as specified in addition to the editing line numbers which do not make up part of the program. | ||
< | < | ||
Line 200: | Line 254: | ||
Although the programming subsystems include basic functionality for entering and modifying program source code in the primary file, the NOS Text Editor program ('' | Although the programming subsystems include basic functionality for entering and modifying program source code in the primary file, the NOS Text Editor program ('' | ||
- | | '' | + | | '' |
- | EDIT,''// | + | |
| '' | | '' | ||
| '' | | '' | ||
Line 212: | Line 265: | ||
| '' | | '' | ||
| '' | | '' | ||
+ | |||
+ | Here is an example session using the '' | ||
+ | |||
+ | < | ||
+ | / | ||
+ | BEGIN TEXT EDITING. | ||
+ | ? add | ||
+ | ENTER TEXT. | ||
+ | ? /This is a test file. | ||
+ | ? It has multiple lines of text. | ||
+ | ? This file demonstrates the edit command. | ||
+ | ? This is line 4./ | ||
+ | | ||
+ | ? list;* | ||
+ | This is a test file. | ||
+ | It has multiple lines of text. | ||
+ | This file demonstrates the edit command. | ||
+ | This is line 4. | ||
+ | -END OF FILE- | ||
+ | ? add | ||
+ | ENTER TEXT. | ||
+ | ? /Pointer at line 1, we insert a new line 2./ | ||
+ | | ||
+ | ? list;* | ||
+ | This is a test file. | ||
+ | Pointer at line 1, we insert a new line 2. | ||
+ | It has multiple lines of text. | ||
+ | This file demonstrates the edit command. | ||
+ | This is line 4. | ||
+ | -END OF FILE- | ||
+ | ? set;4 | ||
+ | ? list | ||
+ | This is line 4. | ||
+ | ? delete | ||
+ | -END OF FILE- | ||
+ | ? add | ||
+ | ENTER TEXT. | ||
+ | ? /This is line 5./ | ||
+ | | ||
+ | ? reset | ||
+ | ? list;* | ||
+ | This is a test file. | ||
+ | Pointer at line 1, we insert a new line 2. | ||
+ | It has multiple lines of text. | ||
+ | This file demonstrates the edit command. | ||
+ | This is line 5. | ||
+ | -END OF FILE- | ||
+ | ? end | ||
+ | END TEXT EDITING. | ||
+ | $EDIT, | ||
+ | /SAVE,test | ||
+ | </ | ||
===== Batch ===== | ===== Batch ===== |