ND-Satellite/9 - SINTRAN III
For machine info, see the main page.
Subsystems (via @LIST-REENTRANT): Backup-System, Perform, QED, Basic, ED, NRL, Pascal, Dambu, Notis-WP, Notis-TF
Programming languages: Basic, Fortran (FTN-2090I), Mac (:BPUN), NPL (:BPUN), Pascal,
Links
Hints
unix xterm is almost a vt100, which is terminal type 6. @s-t-t,,6
connect with cu: cu -e -l /dev/cuaU1 -s9600
On the machine flb, which has a real serial port: root@kg-flb# cu -e -l /dev/cuau0 -s9600
work log
2012-10-16: let's try to get MAC (the assembler) going:
MINI>@l-fi (bpun)mac,, FILE 11 : (PACK-ONE:BPUN-FILES)MAC-1415C:BPUN;1 MINI>@f-st (bpun)mac,, FILE 11 : (PACK-ONE:BPUN-FILES)MAC-1415C:BPUN;1 (INDEXED FILE) PUBLIC ACCESS : READ FRIEND ACCESS : READ, WRITE, APPEND OWN ACCESS : READ, WRITE, APPEND, COMMON, DIRECTORY OPENED 12 TIMES CREATED 14.30.51 JANUARY 3, 1977 OPENED FOR READ 19.00.39 OCTOBER 7, 2000 OPENED FOR WRITE 10.33.45 MAY 30, 1978 14 PAGES , 28389 BYTES IN FILE
Try to load it:
MINI>@load-binary (bpun)mac and here it hangs? I had to break it MINI>@load-binary (bpun)mac USER BREAK AT 5
Next, try to use place-binary instead:
MINI>@place-binary (bpun)mac MINI>@goto-user NUMBER:
Doesn't seem to work better. Urgh.
2012-10-16: I used kermit to copy over DDBTABLES-D10:VTM.
MINI>@l-fi ddbt,, FILE 113 : (PACK-ONE:SYSTEM)DDBTABLES-D10:VTM;1 MINI>@l-fi xdd,, FILE 83 : (PACK-ONE:SYSTEM)XDDBTABLES-D-C:VTM;1 FILE 87 : (PACK-ONE:SYSTEM)XDDBTABLES-C-B:VTM;1 FILE 111 : (PACK-ONE:SYSTEM)XDDBTABLES-C:VTM;1
Now test if NOTIS-WP works:
@N-WP
a moment later:
WP:NOTIS-WP - ND editor - Versjon K - 1983-12-07 Linje: 1-20 Kolonne: 1-80 Region: HOVED (...:...T1....:..T.2....:.T..3....:T...4....T....5...T:....6..T.:....).T..:....8 7 << FM=C WW WJ <s Ekspander
Oh yes, it does.
2012-10-16: another session. First, set terminal type:
MINI>@who 1 SYSTEM ===> 39 SYSTEM 670 SYSTEM 672 SYSTEM MINI>@g-t-t,, TERMINAL TYPE: 36 MINI>@s-t-t,,6 MINI>@g-t-t,, TERMINAL TYPE: 6
Then set date (use year 2000):
MINI>@datcl 00.09.17 18 APRIL 1985 MINI>@updat 20,20,16,10,2000 MINI>@datcl 20.20.02 16 OCTOBER 2000
Done.
Now, see if we can transfer a file with kermit. Start kermit and configure it:
root@kg-flb# pwd /tmp root@kg-flb# kermit C-Kermit 8.0.211, 10 Apr 2004, for FreeBSD 8.2 Copyright (C) 1985, 2004, Trustees of Columbia University in the City of New York. Type ? or HELP for help. (/tmp/) C-Kermit>set modem type none (/tmp/) C-Kermit>set line /dev/cuau0 (/tmp/) C-Kermit>set speed 9600 /dev/cuau0, 9600 bps (/tmp/) C-Kermit>set parity even (/tmp/) C-Kermit>set flow xon/xoff (/tmp/) C-Kermit>set carrier-watch off (/tmp/) C-Kermit>set prefixing all
Next, try connect:
(/tmp/) C-Kermit>connect Connecting to /dev/cuau0, speed 9600 Escape character: Ctrl-\ (ASCII 28, FS): enabled Type the escape character followed by C to get back, or followed by ? to see other options. ---------------------------------------------------- 20.25.34 16 OCTOBER 2000 SINTRAN III - VSE J ENTER
Yes, it worked. Now login and start Kermit on ND side:
MINI>@kermit NTH Kermit for ND-10/100 Version 3.1b Kermit-ND> Kermit-ND>send nd-4:data - Ok
(this automatically takes you back to kermit on flb) For some reason, automatic transfer mode always starts receive (on the unix side) in space, 7S1, and that makes the transfer time out.
if I use set xfer mode man first, and them manually get back to the unix machine (ctrl-\ C) and issue the receive command, things work better.
After transferring the file to my FreeBSD workstation, I ran ndfs on it:
tingo@kg-v2$ ndfs -V ndfs: Sintran Filesystem tool version 1.1 tingo@kg-v2$ ndfs -i nd-4.data Directory name : ND-10523D-PART4 Object file index pointer : 150 SI: 0x1 (indexed) User file index pointer : 152 SI: 0x1 (indexed) Bit file pointer : 72 SI: 0x0 (contiguous) No. of unreserved pages : 1 Error reading page 2818615296: No error: 0 tingo@kg-v2$ ndfs -t nd-4.data Directory name : ND-10523D-PART4 Object file index pointer : 150 SI: 0x1 (indexed) User file index pointer : 152 SI: 0x1 (indexed) Bit file pointer : 72 SI: 0x0 (contiguous) No. of unreserved pages : 1 Error reading page 2818615296: No error: 0
It doesn't look good.
For reference here is what a good floppy image looks like:
tingo@kg-v2$ ndfs -i ../../disk_images/floppies/image15 Directory name : 250305M05-XX-01D Object file index pointer : 611 SI: 0x1 (indexed) User file index pointer : 613 SI: 0x1 (indexed) Bit file pointer : 615 SI: 0x0 (contiguous) No. of unreserved pages : 1 Directory size: 611 pages Bit file size : 1 page tingo@kg-v2$ ndfs -t ../../disk_images/floppies/image15 Directory name : 250305M05-XX-01D Object file index pointer : 611 SI: 0x1 (indexed) User file index pointer : 613 SI: 0x1 (indexed) Bit file pointer : 615 SI: 0x0 (contiguous) No. of unreserved pages : 1 Files: 0 0: A 20 pages 39497 bytes 1990-01-24 08:12:12 (SYSTEM)MACM-1718L:BPUN 0 1: A 589 pages 1109625 bytes 1990-01-24 08:12:20 (SYSTEM)SINTRAN-M-1:DATA Directory size: 611 pages Bit file size : 1 page
That was all.
2012-10-07: let's try to copy a floppy via the copy-file command: with a floppy inserted, the door closed, but not entering the directory, do this:
@copy-file "nd-4:data",floppy-1
It went on a while, then the machine started filling the terminal with invisible characters, and the console with the character 'P'. I had to stop the machine via the front panel (STOP button).
After restarting the machine, it looks like there is data in the file:
MINI>@fi-st nd:d OUTPUT FILE: FILE 112 : (PACK-ONE:SYSTEM)ND-4:DATA;1 (INDEXED FILE) PUBLIC ACCESS : READ FRIEND ACCESS : READ, WRITE, APPEND OWN ACCESS : READ, WRITE, APPEND, COMMON, DIRECTORY OPENED 1 TIME CREATED 19.39.15 OCTOBER 7, 2000 OPENED FOR WRITE 19.39.15 OCTOBER 7, 2000 154 PAGES , 315392 BYTES IN FILE
Hmm, now try to copy it off.
2012-10-07: various statistics
MINI>@us-st system,, USER 0 : PACK-ONE:SYSTEM CREATED 00.00.55 ?0, 1984 LAST DATE ENTERED 18.56.23 OCTOBER 7, 2000 DEFAULT PUBLIC ACCESS : READ DEFAULT FRIEND ACCESS : READ, WRITE, APPEND DEFAULT OWN ACCESS : READ, WRITE, APPEND, COMMON, DIRECTORY 5407 PAGES USED OUT OF 5537 PAGES MINI>@dir-stat pack-one,, DIR INDEX 0 : DISC-21MB-1 UNIT 0 : PACK-ONE (MAIN AND DEFAULT DIRECTORY) 505 PAGES UNRESERVED AND 1845 PAGES UNUSED OUT OF 10728 PAGES MAXIMUM UNUSED CONTIGUOUS AREA ON DIRECTORY 984 PAGES
Some free space. Good. Let's give user SYSTEM another 100 pages:
MINI>@gi-us-spac USER NAME: system NUMBER OF PAGES: 100
and check it
MINI>@us-st system,, USER 0 : PACK-ONE:SYSTEM CREATED 00.00.55 ?0, 1984 LAST DATE ENTERED 18.56.23 OCTOBER 7, 2000 DEFAULT PUBLIC ACCESS : READ DEFAULT FRIEND ACCESS : READ, WRITE, APPEND DEFAULT OWN ACCESS : READ, WRITE, APPEND, COMMON, DIRECTORY 5407 PAGES USED OUT OF 5637 PAGES
Cool.
2012-10-07: look for MAC (the assembler).
MINI>@l-fi (bpun)mac,, FILE 11 : (PACK-ONE:BPUN-FILES)MAC-1415C:BPUN;1 MINI>@
Who am I?
MINI>@who 1 SYSTEM ===> 38 SYSTEM 670 SYSTEM 672 SYSTEM
Try to load it:
MINI>@load-binary (bpun)mac ERROR 24 AT 153605; ILL. INSTR
Hmm, that didn't work out.
2012-10-07: testing again. Connecting via serial:
root@kg-flb# cu -e -l /dev/cuau0 -s9600 Connected 00.04.02 18 APRIL 1985 SINTRAN III - VSE J ENTER system PASSWORD: PROJECT PASSWORD: PROJECT NAME: 0 OK MINI>@
Find out which terminal:
MINI>@get-t-t TERMINAL NUMBER: TERMINAL TYPE: 36
set correct terminal type:
MINI>@s-t-t TERMINAL NUMBER: TERMINAL TYPE: 6 MINI>@g-t-t,, TERMINAL TYPE: 6
Yes, that worked.
Now, set the date. Use the correct day and month, but year 2000:
MINI>@datcl 00.12.51 18 APRIL 1985 MINI>@updat 52,18,07,10,2000 MINI>@datcl 18.52.02 7 OCTOBER 2000 MINI>@
That was it.
2011-02-17: a new evening for testing:
MINI>@datcl 00.04.01 18 APRIL 1985 MINI>@updat 42,20,17,2,2000 MINI>@datcl 20.42.02 17 FEBRUARY 2000 MINI>@
and I am ready. Tonight I'm trying to figure out which file NOTIS-WP is looking for, when it is looking for terminal types.So it is the ddbtables-*:vtm files.
MINI>@l-fi ddbt,, FILE 83 : (PACK-ONE:SYSTEM)DDBTABLES-D-C:VTM;1 FILE 87 : (PACK-ONE:SYSTEM)DDBTABLES-C-B:VTM;1 FILE 111 : (PACK-ONE:SYSTEM)DDBTABLES-C:VTM;1 MINI>@
Let's rename them:
MINI>@ren-fi ddbtables-d-c:vtm,xddbtables-d-c:vtm MINI>@ren-fi ddbtables-c-b:vtm,xddbtables-c-b:vtm MINI>@ren-fi ddbtables-c:vtm,xddbtables-c:vtm MINI>@l-fi ddbt,, MINI>@l-fi xd,, FILE 83 : (PACK-ONE:SYSTEM)XDDBTABLES-D-C:VTM;1 FILE 87 : (PACK-ONE:SYSTEM)XDDBTABLES-C-B:VTM;1 FILE 111 : (PACK-ONE:SYSTEM)XDDBTABLES-C:VTM;1 MINI>@
and then try to start NOTIS-WP:
MINI>@g-t-t,, TERMINAL TYPE: 36 MINI>@s-t-t,,0 MINI>@g-t-t,, TERMINAL TYPE: 0 MINI>@n-wp 'DDBTABLES-D :VTM' FILE DOES NOT EXIST HOVED - Dokumentet finnes ikke NOTIS-WP - ND editor - Versjon K - 1983-12-07 WP:
What a line mode for N-WP? Cool! Anyway, we figured out what we needed, let's get out of here:
WP:e Ukjent kommando WP:a Ukjent kommando WP:slutt MINI>@
That's it.
2011-02-16: the situation for Notis-WP (version K, norwegian) didn't change with the new ddbtables-c:vtm file; it still refuses to start up from a terminal type 6. It works nicely on the console (which is standard ND-terminal (ND 320, terminal type 53).
2011-02-16: the purpose of the exercise below was to get PED onto the machine (a kind soul sent me the necessary files). The following files are required:
MINI>@l-fi ddbtables-c:vtm,, FILE 87 : (PACK-ONE:SYSTEM)DDBTABLES-C-B:VTM;1 FILE 111 : (PACK-ONE:SYSTEM)DDBTABLES-C:VTM;1 MINI>@l-fi ue-err,, FILE 107 : (PACK-ONE:SYSTEM)UE-ERRORS-ENG-A:ERR;1 MINI>@l-fi ped,, FILE 108 : (PACK-ONE:SYSTEM)PED-ENG-J:PROG;1 FILE 109 : (PACK-ONE:SYSTEM)PED-ENG-J:INIT;1 FILE 110 : (PACK-ONE:SYSTEM)PED-ENG-J:HELP;1
Note: the first VTM file (ddbtables-c-b:vtm was already on the machine, but PED refused to work on a vt100 terminal (terminal type 6) with that file. As
soon as I had copied over the ddbtables-c:vtm file, ped started working on the vt100 terminal. Cool! PED looks like this:
PED: - ND Program Editor - Version J - 1983-06-30
Line: 1-20 Column: 1-80 Region: MAIN
(..T:.T..T..T.:T..T2.T..T..T.3T..T:.T..T..T.:T..T5.T..T..T.6T..T:.T..T..T.:T..T8
and if you press 'h' (for help)
PED: - ND Program Editor - Version J - 1983-06-30
*** WELCOME TO PED ***
PED HELP MENU - Page 1 ┌────┐
Type │ ─> │ for general info
Type 1 for this chapter └────┘
2 for HOME commands and Menues
3 for general editing keys
4 for keys used to navigate
5 for keys used to mark text areas
6 for keys used to operate on marked areas
7 for functions without special function keys
You can also page through the help with the up and down arrows.
The left and right arrows will show further pages of information
in the current chapter.
┌──────────────────────────────────────────────────────────────┐
│ Type space to make the text reappear │
└──────────────────────────────────────────────────────────────┘
Cool!
2011-02-16: Another try with kermit, this time I try to send files to the ND machine. It turns out that if I issue the kermit command set prefixing all on the unix side first, the transfer succeeds. So the sequence is: - start kermit on the unix side, and do the following kermit commands:
set modem type none set line /dev/ttyU0 set speed 9600 set parity even set flow xon/xoff set carrier-watch off set prefixing all
and then do connect. After that, log in to SINTRAN in the usual way, start kermit and enter 'rec' (receive). Then switch back to the unix kemit
with Ctrl-** (kermit escape) followed by 'C**', and use send localfilename remotefilename. Example:
send ue-errors-eng-a.err ue-errors-eng-a:err
After that, use connect to get to the remote kermit again, enter a new 'rec' and repeat until you have transferred all the files you want.
2011-02-16: Ok, firing up the old machine again, to check things:
MINI>@datcl 00.08.31 18 APRIL 1985 MINI>@updat 44,21,16,2,2000 MINI>@datcl 21.44.02 16 FEBRUARY 2000 MINI>@
That was the "init". Inserted a floppy, and did:
@ent-dir,,f-d
Then:
MINI>@l-d-e,,, DIR INDEX 0 : DISC-21MB-1 UNIT 0 : PACK-ONE DIR INDEX 1 : FLOPPY-DISC-1 UNIT 0 : DDB
and I know the user is system, so let's list the files:
MINI>@l-fi (ddb:system),, FILE 0 : (DDB:SYSTEM)DDB999:VTM;1 FILE 1 : (DDB:SYSTEM)DDB002:VTM;1 FILE 2 : (DDB:SYSTEM)DDB003:VTM;1 FILE 3 : (DDB:SYSTEM)DDB079-A-A:VTM;1 FILE 4 : (DDB:SYSTEM)DDB036:VTM;1 FILE 5 : (DDB:SYSTEM)DDB053:VTM;1 FILE 6 : (DDB:SYSTEM)DDB011:VTM;1 FILE 7 : (DDB:SYSTEM)DDB052:VTM;1 FILE 8 : (DDB:SYSTEM)DDB057:VTM;1 FILE 9 : (DDB:SYSTEM)DDBTABLES-C-B:VTM;1 FILE 10 : (DDB:SYSTEM)DDBTABLES-D-C:VTM;1 MINI>@
Ok, just DDBxxx and DDBTABLES on there.
2010-12-30: some programs, all are currently residing on the user tingo.
MINI>@ftn WARNING; NO SUCH PAGE IN DATA BANK, PROGRAM STARTS AS 1-BANK NORD-10/ND-100 FORTRAN COMPILER FTN-2090I $exit
Ok, a Fortran compiler at least.
MINI>@asm80 Nord 8080/85 cross assembler V1.4 Command format:<source>,<list>,<object>,<command 1>,.. Enter command:help HELP NO SUCH FILE NAME
Hmm, well, ok.
file-data:prog - lists the files on your user, sorted.
MINI>@krymp WARNING; NO SUCH PAGE IN DATA BANK, PROGRAM STARTS AS 1-BANK THIS TERMINAL TYPE IS UNKNOWN TERMINAL TYPE? TERMINAL TYPES ARE: 2:TELETYPE-ASR-33 3:TANDBERG-TDV2115 4:INFOTON-200-1 5:INFOTON-400 11:DEC-LA36 (DECWRITER-II) 36:TANDBERG-TDV2215-EXTENDED 52:TANDBERG-TDV2215-SDS-V2 53:TANDBERG-TDV2200/9-ND NOTIS 57:FACIT-4420-ND NOTIS TERMINAL TYPE? 6 THIS TERMINAL TYPE IS UNKNOWN TERMINAL TYPE? USER BREAK AT 24616 MINI>@
Not really sure what this does.
Some games:
MINI>@eden NO SUCH PAGE
Ok, didn't work.
MINI>@cactus-city WARNING:....YOU"RE NOW ENTERING..... CCCCCCCCC AAAAAA CCCCCCCCCCTTTTTTTTTTTTUUUU UUUU SSSSSSSSS ## # ## CCCC AAA AAA CCCC TTTT UUUU UUUU SSSSS ########## CCCC AAAAAAAAAA CCCC TTTT UUUU UUUU SSSSS ## CCCCCCCCCAAA AAAACCCCCCCCCC TTTT UUUUUUUUUSSSSSSSSSSS ## CCCCCCCCCC IIIITTTTTTTTTTTTYYYY YYYY CCCC IIII TTTT YYYYYYYY CCCC IIII TTTT YYYY CCCCCCCCCCCCIIII TTTT YYYY Do you know the rules....? (Y/N). Cactus City Rules ----------------- You are now entering Cactus City. Here you will encounter Rats(*) and Rattlesnakes(@). To collect points you must annihilate the Rats with your ever-lasting six-shooter. Beware the Rattlesnakes, they can show up anywhere. If they get you ,you lose one of your precious 3 lives. You are always safe in your house! Following commands are legal: 0-zero : PANIC-button, depressing this moves you to a casual position. It can be useful when surrounded by Rattlesnakes or when blocked in all directions. When used your score decreases by 100 points. Space bar :Trigger! 2,4,6,8 : Moves you ONE step down,to the left,to the right or up. The arrows on your left side : Gives you continuos movement. Depress any button when you`re ready . Have a nice time.....
Looks like it doesn't like a vt100.
MINI>@eventyr Hello, this is your friendly Nord-10 computer speaking. The game you'll be playing was originally developed in the U.S., on DEC's PDP-10. The conversion from DEC-10 to Nord-10 has been long and tedious, primarily because of the difference in word length ( 36 vs. 16 bits ). Nevertheless, I think you'll agree that it's been worth the effort. Have fun!! - - - Welcome to Adventure!! Would you like instructions? n You are standing at the end of a road before a small brick building. Around you is a forest. A small stream flows out of the building and down a gully. quit Do you really want to quit now? y OK You scored 32 out of a possible 350 using 1 turns. You are obviously a rank amateur. Better luck next time. To achieve the next higher rating, you need 4 more points.
Ok, this one I remember. Here is a version in Norwegian:
MINI>@hule * * N Y H E T * * * E V E N T Y R * N ] P ] N O R S K !!! I hovedrollene: DVERGER, DRAGER, TROLL, til og med en PRINSESSE. Hvis du liker } l|se g}ter og problemer, vil du elske dette spillet, men tenk litt p} at du krever en hel del av denne stakkars overarbeidede datamaskinen, og dermed sinker den en hel del. LYKKE TIL !!! (Det trenger du!) Velkommen til Skattejakt!! \nsker du } se reglene?
Nice.
MINI>@macman ERROR 24 AT 63373; PRIV. INSTR
Some problem.
2010-12-29: I found a box of floppies that I had saved from the old days. Luckily, it contained printed listings of the contents in each floppy sleeve. To read the files I had to do the following:
create a user in main directory for the user on the floppy: @cre-user 3t-fs.
- give the user space in the main directory:
@give-user-space 3t,10(only 10 pages, as I was not going to copy the files to that user. I don't really know if this step is necessary) - create the destination user for the files, and give him enough space:
@cre-user tingo;@giv-us-space tingo,500. Later I had to expand the space with another 500 pages. - set up the 3t user as a friend:
@cr-friend 3t, and give him access@set-fr-access 3t,rwacd(he probably don't need all of it, but hey).
Then for each floppy I did this (executing user in front):
- insert floppy and close door :-)
- system: enter the directory on the floppy:
@ent-dir,,f-d(f-d is floppy-device, at this point you don't know the directory name unless you have a printout of what's on the floppy) - system: check the directory name:
@li-dir-ent,,,(here you will find out the name of the directory entered) - 3t: list the files:
@l-fi (DIR-NAME:3t),,(where DIR-NAME is the name of the directory, or a shortened form of it. I tried without the user, but it didn't work) - 3t: copy the files, one by one:
@cop-fi "(tingo)filename:ext" (DIR-NAME:3t)filename:ext(you need the quotes, as the destination file doesn't exist.) - system: release the directory:
@rel-dir DIR-NAME - open the floppy door and take out the floppy
It was a long-winded process, but I was able to read all but one of the floppies. Cool!.
2010-12-29: So, a normal startup of the machine is like this:
- verify that the ND terminal is connected as the console.
- plug in power cables for the terminal and the machine.
- power on the terminal, you will get an audible signal (a beep) when it is ready.
- power on the machine, it starts up with the the power (green) and operator (yellow) lights on. When the operator lights turns off and the run (green) light turns on the machine is running.
- wait until the message === SYSTEM IS AVAILABLE === is printed on the console.
- press Escape, log in (as user SYSTEM) and set the clock with the command @UPDAT.
Now you are ready to do stuff. I normally connect a null-modem cable to the terminal port labeled "4" (aka terminal 38) on the back of the machine,
and connect it to a usb-to-serial adapter on my FreeBSD workstation. From there I run cu -e -l /dev/cuaU0 -s9600 which connects me to the machine. Then
I log in, and set the correct terminal type with the command @s-t-t 38,6 (6=vt100).
Lets look at the reentrant subsystems we have available:
MINI>@li-ree START RESTART SEGMENT NAME 0 1 122 BACKUP-SYSTEM-F 0 0 123 PERFORM 0 1 124 QED 0 1 125 BASIC 0 1 126 ED 0 1 127 NRL 11 12 130 PASCAL-J 400 400 131 DAMBU 0 1 132 NOTIS-WP-NOR-K 177777 177777 133 NOTIS-TF-NOR-K
Ok, Notis-WP will not run on a vt100 (I tried), but let's check out the others.
MINI>@backup-system BACKUP-SYSTEM / F00 84.11.12 Ba-sy:
and exit gets me out of it.
MINI>@perform PERFORM 2412E :MCRO Filename (Default = PERFORM-LIBRARY) : Macro name (Default = FTN) : ? Macros available on PERFORM-LIBRARY:MCRO FTN; *** Macro to compile a FTN program *** FTNRUN; *** Macro to compile and load FTN program *** COBOL; *** Macro to compile a COBOL program *** COBRUN; *** Macro to compile and load COBOL program *** COBDEBUG; *** Macro to compile and debug a COBOL program *** PASCAL; *** Macro to compile a PASCAL program *** PASRUN; *** Macro to compile and load PASCAL program *** BASIC; *** Macro to compile BASIC program *** BASRUN; *** Macro to compile and load BASIC program *** CREDIR; *** Macro to create a dir. and user on floppy *** CREDIR610; *** Macro to create a dir. and user on floppy *** Macro name (Default = FTN) :
and ESCape gets me out of it.
MINI>@qed QED 4.3 *
I didn't remember any QED commands, so I had to ESCape out of it too.
MINI>@basic - BASIC COMPILER, JANUARY 81. READY HELP LOAD LIST CLEAR SET-LOAD-ADDRESS UPPER-LIMIT EXIT COMPILE OBLIST CLC ENTRIES-UNDEFINED RUNH DEFINE RUN X-LOAD ENTRIES-DEFINED DEPOSIT FIX RENUMBER SAVE EDIT DELETE CONTINUE IDENTIFIERS-USED IGNORE-MATRIX-CHECK BREAK BYE NEXT-LINE RECOMPILE HELP OLD NEW LIBRARY TABLE-SIZES LISTH DEFAULT-INTEGER DEFAULT-REAL N100-REAL-OVERFLOW-CHECK BYE
The BASIC compiler only accepts commands in upper case, it seems.
ED is a full screen editor (which one?)
* LINE: 1 - 20 COLUMN: 1 - 80 (...T...T1..T.:.T..2T...T...T3..T.:.T..4T...T...T5..T.:.T..6T...T...T7..T.:.T..8 and *** Type a new command to leave help mode. *** == Editor 3.3 (1981 04 30) Rev. X4 (1985 07 04) == *** DIRECT COMMANDS *** *** Use .HELP <Output file> (Full command) to dump info onto a file.*** R Read from file .. F Display first window W Write to file .. N / DOWN Next window A Append to file .. P / UP Previous window + Advance 5 lines L / DOLLAR Last window - Rewind 5 lines H / ? Help M Move to line .. 0 / SPACE Redisplay current window D Delete lines .. LEFT/RIGHT Move window left or right T Set-tabulators .. . Set/reset full command mode B Set-borders .. O Define macro .. X List default file .. <Z> Recall last command I Insert lines .. @ Sintran command .. G Get (find) string .. S Substitute string .. E Exit Q Sort area .. C Compile main file Z Save a copy of area .. J Format main file V Evaluate expression .. *** Note that the up- and down- arrows can be used to page *** *** forwards and backwards in "help"-mode too. ***
Well it is better than QED. And use the 'E' command to exit. Nice.
MINI>@nrl RELOCATING LOADER LDR-1935I *exit
It is nice to have NRL (NORD Relocating Loader) available.
MINI>@pascal PASCAL/ND-100 VERSION J 83-12-07 $help Pascal commands: CLEAR COMPILE ENDIF EOF EXIT HELP IFFALSE IFTRUE INCLUDE LINESPP OPTIONS PAGE RESET RUN SET VALUE $exit
Ok, Pascal is there too.
DAMBU doesn't want to run on a vt100:
MINI>@dambu *** TERMINAL TYPE 6 IS UNKNOWN TO DAMBU. IF TYPE 6 IS KNOWN TO BE CORRECT, THIS MEANS YOU CAN NOT USE DAMBU ON THIS TERMINAL AT THE MOMENT, AND YOU SHOULD JUST PRESS THE ESCAPE-KEY AND TRY ANOTHER TERMINAL. PLEASE CONTACT NORSK DATA TO OBTAIN A VTM-FILE FOR THIS TERMINAL. IF TYPE 6 HAS BEEN SET WRONG BY MISTAKE, YOU MAY NOW CORRECT IT REFERRING TO A LIST OF TERMINAL-TYPES AND ASSOCIATED TYPE NUMBERS, WHICH WILL BE PRESENTED TO YOU WHEN YOU PRESS RETURN-KEY. YOU SHOULD SPECIFY THE NUMBER ASSOCIATED WITH YOUR TYPE OF TERMINAL. *** IMPORTANT, PLEASE NOTE: *** IF SPECIFICATION OF TERMINAL-TYPE RESULTS IN 'NO SUCH FILE NAME' AND ANOTHER LISTING OF THE DIFFERENT TYPES, YOU SHOULD PRESS THE ESC-KEY AND USE SINTRAN-COMMAND @SET-TERMINAL-TYPE TO SPECIFY TYPE. THEN TRY @DAMBU AGAIN. CONTACT YOUR TEACHER OR OPERATOR IF NECESSARY. PRESS RETURN-KEY TO GET THE LIST.
and the list
NO SUCH FILE NAME TERMINAL TYPES ARE: 2:TELETYPE 3:TANDBERG-TDV2115 11:DEC-LA36 (DECWRITER-II) 36:TANDBERG-TDV2215-EXTENDED 52:TANDBERG-TDV2215-SDS-V2 53:TANDBERG-TDV2200/9-ND NOTIS 57:FACIT-4420-ND NOTIS TERMINAL TYPE?
Ok, so DAMBU won't work on the vt100.
MINI>@notis-tf NOTIS-TF av 14/11/1983 SUT-10079K Inndata fil?
Hmm, I don't have any files for NOTIS-TF here just now...
MINI>@notis-wp THIS TERMINAL TYPE IS UNKNOWN TERMINAL TYPE? 6 THIS TERMINAL TYPE IS UNKNOWN TERMINAL TYPE? THIS TERMINAL TYPE IS UNKNOWN TERMINAL TYPE? USER BREAK AT 165752 MINI>@
Yep, NOTIS-WP doesn't want to run on a vt100.
2010-12-06: file transfer: I found Kermit on a floppy, and installed it on user SYSTEM. Here is Kermit:
MINI>@kermit NTH Kermit for ND-10/100 Version 3.1b Kermit-ND>help Kermit is a file transfer program. It allows the transfer of files over terminal lines from a remote Kermit program to the local Kermit program. Kermit-ND can only be run in remote mode. Transfers take place over the controlling terminal line. Currently files have to be transmitted from Kermit-ND one at a time. Additional information available : EditChars EXIT HELP QUIT RECEIVE SEND SET STATISTICS Item ? >
Now all I need is a kermit for my unix machine. Tried with kermit from ports, which is C-kermit 8.0. It works, but it is unreliable. Possible because the ND kermit is very old?
2010-12-06: date and time: well, if you use 4 digits in the year, it works (doh!):
MINI>@datcl 00.02.46 18 APRIL 1985 MINI>@updat MINUTE: 35 HOUR: 20 DAY: 6 MONTH: 12 YEAR: 1999 MINI>@datcl 20.35.02 6 DECEMBER 1999
I wonder what happens if I try to set year 2k? It works:
MINI>@updat MINUTE: 43 HOUR: 20 DAY: 6 MONTH: 12 YEAR: 2000 MINI>@datcl 20.43.02 6 DECEMBER 2000
How about the current year? Nope, that doesn't work:
MINI>@updat MINUTE: 44 HOUR: 20 DAY: 6 MONTH: 12 YEAR: 2010 ERROR 11 AT 117676; ILL. PAR IN UPDAT Nor does 2001: MINI>@updat MINUTE: 47 HOUR: 20 DAY: 6 MONTH: 12 YEAR: 2001 ERROR 11 AT 117676; ILL. PAR IN UPDAT
Well, at least we know.
2010-12-04: I'm having trouble with setting the date and time:
MINI>@datcl 03.35.31 18 APRIL 1985 MINI>@
Ok, since the system isn't going to like anything after 2000, let's try something else:
MINI>@updat MINUTE: 15 HOUR: 01 DAY: 04 MONTH: 12 YEAR: 89 ERROR 11 AT 117676; ILL. PAR IN UPDAT MINI>@updat MINUTE: 15 HOUR: 01 DAY: 18 MONTH: 04 YEAR: 85 ERROR 11 AT 117676; ILL. PAR IN UPDAT MINI>@updat MINUTE: 16 HOUR: 1 DAY: 4 MONTH: 12 YEAR: 85 ERROR 11 AT 117676; ILL. PAR IN UPDAT MINI>@updat MINUTE: 16 HOUR: 1 DAY: 4 MONTH: 12 YEAR: 00 ERROR 11 AT 117676; ILL. PAR IN UPDAT MINI>@
Strange - it doesn't work.
2010-12-03: I connected a serial interface to my workstation, and now can cut and paste from the xterm where I am running cu. Cool!
root@kg-v2# cu -e -l /dev/cuaU1 -s9600 Connected 02.40.53 18 APRIL 1985 SINTRAN III - VSE J ENTER system PASSWORD: PROJECT PASSWORD: PROJECT NAME: 0 OK MINI>@
Let's find out which terminal I am using:
MINI>@who ===> 38 SYSTEM 670 SYSTEM 672 SYSTEM
Ok, so I am terminal 38. Let's see the users we have on the system:
MINI>@li-users,,, USER 0 : PACK-ONE:SYSTEM USER 1 : PACK-ONE:RT USER 2 : PACK-ONE:SCRATCH USER 3 : PACK-ONE:FLOPPY-USER USER 4 : PACK-ONE:BPUN-FILES USER 5 : PACK-ONE:SKU USER 6 : PACK-ONE:UTILITY USER 7 : PACK-ONE:GS36 USER 12 : PACK-ONE:EDITOR USER 14 : PACK-ONE:DAMBU
Nice. Let's set the terminal type to 6 (vt100), since I am on an xterm:
MINI>@s-t-t 38 TERMINAL TYPE: 6 MINI>@g-t-t 38 TERMINAL TYPE: 6 MINI>@
Now I can run full screen programs. 2010-12-03: when I now power on the ND-100, it boots straight into SINTRAN III from the disk drive. Yay!
2010-11-30: After testing the hard drive (fixed disk drive) in the machine, I chanced a start of SINTRAN III from the disk. Here is the transcript (handwritten):
MACL & BATCH NUMBER= 1 *** 00.01.14 TERMINAL 670: PLEASE UPDATE THE CLOCK IF NECESSARY!! 00.01.15 18 APRIL 1985 SINTRAN III - VSE J REVISION: 4000 CPU (SYSTEM NUMBER): 135 GENERATED: 00.01.00 18 APRIL 1985 SINTRAN III RUNNING - PAGES FOR SWAPPING (OCT.): 253 ND-100 PANEL CLOCK INCORRECT 00.01.16 ERROR 23 AT 20327; DEVICE ERROR HARDW.DEV.NO.: 350; STATUS: 0 *** 00.01.19 TERMINAL 670: === SYSTEM IS AVAILABLE ===
And then I could press Escape, and was greeted with this:
00.01.45 18 APRIL 1985 SINTRAN III - VSE J ENTER
I logged in as user SYSTEM (lucky guess on the password), and got this prompt:
MINI>@
Oh yes, this is nice.