– Cómo hacer un backup:
.VAL 0; 66753>>HRLM 1,114040
^C
:
--- aqui pulso ^\
*[HALTED: FE interrupt]
KLH10> devmount mta0 tape1 rw
Mount requested: "tape1"
KLH10> [mta0: Tape online]
cont
Continuing KN10 at loc 05600...
PI ITS revived!
:massacre
*:dump
(Please Log In)
DUMP .443
*** WRONG VERSION OF DUMP--ASSEMBLED FOR KN BUT RUNNING ON PI ***
*** CERTAIN TAPE OPERATIONS WON'T BE ALLOWED ***
_
--- pulso ^Z :sl <enter> wrong/0 〈ENTER〉 y $P (esc p)
6146) .IOT 5,1 :sl
*wrong/'DUMPER$: -1 0
$p
PFTHMG DRAGON CHANNA _DRGN_ TIMES WRITE 19:12:14
PFTHMG DRAGON CHANNA LOGOUT TIMES DELRNM 19:12:14
dump full links
--- Nombre de la cinta : tape1
TAPE NO=tape1
___002 DUMP SYSENG MACRO TAPES WRITE 19:12:34
___002 DUMP SYSENG MACRO TAPES WRITE 19:13:34
REEL 0 FIRST USER = . LAST USER = TEACH
_icheck
E-O-T
_quit
--- volvemos al monitor de klh10 con ^\
:KILL
*[HALTED: FE interrupt]
KLH10> devunmount mta0
Unmount requested
KLH10> [mta0: Tape offline]
KLH10> cont
Continuing KN10 at loc 05600...
PI ITS revived!
– ver los procesos (equivalente a un ps)
*:peek
New system version; must repurify.
Take paws off keys and wait.
%CFOFF?%CFSTS?%CFCLS?%CFSTY?%SWOUT?%SWLOD?%SWSB?IPKSNC?NSUBNT?MYCHAD?%PKNOF?PK.!
HSP?PK.HST?CHNPI?CHNPO?CHNPF?CHNSTS?CHNSNS?CHNRTR?CHNPFL?CHNPD?CHNABT?CHNCRC?CH!
NCR2?CHNWLE?CHNPLE?CHNLOS?CHNSPZ?CHTTBF?CHFRBF?CHQRFC?CHQLSN?CHNIPI?CHNIPO?CHSU!
SR?CHSSTA?CHSNBF?CHSNOS?CHSFRN?CHSACK?CHSPKN?CHSWIN?CHSIBP?CHSOBP?SBNRUT?UWRKST!
?USVWRK?USWTIM?TRCTBL?
:PDUMP DSK:SYS;TS PEEK
*GO$G'PEEK$:
MD ITS 1647 Peek 632 5/11/08 00:21:02 Up time = 2:43:02
Memory: Free=303 Runnable Total=11 Out=0 Users: High=12 Runnable=1
Index Uname Jname Sname Status TTY Core Out %Time Time PIs
0 SYS SYS SYS HANG ? 55 0 0%
1 CORE JOB CORE UUO ? 0 0 0%
2 COMSAT JOB.07 SYS HANG ? 4 1 0%
3 COMSAT IV IV HANG ? 30 9 0%
4 ___004 HACTRN USERS2 HANG > 30 9 0%
6 ___004 LISP USERS2 TTYI T0 56 0 0%
5 PFTHMG DRAGON DRAGON HANG ? 6 0 0%
7 11TLNT TELSER 060124 SLEEP ? 1 0 0%
10 PACO HACTRN SYS HANG > C 33 9 0%
11 PACO PEEK USERS2 +TTYBO T11 11 0 3%
Fair Share 4% Totals: 226 3% 1
Logout time = 1 Lost 0% Idle 4% Null time = 14
– Como acceder en red ..
root@pruebas2:/mnt/hdb1/paco# route add -net 192.168.0.0 netmask 255.255.255.0 gw 172.24.96.3
root@pruebas2:/mnt/hdb1/paco# exit
exit
paco@pruebas2:~$ ping 192.168.0.203
PING 192.168.0.203 (192.168.0.203) 56(84) bytes of data.
64 bytes from 192.168.0.203: icmp_seq=1 ttl=59 time=0.675 ms
64 bytes from 192.168.0.203: icmp_seq=2 ttl=59 time=0.658 ms
64 bytes from 192.168.0.203: icmp_seq=3 ttl=59 time=0.664 ms
64 bytes from 192.168.0.203: icmp_seq=4 ttl=59 time=0.681 ms
64 bytes from 192.168.0.203: icmp_seq=5 ttl=59 time=0.669 ms
64 bytes from 192.168.0.203: icmp_seq=6 ttl=59 time=0.668 ms
--- 192.168.0.203 ping statistics ---
6 packets transmitted, 6 received, 0% packet loss, time 4997ms
rtt min/avg/max/mdev = 0.658/0.669/0.681/0.016 ms
paco@pruebas2:~$ telnet 192.168.0.203
Trying 192.168.0.203...
Connected to 192.168.0.203.
Escape character is '^]'.
MIT Mostly Development PDP-10
Welcome to PI!
Please do ":PRINT HACK;PI NEWS" for help.
MD ITS.1647. DDT.1545.
TTY 11
You're all alone, Fair share = 1%
– Usar MD en lugar de PI y lanzar maclisp con los primeros ejemplos de pitmanual
~/ITS$ ./kn10-ks klh10-md.ini
KLH10 V2.0A release (MyITS) built May 10 2008 10:40:00
Copyright � 2001 Kenneth L. Harrenstien -- All Rights Reserved.
This program comes "AS IS" with ABSOLUTELY NO WARRANTY.
Compiled for LINUX on I386 with word model USEHWD
Emulated config:
CPU: KS10 SYS: ITS Pager: ITS APRID: 759
Memory: 512 pages of 1024 words (SHARED)
Time interval: INTRP Base: OSGET Quantums: OSVIRT
Interval default: 60Hz
Internal clock: OSINT
Other: JPC DEBUG PCCACHE CTYINT IMPINT EVHINT
Devices: RH11 RPXX(DP) TM03(DP) DZ11 CH11 LHDH(DPIMP)
[MEM: Allocating 512 pages shared memory, clearing...done]
KLH10> ; KLH10 emulator configuration for MD ITS system.
KLH10>
KLH10> ; Define basic KS10 device config - two RH11s each on its own Unibus
KLH10>
KLH10> devdef rh0 ub1 rh11 addr=776700 br=6 vec=254
KLH10> devdef rh1 ub3 rh11 addr=772440 br=6 vec=224
KLH10>
KLH10> ; Provide one disk, one tape in config ITS expects
KLH10>
KLH10> devdef dsk0 rh0.0 rp type=rp06 format=dbd9 path=PI-ITS-RP06.0-dbd9 iodly=0
KLH10> devdef mta0 rh1.0 tm02 fmtr=tm03 type=tu45
KLH10>
KLH10> ; ITS wants a 60Hz clock, allow it. Need this until defaults OK.
KLH10> set clk_ithzfix=60
clk_ithzfix: 60. => 60.
KLH10>
KLH10> ; Define IMP for MD
KLH10> devdef imp ub3 lhdh addr=767600 br=6 vec=250 ipaddr=192.168.0.203 gwaddr=192.168.0.2
KLH10>
KLH10> ; Dummy definitions. Only one DZ is still (apparently) needed.
KLH10> devdef dz0 ub3 dz11 addr=760010 br=5 vec=340
KLH10> ;devdef dz1 ub3 dz11 addr=760020 br=5 vec=350
KLH10> ;devdef chaos ub3 ch11 addr=764140 br=5 vec=270
KLH10>
KLH10> ; Define new HOST device hackery
KLH10> devdef idler ub3 host addr=777000
KLH10>
KLH10> ; Preload ITS for convenience
KLH10> load @.its-647md-u
Using word format "u36"...
Loaded "@.its-647md-u":
Format: ITS-SBLK
Data: 65468, Symwds: 0, Low: 01, High: 0777266, Startaddress: 0144430
KLH10>
KLH10> ; go 774000 ; to start DDT, else "go" to start ITS
KLH10>
KLH10> [EOF on klh10-md.ini]
KLH10> go
Starting KN10 at loc 0144430...
Salvager 260
.TEMP. has no files, User File Directory DELETED
.MSGS. has no files, User File Directory DELETED
[dpimp: Using default interface "eth0"]
[dpimp: ifc "eth0" => ether 0:1d:92:62:cf:6f]
[dpimp: inet 172.24.96.3]
[dpimp: netmask 255.255.255.0]
[dpimp: net 172.24.96.0]
[dpimp: HOST: 192.168.0.203]
[dpimp: gwdef 192.168.0.2]
[dpimp: no native ARP entry, assuming shared ifc]
IT IS NOW 8:25:59 PM EDT, SATURDAY, MAY 10,2008
MD ITS 1647 IN OPERATION AT 20:25:59
MD ITS 1647 SYSTEM JOB USING THIS CONSOLE.
LOGIN TARAKA 0 20:25:59
MD ITS.1647. DDT.1545.
TTY 0
You're all alone, Fair share = 1%
:inquir
SYS: SYS3; TS INQUIR - NON-EXISTENT DIRECTORY
IT IS NOW 8:26:39 PM EDT, SATURDAY, MAY 10,2008
:lisp
(Please Log In)
LISP 2149
Alloc? y
# REGPDL = 10000
# SPECPDL = 4000
# FXPDL = 4000
# FLPDL = 2000
LIST = 40000
SYMBOL = 6000
FIXNUM = 14000
FLONUM = 2000
BIGNUM = 2000
ARRAY = 1000
*
:lisp
;:LISP UNBOUND VARIABLE
(setq x '(hi there))
(HI THERE)
(car x)
HI
(+ 3 4)
7
(zerop 17)
NIL
(+ 5 5)
12
--- esto es correcto :) maclisp opera por defecto en octal
(atom 3)
T
(setq x (list 'a 'b) y (list 'a 'b))
(A B)
(equal '(a b) '(a b))
T
(= 3 'foo)
;FOO NON-NUMERIC VALUE
(eval '((lambda (x) (plus x x)) 2.5))
5.0
(eval '(+ (* 2 3) 1))
7
(progn (setq x 'a y 'b)
(psetq x y y x)
(list x y))
;Loading DEFMAX 98
;Loading MLMAC 92
(B A)
– como ver el directorio de lisp:
:listf ts lisp;
PI LISP
FREE BLOCKS #0=17573
0 -READ- -THIS- 1 ! 3/21/84 13:52:46
0 .FASL DEFS 7 ! 5/4/81 10:17:12
0 @ FASL 5 ! 7/24/81 10:53:43
0 ALLFIL FASL 2 ! 2/23/79 17:24:57
0 BACKQ FASL 1 ! 8/19/81 18:33:42
0 BACKQ OFASL 1 ! 12/23/80 17:33:55
0 BITS FASL 4 ! 1/23/82 17:02:00
0 BITS OFASL 3 ! 1/23/82 16:30:34
0 BITS OOFASL 3 ! 11/10/81 20:40:10
0 BLTARR FASL 1 ! 4/2/81 05:56:58
L BS FASL LIBLSP BS FASL
0 BUG MAIL 39 ! 10/5/87 12:42:54
0 CERROR FASL 2 ! 7/6/81 19:42:28
0 CERROR OFASL 2 ! 5/18/81 20:35:14
0 CGOL FASL 10 ! 4/6/82 20:22:25
0 CGOL QFASL 10 ! 2/9/82 00:10:49
0 CGPRIN FASL 5 ! 1/24/81 05:54:46
0 CNVD FASL 1 ! 7/5/81 08:01:30
L DEBUG FASL LIBLSP DEBUG FASL
0 DEFMAC FASL 5 ! 10/17/81 11:53:57
0 DEFMAC OFASL 5 ! 8/1/81 15:26:42
0 DEFMAX FASL 2 ! 12/8/81 14:42:50
0 DEFMAX OFASL 2 ! 7/31/81 20:02:24
0 DEFMAX OOFASL 2 ! 6/15/81 16:25:09
L DEFNS MID L DEFNS >
0 DEFSET FASL 2 ! 7/24/81 10:48:37
0 DEFSET OFASL 2 ! 6/4/81 22:49:38
0 DEFVST FASL 3 ! 12/8/81 16:21:39
0 DEFVST OFASL 3 ! 8/21/81 21:31:05
0 DEFVSX FASL 3 ! 12/8/81 14:34:29
0 DEFVSX OFASL 3 ! 10/21/81 14:49:49
0 DEFVSY FASL 2 ! 12/8/81 14:33:36
0 DEFVSY OFASL 2 ! 7/7/81 05:23:18
0 DESCRI FASL 2 ! 12/8/81 14:48:18
0 DESCRI OFASL 2 ! 4/10/81 02:05:15
0 DRAMMP FASL 3 ! 10/20/81 09:51:33
0 DRAMMP OFASL 4 ! 3/3/81 19:09:49
0 DUMPAR FASL 1 ! 3/13/81 08:08:15
0 EDIT FASL 2 ! 4/25/80 16:59:47
0 ERRCK FASL 2 ! 8/8/81 15:21:55
0 ERRCK OFASL 2 ! 5/21/81 07:49:53
0 EVONCE FASL 1 ! 12/1/80 14:06:49
0 EXTBAS FASL 1 ! 12/18/81 17:59:47
0 EXTBAS OFASL 1 ! 12/8/81 14:31:44
0 EXTBAS OOFASL 1 ! 11/1/81 16:25:44
0 EXTEND FASL 5 ! 1/23/82 15:56:01
0 EXTEND OFASL 5 ! 1/23/82 16:28:40
0 EXTEND OOFASL 5 ! 12/8/81 16:13:09
0 EXTHUK FASL 2 ! 12/8/81 15:33:25
0 EXTHUK OFASL 2 ! 11/10/81 16:08:47
0 EXTMAC FASL 4 ! 12/18/81 18:39:21
0 EXTMAC OFASL 4 ! 12/8/81 16:11:56
0 EXTSFA FASL 2 ! 8/15/81 14:21:43
0 EXTSFA OFASL 1 ! 3/28/81 21:41:22
0 EXTSTR FASL 2 ! 12/8/81 16:10:17
0 EXTSTR OFASL 2 ! 11/1/81 16:20:19
0 FLRMAT FASL 3 ! 12/16/80 18:03:03
0 FORMAT BRACK 1 ! 8/29/82 19:37:43
0 FORMAT EXTEND 1 ! 2/9/81 20:13:02
0 FORMAT FASL 6 ! 8/29/82 19:34:49
0 FORMAT FLOAT 2 ! 8/29/82 19:36:31
0 FORMAT HAIR 2 ! 2/9/81 20:12:23
0 FORMAT INVOKE 1 ! 6/11/81 22:32:05
0 FORMAT ITER 1 ! 2/9/81 20:12:44
0 FORMAT MACROS 1 ! 2/9/81 20:13:14
0 FORMAT NUM 2 ! 8/29/82 19:38:03
0 FORMAT UMACS 1 ! 8/29/82 19:38:23
0 FUNCEL FASL 1 ! 10/24/81 09:15:05
0 FUNCEL OFASL 1 ! 2/21/81 20:36:00
0 GCDEMN FASL 2 ! 11/9/81 16:12:29
0 GCDEMN OFASL 2 ! 2/28/81 20:29:26
0 GETMID FASL 2 ! 12/6/80 13:21:09
0 GFILE FASL 2 ! 2/8/80 00:56:12
0 GFN FASL 5 ! 10/20/81 07:33:11
0 GFN OFASL 5 ! 4/6/81 03:41:30
L GRIND FASL LISP GFILE FASL
L GRINDE FASL LISP GFN FASL
0 HUMBLE FASL 2 ! 5/14/80 11:53:58
L ITSBTS 1 SYS ITSBTS >
L ITSDFS 4 SYS ITSDFS >
0 LAP FASL 3 ! 5/31/81 14:44:59
0 LCHNSP FASL 1 ! 5/5/80 12:10:56
0 LDBHLP FASL 1 ! 9/20/80 15:11:37
0 LEDIT FASL 2 ! 2/27/81 19:21:25
0 LET FASL 3 ! 6/9/81 18:13:12
0 LEXPRF FASL 1 ! 7/10/81 18:29:13
L LISP NEWS LSPMAI LISP NEWS
L LISP RECENT LSPMAI LISP RECENT
0 LISPT FASL 6 ! 5/16/80 14:15:52
0 LOCK 224 1 ! 8/9/83 16:48:50
0 LOCK 229 1 ! 3/23/84 15:20:52
0 LOCK 231 1 ! 4/13/84 09:02:48
0 LOCK MAIL 1 ! 7/24/83 02:01:37
0 LOCK OMAIL 3 ! 12/9/81 21:38:04
0 LOCK REPORT 1 ! 12/16/81 19:39:44
0 LODBYT FASL 3 ! 12/9/80 13:29:17
L LOOP FASL LIBLSP LOOP FASL
0 LSETS FASL 1 ! 7/25/81 07:40:15
0 LSETS OFASL 1 ! 6/4/81 21:46:03
0 LSPTTY 100QIO 2 ! 4/24/81 04:36:34
0 LSPTTY 122QIO 2 ! 8/1/81 01:54:33
0 LSPTTY 138QIO 2 ! 6/16/83 04:09:02
0 LSPTTY 144QIO 2 ! 1/22/84 06:43:04
0 LSPTTY 149QIO 2 ! 4/21/86 00:47:29
0 MACAID FASL 4 ! 10/31/81 10:32:00
0 MACAID OFASL 4 ! 10/27/81 12:40:55
0 MACLIS LISP 1 ! 7/10/81 17:19:01
L MACLIS SHARAB LISP MACLIS LISP
0 MLMAC FASL 4 ! 11/17/81 13:15:34
0 MLMAC OFASL 4 ! 8/26/81 16:15:53
0 MLSUB FASL 2 ! 8/1/81 14:39:44
0 MLSUB OFASL 2 ! 7/17/81 11:59:54
0 NADEFV FASL 6 ! 12/9/81 19:47:28
0 NADEFV OFASL 6 ! 8/21/81 21:50:09
0 NALET FASL 3 ! 6/9/81 18:18:48
0 NALOOP FASL 8 ! 8/11/81 22:43:12
0 NEW RECENT 2 ! 9/14/82 04:13:14
L NILAID FASL LSPSRC NILAID FASL
0 PUREP FASL 1 ! 3/12/80 04:56:08
L PURQIX 1997 SYS PURQIO 1997
0 QUERIO FASL 2 ! 10/17/81 08:41:49
0 QUERIO OFASL 2 ! 6/25/81 22:06:03
0 REAP FASL 1 ! 6/2/80 09:48:02
L SAIDFS 314159 SYS SAIDFS >
0 SENDI FASL 1 ! 7/4/81 21:04:39
0 SETF FASL 5 ! 11/4/81 11:14:55
0 SETF OFASL 5 ! 8/14/81 14:06:02
0 SHARAB LISP 1 ! 4/4/81 23:22:20
0 SHARPA FASL 2 ! 7/7/81 03:05:11
0 SHARPC FASL 3 ! 7/5/81 01:40:53
0 SHARPM FASL 3 ! 1/23/82 18:02:15
0 SHARPM OFASL 3 ! 11/7/81 15:43:11
0 SHARPM OOFASL 3 ! 6/9/81 18:43:41
0 SORT FASL 1 ! 9/23/81 17:33:43
0 SORT OFASL 1 ! 11/22/78 04:34:54
0 STRAUX FASL 3 ! 11/7/81 16:26:29
0 STRAUX OFASL 3 ! 9/2/81 19:13:52
0 STRING FASL 9 ! 11/12/81 16:16:48
0 STRING OFASL 9 ! 9/2/81 22:07:44
L STRUCT FASL LIBLSP STRUCT FASL
0 SUBLOA FASL 1 ! 7/5/81 14:15:01
L SUBLOA LSP NILCOM SUBLOA >
0 SUBSEQ FASL 3 ! 10/27/81 11:03:53
0 SUBSEQ OFASL 3 ! 7/31/81 22:52:58
0 TAPEXX 55 3 ! 11/25/80 18:08:43
0 THREAD FASL 2 ! 9/29/81 13:40:43
0 THREAD LFASL 2 ! 9/29/81 13:25:53
0 TRACE FASL 3 ! 1/29/81 10:33:27
L TTY FASL LIBLSP TTY FASL
0 UMLMAC FASL 3 ! 7/30/81 18:52:21
0 UMLMAC OFASL 2 ! 5/13/81 19:20:03
0 VECTOR FASL 3 ! 1/23/82 15:52:48
0 VECTOR OFASL 3 ! 1/23/82 16:32:05
0 VECTOR OOFASL 3 ! 11/10/81 19:48:00
0 YESNOP FASL 1 ! 9/1/81 18:35:30
0 YESNOP OFASL 1 ! 6/3/81 21:49:30
*