DEC DUP-11 communications card
Jotting this down, "recipe" thanks to kind souls (initials of RLA and RV probably show up in the recipe execution) ... to be wrapped up over time ...
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ##### | |
| # We bump up the number of DUP lines on TWONKY | |
| # dup0 = DECNET | |
| # dup1 - dup3 = ANF10 | |
| # | |
| # We do 4 lines because SimH allows 4 lines | |
| # | |
| # NOTE: We can have 8 DUP lines on TWONKY but running it under | |
| # SimH's support of max 4 lines causes numerous problems | |
| # So stick to 4 DUP lines | |
| # | |
| # I have simply followed instructions from gurus at HECnet | |
| # For more information on patching TOPS-10 7.04 NET on KS10 processor | |
| # please reach out to HECnet: http://www.update.uu.se/~bqt/hecnet.html | |
| ##### | |
| localuser@myhostname:~/simh.run/twonky/bin$ screen -r twonky | |
| BOOT>[1,5]SYSTEM | |
| [Loading from DSKA:SYSTEM.EXE[1,5]] | |
| SIMH KS10 TWONKY 7.04NET 15-Nov-21 | |
| Why reload: SCHED | |
| Date: | |
| Time: | |
| Startup option: GO | |
| [Rebuilding the system search list from the HOM blocks] | |
| [Rebuilding the active swapping list from the HOM blocks] | |
| [Rebuilding the system dump list from the HOM blocks] | |
| SIMH KS10 TWONKY 7.04NET 00:09:12 CTY system 4998 | |
| Connected to Node TWONKY(37) Line # 32 | |
| .LOGIN 1,2 | |
| .R OPR | |
| [CCPWFD Waiting for file daemon to start] | |
| %% Node VENTI(20) up at :09:18 | |
| %%TTY STOMPER - Not starting | |
| %FRCLIN INITIA - Logging out | |
| %% Node HUGIN(2) up at :09:20 | |
| %% Node MUNIN(3) up at :09:23 | |
| OPR> | |
| 0:09:25 -- Message from the Accounting System -- | |
| Account validation is not required | |
| 0:09:27 -- Network topology -- | |
| Nodes on-line: | |
| BALDER (4) ODEN (1) MUNIN (3) HUGIN (2) VENTI (20) | |
| 0:09:27 -- Begin auto take file -- | |
| File: SYS:SYSTEM.CMD[1,4] | |
| 0:09:27 -- End auto take file -- | |
| 36 lines processed | |
| OPR> | |
| 0:09:28 Reader 0 -- Started -- | |
| OPR> | |
| 0:09:29 FAL-Stream 0 -- Started -- | |
| OPR> | |
| 0:09:35 FAL-Stream 1 -- Started -- | |
| OPR>enter ncp | |
| NCP>take nodnam.cmd | |
| 0:10:04 NCP | |
| Request # 9; Set Node Completed | |
| 0:10:04 NCP | |
| .... | |
| .... | |
| Request # 926; Set Node Completed | |
| 0:10:26 NCP | |
| Request # 927; Set Node Completed | |
| 0:10:26 NCP | |
| Request # 928; Set Node Completed | |
| NCP>return | |
| OPR>exit | |
| .net | |
| [ANF10 network: connected to TWONKY(37), located at TWONKY(37), 6 nodes] | |
| Node ODEN (1) Oden Tops10 7.04 12-Nov-21 | |
| Node HUGIN (2) HUGIN Tops10 7.04 12-Nov-21 | |
| Node MUNIN (3) MUNIN Tops10 7.04 12-Nov-21 | |
| Node BALDER (4) BALDER Tops10 7.04 12-Nov-21 | |
| Node VENTI (20) SIMH KS10 VENTI 7.04 NET 18-Nov-21 | |
| Node TWONKY (37) SIMH KS10 TWONKY 7.04NET 15-Nov-21 | |
| [DECnet network: local node TWONKY, 51 reachable nodes in area 31] | |
| (31.153) AHIMSA CAIR CGOING CLOUDY CSHORE FEDACH FOMFOR IBM390 | |
| IMPRTR | |
| IMPVAX JUICHI KARMA KETURA LV MACOS7 MACOS9 MOKSHA MOSHML NANAJU | |
| NJEVX1 NJEVX2 NOFAR OSTARA PIPY PYDNET PYRTR QCOCAL RAPTOR RST101 | |
| SEACOW SEAHAG SEAPIG SHAKTI TOWEL TRAINS TRU64 TSTVAX TSVMSA TSVMST | |
| TSVMSZ TWENEX TWONKY VAXSTN W2000S WEXPEE WFW311 WXPEE2 XL XLIV | |
| XLVII | |
| . | |
| .; ADD SOME NODES TO SYSTEM.CMD | |
| . | |
| . | |
| .TYPE [1,4]SYSTEM.CMD | |
| ; Startup file for TWONKY - RLA [13-NOV-2021] ... | |
| ; General system configuration ... | |
| CONFIG ADD MEMORY 512K 1024K | |
| DISABLE OUTPUT-DISPLAY ALL-MESSAGES /JOB | |
| ENABLE VOLUME-RECOGNITION TAPE-DRIVES | |
| ; Start up the printer ... | |
| SET PRINTER 0 PAGE-LIMIT 2000 | |
| START PRINTER 0 | |
| ; Start up the batch queues ... | |
| SET BATCH-STREAM 0 TIME-LIMIT 0:10 ;TIME: 0 TO 10 MINUTES | |
| SET BATCH-STREAM 1 TIME-LIMIT 0:60 ;TIME: 0 TO 1 HOUR | |
| SET BATCH-STREAM 2 TIME-LIMIT 10:100000 ; FOR LONG STREAMS | |
| START BATCH-STREAM 0:2 | |
| ; Start the card reader ... | |
| START READER 0 | |
| ; Start the DECnet network ... | |
| ; Sampsa, you can add your own node names here. TOPS-10 has no permanent | |
| ; node name database ... | |
| ENTER NCP | |
| SET NODE 1.13 NAME MIM | |
| SET NODE 2.1023 NAME A2RTR | |
| SET NODE 2.1 NAME LEGATO | |
| SET NODE 2.20 NAME VENTI | |
| SET CIRCUIT KDP-0-0 STATE ON | |
| RETURN | |
| ; Start up FAL for DECNET ... | |
| SET FAL-STREAM 0 NETWORK DECNET | |
| SET FAL-STREAM 1 NETWORK DECNET | |
| START FAL-STREAM 0 | |
| START FAL-STREAM 1 | |
| . | |
| .TECO [1,4]SYSTEM.CMD | |
| [2K Core] | |
| *AAAA$$ | |
| *SVENTI$$ | |
| *I | |
| SET NODE 31.1 NAME IMPVAX | |
| SET NODE 31.2 NAME KARMA | |
| SET NODE 31.3 NAME PYRTR | |
| SET NODE 31.10 NAME QCOCAL | |
| SET NODE 31.37 NAME TWONKYYKNOWT EMAN 7340 NAME TWONK2 | |
| SET NODE 31.1020 NAME MOKSHA | |
| SET NODE 31.1021 NAME PYDNET | |
| SET NODE 31.1022 NAME AHIMSA | |
| SET NODE 31.1023 NAME IMPRTR$$ | |
| *EX$$ | |
| .TYPE [1,4]SYSTEM.CMD | |
| ; Startup file for TWONKY - RLA [13-NOV-2021] ... | |
| ; General system configuration ... | |
| CONFIG ADD MEMORY 512K 1024K | |
| DISABLE OUTPUT-DISPLAY ALL-MESSAGES /JOB | |
| ENABLE VOLUME-RECOGNITION TAPE-DRIVES | |
| ; Start up the printer ... | |
| SET PRINTER 0 PAGE-LIMIT 2000 | |
| START PRINTER 0 | |
| ; Start up the batch queues ... | |
| SET BATCH-STREAM 0 TIME-LIMIT 0:10 ;TIME: 0 TO 10 MINUTES | |
| SET BATCH-STREAM 1 TIME-LIMIT 0:60 ;TIME: 0 TO 1 HOUR | |
| SET BATCH-STREAM 2 TIME-LIMIT 10:100000 ; FOR LONG STREAMS | |
| START BATCH-STREAM 0:2 | |
| ; Start the card reader ... | |
| START READER 0 | |
| ; Start the DECnet network ... | |
| ; Sampsa, you can add your own node names here. TOPS-10 has no permanent | |
| ; node name database ... | |
| ENTER NCP | |
| SET NODE 1.13 NAME MIM | |
| SET NODE 2.1023 NAME A2RTR | |
| SET NODE 2.1 NAME LEGATO | |
| SET NODE 2.20 NAME VENTI | |
| SET NODE 31.1 NAME IMPVAX | |
| SET NODE 31.2 NAME KARMA | |
| SET NODE 31.3 NAME PYRTR | |
| SET NODE 31.10 NAME QCOCAL | |
| SET NODE 31.40 NAME TWONK2 | |
| SET NODE 31.1020 NAME MOKSHA | |
| SET NODE 31.1021 NAME PYDNET | |
| SET NODE 31.1022 NAME AHIMSA | |
| SET NODE 31.1023 NAME IMPRTR | |
| SET CIRCUIT KDP-0-0 STATE ON | |
| RETURN | |
| ; Start up FAL for DECNET ... | |
| SET FAL-STREAM 0 NETWORK DECNET | |
| SET FAL-STREAM 1 NETWORK DECNET | |
| START FAL-STREAM 0 | |
| START FAL-STREAM 1 | |
| . | |
| .; Lets also add PIPY to the list of nodes in SYSTEM.CMD ... | |
| .TECO [1,4]SYSTEM.CMD | |
| [2K Core] | |
| *SQCOCAL$$ | |
| *I | |
| SET NODE 31.32 NAME PIPY$$ | |
| *EX$$ | |
| . | |
| . | |
| . | |
| .TYPE [1,4]SYSTEM.CMD | |
| ; Startup file for TWONKY - RLA [13-NOV-2021] ... | |
| ; General system configuration ... | |
| CONFIG ADD MEMORY 512K 1024K | |
| DISABLE OUTPUT-DISPLAY ALL-MESSAGES /JOB | |
| ENABLE VOLUME-RECOGNITION TAPE-DRIVES | |
| ; Start up the printer ... | |
| SET PRINTER 0 PAGE-LIMIT 2000 | |
| START PRINTER 0 | |
| ; Start up the batch queues ... | |
| SET BATCH-STREAM 0 TIME-LIMIT 0:10 ;TIME: 0 TO 10 MINUTES | |
| SET BATCH-STREAM 1 TIME-LIMIT 0:60 ;TIME: 0 TO 1 HOUR | |
| SET BATCH-STREAM 2 TIME-LIMIT 10:100000 ; FOR LONG STREAMS | |
| START BATCH-STREAM 0:2 | |
| ; Start the card reader ... | |
| START READER 0 | |
| ; Start the DECnet network ... | |
| ; Sampsa, you can add your own node names here. TOPS-10 has no permanent | |
| ; node name database ... | |
| ENTER NCP | |
| SET NODE 1.13 NAME MIM | |
| SET NODE 2.1023 NAME A2RTR | |
| SET NODE 2.1 NAME LEGATO | |
| SET NODE 2.20 NAME VENTI | |
| SET NODE 31.1 NAME IMPVAX | |
| SET NODE 31.2 NAME KARMA | |
| SET NODE 31.3 NAME PYRTR | |
| SET NODE 31.10 NAME QCOCAL | |
| SET NODE 31.32 NAME PIPY | |
| SET NODE 31.40 NAME TWONK2 | |
| SET NODE 31.1020 NAME MOKSHA | |
| SET NODE 31.1021 NAME PYDNET | |
| SET NODE 31.1022 NAME AHIMSA | |
| SET NODE 31.1023 NAME IMPRTR | |
| SET CIRCUIT KDP-0-0 STATE ON | |
| RETURN | |
| ; Start up FAL for DECNET ... | |
| SET FAL-STREAM 0 NETWORK DECNET | |
| SET FAL-STREAM 1 NETWORK DECNET | |
| START FAL-STREAM 0 | |
| START FAL-STREAM 1 | |
| . | |
| . | |
| .; NOW ADD A WELCOME MESSAGE | |
| . | |
| .MAKE SYS:NOTICE.TXT | |
| *I ___ _ _ ___ ___ _ _ _ _ | |
| / __| /_\ | \| \ \ / /_\ | | _ _ ___| |_ | | __ _ |__ ___ | |
| \__ \/ _ \| .` |\ V / _ \| |__| ' \/ -_) _| | |__/ _` | '_ (_-< | |
| |___/_/ \_\_\|_| |/_/ \_\____|_||_\___|\__| |____\__,_|_.__/__/ | |
| WELCOME TO TOPS-10 VERSION 7.04 ON A DEC PDP-01 KS1 PROCESSOR$$ | |
| *EX | |
| $$ | |
| .TYPE SYS:NOTICE.TXT | |
| ___ _ _ ___ ___ _ _ _ _ | |
| / __| /_\ | \| \ \ / /_\ | | _ _ ___| |_ | | __ _| |__ ___ | |
| \__ \/ _ \| .` |\ V / _ \| |__| ' \/ -_) _| | |__/ _` | '_ (_-< | |
| |___/_/ \_\_|\_| |_/_/ \_\____|_||_\___|\__| |____\__,_|_.__/__/ | |
| WELCOME TO TOPS-10 VERSION 7.04 ON A DEC PDP-10 KS10 PROCESSOR | |
| . | |
| .; GOOD | |
| . | |
| . | |
| . | |
| Monitor SIMH KS10 TWONKY 7.04NET | |
| System uptime :50:47 | |
| Current date/time Saturday 27-Nov-121 1:00:00 | |
| . | |
| . | |
| .; Fix permissions for notice.txt, there probably is a | |
| .; easier command on TOP-10 ... | |
| . | |
| . | |
| .copy sys:notice.txt<055>=sys:notice.txt | |
| .dir sys:notice.txt | |
| NOTICE TXT 1 <055> 27-Nov-21 DSKA: [1,4] | |
| .kjob | |
| [LGNJSP Other jobs same PPN] | |
| Job 2 User OPR [1,2] | |
| Logged-off CTY at 1:22:47 on 27-Nov-121 | |
| Runtime: 0:08:23, KCS:4074, Connect time: 1:13:35 | |
| Disk Reads:945, Writes:52, Blocks saved:0 | |
| .login guest | |
| Job 2 SIMH KS10 TWONKY 7.04NET CTY | |
| [LGNLAS Last access to [14,14] succeeded on 16-Nov-121:17:10:43] | |
| 01:22 27-Nov-121 Saturday | |
| ___ _ _ ___ ___ _ _ _ _ | |
| / __| /_\ | \| \ \ / /_\ | | _ _ ___| |_ | | __ _| |__ ___ | |
| \__ \/ _ \| .` |\ V / _ \| |__| ' \/ -_) _| | |__/ _` | '_ (_-< | |
| |___/_/ \_\_|\_| |_/_/ \_\____|_||_\___|\__| |____\__,_|_.__/__/ | |
| WELCOME TO TOPS-10 VERSION 7.04 ON A DEC PDP-10 KS10 PROCESSOR | |
| . | |
| .kjob | |
| Job 2 User GUEST [14,14] | |
| Logged-off CTY at 1:23:19 on 27-Nov-121 | |
| Runtime: 0:00:00, KCS:1, Connect time: 0:00:27 | |
| Disk Reads:43, Writes:8, Blocks saved:0 | |
| .login 1,2 | |
| Job 2 SIMH KS10 TWONKY 7.04NET CTY | |
| [LGNJSP Other jobs same PPN] | |
| %LGNSVM Set maximum virtual and physical limits failed | |
| [LGNLAS Last access to [1,2] succeeded on 16-Nov-121:04:51:01] | |
| 01:23 27-Nov-121 Saturday | |
| .; NOTICE.TXT works :) | |
| . | |
| .; START OF RECIPE FOR 8 LINES OF DUP11 | |
| . | |
| . | |
| .R SETSRC | |
| *CP [10,7,MON] | |
| *^C | |
| .DIR NETPRM.MAC | |
| NETPRM MAC 75 <155> 29-Feb-88 DSKB: [10,7,MON] | |
| . | |
| .COPY NETPRM.ORG=NETPRM.MAC | |
| .TECO NETPRM.MAC | |
| [2K Core] | |
| *AAAAAAAA$$ | |
| [3K Core] | |
| [4K Core] | |
| [5K Core] | |
| *AAAAAAAA$$ | |
| [6K Core] | |
| [7K Core] | |
| *AAAAAAAA$$ | |
| [8K Core] | |
| [9K Core] | |
| *SMXNDUP$$ | |
| *0TT$$ | |
| MXNDUP==^D2 ;MAXIMUM NUMBER OF DUP-11'S ON THE KMC-11 | |
| *3C$$ | |
| *T$$ | |
| D2 ;MAXIMUM NUMBER OF DUP-11'S ON THE KMC-11 | |
| *2D$$ | |
| *ID8$$ | |
| *0TT$$ | |
| MXNDUP==^D8 ;MAXIMUM NUMBER OF DUP-11'S ON THE KMC-11 | |
| *EX$$ | |
| . | |
| . | |
| .; REASSEMBLE NETPRM.MAC | |
| .COMPIL/COMPIL NETPRM | |
| MACRO: NETPRM | |
| EXIT | |
| . | |
| . | |
| .DIR [10,7,MON,KS]NETPRM.* | |
| %WLDNSF No such files as [10,7,MON,KS]NETPRM.* | |
| .DIR REL:NETPRM.* | |
| %WLDNSF No such files as REL:NETPRM.* | |
| .; SO NO NEED TO COPY NETPRM.REL | |
| . | |
| . | |
| . | |
| .; NOW TACKLE D8KINT, KDPSER, and KDPINT | |
| . | |
| .COMPIL/COMPIL D8KINT | |
| MACRO: D8KINT | |
| KDPSER | |
| KDPINT | |
| EXIT | |
| . | |
| .DIR D8KINT* | |
| D8KINT MAC 231 <155> 16-Feb-88 DSKB: [10,7,MON] | |
| D8KINT REL 37 <057> 27-Nov-21 | |
| Total of 268 blocks in 2 files on DSKB: [10,7,MON] | |
| . | |
| .DIR [10,7,MON,KS]TOPS10.REL | |
| TOPS10 REL 2300 <057> 4-Nov-21 DSKB: [10,7,MON,KS] | |
| .COPY [10,7,MON,KS]TOPS10.ORG=[10,7,MON,KS]TOPS10.REL | |
| . | |
| . | |
| .DIR REL:TOPS10.REL | |
| TOPS10 REL 2300 <055> 4-Nov-21 DSKA: [5,11] | |
| .COPY REL:TOPS10.ORG=REL:TOPS10.REL | |
| . | |
| . | |
| .; NOW WE REPLACE D8KINT, KDPSER AND KDPINT IN BOTH COPIES OF TOPS10.REL IN [10, | |
| 7,MON,KS] AND REL: | |
| . | |
| .; WE TEMPORARILY USE X.REL AND THEN COPY X.REL TO TOPS10.REL IN PROPER PLACES.. | |
| . | |
| . | |
| .COPY REL:X.REL=REL:TOPS10.REL | |
| .R MAKLIB | |
| *REL:X.REL=REL:TOPS10.REL/MASTER:D8KINT,[10,7,MON]D8KINT.REL/REPLACE:D8KINT | |
| ?WLDLKE Non-existent SFD file REL:D8KINT.REL[10,7,MON] | |
| ?MKLTFR all TRANSACTION files rejected by conditions | |
| *^C | |
| .; THAT DIDN'T WORK; COPY D8KINT.REL TO REL: TO MAKE IT EASIER AND RETRY ... | |
| .COPY REL:D8KINT.REL=D8KINT.REL | |
| .R MAKLIB | |
| *REL:X.REL=REL:TOPS10.REL/MASTER:D8KINT,REL:D8KINT.REL/REPLACE:D8KINT | |
| %MKLNIO OUTPUT file REL:X.REL will not be INDEXed | |
| *REL:X.REL=REL:X.REL/MASTER:KDPSER,REL:D8KINT.REL/REPLACE:KDPSER | |
| *REL:X.REL=REL:X.REL/MASTER:KDPINT,REL:D8KINT.REL/REPLACE:KDPINT | |
| * | |
| *; LOOKS LIKE REPLACEMENT WORKED, GET A LIST OF MODULES IN X.REL ... | |
| * | |
| *TTY:=REL:X.REL/LIST | |
| Listing of Modules | |
| Produced by MAKLIB Version 2C(132) on 27-Nov-121 at 1:50:43 | |
| ************************** | |
| REL:X.REL[5,11] Created on 27-Nov-121 at 1:49:00 | |
| VJBDAT 000000 000021 | |
| APRSER 000023 000021 | |
| D36COM 000112 000021 | |
| DNADLL 000026 000021 | |
| LLINKS 000066 000021 | |
| NRTSER 000253 000021 | |
| NTMAN 000022 000021 | |
| ROUTER 000072 000021 | |
| SCLINK 000035 000021 | |
| SCMUUO 000024 000021 | |
| D8RINT 000000 000021 | |
| DMRSER 000045 | |
| DMRINT 000000 | |
| KASER 000000 000021 | |
| PPSSER 000257 000021 | |
| PRSSER 000177 000021 | |
| RX2SER 000000 000021 | |
| AUTCON 000207 000021 | |
| CD2SER 000000 000113 | |
| CLOCK1 000003 000021 | |
| COMCON 000115 000021 | |
| CORE1 000000 000021 | |
| CTXSER 000015 000021 | |
| D60SER 000000 000021 | |
| D8KINT 000000 000021 | |
| KDPSER 000045 | |
| KDPINT 000000 | |
| DATMAN 000000 000021 | |
| DZINT 000003 000021 | |
| ERRCON 000012 000021 | |
| FILFND 000000 000021 | |
| FILIO 000011 000021 | |
| FILUUO 000005 000021 | |
| IPCSER 000000 000021 | |
| LATSER 000137 000021 | |
| LOKCON 000000 000021 | |
| LP2SER 000000 000551 | |
| MONBTS 000003 000021 | |
| MONPFH 000000 000021 | |
| MPXSER 000033 000032 | |
| NETDEV 000000 000021 | |
| NETCDR 000000 | |
| NETDDP 000000 | |
| NETLPT 000000 | |
| NETMCR 000001 | |
| NETPLT 000000 | |
| NETRDX 000000 | |
| NETTSK 000001 | |
| NETVTM 000000 | |
| NETSER 000173 000021 | |
| NULFEK 000000 000021 | |
| ONCMOD 000000 000021 | |
| PSISER 000000 000021 | |
| PTYSER 000024 000024 | |
| QUESER 000036 000021 | |
| REFSTR 000000 000021 | |
| RHXKON 000000 000142 | |
| SCHED1 000124 000021 | |
| SCNSER 000217 000132 | |
| SEGCON 000003 000021 | |
| SWPSER 000001 000021 | |
| SYSINI 000000 000021 | |
| TAPSER 000000 000021 | |
| TAPUUO 000042 000041 | |
| TM2KON 000000 000145 | |
| TMPUUO 000000 000021 | |
| UUOCON 000242 000021 | |
| VMSER 000000 000021 | |
| PATCH 000500 000021 | |
| EDDT 022317 000077 | |
| USRONC 000000 000021 | |
| MONEND 000000 | |
| * | |
| *;LOOKS GOOD | |
| * | |
| *^Z | |
| .COPY REL:TOPS10.REL=REL:X.REL | |
| .COPY [10,7,MON,KS]TOPS10.REL=REL:X.REL | |
| . | |
| .DIR REL:TOPS10* | |
| TOPS10 REL 2296 <055> 27-Nov-21 DSKA: [5,11] | |
| TOPS10 ORG 2300 <057> 27-Nov-21 | |
| Total of 4596 blocks in 2 files on DSKA: [5,11] | |
| .DIR [10,7,MON,KS]TOPS10* | |
| TOPS10 ORG 2300 <155> 27-Nov-21 DSKB: [10,7,MON,KS] | |
| TOPS10 REL 2296 <057> 27-Nov-21 | |
| Total of 4596 blocks in 2 files on DSKB: [10,7,MON,KS] | |
| . | |
| .;OK, DONE TOPS10.REL REPLACEMENTS | |
| .; NEXT STEP | |
| .; NOTE: SYSCNF.MAC hack is not needed as we are going to hack MONGEN.MAC | |
| .; which handles SYSCNF.MAC automatically | |
| . | |
| . | |
| .; HACK MONGEN AFTER TAKING BACKUP | |
| . | |
| .COPY MONGEN.ORG=MONGEN.MAC | |
| .TECO MONGEN.MAC | |
| [2K Core] | |
| *AAAAAAAA$$ | |
| [3K Core] | |
| [4K Core] | |
| [5K Core] | |
| *AAAAAAAA$$ | |
| [6K Core] | |
| [7K Core] | |
| *AAAAAAAA$$ | |
| [8K Core] | |
| [9K Core] | |
| *AAAAAAAA$$ | |
| [10K Core] | |
| [11K Core] | |
| *SSM.KDUP$$ | |
| *0TT$$ | |
| SM.KDUP==^D2 ;MAXIMUM NUMBER OF DUP-11S ON A KMC-11 | |
| *C4$$ | |
| *T$$ | |
| =^D2 ;MAXIMUM NUMBER OF DUP-11S ON A KMC-11 | |
| *3C$$ | |
| *T$$ | |
| 2 ;MAXIMUM NUMBER OF DUP-11S ON A KMC-11 | |
| *D$$ | |
| *I8$$ | |
| *0TT$$ | |
| SM.KDUP==^D8 ;MAXIMUM NUMBER OF DUP-11S ON A KMC-11 | |
| *EX$$ | |
| . | |
| .; REBUILD MONGEN | |
| . | |
| .COMPIL/COMPIL MONGEN | |
| MACRO: MONGEN | |
| EXIT | |
| .; ACTUALLY MONGEN.MAC HAS THIS INSTRUCTION: | |
| . | |
| . | |
| .COMPIL MONGEN | |
| .LOAD MONGEN | |
| LINK: Loading | |
| EXIT | |
| .; SAVE THE NEW MONGEN.EXE AND ALSO COPY TO FINAL LOCATION | |
| . | |
| .SAVE MONGEN.EXE | |
| MONGEN saved | |
| . | |
| .COPY [1,4]MONGEN.ORG=[1,4]MONGEN.EXE | |
| .COPY [1,4]MONGEN.EXE=MONGEN.EXE | |
| . | |
| . | |
| .; PROCEED TO REBUILD THE MONITOR WITH THE HACK NOW | |
| .; RUN THE FULL MONGEN PROCEDURE | |
| .; ------------------------ | |
| .; ------------------------ | |
| .; | |
| .; EXECUTE THIS NOW: | |
| .; | |
| .; https://gist.github.com/tuklusan/d53505f3f9859eca048e253159c75bc8 | |
| .; | |
| .; ------------------------ | |
| .; ------------------------ | |
| .; PROCEED TO REBUILD THE MONITOR WITH THE HACK NOW | |
| .; | |
| .COMPIL/COMPIL F,S | |
| MACRO: F | |
| MACRO: S | |
| EXIT | |
| .COMPIL/COMPIL devprm,dteprm,netprm,d36par,syscnf+<common,comdev,commod> | |
| MACRO: DEVPRM | |
| MACRO: DTEPRM | |
| MACRO: NETPRM | |
| MACRO: D36PAR | |
| MACRO: COMMON | |
| MACRO: COMDEV | |
| MACRO: COMMOD | |
| EXIT | |
| . | |
| .; WE WILL CALL THE NEW MONITOR 4XDUP ... | |
| . | |
| .R LINK | |
| *4XDUP/save/noinitial/hash:13k = /locals - | |
| #common,comdev,commod,tops10[10,7,mon,ks]/search- | |
| #/patch:200/counters/go | |
| [LNKRLC Reloc. ctr. initial value current value limit value | |
| .LOW. 0 110371 344000 | |
| .HIGH. 344000 704175 720000 | |
| .INIT. 740000 764735 771000 | |
| .TWIC. 771000 772401 1000000 | |
| Absolute code loaded] | |
| EXIT | |
| . | |
| .DIR 4X* | |
| 4XDUP EXE 1680 <057> 27-Nov-21 704(33461) DSKB: [10,7,MON] | |
| . | |
| . | |
| .COPY NEW:4XDUP.EXE=4XDUP.EXE | |
| .DIR NEW:4XDUP.EXE | |
| 4XDUP EXE 1680 <057> 27-Nov-21 704(33461) DSKA: [1,5] | |
| . | |
| .; DONE - NOW WE BOOT INTO 4XDUP.EXE MONITOR AND HOPE TO SEE 4 DUP LINES | |
| . | |
| .R OPR | |
| OPR>SET KSYS NOW | |
| OPR> | |
| 2:24:12 -- Event KSYS queued, request #11 -- | |
| 2:24:12 -- gTimesharing is over -- | |
| Wait for "KSYS processing complete" message before SHUTDOWN | |
| 2:24:12 -- Waiting for BATCON to start for KSYS logouts -- | |
| OPR> | |
| g;;SYSTEM: - Timesharing is over! | |
| 2:24:13 -- KSYS processing completed -- | |
| OPR>EXIT | |
| .KJOB | |
| [LGNJSP Other jobs same PPN] | |
| Job 2 User OPERATOR [1,2] | |
| Logged-off CTY at 2:24:18 on 27-Nov-121 | |
| Runtime: 0:16:51, KCS:115125, Connect time: 1:00:56 | |
| Disk Reads:37726, Writes:29667, Blocks saved:0 | |
| . | |
| Simulation stopped, PC: 000001 (SOJG 6,1) | |
| Winding down | |
| BOOT>Thanks for playing | |
| Goodbye | |
| Log file closed |
