This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
cdc6500_survival_guide [2019/09/11 03:58] cvena325 [Program source files] add FTNTS example |
cdc6500_survival_guide [2020/04/04 20:12] bruces Typo "apologizes" |
||
---|---|---|---|
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 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 ===== |