Table of Contents

Phase 3 - Add CONDEN, PLATO, FORMAT Support for L1P Terminals

— Dale Sinder and Steve Zoppi 25/04/18

Tutorial Phases

Tip

The tutorial phases are arranged in a prescribed order, wherein each phase builds upon the previous. Performing these activities out of order will leave the installation in an inconsistent, or perhaps inoperable state.

  1. Phase 0 - Prepare Work Environment
  2. Phase 1 - Define Terminal Capabilities
  3. Phase 2 - Set the 'Capabilities' Values
  4. Phase 3 - Add CONDEN, PLATO, FORMAT Support for L1P Terminals
  5. Phase 3A - Differential Backup
  6. Phase 4 - Add More Support for L1P Terminals
  7. Phase 5 - Documentation

Procedure

Edit Build Procedure

  1. Modify code file maintp block 3-f getmods to include the newly-imported code file l1pmods000 after gogomods, and change the line plmods as shown in yellow:

    pf(pf,ins,z),mods,-blabel,-rew/plmods000 pf(pf,ins,z),mods,-blabel,-rew/tpmods pf(pf,ins,z),mods,-blabel,-rew/gogomods pf(pf,ins,z),mods,-blabel,-rew/l1pmods000 ← Inserted line

  2. Do a full system assembly

    1. Execute system lesson s0maint.
    2. Choose options a (Full Assemblies) then r (Full System Assembly).
    3. Press SHIFT-LAB (to invoke the system/personal defaults)
    4. Press SHIFT-NEXT (to build the batch job)
    5. Press SHIFT-LAB (to submit the batch job)
    6. Press NEXT (to transfer control to system lesson jobstat so the job can be monitored).

  3. Wait until you see “Job Completed” This should take approximately 20 to 30 minutes to run.

  4. Press BACK to exit lesson jobstat.

  5. Check results:

    1. Inspect file maintdf.
    2. Search the whole file (Xerror on the edit line) for errors. “warning errors” are ok.
    3. If no significant errors have been found, you may proceed.

Make Deadstart Tape

  1. Edit file maintsub, block 1-f mkdstart.

  2. Press SHIFT-LAB This kicks the process off.

  3. At the dtcyber operator prompt
    1. Type: show_tape or st to show your mounted tapes. You should see just one; the current deadstart tape.

      > Magnetic Tape Status: > --------------------- > 679 C13 E00 U00 r deadstart/YYYYMMDDX.ds.tap > 679 C13 E00 U01 (idle) > 679 C13 E00 U02 (idle) > 679 C13 E00 U03 (idle) > 5744 C23 E00 U00 (connecting) > 5744 C23 E00 U01 (connecting) > 5744 C23 E00 U02 (connecting) > 5744 C23 E00 U03 (connecting)

    2. At the prompt type
      lt 13,0,1,w,deadstart/yyyymmddx.ds.tap
      using today's date to help identify this tape (e.g. 20250418A.ds.tap)

    3. Type: show_tape or st again. (You should now see two tapes mounted.)

      > Magnetic Tape Status: > --------------------- > 679 C13 E00 U00 r deadstart/YYYYMMDDX.ds.tap > 679 C13 E00 U01 w deadstart/yyyymmddx.ds.tap > 679 C13 E00 U02 (idle) > 679 C13 E00 U03 (idle) > 5744 C23 E00 U00 (connecting) > 5744 C23 E00 U01 (connecting) > 5744 C23 E00 U02 (connecting) > 5744 C23 E00 U03 (connecting)

    4. In the dtcyber console you should see at one control point request tape1
      Take note of the control point's JSN 1) (aabl in this example)

  4. On the NOS Operator Console

    1. Type ASSIGN,AABL,050. (use the correct control point JSN rather than AABL)
    2. The Console Program should respond request tape2
    3. Type ASSIGN,AABL,051. (use the correct control point JSN rather than AABL)
    4. The job will now proceed. The CP name will disappear after the job completes - 5 minutes or so.

  5. At the dtcyber operator prompt

    1. Type ut or unload_tape 13,0,1 this unloads your new tape.
    2. Check the resulting tape's size on your host system. It should now have a non-zero length.
    3. Check that the new tape is bigger than your current tape! If not, STOP and check your work!

Restart the System

  1. Take the system down
    1. Do a full system backout on CYBIS, and take CYBIS, NOS and dtCyber down.
    2. Edit the cyber.ini file to use the NEW deadstart tape.
  2. Bring the system back up
    1. Start CYBIS - and if everything went well, everything should initialize properly.

Test the New Functionality

Sign in with the provided L1P enabled “terminal” called PlatoAccess (pre-loaded in Phase 0):

  1. Start the provided PlatoAccess.jar and select localhost.cfg it should connect to your updated CYBIS R2.

  2. Log in and test lesson nplato - use it to log in again.

  3. Now run lesson ptest. Try options I, d, D, c, e in that order.

  4. Be sure the following condense successfully:

    1. alien
    2. fancy
    3. nmem
    4. ns0notes
    5. ns0terms

  5. If all looks good use system lesson operator option g to do an n) Install new version of:

    1. mem
    2. plato
    3. s0notes
    4. s0terms

  6. Force a recondense of lessons2):
    1. mem
    2. plato
    3. s0notes
    4. s0terms

  7. Sign out and back in again. Observe that the clock page now has the smooth clock image when PLATO is in PRIME TIME.

  8. Enter lesson mem, (Memory inspect options).
    1. Choose option 3 (Station bank inspect).
    2. Press NEXT (defaults to your station).
    3. The values in wd# 034 terscrn should now appear containing the terminal feature information



  9. Lesson ptest option e draws this:



  10. This phase added some features to use as well. Below is the lesson TUTOR code:

    unit pie color next index color display;zcyan at 255,255 style graphics;option,fill size 1.3,.45 rcircle 100,70,200 color display;zblue rcircle 100,0,70 color display;zmagent rcircle 100,200,230 color display;zyellow rcircle 100,230,300 at 266,253 color display;zred rcircle 100,300,359 size

SUCCESS!

You may find it useful to inspect the TUTOR code in lesson ptest and see how these new features are used.

There are also notes in the text blocks at the start of code file l1pmods000.

You may now proceed to Perform a Differential Backup .
1)
Job Sequence Number
2)
A Forced Recondense of a lesson can be done by INSPECTING the lesson (LAB from lesson edit) and pressing SHIFT-STOP.