– 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 *
ITS can now be had from GitHub:
http://github.com/PDP-10/its
Wow, thanks for the update, Lars!