Mercurial > vm370 > src
changeset 4:827db65a6b5f draft
Import Robert O'Hara's Six Pack 1.2
line wrap: on
line diff
--- a/MNT094/DMKRIO.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT094/DMKRIO.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -1,368 +1,349 @@ -NAS TITLE ' DMKRIO VM/370 RELEASE 6 - SixPack Version 1.1' DMK00010 -DMKRIO CSECT DMK00020 - EJECT DMK00030 -********************************************************************** DMK00040 -** ** DMK00050 -** THIS IS A NEW I/O GEN TO SUIT THE TURNKEY (4) MVS SYSTEM ** DMK00060 -** ** DMK00070 -** ** DMK00080 -********************************************************************** DMK00090 -***** CHANNEL ZERO ( 000 ) DEVICES ***** DMK00100 -***** ---------------------------- ***** DMK00110 -********************************************************************** DMK00120 - SPACE 2 DMK00130 - RDEVICE ADDRESS=004,DEVTYPE=3215 DMK00140 - RDEVICE ADDRESS=005,DEVTYPE=3215 DMK00150 - RDEVICE ADDRESS=006,DEVTYPE=3215 DMK00160 - RDEVICE ADDRESS=007,DEVTYPE=3215 DMK00170 - RDEVICE ADDRESS=008,DEVTYPE=3215 DMK00180 - RDEVICE ADDRESS=009,DEVTYPE=3215 DMK00190 - RDEVICE ADDRESS=00A,DEVTYPE=3215 DMK00200 - RDEVICE ADDRESS=00C,DEVTYPE=2540R DMK00210 - RDEVICE ADDRESS=00D,DEVTYPE=2540P,CLASS=P DMK00220 - RDEVICE ADDRESS=(00E),DEVTYPE=1403,FEATURE=UNVCHSET, *DMK00230 - CLASS=(A) DMK00240 - RDEVICE ADDRESS=(00F),DEVTYPE=1403,FEATURE=UNVCHSET, *DMK00250 - CLASS=(D) DMK00260 - RDEVICE ADDRESS=(010,7),DEVTYPE=3277 DMK00270 - RDEVICE ADDRESS=(01F),DEVTYPE=3215 DMK00280 - RDEVICE ADDRESS=(020,16),DEVTYPE=2701,ADAPTER=TELE2 DMK00290 - RDEVICE ADDRESS=(040,16),DEVTYPE=2701,ADAPTER=BSCA DMK00300 - RDEVICE ADDRESS=(0C0,32),DEVTYPE=3277 DMK00310 -********************************************************************** DMK00320 -***** CHANNEL ONE ( 100 ) DEVICES ***** DMK00330 -***** ---------------------------- ***** DMK00340 -********************************************************************** DMK00350 - RDEVICE ADDRESS=(102),DEVTYPE=3211,CLASS=(M) DMK00360 - RDEVICE ADDRESS=(103),DEVTYPE=3211,CLASS=(M) DMK00370 - RDEVICE ADDRESS=(10C),DEVTYPE=2540R,CLASS=Z DMK00380 - RDEVICE ADDRESS=(10D),DEVTYPE=2540P,CLASS=Z DMK00390 - RDEVICE ADDRESS=(10E),DEVTYPE=1403,FEATURE=UNVCHSET DMK00400 - RDEVICE ADDRESS=(10F),DEVTYPE=1403,FEATURE=UNVCHSET DMK00410 - RDEVICE ADDRESS=(130,16),DEVTYPE=2314 DMK00420 - RDEVICE ADDRESS=(140,16),DEVTYPE=3350 DMK00430 - RDEVICE ADDRESS=(150,16),DEVTYPE=3330,MODEL=11 DMK00440 - RDEVICE ADDRESS=(160,16),DEVTYPE=3340 DMK00450 - RDEVICE ADDRESS=(170,16),DEVTYPE=3375,CLASS=DASD DMK00460 - RDEVICE ADDRESS=(1A0,16),DEVTYPE=3380 DMK00470 - RDEVICE ADDRESS=(1B0,16),DEVTYPE=3390,CLASS=DASD DMK00480 - RDEVICE ADDRESS=(1C0,7),DEVTYPE=3277 DMK00490 - RDEVICE ADDRESS=(1C7),DEVTYPE=3284 DMK00500 - RDEVICE ADDRESS=(1C8,7),DEVTYPE=3277 DMK00510 - RDEVICE ADDRESS=(1CF),DEVTYPE=3284 DMK00520 -********************************************************************** DMK00530 -***** CHANNEL TWO ( 200 ) DEVICES ***** DMK00540 -***** ---------------------------- ***** DMK00550 -********************************************************************** DMK00560 - RDEVICE ADDRESS=(202),DEVTYPE=3211,CLASS=(M) DMK00570 - RDEVICE ADDRESS=(203),DEVTYPE=3211,CLASS=(M) DMK00580 - RDEVICE ADDRESS=(20C),DEVTYPE=2540R,CLASS=Z DMK00590 - RDEVICE ADDRESS=(20D),DEVTYPE=2540P,CLASS=Z DMK00600 - RDEVICE ADDRESS=(20E),DEVTYPE=1403,FEATURE=UNVCHSET DMK00610 - RDEVICE ADDRESS=(20F),DEVTYPE=1403,FEATURE=UNVCHSET DMK00620 - RDEVICE ADDRESS=(230,16),DEVTYPE=2314 DMK00630 - RDEVICE ADDRESS=(240,16),DEVTYPE=3350 DMK00640 - RDEVICE ADDRESS=(250,16),DEVTYPE=3330,MODEL=11 DMK00650 - RDEVICE ADDRESS=(260,16),DEVTYPE=3340 DMK00660 - RDEVICE ADDRESS=(270,16),DEVTYPE=3375,CLASS=DASD DMK00670 - RDEVICE ADDRESS=(280,16),DEVTYPE=3380 DMK00680 - RDEVICE ADDRESS=(290,16),DEVTYPE=3390,CLASS=DASD DMK00690 - RDEVICE ADDRESS=(2C0,7),DEVTYPE=3278,MODEL=4 DMK00700 - RDEVICE ADDRESS=(2C7),DEVTYPE=3284 DMK00710 - RDEVICE ADDRESS=(2C8,7),DEVTYPE=3277 DMK00720 - RDEVICE ADDRESS=(2CF),DEVTYPE=3284 DMK00730 -********************************************************************** DMK00740 -***** CHANNEL THREE( 300 ) DEVICES ***** DMK00750 -***** ---------------------------- ***** DMK00760 -********************************************************************** DMK00770 - RDEVICE ADDRESS=(302),DEVTYPE=3211,CLASS=(M) DMK00780 - RDEVICE ADDRESS=(303),DEVTYPE=3211,CLASS=(M) DMK00790 - RDEVICE ADDRESS=(30C),DEVTYPE=2540R,CLASS=Z DMK00800 - RDEVICE ADDRESS=(30D),DEVTYPE=2540P,CLASS=Z DMK00810 - RDEVICE ADDRESS=(30E),DEVTYPE=1403,FEATURE=UNVCHSET DMK00820 - RDEVICE ADDRESS=(30F),DEVTYPE=1403,FEATURE=UNVCHSET DMK00830 - RDEVICE ADDRESS=(330,16),DEVTYPE=2314 DMK00840 - RDEVICE ADDRESS=(340,16),DEVTYPE=3350 DMK00850 - RDEVICE ADDRESS=(350,16),DEVTYPE=3330,MODEL=11 DMK00860 - RDEVICE ADDRESS=(360,16),DEVTYPE=3340 DMK00870 - RDEVICE ADDRESS=(370,16),DEVTYPE=3375,CLASS=DASD DMK00880 - RDEVICE ADDRESS=(380,16),DEVTYPE=3380 DMK00890 - RDEVICE ADDRESS=(390,16),DEVTYPE=3390,CLASS=DASD DMK00900 - RDEVICE ADDRESS=(3C0,7),DEVTYPE=3277 DMK00910 - RDEVICE ADDRESS=(3C7),DEVTYPE=3284 DMK00920 - RDEVICE ADDRESS=(3C8,7),DEVTYPE=3277 DMK00930 - RDEVICE ADDRESS=(3CF),DEVTYPE=3284 DMK00940 -********************************************************************** DMK00950 -***** CHANNEL FOUR ( 400 ) DEVICES ***** DMK00960 -***** ***** DMK00970 -********************************************************************** DMK00980 - RDEVICE ADDRESS=(400,16),DEVTYPE=3420,MODEL=8 DMK00990 - RDEVICE ADDRESS=(440,16),DEVTYPE=3350 DMK01000 - RDEVICE ADDRESS=(480,16),DEVTYPE=3420,MODEL=8 DMK01010 - RDEVICE ADDRESS=(4A0,16),DEVTYPE=3480 DMK01020 -********************************************************************** DMK01030 -***** CHANNEL FIVE ( 500 ) DEVICES ***** DMK01040 -********************************************************************** DMK01050 - RDEVICE ADDRESS=(500,8),DEVTYPE=CTCA DMK01060 - RDEVICE ADDRESS=(510,8),DEVTYPE=CTCA DMK01070 - RDEVICE ADDRESS=(540,16),DEVTYPE=3350 DMK01080 - RDEVICE ADDRESS=(580,16),DEVTYPE=3420,MODEL=8,FEATURE=DUALDENS DMK01090 -********************************************************************** DMK01100 -***** CHANNEL SIX ( 600 ) DEVICES ***** DMK01110 -********************************************************************** DMK01120 - RDEVICE ADDRESS=(600,8),DEVTYPE=CTCA DMK01130 - RDEVICE ADDRESS=(610,8),DEVTYPE=CTCA DMK01140 - RDEVICE ADDRESS=(630,16),DEVTYPE=3330,MODEL=11 DMK01150 - RDEVICE ADDRESS=(640,16),DEVTYPE=3330,MODEL=1 DMK01160 - RDEVICE ADDRESS=(6A0,32),DEVTYPE=3350 DMK01170 - RDEVICE ADDRESS=(6F0,16),DEVTYPE=3350 DMK01180 -********************************************************************** DMK01190 -***** CHANNEL SEVEN ( 700 ) DEVICES ***** DMK01200 -********************************************************************** DMK01210 - RDEVICE ADDRESS=(700,32),DEVTYPE=3350 DMK01220 - RDEVICE ADDRESS=(730,16),DEVTYPE=3330,MODEL=11 DMK01230 - RDEVICE ADDRESS=(740,16),DEVTYPE=3330,MODEL=1 DMK01240 - RDEVICE ADDRESS=(7A0,32),DEVTYPE=3350 DMK01250 - RDEVICE ADDRESS=(7F0,16),DEVTYPE=3350 DMK01260 -********************************************************************** DMK01270 -***** CHANNEL EIGHT ( 800 ) DEVICES ***** DMK01280 -********************************************************************** DMK01290 - RDEVICE ADDRESS=(830,16),DEVTYPE=3330,MODEL=11 DMK01300 - RDEVICE ADDRESS=(840,16),DEVTYPE=3330,MODEL=1 DMK01310 - RDEVICE ADDRESS=(8A0,32),DEVTYPE=3350 DMK01320 - RDEVICE ADDRESS=(8F0,16),DEVTYPE=3350 DMK01330 -********************************************************************** DMK01340 -***** CHANNEL NINE ( 900 ) DEVICES ***** DMK01350 -********************************************************************** DMK01360 - RDEVICE ADDRESS=(930,16),DEVTYPE=3330,MODEL=11 DMK01370 - RDEVICE ADDRESS=(940,16),DEVTYPE=3330,MODEL=1 DMK01380 - RDEVICE ADDRESS=(9A0,32),DEVTYPE=3350 DMK01390 - RDEVICE ADDRESS=(9F0,16),DEVTYPE=3350 DMK01400 -********************************************************************** DMK01410 -***** CHANNEL TEN ( A00 ) DEVICES ***** DMK01420 -********************************************************************** DMK01430 - RDEVICE ADDRESS=(A00,32),DEVTYPE=3390 DMK01440 - RDEVICE ADDRESS=(A20,32),DEVTYPE=3390 DMK01450 - RDEVICE ADDRESS=(A40,32),DEVTYPE=3390 DMK01460 - RDEVICE ADDRESS=(A60,32),DEVTYPE=3390 DMK01470 - RDEVICE ADDRESS=(A80,32),DEVTYPE=3390 DMK01480 - RDEVICE ADDRESS=(AA0,32),DEVTYPE=3390 DMK01490 - RDEVICE ADDRESS=(AC0,32),DEVTYPE=3390 DMK01500 - RDEVICE ADDRESS=(AE0,32),DEVTYPE=3390 DMK01510 -********************************************************************** DMK01520 -***** CHANNEL ELEVEN( B00 ) DEVICES ***** DMK01530 -********************************************************************** DMK01540 - RDEVICE ADDRESS=(B00,32),DEVTYPE=3390 DMK01550 - RDEVICE ADDRESS=(B20,32),DEVTYPE=3390 DMK01560 - RDEVICE ADDRESS=(B40,32),DEVTYPE=3390 DMK01570 - RDEVICE ADDRESS=(B60,32),DEVTYPE=3390 DMK01580 - RDEVICE ADDRESS=(B80,32),DEVTYPE=3390 DMK01590 - RDEVICE ADDRESS=(BA0,32),DEVTYPE=3390 DMK01600 - RDEVICE ADDRESS=(BC0,32),DEVTYPE=3390 DMK01610 - RDEVICE ADDRESS=(BE0,32),DEVTYPE=3390 DMK01620 -********************************************************************** DMK01630 -***** CHANNEL TWELVE( C00 ) DEVICES ***** DMK01640 -********************************************************************** DMK01650 - RDEVICE ADDRESS=(C00,32),DEVTYPE=3390 DMK01660 - RDEVICE ADDRESS=(C20,32),DEVTYPE=3390 DMK01670 - RDEVICE ADDRESS=(C40,32),DEVTYPE=3390 DMK01680 - RDEVICE ADDRESS=(C60,32),DEVTYPE=3390 DMK01690 - RDEVICE ADDRESS=(C80,32),DEVTYPE=3390 DMK01700 - RDEVICE ADDRESS=(CA0,32),DEVTYPE=3390 DMK01710 - RDEVICE ADDRESS=(CC0,32),DEVTYPE=3390 DMK01720 - RDEVICE ADDRESS=(CE0,32),DEVTYPE=3390 DMK01730 -********************************************************************** DMK01740 -***** CHANNEL THIRTEEN D90 ) DEVICES ***** DMK01750 -********************************************************************** DMK01760 - RDEVICE ADDRESS=(D00,32),DEVTYPE=3390 DMK01770 - RDEVICE ADDRESS=(D20,32),DEVTYPE=3390 DMK01780 - RDEVICE ADDRESS=(D40,32),DEVTYPE=3390 DMK01790 - RDEVICE ADDRESS=(D60,32),DEVTYPE=3390 DMK01800 - RDEVICE ADDRESS=(D80,32),DEVTYPE=3390 DMK01810 - RDEVICE ADDRESS=(DA0,32),DEVTYPE=3390 DMK01820 - RDEVICE ADDRESS=(DC0,32),DEVTYPE=3390 DMK01830 - RDEVICE ADDRESS=(DE0,32),DEVTYPE=3390 DMK01840 -********************************************************************** DMK01850 -***** CHANNEL FOURTEEN ( E00 ) DEVICES ***** DMK01860 -********************************************************************** DMK01870 - RDEVICE ADDRESS=(E00,32),DEVTYPE=3390 DMK01880 - RDEVICE ADDRESS=(E20,32),DEVTYPE=3390 DMK01890 - RDEVICE ADDRESS=(E40,32),DEVTYPE=3390 DMK01900 - RDEVICE ADDRESS=(E60,32),DEVTYPE=3390 DMK01910 - RDEVICE ADDRESS=(E80,32),DEVTYPE=3390 DMK01920 - RDEVICE ADDRESS=(EA0,32),DEVTYPE=3390 DMK01930 - RDEVICE ADDRESS=(EC0,32),DEVTYPE=3390 DMK01940 - RDEVICE ADDRESS=(EE0,32),DEVTYPE=3390 DMK01950 -********************************************************************** DMK01960 -***** CHANNEL FIFTEEN ( F00 ) DEVICES ***** DMK01970 -********************************************************************* DMK01980 - RDEVICE ADDRESS=(F00,32),DEVTYPE=3390 DMK01990 - RDEVICE ADDRESS=(F20,32),DEVTYPE=3390 DMK02000 - RDEVICE ADDRESS=(F40,32),DEVTYPE=3390 DMK02010 - RDEVICE ADDRESS=(F60,32),DEVTYPE=3390 DMK02020 - RDEVICE ADDRESS=(F80,32),DEVTYPE=3390 DMK02030 - RDEVICE ADDRESS=(FA0,32),DEVTYPE=3390 DMK02040 - RDEVICE ADDRESS=(FC0,32),DEVTYPE=3390 DMK02050 - RDEVICE ADDRESS=(FE0,32),DEVTYPE=3390 DMK02060 -********************************************************************** DMK02070 -***** CONTROL UNIT DEFINITIONS ***** DMK02080 -***** ------------------------ ***** DMK02090 -********************************************************************** DMK02100 - RCTLUNIT ADDRESS=000,CUTYPE=3811 DMK02110 - RCTLUNIT ADDRESS=008,CUTYPE=2821 DMK02120 - RCTLUNIT ADDRESS=010,CUTYPE=2821 DMK02130 - RCTLUNIT ADDRESS=018,CUTYPE=3215 DMK02140 - RCTLUNIT ADDRESS=020,CUTYPE=2701,FEATURE=16-DEVICE DMK02150 - RCTLUNIT ADDRESS=040,CUTYPE=2701,FEATURE=16-DEVICE DMK02160 - RCTLUNIT ADDRESS=0C0,CUTYPE=3272,FEATURE=32-DEVICE DMK02170 -* DMK02180 - RCTLUNIT ADDRESS=100,CUTYPE=2821,FEATURE=16-DEVICE DMK02190 - RCTLUNIT ADDRESS=130,CUTYPE=3830,FEATURE=16-DEVICE DMK02200 - RCTLUNIT ADDRESS=140,CUTYPE=3830,FEATURE=16-DEVICE DMK02210 - RCTLUNIT ADDRESS=150,CUTYPE=3830,FEATURE=16-DEVICE DMK02220 - RCTLUNIT ADDRESS=160,CUTYPE=3830,FEATURE=16-DEVICE DMK02230 - RCTLUNIT ADDRESS=170,CUTYPE=3830,FEATURE=16-DEVICE DMK02240 - RCTLUNIT ADDRESS=1A0,CUTYPE=3830,FEATURE=16-DEVICE DMK02250 - RCTLUNIT ADDRESS=1B0,CUTYPE=3830,FEATURE=16-DEVICE DMK02260 - RCTLUNIT ADDRESS=1C0,CUTYPE=3272,FEATURE=16-DEVICE DMK02270 -* DMK02280 - RCTLUNIT ADDRESS=200,CUTYPE=2821,FEATURE=16-DEVICE DMK02290 - RCTLUNIT ADDRESS=230,CUTYPE=3830,FEATURE=16-DEVICE DMK02300 - RCTLUNIT ADDRESS=240,CUTYPE=3830,FEATURE=16-DEVICE DMK02310 - RCTLUNIT ADDRESS=250,CUTYPE=3830,FEATURE=16-DEVICE DMK02320 - RCTLUNIT ADDRESS=260,CUTYPE=3830,FEATURE=16-DEVICE DMK02330 - RCTLUNIT ADDRESS=270,CUTYPE=3830,FEATURE=16-DEVICE DMK02340 - RCTLUNIT ADDRESS=280,CUTYPE=3830,FEATURE=16-DEVICE DMK02350 - RCTLUNIT ADDRESS=290,CUTYPE=3830,FEATURE=16-DEVICE DMK02360 - RCTLUNIT ADDRESS=2A0,CUTYPE=3830,FEATURE=16-DEVICE DMK02370 - RCTLUNIT ADDRESS=2C0,CUTYPE=3272,FEATURE=16-DEVICE DMK02380 -* DMK02390 - RCTLUNIT ADDRESS=300,CUTYPE=2821,FEATURE=16-DEVICE DMK02400 - RCTLUNIT ADDRESS=330,CUTYPE=3830,FEATURE=16-DEVICE DMK02410 - RCTLUNIT ADDRESS=340,CUTYPE=3830,FEATURE=16-DEVICE DMK02420 - RCTLUNIT ADDRESS=350,CUTYPE=3830,FEATURE=16-DEVICE DMK02430 - RCTLUNIT ADDRESS=360,CUTYPE=3830,FEATURE=16-DEVICE DMK02440 - RCTLUNIT ADDRESS=370,CUTYPE=3830,FEATURE=16-DEVICE DMK02450 - RCTLUNIT ADDRESS=380,CUTYPE=3830,FEATURE=16-DEVICE DMK02460 - RCTLUNIT ADDRESS=390,CUTYPE=3830,FEATURE=16-DEVICE DMK02470 - RCTLUNIT ADDRESS=3B0,CUTYPE=3830,FEATURE=16-DEVICE DMK02480 - RCTLUNIT ADDRESS=3C0,CUTYPE=3272,FEATURE=16-DEVICE DMK02490 -* DMK02500 - RCTLUNIT ADDRESS=400,CUTYPE=3420,FEATURE=16-DEVICE DMK02510 - RCTLUNIT ADDRESS=440,CUTYPE=3830,FEATURE=16-DEVICE DMK02520 - RCTLUNIT ADDRESS=480,CUTYPE=3420,FEATURE=16-DEVICE DMK02530 - RCTLUNIT ADDRESS=4A0,CUTYPE=3420,FEATURE=16-DEVICE DMK02540 - RCTLUNIT ADDRESS=4F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02550 -* DMK02560 - RCTLUNIT ADDRESS=500,CUTYPE=3088 DMK02570 - RCTLUNIT ADDRESS=510,CUTYPE=3088 DMK02580 - RCTLUNIT ADDRESS=540,CUTYPE=3830,FEATURE=16-DEVICE DMK02590 - RCTLUNIT ADDRESS=580,CUTYPE=3803,FEATURE=16-DEVICE DMK02600 - RCTLUNIT ADDRESS=5F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02610 -* DMK02620 - RCTLUNIT ADDRESS=600,CUTYPE=3088 DMK02630 - RCTLUNIT ADDRESS=610,CUTYPE=3088 DMK02640 - RCTLUNIT ADDRESS=630,CUTYPE=3830,FEATURE=16-DEVICE DMK02650 - RCTLUNIT ADDRESS=640,CUTYPE=3830,FEATURE=16-DEVICE DMK02660 - RCTLUNIT ADDRESS=6A0,CUTYPE=3830,FEATURE=32-DEVICE DMK02670 - RCTLUNIT ADDRESS=6F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02680 -* DMK02690 - RCTLUNIT ADDRESS=700,CUTYPE=3830,FEATURE=32-DEVICE DMK02700 - RCTLUNIT ADDRESS=730,CUTYPE=3830,FEATURE=16-DEVICE DMK02710 - RCTLUNIT ADDRESS=740,CUTYPE=3830,FEATURE=16-DEVICE DMK02720 - RCTLUNIT ADDRESS=7A0,CUTYPE=3830,FEATURE=32-DEVICE DMK02730 - RCTLUNIT ADDRESS=7F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02740 -* DMK02750 - RCTLUNIT ADDRESS=830,CUTYPE=3830,FEATURE=16-DEVICE DMK02760 - RCTLUNIT ADDRESS=840,CUTYPE=3830,FEATURE=16-DEVICE DMK02770 - RCTLUNIT ADDRESS=8A0,CUTYPE=3830,FEATURE=32-DEVICE DMK02780 - RCTLUNIT ADDRESS=8F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02790 -* DMK02800 - RCTLUNIT ADDRESS=930,CUTYPE=3830,FEATURE=16-DEVICE DMK02810 - RCTLUNIT ADDRESS=940,CUTYPE=3830,FEATURE=16-DEVICE DMK02820 - RCTLUNIT ADDRESS=9A0,CUTYPE=3830,FEATURE=32-DEVICE DMK02830 - RCTLUNIT ADDRESS=9F0,CUTYPE=3830,FEATURE=16-DEVICE DMK02840 -* DMK02850 - RCTLUNIT ADDRESS=A00,CUTYPE=3830,FEATURE=32-DEVICE DMK02860 - RCTLUNIT ADDRESS=A20,CUTYPE=3830,FEATURE=32-DEVICE DMK02870 - RCTLUNIT ADDRESS=A40,CUTYPE=3830,FEATURE=32-DEVICE DMK02880 - RCTLUNIT ADDRESS=A60,CUTYPE=3830,FEATURE=32-DEVICE DMK02890 - RCTLUNIT ADDRESS=A80,CUTYPE=3830,FEATURE=32-DEVICE DMK02900 - RCTLUNIT ADDRESS=AA0,CUTYPE=3830,FEATURE=32-DEVICE DMK02910 - RCTLUNIT ADDRESS=AC0,CUTYPE=3830,FEATURE=32-DEVICE DMK02920 - RCTLUNIT ADDRESS=AE0,CUTYPE=3830,FEATURE=32-DEVICE DMK02930 -* DMK02940 - RCTLUNIT ADDRESS=B00,CUTYPE=3830,FEATURE=32-DEVICE DMK02950 - RCTLUNIT ADDRESS=B20,CUTYPE=3830,FEATURE=32-DEVICE DMK02960 - RCTLUNIT ADDRESS=B40,CUTYPE=3830,FEATURE=32-DEVICE DMK02970 - RCTLUNIT ADDRESS=B60,CUTYPE=3830,FEATURE=32-DEVICE DMK02980 - RCTLUNIT ADDRESS=B80,CUTYPE=3830,FEATURE=32-DEVICE DMK02990 - RCTLUNIT ADDRESS=BA0,CUTYPE=3830,FEATURE=32-DEVICE DMK03000 - RCTLUNIT ADDRESS=BC0,CUTYPE=3830,FEATURE=32-DEVICE DMK03010 - RCTLUNIT ADDRESS=BE0,CUTYPE=3830,FEATURE=32-DEVICE DMK03020 -* DMK03030 - RCTLUNIT ADDRESS=C00,CUTYPE=3830,FEATURE=32-DEVICE DMK03040 - RCTLUNIT ADDRESS=C20,CUTYPE=3830,FEATURE=32-DEVICE DMK03050 - RCTLUNIT ADDRESS=C40,CUTYPE=3830,FEATURE=32-DEVICE DMK03060 - RCTLUNIT ADDRESS=C60,CUTYPE=3830,FEATURE=32-DEVICE DMK03070 - RCTLUNIT ADDRESS=C80,CUTYPE=3830,FEATURE=32-DEVICE DMK03080 - RCTLUNIT ADDRESS=CA0,CUTYPE=3830,FEATURE=32-DEVICE DMK03090 - RCTLUNIT ADDRESS=CC0,CUTYPE=3830,FEATURE=32-DEVICE DMK03100 - RCTLUNIT ADDRESS=CE0,CUTYPE=3830,FEATURE=32-DEVICE DMK03110 -* DMK03120 - RCTLUNIT ADDRESS=D00,CUTYPE=3830,FEATURE=32-DEVICE DMK03130 - RCTLUNIT ADDRESS=D20,CUTYPE=3830,FEATURE=32-DEVICE DMK03140 - RCTLUNIT ADDRESS=D40,CUTYPE=3830,FEATURE=32-DEVICE DMK03150 - RCTLUNIT ADDRESS=D60,CUTYPE=3830,FEATURE=32-DEVICE DMK03160 - RCTLUNIT ADDRESS=D80,CUTYPE=3830,FEATURE=32-DEVICE DMK03170 - RCTLUNIT ADDRESS=DA0,CUTYPE=3830,FEATURE=32-DEVICE DMK03180 - RCTLUNIT ADDRESS=DC0,CUTYPE=3830,FEATURE=32-DEVICE DMK03190 - RCTLUNIT ADDRESS=DE0,CUTYPE=3830,FEATURE=32-DEVICE DMK03200 -* DMK03210 - RCTLUNIT ADDRESS=E00,CUTYPE=3830,FEATURE=32-DEVICE DMK03220 - RCTLUNIT ADDRESS=E20,CUTYPE=3830,FEATURE=32-DEVICE DMK03230 - RCTLUNIT ADDRESS=E40,CUTYPE=3830,FEATURE=32-DEVICE DMK03240 - RCTLUNIT ADDRESS=E60,CUTYPE=3830,FEATURE=32-DEVICE DMK03250 - RCTLUNIT ADDRESS=E80,CUTYPE=3830,FEATURE=32-DEVICE DMK03260 - RCTLUNIT ADDRESS=EA0,CUTYPE=3830,FEATURE=32-DEVICE DMK03270 - RCTLUNIT ADDRESS=EC0,CUTYPE=3830,FEATURE=32-DEVICE DMK03280 - RCTLUNIT ADDRESS=EE0,CUTYPE=3830,FEATURE=32-DEVICE DMK03290 -* DMK03300 - RCTLUNIT ADDRESS=F00,CUTYPE=3830,FEATURE=32-DEVICE DMK03310 - RCTLUNIT ADDRESS=F20,CUTYPE=3830,FEATURE=32-DEVICE DMK03320 - RCTLUNIT ADDRESS=F40,CUTYPE=3830,FEATURE=32-DEVICE DMK03330 - RCTLUNIT ADDRESS=F60,CUTYPE=3830,FEATURE=32-DEVICE DMK03340 - RCTLUNIT ADDRESS=F80,CUTYPE=3830,FEATURE=32-DEVICE DMK03350 - RCTLUNIT ADDRESS=FA0,CUTYPE=3830,FEATURE=32-DEVICE DMK03360 - RCTLUNIT ADDRESS=FC0,CUTYPE=3830,FEATURE=32-DEVICE DMK03370 - RCTLUNIT ADDRESS=FE0,CUTYPE=3830,FEATURE=32-DEVICE DMK03380 -********************************************************************** DMK03390 -***** CHANNEL UNIT DEFINITIONS ***** DMK03400 -***** ------------------------ ***** DMK03410 -********************************************************************** DMK03420 - RCHANNEL ADDRESS=0,CHTYPE=MULTIPLEXOR DMK03430 - RCHANNEL ADDRESS=1,CHTYPE=BLKMPXR DMK03440 - RCHANNEL ADDRESS=2,CHTYPE=BLKMPXR DMK03450 - RCHANNEL ADDRESS=3,CHTYPE=BLKMPXR DMK03460 - RCHANNEL ADDRESS=4,CHTYPE=BLKMPXR DMK03470 - RCHANNEL ADDRESS=5,CHTYPE=BLKMPXR DMK03480 - RCHANNEL ADDRESS=6,CHTYPE=BLKMPXR DMK03490 - RCHANNEL ADDRESS=7,CHTYPE=BLKMPXR DMK03500 - RCHANNEL ADDRESS=8,CHTYPE=BLKMPXR DMK03510 - RCHANNEL ADDRESS=9,CHTYPE=BLKMPXR DMK03520 - RCHANNEL ADDRESS=A,CHTYPE=BLKMPXR DMK03530 - RCHANNEL ADDRESS=B,CHTYPE=BLKMPXR DMK03540 - RCHANNEL ADDRESS=C,CHTYPE=BLKMPXR DMK03550 - RCHANNEL ADDRESS=D,CHTYPE=BLKMPXR DMK03560 - RCHANNEL ADDRESS=E,CHTYPE=BLKMPXR DMK03570 - RCHANNEL ADDRESS=F,CHTYPE=BLKMPXR DMK03580 -********************************************************************** DMK03590 -***** CONSOLE UNIT DEFINITIONS ***** DMK03600 -***** ------------------------ ***** DMK03610 -********************************************************************** DMK03620 - RIOGEN CONS=010,ALTCONS=(011,009) DMK03630 - END DMK03640 - DMK03650 - DMK03660 - DMK03670 +NAS TITLE ' DMKRIO VM/370 RELEASE 6 - SixPack Version 1.2' +DMKRIO CSECT + EJECT +********************************************************************** +** ** +** THIS IS A NEW I/O GEN TO SUIT THE TURNKEY (4) MVS SYSTEM ** +** ** +** ** +********************************************************************** +***** CHANNEL ZERO (000) DEVICES ***** +********************************************************************** + SPACE 2 + RDEVICE ADDRESS=(004,7),DEVTYPE=3215 + RDEVICE ADDRESS=00C,DEVTYPE=2540R + RDEVICE ADDRESS=00D,DEVTYPE=2540P,CLASS=P + RDEVICE ADDRESS=00E,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=00F,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=(010,7),DEVTYPE=3277 + RDEVICE ADDRESS=01F,DEVTYPE=3215 + RDEVICE ADDRESS=(020,16),DEVTYPE=2701,ADAPTER=TELE2 + RDEVICE ADDRESS=(040,16),DEVTYPE=2701,ADAPTER=BSCA + RDEVICE ADDRESS=(0C0,16),DEVTYPE=3277 +********************************************************************** +***** CHANNEL ONE (100) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=102,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=103,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=10C,DEVTYPE=2540R,CLASS=Z + RDEVICE ADDRESS=10D,DEVTYPE=2540P,CLASS=Z + RDEVICE ADDRESS=10E,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=10F,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=(130,16),DEVTYPE=2314 + RDEVICE ADDRESS=(140,16),DEVTYPE=3350 + RDEVICE ADDRESS=(150,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(160,16),DEVTYPE=3340 +* RDEVICE ADDRESS=(170,16),DEVTYPE=3375,CLASS=DASD + RDEVICE ADDRESS=(1A0,16),DEVTYPE=3380 +* RDEVICE ADDRESS=(1B0,16),DEVTYPE=3390,CLASS=DASD + RDEVICE ADDRESS=(1C0,7),DEVTYPE=3278,MODEL=4 + RDEVICE ADDRESS=1C7,DEVTYPE=3284 + RDEVICE ADDRESS=(1C8,7),DEVTYPE=3277 + RDEVICE ADDRESS=1CF,DEVTYPE=3284 +********************************************************************** +***** CHANNEL TWO (200) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=202,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=203,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=20C,DEVTYPE=2540R,CLASS=Z + RDEVICE ADDRESS=20D,DEVTYPE=2540P,CLASS=Z + RDEVICE ADDRESS=20E,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=20F,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=(230,16),DEVTYPE=2314 + RDEVICE ADDRESS=(240,16),DEVTYPE=3350 + RDEVICE ADDRESS=(250,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(260,16),DEVTYPE=3340 +* RDEVICE ADDRESS=(270,16),DEVTYPE=3375,CLASS=DASD + RDEVICE ADDRESS=(280,16),DEVTYPE=3380 +* RDEVICE ADDRESS=(290,16),DEVTYPE=3390,CLASS=DASD + RDEVICE ADDRESS=(2C0,7),DEVTYPE=3278,MODEL=4 + RDEVICE ADDRESS=2C7,DEVTYPE=3284 + RDEVICE ADDRESS=(2C8,7),DEVTYPE=3277 + RDEVICE ADDRESS=2CF,DEVTYPE=3284 +********************************************************************** +***** CHANNEL THREE (300) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=302,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=303,DEVTYPE=3211,CLASS=(M) + RDEVICE ADDRESS=30C,DEVTYPE=2540R,CLASS=Z + RDEVICE ADDRESS=30D,DEVTYPE=2540P,CLASS=Z + RDEVICE ADDRESS=30E,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=30F,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=A + RDEVICE ADDRESS=(330,16),DEVTYPE=2314 + RDEVICE ADDRESS=(340,16),DEVTYPE=3350 + RDEVICE ADDRESS=(350,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(360,16),DEVTYPE=3340 +* RDEVICE ADDRESS=(370,16),DEVTYPE=3375,CLASS=DASD + RDEVICE ADDRESS=(380,16),DEVTYPE=3380 +* RDEVICE ADDRESS=(390,16),DEVTYPE=3390,CLASS=DASD + RDEVICE ADDRESS=(3C0,7),DEVTYPE=3278,MODEL=4 + RDEVICE ADDRESS=3C7,DEVTYPE=3284 + RDEVICE ADDRESS=(3C8,7),DEVTYPE=3277 + RDEVICE ADDRESS=3CF,DEVTYPE=3284 +********************************************************************** +***** CHANNEL FOUR (400) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(400,16),DEVTYPE=3420,MODEL=8 + RDEVICE ADDRESS=(440,16),DEVTYPE=3350 + RDEVICE ADDRESS=(480,16),DEVTYPE=3420,MODEL=8 +* RDEVICE ADDRESS=(4A0,16),DEVTYPE=3480 +********************************************************************** +***** CHANNEL FIVE (500) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(500,8),DEVTYPE=CTCA + RDEVICE ADDRESS=(510,8),DEVTYPE=CTCA + RDEVICE ADDRESS=(540,16),DEVTYPE=3350 + RDEVICE ADDRESS=(580,16),DEVTYPE=3420,MODEL=8,FEATURE=DUALDENS +********************************************************************** +***** CHANNEL SIX (600) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(600,8),DEVTYPE=CTCA + RDEVICE ADDRESS=(610,8),DEVTYPE=CTCA + RDEVICE ADDRESS=(630,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(640,16),DEVTYPE=3330,MODEL=1 + RDEVICE ADDRESS=(6A0,32),DEVTYPE=3350 + RDEVICE ADDRESS=(6F0,16),DEVTYPE=3350 +********************************************************************** +***** CHANNEL SEVEN (700) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(700,32),DEVTYPE=3350 + RDEVICE ADDRESS=(730,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(740,16),DEVTYPE=3330,MODEL=1 + RDEVICE ADDRESS=(7A0,32),DEVTYPE=3350 + RDEVICE ADDRESS=(7F0,16),DEVTYPE=3350 +********************************************************************** +***** CHANNEL EIGHT (800) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(830,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(840,16),DEVTYPE=3330,MODEL=1 + RDEVICE ADDRESS=(8A0,32),DEVTYPE=3350 + RDEVICE ADDRESS=(8F0,16),DEVTYPE=3350 +********************************************************************** +***** CHANNEL NINE (900) DEVICES ***** +********************************************************************** + RDEVICE ADDRESS=(930,16),DEVTYPE=3330,MODEL=11 + RDEVICE ADDRESS=(940,16),DEVTYPE=3330,MODEL=1 + RDEVICE ADDRESS=(9A0,32),DEVTYPE=3350 + RDEVICE ADDRESS=(9F0,16),DEVTYPE=3350 +********************************************************************** +***** CHANNEL TEN (A00) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(A00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(A20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(A40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(A60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(A80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(AA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(AC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(AE0,32),DEVTYPE=3390 +********************************************************************** +***** CHANNEL ELEVEN (B00) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(B00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(B20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(B40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(B60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(B80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(BA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(BC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(BE0,32),DEVTYPE=3390 +********************************************************************** +***** CHANNEL TWELVE (C00) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(C00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(C20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(C40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(C60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(C80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(CA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(CC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(CE0,32),DEVTYPE=3390 +********************************************************************** +***** CHANNEL THIRTEEN (D90) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(D00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(D20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(D40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(D60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(D80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(DA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(DC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(DE0,32),DEVTYPE=3390 +********************************************************************** +***** CHANNEL FOURTEEN (E00) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(E00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(E20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(E40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(E60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(E80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(EA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(EC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(EE0,32),DEVTYPE=3390 +********************************************************************** +***** CHANNEL FIFTEEN (F00) DEVICES ***** +********************************************************************** +* RDEVICE ADDRESS=(F00,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(F20,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(F40,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(F60,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(F80,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(FA0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(FC0,32),DEVTYPE=3390 +* RDEVICE ADDRESS=(FE0,32),DEVTYPE=3390 +********************************************************************** +***** CONTROL UNIT DEFINITIONS ***** +********************************************************************** + RCTLUNIT ADDRESS=000,CUTYPE=3811 + RCTLUNIT ADDRESS=008,CUTYPE=2821 + RCTLUNIT ADDRESS=010,CUTYPE=2821 + RCTLUNIT ADDRESS=018,CUTYPE=3215 + RCTLUNIT ADDRESS=020,CUTYPE=2701,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=040,CUTYPE=2701,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=0C0,CUTYPE=3272,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=100,CUTYPE=2821,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=130,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=140,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=150,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=160,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=170,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=1A0,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=1B0,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=1C0,CUTYPE=3272,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=200,CUTYPE=2821,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=230,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=240,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=250,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=260,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=270,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=280,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=290,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=2A0,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=2C0,CUTYPE=3272,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=300,CUTYPE=2821,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=330,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=340,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=350,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=360,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=370,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=380,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=390,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=3B0,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=3C0,CUTYPE=3272,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=400,CUTYPE=3420,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=440,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=480,CUTYPE=3420,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=4A0,CUTYPE=3420,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=4F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=500,CUTYPE=3088 + RCTLUNIT ADDRESS=510,CUTYPE=3088 + RCTLUNIT ADDRESS=540,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=580,CUTYPE=3803,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=5F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=600,CUTYPE=3088 + RCTLUNIT ADDRESS=610,CUTYPE=3088 + RCTLUNIT ADDRESS=630,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=640,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=6A0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=6F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=700,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=730,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=740,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=7A0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=7F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=830,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=840,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=8A0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=8F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=930,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=940,CUTYPE=3830,FEATURE=16-DEVICE + RCTLUNIT ADDRESS=9A0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=9F0,CUTYPE=3830,FEATURE=16-DEVICE +* + RCTLUNIT ADDRESS=A00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=A20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=A40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=A60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=A80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=AA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=AC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=AE0,CUTYPE=3830,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=B00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=B20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=B40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=B60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=B80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=BA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=BC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=BE0,CUTYPE=3830,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=C00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=C20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=C40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=C60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=C80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=CA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=CC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=CE0,CUTYPE=3830,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=D00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=D20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=D40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=D60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=D80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=DA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=DC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=DE0,CUTYPE=3830,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=E00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=E20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=E40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=E60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=E80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=EA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=EC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=EE0,CUTYPE=3830,FEATURE=32-DEVICE +* + RCTLUNIT ADDRESS=F00,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=F20,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=F40,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=F60,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=F80,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=FA0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=FC0,CUTYPE=3830,FEATURE=32-DEVICE + RCTLUNIT ADDRESS=FE0,CUTYPE=3830,FEATURE=32-DEVICE +********************************************************************** +***** CHANNEL UNIT DEFINITIONS ***** +********************************************************************** + RCHANNEL ADDRESS=0,CHTYPE=MULTIPLEXOR + RCHANNEL ADDRESS=1,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=2,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=3,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=4,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=5,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=6,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=7,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=8,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=9,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=A,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=B,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=C,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=D,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=E,CHTYPE=BLKMPXR + RCHANNEL ADDRESS=F,CHTYPE=BLKMPXR +********************************************************************** +***** CONSOLE UNIT DEFINITIONS ***** +********************************************************************** + RIOGEN CONS=010,ALTCONS=(011,009) + END
--- a/MNT094/DMKSNT.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT094/DMKSNT.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -1,4 +1,4 @@ -SNT TITLE 'DMKSNT VM/370 Release 6 - VM/380 Release 1.0' +SNT TITLE 'DMKSNT VM/370 Release 6 - VM/370 SixPack Release 1.2' SPACE *. * MODULE NAME - @@ -13,6 +13,13 @@ * ALL REENTRANT CODE. * * +* Change activity = * +* * +* Flag Date By Description * +* ---- ---------- ---- ------------------------------------ * +* $D01 2010/02/15 KL Move CMSDOS, CMSVSAM and CMSAMS * +* segments to higher load addresses, * +* INSTVSAM to lower. * SPACE DMKSNTBL CSECT SPACE @@ -29,30 +36,75 @@ CMSSEG NAMESYS SYSNAME=CMSSEG,SYSVOL=VM50-1,SYSCYL=, X SYSSTRT=(002,1),SYSPGCT=16,SYSHRSG=(240), X SYSPGNM=(3840-3855),SYSSIZE=64K,VSYSRES=,VSYSADR=IGNORE - EJECT -* -CMSVSAM NAMESYS SYSNAME=CMSVSAM,SYSVOL=VM50-1,SYSPGNM=(272-367), X - SYSSTRT=(003,1),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, X - SYSHRSG=(17,18,19,20,21),VSYSRES=,VSYSADR=IGNORE - EJECT -* -CMSAMS NAMESYS SYSNAME=CMSAMS,SYSVOL=VM50-1,SYSPGNM=(368-495), X - SYSSTRT=(004,1),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, X - SYSHRSG=(23,24,25,26,27,28),VSYSRES=,VSYSADR=IGNORE - EJECT -* -CMSDOS NAMESYS SYSNAME=CMSDOS,SYSVOL=VM50-1,SYSHRSG=(31), X - SYSSTRT=(006,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, X - SYSPGNM=(496-503),VSYSRES=,VSYSADR=IGNORE - EJECT -* -INSTVSAM NAMESYS SYSNAME=INSTVSAM,SYSVOL=VM50-1,SYSHRSG=(254), X - SYSSTRT=(007,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, X - SYSPGNM=(4064-4071),VSYSRES=,VSYSADR=IGNORE + EJECT , +*----------------------------------------------------------------* @D01 +* Originally, the CMSVSAM segment was loaded at * @D01 +* X'110000' (1088K). * @D01 +*----------------------------------------------------------------* @D01 +**VSAM NAMESYS SYSNAME=CMSVSAM,SYSVOL=VM50-1,SYSPGNM=(272-367), @D01 +** SYSSTRT=(003,1),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, @D01 +** SYSHRSG=(17,18,19,20,21),VSYSRES=,VSYSADR=IGNORE @D01 + SPACE 1 @D01 +*----------------------------------------------------------------* @D01 +* CMSVSAM has been moved up to X'E00000' (14336K). * @D01 +*----------------------------------------------------------------* @D01 +CMSVSAM NAMESYS SYSNAME=CMSVSAM,SYSPGNM=(3584-3679), @D01+ + SYSSTRT=(003,1),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, @D01+ + SYSHRSG=(224,225,226,227,228), @D01+ + SYSVOL=VM50-1,VSYSRES=,VSYSADR=IGNORE @D01 + EJECT , @D01 +*----------------------------------------------------------------* @D01 +* Originally, the CMSAMS segment was loaded at * @D01 +* X'170000' (1472K). * @D01 +*----------------------------------------------------------------* @D01 +**SAMS NAMESYS SYSNAME=CMSAMS,SYSVOL=VM50-1,SYSPGNM=(368-495), @D01 +** SYSSTRT=(004,1),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, @D01 +** SYSHRSG=(23,24,25,26,27,28),VSYSRES=,VSYSADR=IGNORE @D01 + SPACE 1 @D01 +*----------------------------------------------------------------* @D01 +* CMSAMS has been moved up to X'E60000' (14720K). * @D01 +*----------------------------------------------------------------* @D01 +CMSAMS NAMESYS SYSNAME=CMSAMS,SYSPGNM=(3680-3807), @D01+ + SYSSTRT=(004,1),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, @D01+ + SYSHRSG=(230,231,232,233,234,235), @D01+ + SYSVOL=VM50-1,VSYSRES=,VSYSADR=IGNORE @D01 + EJECT , @D01 +*----------------------------------------------------------------* @D01 +* Originally, the CMSDOS segment was loaded at * @D01 +* X'1F0000' (1984K). * @D01 +*----------------------------------------------------------------* @D01 +**SDOS NAMESYS SYSNAME=CMSDOS,SYSVOL=VM50-1,SYSHRSG=(31), @D01 +** SYSSTRT=(006,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, @D01 +** SYSPGNM=(496-503),VSYSRES=,VSYSADR=IGNORE @D01 + SPACE 1 @D01 +*----------------------------------------------------------------* @D01 +* CMSDOS has been moved up to X'F10000' (15424K). * @D01 +*----------------------------------------------------------------* @D01 +CMSDOS NAMESYS SYSNAME=CMSDOS,SYSPGNM=(3856-3863), @D01+ + SYSSTRT=(006,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, @D01+ + SYSHRSG=(241), @D01+ + SYSVOL=VM50-1,VSYSRES=,VSYSADR=IGNORE @D01 + EJECT , @D01 +*----------------------------------------------------------------* @D01 +* Originally, the INSTVSAM segment was loaded at * @D01 +* X'FE0000' (16256K). * @D01 +*----------------------------------------------------------------* @D01 +**STVSAM NAMESYS SYSNAME=INSTVSAM,SYSVOL=VM50-1,SYSHRSG=(254), @D01 +** SYSSTRT=(007,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, @D01 +** SYSPGNM=(4064-4071),VSYSRES=,VSYSADR=IGNORE @D01 + SPACE 1 @D01 +*----------------------------------------------------------------* @D01 +* INSTVSAM has been moved down to X'FB0000' (16064K) * @D01 +* to avoid VIRTUAL STORAGE EXCEEDED errors in loading. * @D01 +*----------------------------------------------------------------* @D01 +INSTVSAM NAMESYS SYSNAME=INSTVSAM,SYSPGNM=(4016-4023), @D01+ + SYSSTRT=(007,1),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, @D01+ + SYSHRSG=(251), @D01+ + SYSVOL=VM50-1,VSYSRES=,VSYSADR=IGNORE @D01 + EJECT , @D01 * NAME3800 CPNAME=IMAG3800,SYSVOL=VM50-1,SYSSTRT=(008,1), X SYSPGCT=5 EJECT - END + END , -
--- a/MNT094/HDKCQA.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT094/HDKCQA.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -70,10 +70,10 @@ * COMMAND FORMAT - HDK00700 * HDK00710 * +---------+---------------------+ HDK00720 -* QUERY ALLOC SYSRES HDK00730 -* TDSKS HDK00740 -* TEMP HDK00750 -* MAP HDK00760 +* | QUERY | ALLOC SYSRES | HDK00730 +* | | TDSKS | HDK00740 +* | | TEMP | HDK00750 +* | | MAP | HDK00760 * +---------+---------------------+ HDK00770 * HDK00780 * HDK00790
--- a/MNT094/HDKCQU.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT094/HDKCQU.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -60,9 +60,9 @@ * COMMAND FORMAT - 00060000 * 00061000 * +---------+---------------------+ 00062000 -* QUERY PRIV 00063000 -* MAXIMUM 00064000 -* CPSYS 00065000 +* | QUERY | PRIV | 00063000 +* | | MAXIMUM | 00064000 +* | | CPSYS | 00065000 * +---------+---------------------+ 00066000 * 00067000 * 00068000 @@ -126,7 +126,7 @@ * COMMAND FORMAT 00126000 * 00127000 * +---------+-----------+ 00128000 -* QUERY PRIV 00129000 +* | QUERY | PRIV | 00129000 * +---------+-----------+ 00130000 * 00131000 * 1. FORMAT PRIV RESPONSE 00132000 @@ -162,7 +162,7 @@ * COMMAND FORMAT 00162000 * 00163000 * +---------+-----------+ 00164000 -* QUERY MAXIMUM 00165000 +* | QUERY | MAXIMUM | 00165000 * +---------+-----------+ 00166000 * 00167000 * 1. FORMAT MAX RESPONSE 00168000 @@ -189,7 +189,7 @@ * COMMAND FORMAT 00189000 * 00190000 * +---------+-----------+ 00191000 -* QUERY CPSYS 00192000 +* | QUERY | CPSYS | 00192000 * +---------+-----------+ 00193000 * 00194000 * 1. STACK CPSYS RESPONSES (BUILT BY DMKCPI) 00195000
--- a/MNT194/DMKSNT.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,54 +0,0 @@ -SNT TITLE 'DMKSNT RELEASE 6 3330 SAMPLE' DMK00010 - SPACE DMK00020 -*. DMK00030 -* MODULE NAME - DMK00040 -* DMKSNT DMK00050 -* DMK00060 -* FUNCTION - DMK00070 -* DMK00080 -* THIS MODULE WILL BE ASSEMBLED BY THE INSTALLATION SYSTEM DMK00090 -* PROGRAMMER. IT WILL DESCRIBE THE THE SYSTEM TO BE SAVED VIA DMK00100 -* THE 'SAVESYS' COMMAND AND TO BE IPL'ED BY NAME. SHARED SEG- DMK00110 -* MENTS MAY BE SPECIFIED. THESE SEGMENTS MUST CONSIST OF DMK00120 -* ALL REENTRANT CODE. DMK00130 -* DMK00140 -* DMK00150 - SPACE DMK00160 -DMKSNTBL CSECT DMK00170 - SPACE DMK00180 -* DMK00190 -CMS NAMESYS SYSSIZE=256K,SYSNAME=CMS, XDMK00200 - VSYSADR=190,SYSVOL=VMSYS1,SYSCYL=025,SYSSTRT=(001,1), XDMK00210 - SYSPGCT=33,SYSPGNM=(0-32),SYSHRSG=(1),VSYSRES=VMSYS1 DMK00220 - EJECT DMK00230 -* DMK00240 -CMSSEG NAMESYS SYSNAME=CMSSEG,SYSVOL=VMSYS1,SYSCYL=, XDMK00250 - SYSSTRT=(001,35),SYSPGCT=16,SYSHRSG=(16), XDMK00260 - SYSPGNM=(256-271),SYSSIZE=64K,VSYSRES=,VSYSADR=IGNORE DMK00270 - EJECT DMK00280 -* DMK00290 -CMSVSAM NAMESYS SYSNAME=CMSVSAM,SYSVOL=VMSYS1,SYSPGNM=(272-367), XDMK00300 - SYSSTRT=(001,52),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, XDMK00310 - SYSHRSG=(17,18,19,20,21),VSYSRES=,VSYSADR=IGNORE DMK00320 - EJECT DMK00330 -* DMK00340 -CMSAMS NAMESYS SYSNAME=CMSAMS,SYSVOL=VMSYS1,SYSPGNM=(368-495), XDMK00350 - SYSSTRT=(003,35),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, XDMK00360 - SYSHRSG=(23,24,25,26,27,28),VSYSRES=,VSYSADR=IGNORE DMK00370 - EJECT DMK00380 -* DMK00390 -CMSDOS NAMESYS SYSNAME=CMSDOS,SYSVOL=VMSYS1,SYSHRSG=(31), XDMK00400 - SYSSTRT=(005,050),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, XDMK00410 - SYSPGNM=(496-503),VSYSRES=,VSYSADR=IGNORE DMK00420 - EJECT DMK00430 -* DMK00440 -INSTVSAM NAMESYS SYSNAME=INSTVSAM,SYSVOL=VMSYS1,SYSHRSG=(254), XDMK00450 - SYSSTRT=(006,002),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, XDMK00460 - SYSPGNM=(4064-4071),VSYSRES=,VSYSADR=IGNORE DMK00470 -* DMK00480 - NAME3800 CPNAME=IMAG3800,SYSVOL=VMSYS1,SYSSTRT=(006,11), XDMK00490 - SYSPGCT=5 DMK00500 - EJECT DMK00510 - END DMK00520 - DMK00530 -
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MNT194/DMKSNT33.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -0,0 +1,54 @@ +SNT TITLE 'DMKSNT RELEASE 6 3330 SAMPLE' DMK00010 + SPACE DMK00020 +*. DMK00030 +* MODULE NAME - DMK00040 +* DMKSNT DMK00050 +* DMK00060 +* FUNCTION - DMK00070 +* DMK00080 +* THIS MODULE WILL BE ASSEMBLED BY THE INSTALLATION SYSTEM DMK00090 +* PROGRAMMER. IT WILL DESCRIBE THE THE SYSTEM TO BE SAVED VIA DMK00100 +* THE 'SAVESYS' COMMAND AND TO BE IPL'ED BY NAME. SHARED SEG- DMK00110 +* MENTS MAY BE SPECIFIED. THESE SEGMENTS MUST CONSIST OF DMK00120 +* ALL REENTRANT CODE. DMK00130 +* DMK00140 +* DMK00150 + SPACE DMK00160 +DMKSNTBL CSECT DMK00170 + SPACE DMK00180 +* DMK00190 +CMS NAMESYS SYSSIZE=256K,SYSNAME=CMS, XDMK00200 + VSYSADR=190,SYSVOL=VMSYS1,SYSCYL=025,SYSSTRT=(001,1), XDMK00210 + SYSPGCT=33,SYSPGNM=(0-32),SYSHRSG=(1),VSYSRES=VMSYS1 DMK00220 + EJECT DMK00230 +* DMK00240 +CMSSEG NAMESYS SYSNAME=CMSSEG,SYSVOL=VMSYS1,SYSCYL=, XDMK00250 + SYSSTRT=(001,35),SYSPGCT=16,SYSHRSG=(16), XDMK00260 + SYSPGNM=(256-271),SYSSIZE=64K,VSYSRES=,VSYSADR=IGNORE DMK00270 + EJECT DMK00280 +* DMK00290 +CMSVSAM NAMESYS SYSNAME=CMSVSAM,SYSVOL=VMSYS1,SYSPGNM=(272-367), XDMK00300 + SYSSTRT=(001,52),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, XDMK00310 + SYSHRSG=(17,18,19,20,21),VSYSRES=,VSYSADR=IGNORE DMK00320 + EJECT DMK00330 +* DMK00340 +CMSAMS NAMESYS SYSNAME=CMSAMS,SYSVOL=VMSYS1,SYSPGNM=(368-495), XDMK00350 + SYSSTRT=(003,35),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, XDMK00360 + SYSHRSG=(23,24,25,26,27,28),VSYSRES=,VSYSADR=IGNORE DMK00370 + EJECT DMK00380 +* DMK00390 +CMSDOS NAMESYS SYSNAME=CMSDOS,SYSVOL=VMSYS1,SYSHRSG=(31), XDMK00400 + SYSSTRT=(005,050),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, XDMK00410 + SYSPGNM=(496-503),VSYSRES=,VSYSADR=IGNORE DMK00420 + EJECT DMK00430 +* DMK00440 +INSTVSAM NAMESYS SYSNAME=INSTVSAM,SYSVOL=VMSYS1,SYSHRSG=(254), XDMK00450 + SYSSTRT=(006,002),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, XDMK00460 + SYSPGNM=(4064-4071),VSYSRES=,VSYSADR=IGNORE DMK00470 +* DMK00480 + NAME3800 CPNAME=IMAG3800,SYSVOL=VMSYS1,SYSSTRT=(006,11), XDMK00490 + SYSPGCT=5 DMK00500 + EJECT DMK00510 + END DMK00520 + DMK00530 +
--- a/MNT19D/DMSRES.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1376 +0,0 @@ -RES TITLE 'DMSRES - CMS RESIDENT CORE LIBRARY PROCESSOR' DMS00010 -*MODULE NAME - DMS00020 -* DMS00030 -* DMSRES DMS00040 -* DMS00050 -*FUNCTION - DMS00060 -* DMS00070 -* TO ASSIST A USER IN MAINTAINING A RESIDENT CORE LIBRARY. DMS00080 -* DMS00090 -*ENTRY POINTS - DMS00100 -* DMS00110 -* DMSRES DMS00120 -* DMS00130 -*ENTRY CONDITIONS - DMS00140 -* DMS00150 -* R1 - A(CMS PLIST) DMS00160 -* R13 - A(SAVE AREA) DMS00170 -* R14 - RETURN ADDRESS DMS00180 -* R15 - ENTRY POINT ADDRESS DMS00190 -* DMS00200 -*EXIT CONDITIONS - DMS00210 -* DMS00220 -* R15 - RETURN CODE: DMS00230 -* = 0 -> FUNCTION COMPLETED. DMS00240 -* > 0 -> FUNCTION NOT COMPLETED. DMS00250 -* DMS00260 -*MODULE ATTRIBUTES - DMS00270 -* DMS00280 -* TRASIENT AREA, SYSTEM KEY, SERIALLY REUSEABLE, CALLED VIA SVC DMS00290 -* 202 AS FOLLOWS: DMS00300 -* DMS00310 -* R1 -> DC CL8'RESLIB' DMS00320 -* DC CL8'ALLOCATE' (ALLOCATE PROTECTED STORAGE) DMS00330 -* DC CL8'<PAGES>' (NUMBER OF 4K PAGES TO ALLOCATE, MUS DMS00340 -* MUST BE 1 TO 256) DMS00350 -* DC CL8'(' (OPTION SEPARATOR) DMS00360 -* DC CL8'KEY <NN>' (STORAGE PKEY TO ASSIGN TO AREA) DMS00370 -* DC CL8'PERM' (PROTECT AGAINST DEL *) DMS00380 -* DC XL8'FF' DMS00390 -* DMS00400 -* R1 -> DC CL8'RESLIB' DMS00410 -* DC CL8'DELETE' (DELETE PREVIOUS ALLOC OR LOAD) DMS00420 -* DC CL8'<ID *> (ALLOCATE OR LOAD ID. IF *, THEN DMS00430 -* DELETE ALL BUT PERM SPACE) DMS00440 -* DC XL8'FF' DMS00450 - EJECT DMS00460 -* R1 -> DC CL8'RESLIB' DMS00470 -* DC CL8'LIST' (DISPLAY ONE OR MORE ENTRIES) DMS00480 -* DC CL8'<ID *> (ALLOCATE OR LOAD ID. IF *, THEN DMS00490 -* DISPLAY ALL ENTRIES) DMS00500 -* DC CL8'(' (OPTION SEPARATOR) DMS00510 -* DC CL8'STACK' (STACK OUTPUT FIFO, NOTYPE DFLT) DMS00520 -* DC CL8'TYPE' (TYPE THE DISPLAY, NORMAL DFLT) DMS00530 -* DC CL8'NOTYPE' (SUPPRESS TYPE OUT) DMS00540 -* DC XL8'FF' DMS00550 -* DMS00560 -* R1 -> DC CL8'RESLIB' DMS00570 -* DC CL8'LOAD' (LOAD A PROGRAM INTO PROT STORE) DMS00580 -* DC CL8'<ID>' (FNAME OF TEXT BECOMES AREA ID) DMS00590 -* DC CL8'(' (OPTION SEPARATOR) DMS00600 -* DC CL8'NAME <NAME>' (TRUE NAME OF ENTRY) DMS00610 -* DC CL8'PERM' (PROTECT FROM DEL *) DMS00620 -* DC CL8'SYSTEM' (LEAVE AREA IN KEY F. WHEN CALLED, DMS00630 -* PSW KEY=0, MASK=DISABLED. ELSE STORE DMS00640 -* KEY=E, PSW KEY=E, MASK=ENABLED) DMS00650 -* DC XL8'FF' DMS00660 -* DMS00670 -*GENERAL COMMAND SYNTAX: DMS00680 -* DMS00690 -* ALLOCATE <ID> <( NAME . KEY . PERM < ) >> DMS00700 -* DELETE <ID * > DMS00710 -* LIST <ID * > <( STACK TYPE NOTYPE < ) >> DMS00720 -* RESLIB LOAD <ID> <( PERM SYSTEM NAME ...< ) >> DMS00730 -* DMS00740 -*MINIMUM ABBREVIATIONS - DMS00750 -* DMS00760 -* ALLOCATE -> A DELETE -> D LIST -> L DMS00770 -* LOAD -> LO DMS00780 -* DMS00790 -* KEY -> KEY NAME -> NAME NOTYPE -> NOT DMS00800 -* PERM -> PERM STACK -> STACK SYSTEM -> SYS DMS00810 -* TYPE -> T DMS00820 - EJECT DMS00830 -*NOTES - DMS00840 -* DMS00850 -* 1. THIS ROUTINE MUST BE LOADED IN THE TRANSIENT AREA AND DMS00860 -* GENERATED WITH A NAME OF RESLIB WITH THE SYSTEM OPTION. DMS00870 -* DMS00880 -* 2. THE ALLOCATE, LOAD, AND LIST FUNCTION RETURN THE ADDRESS DMS00890 -* OF THE RELEVANT AREA IN R1. DMS00900 -* DMS00910 -* 3. DUPLICATE OPTIONS ARE ACCEPTED. THE RIGHTMOST IS USED. DMS00920 -* DMS00930 -*LOCALLY ISSUED MESSAGES: DMS00940 -* DMS00950 -* DMSRES003E INVALID OPTION '........' RC=24 DMS00960 -* DMSRES005E NO 'KEY NAME' SPECIFIED RC=24 DMS00970 -* DMSRES014E INVALID FUNCTION '........' RC=24 DMS00980 -* DMSRES026W '........' NOT IN LIBRARY RC=4 DMS00990 -* DMSRES026E INVALID ........ '........' FOR '........' FUNCTION RC=24 DMS01000 -* DMSRES027W NO PRIVATE CORE IMAGE LIBRARY RC=4 DMS01010 -* DMSRES029E INVALID PARAMETER '....' IN THE '....' OPTION FIELD RC=24 DMS01020 -* DMSRES047E NO FUNCTION SPECIFIED RC=24 DMS01030 -* DMSRES050E PARAMETER MISSING AFTER ........ RC=24 DMS01040 -* DMSRES070E INVALID PARAMETER '........' RC=24 DMS01050 -* DMSRES109S VIRTUAL STORAGE CAPACITY EXCEEDED RC=104 DMS01060 -* DMSRES224E '........ ALREADY IN USE' RC=24 DMS01070 -* DMS01080 -*LOGIC - DMS01090 -* DMS01100 -* DOCUMENTED AT EACH MAJOR PORTION OF THE PROGRAM. DMS01110 - SPACE 3 DMS01120 -*********************************************************************** DMS01130 -* * DMS01140 -* S E T C D E P E N D I N G O N C M S L E V E L * DMS01150 -* * DMS01160 -*********************************************************************** DMS01170 - SPACE DMS01180 - GBLC &STATE DMS01190 -&STATE SETC 'ASTATE' FOR REL < 6.0 OR ANY W/O BSEP SEP DMS01200 -*STATE SETC 'AESTATE' FOR REL >=6.0 WITH BSEP OR SEP DMS01210 - EJECT DMS01220 -*STEP 1: PERFORM ENTRY INITIALIZATION DMS01230 -* DMS01240 -DMSRES CSECT DMS01250 - PRINT NOGEN DMS01260 - USING NUCON,R0 DMS01270 - USING FUNCBLOK,R3 DMS01280 - USING LIBNTRY,R7 DMS01290 - USING *,R12 DMS01300 - SPACE DMS01310 - LR R12,R15 SET BASE REGISTER DMS01320 - LR R11,R14 SAVE RETURN ADDRESS DMS01330 - LA R8,8(,R1) SET PLIST POINTER DMS01340 - MVI FBITS,0 CLEAR THE FBITS DMS01350 - MVI OBITS,0 CLEAR THE OBITS DMS01360 - MVI LKEY,X'0E' SET USER KEY DMS01370 - SPACE DMS01380 -*STEP 2: SETUP TO SCAN FOR FUNCTION NAME DMS01390 -* DMS01400 - BAL R10,GETLEN GET LEN-1 DMS01410 - LM R3,R5,=A(FUNCTAB,FUNCTABL,FUNCTABE) GET FUNCTION PNTRS DMS01420 - SPACE DMS01430 -*STEP 3: SCAN FOR A VALID FUNCTION DMS01440 -* DMS01450 -CHKFUNC1 EX R1,CLCFUNC IF FUNCTION NAMES THE SAME DMS01460 - BE GOTFUNC THEN PROCESS IT DMS01470 - BXLE R3,R4,CHKFUNC1 ELSE KEEP LOOKING DMS01480 - SPACE DMS01490 -*STEP 4: NO VALID FUNCTION NAME FOUND. CHECK TYPE OF ERR MSG TO GIVE DMS01500 -* DMS01510 - CLC 0(2,R8),=C'(' IF OPTION LIST FOUND DMS01520 - BE NOFUNC THEN NO FUNCTION SPECIFIED DMS01530 - CLI 0(R8),X'FF' ELSE END OF PLIST DMS01540 - BE NOFUNC THEN NO FUNCTION FOUND DMS01550 - B BADFUNC ELSE IT IS AN INVALID ONE DMS01560 - EJECT DMS01570 -*STEP 5: CHECK IF REMAINDER OF PLIST IS TO BE PROCESSED DMS01580 -* DMS01590 -GOTFUNC LA R8,8(,R8) POINT TO START OF PARMS DMS01600 - TM FUNCFLAG,NOFPROC IF NO PLIST PROCESSING DMS01610 - BO FUNCXEQ THEN EXECUTE THE FUNCTION DMS01620 - SPACE DMS01630 -*STEP 6: CHECK IF ENTRY ID SPECIFIED AND IF SO, GET IT DMS01640 -* DMS01650 - BAL R10,SCANP SCAN PLIST FOR END DMS01660 - BZ CHKNAME IF END, THEN CHECK IF FNAME NEEDED DMS01670 - MVC LOADTXTN(8),0(R8) ELSE GET FNAME DMS01680 - LA R8,8(,R8) POINT TO NEXT TOKEN DMS01690 - B CHKXEQ AND CHECK FOR FURTHER PROCESSING DMS01700 - SPACE DMS01710 -*STEP 7: NO <ID> SPECIFIED, CHECK IF THIS IS ACCEPTABLE DMS01720 -* DMS01730 -CHKNAME TM FUNCFLAG,SKPNAME IF NAME NOT OPTIONAL DMS01740 - BNO NOPARM THEN ERROR DMS01750 - MVC LOADTXTN(2),=C'* ' ELSE INDICATE STAR DMS01760 - SPACE DMS01770 -*STEP 8: CHECK IF IMMEDIATE XEQ REQUIRED OR OPTION CHECKING DMS01780 -* DMS01790 -CHKXEQ TM FUNCFLAG,IXEQ IF NOT IMMED XEQ DMS01800 - BNO GETOP THEN PROCESS THE OPTIONS DMS01810 - B FUNCXEQ ELSE EXECUTE THE FUNCTION DMS01820 - EJECT DMS01830 -*********************************************************************** DMS01840 -* * DMS01850 -* O P T I O N L I S T P R O C E S S I N G * DMS01860 -* * DMS01870 -*********************************************************************** DMS01880 - SPACE DMS01890 -*STEP 1: CHECK IF WE ACTUALLY HAVE A VALID OPTION LIST DMS01900 -* DMS01910 -GETOP CLI 0(R8),X'FF' IF END OF PLIST DMS01920 - BE FUNCXEQ THEN START XEQ DMS01930 - CLC 0(2,R8),=C'( ' IF TOKEN ^= '(' DMS01940 - BNE CONFLCTP THEN INVALID PARAMETER DMS01950 - SPACE DMS01960 -*STEP 2: BUMP TO NEXT TOKEN AND CHECK IF OPTION LIST HAS ENDED DMS01970 -* DMS01980 -GETOP1 LA R8,8(,R8) BUMP TO NEXT TOKEN DMS01990 - CLI 0(R8),X'FF' IF END OF PLIST DMS02000 - BE FUNCXEQ THEN EXCUTE FUNCTION DMS02010 - CLC 0(2,R8),=C') ' IF CLOSE PAREN DMS02020 - BE FUNCXEQ THEN EXECUTE FUNCTION DMS02030 - SPACE DMS02040 -*STEP 3: PREPARE TO SCAN THE OPTION TABLE DMS02050 -* DMS02060 - LA R2,7(,R8) POINT TO LAST BYTE OF OPTION DMS02070 - BAL R10,GETLEN GET LEN-1 DMS02080 - LM R5,R7,=A(OPTABLE,OPTABLN,OPTABND) GET TBL PNTRS DMS02090 - USING OPTBLOK,R5 DMS02100 - SPACE DMS02110 -*STEP 4: SCAN FOR VALID OPTION DMS02120 -* DMS02130 -GETOP2 CLM R1,B'0001',OPTLEN IF OUR STRING IS TO SHORT DMS02140 - BL GETOP2A THEN SKIP IT DMS02150 - EX R1,CLCOPT ELSE IF OPTION NAMES COMPARE DMS02160 - BE GETOP3 THEN FOUND OPTION DMS02170 -GETOP2A BXLE R5,R6,GETOP2 ELSE LOOK AT NEXT ONE DMS02180 - B BADOPT INVALID OPTION DMS02190 - SPACE DMS02200 -*STEP 5: CHECK IF OPTION VALID FOR FUNCTION AND SET INDICATOR IF SO DMS02210 -* DMS02220 -GETOP3 MVC 0(1,R13),FUNCOPT GET VALID OPTION BITS DMS02230 - NC 0(1,R13),OPTVALID IF OPTION NOT ONE OF THEM DMS02240 - BZ CONFLCTO THEN OPTION/FUNCTION CONFLICT DMS02250 - NC OBITS(1),OPTMASK REMOVE TOGGLE OPTIONS DMS02260 - OC OBITS(1),OPTBITS SET OPTION INDICATOR DMS02270 - EJECT DMS02280 -*STEP 6: CHECK FOR 'NAME' OPTION AND PROCESS DMS02290 -* DMS02300 - CLC CHKNAMO(8),0(R5) IF NOT THE NAME OPTION DMS02310 - BNE GETOP4 THEN CHECK FOR KEY OPTION DMS02320 - LA R8,8(,R8) ELSE POINT TO NEXT OPTION DMS02330 - BAL R10,SCANP CHECK IF END OF PLIST HERE DMS02340 - BZ NOPTV IF SO, THEN NAME NOT SPECIFIED DMS02350 - MVC NEWNAME(8),0(R8) ELSE SET NEW NAME DMS02360 - B GETOP1 GET NEXT OPTION DMS02370 - SPACE DMS02380 -*STEP 7: CHECK IF 'KEY' SPECIFIED AND PROCESS DMS02390 -* DMS02400 -GETOP4 CLC CHKKEY(8),0(R8) IF KEY NOT SPECIFIED DMS02410 - BNE GETOP1 THEN GET NEXT OPTION DMS02420 - LA R8,8(,R8) ELSE POINT TO NEXT TOKEN DMS02430 - BAL R10,SCANP CHECK IF AT END OF PLIST DMS02440 - BZ NOPTV IF AT END, THEN ERROR DMS02450 - BAL R10,GETLEN ELSE GET LEN-1 OF TOKEN DMS02460 - BAL R10,GETNUM CONVERT IT DMS02470 - BNZ BADVAL IF INVALID, THEN ERROR DMS02480 - CH R15,=H'15' IF KEY > X'0F' DMS02490 - BH BADVAL THEN INVALID DMS02500 - STC R15,LKEY ELSE SET KEY VALUE DMS02510 - B GETOP1 AND GET NEXT OPTION DMS02520 - DROP R5 DMS02530 - EJECT DMS02540 -*********************************************************************** DMS02550 -* * DMS02560 -* A L L O C A T E F U N C T I O N P R O C E S S I N G * DMS02570 -* * DMS02580 -*********************************************************************** DMS02590 - SPACE DMS02600 -*STEP 1: GET THE NUMBER OF PAGES TO BE ALLOCATED DMS02610 -* DMS02620 -ALO LA R8,LOADTXTN POINT TO NUMBER OF PAGES DMS02630 - BAL R10,GETLEN GET LEN-1 DMS02640 - BAL R10,GETNUM CONVERT IT TO BINARY DMS02650 - BNZ CONFLCTP IF INVALID, THEN EXIT DMS02660 - STH R15,SAVENUM SAVE THE NUMBER DMS02670 - SPACE DMS02680 -*STEP 2: CHECK IF USER TRYING TO ALLOCATE DUPLICATE ID DMS02690 -* DMS02700 - TM OBITS,OPTNAM IF NAME NOT SPECIFIED DMS02710 - BNO ALO01 THEN SKIP DUP ID CHECK DMS02720 - MVC LOADTXTN(8),NEWNAME ELSE SUPPLY NAME DMS02730 - BAL R10,SCANTAB FIND ID IN LIB TABLE DMS02740 - BZ DUPID IF FOUND, THEN ERROR DMS02750 - SPACE DMS02760 -*STEP 3: ALLOCATE A NEW LIB TABLE ENTRY AND CHECK IF UNIQUE ID NEEDED DMS02770 -* DMS02780 -ALO01 SR R0,R0 GET FREE LIB ENTRY DMS02790 - BAL R10,SCANTABA VIA SPECIAL SEARCH DMS02800 - BNZ NOSTOR IF NONE, THEN TABLE IS FULL DMS02810 - TM OBITS,OPTNAM IF NAME SPECIFIED DMS02820 - BO ALO03 THEN SKIP THE ID GENERATION DMS02830 - LR R5,R15 SAVE THE ENTRY NUMBER DMS02840 - STM R0,R7,STSAVE SAVE SOME REGS DMS02850 - NI FBITS,255-SEEKADR RESET SEEK BIT DMS02860 - SPACE DMS02870 -*STEP 4: CONSTRUCT A UNIQUE ID FOR THE USER DMS02880 -* DMS02890 -ALO02 STCK DTEMP SAVE CURRENT TOD DMS02900 - STC R5,DTEMP+7 INSERT ENTRY ID DMS02910 - UNPK 0(9,R13),DTEMP+4(5) BREAK OUT ALL DIGITS DMS02920 - MVC LOADTXTN(8),0(R13) MOVE OVER RELEVANT PORTION DMS02930 - NC LOADTXTN(8),=8X'0F' ISOLATE THE DIGITS DMS02940 - TR LOADTXTN(8),=C'ABCDEFGHJKMNPQRS' CREATE NAME DMS02950 - BAL R10,SCANTAB FIND THE ENTRY DMS02960 - BZ ALO02 IF FOUND, GENERATE A NEW ONE DMS02970 - MVC NEWNAME(8),LOADTXTN ELSE MAKE THIS THE NAME DMS02980 - LM R0,R7,STSAVE RESTORE THE REGS DMS02990 - EJECT DMS03000 -*STEP 5: ALLOCATE STORAGE BASED ON NUMBER OF PAGES WANTED DMS03010 -* DMS03020 -ALO03 LH R2,SAVENUM GET NUMBER OF PAGES DMS03030 - SLL R2,12 MULTIPLY BY 4096 DMS03040 - BAL R10,GETCORE GET THE STORAGE DMS03050 - BNZ NOSTOR IF NOT ENOUGH FREE AREA, ERROR DMS03060 - SPACE DMS03070 -*STEP 6: ENTER THE AREA IN THE LIB TABLE AND RETURN EPA TO USER DMS03080 -* DMS03090 - LR R1,R3 R1 <- EPA (SAME AS START LOC) DMS03100 - BAL R10,ADDNTRY ADD THE ENTRY DMS03110 - BAL R10,RETNTRY RETURN IT TO USER VIA R1 DMS03120 - B EXIT00 ALL DONE DMS03130 - EJECT DMS03140 -*********************************************************************** DMS03150 -* * DMS03160 -* D E L E T E F U N C T I O N P R O C E S S I N G * DMS03170 -* * DMS03180 -*********************************************************************** DMS03190 - SPACE DMS03200 -*STEP 1: CHECK IF '*' SPECIFIED INDICATING ALL NON-PERM DELETES DMS03210 -* DMS03220 -DELT CLC LOADTXTN(2),=C'* ' IF STAR NOT GIVEN DMS03230 - BNE DELT03 THEN DELETE ONLY ONE ENTRY DMS03240 - BAL R14,GETLIB ELSE GET A(LIB TABLE) DMS03250 - BNZ EXIT00 IF NONE, THEN ALL DONE DMS03260 - LA R5,LIBMAXN ELSE DELETE ALL POSSIBLE ENTRIES DMS03270 - SPACE DMS03280 -*STEP 2: DELETE ALL APPLICABLE ENTRIES DMS03290 -* DMS03300 -DELT01 CLI LIBID,0 IF NULL ENTRY HIT DMS03310 - BE EXIT00 THEN ALL DONE DMS03320 - TM LIBFLAGS,LIBPERM IF THIS IS NOT A PERM ENTRY DMS03330 - BNO DELT02 THEN DELETE DMS03340 - LA R7,LIBSIZE(,R7) ELSE POINT TO NEXT ENTRY DMS03350 - BCT R5,DELT01 AND CHECK IT OUT DMS03360 - B EXIT00 ALL DONE DMS03370 - SPACE DMS03380 -*STEP 3: FREE THE ENTRY STORAGE AND DELETE FROM LIB TABLE DMS03390 -* DMS03400 -DELT02 LM R2,R3,LIBLEN GET LEN & ADDRESS DMS03410 - BAL R10,RELCORE RELEASE THE STORAGE DMS03420 - BAL R10,RELNTRY RELEASE THE LIB TABLE ENTRY DMS03430 - BNZ DELT01 IF MORE LEFT, CHECK THEM OUT DMS03440 - B EXIT00 ELSE ALL DONE DMS03450 - SPACE DMS03460 -*STEP 4: FIND MATCHING ENTRY ID ENTRY IN LIB TABLE DMS03470 -* DMS03480 -DELT03 BAL R10,SCANTAB SCAN LIB TABLE DMS03490 - BNZ NOTXT IF NOT FOUND, THEN ERROR DMS03500 - SPACE DMS03510 -*STEP 5: ENTRY FOUND, RELEASE ITS STORAGE AND DELETE THE TABLE ENTRY DMS03520 -* DMS03530 - BAL R10,RELCORE RELEASE ENTRY STORAGE DMS03540 - BAL R10,RELNTRY RELEASE THE ENTRY DMS03550 - B EXIT00 AND EXIT WITH RC=0 DMS03560 - EJECT DMS03570 -*********************************************************************** DMS03580 -* * DMS03590 -* L O A D F U N C T I O N P R O C E S S I N G * DMS03600 -* * DMS03610 -*********************************************************************** DMS03620 - SPACE DMS03630 -*STEP 1: CHECK IF NAME TO BE ENTERED IS A DUPLICATE DMS03640 -* DMS03650 -LOADF MVC STSAVE(8),LOADTXTN SAVE CURRENT NAME DMS03660 - TM OBITS,OPTNAM IF 'NAME' NOT SPECIFIED DMS03670 - BNO *+10 THEN ALL IS WELL DMS03680 - MVC LOADTXTN(8),NEWNAME ELSE SET NEW NAME DMS03690 - BAL R10,SCANTAB TRY TO FIND THE ENTRY DMS03700 - BZ DUPID IF FOUND, THEN ERROR DMS03710 - MVC NEWNAME(8),LOADTXTN ELSE SET THE ENTRY NAME DMS03720 - MVC LOADTXTN(8),STSAVE RESTORE LOAD NAME DMS03730 - SPACE DMS03740 -*STEP 2: GET A LIB TABLE ENTRY & LOAD ROUTINE INTO LOW STORAGE FIRST DMS03750 -* SO THAT WE CAN COMPUTE THE AMOUNT OF STORAGE NEEDED FOR IT. DMS03760 -* DMS03770 - SR R0,R0 LOOK FOR EMPTY SLOT DMS03780 - BAL R10,SCANTABA VIA SCANTAB ONCE MORE DMS03790 - BNZ NOSTOR IF NONE, TABLE IS FULL DMS03800 - L R3,MAINHIGH ELSE GET A CLEAR STORAGE AREA DMS03810 - BAL R10,LOADTXT DO INITIAL LOAD DMS03820 - BNZ EXITRC IF ERROR, EXIT W/ LOADER RC DMS03830 - SPACE DMS03840 -*STEP 3: COMPUTE THE AMOUNT OF STORAGE NEEDED BASED OF STARTING DMS03850 -* LOCATION AND ENDING LOCATION AS COMPUTE BY THE LOADER. DMS03860 -* DMS03870 - LR R2,R0 R2 <- ENDING ADDRESS DMS03880 - SR R2,R3 SIZE = LOCCNT - START ADDRESS DMS03890 - TM OBITS,OPTSYS IF SYSTEM OPTION NOT SPECIFIED DMS03900 - BNO *+8 THEN KEY VALUE IS CORRECT DMS03910 - MVI LKEY,X'0F' ELSE SET STORAGE TO KEY X'F' DMS03920 - BAL R10,GETCORE ALLOCATE STORAGE DMS03930 - BNZ NOSTOR IF NONE, THEN ERROR DMS03940 - SPACE DMS03950 -*STEP 4: LOAD THE FILE IN HIGH STORAGE ONCE AGAIN. IF ERROR, RELEASE DMS03960 -* THE STORAGE WE GOT BEFORE WE EXIT. DMS03970 -* DMS03980 - BAL R10,LOADTXT LOAD THE FILE DMS03990 - BZ LOADF01 IF IT WAS LOADED, WE ARE ALL SET DMS04000 - LR R9,R15 ELSE GET RC DMS04010 - BAL R10,RELCORE RELEASE THE STORAGE DMS04020 - LR R15,R9 RESTORE THE LOADER RC DMS04030 - B EXITRC AND EXIT DMS04040 - SPACE DMS04050 -*STEP 5: ADD NEW ENTRY INTO THE LIB TABLE AND RETURN ADDR TO USER DMS04060 -* DMS04070 -LOADF01 L R1,STRTADDR GET ENTRY POINT ADDRESS DMS04080 - BAL R10,ADDNTRY ADD IT TO THE LIB TABLE DMS04090 - BAL R10,RETNTRY SUPPLY EPA VIA R1 DMS04100 - OI LIBFLAGS,LIBCMD FLAG AS A RESIDENT COMMAND DMS04110 - B EXIT00 AND EXIT DMS04120 - EJECT DMS04130 -*********************************************************************** DMS04140 -* * DMS04150 -* L I S T F U N C T I O N P R O C E S S I N G * DMS04160 -* * DMS04170 -*********************************************************************** DMS04180 - SPACE DMS04190 -*STEP 1: SET CORRECT OPTIONS BASED ON SPECIFIED OPTIONS DMS04200 -* DMS04210 -LST TM OBITS,OPTYPE+OPNTYPE IF TYPE NOTYPE SPECIFIED DMS04220 - BNZ LST00 THEN OPTIONS ARE SET DMS04230 - OI OBITS,OPTYPE ELSE FORCE TYPING DMS04240 - TM OBITS,OPTSTK IF STACK NOT SPECIFIED DMS04250 - BNO LST00 THEN OPTIONS ARE SET DMS04260 - NI OBITS,255-OPTYPE ELSE RESET TYPING DMS04270 - OI OBITS,OPNTYPE AND INDICATE NOTYPING DMS04280 - SPACE DMS04290 -*STEP 2: CHECK IF '*' SPECIFIED FOR FNAME (IF IT WAS, USER WANTS A DMS04300 -* COMPLETE LIST OF THE LIB TABLE). ELSE TYPE SINGLE ENTRY. DMS04310 -* DMS04320 -LST00 CLC LOADTXTN(2),=C'* ' IF STAR SPECIFIED DMS04330 - BE LST01 THEN GIVE COMPLETE LIST DMS04340 - BAL R10,SCANTAB ELSE FIND THE MATCHING ENTRY DMS04350 - BNZ NOTXTL IF NONE, THEN ERROR DMS04360 - BAL R10,RETNTRY ELSE RETURN EPA FOR USER DMS04370 - BAL R10,TYPENTRY TYPE THE INFO DMS04380 - B EXIT00 AND EXIT WITH RC = 0 DMS04390 - SPACE DMS04400 -*STEP 3: SCAN COMPLETE LIB TABLE TYPING ALL VALID ENTRIES DMS04410 -* DMS04420 -LST01 LA R5,LIBMAXN DO ALL OF THE ENTRIES DMS04430 - BAL R14,GETLIB GET A(LIB TABLE) DMS04440 - BNZ NOTXTA IF NONE, GIVE WARNING MESSAGE DMS04450 - SPACE DMS04460 -LST01A CLI LIBID,0 IF ENTRY IS NULL DMS04470 - BE LST01B THE SKIP IT DMS04480 - BAL R10,TYPENTRY ELSE TYPE IT DMS04490 - SPACE DMS04500 -LST01B LA R7,LIBSIZE(,R7) ELSE POINT TO NEXT ENTRY DMS04510 - BCT R5,LST01A AND TYPE IT IF NOT NULL DMS04520 - SPACE DMS04530 -*STEP 4: CHECK IF ANYTHING ACTUALLY TYPED AND EXIT CORRECTLY DMS04540 -* DMS04550 - TM FBITS,HDR IF SOMETHING WAS TYPED DMS04560 - BO EXIT00 THEN EXIT NORMALLY DMS04570 - TM OBITS,OPTYPE IF NOTYPE IN EFFECT DMS04580 - BNO EXIT04 THEN JUST EXIT DMS04590 - B NOTXTA ELSE ISSUE ERROR MESSAGE DMS04600 - EJECT DMS04610 -*********************************************************************** DMS04620 -* * DMS04630 -* E R R O R M E S S A G E S * DMS04640 -* * DMS04650 -*********************************************************************** DMS04660 - SPACE DMS04670 -* DMSRES003E DMS04680 -* DMS04690 -BADOPT DMSERR TEXT='INVALID OPTION ''........''',NUM=3,LET=E, XDMS04700 - SUB=(CHARA,(R8)) DMS04710 - B EXIT24 DMS04720 - SPACE DMS04730 -* DMSRES005E DMS04740 -* DMS04750 -NOPTV DMSERR TEXT='NO ''....'' SPECIFIED',NUM=5,LET=E, XDMS04760 - SUB=(CHARA,(R5)) DMS04770 - B EXIT24 DMS04780 - SPACE DMS04790 -* DMSRES014E DMS04800 -* DMS04810 -BADFUNC DMSERR TEXT='INVALID FUNCTION ''........''',NUM=14,LET=E, XDMS04820 - SUB=(CHARA,(R8)) DMS04830 - B EXIT24 DMS04840 - SPACE DMS04850 -* DMSRES026W DMS04860 -* DMS04870 -NOTXTL TM OBITS,OPTYPE IF TYPE IS SUPPRESSED DMS04880 - BNO EXIT04 THEN SKIP THE MESSAGE DMS04890 -NOTXT DMSERR TEXT='''........'' NOT IN LIBRARY',NUM=26,LET=W, XDMS04900 - SUB=(CHARA,LOADTXTN) DMS04910 - B EXIT04 DMS04920 - SPACE DMS04930 -* DMSRES026E DMS04940 -* DMS04950 -CONFLCTO LA R2,=CL9'OPTION' OPTION/FUNCTION CONFLICT DMS04960 - B CONFLCT DMS04970 -CONFLCTP LA R2,=CL9'PARAMETER' PARAMETER/FUNCTION CONFLICT DMS04980 - SPACE DMS04990 -CONFLCT DMSERR TEXT='INVALID ......... ''........'' FOR ''........'' XDMS05000 - FUNCTION',NUM=26,LET=E,SUB=(CHARA,(R2),CHARA,(R8), XDMS05010 - CHARA,FUNCNAME),RENT=NO DMS05020 - B EXIT24 DMS05030 - SPACE DMS05040 -* DMSRES027W DMS05050 -* DMS05060 -NOTXTA TM OBITS,OPTYPE IF NOTYPING WANTED DMS05070 - BNO EXIT04 THEN JUST EXIT DMS05080 - DMSERR TEXT='NO PRIVATE CORE IMAGE LIBRARY',NUM=27,LET=W DMS05090 - B EXIT04 DMS05100 - EJECT DMS05110 -* DMSRES029E DMS05120 -* DMS05130 -BADVAL DMSERR TEXT='INVALID PARAMETER ''........'' IN THE OPTION ''.XDMS05140 - .......'' FIELD',NUM=29,LET=E,RENT=NO, XDMS05150 - SUB=(CHARA,(R8),CHARA,(R5)) DMS05160 - B EXIT24 DMS05170 - SPACE DMS05180 -* DMSRES047E DMS05190 -* DMS05200 -NOFUNC DMSERR TEXT='NO FUNCTION SPECIFIED',NUM=47,LET=E DMS05210 - B EXIT24 DMS05220 - SPACE DMS05230 -* DMSRES050E DMS05240 -* DMS05250 -NOPARM DMSERR TEXT='PARAMETER MISSING AFTER ........',NUM=50,LET=E, XDMS05260 - SUB=(CHARA,FUNCNAME) DMS05270 - B EXIT24 DMS05280 - SPACE DMS05290 -* DMSRES109S DMS05300 -* DMS05310 -NOSTOR DMSERR TEXT='VIRTUAL STORAGE CAPACITY EXCEEDED',NUM=109,LET=S DMS05320 - B EXIT104 DMS05330 - SPACE DMS05340 -* DMSRES224E DMS05350 -* DMS05360 -DUPID DMSERR TEXT='........ ALREADY IN USE',NUM=224,LET=E, XDMS05370 - SUB=(CHARA,LOADTXTN) DMS05380 - B EXIT24 DMS05390 - SPACE DMS05400 -* EXIT HERE FOR RC = 0 DMS05410 -* DMS05420 -EXIT00 SR R15,R15 RC = 0 DMS05430 -EXITRC BR R11 RETURN TO CMS DMS05440 - SPACE DMS05450 -* EXIT HERE FOR RC = 4 DMS05460 -* DMS05470 -EXIT04 LA R15,4 RC = 4 DMS05480 - BR R11 RETURN DMS05490 - SPACE DMS05500 -* EXIT HERE FOR RC = 24 DMS05510 -* DMS05520 -EXIT24 LA R15,24 RC = 24 DMS05530 - BR R11 EXIT DMS05540 - SPACE DMS05550 -* EXIT HERE FOR RC = 104 DMS05560 -* DMS05570 -EXIT104 LA R15,104 RC = 104 DMS05580 - BR R11 EXIT DMS05590 - EJECT DMS05600 -*SUBROUTINE - DMS05610 -* SCANTAB DMS05620 -* SCANTABA DMS05630 -* DMS05640 -*FUNCTION - DMS05650 -* SCAN THE LIB TABLE FOR A NAME (SCANTAB) OR ADDRESS (SCANTABA) DMS05660 -* DMS05670 -*ENTRY CONDITIONS - DMS05680 -* R10 - RETURN ADDRESS DMS05690 -* ADDITIONALLY: DMS05700 -* IF FBITS = SEEKADR THEN R0 CONTAINS ADDRESS TO SEEK FOR. DMS05710 -* THIS ADDRESS CORRESPONDS TO THE LIBADR FIELD. DMS05720 -* IF FBITS ^ SEEKADR THEN AREA LOADTXTN CONTAINS AN 8 CHAR DMS05730 -* NAME TO BE FOUND IN THE LIB TABLE. DMS05740 -* DMS05750 -*EXIT CONDITIONS - DMS05760 -* CC = 0 -> ENTRY FOUND, REGISTERS CONTAIN: DMS05770 -* R1 - A(MODULE ENTRY POINT) DMS05780 -* R2 - LENGTH OF STORAGE AREA ALLOCATED DMS05790 -* R3 - A(STORAGE AREA ALLOCATED) DMS05800 -* R7 - A(LIB TABLE ENTRY) DMS05810 -* R15- UNIQUE ENTRY NUMBER DMS05820 -* DMS05830 -* CC ^ 0 -> MATCHING ENTRY NOT FOUND. DMS05840 -* DMS05850 -*NOTES - DMS05860 -* 1. IF THERE IS NO LIB TABLE ALLOCATED, THIS ROUTINE WILL GET DMS05870 -* ONE. THE LIB TABLE IS 4K LONG AND HOLDS ALL THE NAME TO DMS05880 -* ADDRESS MAPPINGS. DONE ONLY IF R0 = 0 AND SEEKADR SET ON. DMS05890 -* DMS05900 -* 2. IN ALL CASES, R0 - R3, R7, R14, R15 ARE MODIFIED. DMS05910 -* DMS05920 -* 3. EXIT MAY BE MADE DIRECTLY TO VARIOUS ERROR MESSAGES. DMS05930 -* DMS05940 -* 4. ENTRY SCANTABA MAY BE USED TO SET THE SEEKADR BIT ON. DMS05950 - SPACE DMS05960 -*STEP 1: GET A(LIB TABLE) AND CHECK IF ALLOCATED YET DMS05970 -* DMS05980 -SCANTABA OI FBITS,SEEKADR SET ADDRESS SEARCH ON DMS05990 - SPACE DMS06000 -SCANTAB BAL R14,GETLIB GET A(LIB TABLE) DMS06010 - BZ SCANTAB1 IF PRESENT, START SCAN DMS06020 - SPACE DMS06030 -*STEP 2: ALLOCATE A LIB TABLE ONLY IF SEARCHING FOR A FREE ENTRY DMS06040 -* DMS06050 - LTR R0,R0 IF NOT SEARCHING FOR 0 ENTRY DMS06060 - BNZR R10 THEN RETURN, NOTHING FOUND DMS06070 - TM FBITS,SEEKADR IF SEEKING BY ADDRESS DMS06080 - BO SCANTAB0 THEN GO ALLOCATE LIB TABLE DMS06090 - LTR R12,R12 ELSE SET CC^0 DMS06100 - BR R10 AND RETURN DMS06110 - EJECT DMS06120 -*STEP 3: LIB TABLE IS NOT YET ALLOCATED, ALLOCATE IT DMS06130 -* DMS06140 -SCANTAB0 L R2,=F'4096' GET 4K FOR LIB TABLE DMS06150 - IC R7,LKEY GET WANTED KEY DMS06160 - MVI LKEY,0 PLACE LIB TABLE IN KEY 0 DMS06170 - ST R10,0(,R13) SAVE THE RPA REG DMS06180 - BAL R10,GETCORE ALLOCATE THE STORAGE DMS06190 - L R10,0(,R13) RESTORE RPA REG DMS06200 - STC R7,LKEY RESTORE WANTED KEY DMS06210 - BNZ NOSTOR IF NOT ALLOCATED, THEN ERROR DMS06220 - SPACE DMS06230 -*STEP 4: LOAD SPECIAL COMMAND PROCESSING ROUTINE AT START OF LIB TABLE DMS06240 -* DMS06250 - MVC ASTATE2(4),&STATE SET STATE ADDRESS IN CODE DMS06260 - ST R3,&STATE SET ANCHOR IN NUCON DMS06270 - LR R0,R3 R0 <- A(LIB TABLE) DMS06280 - LA R1,DMSRESRL R1 <- LENGTH(CODE) DMS06290 - LA R14,DMSRESRC R14 <- A(LOCAL CODE) DMS06300 - LR R15,R1 R15 <- LENGTH(CODE) DMS06310 - MVCL R0,R14 MOVE CODE OVER DMS06320 - LR R7,R0 SET STARTING ADDR OF LIBTABLE DMS06330 - SR R0,R0 CLEAR R0 ONCE AGAIN DMS06340 - SPACE DMS06350 -*STEP 5: SCAN THE LIB TABLE FOR THE MATCHING ENTRY DMS06360 -* DMS06370 -SCANTAB1 LA R15,LIBMAXN SCAN MAX ENTRIES DMS06380 - SPACE DMS06390 -SCANTAB2 LM R1,R3,LIBEPA ASSUME ENTRY WILL MATCH DMS06400 - TM FBITS,SEEKADR IF SEEKING BY ADDRESS DMS06410 - BO SCANTAB3 THEN PERFORM ADDRESS MATCH DMS06420 - CLC LIBID(8),LOADTXTN ELSE IF NAMES MATCH DMS06430 - BER R10 THEN RETURN W/ INFO DMS06440 - CLI LIBID,X'01' IF LIBENTRY IS NULL DMS06450 - BLR R10 THEN RETURN, END OF TABLE DMS06460 - B SCANTAB4 ELSE GO TO NEXT ENTRY DMS06470 - SPACE DMS06480 -SCANTAB3 CL R0,LIBADR IF ADDRESSES MATCH DMS06490 - BER R10 THEN RETURN WITH INFO DMS06500 - CLI LIBID,X'01' IF LIBENTRY IS NULL DMS06510 - BLR R10 THEN RETURN, END OF TABLE DMS06520 - SPACE DMS06530 -*STEP 6: BUMP TO NEXT LIB TABLE ENTRY AND PROCESS DMS06540 -* DMS06550 -SCANTAB4 LA R7,LIBSIZE(,R7) BUMP TO NEXT ENTRY DMS06560 - BCT R15,SCANTAB2 SCAN THE TABLE DMS06570 - BR R10 RETURN, NOT FOUND, CC^=0 DMS06580 - EJECT DMS06590 -*SUBROUTINE - DMS06600 -* ADDNTRY DMS06610 -* DMS06620 -*FUNCTION - DMS06630 -* TO COMPLETE A LIB TABLE ENTRY DMS06640 -* DMS06650 -*ENTRY CONDITIONS - DMS06660 -* R1 - A(MODULE E.P.A) DMS06670 -* R2 - LENGTH OF STORAGE AREA DMS06680 -* R3 - A(STORAGE AREA) DMS06690 -* R7 - A(LIB TABLE ENTRY TO BE USED) DMS06700 -* ADDITIONALLY: AREA AT NEWNAME CONTAINS THE FNAME; DMS06710 -* LKEY CONTAINS THE STORAGE PROTECT KEY. DMS06720 -* DMS06730 -*EXIT CONDITIONS - DMS06740 -* NONE. DMS06750 -* DMS06760 -*NOTES - DMS06770 -* 1. LIBFLAGS ARE SET ACCORDING TO INDICATORS IN OBITS. DMS06780 - SPACE DMS06790 -*STEP 1: COMPLETE THE LIB TABLE ENTRY DMS06800 -* DMS06810 -ADDNTRY MVC LIBID(8),NEWNAME SUPPLY REAL NAME DMS06820 - STM R1,R3,LIBEPA SET EPA, LEN, ADDR DMS06830 - MVC LIBKEY(1),LKEY SET THE PKEY DMS06840 - MVI LIBFLAGS,0 CLEAR FLAGS DMS06850 - SPACE DMS06860 -*STEP 2: SET ENTRY FLAGS DMS06870 -* DMS06880 - TM OBITS,OPTPERM IF NOT PERM ENTRY DMS06890 - BNO *+8 THEN SKIP THE SET DMS06900 - OI LIBFLAGS,LIBPERM ELSE INDICATE PERM DMS06910 - TM OBITS,OPTSYS IF NOT SYSTEM SPACE DMS06920 - BNOR R10 THEN RETURN, ALL DONE DMS06930 - OI LIBFLAGS,LIBSYS ELSE INDICATE SYSTEM SPACE DMS06940 - BR R10 AND RETURN DMS06950 - EJECT DMS06960 -*SUBROUTINE - DMS06970 -* GETCORE DMS06980 -* DMS06990 -*FUNCTION - DMS07000 -* TO ALLOCATE ONE OR MORE PAGES OF NUCLEUS HIGH STORAGE DMS07010 -* PROTECTED PRIVATE (HIDDEN FROM CMS) STORAGE. DMS07020 -* DMS07030 -*ENTRY CONDITIONS - DMS07040 -* R2 - LENGTH, IN BYTES, TO BE ALLOCATED. DMS07050 -* R10 - RETURN ADDRESS DMS07060 -* DMS07070 -*EXIT CONDITIONS - DMS07080 -* CC = 0 -> STORAGE ALLOCATED, REGISTERS CONTAIN: DMS07090 -* R2 - LENGTH, IN BYTES, ACTUALLY ALLOCATED. DMS07100 -* R3 - A(STORAGE AREA) ALLOCATED. DMS07110 -* CC ^ 0 -> INSUFFICIENT STORAGE. DMS07120 -* DMS07130 -*NOTES - DMS07140 -* 1. R0 - R3, R14, R15 MODIFIED. DMS07150 - SPACE DMS07160 -*STEP 1: ROUND REQUESTORS LENGTH TO NEAREST 4K SIZE. WE CAN ONLY DMS07170 -* ALLOCATE STORAGE IN UNITS OF PAGES. DMS07180 -* DMS07190 -GETCORE LA R2,4095(,R2) ADD A TAD LESS THAN 4K DMS07200 - SRL R2,12 SHIFT DOWN DMS07210 - SLL R2,12 AND UP, WE NOW HAVE A GOOD NUMBER DMS07220 - SPACE DMS07230 -*STEP 2: ADD 4K MORE TO IT SO THAT WE CAN BE ASSURED THAT WHEN WE DMS07240 -* TRIM THE EXCESS THE RESULTING AREA WILL WIND UP ON A PAGE DMS07250 -* BOUNDARY. ONCE DONE, ALLOCATE HIGH NUCLEUS STORAGE. DMS07260 -* DMS07270 - AL R2,=F'4096' ADD 4K TO REQUESTED SIZE DMS07280 - LR R0,R2 COPY IT DMS07290 - SRL R0,3 CONVERT TO DWORDS FOR DMSFREE DMS07300 - DMSFREE DWORDS=(0),TYPE=NUCLEUS,AREA=HIGH,ERR=GETCORE6 DMS07310 - SPACE DMS07320 -*STEP 3: CHECK IF CMS ALLOCATED ON A PAGE BOUNDARY. IF IT DID THEN DMS07330 -* WE JUST NEED TO TRIM THE TOP 4K OFF. ELSE, WE MUST TRIM DMS07340 -* STORAGE ON BOTH SIDE OF THE AREA. DMS07350 -* DMS07360 - LA R1,0(,R1) CLEAR TOP BYTE DMS07370 - LA R3,4095(,R1) ADD A TAD LESS THAN 4K TO ADDRESS DMS07380 - N R3,=X'00FFF000' STRIP LOW 12 BITS DMS07390 - CLR R1,R3 IF RESULT IS NOT THE SAME AS ORGINAL DMS07400 - BNE GETCORE2 THEN AREA WAS NOT ON PAGE BOUNDARY DMS07410 - EJECT DMS07420 -*STEP 4: RELEASE THE 1ST 4K OF THE STORAGE AREA AND ADJUST THE DMS07430 -* STRTING ADDRESS AND LENGTH BY THE SAME AMOUNT. DMS07440 -* DMS07450 - L R0,=F'4096' GET 4K DMS07460 - ALR R3,R0 ADJUST STARTING ADDRESS DMS07470 - SLR R2,R0 DECREASE THE LENGTH BY 4K DMS07480 - SRL R0,3 COMPUTE DWORDS TO RELEASE DMS07490 - DMSFRET DWORDS=(0),LOC=(1) FREE 1ST 4K DMS07500 - B GETCORE3 GO FINISH UP DMS07510 - SPACE DMS07520 -*STEP 5: RELEASE AS MUCH STORAGE AS NECESSARY (LESS THAN 4K GAURENTEED) DMS07530 -* SO THAT THE ALLOCATED STORAGE AREA START ON A PAGE BNDRY. DMS07540 -* NOTE THAT WE HAVE IN R3 THE ADDRESS WE WOULD LIKE THE AREA DMS07550 -* TO START AT AND R1 CONTAINS THE ORGINAL ADDRESS. THUS THE DMS07560 -* DIFFERENCE WILL BE THE AMOUNT WE HAVE TO RELEASE. DMS07570 -* DMS07580 -GETCORE2 LR R0,R3 R0 <- WANTED STARTING ADDRESS DMS07590 - SR R0,R1 LESS ACTUAL ADDRESS YIELDS EXCESS DMS07600 - SR R2,R0 SUBTRACT EXCESS FROM AREA LENGTH DMS07610 - SRL R0,3 COMPUTE DWORDS DMS07620 - DMSFRET DWORDS=(0),LOC=(1) FREE THE STORAGE AREA DMS07630 - SPACE DMS07640 -*STEP 6: WE MUST NOW FREE THE EXCESS AT THE END OF OUR STORAGE AREA. DMS07650 -* THIS IS EASILY COMPUTED SINCE WE KNOW THAT THE LENGTH OF THE DMS07660 -* STORAGE AREA MUST BE EXACTLY A MULTIPLE OF 4K, WE NEED ONLY DMS07670 -* TO RELEASE THE AMOUNT INDICATED IN THE LOW ORDER 12 BITS OF DMS07680 -* THE ACTUAL LENGTH QUANTITY AND ADJUST THE LENGTH BY THAT DMS07690 -* AMOUNT. THIS THE STORAGE AREA WILL BE IN PAGE CIRCUMSCRIBED DMS07700 -* BOUNDARIES. DMS07710 -* DMS07720 - LR R0,R2 R0 <- CURRENT LENGTH OF AREA DMS07730 - N R0,=F'4095' ISOLATE LOW ORDER 12 BITS DMS07740 - SR R2,R0 SUBTRACT EXCESS OF ORIGINAL LENGTH DMS07750 - LR R1,R3 R1 <- A(STORAGE AREA) DMS07760 - ALR R1,R2 POINT TO STARTING AREA TO FREE DMS07770 - SRL R0,3 GET DWORDS DMS07780 - DMSFRET DWORDS=(0),LOC=(1) FREE THE STORAGE AREA DMS07790 - SPACE DMS07800 -*STEP 7: WE MUST NOW ADJUST THE AMOUNT CMS KEEPS TRACK OF AS SYSTEM DMS07810 -* ALLOCATED BY THE AMOUNT WE HAVE ALLOCATED FOR OURSELVES. DMS07820 -* THIS WILL PREVENT CMS FROM EVER MISSING THE STORAGE AREA. DMS07830 -* DMS07840 -GETCORE3 L R15,ADMSFRT GET A(FRETAB) DMS07850 - USING FRDSECT,R15 DMS07860 - L R1,FREELOW1 GET ORIGINAL HIGH WATER MARK DMS07870 - SLR R1,R2 ADJUST BY THE AMOUNT WE ALLOCATED DMS07880 - ST R1,FREELOW1 AND UPDATE IT DMS07890 - DROP R15 DMS07900 - EJECT DMS07910 -*STEP 8: CLEAR THE STORAGE AREA TO ZEROES DMS07920 -* DMS07930 - LR R0,R3 R0 <- A(AREA) DMS07940 - LR R1,R2 R1 <- L(AREA) DMS07950 - SR R15,R15 ZERO FOR PAD MVCL DMS07960 - MVCL R0,R14 CLEAR THE AREA DMS07970 - SPACE DMS07980 -*STEP 9: SET PROTECT KEYS AND RETURN DMS07990 -* DMS08000 - BAL R14,SETKEY SET PKEYS DMS08010 - SR R15,R15 SET CC=0 DMS08020 - BR R10 AND RETURN DMS08030 - SPACE DMS08040 -*STEP 10: ON ERROR, RETURN WITH CC ^= 0 DMS08050 -* DMS08060 -GETCORE6 LTR R12,R12 SET CC ^ 0 DMS08070 - BR R10 AND RETURN DMS08080 - EJECT DMS08090 -*SUBROUTINE - DMS08100 -* SETKEY DMS08110 -* DMS08120 -*FUNCTION - DMS08130 -* TO SET STORAGE PROTECT KEYS DMS08140 -* DMS08150 -*ENTRY CONDITIONS - DMS08160 -* R2 - LENGTH(AREA) IN BYTES DMS08170 -* R3 - A(AREA) DMS08180 -* R14 - RETURN ADDRESS DMS08190 -* *** - LKEY CONTAINS THE PROTECT KEY RIGHT JUSTIFIED. DMS08200 -* DMS08210 -*EXIT CONDITIONS - DMS08220 -* NONE. DMS08230 - SPACE DMS08240 -*STEP 1: SET UP FOR SSK INSTRUCTION DMS08250 -* DMS08260 -SETKEY LR R0,R2 R0 <- L(AREA) DMS08270 - SRL R0,11 CONVERT TO NUMBER OF PAGES * 2 DMS08280 - LR R1,R3 R1 <- A(AREA) DMS08290 - IC R15,LKEY GET PROTECT KEY DMS08300 - SLL R15,4 SHIFT INTO CORRECT POSITION DMS08310 - SPACE DMS08320 -*STEP 2: SET STORAGE TO CORRECT PROTECT KEY DMS08330 -* DMS08340 -SETKEY01 SSK R15,R1 SET PROTECT KEY DMS08350 - LA R1,2048(,R1) NEXT 2K BOUNDARY DMS08360 - BCT R0,SETKEY01 DO ALL PAGES DMS08370 - BR R14 AND RETURN DMS08380 - EJECT DMS08390 -*SUBROUTINE - DMS08400 -* RELNTRY DMS08410 -* DMS08420 -*FUNCTION - DMS08430 -* TO RELEASE A LIBRARY ENTRY AND IF LAST ONE RELEASED, TO DMS08440 -* TO RELEASE THE LIBRARY DIRECTORY PAGE. DMS08450 -* DMS08460 -*ENTRY CONDITIONS - DMS08470 -* R7 - A(LIB ENTRY) TO FREE DMS08480 -* R10 - RETURN ADDRESS DMS08490 -* DMS08500 -*EXIT CONDITIONS - DMS08510 -* CC = 0 -> LIBRARY DIRECTORY PAGE RELEASED, R7 IS ZERO. DMS08520 -* CC ^ 0 -> LIBRARY ENTRY RELEASED, DIRECTORY NOT EMPTY. DMS08530 -* R7 HOLDS NEXT ENTRY ADDRESS. DMS08540 -* DMS08550 -*NOTES - DMS08560 -* 1. R0 - R3, R14, R15 MODIFIED. DMS08570 - SPACE DMS08580 -*STEP 1: COMPUTE NUMBER OF BYTES LEFT AFTER CURRENT ENTRY DMS08590 -* DMS08600 -RELNTRY LA R1,LIBTLEN R1 <- LEN(LIB TAB) DMS08610 - AL R1,&STATE R1 <- A(LAST LIB TABLE BYTE)-PREFIX DMS08620 - LA R1,DMSRESRL(,R1) R1 <- A(LAST LIB TABLE BYTE) + 1 DMS08630 - SLR R1,R7 R1 <- ENDLOC - CURLOC (NUM BYTES) DMS08640 - LR R0,R7 R0 <- A(CURRENT ENTRY) DMS08650 - SPACE DMS08660 -*STEP 2: COMPUTE NUMBER OF BYTES TO BE MOVED AT ENTRY+1 DMS08670 -* DMS08680 - LA R14,LIBSIZE R1 <- SIZE(EACH ENTRY) DMS08690 - LR R15,R1 R15<- TOTAL LENGTH INC CUR_ENTRY DMS08700 - SLR R15,R14 R15<- TOTAL LENGTH AFTER CURRENT ENT DMS08710 - ALR R14,R0 R14<- A(NEXT ENTRY) DMS08720 - SPACE DMS08730 -*STEP 3: COMPRESS OUT THE DELETED ENTRY AND CHECK IF LIB TABLE EMPTY DMS08740 -* DMS08750 - MVCL R0,R14 COMPRESS LIB TABLE DMS08760 - L R3,&STATE R3 <- A(LIB TABLE) DMS08770 - CLI DMSRESRL(R3),0 IF FIRST ENTRY IS NOT NULL DMS08780 - BNER R10 THEN RETURN, ALL DONE DMS08790 - SPACE DMS08800 -*STEP 4: LIB TABLE IS EMPTY, RELEASE ITS STORAGE DMS08810 -* DMS08820 - MVC &STATE.(4),ASTATE2-DMSRESRC(R3) RESET STATE ADDRESS DMS08830 - L R2,=F'4096' GET SIZE(LIB TABLE) DMS08840 - ST R10,0(,R13) SAVE RPA DMS08850 - BAL R10,RELCORE RELEASE THE STORAGE DMS08860 - L R10,0(,R13) RESTORE RPA DMS08870 - SR R7,R7 NULL OUT ENTRY POINTER DMS08880 - BR R10 RETURN WITH CC = 0 DMS08890 - EJECT DMS08900 -*SUBROUTINE - DMS08910 -* RETNTRY DMS08920 -* DMS08930 -*FUNCTION - DMS08940 -* TO PLACE A VALUE IN THE CALLER'S REG 1. DMS08950 -* DMS08960 -*ENTRY CONDITIONS - DMS08970 -* R1 - VALUE TO BE RETURNED DMS08980 -* R10 - RETURN ADDRESS DMS08990 -* DMS09000 -*EXIT CONDITIONS - DMS09010 -* NONE. DMS09020 -* DMS09030 -*NOTES - DMS09040 -* 1. R15 MODIFIED. DMS09050 - SPACE DMS09060 -*STEP 1: RETURN VALUE TO CALLER DMS09070 -* DMS09080 -RETNTRY L R15,ASVCSECT GET A(SVCSECT) DMS09090 - L R15,CURRALOC-SVCSECT(,R15) GET A(SSAVE) DMS09100 - ST R1,EGPR1-SSAVE(,R15) SET NEW VALUE DMS09110 - BR R10 AND RETURN DMS09120 - EJECT DMS09130 -*SUBROUTINE - DMS09140 -* SCANP DMS09150 -* DMS09160 -*FUNCTION - DMS09170 -* TO CHECK IF WE ARE POINTING TO THE END OF THE PARAMS. DMS09180 -* DMS09190 -*ENTRY CONDITIONS - DMS09200 -* R8 - A(CURRENT TOKEN) DMS09210 -* R10 - RETURN ADDRESS DMS09220 -* DMS09230 -*EXIT CONDITIONS - DMS09240 -* CC = 0 -> END OF PARAM DATA FOUND. DMS09250 -* CC ^ 0 -> MORE PARAM DATA EXISTS DMS09260 - SPACE DMS09270 -*STEP 1: SET CC BASED ON CONTENTS OF TOKEN DMS09280 -* DMS09290 -SCANP CLI 0(R8),X'FF' IF PLIST END DMS09300 - BER R10 THEN RETURN W/ CC=0 DMS09310 - CLC 0(2,R8),=C'( ' IF OPTION LIST STARTING DMS09320 - BR R10 THEN RETURN, AS CC IS SET DMS09330 - EJECT DMS09340 -*SUBROUTINE - DMS09350 -* GETLIB DMS09360 -* DMS09370 -*FUNCTION - DMS09380 -* TO GET A(LIB TABLE) DMS09390 -* DMS09400 -*ENTRY CONDITIONS - DMS09410 -* R14 - RETURN ADDRESS DMS09420 -* DMS09430 -*EXIT CONDITIONS - DMS09440 -* CC = 0 -> LIB TABLE ALLOCATED; R7 HOLDS THE ADDRESS. DMS09450 -* CC ^ 0 -> LIB TABLE NOT ALLOCATED; R7 MEANINGLESS. DMS09460 - SPACE DMS09470 -*STEP 1: GET THE A(LIB TABLE PREFIX) AND COMPUTE THE TRUE ADDRESS DMS09480 -* DMS09490 -GETLIB L R7,&STATE GET A(CODE AREA) DMS09500 - LA R7,DMSRESRL(,R7) POINT TO START OF TABLE DMS09510 - SPACE DMS09520 -*STEP 2: CHECK IF LIB TABLE TRULY ALLOCATED DMS09530 -* DMS09540 - CL R7,AUSRAREA IF A(LIB TABLE) < USER AREA DMS09550 - BLR R14 THEN RETURN DMS09560 - CL R7,VMSIZE IF A(LIB TABLE) > LAST LOC DMS09570 - BHR R14 THEN RETURN DMS09580 - CLR R14,R14 ELSE SET CC = 0 DMS09590 - BR R14 AND RETURN DMS09600 - EJECT DMS09610 -*SUBROUTINE - DMS09620 -* GETLEN DMS09630 -* DMS09640 -*FUNCTION - DMS09650 -* TO COMPUTE THE LEN-1 OF A TOKEN. DMS09660 -* DMS09670 -*ENTRY CONDITIONS - DMS09680 -* R8 - A(TOKEN TO SCAN) DMS09690 -* R10 - RETURN ADDRESS DMS09700 -* DMS09710 -*EXIT CONDITIONS - DMS09720 -* R1 - LENGTH-1(TOKEN) DMS09730 -* R2 - A(LAST NON-BLANK CHAR) IN TOKEN DMS09740 - SPACE DMS09750 -*STEP 1: SCAN BACKWARDS FOR FIRTS NON-BLANK DMS09760 -* DMS09770 -GETLEN LA R1,7 SET UP FOR LEN COMP DMS09780 - LA R2,7(,R8) POINT TO LAST CHAR IN TOKEN DMS09790 - SPACE DMS09800 -GETLENA CLI 0(R2),C' ' IF CHAR ^= ' ' DMS09810 - BNER R10 THEN DONE, FOUND THE LEN-1 DMS09820 - BCTR R2,0 ELSE BACK UP 1 CHAR DMS09830 - BCT R1,GETLENA AND CHECK CHAR OUT (DEC COUNT) DMS09840 - BR R10 ALL DONE, RETURN DMS09850 - EJECT DMS09860 -*SUBROUTINE - DMS09870 -* GETNUM DMS09880 -* DMS09890 -*FUNCTION - DMS09900 -* TO COMPUTE THE BINARY VALUE OF AN EBCDIC STRING. DMS09910 -* DMS09920 -*ENTRY CONDITIONS - DMS09930 -* R1 - LEN-1(TOKEN) DMS09940 -* R8 - A(TOKEN) TO CONVERT DMS09950 -* R10 - RETURN ADDRESS DMS09960 -* DMS09970 -*EXIT CONDITIONS - DMS09980 -* CC = 0 -> NUMBER CONVERTED, R15 HOLDS VALUE. DMS09990 -* CC ^ 0 -> NUMBER INVALID OR GREATER THAN 256. DMS10000 -* DMS10010 -*NOTES - DMS10020 -* 1. R0 IS MODIFIED. DMS10030 - SPACE DMS10040 -*STEP 1: PREPARE TO SCAN FOR INVALID DIGITS DMS10050 -* DMS10060 -GETNUM LA R0,1(,R1) GET FULL LENGTH DMS10070 - LR R15,R8 R15 <- A(TOKEN) DMS10080 - SPACE DMS10090 -*STEP 2: MAKE SURE ALL DIGITS ARE VALID DMS10100 -* DMS10110 -GETNUM1 CLI 0(R15),C'0' IF CHAR < '0' DMS10120 - BLR R10 THEN INVALID DMS10130 - CLI 0(R15),C'9' IF CHAR > '9' DMS10140 - BHR R10 THEN INVALID DMS10150 - LA R15,1(,R15) ELSE BUMP TO NEXT ONE DMS10160 - BCT R0,GETNUM1 AND CHECK NEXT ONE OUT DMS10170 - SPACE DMS10180 -*STEP 3: CONVERT THE ACTUAL STRING TO BINARY DMS10190 -* DMS10200 - EX R1,PACK PACK THE VALUE DMS10210 - CP 0(8,R13),=PL2'256' IF VALUE > 256 DMS10220 - BHR R10 THEN INVALID DMS10230 - CVB R15,0(,R13) ELSE CONVERT TO BINARY DMS10240 - LA R0,1 GET A COMPARE CONSTANT DMS10250 - CR R15,R0 IF VALUE < 1 DMS10260 - BLR R10 THEN ZERO AND IS INVALID DMS10270 - SR R0,R0 ELSE SET CC = 0 DMS10280 - BR R10 AND RETURN DMS10290 - EJECT DMS10300 -*SUBROUTINE - DMS10310 -* RELCORE DMS10320 -* DMS10330 -*FUNCTION - DMS10340 -* TO RELEASE PRIVATE STORAGE GOTTEN BY GETCORE. DMS10350 -* DMS10360 -*ENTRY CONDITIONS - DMS10370 -* R2 - AMOUNT OF BYTES, TRUE, TO BE FREED. DMS10380 -* R3 - A(STORAGE AREA) TO BE FREED. DMS10390 -* R10 - RETURN ADDRESS. DMS10400 -* DMS10410 -*EXIT CONDITIONS - DMS10420 -* NONE. DMS10430 - SPACE DMS10440 -*STEP 1: RESET THE PROTECT KEYS AND FREE THE STORAGE AREA DMS10450 -* DMS10460 -RELCORE MVI LKEY,X'0F' SET KEY X'F0' DMS10470 - BAL R14,SETKEY SET THE PKEYS DMS10480 - LR R0,R2 COPY BYTES DMS10490 - SRL R0,3 GET DWORDS DMS10500 - LR R1,R3 GET ADDRESS DMS10510 - DMSFRET DWORDS=(0),LOC=(1) DMS10520 - SPACE DMS10530 -*STEP 2: ADJUST THE CMS FREETAB SO THAT CMS WILL GET ITS STORAGE DMS10540 -* BACK. IF WE DID NOT, CMS WOULD DIE. DMS10550 -* DMS10560 - L R15,ADMSFRT GET A(FREETAB) DMS10570 - USING FRDSECT,R15 DMS10580 - L R1,FREELOW1 GET LOW WATER MARK DMS10590 - ALR R1,R2 ADJUST IT UPWARDS DMS10600 - ST R1,FREELOW1 UPDATE IT DMS10610 - BR R10 AND RETURN DMS10620 - DROP R15 DMS10630 - EJECT DMS10640 -*SUBROUTINE - DMS10650 -* LOADTXT DMS10660 -* DMS10670 -*FUNCTION - DMS10680 -* TO LOAD A TEXT DECK INTO PRIVATE STORAGE. DMS10690 -* DMS10700 -*ENTRY CONDITIONS - DMS10710 -* R3 - ADDRESS AT WHICH THE ROUTINE IS TO BE LOADED. DMS10720 -* R10 - RETURN ADDRESS DMS10730 -* DMS10740 -*EXIT CONDITIONS - DMS10750 -* CC = 0 -> ROUTINE LOADED. REGISTERS CONTAIN: DMS10760 -* R0 - A(NEXT LOAD POINT) DMS10770 -* R1 - ENTRY POINT ADDRESS FROM THE LOADER. DMS10780 -* CC ^ 0 -> ERROR DURING LOAD. DMS10790 -* DMS10800 -*NOTES - DMS10810 -* 1. IN ALL CASES, R0, R1, R14, R15 ARE MODIFIED. DMS10820 - SPACE DMS10830 -*STEP 1: PLUG IN THE ORIGIN ADDRESS INTO THE COMMAND LINE DMS10840 -* DMS10850 -LOADTXT LINEDIT TEXT='........',BUFFA=LOADTXTA,DOT=NO,DISP=NONE, XDMS10860 - SUB=(HEX,(R3)) DMS10870 - MVI LOADTXTA,C' ' REMOVE THE LENGTH FIELD DMS10880 - SPACE DMS10890 -*STEP 2: INDICATE THAT IT IS OK TO LOAD ANYWHERE AND ISSUE THE LOAD DMS10900 -* COMMAND VIA SVC 202. NOTE THAT THE CALLER MUST HAVE FILLED DMS10910 -* IN THE NAME OF THE TEXT DECK TO BE LOADED AT LOADTXTN. DMS10920 -* DMS10930 - OI MODFLGS,SYSLOAD TELL LOADER TO SKIP CHECKS DMS10940 - LA R1,LOADTXTC POINT TO COMMAND LINE DMS10950 - SVC 202 ISSUE COMMAND SVC DMS10960 - DC AL4(*+4) DMS10970 - SPACE DMS10980 -*STEP 3: PICK UP THE EPA THAT THE LOADER LEFT IN NUCON AND ZERO OUT DMS10990 -* THE LOCATION COUNTER SO THAT THE NEXT LOAD DOES NOT FAIL DMS11000 -* BECAUSE THE LOADER WILL TRY TO LOAD AFTER THAT LOC. THEN DMS11010 -* EXIT BASED ON THE RC FROM THE LOADER. DMS11020 -* DMS11030 - L R0,LOCCNT GET NEXT LOAD POINT DMS11040 - L R1,STRTADDR GET EPA DMS11050 - XC LOCCNT(4),LOCCNT ZERO OUT LOC COUNTER DMS11060 - LTR R15,R15 SET CC BASED ON RC DMS11070 - BR R10 AND RETURN DMS11080 - EJECT DMS11090 -*SUBROUTINE - DMS11100 -* TYPENTRY DMS11110 -* DMS11120 -*FUNCTION - DMS11130 -* TO TYPE OR STACK A LIB TABLE ENTRY DMS11140 -* DMS11150 -*ENTRY CONDITIONS - DMS11160 -* R7 - A(LIB TABLE ENTRY) DMS11170 -* R10 - RETURN ADDRESS DMS11180 -* DMS11190 -*EXIT CONDITIONS - DMS11200 -* IF SOMETHING WAS STACKED OR TYPED, HDR FLAG IS SET. DMS11210 -* DMS11220 -*NOTES - DMS11230 -* 1. THE CALLER MUST INDICATE IF TYPING OR STACKING IS DMS11240 -* WANTED BY THE OPTSTK & OPTYPE FLAG IN OBITS. DMS11250 -* DMS11260 -* 2. R0 - R4, R14, R15 MODIFIED. DMS11270 - SPACE DMS11280 -*STEP 1: CHECK IF A HEADER LINE IS TO BE TYPED. DMS11290 -* DMS11300 -TYPENTRY TM FBITS,HDR IF WE TYPED A HDR DMS11310 - BO TYPENTRX THEN SKIP TYPING IT AGAIN DMS11320 - OI FBITS,HDR ELSE INDICATE WE HAVE TYPED DMS11330 - TM OBITS,OPNTYPE IF NOTYPE IS REQUESTED DMS11340 - BO TYPENTRX THEN SKIP THE HEADER LINE DMS11350 - WRTERM 'ENTRY ID E.P.A. PAGE AMT KEY ATTRIBUTES' DMS11360 - SPACE DMS11370 -*STEP 2: GATHER ALL INFORMATION TO BE TYPED OR STACKED DMS11380 -* DMS11390 -TYPENTRX TM OBITS,OPTYPE+OPTSTK IF NOTYPE & NOSTACK DMS11400 - BZR R10 THEN ALL DONE DMS11410 - MVC STSAVE(8),=8C' ' ELSE CLEAR AREA DMS11420 - TM LIBFLAGS,LIBPERM IF FLAG NOT SET DMS11430 - BNO *+10 THEN NOT PERM DMS11440 - MVC STSAVE(4),=C'PERM' ELSE INDICATE PERM DMS11450 - TM LIBFLAGS,LIBSYS IF INDICATOR NOT SET DMS11460 - BNO *+10 THEN NOT SYSTEM ROUTINE DMS11470 - MVC STSAVE+5(3),=C'SYS' ELSE INDICATE SYSTEM DMS11480 - LM R2,R3,LIBLEN GET LENGTH AND LOC DMS11490 - SRL R2,12 COMPUTE NUMBER OF PAGES DMS11500 - SRL R3,12 COMPUTE PAGE NUMBER DMS11510 - SR R4,R4 PREPARE FOR IC DMS11520 - IC R4,LIBKEY GET STORAGE KEY DMS11530 - EJECT DMS11540 -*STEP 3: FORMAT THE DATA TO BE TYPED DMS11550 -* DMS11560 - LINEDIT TEXT='........ ...... ... ... .. ........', XDMS11570 - DOT=NO,COMP=NO,RENT=NO,DISP=NONE,BUFFA=BUFFER, XDMS11580 - SUB=(CHARA,LIBID,HEXA,LIBEPA,HEX,(R3),DEC,(R2), XDMS11590 - DEC,(R4),CHARA,STSAVE) DMS11600 - SPACE DMS11610 -*STEP 4: CHECK IS WE MUST TYPE THE RESULTING DATA DMS11620 -* DMS11630 - TM OBITS,OPTYPE IF NOTYPING DMS11640 - BNO TYPENTRW THEN SKIP THE WRTERM DMS11650 - SR R2,R2 ELSE PREPARE FOR IC DMS11660 - IC R2,BUFFER GET THE ACTUAL LENGTH DMS11670 - WRTERM BUFFER+1,(2) WRITE THE LINE DMS11680 - SPACE DMS11690 -*STEP 4: CHECK IF WE MUST STACK THE LINE DMS11700 -* DMS11710 -TYPENTRW TM OBITS,OPTSTK IF STACK NOT WANTED DMS11720 - BNOR R10 THEN RETURN DMS11730 - MVC TYPENTRL(1),BUFFER ELSE SET THE LENGTH DMS11740 - LA R1,TYPENTRP POINT TO STACK PLIST DMS11750 - SVC 202 STACK THE LINE DMS11760 - BR R10 AND RETURN DMS11770 - SPACE 2 DMS11780 -* STACK PLIST DMS11790 -* DMS11800 -TYPENTRP DC CL8'ATTN',C'FIFO' DMS11810 -TYPENTRL DC AL4(BUFFER+1) DMS11820 - EJECT DMS11830 -*********************************************************************** DMS11840 -* * DMS11850 -* S T O R A G E A R E A S & C O N S T A N T S * DMS11860 -* * DMS11870 -*********************************************************************** DMS11880 - SPACE DMS11890 -* EXECUTED COMMANDS DMS11900 -* DMS11910 -PACK PACK 0(8,R13),0(0,R8) PACK A VALUE DMS11920 -CLCOPT CLC OPTNAME-OPTBLOK(*-*,R5),0(R8) CHECK OPTIONA NAME DMS11930 -CLCSYN CLC LOADTXTN(*-*),8(R3) LOOK FOR SYNONYM DMS11940 -CLCFUNC CLC FUNCNAME(*-*),0(R8) CHECK FUNCTION NAME DMS11950 - SPACE DMS11960 -* LOAD COMMAND LINE DMS11970 -* DMS11980 -LOADTXTC DC CL8'LOAD' DMS11990 -LOADTXTN DC 8C' ',CL8'(',CL8'NOMAP',CL7'ORIGIN' DMS12000 -LOADTXTA DC 9C' ',8X'FF' DMS12010 - SPACE DMS12020 -* VALID FUNCTION TABLE DMS12030 -* DMS12040 -FUNCTAB DC CL8'ALLOCATE',AL1(NAMOK+PERMOK+KEYOK,0) DMS12050 - B ALO -> FUNCTION DMS12060 - DC CL8'DELETE',AL1(0,0) DMS12070 - B DELT -> FUNCTION DMS12080 - DC CL8'LIST',AL1(TYPOK+STKOK,SKPNAME) DMS12090 - B LST DMS12100 -FUNCTABE DC CL8'LOAD',AL1(PERMOK+SYSOK+NAMOK,0) DMS12110 - B LOADF DMS12120 - SPACE DMS12130 -* VALID OPTION TABLE DMS12140 -* DMS12150 -OPTABLE DC CL8'KEY',AL1(KEYOK,OPTKEY,255,2) DMS12160 -CHKKEY EQU OPTABLE DMS12170 -CHKNAMO DC CL8'NAME',AL1(NAMOK,OPTNAM,255,3) DMS12180 - DC CL8'NOTYPE',AL1(TYPOK,OPNTYPE,255-OPTYPE,2) DMS12190 - DC CL8'PERM',AL1(PERMOK,OPTPERM,255,3) DMS12200 - DC CL8'STACK',AL1(STKOK,OPTSTK,255,4) DMS12210 - DC CL8'SYSTEM',AL1(SYSOK,OPTSYS,255,2) DMS12220 -OPTABND DC CL8'TYPE',AL1(TYPOK,OPTYPE,255-OPNTYPE,0) DMS12230 - EJECT DMS12240 -* MISC. DMS12250 -* DMS12260 -SAVENUM DC H'0' SAVE AREA FOR NUMBER DMS12270 -NEWNAME DC 8C' ' NEW NAME FOR NAME OPTION DMS12280 -LKEY DC X'00' REQUESTED PROTECT KEY DMS12290 - SPACE DMS12300 -OBITS DC X'00' OPTION FLAG BYTE DMS12310 -OPTPERM EQU X'01' PERM OPTION IN EFFECT DMS12320 -OPTSTK EQU X'02' STACK OPTION IN EFFECT DMS12330 -OPTYPE EQU X'04' TYPE OPTION IN EFFECT DMS12340 -OPNTYPE EQU X'08' NOTYPE OPTION SPECIFIED DMS12350 -OPTSYS EQU X'10' SYSTEM OPTION IN EFFECT DMS12360 -OPTNAM EQU X'20' NAME OPTION IN EFFECT DMS12370 -OPTKEY EQU X'40' KEY OPTION IN EFFECT DMS12380 - SPACE DMS12390 -FBITS DC X'00' MORE FLAGS DMS12400 -HDR EQU X'10' HEADER HAS BEEN TYPED DMS12410 -SEEKADR EQU X'20' SCANTAB TO SEARCH VIA ADDRESS DMS12420 - SPACE DMS12430 -BUFFER DC 50C' ' DMS12440 -DTEMP DS 1D DOUBLEWORD WORK AREA DMS12450 - SPACE DMS12460 - LTORG DMS12470 - EJECT DMS12480 -*********************************************************************** DMS12490 -* * DMS12500 -* R E S I D E N T C O M M A N D P R O C E S S I N G * DMS12510 -* * DMS12520 -*********************************************************************** DMS12530 - SPACE DMS12540 -*STEP 1: MAKE SURE THAT ENTRY IS FROM DMSMOD VIA DMSITS DMS12550 -* DMS12560 - DS 0D ALIGN ON CORRECT BOUNDARY DMS12570 - USING *,R15 DMS12580 -DMSRESRC STM R0,R7,STSAVE SAVE SOME REGS DMS12590 - LA R0,0(,R11) CLEAR TOP BYTE OF RETADDR DMS12600 - CL R0,ACMSRET IF RETADDR >= DMSITS RPA DMS12610 - BNL FINDRES4 THEN NOT PROPER CALL DMS12620 - CLR R0,R5 IF RETADDR < DMSITS BASE ADDRESS DMS12630 - BNH FINDRES4 THEN NOT PROPER CALL DMS12640 - SPACE DMS12650 -*STEP 2: MAKE SURE THAT THIS IS A PROPER DMSMOD CALLING SEQUENCE DMS12660 -* DMS12670 - CL R10,AFVS IF R10 ^- A(FVSECT) DMS12680 - BNE FINDRES4 THEN INVALID CALL DMS12690 - LA R0,0(,R7) GET PARM ADDRESS DMS12700 - L R3,ASVCSECT GET A(SVCSECT) DMS12710 - LA R2,MODLIST-SVCSECT(,R3) POINT TO DMSITS PLIST DMS12720 - CLR R2,R0 IF NOT CORRECT PLIST DMS12730 - BNE FINDRES4 THEN BAG IT DMS12740 - SPACE DMS12750 -*STEP 3: INITIALIZE FOR DMSRESRC PROCESSING DMS12760 -* DMS12770 - LA R7,DMSRESRL(,R15) POINT TO START OF TABLE DMS12780 - LA R0,LIBMAXN GET MAX NUMBER OF ENTRIES DMS12790 - SPACE DMS12800 -*STEP 4: ATTEMPT TO FIND RESIDENT COMMAND IN LIB TABLE DMS12810 -* DMS12820 -FINDRES1 CLC LIBID(8),8(R1) IF COMMAND NAMES THE SAME DMS12830 - BE FINDRES2 THEN POSSIBLE MATCH DMS12840 - CLI LIBID,X'01' IF END OF LIST FOUND DMS12850 - BL FINDRES4 THEN COMMAND NOT FOUND DMS12860 - LA R7,LIBSIZE(,R7) ELSE BUMP TO NEXT ENTRY DMS12870 - BCT R0,FINDRES1 AND LOOK AT IT DMS12880 - B FINDRES4 COMMAND NOT FOUND DMS12890 - EJECT DMS12900 -*STEP 5: CHECK IF ENTRY TRULY A COMMAND AND IF SO, PROCESS IT DMS12910 -* DMS12920 -FINDRES2 TM LIBFLAGS,LIBCMD IF NOT A COMMAND DMS12930 - BNO FINDRES4 THEN IGNORE IT DMS12940 - MVC STRTADDR(4),LIBEPA ELSE SET ENTRY POINT DMS12950 - NI PROTFLAG,255-PRFUSYS ASSUME USER COMMAND DMS12960 - TM LIBFLAGS,LIBSYS IF NOT SYSTEM DMS12970 - BNO FINDRES3 THEN ASSUMPTION CORRECT DMS12980 - OI SFLAG-SVCSECT(R3),SFSYS+SFNUC SET APPROPRIATE FLAGS DMS12990 - SPACE DMS13000 -*STEP 5: RETURN TO DMSITS SO THAT COMMAND EXECUTION MAY START DMS13010 -* DMS13020 -FINDRES3 SR R15,R15 SET RC = 0 DMS13030 - BR R11 AND RETURN DMS13040 - SPACE DMS13050 -*STEP 7: INVALID ENTRY OR COMMAND NOT FOUND, CONTINUE W/ NORMAL XEQ DMS13060 -* DMS13070 -FINDRES4 LM R0,R7,STSAVE RESTORE THE REGS DMS13080 - L R15,ASTATE2 GET A(TRUE STATE ROUTINE) DMS13090 - BR R15 AND CONTINUE NORMALLY DMS13100 - SPACE DMS13110 -* STORAGE FOR LOCAL ROUTINE DMS13120 -* DMS13130 -ASTATE2 DC A(0) A(TRUE STATE ROUTINE) DMS13140 -STSAVE DS 9F SAVE AREA DMS13150 - SPACE DMS13160 -DMSRESRL EQU (*-DMSRESRC+7)/8*8 LENGTH OF SPECIAL CODE DMS13170 - DROP R15 DMS13180 - EJECT DMS13190 -*********************************************************************** DMS13200 -* * DMS13210 -* L O C A L D S E C T S * DMS13220 -* * DMS13230 -*********************************************************************** DMS13240 - SPACE DMS13250 -* MAPPING OF FUNCTAB DMS13260 -* DMS13270 -FUNCBLOK DSECT DMS13280 -FUNCNAME DC 8C' ' NAME OF FUNCTION DMS13290 -FUNCOPT DC X'00' VALID OPTIONS FOR FUNCTION DMS13300 -TYPOK EQU X'01' TYPE/NOTYPE OPTION VALID DMS13310 -STKOK EQU X'02' STACK OPTION VALID DMS13320 -SYSOK EQU X'04' SYSTEM OPTION VALID DMS13330 -PERMOK EQU X'08' PERM OPTION VALID DMS13340 -NAMOK EQU X'10' NAME OPTION VALID DMS13350 -KEYOK EQU X'20' KEY OPTION VALID DMS13360 -FUNCFLAG DC X'00' PROCESSING OPTIONS DMS13370 -IXEQ EQU X'01' EXECUTE IMMEDIATELY DMS13380 -NOFPROC EQU X'02' DO NOT SCAN FOR FUNCTION <ID> DMS13390 -SKPNAME EQU X'04' FUNCTION <ID> IS OPTIONAL DMS13400 -FUNCXEQ NOP 0 EXECUTION BRANCH DMS13410 -FUNCTABL EQU *-FUNCBLOK LENGTH OF EACH ENTRY DMS13420 - SPACE DMS13430 -* MAPPING OF OPTION TABLE DMS13440 -* DMS13450 -OPTBLOK CSECT DMS13460 -OPTNAME DC 8C' ' NAME OF OPTION DMS13470 -OPTVALID DC X'00' OPTION/FUNCTION MAPPING FLAGS DMS13480 -OPTBITS DC X'00' OPTION INDICATORS DMS13490 -OPTMASK DC X'00' MASK FOR RESETTING OPTION INDICATORS DMS13500 -OPTLEN DC X'00' MINIMUM ABBREVIATION AS LEN-1 DMS13510 -OPTABLN EQU *-OPTBLOK LEN(EACH ENTRY) DMS13520 - SPACE DMS13530 -* MAPPING OF A LIB TABLE ENTRY DMS13540 -* DMS13550 -LIBNTRY DSECT DMS13560 -LIBID DC 8C' ' FNAME IN AREA DMS13570 -LIBEPA DC A(0) ENTRY POINT ADDRESS DMS13580 -LIBFLAGS EQU LIBEPA FLAGS AS FOLLOWS: DMS13590 -LIBPERM EQU X'80' PERM SPACE DMS13600 -LIBSYS EQU X'40' SYSTEM SPACE DMS13610 -LIBCMD EQU X'20' COMMAND ROUTINE LOADED DMS13620 -LIBLEN DC A(0) LENGTH OF STORAGE AREA DMS13630 -LIBADR DC A(0) ADDRESS OF STORAGE AREA DMS13640 -LIBKEY EQU LIBADR ASSIGNED STORAGE PROTECT KEY DMS13650 -LIBSIZE EQU *-LIBNTRY SIZE OF EACH ENTRY DMS13660 -LIBTLEN EQU 4096-DMSRESRL LENGTH(LIB TABLE) DMS13670 -LIBMAXN EQU LIBTLEN/LIBSIZE MAX NUMBER OF ENTRIES DMS13680 - EJECT DMS13690 - NUCON DMS13700 - DMSFRT DMS13710 - CMSAVE DMS13720 - SVCSECT DMS13730 - REGEQU DMS13740 - END DMSRES DMS13750 -
--- a/MNT19D/EMIT.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,46 +0,0 @@ - TITLE 'Emit' ECH00010 -*********************************************************************** ECH00020 -* Emit the extended parameter list of arguments. * ECH00030 -* Robert O'Hara, Redmond Washington, June 2009. * ECH00040 -* * ECH00050 -* To build EMIT: * ECH00060 -* ASSEMBLE EMIT * ECH00070 -* LOAD EMIT (ORIGIN TRANS CLEAR * ECH00080 -* GENMOD EMIT * ECH00090 -*********************************************************************** ECH00100 -EMIT CSECT ECH00110 - USING EMIT,R12 get addressability ECH00120 - LR R6,R14 save return address ECH00130 - ST R1,PLIST probably a better way to do this ECH00140 - TM PLIST,X'01' do we have an eplist? ECH00150 - BZ NOPLIST nope ECH00160 - LTR R0,R0 OK, is the eplist really there? ECH00170 - BZ NOPLIST2 nope ECH00180 - LA R2,512 is the address a reasonable one? ECH00190 - SR R2,R0 ECH00200 - BP NOPLIST2 nope ECH00210 - LR R2,R0 get eplist ECH00220 - USING EPLIST,R2 and map it ECH00230 - L R3,EPLARGBG start of arguments ECH00240 - L R5,EPLARGND end of arguments ECH00250 - SR R5,R3 length of arguments ECH00260 - WRTERM (R3),(R5) display the argument list ECH00270 - SR R15,R15 ECH00280 - B THATSALL ECH00290 -NOPLIST EQU * ECH00300 - WRTERM 'No extended plist passed to EMIT.' ECH00310 - LA R15,24 ECH00320 - B THATSALL ECH00330 -NOPLIST2 EQU * ECH00340 - WRTERM 'Expected extended plist is missing.' ECH00350 - LA R15,24 ECH00360 -THATSALL EQU * ECH00370 - DROP R2 ECH00380 - BR R6 return to our caller ECH00390 - DROP R12 ECH00400 - SPACE 1 ECH00410 -PLIST DS F ECH00430 - REGEQU register equates ECH00440 - EPLIST DSECT ECH00450 - END ECH00460 -
--- a/MNT394/DMKALG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKALG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -12,7 +12,7 @@ * COMMAND LINE FORMAT - 00012000 * 00013000 * +-----------+-------------------------------------------+ 00014000 -* AUTOLOG USERID PASSWORD < FIRST VREAD DATA > 00015000 +* | AUTOLOG | USERID PASSWORD < FIRST VREAD DATA > | 00015000 * +-----------+-------------------------------------------+ 00016000 * 00017000 * ATTRIBUTES - 00018000
--- a/MNT394/DMKCCW.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCCW.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -1703,10 +1703,10 @@ * 3. THEN PUTS IN ORIGINAL READ IPL CCW BUT WITH OP CODE 01703000 * CHANGED TO READ (06). 01704000 * 4. FINALLY, HANDLES AS GENERAL CASE "READ" 01705000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 01706000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 01706000 * 01707000 * IF > 02, HANDLES AS GENERAL CASE "READ" 01708000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 01709000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 01709000 * 01710000 * DASDX3 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 3: 01711000 * FOR NO-OP (03), DOES NOT CLEAR SENSE BYTES (IF ANY EXIST) 01712000 @@ -1740,7 +1740,7 @@ * FLAG TO REMEMBER THAT THE CCW CHAIN CONTAINS A RELEASE. 01740000 * THESE RESERVE/RELEASE FLAGS ARE INTERROGATED JUST PRIOR 01741000 * TO EXIT FROM DMKCCW. 01742000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 01743000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 01743000 * 01744000 * IF NOT SENSE (04) OR EQUIVALENT, CHECKS FOR "BUFFER UNLOAD" 01745000 * (24 ON 2305 OR A4 ON 3330/3340/3350); IF FOUND,CALLS DMKDSBSD 01746000 @@ -1752,7 +1752,7 @@ * EXCEPT THAT DMKRSESD IS CALLED TO DO THE WORK. 01752000 * 01753000 * ALL OTHER CCWS ENDING IN "4" ARE HANDLED AS GENERAL CASE READ 01754000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 01755000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 01755000 * 01756000 * DASDX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5 01757000 * INSERTS A SEEK (TO REAL EQUIVALENT OF CURRENT VIRTUAL CYLINDER 01758000 @@ -1878,7 +1878,7 @@ * IF > 1B (E.G. ORIENT = 2B), HANDLES CCW "AS IS" 01878000 * (ADDRESS IN CCW IS IRRELEVANT). 01879000 EJECT 01880000 -* "DASDSEEK" - HANDLE SEEK <CYLINDER HEAD> CCW: 01881000 +* "DASDSEEK" - HANDLE SEEK <CYLINDER | HEAD> CCW: 01881000 * RELOCATES THE SEEK ARGUMENTS TO CP CONTROL WORDS 01882000 * 01883000 * CHECKS IF SEEK CCW IS COMMAND- OR DATA-CHAINED; 01884000 @@ -1911,7 +1911,7 @@ * AND HEAD POSITION) IF CHANNEL PROGRAM HAS NOT HAD A SEEK YET. 01911000 * 01912000 * THEN HANDLES AS GENERAL CASE "READ" 01913000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 01914000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 01914000 * 01915000 * DASDXF = "CONTROL" COMMANDS WITH THE LAST 4 BITS = F: 01916000 * INSERTS A SEEK (TO REAL EQUIVALENT OF CURRENT VIRTUAL CYLINDER 01917000 @@ -2319,7 +2319,7 @@ BO CLEARADD YES - JUST USE 0 ADDRESS ETC. AS USUAL. 02319000 * 02320000 * HANDLE READ HOME ADDRESS (1A OR 9A), READ RECORD R0 (16 OR 96), OR 02321000 -* SENSE TYPE COMMANDS (04 94 B4), IN CASES WHERE IT WILL BE NECESSARY 02322000 +* SENSE TYPE COMMANDS (04|94|B4), IN CASES WHERE IT WILL BE NECESSARY 02322000 * FOR "UNTRANS" (DMKUNTFR) TO "UN-RELOCATE" THE CYLINDER <& HEAD> 02323000 * NUMBER WHEN THE CCW STRING HAS BEEN EXECUTED, AND (HOPEFULLY) 02324000 * IF (AND ONLY IF) THE DATA WAS ACTUALLY READ IN: 02325000 @@ -2585,7 +2585,7 @@ * 02585000 * DEDDX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 02586000 * HANDLED AS GENERAL CASE "READ" 02587000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02588000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02588000 * 02589000 * DEDDX3 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 3: 02590000 * FOR NO-OP (03), DOES NOT CLEAR SENSE BYTES (IF ANY EXIST) 02591000 @@ -2595,7 +2595,7 @@ * IF SENSE (04) OR EQUIVALENT, STORES SENSE BYTES FROM VIRTUAL 02595000 * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 02596000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 02597000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02598000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02598000 * 02599000 * DEDDX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5 02600000 * WRITE DATA (05) AND WRITE RECORD R0 (15) 02601000 @@ -2607,7 +2607,7 @@ * FOR READ DATA (06), DOES ISAM CHECKING (SEE "DASDX6" LOGIC) 02607000 * 02608000 * IF NOT 06, HANDLED AS GENERAL CASE "READ" 02609000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02610000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02610000 * 02611000 * DEDDX7 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 7: 02612000 * FOR SEEK (07), CHECKS IF CCW IS COMMAND- OR DATA-CHAINED; 02613000 @@ -2624,7 +2624,7 @@ * 02624000 * DEDDXA = "READ" COMMANDS WITH THE LAST 4 BITS = A: 02625000 * HANDLED AS GENERAL CASE "READ" 02626000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02627000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02627000 EJECT 02628000 * DEDDXB = "CONTROL" COMMANDS WITH THE LAST 4 BITS = B: 02629000 * FOR SEEK CYLINDER (0B) OR SEEK HEAD (1B) CHECKS FOR POSSIBLE 02630000 @@ -2643,7 +2643,7 @@ * 02643000 * DEDDXE = "READ" COMMANDS WITH THE LAST 4 BITS = E: 02644000 * HANDLED AS GENERAL CASE "READ" 02645000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02646000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02646000 * 02647000 * DEDDXF = "CONTROL" COMMANDS WITH THE LAST 4 BITS = F: 02648000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 02649000 @@ -2686,7 +2686,7 @@ * 02686000 * TAPEX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 02687000 * READ (02) HANDLED AS GENERAL CASE "READ" 02688000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02689000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02689000 * 02690000 * 02691000 * TAPEX3 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 3: 02692000 @@ -2698,7 +2698,7 @@ * IF SENSE (04), STORES SENSE BYTES FROM VIRTUAL 02698000 * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 02699000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 02700000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02701000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02701000 * 02702000 * TAPEX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5 02703000 * HANDLED AS AN INVALID CCW 02704000 @@ -2737,7 +2737,7 @@ * 02737000 * TAPEXC = "READ BACKWARD" COMMANDS - LAST 4 BITS = C: 02738000 * IF = 0C, HANDLED AS A GENERAL CASE "READ BACKWARD" COMMAND 02739000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02740000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02740000 * (AND WITH APPROPRIATE HANDLING OF IDA IF DATA CROSSES A PAGE 02741000 * BOUNDARY OR IF IDA IS SET IN THE VIRTUAL READ BACKWARD CCW) 02742000 * 02743000 @@ -2780,7 +2780,7 @@ * 02780000 * TERMX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 02781000 * READ (02) HANDLED AS GENERAL CASE "READ" 02782000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02783000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02783000 * 02784000 * IF NOT 02, 12 (FOR 2955), OR 42 (FOR 370X EMULATION LINE), 02785000 * HANDLED AS AN INVALID CCW 02786000 @@ -2798,7 +2798,7 @@ * IF SENSE (04), STORES SENSE BYTES FROM VIRTUAL 02798000 * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 02799000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 02800000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02801000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02801000 * 02802000 * IF RESERVE (F4) OR RELEASE (D4), CHANGES 02803000 * OP CODE TO 04, SETS SKIP & SILI FLAGBITS 02804000 @@ -2813,7 +2813,7 @@ * 02813000 * TERMX6 = "READ" COMMANDS WITH THE LAST 4 BITS = 6: 02814000 * PREPARE (06) HANDLED AS GENERAL CASE "READ" 02815000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02816000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02816000 * 02817000 * IF NOT 06, HANDLED AS AN INVALID CCW 02818000 * 02819000 @@ -2835,7 +2835,7 @@ * 02835000 * TERMXA = "READ" COMMANDS WITH THE LAST 4 BITS = A: 02836000 * INHIBIT (0A) HANDLED AS GENERAL CASE "READ" 02837000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02838000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02838000 * 02839000 * IF NOT 0A, HANDLED AS AN INVALID CCW 02840000 * 02841000 @@ -2858,7 +2858,7 @@ * TERMXE = "READ" COMMANDS WITH THE LAST 4 BITS = E: 02858000 * SEARCH (0E) HANDLED AS GENERAL CASE "READ" 02859000 * ADDRESS PREPARE (1E) PSEUDO READ. SAME AS SEARCH (0E) 02860000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 02861000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 02861000 * 02862000 * IF NOT 0E OR 1E, HANDLE AS AN INVALID CCW 02863000 * 02864000 @@ -3019,7 +3019,7 @@ * 03019000 * DIALX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 03020000 * READ (02) HANDLED AS GENERAL CASE "READ" 03021000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03022000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03022000 * 03023000 * IF NOT 02, 12 (FOR 2955), OR 42 (FOR 370X EMULATION LINE), 03024000 * HANDLED AS AN INVALID CCW 03025000 @@ -3036,7 +3036,7 @@ * IF SENSE (04), STORES SENSE BYTES FROM VIRTUAL 03036000 * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 03037000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 03038000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03039000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03039000 * 03040000 * IF RESERVE (F4) OR RELEASE (D4), CHANGES 03041000 * OP CODE TO 04, SETS SKIP & SILI FLAGBITS 03042000 @@ -3051,7 +3051,7 @@ * 03051000 * DIALX6 = "READ" COMMANDS WITH THE LAST 4 BITS = 6: 03052000 * PREPARE (06) HANDLED AS GENERAL CASE "READ" 03053000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03054000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03054000 * 03055000 * IF NOT 06, HANDLED AS AN INVALID CCW 03056000 * 03057000 @@ -3077,7 +3077,7 @@ * 03077000 * DIALXA = "READ" COMMANDS WITH THE LAST 4 BITS = A: 03078000 * INHIBIT (0A) HANDLED AS GENERAL CASE "READ" 03079000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03080000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03080000 * 03081000 * IF NOT 0A, HANDLED AS AN INVALID CCW 03082000 * 03083000 @@ -3095,7 +3095,7 @@ * 03095000 * DIALXE = "READ" COMMANDS WITH THE LAST 4 BITS = E: 03096000 * SEARCH (0E) HANDLED AS GENERAL CASE "READ" 03097000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03098000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03098000 * 03099000 * IF NOT 0E, HANDLED AS AN INVALID CCW 03100000 * 03101000 @@ -3175,7 +3175,7 @@ * 03175000 * OTHRX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 03176000 * HANDLED AS GENERAL CASE "READ" 03177000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03178000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03178000 * 03179000 * OTHRX3 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 3: 03180000 * FOR NO-OP (03), DOES NOT CLEAR SENSE BYTES (IF ANY EXIST) 03181000 @@ -3186,14 +3186,14 @@ * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 03186000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 03187000 * FOR A 3800 PRINTER, DO THE BUFFER UNLOAD FOR X'24' @V60B9BA 03188000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03189000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03189000 * 03190000 * OTHRX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5 03191000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 03192000 * 03193000 * OTHRX6 = "READ" COMMANDS WITH THE LAST 4 BITS = 6: 03194000 * HANDLED AS GENERAL CASE "READ" 03195000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03196000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03196000 * 03197000 * OTHRX7 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 7: 03198000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 03199000 @@ -3203,21 +3203,21 @@ * 03203000 * OTHRXA = "READ" COMMANDS WITH THE LAST 4 BITS = A: 03204000 * HANDLED AS GENERAL CASE "READ" 03205000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03206000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03206000 * 03207000 * OTHRXB = "CONTROL" COMMANDS WITH THE LAST 4 BITS = B: 03208000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 03209000 * 03210000 * OTHRXC = "READ BACKWARD" COMMANDS - LAST 4 BITS = C: 03211000 * HANDLED AS GENERAL CASE "READ BACKWARD" 03212000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03213000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03213000 * 03214000 * OTHRXD = "WRITE" COMMANDS WITH THE LAST 4 BITS = D: 03215000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 03216000 * 03217000 * OTHRXE = "READ" COMMANDS WITH THE LAST 4 BITS = E: 03218000 * HANDLED AS GENERAL CASE "READ" 03219000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 03220000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03220000 * 03221000 * OTHRXF = "CONTROL" COMMANDS WITH THE LAST 4 BITS = F: 03222000 * HANDLED AS GENERAL CASE OF DATA TRANSFER 03223000 @@ -4211,7 +4211,7 @@ * 04211000 * CONSX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 04212000 * READ (02) HANDLED AS GENERAL CASE "READ" 04213000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 04214000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 04214000 * 04215000 * IF NOT 02, HANDLED AS AN INVALID CCW 04216000 * 04217000 @@ -4223,7 +4223,7 @@ * IF SENSE (04), STORES SENSE BYTES FROM VIRTUAL 04223000 * DEVICE BLOCK IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 04224000 * OTHERWISE, HANDLED AS GENERAL CASE "READ" 04225000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 04226000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 04226000 * 04227000 * CONSX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5: 04228000 * IF NOT 05, HANDLED AS AN INVALID CCW 04229000 @@ -4240,7 +4240,7 @@ * 04240000 * CONSXA = "READ" COMMANDS WITH THE LAST 4 BITS = A: 04241000 * READ (0A) HANDLED AS GENERAL CASE "READ" 04242000 -* (CHECKS FOR SKIP FLAG SET STORAGE PROTECTION VIOLATION) 04243000 +* (CHECKS FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 04243000 * 04244000 * IF NOT 0A, HANDLED AS AN INVALID CCW 04245000 * 04246000
--- a/MNT394/DMKCDB.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCDB.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -198,29 +198,29 @@ * 00256000 * COMMAND FORMAT - 00257000 * +---------+-----------------------------------------+ 00258000 -* DISPLAY LHEXLOC1 <<-> > 00259000 -* D THEXLOC1 <<:> > 00260000 -* KHEXLOC1 <<-HEXLOC2> > 00261000 -* 0 <<:HEXLOC2> > 00262000 -* <<-END> > 00263000 -* <<:END> > 00264000 -* <<.> > 00265000 -* <<.BYTECOUNT> > 00266000 -* <<.END> > 00267000 -* 00268000 -* GREG1 <<-> > 00269000 -* XREG1 <<:> > 00270000 -* YREG1 <<-REG2> > 00271000 -* 0 <<:REG2> > 00272000 -* <<-END> > 00273000 -* <<:END> > 00274000 -* <<.> > 00275000 -* <<.REGCOUNT> > 00276000 -* <<.END> > 00277000 -* 00278000 -* PSW 00279000 -* CSW 00280000 -* CAW 00281000 +* | DISPLAY | LHEXLOC1 <<-> > | 00259000 +* | D | THEXLOC1 <<:> > | 00260000 +* | | KHEXLOC1 <<-HEXLOC2> > | 00261000 +* | | 0 <<:HEXLOC2> > | 00262000 +* | | <<-END> > | 00263000 +* | | <<:END> > | 00264000 +* | | <<.> > | 00265000 +* | | <<.BYTECOUNT> > | 00266000 +* | | <<.END> > | 00267000 +* | | | 00268000 +* | | GREG1 <<-> > | 00269000 +* | | XREG1 <<:> > | 00270000 +* | | YREG1 <<-REG2> > | 00271000 +* | | 0 <<:REG2> > | 00272000 +* | | <<-END> > | 00273000 +* | | <<:END> > | 00274000 +* | | <<.> > | 00275000 +* | | <<.REGCOUNT> > | 00276000 +* | | <<.END> > | 00277000 +* | | | 00278000 +* | | PSW | 00279000 +* | | CSW | 00280000 +* | | CAW | 00281000 * +---------+-----------------------------------------+ 00282000 * 00283000 * OPERATION - 00284000 @@ -450,15 +450,15 @@ * 00597000 * COMMAND FORMATS - 00598000 * +--------+------------------------------------------+ 00599000 -* DCP <M N>LHEXLOC1 <<-> > 00600000 -* DCP <M N>THEXLOC1 <<:> > 00601000 -* <M N>HEXLOC1 <<-HEXLOC2> > 00602000 -* 0 <<:HEXLOC2> > 00603000 -* <<-END> > 00604000 -* <<:END> > 00605000 -* <<.> > 00606000 -* <<.BYTECOUNT>> 00607000 -* <<.END> > 00608000 +* | DCP | <M|N>LHEXLOC1 <<-> > | 00600000 +* | DCP | <M|N>THEXLOC1 <<:> > | 00601000 +* | | <M|N>HEXLOC1 <<-HEXLOC2> > | 00602000 +* | | 0 <<:HEXLOC2> > | 00603000 +* | | <<-END> > | 00604000 +* | | <<:END> > | 00605000 +* | | <<.> > | 00606000 +* | | <<.BYTECOUNT>> | 00607000 +* | | <<.END> > | 00608000 * +--------+------------------------------------------+ 00609000 * 00610000 * OPERATION - 00611000 @@ -523,7 +523,7 @@ BE DISCAW YES 00689000 CLI 0(R5),C'X' CONTROL REGISTERS ? 00690000 BE DISECR YES 00691000 - CLI 0(R5),C'N' IF USER SPECIFIED M N, @V4075A0 00691100 + CLI 0(R5),C'N' IF USER SPECIFIED M|N, @V4075A0 00691100 BE ITSN @V4075A0 00691150 CLI 0(R5),C'M' @V4075A0 00691200 BE ITSM CHECK VALIDITY AND SET FLAGS @V4075A0 00691250
--- a/MNT394/DMKCDM.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCDM.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -153,15 +153,15 @@ * 00152000 * COMMAND FORMAT - 00153000 * +--------+------------------------------------------+ 00154000 -* DUMP <M N>LHEXLOC1 <<-> > 00155000 -* DU <M N>THEXLOC1 <<:> > <*USERID> 00156000 -* <M N>HEXLOC1 <<-HEXLOC2> > 00157000 -* 0 <<:HEXLOC2> > 00158000 -* <<-END> > 00159000 -* <<:END> > 00160000 -* <<.> > 00161000 -* <<.BYTECOUNT > 00162000 -* <<.END> > 00163000 +* | DUMP | <M|N>LHEXLOC1 <<-> > | 00155000 +* | DU | <M|N>THEXLOC1 <<:> > <*USERID> | 00156000 +* | | <M|N>HEXLOC1 <<-HEXLOC2> > | 00157000 +* | | 0 <<:HEXLOC2> > | 00158000 +* | | <<-END> > | 00159000 +* | | <<:END> > | 00160000 +* | | <<.> > | 00161000 +* | | <<.BYTECOUNT > | 00162000 +* | | <<.END> > | 00163000 * +--------+------------------------------------------+ 00164000 * 00165000 * THE FOLLOWING EXAMPLES WILL PRODUCE ONE FULL DUMP EACH 00166000 @@ -398,15 +398,15 @@ * 00391000 * COMMAND FORMAT - 00392000 * +--------+------------------------------------------+ 00393000 -* DMCP <M N>LHEXLOC1 <<-> > 00394000 -* DMCP <M N>LHEXLOC1 <<:> > <*DUMPID> 00395000 -* <M N>HEXLOC1 <<-HEXLOC2> > 00396000 -* 0 <<:HEXLOC2> > 00397000 -* <<-END> > 00398000 -* <<:END> > 00399000 -* <<.> > 00400000 -* <<.BYTECOUNT>> 00401000 -* <<.END> > 00402000 +* | DMCP | <M|N>LHEXLOC1 <<-> > | 00394000 +* | DMCP | <M|N>LHEXLOC1 <<:> > <*DUMPID> | 00395000 +* | | <M|N>HEXLOC1 <<-HEXLOC2> > | 00396000 +* | | 0 <<:HEXLOC2> > | 00397000 +* | | <<-END> > | 00398000 +* | | <<:END> > | 00399000 +* | | <<.> > | 00400000 +* | | <<.BYTECOUNT>> | 00401000 +* | | <<.END> > | 00402000 * +--------+------------------------------------------+ 00403000 * 00404000 * OPERATION - 00405000 @@ -474,7 +474,7 @@ BE DUMPTEST YES 00467000 CLI 0(R5),C'T' STORAGE LOCATION(S) + EBCDIC ? 00468000 BE DUMPTEST YES 00469000 - CLI 0(R5),C'N' IF USER SPECIFIED M N, @V4075A0 00470000 + CLI 0(R5),C'N' IF USER SPECIFIED M|N, @V4075A0 00470000 BE ITSN @V4075A0 00471000 CLI 0(R5),C'M' @V4075A0 00472000 BE ITSM CHECK VALIDITY AND SET FLAGS @V4075A0 00473000
--- a/MNT394/DMKCDS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCDS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -147,9 +147,9 @@ * 00132000 * COMMAND FORMAT - 00133000 * +--------+-------------------------+ 00134000 -* STCP (M N ) HEXLOC HEXDATA . . . 00135000 -* (ML NL L) HEXLOC 00136000 -* (MS NS S) HEXLOC 00137000 +* | STCP | (M|N| )||HEXLOC HEXDATA . . .| 00135000 +* | | (ML|NL|L)||HEXLOC | 00136000 +* | | (MS|NS|S)||HEXLOC | 00137000 * +--------+-------------------------+ 00138000 * 00139000 * OPERATION - 00140000 @@ -195,16 +195,16 @@ * 00174000 * COMMAND FORMAT - 00175000 * +---------+--------------------------------+ 00176000 -* STORE HEXLOC HEXDATA . . . . 00177000 -* LHEXLOC 00178000 -* ST SHEXLOC 00179000 -* GREG 00180000 -* YREG 00181000 -* XREG 00182000 -* 00183000 -* PSW HEXDATA1 HEXDATA2 00184000 -* 00185000 -* STATUS 00186000 +* | STORE | HEXLOC HEXDATA . . . . | 00177000 +* | | LHEXLOC | 00178000 +* | ST | SHEXLOC | 00179000 +* | | GREG | 00180000 +* | | YREG | 00181000 +* | | XREG | 00182000 +* | | | 00183000 +* | | PSW HEXDATA1 HEXDATA2 | 00184000 +* | | | 00185000 +* | | STATUS | 00186000 * +---------+--------------------------------+ 00187000 * 00188000 * OPERATION - 00189000 @@ -387,7 +387,7 @@ CLI 0(R1),C'F' ALSO IF HEX DIGIT @V4075A0 00355200 BNHR R8 RETURN @V4075A0 00355250 NI SAVEWRK1,X'FF'-(MPREF+NPREF) RESET PREFIX FLAGS @V4075A0 00355300 - CLI 0(R1),C'N' IF USER SPECIFIED M N, @V4075A0 00355350 + CLI 0(R1),C'N' IF USER SPECIFIED M|N, @V4075A0 00355350 BH NOTMORN @V4075A0 00355400 CLI 0(R1),C'M' @V4075A0 00355450 BNL ITSMORN CHECK VALIDITY AND SET FLAGS @V4075A0 00355500
--- a/MNT394/DMKCFC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -289,7 +289,7 @@ * COMMAND LINE FORMAT - 00281000 * 00282000 * +--------------+ 00283000 -* REQUEST 00284000 +* | REQUEST | 00284000 * +--------------+ 00285000 * 00286000 * CALLS TO OTHER ROUTINES - 00287000 @@ -334,7 +334,7 @@ * COMMAND LINE FORMAT - 00326000 * 00327000 * +--------+------------+ 00328000 -* BEGIN LOCATION 00329000 +* | BEGIN | LOCATION | 00329000 * +--------+------------+ 00330000 * 00331000 * CALLS TO OTHER ROUTINES - 00332000 @@ -398,7 +398,7 @@ * COMMAND LINE FORMAT - 00390000 * 00391000 * +---------+-----------------------------------+ 00392000 -* SLEEP < NN < HRS MIN SEC >> 00393000 +* | SLEEP | < NN < HRS | MIN | SEC >> | 00393000 * +---------+-----------------------------------+ 00394000 * 00395000 * OPERATION - 00396000 @@ -609,7 +609,7 @@ * ENTRIES, EACH OF THE FOLLOWING FORM: 00513000 * 00513500 * +----------------------+------+------+------+------+ 00514000 -* SEARCH ARGUMENT ABBREV CLASS MODULE INDEX 00514500 +* | SEARCH ARGUMENT |ABBREV|CLASS |MODULE|INDEX | 00514500 * +----------------------+------+------+------+------+ 00515000 * 00515500 * THE INDEX MUST MATCH THE BRANCH LISTS IN THE 00516000
--- a/MNT394/DMKCFD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -108,8 +108,8 @@ * 00108000 * COMMAND FORMAT - 00109000 * +----------+-----------------+ 00110000 -* LOCATE USERID <VADDR> 00111000 -* LOC RADDR 00112000 +* | LOCATE | USERID <VADDR> | 00111000 +* | LOC | RADDR | 00112000 * +----------+-----------------+ 00113000 * 00114000 * OPERATION - 00115000 @@ -274,8 +274,8 @@ * 00274000 * COMMAND FORMAT - 00275000 * +----------+------------+ 00276000 -* ADSTOP LOCATION 00277000 -* ADSTOP OFF 00278000 +* | ADSTOP | LOCATION | 00277000 +* | ADSTOP | OFF | 00278000 * +----------+------------+ 00279000 * 00280000 * OPERATION - 00281000
--- a/MNT394/DMKCFG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -161,10 +161,10 @@ * COMMAND LINE FORMAT - 00160000 * 00161000 * +-----+---------------------------------------------------+ 00162000 -* IPL VADDR <CYL-NO> <STOP> <CLEAR> 00163000 -* I <NOCLEAR> 00164000 -* <PARM P1 P2 ...> 00165000 -* SYSTEM NAME 00166000 +* | IPL | VADDR <CYL-NO> <STOP> <CLEAR> | 00163000 +* | I | <NOCLEAR> | 00164000 +* | | <PARM P1 P2 ...> | 00165000 +* | | SYSTEM NAME | 00166000 * +-----+---------------------------------------------------+ 00167000 * 00168000 * OPERATION - 00169000 @@ -481,8 +481,8 @@ * ITS PLACE. THE USERS SWAPTABLE IS ALSO UPDATED TO POINT 00480000 * TO THE IPL SIMULATORS PAGE ON DASD BY RPAGEGET. 00481000 * 00482000 -* FOR 65K SEGMENTS - VIRT. ADDR. = SEG PG DISP 00483000 -* 8 4 12 00484000 +* FOR 65K SEGMENTS - VIRT. ADDR. = | SEG | PG | DISP | 00483000 +* | 8 | 4 | 12 | 00484000 * 00485000 * 00486000 L R4,ASYSVM ADDRESS OF SYSTEM VMBLOK @V304635 00487000 @@ -829,7 +829,7 @@ * SHARED SEGMENTS MUST BE FLAGGED AS SHARED AND A SHRTABLE MUST 00821000 * BE BUILT AND PLACED ON THE CHAIN OF SHRTABLES. 00822000 * NOTE - IN THE SECOND AND THIRD CASES, IF THE USER HAD V.M. 00823000 -* INSTRUCTION AND OR BRANCH TRACING IN EFFECT, IT IS RESET, AS 00824000 +* INSTRUCTION AND|OR BRANCH TRACING IN EFFECT, IT IS RESET, AS 00824000 * THIS OPTION IS INVALID FOR A SHARED SYSTEM. IF ANY TRACING 00825000 * FLAGS ARE STILL ON, THE MODIFIED TRACING IS LEFT IN EFFECT; 00826000 * BUT IF ALL FLAGBITS ARE NOW CLEAR, ALL TRACING IS TERMINATED 00827000
--- a/MNT394/DMKCFH.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFH.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -19,9 +19,9 @@ * COMMAND LINE FORMAT - 00019000 * 00020000 * +---------+-------------+ 00021000 -* 00022000 -* SAVESYS SYSTEM-NAME 00023000 -* 00024000 +* | | | 00022000 +* | SAVESYS | SYSTEM-NAME | 00023000 +* | | | 00024000 * +---------+-------------+ 00025000 * 00026000 * ENTRY CONDITIONS - 00027000
--- a/MNT394/DMKCFO.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFO.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -74,42 +74,42 @@ * 00071000 * CLASS A 00072000 * +-------+-------------------------+ 00073000 -* SET FAVORED USERID <XX> 00074000 -* <OFF> 00075000 -* 00076000 -* RESERVE USERID XX 00077000 -* OFF 00078000 -* SASSIST ON <<PROC> XX> 00079100 -* OFF 00080000 -* CPASSIST ON 00080100 -* OFF 00080200 +* | SET | FAVORED USERID <XX> | 00074000 +* | | <OFF> | 00075000 +* | | | 00076000 +* | | RESERVE USERID XX | 00077000 +* | | OFF | 00078000 +* | | SASSIST ON <<PROC> XX>| 00079100 +* | | OFF | 00080000 +* | | CPASSIST ON | 00080100 +* | | OFF | 00080200 * +-------+-------------------------+ 00081000 * 00082000 * 00083000 * CLASS B 00084000 * +-------+-------------------------+ 00085000 -* SET LOGMSG N 00086000 -* NULL 00087000 -* 00088000 -* DUMP AUTO 00089000 -* RADDR 00090000 +* | SET | LOGMSG N | 00086000 +* | | NULL | 00087000 +* | | | 00088000 +* | | DUMP AUTO | 00089000 +* | | RADDR | 00090000 * +-------+-------------------------+ 00091000 * 00092000 * 00093000 * CLASS C 00094000 * +-------+-------------------------+ 00095000 -* SET PRIORITY USERID NN 00098000 +* | SET | PRIORITY USERID NN | 00098000 * +-------+-------------------------+ 00099000 * 00100000 * 00101000 * CLASS F 00102000 * 00103000 * +-------+--------------------------------------------------+ 00104000 -* SET RECORD ON RADDR LIMIT NN BYTE NN BIT N 00105000 -* AND BYTE NN BIT NN 00106000 -* OR 00107000 -* OFF 00108000 -* MODE MAIN/RETRY RECORD/QUIET CPUID 00109100 +* | SET | RECORD ON RADDR LIMIT NN BYTE NN BIT N | 00105000 +* | | AND BYTE NN BIT NN | 00106000 +* | | OR | 00107000 +* | | OFF | 00108000 +* | | MODE MAIN/RETRY RECORD/QUIET CPUID | 00109100 * +-------+--------------------------------------------------+ 00110000 * 00111000 * OPERATION - 00112000 @@ -293,7 +293,7 @@ * SET SASSIST 00290000 * 1. SETSAS - ROUTINE TO PROCESS SET SASSIST . SET UP FOR 00291000 * RETURN FROM TSTONOFF ROUTINE, AND BAL R10 TO THAT RTN. 00292000 -* 2. REMEMBER IF ON OFF, SET DEFAULT EXIT = SETCOMP 00293100 +* 2. REMEMBER IF ON|OFF, SET DEFAULT EXIT = SETCOMP 00293100 * 3. IF WE ARE IN UP MODE, GO DIRECTLY TO STEP 7 00293140 * 3. SCAN FOR MORE PARAMETERS. IF NONE, DO 7 FOR BOTH PROCESSOR 00293180 * 4. IF THERE ARE MORE PARAMETERS, BYPASS 'PROC' IF SPECIFIED, 00293220 @@ -674,7 +674,7 @@ GOTO DMKDSPCH BUT FIRST GET OFF OF THIS PROCESSOR @V4M0122 00606540 SPACE 1 00606542 SASUS EQU * @V4075A0 00606550 - TM SAVEWRK1,WASON NOW, DID THEY WANT ON OFF @V4075A0 00606570 + TM SAVEWRK1,WASON NOW, DID THEY WANT ON|OFF @V4075A0 00606570 BO SASON @V4075A0 00606590 NI CPSTAT2,X'FF'-CPMICON STOP USE OF VM ASSIST @V4075A0 00606610 BR R8 @V4075A0 00606630 @@ -1270,7 +1270,7 @@ LA R2,143 TYPE RADDR IN USE BY SYSTEM @V326538 01073000 B CALLERM GO DO IT @V326538 01074000 SPACE 2 01075000 -CFO175 LA R2,175 FAV RES ALREADY IN USE BY USERID @V326538 01076000 +CFO175 LA R2,175 FAV|RES ALREADY IN USE BY USERID @V326538 01076000 B CALLERM @V326538 01077000 SPACE 01079200 CFO186 LA R2,186 ERROR CODE: CP ASSIST NOT AVAIL. @V386198 01079300
--- a/MNT394/DMKCFS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -73,50 +73,50 @@ * 00073000 * CLASS G 00074000 * +-------+-------------------------+ 00075000 -* SET ACNT ON 00076000 -* MSG OFF 00077000 -* WNG 00078000 -* RUN 00079000 -* LINEDIT 00080000 -* PAGEX 00081000 -* NOTRANS 00082000 -* ECMODE 00083000 -* IMSG 00084000 -* ISAM 00085000 -* AUTOPOLL 00086000 -* CPUID BBBBBB 00087000 -* 00088000 -* EMSG ON 00089000 -* OFF 00090000 -* CODE 00091000 -* TEXT 00092000 -* 00093000 -* TIMER ON 00094000 -* OFF 00095000 -* REAL 00096000 -* 00097000 -* ASSIST ON 00098000 -* OFF 00099000 -* SVC 00100000 -* NOSVC 00101000 -* TMR 00102000 -* NOTMR 00103000 -* @V4075A0 00104000 -* AFFINITY ON @V4075A0 00105000 -* OFF @V4075A0 00106000 -* XX @V4075A0 00107000 -* USERID @V4075A0 00108000 -* @V4075A0 00109000 +* | SET | ACNT ON | 00076000 +* | | MSG OFF | 00077000 +* | | WNG | 00078000 +* | | RUN | 00079000 +* | | LINEDIT | 00080000 +* | | PAGEX | 00081000 +* | | NOTRANS | 00082000 +* | | ECMODE | 00083000 +* | | IMSG | 00084000 +* | | ISAM | 00085000 +* | | AUTOPOLL | 00086000 +* | | CPUID BBBBBB | 00087000 +* | | | 00088000 +* | | EMSG ON | 00089000 +* | | OFF | 00090000 +* | | CODE | 00091000 +* | | TEXT | 00092000 +* | | | 00093000 +* | | TIMER ON | 00094000 +* | | OFF | 00095000 +* | | REAL | 00096000 +* | | | 00097000 +* | | ASSIST ON | 00098000 +* | | OFF | 00099000 +* | | SVC | 00100000 +* | | NOSVC | 00101000 +* | | TMR | 00102000 +* | | NOTMR | 00103000 +* | | | @V4075A0 00104000 +* | | AFFINITY ON | @V4075A0 00105000 +* | | OFF | @V4075A0 00106000 +* | | XX | @V4075A0 00107000 +* | | USERID | @V4075A0 00108000 +* | | | @V4075A0 00109000 * +-------+-------------------------+ 00110000 * 00111000 * +-------+-----------------------------+ 00112000 -* SET PFNN DELAYED FUNCTION 00113000 -* IMMED 00114000 +* | SET | PFNN DELAYED FUNCTION | 00113000 +* | | IMMED | 00114000 * +-------+-----------------------------+ 00115000 * 00116000 * +-------+-----------------------------+ 00117000 -* SET SMSG ON 00118000 -* OFF 00119000 +* | SET | SMSG ON | 00118000 +* | | OFF | 00119000 * +-------+-----------------------------+ 00120000 * 00121000 * 00122000 @@ -280,7 +280,7 @@ * 3. BASED ON ON/OFF TEST, SET OR RESET FLAG VMPAGEX IN 00280000 * VMPSTAT AND EXIT. 00281000 * SET IMSG 00282000 -* 1. SETIMSG - ROUTINE TO HANDLE SET IMSG ON OFF. VERIFY 00283000 +* 1. SETIMSG - ROUTINE TO HANDLE SET IMSG ON|OFF. VERIFY 00283000 * THAT 2ND ARGUMENT EXISTS AND THAT IT'S ON OR OFF. IF 00284000 * ARGUMENT MISSING, ISSUE MSG DMKCFS0026E, IF INVALID, 00285000 * ISSUE MSG DMKCFS003E. 00286000 @@ -309,14 +309,14 @@ * WHETHER AFFINITY IS WANTED, AND IF SO, WHICH PROCESSOR 00309000 * 00310000 * 1. SET USERID = ISSUER. IF NO ARGS, GO TO 18 00311000 -* 2. USE TSTONOFF TO SEE IF 2ND ARG IS ON OFF NUMERIC UID 00312000 +* 2. USE TSTONOFF TO SEE IF 2ND ARG IS ON|OFF|NUMERIC|UID 00312000 * 3. IF RETURN FOR OFF, SET TARGET PROC = 0 AND GO TO 17 00313000 * 4. IF RETURN FOR ON, GO TO 18 00314000 * 5. CHECK USER FOR COMMAND CLASS A ELSE ISSUE MSG 26 00315000 * 6. IF ARGUMENT IS NUMERIC, GO TO 12 00316000 * 7. IF ARGUMENT IS NOT NUMERIC, SAVE AS A USERID AND GET 00317000 * NEXT ARGUMENT. IF NONE, GO TO 18 00318000 -* 8. USE TSTONOFF TO SEE IF 3RD ARG IS ON OFF NUMERIC 00319000 +* 8. USE TSTONOFF TO SEE IF 3RD ARG IS ON|OFF|NUMERIC 00319000 * 9. IF RETURN FOR OFF, SET TARGET PROC = 0, AND GO TO 17 00320000 * 10. IF RETURN FOR ON, GO TO 18 00321000 * 11. CONVERT ARGUMENT TO BINARY 00322000 @@ -1000,7 +1000,7 @@ EJECT 01000000 ***** 01001000 * 01002000 -* SET SMSG ON OFF 01003000 +* SET SMSG ON|OFF 01003000 * 01004000 ***** 01005000 SPACE 01006000 @@ -1021,8 +1021,8 @@ EJECT 01021000 ***** @V4075A0 01022000 * @V4075A0 01023000 -* SET AFFINITY ON OFF CLASS G @V4075A0 01024000 -* <USERID> ON OFF XX CLASS A @V4075A0 01025000 +* SET AFFINITY ON|OFF CLASS G @V4075A0 01024000 +* <USERID> ON|OFF|XX CLASS A @V4075A0 01025000 * @V4075A0 01026000 * @V4075A0 01027000 * NOTES: R6 IS USED TO HOLD THE PROCESSOR ADDR 01028000 @@ -1036,7 +1036,7 @@ BO SETAFFON NO -> DEFAULT = ON, UID=US @V4075A0 01036000 LA R10,SETAFFOF @V4075A0 01037000 LA R8,SETAFFON @V4075A0 01038000 - BAL R7,TSTONOFF WHO WILL RETURN IF NOT ON OFF @V4075A0 01039000 + BAL R7,TSTONOFF WHO WILL RETURN IF NOT ON|OFF @V4075A0 01039000 * A NUMERIC PROCESSOR ADDRESS IS VALID FOR CLASS A USERS 01040000 TM VMCLEVEL,VMCLASSA THIS PATH IS NOT @V4075A0 01041000 BZ CFS026 FOR THE COMMON MAN, GIVE HIM ERR MSG@V4075A0 01042000
--- a/MNT394/DMKCFT.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCFT.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -60,22 +60,22 @@ * COMMAND FORMAT - 00060000 * 00061000 * +------------+-------------------------------+ 00062000 -* TERMINAL CHARDEL ON 00063000 -* TERM LINEDEL OFF 00064000 -* LINEND (CHAR) 00065000 -* ESCAPE 00066000 -* TABCHAR 00066500 -* 00067000 -* APL 00068000 -* ATTN ON 00069000 -* MASK OFF 00070000 -* TEXT 00070100 -* TIMESTMP 00071000 -* 00072000 -* LINESIZE NNN 00073000 -* 00074000 -* MODE CP 00075000 -* VM 00076000 +* | TERMINAL | CHARDEL ON | 00063000 +* | TERM | LINEDEL OFF | 00064000 +* | | LINEND (CHAR) | 00065000 +* | | ESCAPE | 00066000 +* | | TABCHAR | 00066500 +* | | | 00067000 +* | | APL | 00068000 +* | | ATTN ON | 00069000 +* | | MASK OFF | 00070000 +* | | TEXT | 00070100 +* | | TIMESTMP | 00071000 +* | | | 00072000 +* | | LINESIZE NNN | 00073000 +* | | | 00074000 +* | | MODE CP | 00075000 +* | | VM | 00076000 * +------------+-------------------------------+ 00077000 * 00078000 * 00079000
--- a/MNT394/DMKCKS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCKS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -1260,7 +1260,7 @@ * NEWLY ALLOCATED CYLINDER, GPR 8 HAS THE RDEVBLOK 01176000 * RDEVALLN HAS ADDR OF ALLOCATION RECD CREATED BY DMKCPI 01177000 * +----+--+--+--+--+--+--+--+--+ 01178000 -* CYLS 00 01 02 03 04 - - FF 01179000 +* |CYLS|00|01|02|03|04|- |- |FF| 01179000 * +----+--+--+--+--+--+--+--+--+ 01180000 SPACE 01181000 NEWCYL LA R0,RDEVSER POINT TO VOLID @VM03200 01182000
--- a/MNT394/DMKCPB.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCPB.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -147,9 +147,9 @@ * COMMAND FORMAT - 00146000 * 00147000 * +----------+-----------+ 00148000 -* SYSTEM CLEAR 00149000 -* SYS RESET 00150000 -* RESTART 00151000 +* | SYSTEM | CLEAR | 00149000 +* | SYS | RESET | 00150000 +* | | RESTART | 00151000 * +----------+-----------+ 00152000 * 00153000 * OPERATION - 00154000 @@ -277,8 +277,8 @@ * COMMAND FORMAT - 00276000 * 00277000 * +------------+--------+ 00278000 -* EXTERNAL CODE 00279000 -* EXT 00280000 +* | EXTERNAL | CODE | 00279000 +* | EXT | | 00280000 * +------------+--------+ 00281000 * 00282000 * OPERATION - 00283000 @@ -369,8 +369,8 @@ * COMMAND FORMAT - 00367000 * 00368000 * +---------+---------+ 00369000 -* READY VADDR 00370000 -* R 00371000 +* | READY | VADDR | 00370000 +* | R | | 00371000 * +---------+---------+ 00372000 * 00373000 * OPERATION - 00374000 @@ -436,8 +436,8 @@ * 00434000 * COMMAND LINE FORMAT - 00435000 * +------------+---------+ 00436000 -* NOTREADY VADDR 00437000 -* NOTR 00438000 +* | NOTREADY | VADDR | 00437000 +* | NOTR | | 00438000 * +------------+---------+ 00439000 * 00440000 * OPERATION - 00441000 @@ -487,8 +487,8 @@ * COMMAND FORMAT - 00485000 * 00486000 * +---------+---------+ 00487000 -* RESET VADDR 00488000 -* RESET 00489000 +* | RESET | VADDR | 00488000 +* | RESET | | 00489000 * +---------+---------+ 00490000 * 00491000 * OPERATION - 00492000 @@ -541,8 +541,8 @@ * COMMAND FORMAT - 00539000 * 00540000 * +----------+---------+ 00541000 -* REWIND VADDR 00542000 -* REW 00543000 +* | REWIND | VADDR | 00542000 +* | REW | | 00543000 * +----------+---------+ 00544000 * 00545000 * OPERATION - 00546000 @@ -553,7 +553,7 @@ * 3. CALL DMKFREE TO OBTAIN STORAGE FOR AN IOBLOK AND CCW. 00551000 * 4. INITIALIZE THE IOBLOK TO DO A SENSE OPERATION. CALL 00552000 * DMKIOSQR TO DO THE SENSE. GO TO DMKDSPCH TO WAIT FOR THE 00553000 -* SENSE TO COMPLETE^ WHEN SENSE IS DONE CHECK IF THE TAPE 00554000 +* SENSE TO COMPLETE^ WHEN SENSE IS DONE| CHECK IF THE TAPE 00554000 * IS READY. IF NOT, CALL DMKFRET TO FRET THE IOBLOK AND 00555000 * THEN CALL DMKQCNWT TO SEND THE RESPONSE 'REWIND NOT 00556000 * PERFORMED' AND EXIT. 00557000
--- a/MNT394/DMKCPI.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCPI.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -2178,8 +2178,8 @@ TMSG DC C'TURN ON THE INTERVAL TIMER' @VM03170 02180000 TMSGL EQU *-TMSG @VM03170 02181000 SPACE 02182000 -AWARM DC C'START ((COLD WARM CKPT FORCE) ' @V396414 02183000 - DC C'(DRAIN)) (SHUTDOWN) :' @V396414 02184000 +AWARM DC C'START ((COLD|WARM|CKPT|FORCE) ' @V396414 02183000 + DC C'(DRAIN))|(SHUTDOWN) :' @V396414 02184000 AWARML EQU *-AWARM @VM03170 02185000 SPACE 02186000 DATEMSG DC C'SET DATE MM/DD/YY :' @VM03170 02187000 @@ -2215,7 +2215,7 @@ SETMSG DC C'PRESS "TOD ENABLE SET" KEY AT DESIGNATED INSTANT' 02217000 SETMSGL EQU *-SETMSG @VM03170 02218000 SPACE 1 02219000 -CHNGMSG DC C'CHANGE TOD CLOCK (YES NO) :' @VM03170 02220000 +CHNGMSG DC C'CHANGE TOD CLOCK (YES|NO) :' @VM03170 02220000 CHNGMSGL EQU *-CHNGMSG @VM03170 02221000 SPACE 1 02222000 OPLGMSG DC C'DMKCPI950A AUTO LOGON FAILED; EXPLICIT LOGON REQUIRED' 02223000
--- a/MNT394/DMKCPR.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCPR.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -87,8 +87,8 @@ * COMMAND LINE FORMAT - 00087000 * 00088000 * +------------+--------------+ 00089000 -* SHUTDOWN NO OPERAND 00090000 -* SHUTDOWN 00091000 +* | SHUTDOWN | NO OPERAND | 00090000 +* | SHUTDOWN | | 00091000 * +------------+--------------+ 00092000 * 00093000 * OPERATION - 00094000
--- a/MNT394/DMKCPS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCPS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -164,8 +164,8 @@ * COMMAND LINE FORMAT - 00164000 * 00165000 * +------------+--------------+ 00166000 -* SHUTDOWN NO OPERAND 00167000 -* SHUTDOWN 00168000 +* | SHUTDOWN | NO OPERAND | 00167000 +* | SHUTDOWN | | 00168000 * +------------+--------------+ 00169000 * 00170000 * OPERATION - 00171000 @@ -367,10 +367,10 @@ * COMMAND LINE FORMAT - 00367000 * 00368000 * +------+---------------------------------+ 00369000 -* VARY ONLINE RADDR . . . 00370000 -* OFFLINE RADDR1-RADDR2 00371000 -* VARY ONLINE PROCESSOR RADDR 00372000 -* OFFLINE PROCESSOR RADDR 00373000 +* | VARY | ONLINE RADDR . . . | 00370000 +* | | OFFLINE RADDR1-RADDR2 | 00371000 +* | VARY | ONLINE PROCESSOR RADDR | 00372000 +* | | OFFLINE PROCESSOR RADDR | 00373000 * +------+---------------------------------+ 00374000 * 00375000 * OPERATION - 00376000 @@ -441,8 +441,8 @@ * 00441000 * RESPONSES - 00442000 * +----------------------------------------+ 00443000 -* RADDR ... VARIED ONLINE 00444000 -* RADDR-RADDR OFFLINE 00445000 +* | RADDR ... VARIED ONLINE | 00444000 +* | RADDR-RADDR OFFLINE | 00445000 * +----------------------------------------+ 00446000 * 00447000 * ERROR MESSAGES - 00448000 @@ -1101,8 +1101,8 @@ * COMMAND FORMAT - 01101000 * 01102000 * +--------+---------+ 01103000 -* HALT RADDR 01104000 -* HALT 01105000 +* | HALT | RADDR | 01104000 +* | HALT | | 01105000 * +--------+---------+ 01106000 * 01107000 * 01108000
--- a/MNT394/DMKCPV.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCPV.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -143,8 +143,8 @@ * COMMAND LINE FORMAT - 00138000 * 00139000 * +----------+---------------------------+ 00140000 -* ENABLE LINE1 LINE2 ... LINEN 00141000 -* EN ALL 00142000 +* | ENABLE | LINE1 LINE2 ... LINEN | 00141000 +* | EN | ALL | 00142000 * +----------+---------------------------+ 00143000 * 00144000 * OPERATION - 00145000 @@ -472,8 +472,8 @@ * COMMAND LINE FORMAT - 00442000 * 00443000 * +-----------+-------------------------+ 00444000 -* DISABLE LINE1 LINE2 ...LINEN 00445000 -* DISA ALL 00446000 +* | DISABLE | LINE1 LINE2 ...LINEN | 00445000 +* | DISA | ALL | 00446000 * +-----------+-------------------------+ 00447000 * 00448000 * OPERATION - 00449000 @@ -520,8 +520,8 @@ * COMMAND LINE FORMAT - 00487000 * 00488000 * +------+--------------------------------------------+ 00489000 -* LOCK USERID FIRSTPAGE LASTPAGE (MAP) 00490000 -* SYSTEM 00491000 +* | LOCK | USERID FIRSTPAGE LASTPAGE (MAP) | 00490000 +* | | SYSTEM | 00491000 * +------+--------------------------------------------+ 00492000 * 00493000 * OPERATION - 00494000 @@ -823,10 +823,10 @@ * COMMAND LINE FORMAT - 00736000 * 00737000 * +--------+------------------------------------------+ 00738000 -* UNLOCK USERID FIRSTPAGE LASTPAGE 00738500 -* SYSTEM 00739000 -* VIRT=REAL 00739500 -* V=R 00740000 +* | UNLOCK | USERID FIRSTPAGE LASTPAGE | 00738500 +* | | SYSTEM | 00739000 +* | | VIRT=REAL | 00739500 +* | | V=R | 00740000 * +--------+------------------------------------------+ 00740500 * 00742000 * OPERATION - 00743000 @@ -858,7 +858,7 @@ * DMKCPV020E USERID MISSING OR INVALID 00769000 * DMKCPV045E (USERID) NOT LOGGED ON 00770000 * DMKCPV160E HEXLOC (HEXLOC) EXCEEDS STORAGE 00771000 -* DMKCPV176E VIRT=REAL AREA IN USE BY <USERID SYSTEM> 00772000 +* DMKCPV176E VIRT=REAL AREA IN USE BY <USERID | SYSTEM> 00772000 * DMKCPV202E VIRT=REAL AREA NOT AVAILABLE; INSUFFICIENT STORAGE 00773000 * 00774000 * 00775000 @@ -923,8 +923,8 @@ * COMMAND LINE FORMAT - 00813000 * 00814000 * +-----------+-------------------------+ 00815000 -* ACNT USERID1 ... USERIDN 00816000 -* ACNT ALL 00817000 +* | ACNT | USERID1 ... USERIDN | 00816000 +* | ACNT | ALL | 00817000 * +-----------+-------------------------+ 00818000 * 00819000 * OPERATION - 00820000
--- a/MNT394/DMKCQG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCQG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -89,46 +89,46 @@ * 00085000 * 00086000 * +---------+-----------------------------------+ 00087000 -* QUERY READER SPOOLID 00088000 -* Q PRINTER ALL 00089000 -* PUNCH CLASS X 00090000 -* TBL 00091000 -* 00091500 -* VIRTUAL DASD 00092000 -* TAPES 00093000 -* LINES 00094000 -* UR 00095000 -* GRAF 00096000 -* STORAGE 00097000 -* ALL 00098000 -* VADDR 00099000 -* VADDR1-VADDR2 00099100 -* CHANNELS 00100000 -* 00101000 -* DASD 00102000 -* TAPES 00103000 -* LINES 00104000 -* UR 00105000 -* GRAF 00106000 -* STORAGE 00107000 -* ALL 00108000 -* VADDR 00109000 -* VADDR1-VADDR2 00109100 -* CHANNELS 00110000 -* 00111000 -* CONS 00112000 -* 00113000 +* | QUERY | READER SPOOLID | 00088000 +* | Q | PRINTER ALL | 00089000 +* | | PUNCH CLASS X | 00090000 +* | | TBL | 00091000 +* | | | 00091500 +* | | VIRTUAL DASD | 00092000 +* | | TAPES | 00093000 +* | | LINES | 00094000 +* | | UR | 00095000 +* | | GRAF | 00096000 +* | | STORAGE | 00097000 +* | | ALL | 00098000 +* | | VADDR | 00099000 +* | | VADDR1-VADDR2 | 00099100 +* | | CHANNELS | 00100000 +* | | | 00101000 +* | | DASD | 00102000 +* | | TAPES | 00103000 +* | | LINES | 00104000 +* | | UR | 00105000 +* | | GRAF | 00106000 +* | | STORAGE | 00107000 +* | | ALL | 00108000 +* | | VADDR | 00109000 +* | | VADDR1-VADDR2 | 00109100 +* | | CHANNELS | 00110000 +* | | | 00111000 +* | | CONS | 00112000 +* | | | 00113000 * +---------+-----------------------------------+ 00114000 * 00115000 * 00116000 * CLASS D - 00117000 * 00118000 * +---------+---------------------------------+ 00119000 -* QUERY READER SPOOLID 00120000 -* Q PRINTER ALL USERID 00121000 -* READER CLASS X USERID 00122000 -* TBL USERID 00123000 -* 00123500 +* | QUERY | READER SPOOLID | 00120000 +* | Q | PRINTER ALL USERID | 00121000 +* | | READER CLASS X USERID | 00122000 +* | | TBL USERID | 00123000 +* | | | 00123500 * +---------+---------------------------------+ 00124000 * 00125000 * OPERATION - 00126000
--- a/MNT394/DMKCQH.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCQH.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -88,22 +88,22 @@ * 00088000 * 00089000 * +---------+-----------------------------------+ 00090000 -* QUERY READER SPOOLID 00091000 -* Q PRINTER ALL 00092000 -* PUNCH CLASS X 00093000 -* TBL 00094000 -* 00095000 +* | QUERY | READER SPOOLID | 00091000 +* | Q | PRINTER ALL | 00092000 +* | | PUNCH CLASS X | 00093000 +* | | TBL | 00094000 +* | | | 00095000 * +---------+-----------------------------------+ 00096000 * 00097000 * 00098000 * CLASS D - 00099000 * 00100000 * +---------+---------------------------------+ 00101000 -* QUERY READER SPOOLID 00102000 -* Q PRINTER ALL USERID 00103000 -* READER CLASS X USERID 00104000 -* TBL USERID 00105000 -* 00106000 +* | QUERY | READER SPOOLID | 00102000 +* | Q | PRINTER ALL USERID | 00103000 +* | | READER CLASS X USERID | 00104000 +* | | TBL USERID | 00105000 +* | | | 00106000 * +---------+---------------------------------+ 00107000 * 00108000 * OPERATION - 00109000 @@ -145,7 +145,7 @@ * QUERY READER/PRINTER/PUNCH 00145000 * USERID FILE CLASS RECDS CPY HOLD 00146000 * 00147000 -* QUERY READER/PRINTER/PUNCH <SPOOLID ALL> 00148000 +* QUERY READER/PRINTER/PUNCH <SPOOLID|ALL> 00148000 * USERID FILE CLASS RECDS CPY HOLD DATE TIME NAME TYPE DIST 00149000 * 00150000 * QUERY READER/PRINTER/PUNCH <TBL> 00151000
--- a/MNT394/DMKCQP.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCQP.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -84,23 +84,23 @@ * 00084000 * CLASS B 00085000 * +---------+---------------------+ 00086000 -* QUERY SYSTEM RADDR 00087000 -* Q 00088000 -* LINKS VADDR 00089000 -* 00090000 -* DASD VOLID 00091000 -* TDSK 00092000 -* 00093000 -* DASD ACTIVE 00094000 -* TAPE OFFLINE 00095000 -* LINES FREE 00096000 -* UR ATTACH 00097000 -* ALL ALL 00098000 -* GRAF 00099000 -* STORAGE 00100000 -* PROCESSOR 00100100 -* RADDR 00101000 -* RADDR1-RADDR2 00101100 +* | QUERY | SYSTEM RADDR | 00087000 +* | Q | | 00088000 +* | | LINKS VADDR | 00089000 +* | | | 00090000 +* | | DASD VOLID | 00091000 +* | | TDSK | 00092000 +* | | | 00093000 +* | | DASD ACTIVE | 00094000 +* | | TAPE OFFLINE | 00095000 +* | | LINES FREE | 00096000 +* | | UR ATTACH | 00097000 +* | | ALL ALL | 00098000 +* | | GRAF | 00099000 +* | | STORAGE | 00100000 +* | | PROCESSOR | 00100100 +* | | RADDR | 00101000 +* | | RADDR1-RADDR2 | 00101100 * +---------+---------------------+ 00102000 * 00103000 * 00104000 @@ -189,7 +189,7 @@ * TYPE YYY DRAINED SYSTEM CLASS= ABCD NOSEP 00181000 * FOR A 3800 PRINTER 00181100 * PRT YYY STARTED SYSTEM CLASS= ABCD SEP CHAR LPI 00181200 -* PRT YYY FLASH OVLY IMAGE IMAGELIB <PURGE HOLD> 00181300 +* PRT YYY FLASH OVLY IMAGE IMAGELIB <PURGE|HOLD> 00181300 * 00181400 * DASD YYY CP OWNED VOLID NNN 00182000 * DASD YYY CP SYSTEM VOLID NNN 00183000
--- a/MNT394/DMKCQR.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCQR.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -149,7 +149,7 @@ * COMMAND FORMAT 00146000 * 00147000 * +----------+--------------------------------+ 00148000 -* QUERY FILES (CLASS A) (USERID) 00149000 +* | QUERY | FILES (CLASS A) (USERID) | 00149000 * +----------+--------------------------------+ 00150000 * 00151000 * 00152000 @@ -312,7 +312,7 @@ * COMMAND FORMAT 00309000 * 00310000 * +---------+-----------+ 00311000 -* QUERY SET 00312000 +* | QUERY | SET | 00312000 * +---------+-----------+ 00313000 * 00314000 * 1. GET BUFFER 00315000 @@ -464,7 +464,7 @@ * COMMAND FORMAT 00455000 * 00456000 * +---------+-----------+ 00457000 -* QUERY DUMP 00458000 +* | QUERY | DUMP | 00458000 * +---------+-----------+ 00459000 * 00460000 * 1. FORMAT DUMP RESPONSE 00461000 @@ -517,7 +517,7 @@ * COMMAND FORMAT 00508000 * 00509000 * +---------+-------------+ 00510000 -* QUERY PAGING 00511000 +* | QUERY | PAGING | 00511000 * +---------+-------------+ 00512000 * 00513000 * 1. FORMAT PAGING RESPONSE 00514000 @@ -759,7 +759,7 @@ * COMMAND FORMAT 00750000 * 00751000 * +----------+----------+ 00752000 -* QUERY HOLD 00753000 +* | QUERY | HOLD | 00753000 * +----------+----------+ 00754000 * 00755000 * 1. SCAN RDR PRT AND PUN SPOOL FIELS TO COUNT HOLD 00756000 @@ -876,7 +876,7 @@ * 00867000 * COMMAND FORMAT 00868000 * +--------+-------------------------+ 00869000 -* QUERY PRIORITY USERID 00870000 +* | QUERY | PRIORITY USERID | 00870000 * +--------+-------------------------+ 00871000 * 00872000 * 1. FORMAT PRIORITY RESPONSE FOR USER 00873000 @@ -915,7 +915,7 @@ * COMMAND FORMAT 00906000 * 00907000 * +---------+--------------+ 00908000 -* QUERY TERMINAL 00909000 +* | QUERY | TERMINAL | 00909000 * +---------+--------------+ 00910000 * 00911000 * 1. FORMAT RESPONSE FOR TERMINAL 00912000 @@ -1055,7 +1055,7 @@ * COMMAND FORMAT @V4075A0 01033000 * @V4075A0 01034000 * +---------+-------------------------+ @V4075A0 01035000 -* QUERY AFFINITY (USERID) @V4075A0 01036000 +* | QUERY | AFFINITY (USERID) | @V4075A0 01036000 * +---------+-------------------------+ @V4075A0 01037000 * @V4075A0 01038000 * RESPONSE: @V4075A0 01039000
--- a/MNT394/DMKCQY.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCQY.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -132,7 +132,7 @@ * COMMAND FORMAT 00132000 * 00133000 * +-----------+--------------+ 00134000 -* QUERY LOGMSG 00135000 +* | QUERY | LOGMSG | 00135000 * +-----------+--------------+ 00136000 * 00137000 * 1. GET EACH LINE OF THE LOGMSG AND CALL DMKQCNWT 00138000 @@ -160,7 +160,7 @@ * COMMAND FORMAT 00160000 * 00161000 * +----------+-------------+ 00162000 -* QUERY NAMES 00163000 +* | QUERY | NAMES | 00163000 * +----------+-------------+ 00164000 * 00165000 * 1. USE SUBROUTINE QRYUSRN TO FORMAT EACH USER FIELD 00166000 @@ -269,7 +269,7 @@ * COMMAND FORMAT 00269000 * 00270000 * +----------+------------+ 00271000 -* QUERY TIME 00272000 +* | QUERY | TIME | 00272000 * +----------+------------+ 00273000 * 00274000 * 1. GET A BUFFER 00275000 @@ -320,7 +320,7 @@ * COMMAND FORMAT 00320000 * 00321000 * +---------+----------------+ 00322000 -* QUERY USERS (USERID) 00323000 +* | QUERY | USERS (USERID)| 00323000 * +---------+----------------+ 00324000 * 00325000 * 1. CALL DMKSCNFD FOR USERID PARM IF ANY 00326000 @@ -371,7 +371,7 @@ * COMMAND FORMAT 00371000 * 00372000 * +-----------+-------------+ 00373000 -* QUERY PF<NN> 00374000 +* | QUERY | PF<NN> | 00374000 * +-----------+-------------+ 00375000 * 00376000 * 1. IF FUNCTION NUMBER ENTERED, CONVERT IT TO BINARY. 00377000 @@ -502,7 +502,7 @@ * 00502000 * COMMAND FORMAT 00503000 * +--------+-------------+ 00504000 -* QUERY SASSIST 00505000 +* | QUERY | SASSIST | 00505000 * +--------+-------------+ 00506000 * 00507000 * 1. FORMAT RESPONSE. 00508000 @@ -511,7 +511,7 @@ * 00511000 * RESPONSE 00512000 * 00513000 -* SASSIST ON OFF (PROC XX, ON OFF PROC YY) 00514000 +* SASSIST ON|OFF (PROC XX, ON|OFF PROC YY) 00514000 * 00515000 * 00516000 *. 00517000 @@ -546,7 +546,7 @@ * 00546000 * COMMAND FORMAT 00547000 * +--------+-------------+ 00548000 -* QUERY CPASSIST 00549000 +* | QUERY | CPASSIST | 00549000 * +--------+-------------+ 00550000 * 00551000 * 1. FORMAT RESPONSE. 00552000 @@ -573,7 +573,7 @@ * COMMAND FORMAT 00573000 * 00574000 * +------------------------+ 00575000 -* QUERY CPUID 00576000 +* | QUERY | CPUID | 00576000 * +-----------+------------+ 00577000 * 00578000 * 1. FORMAT RESPONSE 00579000
--- a/MNT394/DMKCSB.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSB.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -118,8 +118,8 @@ * COMMAND LINE FORMAT - 00118000 * 00119000 * +---------+-----------------------------+ 00120000 -* LOADBUF RADDR UCS NAME <FOLD> <VER> 00121000 -* LOADBUF RADDR FCB NAME <INDEX <NN>> 00122000 +* | LOADBUF | RADDR UCS NAME <FOLD> <VER> | 00121000 +* | LOADBUF | RADDR FCB NAME <INDEX <NN>> | 00122000 * +---------+-----------------------------+ 00123000 * 00124000 * FOLD VER INDEX 00125000 @@ -474,8 +474,8 @@ * COMMAND LINE FORMAT - 00473000 * 00474000 * +----------+-----------------------------+ 00475000 -* LOADVFCB VADDR FCB NAME <INDEX <NN>> 00476000 -* LOADVFCB F I 00477000 +* | LOADVFCB | VADDR FCB NAME <INDEX <NN>> | 00476000 +* | LOADVFCB | F I | 00477000 * +----------+-----------------------------+ 00478000 * 00479000 * ATTRIBUTES - 00480000 @@ -1047,9 +1047,9 @@ *** UCSHDR - UCS/FCB HEADER BLOCK 01033000 * 01034000 * +-------------------+---------+---------+ 01035000 -* HDRNAME HDRNEXT BUFLEN 01036000 +* | HDRNAME | HDRNEXT | BUFLEN | 01036000 * +---------+---------+---------+---------+ 01037000 -* CCWDISP CCWLEN 01038000 +* | CCWDISP | CCWLEN | 01038000 * +---------+---------+ 01039000 * 01040000 *** UCSHDR - UCS/FCB HEADER BLOCK 01041000
--- a/MNT394/DMKCSO.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSO.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -140,8 +140,8 @@ * COMMAND LINE FORMAT - 00140000 * 00141000 * +-------+------------------------+ 00142000 -* FLUSH RADDR <ALL> <HOLD> 00143000 -* F ALL HO 00144000 +* | FLUSH | RADDR <ALL> <HOLD> | 00143000 +* | F | ALL HO | 00144000 * +-------+------------------------+ 00145000 * 00146000 * OPERATION - 00147000 @@ -248,8 +248,8 @@ * COMMAND LINE FORMAT - 00248000 * 00249000 * +-------+-------+ 00250000 -* SPACE RADDR 00251000 -* SPA 00252000 +* | SPACE | RADDR | 00251000 +* | SPA | | 00252000 * +-------+-------+ 00253000 * 00254000 * OPERATION - 00255000 @@ -304,12 +304,12 @@ * COMMAND LINE FORMAT - 00304000 * 00305000 * +-------+----------+ 00306000 -* DRAIN READER 00307000 -* DR PRINTER 00308000 -* PUNCH 00309000 -* ALL 00310000 -* --- 00311000 -* RADDR ... 00312000 +* | DRAIN | READER | 00307000 +* | DR | PRINTER | 00308000 +* | | PUNCH | 00309000 +* | | ALL | 00310000 +* | | --- | 00311000 +* | | RADDR ...| 00312000 * +-------+----------+ 00313000 * 00314000 * READER PRINTER PUNCH ALL 00315000 @@ -367,16 +367,16 @@ * COMMAND LINE FORMAT - 00367000 * 00368000 * +-------+-------------------------------+ 00369000 -* START READER 00370000 -* STA PRINTER 00371000 -* PUNCH 00372000 -* ALL 00373000 -* --- 00374000 -* RADDR <CLASS ABCD> <NOSEP>... 00375000 -* ... <FLASH FFFF> ... 00376000 -* ... <CHARS CCCC> <PURGE>... 00377000 -* ...<FCB 6 8 12> ... 00378000 -* ...<IMAGE IIIIIIII> 00379000 +* | START | READER | 00370000 +* | STA | PRINTER | 00371000 +* | | PUNCH | 00372000 +* | | ALL | 00373000 +* | | --- | 00374000 +* | | RADDR <CLASS ABCD> <NOSEP>... | 00375000 +* | | ... <FLASH FFFF> ... | 00376000 +* | | ... <CHARS CCCC> <PURGE>... | 00377000 +* | | ...<FCB 6|8|12> ... | 00378000 +* | | ...<IMAGE IIIIIIII> | 00379000 * +-------+-------------------------------+ 00380000 * 00381000 * READER PRINTER PUNCH ALL CLASS NOSEP 00382000 @@ -998,8 +998,8 @@ * COMMAND LINE FORMAT - 00998000 * 00999000 * +--------+-----------------------+ 01000000 -* REPEAT RADDR <COPY> <HOLD> 01001000 -* REP HO 01002000 +* | REPEAT | RADDR <COPY> <HOLD> | 01001000 +* | REP | HO | 01002000 * +--------+-----------------------+ 01003000 * 01004000 * OPERATION - 01005000 @@ -1123,17 +1123,17 @@ * PUNCHES 01123000 * 01124000 * +-----------+----------------+ 01125000 -* BACKSPACE RADDR <FILE> 01126000 -* BA ---- 01127000 +* | BACKSPACE | RADDR <FILE> | 01126000 +* | BA | ---- | 01127000 * +-----------+----------------+ 01128000 * 01129000 * PRINTERS 01130000 * 01131000 * +-----------+---------------------------+ 01132000 -* BACKSPACE RADDR <FILE> 01133000 -* BA <PAGES> <EOF> 01134000 -* 1 01135000 -* - 01136000 +* | BACKSPACE | RADDR <FILE> | 01133000 +* | BA | <PAGES> <EOF> | 01134000 +* | | 1 | 01135000 +* | | - | 01136000 * +-----------+---------------------------+ 01137000 * 01138000 * FILE EOF 01139000 @@ -1427,7 +1427,7 @@ HLDIMAGE DS CL8 IMAGE LIBRARY FOR LOADS @V60B9BA 01427000 HLDPTRO DS A PTR TO NPRTBL FOR RDEVIMAG @V60B9BA 01428000 HLDPTRN DS A PTR TO NPRTBL FOR HLDIMAGE @V60B9BA 01429000 -HLDFCB DS 1X FCB FOR SEP PAGE (6 8 12) @V60B9BA 01430000 +HLDFCB DS 1X FCB FOR SEP PAGE (6|8|12) @V60B9BA 01430000 HLDFLAG1 DS 1X FLAG BYTE @V60B9BA 01431000 HLDPURGE EQU X'80' PURGE SPECIFIED FLAG @V60B9BA 01432000 DS 6X RESERVED @V60B9BA 01433000
--- a/MNT394/DMKCSP.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSP.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -191,25 +191,25 @@ * COMMAND LINE FORMAT - 00673000 * 00674000 * +-------+---------------------------------------+ 00675000 -* SPOOL READER CLASS A 00676000 -* SP VADDR <CONT NOCONT> 00677000 -* <HOLD NOHOLD> ....... 00678000 -* <EOF NOEOF> 00679000 -* 00680000 -* CONSOLE <START STOP> <TERM NOTERM> --- 00681000 -* PRINTER <TO> <USERID *> 00682000 -* PUNCH <FOR><SYSTEM> 00683000 -* VADDR OFF 00684000 -* 00685000 -* ----CONT HOLD CLASS A ------ 00686000 -* NOCONT NOHOLD <CLOSE PURGE> 00687000 -* 00688000 -* ----COPY <*>NN CHARS CCCC---------- 00688100 -* 00688200 -* ----FLASH NAME NN MODIFY CCCC---- 00688300 -* 00688400 -* ----FCB NAME 00688500 -* 00688600 +* | SPOOL | READER CLASS A | 00676000 +* | SP | VADDR <CONT|NOCONT> | 00677000 +* | | <HOLD|NOHOLD> ....... | 00678000 +* | | <EOF|NOEOF> | 00679000 +* | | | 00680000 +* | | CONSOLE <START|STOP> <TERM|NOTERM> ---| 00681000 +* | | PRINTER <TO> <USERID|*> | 00682000 +* | | PUNCH <FOR><SYSTEM> | 00683000 +* | | VADDR OFF | 00684000 +* | | | 00685000 +* | | ----CONT HOLD CLASS A ------ | 00686000 +* | | NOCONT NOHOLD <CLOSE|PURGE> | 00687000 +* | | | 00688000 +* | | ----COPY <*>NN CHARS CCCC---------- | 00688100 +* | | | 00688200 +* | | ----FLASH NAME NN MODIFY CCCC---- | 00688300 +* | | | 00688400 +* | | ----FCB NAME | 00688500 +* | | | 00688600 * +-------+---------------------------------------+ 00689000 * 00690000 * READER PRINTER PUNCH CONSOLE CLASS CONT NOCONT 00691000
--- a/MNT394/DMKCSQ.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSQ.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -183,15 +183,15 @@ * COMMAND LINE FORMAT - 00183000 * 00184000 * +-------+----------------------------------------------+ 00185000 -* CLOSE READER 00186000 -* C VADDR <HOLD NOHOLD> 00187000 -* 00188000 -* CONSOLE 00189000 -* PRINTER <PURGE> 00190000 -* PUNCH <HOLD NOHOLD> 00191000 -* VADDR DIST DISTCODE .....----- 00192000 -* --<NAME FNAME <FTYPE>> 00193000 -* <NAME DSNAME> 00194000 +* | CLOSE | READER | 00186000 +* | C | VADDR <HOLD|NOHOLD> | 00187000 +* | | | 00188000 +* | | CONSOLE | 00189000 +* | | PRINTER <PURGE> | 00190000 +* | | PUNCH |<HOLD|NOHOLD>| | 00191000 +* | | VADDR |DIST DISTCODE|.....----- | 00192000 +* | | --<NAME FNAME <FTYPE>> | 00193000 +* | | <NAME DSNAME> | 00194000 * +-------+----------------------------------------------+ 00195000 * 00196000 * READER PRINTER PUNCH CONSOLE HOLD NOHOLD 00197000 @@ -397,10 +397,10 @@ * COMMAND LINE FORMAT - 00397000 * 00398000 * +------+-----------------+ 00399000 -* HOLD USERID PRINTER 00400000 -* HO PUNCH 00401000 -* ALL 00402000 -* --- 00403000 +* | HOLD | USERID PRINTER | 00400000 +* | HO | PUNCH | 00401000 +* | | ALL | 00402000 +* | | --- | 00403000 * +------+-----------------+ 00404000 * 00405000 * PRINTER PUNCH ALL 00406000 @@ -537,10 +537,10 @@ * COMMAND LINE FORMAT - CLASS D 00537000 * 00538000 * +---------+------------------+ 00539000 -* FREE USERID PRINTER 00540000 -* FR PUNCH 00541000 -* ALL 00542000 -* --- 00543000 +* | FREE | USERID PRINTER | 00540000 +* | FR | PUNCH | 00541000 +* | | ALL | 00542000 +* | | --- | 00543000 * +---------+------------------+ 00544000 * 00545000 * PRINTER PUNCH ALL 00546000
--- a/MNT394/DMKCST.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCST.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -174,19 +174,19 @@ * COMMAND LINE FORMAT - 00173000 * 00174000 * +-----+-----------------------------------------+ 00175000 -* TAG DEV PRINTER <TAG APPLICATION DATA> 00176000 -* PUNCH 00177000 -* CONSOLE 00178000 -* VADDR 00179000 -* 00180000 -* FILE SPOOLID <TAG APPLICATION DATA> 00181000 -* 00182000 -* QUERY DEV PRINTER 00183000 -* PUNCH 00184000 -* CONSOLE 00185000 -* VADDR 00186000 -* 00187000 -* FILE SPOOLID 00188000 +* | TAG | DEV PRINTER <TAG APPLICATION DATA> | 00176000 +* | | PUNCH | 00177000 +* | | CONSOLE | 00178000 +* | | VADDR | 00179000 +* | | | 00180000 +* | | FILE SPOOLID <TAG APPLICATION DATA> | 00181000 +* | | | 00182000 +* | | QUERY DEV PRINTER | 00183000 +* | | PUNCH | 00184000 +* | | CONSOLE | 00185000 +* | | VADDR | 00186000 +* | | | 00187000 +* | | FILE SPOOLID | 00188000 * +-----+-----------------------------------------+ 00189000 * 00190000 * PRINTER PUNCH CONSOLE 00191000
--- a/MNT394/DMKCSU.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSU.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -186,13 +186,13 @@ * COMMAND LINE FORMAT - 00186000 * 00187000 * +--------+---------------------------------------------------+ 00188000 -* CHANGE <USERID> PRT CLASS A <CLASS B> <HOLD NOHOLD> - 00189000 -* CH <SYSTEM> PCH SPOOLID <COPY NN> <DIST DISTCODE> - 00190000 -* RDR ALL <NAME FNAME <FTYPE>> - 00191000 -* <NAME DSNAME> - 00192000 -* <SYS NOSYS> - 00193000 -* <FLASH FFFF GG> <MODIFY MMMM> <FCB BBBB> - 00194000 -* <CHARS CCCC> 00195000 +* | CHANGE | <USERID> PRT CLASS A <CLASS B> <HOLD|NOHOLD> - | 00189000 +* | CH | <SYSTEM> PCH SPOOLID <COPY NN> <DIST DISTCODE> - | 00190000 +* | | RDR ALL <NAME FNAME <FTYPE>> - | 00191000 +* | | <NAME DSNAME> - | 00192000 +* | | <SYS|NOSYS> - | 00193000 +* | | <FLASH FFFF GG> <MODIFY MMMM> <FCB BBBB> - | 00194000 +* | | <CHARS CCCC> | 00195000 * +--------+---------------------------------------------------+ 00196000 * 00197000 * READER PRINTER PUNCH CLASS ALL 00198000
--- a/MNT394/DMKCSV.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKCSV.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -180,9 +180,9 @@ * COMMAND LINE FORMAT - 00180000 * 00181000 * +-------+------------------------------------+ 00182000 -* ORDER <USERID> READER CLASS A ...... 00183000 -* ORD <SYSTEM> PRINTER SPOOLID ...... 00184000 -* PUNCH 00185000 +* | ORDER | <USERID> READER CLASS A ...... | 00183000 +* | ORD | <SYSTEM> PRINTER SPOOLID ...... | 00184000 +* | | PUNCH | 00185000 * +-------+------------------------------------+ 00186000 * 00187000 * READER PRINTER PUNCH CLASS 00188000 @@ -394,10 +394,10 @@ * COMMAND LINE FORMAT - 00394000 * 00395000 * +-------+------------------------------------+ 00396000 -* READER CLASS A ..... 00397000 -* PURGE <USERID> PRINTER SPOOLID ..... 00398000 -* PUR <SYSTEM> PUNCH ALL 00399000 -* ALL --- 00400000 +* | | READER CLASS A ..... | 00397000 +* | PURGE | <USERID> PRINTER SPOOLID ..... | 00398000 +* | PUR | <SYSTEM> PUNCH ALL | 00399000 +* | | ALL --- | 00400000 * +-------+------------------------------------+ 00401000 * 00402000 * READER PRINTER PUNCH ALL CLASS 00403000 @@ -541,9 +541,9 @@ * COMMAND LINE FORMAT - 00541000 * 00542000 * +----------+-----------------------------------------------+ 00543000 -* TRANSFER <USERID> SPOOLID < TO > USERID + 00544000 -* TRAN <SYSTEM> CLASS A <FROM> ALL + 00545000 -* ALL + 00546000 +* | TRANSFER | <USERID> SPOOLID < TO > USERID + 00544000 +* | TRAN | <SYSTEM> CLASS A <FROM> ALL + 00545000 +* | | ALL + 00546000 * +----------+-----------------------------------------------+ 00547000 * 00548000 * 00549000
--- a/MNT394/DMKDDR.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDDR.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -49,7 +49,7 @@ * COMMAND LINE UNDER CMS 00049000 * 00050000 * +-----------------------------------------+ 00051000 -* DDR <FILENAME FILETYPE <FILEMODE>> 00052000 +* | DDR <FILENAME FILETYPE <FILEMODE>> | 00052000 * +-----------------------------------------+ 00053000 * 00054000 * THE DDR COMMAND WILL INVOKE THE PROGRAM UNDER 00055000 @@ -94,13 +94,13 @@ * IO DEFINITION STATEMENTS 00094000 * 00095000 * +--------+-----------------------------------------------------+ 00096000 -* INPUT CCU TYPE <VOLSER> 00097000 -* IN <ALTAPE> ( SKIP XX MODE 6250 REWIND ) 00098000 -* OUTPUT SK MO 62 RE 00099000 -* OUT 1600 UNLOAD 00100000 -* 16 UN 00101000 -* 800 LEAVE 00102000 -* 80 LE 00103000 +* | INPUT | CCU TYPE <VOLSER> | 00097000 +* | IN | <ALTAPE> ( SKIP XX MODE 6250 REWIND ) | 00098000 +* | OUTPUT | SK MO 62 RE | 00099000 +* | OUT | 1600 UNLOAD | 00100000 +* | | 16 UN | 00101000 +* | | 800 LEAVE | 00102000 +* | | 80 LE | 00103000 * +--------+-----------------------------------------------------+ 00104000 * 00105000 * THE INPUT OR OUTPUT CARD IS USED TO DESCRIBE 00106000 @@ -153,8 +153,8 @@ * MARK AT THE COMPLETION OF A FUNCTION. 00153000 * 00154000 * +-----------------+ 00155000 -* SYSPRINT CCU 00156000 -* SY 00157000 +* | SYSPRINT CCU | 00156000 +* | SY | 00157000 * +-----------------+ 00158000 * 00159000 * THIS CARD IS USED TO DESCRIBE A PRINTER DEVICE. IT IS 00160000 @@ -169,14 +169,14 @@ * FUNCTION STATEMENT 00169000 * 00170000 * +----------+--------------------------------------------+ 00171000 -* DUMP CCC <TO> <CCC <REORDER> <TO> <CCC>> 00172000 -* DU CPVOL T R T 00173000 -* COPY CP 00174000 -* CO ALL 00175000 -* RESTORE AL 00176000 -* RE 00177000 -* NUCLEUS (NUC) 00178000 -* NU (NUC) 00179000 +* | DUMP | CCC <TO> <CCC <REORDER> <TO> <CCC>> | 00172000 +* | DU | CPVOL T R T | 00173000 +* | COPY | CP | 00174000 +* | CO | ALL | 00175000 +* | RESTORE | AL | 00176000 +* | RE | | 00177000 +* | | NUCLEUS | (NUC) 00178000 +* | | NU | (NUC) 00179000 * +----------+--------------------------------------------+ 00180000 * 00181000 * THE FUNCTION COMMANDS WILL DESCRIBE THE EXTENTS TO BE 00182000 @@ -312,10 +312,10 @@ * THE PROGRAM WILL GO TO TERMINATION. 00312000 * 00313000 * +--------+--------------------------------------------------------+ 00314000 -* PRINT CC1 <HH1 <RR1>> <TO CC2 <HH2 <RR2>>> (OPTIONS) 00315000 -* PR T 00316000 -* TYPE OPTIONS: ( HEX GRAPHIC COUNT ) 00317000 -* TY H G C 00318000 +* | PRINT | CC1 <HH1 <RR1>> <TO CC2 <HH2 <RR2>>> (OPTIONS) | 00315000 +* | PR | T | 00316000 +* | TYPE | OPTIONS: ( HEX GRAPHIC COUNT ) | 00317000 +* | TY | H G C | 00318000 * +--------+--------------------------------------------------------+ 00319000 * 00320000 * THIS FUNCTION WILL PRINT OR TYPE A HEXADECIMAL AND GRAPHIC 00321000 @@ -1501,32 +1501,32 @@ * EXTENT LIMITS IN THE INIOB AND THE OUTIOB WILL HAVE BEEN SET 01501000 * AS FOLLOWS: 01502000 * 01503000 -* 01504000 -* INIOB OUTIOB 01505000 -* 01506000 -*----------------- ------------ ------------ ------------ ------------ 01507000 -* TYPE OF 01508000 -* OPERATION IOBCYLP IOBCYLA IOBCYLP IOBCYLA 01509000 -*----------------- ------------ ------------ ------------ ------------ 01510000 -* 01511000 -* DASD IN,TAP OUT 01512000 -* (DUMP) NAMECYLP NAMECYLA NAMECYLA(I) NAMECYLA(I) 01513000 -* 01514000 -* TAP IN,DASD OUT 01515000 -* (RESTORE) NAMECYLA(H) NAMECYLA(H) NAMECYLP NAMECYLA 01516000 -* 01517000 -* DASD IN & OUT 01518000 -* (COPY) NAMECYLP NAMECYLA NAMECYLP NAMECYLA 01519000 -* 01520000 -* TAPE IN & OUT 01521000 -* (COPY) NAMECYLA(H) NAMECYLA(H) NAMECYLA(H) NAMECYLA(H) 01522000 -* 01523000 -* DASD IN, NO OUT 01524000 -* (TYPE/PRINT) NAMECYLP NAMECYLA --- --- 01525000 -* 01526000 -* TAPE IN, NO OUT 01527000 -* (TYPE/PRINT) NAMECYLA(H) NAMECYLA(H) --- --- 01528000 -* 01529000 +* | | | 01504000 +* | INIOB | OUTIOB | 01505000 +* | | | 01506000 +*-----------------|------------|------------|------------|------------| 01507000 +* TYPE OF | | | | | 01508000 +* OPERATION | IOBCYLP | IOBCYLA | IOBCYLP | IOBCYLA | 01509000 +*-----------------|------------|------------|------------|------------| 01510000 +* | | | | | 01511000 +* DASD IN,TAP OUT| | | | | 01512000 +* (DUMP) | NAMECYLP | NAMECYLA | NAMECYLA(I)| NAMECYLA(I)| 01513000 +* | | | | | 01514000 +* TAP IN,DASD OUT| | | | | 01515000 +* (RESTORE) | NAMECYLA(H)| NAMECYLA(H)| NAMECYLP | NAMECYLA | 01516000 +* | | | | | 01517000 +* DASD IN & OUT | | | | | 01518000 +* (COPY) | NAMECYLP | NAMECYLA | NAMECYLP | NAMECYLA | 01519000 +* | | | | | 01520000 +* TAPE IN & OUT | | | | | 01521000 +* (COPY) | NAMECYLA(H)| NAMECYLA(H)| NAMECYLA(H)| NAMECYLA(H)| 01522000 +* | | | | | 01523000 +* DASD IN, NO OUT| | | | | 01524000 +* (TYPE/PRINT) | NAMECYLP | NAMECYLA | --- | --- | 01525000 +* | | | | | 01526000 +* TAPE IN, NO OUT| | | | | 01527000 +* (TYPE/PRINT) | NAMECYLA(H)| NAMECYLA(H)| --- | --- | 01528000 +* | | | | | 01529000 *---------------------------------------------------------------------- 01530000 * 01531000 * 01532000 @@ -4737,7 +4737,7 @@ DC C' ' BLANK 04737000 DC 9C'.' 04738000 SPECIALC DC X'4A' CENT SIGN 04739000 - DC C'.<(+ &&' 04740000 + DC C'.<(+|&&' 04740000 DC 9C'.' 04741000 DC C'!$*);^-/' 04742000 DC 9C'.' 04743000 @@ -4763,7 +4763,7 @@ DC 6C'.' 04763000 SPACE 04764000 SPECTYPE DC X'4A' CENT SIGN 04765000 - DC C'.<(+ &&' 04766000 + DC C'.<(+|&&' 04766000 DC 9C'.' 04767000 DC C'!$*);^-/' 04768000 DC 9C'.' 04769000
--- a/MNT394/DMKDEF.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDEF.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -45,38 +45,38 @@ * COMMAND LINE FORMAT - 00045000 * 00046000 * +--------+---------------------------------------+ 00047000 -* DEFINE READER <AS> VADDR 00048000 -* --- PRINTER <AS> VADDR <1403> 00049000 -* <3211> 00050000 -* <3203> 00051000 -* 1403 <AS> VADDR 00052000 -* 3211 <AS> VADDR , 00053000 -* 3203 <AS> VADDR 00054000 -* PUNCH <AS> VADDR 00055000 -* CONSOLE <AS> VADDR 00056000 -* TIMER <AS> VADDR 00057000 -* CTCA <AS> VADDR 00058000 -* <IBM1> 00059000 -* LINE <AS> VADDR <TELE2> 00060000 -* 00061000 -* GRAF <AS> VADDR <3270> 00062000 -* <3138> 00063000 -* <3148> 00064000 -* <3158> 00065000 -* 00066000 -* VADDR <AS> VADDR 00067000 -* 00068000 -* T2305 <AS> VADDR <CYL> NNN 00069000 -* T2314 <AS> VADDR <CYL> NNN 00070000 -* T2319 <AS> VADDR <CYL> NNN 00071000 -* T3340 <AS> VADDR <CYL> NNN 00072000 -* T3330 <AS> VADDR <CYL> NNN 00073000 -* T3350 <AS> VADDR <CYL> NNN 00074000 -* 00075000 -* STORAGE <AS> NNNNNK 00076000 -* STORAGE <AS> NNM 00077000 -* 00078000 -* CHANNELS <AS> <SEL BMX> 00079000 +* | DEFINE | READER <AS> VADDR | 00048000 +* | --- | PRINTER <AS> VADDR <1403> | 00049000 +* | | <3211> | 00050000 +* | | <3203> | 00051000 +* | | 1403 <AS> VADDR | 00052000 +* | | 3211 <AS> VADDR , 00053000 +* | | 3203 <AS> VADDR | 00054000 +* | | PUNCH <AS> VADDR | 00055000 +* | | CONSOLE <AS> VADDR | 00056000 +* | | TIMER <AS> VADDR | 00057000 +* | | CTCA <AS> VADDR | 00058000 +* | | <IBM1> | 00059000 +* | | LINE <AS> VADDR <TELE2> | 00060000 +* | | | 00061000 +* | | GRAF <AS> VADDR <3270> | 00062000 +* | | <3138> | 00063000 +* | | <3148> | 00064000 +* | | <3158> | 00065000 +* | | | 00066000 +* | | VADDR <AS> VADDR | 00067000 +* | | | 00068000 +* | | T2305 <AS> VADDR <CYL> NNN | 00069000 +* | | T2314 <AS> VADDR <CYL> NNN | 00070000 +* | | T2319 <AS> VADDR <CYL> NNN | 00071000 +* | | T3340 <AS> VADDR <CYL> NNN | 00072000 +* | | T3330 <AS> VADDR <CYL> NNN | 00073000 +* | | T3350 <AS> VADDR <CYL> NNN | 00074000 +* | | | 00075000 +* | | STORAGE <AS> NNNNNK | 00076000 +* | | STORAGE <AS> NNM | 00077000 +* | | | 00078000 +* | | CHANNELS <AS> <SEL|BMX> | 00079000 * +--------+---------------------------------------+ 00080000 * 00081000 * ATTRIBUTES - 00082000
--- a/MNT394/DMKDEH.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDEH.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -41,10 +41,10 @@ * COMMAND LINE FORMAT - 00041000 * 00042000 * +--------+---------------------------------------+ 00043000 -* DEFINE STORAGE <AS> NNNNNK 00044000 -* STORAGE <AS> NNM 00045000 -* 00046000 -* CHANNELS <AS> <SEL BMX> 00047000 +* | DEFINE | STORAGE <AS> NNNNNK | 00044000 +* | | STORAGE <AS> NNM | 00045000 +* | | | 00046000 +* | | CHANNELS <AS> <SEL|BMX> | 00047000 * +--------+---------------------------------------+ 00048000 * 00049000 * ATTRIBUTES - 00050000
--- a/MNT394/DMKDIA.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDIA.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -50,9 +50,9 @@ * COMMAND LINE FORMAT - 00048000 * 00049000 * +--------+-------------------+ 00050000 -* 00051000 -* DIAL USERID <VADD> 00052000 -* 00053000 +* | | | 00051000 +* | DIAL | USERID <VADD> | 00052000 +* | | | 00053000 * +--------+-------------------+ 00054000 * 00055000 * ENTRY CONDITIONS - 00056000 @@ -997,10 +997,10 @@ * COMMAND LINE FORMAT - 01191000 * 01192000 * +----------+-------------------------------+ 01193000 -* 01194000 -* COUPLE VADDR <TO> USERID VADDR 01195000 -* ---- VADDR <TO> * VADDR 01196000 -* 01197000 +* | | | 01194000 +* | COUPLE | VADDR <TO> USERID VADDR | 01195000 +* | ---- | VADDR <TO> * VADDR | 01196000 +* | | | 01197000 * +----------+-------------------------------+ 01198000 * 01199000 * ENTRY POINT - 01200000
--- a/MNT394/DMKDIR.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDIR.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -48,7 +48,7 @@ * COMMAND LINE UNDER CMS 00048000 * 00049000 * +------------------------------------------------------+ 00050000 -* DIRECT <FILENAME <FILETYPE <FILEMODE>>> ( EDIT 00051000 +* | DIRECT <FILENAME <FILETYPE <FILEMODE>>> ( EDIT | 00051000 * +------------------------------------------------------+ 00052000 * 00053000 * THE DIRECT COMMAND WILL DEFAULT TO A CMS FILE 00054000 @@ -58,8 +58,8 @@ * PROGRAM WITHOUT UPDATING THE DIRECTORY ON DISK. 00058000 * 00059000 * +-----------------------------------+ 00060000 -* DIRECTORY CCU DEVTYPE VOLSER 00061000 -* DIR 00062000 +* | DIRECTORY CCU DEVTYPE VOLSER | 00061000 +* | DIR | 00062000 * +-----------------------------------+ 00063000 * 00064000 * DIRECTORY STATEMENT DEFINES THE DEVICE ON WHICH THE DIRECTORY 00065000 @@ -80,9 +80,9 @@ * DEVICE. 00080000 * 00081000 * +-----------------------------------------------------------------+ 00082000 -* USER USERID PASS <STOR <MSTOR <CL <PRI <LE <LD <CD <ES >>>>>>>> 00083000 -* U ON ON ON ON 00084000 -* OFF OFF OFF OFF 00085000 +* | USER USERID PASS <STOR <MSTOR <CL <PRI <LE <LD <CD <ES >>>>>>>> | 00083000 +* | U ON ON ON ON | 00084000 +* | OFF OFF OFF OFF | 00085000 * +-----------------------------------------------------------------+ 00086000 * 00087000 * USER STATEMENT INITIATES A USER MACHINE BLOCK AND CREATES 00088000 @@ -141,8 +141,8 @@ * 00141000 * 00142000 * +-----------------------------------+ 00143000 -* ACCOUNT NUMBER <DISTRIBUTION> 00144000 -* A 00145000 +* | ACCOUNT NUMBER <DISTRIBUTION> | 00144000 +* | A | 00145000 * +-----------------------------------+ 00146000 * 00147000 * ACCOUNT STATEMENT DEFINES AN EIGHT CHARACTER ACCOUNT NUMBER, 00148000 @@ -152,13 +152,13 @@ * 00152000 EJECT 00153000 * +-------------------------------------------------------------------+ 00154000 -* OPTION REALTIMER ECMODE ISAM VIRT=REAL ACCT SVCOFF BMX CPUID BBBBBB 00155000 -* O R E I V A S B C 00156000 +* |OPTION REALTIMER ECMODE ISAM VIRT=REAL ACCT SVCOFF BMX CPUID BBBBBB| 00155000 +* |O R E I V A S B C | 00156000 * +-------------------------------------------------------------------+ 00157000 * 00158000 * +-------------------------------------------------------------------+ 00159000 -* OPTION AFFINITY AA 00160000 -* O AF 00161000 +* |OPTION AFFINITY AA | 00160000 +* |O AF | 00161000 * +-------------------------------------------------------------------+ 00162000 * 00163000 * OPTION STATEMENT SELECTS SPECIFIC OPTIONS AVAILABLE TO 00164000 @@ -167,8 +167,8 @@ * IS OPTIONAL. MULTIPLE OPTION STATEMENTS ARE PERMITTED. 00167000 * 00168000 * +---------------+ 00169000 -* IPL IPLSYS 00170000 -* I 00171000 +* | IPL IPLSYS | 00170000 +* | I | 00171000 * +---------------+ 00172000 * 00173000 * IPL STATEMENT WILL CONTAIN A ONE TO EIGHT CHARACTER NAME OF 00174000 @@ -178,8 +178,8 @@ * IS OPTIONAL. 00178000 * 00179000 * +----------------------------------+ 00180000 -* CONSOLE CCU DEVTYPE <CLASS> 00181000 -* C 00182000 +* | CONSOLE CCU DEVTYPE <CLASS> | 00181000 +* | C | 00182000 * +----------------------------------+ 00183000 * 00184000 * CONSOLE STATEMENT SPECIFIES THE CONSOLE DEVICE. 00185000 @@ -195,9 +195,9 @@ * CLASS IS A ONE CHARACTER OUTPUT CLASS, THE DEFAULT IS CLASS T. 00195000 * 00196000 * +------------------------------------------------------------------+ 00197000 -* MDISK CCU TYPE CYLR CYLS VOLSER <MODE <PR <PW <PM>>>> 00198000 -* M T-DISK 00199000 -* T 00200000 +* | MDISK CCU TYPE CYLR CYLS VOLSER <MODE <PR <PW <PM>>>> | 00198000 +* | M T-DISK | 00199000 +* | T | 00200000 * +------------------------------------------------------------------+ 00201000 * 00202000 * MDISK STATEMENT DESCRIBES A PHYICAL EXTENT ON A DASD DEVICE TO BE 00203000 @@ -276,8 +276,8 @@ * IN MULT-WRITE. 00276000 * 00277000 * +--------------------------------+ 00278000 -* SPOOL CCU DEVTYPE <CLASS> 00279000 -* S 00280000 +* | SPOOL CCU DEVTYPE <CLASS> | 00279000 +* | S | 00280000 * +--------------------------------+ 00281000 * 00282000 * SPOOL STATEMENT SPECIFIES THE OUTPUT UNIT RECORD DEVICE TO SPOOL. 00283000 @@ -300,8 +300,8 @@ * CLASS IS A ONE CHARACTER OUTPUT CLASS, THE DEFAULT IS CLASS A. 00300000 * 00301000 * +---------------------------------+ 00302000 -* DEDICATE CCU RDEV <3330V> 00303000 -* D <VOLID> VOLSER 00304000 +* | DEDICATE CCU RDEV <3330V> | 00303000 +* | D <VOLID> VOLSER | 00304000 * +------------------------------------------+ 00305000 * 00306000 * DEDICATE STATEMENT SPECIFICES THAT A DEVICE IS TO BE 00307000 @@ -323,8 +323,8 @@ * 00323000 EJECT 00324000 * +-------------------------------------+ 00325000 -* LINK USERID LDEV <CCU <MODE>> 00326000 -* L 00327000 +* | LINK USERID LDEV <CCU <MODE>> | 00326000 +* | L | 00327000 * +-------------------------------------+ 00328000 * 00329000 * LINK STATEMENT SPECIFIES THAT THIS USER IS TO BE LINKED 00330000 @@ -377,8 +377,8 @@ * 00377000 EJECT 00378000 * +-------------------------+ 00379000 -* SPECIAL CCU DEVTYPE 00380000 -* SPE 00381000 +* | SPECIAL CCU DEVTYPE | 00380000 +* | SPE | 00381000 * +-------------------------+ 00382000 * 00383000 * SPECIAL STATEMENT SPECIFIES THE I/O UNITS AVAILABLE TO THE USER 00384000
--- a/MNT394/DMKDMP.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKDMP.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -1416,7 +1416,7 @@ DMKDMPTR DC 64C'.' UNPRINTABLE CHARACTERS 01409000 DC C' ' BLANK 01410000 DC 10C'.' 01411000 - DC C'.<(+ &&' 01412000 + DC C'.<(+|&&' 01412000 DC 10C'.' 01413000 DC C'$*);^-/' 01414000 DC 9C'.' 01415000
--- a/MNT394/DMKFCB.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKFCB.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -174,7 +174,7 @@ * 00173000 * 00174000 * +----+-----+-------------------------------------------------+ 00175000 -* FCB FCB-NAME,SPACING,LENGTH,(LINE,CHANNEL,...),INDEX 00176000 +* | | FCB | FCB-NAME,SPACING,LENGTH,(LINE,CHANNEL,...),INDEX| 00176000 * +----+-----+-------------------------------------------------+ 00177000 * 00178000 * 00179000
--- a/MNT394/DMKFRE.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKFRE.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -970,8 +970,8 @@ * DMKCPE - END OF CP NUCLEUS 00970000 * DMKSYSRM - SIZE OF REAL MACHINE 00971000 * DMKDSPNP - NUMBER OF PAGES AVAILABLE FOR PAGING USE 00972000 -* DMKQCNFT - ADDRESS OF PARTICULAR DMKFRET CALL IN DMKQCN 00973000 -* DMKVCNFT - ADDRESS OF PARTICULAR DMKFRET CALL IN DMKVCN 00974000 +* | DMKQCNFT - ADDRESS OF PARTICULAR DMKFRET CALL IN DMKQCN 00973000 +* | DMKVCNFT - ADDRESS OF PARTICULAR DMKFRET CALL IN DMKVCN 00974000 * 00975000 * TABLES / WORK AREAS - 00976000 * 00977000 @@ -1020,12 +1020,12 @@ * A CHECK IS MADE TO SEE IF THE AREA RETURNED (AFTER ALL 01020000 * MERGING HAS BEEN DONE) IS AT LEAST A WHOLE PAGE WITHIN 01021000 * THE DYNAMIC PAGING AREA. IF SO, IT IS RETURNED VIA 01022000 -* DMKPTRFT TO THE DYNAMIC PAGING AREA, UNLESS IT WAS RETURNED 01023000 -* BY A SPECIFIC PROGRAM (E.G. DMKQCNFT OR DMKVCNFT) KNOWN TO USE 01024000 -* "LARGE" BLOCKS FREQUENTLY FOR VERY SHORT PERIODS OF TIME. 01025000 -* IN THIS CASE, DMKPTRFR IS PURPOSELY NOT CALLED, TO AVOID 01026000 -* CONTINUAL "EXTENDING AND DIS-EXTENDING" OVER VERY SHORT 01027000 -* TIME INTERVALS. 01028000 +* | DMKPTRFT TO THE DYNAMIC PAGING AREA, UNLESS IT WAS RETURNED 01023000 +* | BY A SPECIFIC PROGRAM (E.G. DMKQCNFT OR DMKVCNFT) KNOWN TO USE 01024000 +* | "LARGE" BLOCKS FREQUENTLY FOR VERY SHORT PERIODS OF TIME. 01025000 +* | IN THIS CASE, DMKPTRFR IS PURPOSELY NOT CALLED, TO AVOID 01026000 +* | CONTINUAL "EXTENDING AND DIS-EXTENDING" OVER VERY SHORT 01027000 +* | TIME INTERVALS. 01028000 * 01029000 * (THE LOGIC AS DESCRIBED ABOVE ALLOWS THE NUMBER OF PAGES 01030000 * ALLOTTED FOR FREE STORAGE TO "BREATHE" AS NECESSARY, 01031000
--- a/MNT394/DMKHVC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKHVC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -129,11 +129,11 @@ * 'R2' = BYTE COUNT OF INFORMATION TO BE STORED AT THE VIRTUAL 00132000 * STORAGE ADDRESS SPECIFIED BY 'R1' IN THE FOLLOWING FORMAT: 00133000 * +---------------------------------------+ 00134000 -* VM/370 00135000 +* | VM/370 | 00135000 * +--------------+----+---------+---------+ 00136000 -* LEVEL VC MCEL IPUADDR 00137000 +* | LEVEL | VC | MCEL | IPUADDR | 00137000 * +--------------+----+---------+---------+ 00138000 -* USERID 00139000 +* | USERID | 00139000 * +---------------------------------------+ 00140000 * 00141000 * THE FIELDS STORED ARE DEFINED AS FOLLOWS: 00142000 @@ -234,7 +234,7 @@ * DMKHVCAL PLACES INTO THE SPECIFIED AREA 32 BYTES 00209000 * OF INFORMATION, IN THE FOLLOWING FORMAT: 00210000 * +----------+----------+----------+----------+ 00211000 -* MM/DD/YY HH:MM:SS VIRTCPU TOTALCPU 00212000 +* | MM/DD/YY | HH:MM:SS | VIRTCPU | TOTALCPU | 00212000 * +----------+----------+----------+----------+ 00213000 * WHERE THE DATE AND TIME ARE EBCDIC DOUBLE-WORD FIELDS, 00214000 * AND VIRTUAL AND TOTAL CPU TIME ARE DBL-WORD, UNSIGNED 00215000 @@ -291,9 +291,9 @@ * IS PLACED IN THE 'R2' REGISTER AND THE FOLLOWING 'R2'+1, AS 00266000 * INDICATED BELOW: 00267000 * +----------+----------+----------+----------+ 00268000 -* 'R2' VDEVTYPC VDEVTYPE VDEVSTAT VDEVFLAG 00269000 +* 'R2' | VDEVTYPC | VDEVTYPE | VDEVSTAT | VDEVFLAG | 00269000 * +----------+----------+----------+----------+ 00270000 -* 'R2+1' RDEVTYPC RDEVTYPE RDEVMDL RDEVFTR 00271000 +* 'R2+1' | RDEVTYPC | RDEVTYPE | RDEVMDL | RDEVFTR | 00271000 * +----------+----------+----------+----------+ 00272000 * EACH FIELD IS A SINGLE-BYTE FLAG, WHOSE VALUES MAY BE 00273000 * DETERMINED FROM THE COPY FILES 'DEVTYPES', 'VBLOKS', AND 00274000 @@ -465,15 +465,15 @@ * VMCPARM - VM COMMUNICATION PARMLIST 00433070 * 00433080 * 0 +-----+-----+-----------+-----------------------+ 00433090 -* V*1 V*2 VMCPFUNC VMCPMID 00433100 +* | V*1 | V*2 | VMCPFUNC | VMCPMID | 00433100 * 8 +-----+-----+-----------+-----------------------+ 00433110 -* VMCPUSER 00433120 +* | VMCPUSER | 00433120 * 10 +-----------------------+-----------------------+ 00433130 -* VMCPVADA VMCPLENA 00433140 +* | VMCPVADA | VMCPLENA | 00433140 * 18 +-----------------------+-----------------------+ 00433150 -* VMCPVADB VMCPLENB 00433160 +* | VMCPVADB | VMCPLENB | 00433160 * 20 +-----------------------+-----------------------+ 00433170 -* VMCPUSE 00433180 +* | VMCPUSE | 00433180 * 28 +-----------------------------------------------+ 00433190 * 00433200 * 00433210 @@ -752,7 +752,7 @@ * FILLED IN IN THE FOLLOWING FORMAT -- * 00596000 * * 00597000 * +----------+----------+----------+----------+ * 00598000 -* MM/DD/YY HH:MM:SS VIRTCPU TOTALCPU * 00599000 +* | MM/DD/YY | HH:MM:SS | VIRTCPU | TOTALCPU | * 00599000 * +----------+----------+----------+----------+ * 00600000 * * 00601000 * WHERE THE VIRTUAL AND TOTAL CPU TIMES ARE DOUBLE-WORD, * 00602000
--- a/MNT394/DMKHVD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKHVD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -144,13 +144,13 @@ * 'R2' = BYTE COUNT OF INFORMATION TO BE STORED AT THE VIRTUAL 00144000 * STORAGE ADDRESS SPECIFIED BY 'R1' IN THE FOLLOWING FORMAT: 00145000 * +---------------------------------------+ 00146000 -* VM/370 00147000 +* | VM/370 | 00147000 * +--------------+----+---------+---------+ 00148000 -* LEVEL VC MCEL IPUADDR 00149000 +* | LEVEL | VC | MCEL | IPUADDR | 00149000 * +--------------+----+---------+---------+ 00150000 -* USERID 00151000 +* | USERID | 00151000 * +---------------------------------------+ 00152000 -* PP FLAGS 00153000 +* | PP FLAGS | 00153000 * +---------------------------------------+ 00154000 * 00155000 * THE FIELDS STORED ARE DEFINED AS FOLLOWS: 00156000 @@ -231,7 +231,7 @@ * DMKHVDAL PLACES INTO THE SPECIFIED AREA 32 BYTES 00231000 * OF INFORMATION, IN THE FOLLOWING FORMAT: 00232000 * +----------+----------+----------+----------+ 00233000 -* MM/DD/YY HH:MM:SS VIRTCPU TOTALCPU 00234000 +* | MM/DD/YY | HH:MM:SS | VIRTCPU | TOTALCPU | 00234000 * +----------+----------+----------+----------+ 00235000 * WHERE THE DATE AND TIME ARE EBCDIC DOUBLE-WORD FIELDS, 00236000 * AND VIRTUAL AND TOTAL CPU TIME ARE DBL-WORD, UNSIGNED 00237000 @@ -291,9 +291,9 @@ * THE INFORMATION IS PLACED IN THE 'R2' REGISTER AND THE ONE 00291000 * FOLLOWING ('R2'+1),AS INDICATED BELOW 00292000 * +----------+----------+----------+----------+ 00293000 -* 'R2' VDEVTYPC VDEVTYPE VDEVSTAT VDEVFLAG 00294000 +* 'R2' | VDEVTYPC | VDEVTYPE | VDEVSTAT | VDEVFLAG | 00294000 * +----------+----------+----------+----------+ 00295000 -* 'R2+1' RDEVTYPC RDEVTYPE RDEVMDL RDEVFTR 00296000 +* 'R2+1' | RDEVTYPC | RDEVTYPE | RDEVMDL | RDEVFTR | 00296000 * +----------+----------+----------+----------+ 00297000 * EACH FIELD IS A SINGLE-BYTE FLAG, WHOSE VALUES MAY BE 00298000 * DETERMINED FROM THE COPY FILES 'DEVTYPES', 'VBLOKS', AND 00299000
--- a/MNT394/DMKIMG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKIMG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -30,9 +30,9 @@ * THE FORMAT OF THE STANDARD PLIST IS: 00030000 * 00031000 * +-------------+----------------------------------------+ 00032000 -* 00033000 -* GENIMAGE <FN> <FT> <FM> <(<SFN> <SFT> <SFM>> 00034000 -* 00035000 +* | | | 00033000 +* | GENIMAGE | <FN> <FT> <FM> <(<SFN> <SFT> <SFM>> | 00034000 +* | | | 00035000 * +-------------+----------------------------------------+ 00036000 * 00037000 * WHERE 'FN FT FM' REPRESENTS THE INPUT CONTROL FILE TO IEBIMAGE 00038000
--- a/MNT394/DMKIOC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKIOC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -255,7 +255,7 @@ EJECT 00239000 DEVCODE DS 0F CONVERSION TABLE FOR DEVICES @VA03757 00240000 SPACE 1 00241000 -* VM/370 VS1/VS2 CONVERT DEV TYPE FROM VM370 TO VS 00242000 +* VM/370 | VS1/VS2 CONVERT DEV TYPE FROM VM370 TO VS 00242000 SPACE 1 00243000 DC XL2'4004',XL2'1009' 3270 GRAPHIC DEVICE @VA03757 00244000 DC XL2'4002',XL2'1009' 3270 PRINTER FAMILY @VA03757 00245000
--- a/MNT394/DMKIOG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKIOG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -850,7 +850,7 @@ ICM R2,B'0100',=C'E' ERROR MESSAGE @V5088AA 00838000 L R4,=V(DMKIOEES) I/O SWITCH @V305435 00839000 CYLMSGOK BAL R3,CALLERM CALL MESSAGE WRITTER @V305435 00840000 - MVI 0(R4),X'FF' TURN OFF (OBR MCH) SWITCH @V305435 00841000 + MVI 0(R4),X'FF' TURN OFF (OBR|MCH) SWITCH @V305435 00841000 B IOEXIT NO - RETURN TO CALLER @V305435 00842000 SPACE 00843000 FMTWRTPG EQU * 00844000
--- a/MNT394/DMKLNK.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKLNK.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -22,7 +22,7 @@ * COMMAND LINE FORMAT - 00022000 * 00023000 * +--------+-------------------------------------------------------+ 00024000 -* LINK <TO> USERID * XXX <AS> YYY <MODE> <PASSWORD> 00025000 +* | LINK | <TO> USERID | * XXX <AS> YYY <MODE> <PASSWORD> | 00025000 * +--------+-------------------------------------------------------+ 00026000 * 00027000 * SEE "NOTES" FOR FURTHER INFORMATION ON COMMAND LINE FORMAT. 00028000 @@ -416,11 +416,11 @@ EJECT 00403000 *********************************************************************** 00404000 * 00405000 -* LINK USERID * XXX YYY < MODE > < PASSWORD > 00406000 +* LINK USERID | * XXX YYY < MODE > < PASSWORD > 00406000 * 00407000 * OR 00408000 * 00409000 -* LINK USERID * XXX YYY < MODE > < PASS= PASSWORD > 00410000 +* LINK USERID | * XXX YYY < MODE > < PASS= PASSWORD > 00410000 * 00411000 *********************************************************************** 00412000 SPACE 00413000
--- a/MNT394/DMKLOG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKLOG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -13,9 +13,9 @@ * COMMAND LINE FORMAT - 00013000 * 00014000 * +-------+-------------------------------------------+ 00015000 -* 00016000 -* LOGON USERID <PASSWORD> <MASK> <NOIPL> 00017000 -* - - - 00018000 +* | | | 00016000 +* | LOGON | USERID <PASSWORD> <MASK> <NOIPL> | 00017000 +* | - | - - | 00018000 * +-------+-------------------------------------------+ 00019000 * 00020000 * ATTRIBUTES - 00021000
--- a/MNT394/DMKMCC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKMCC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -66,48 +66,48 @@ * COMMAND FORMAT - 00066000 * 00067000 * +---------+---------+-------------------------------------+ 00068000 -* MONITOR 00069000 -* MON 00070000 -* AUTODISK ON 00071000 -* OFF 00072000 -* 00073000 -* CLOSE 00074000 -* 00075000 -* DISPLAY ALL 00076000 -* TAPE 00077000 -* SPOOL 00078000 -* 00079000 -* ENABLE PERFORM 00080000 -* RESPONSE 00081000 -* SCHEDULE 00082000 -* USER 00083000 -* INSTSIM 00084000 -* DASTAP 00085000 -* SEEKS 00086000 -* SYSPROF 00087000 -* 00088000 -* INTERVAL INT SEC 00089000 -* MIN 00090000 -* 00091000 -* LIMIT NO. STOP 00092000 -* NOSTOP 00093000 -* * 00094000 -* 00095000 -* 00096000 -* START CPTRACE 00097000 -* SPOOL TO USERID BUFFS 00098000 -* TAPE RADDR MODE 800 BUFFS 00099000 -* 1600 00100000 -* 6250 00101000 -* 00102000 -* STOP CPTRACE 00103000 -* SPOOL 00104000 -* TAPE 00105000 -* 00106000 -* TIME FROM (HH:SS) TO (HH:SS) 00107000 -* FOR (HH:SS) 00108000 -* ALL 00109000 -* NONE 00110000 +* | MONITOR | | | 00069000 +* | MON | | | 00070000 +* | | AUTODISK| ON | 00071000 +* | | | OFF | 00072000 +* | | | | 00073000 +* | | CLOSE | | 00074000 +* | | | | 00075000 +* | | DISPLAY | ALL | 00076000 +* | | | TAPE | 00077000 +* | | | SPOOL | 00078000 +* | | | | 00079000 +* | | ENABLE | PERFORM | 00080000 +* | | | RESPONSE | 00081000 +* | | | SCHEDULE | 00082000 +* | | | USER | 00083000 +* | | | INSTSIM | 00084000 +* | | | DASTAP | 00085000 +* | | | SEEKS | 00086000 +* | | | SYSPROF | 00087000 +* | | | | 00088000 +* | | INTERVAL| INT SEC | 00089000 +* | | | MIN | 00090000 +* | | | | 00091000 +* | | LIMIT | NO. | STOP | 00092000 +* | | | | NOSTOP | 00093000 +* | | | * | | 00094000 +* | | | | 00095000 +* | | | | 00096000 +* | | START | CPTRACE | 00097000 +* | | | SPOOL TO USERID BUFFS | 00098000 +* | | | TAPE RADDR MODE 800 BUFFS | 00099000 +* | | | 1600 | 00100000 +* | | | 6250 | 00101000 +* | | | | 00102000 +* | | STOP | CPTRACE | 00103000 +* | | | SPOOL | 00104000 +* | | | TAPE | 00105000 +* | | | | 00106000 +* | | TIME | FROM (HH:SS) TO (HH:SS) | 00107000 +* | | | FOR (HH:SS) | 00108000 +* | | | ALL | 00109000 +* | | | NONE | 00110000 * +---------+---------+-------------------------------------+ 00111000 * 00112000 * OPERATION - 00113000
--- a/MNT394/DMKMCD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKMCD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -71,31 +71,31 @@ * COMMAND FORMAT - 00071000 * 00072000 * +---------+---------+-------------------------------------+ 00073000 -* MONITOR 00074000 -* MON 00075000 -* TIME FROM H1.M1 TO H2.M2 00076000 -* FOR HH.MM 00077000 -* ALL 00078000 -* NONE 00079000 -* 00080000 -* INTERVAL INT SEC UTINT 00081000 -* MIN 00082000 -* 00083000 -* LIMIT NO. STOP 00084000 -* * NOSTOP 00085000 -* SAMPLE 00086000 -* 00087000 -* SEEKS INCLUDE 00088000 -* EXCLUDE 00089000 -* DELETE 00090000 -* DISPLAY 00091000 -* 00092000 -* 00093000 -* 00094000 -* STOP CPTRACE 00095000 -* SPOOL 00096000 -* TAPE 00097000 -* 00098000 +* | MONITOR | | | 00074000 +* | MON | | | 00075000 +* | | TIME | FROM H1.M1 TO H2.M2 | 00076000 +* | | | FOR HH.MM | 00077000 +* | | | ALL | 00078000 +* | | | NONE | 00079000 +* | | | | 00080000 +* | | INTERVAL| INT SEC UTINT | 00081000 +* | | | MIN | 00082000 +* | | | | 00083000 +* | | LIMIT | NO. | STOP | 00084000 +* | | | * | NOSTOP | 00085000 +* | | | | SAMPLE | 00086000 +* | | | 00087000 +* | | SEEKS | INCLUDE | 00088000 +* | | | EXCLUDE | 00089000 +* | | | DELETE | 00090000 +* | | | DISPLAY | 00091000 +* | | | 00092000 +* | | | | 00093000 +* | | | | 00094000 +* | | STOP | CPTRACE | 00095000 +* | | | SPOOL | 00096000 +* | | | TAPE | 00097000 +* | | | | 00098000 * +---------+---------+-------------------------------------+ 00099000 * 00100000 * OPERATION - 00101000
--- a/MNT394/DMKMSG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKMSG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -133,9 +133,9 @@ * COMMAND FORMAT - 00125000 * 00126000 * +-------+---------------------------+ 00127000 -* WNG USERID MESSAGE TEXT 00128000 -* W OPERATOR 00129000 -* ALL 00130000 +* | WNG | USERID MESSAGE TEXT | 00128000 +* | W | OPERATOR | 00129000 +* | | ALL | 00130000 * +-------+---------------------------+ 00131000 * 00132000 * OPERATION - 00133000 @@ -187,8 +187,8 @@ * COMMAND FORMAT - 00152220 * 00152240 * +-------+---------------------------+ 00152260 -* SMSG USERID MESSAGE TEXT 00152280 -* SM 00152300 +* | SMSG | USERID MESSAGE TEXT | 00152280 +* | SM | | 00152300 * +-------+---------------------------+ 00152320 * 00152340 * OPERATION - 00152360 @@ -233,9 +233,9 @@ * COMMAND FORMAT - 00163000 * 00164000 * +-------+--------------------------+ 00165000 -* MSG USERID MESSAGE TEXT 00166000 -* M OPERATOR 00167000 -* ALL 00168000 +* | MSG | USERID MESSAGE TEXT | 00166000 +* | M | OPERATOR | 00167000 +* | | ALL | 00168000 * +-------+--------------------------+ 00169000 * 00170000 * OPERATION - 00171000 @@ -511,7 +511,7 @@ * COMMAND FORMAT - 00371000 * 00372000 * +--------+--------+ 00373000 -* ECHO <NN> 00374000 +* | ECHO | <NN> | 00374000 * +--------+--------+ 00375000 * 00376000 * OPERATION - 00377000
--- a/MNT394/DMKNET.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKNET.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -46,20 +46,20 @@ * COMMAND FORMAT - 00045000 * 00046000 * +----------+-------------------------------------------------+ 00047000 -* 00048000 -* NETWORK LOAD RADDR NCPNAME 00049000 -* NET DUMP RADDR < IMMED AUTO OFF > 00050000 -* ENABLE < ALL RESOURCE < RESOURCE...>> 00051000 -* DISABLE < ALL RESOURCE < RESOURCE...>> 00052000 -* QUERY < RESOURCE < RESOURCE ... >> 00053000 -* < ACTIVE FREE OFFLINE ALL > 00054000 -* DISPLAY RADDR HEXLOC1 < : - < HEXLOC2 END >> 00055000 -* VARY RESOURCE < ONLINE OFFLINE EP NCP > 00056000 -* HALT RESOURCE 00057000 -* TRACE <RESOURCE BTU RADDR END> 00058000 -* SHUTDOWN RADDR ALL 00059000 -* POLLDLAY NNNN RADDR ALL 00060000 -* 00061000 +* | | | 00048000 +* | NETWORK | LOAD RADDR NCPNAME | 00049000 +* | NET | DUMP RADDR < IMMED | AUTO | OFF > | 00050000 +* | | ENABLE < ALL | RESOURCE < RESOURCE...>> | 00051000 +* | | DISABLE < ALL | RESOURCE < RESOURCE...>> | 00052000 +* | | QUERY < RESOURCE < RESOURCE ... >> | 00053000 +* | | < ACTIVE | FREE | OFFLINE | ALL > | 00054000 +* | | DISPLAY RADDR HEXLOC1 < :|- < HEXLOC2|END >> | 00055000 +* | | VARY RESOURCE < ONLINE|OFFLINE|EP|NCP > | 00056000 +* | | HALT RESOURCE | 00057000 +* | | TRACE <RESOURCE | BTU RADDR | END> | 00058000 +* | | SHUTDOWN RADDR | ALL | 00059000 +* | | POLLDLAY NNNN RADDR | ALL | 00060000 +* | | | 00061000 * +----------+-------------------------------------------------+ 00062000 * 00063000 * ENTRY CONDITIONS - 00064000 @@ -257,7 +257,7 @@ CALL DMKNLDR,PARM=0 CALL THE LOAD PROCESSOR @V200820 00256000 * HE WILL RETURN DIRECTLY TO DMKCFM 00257000 SPACE 2 00258000 -NETDUMP EQU * "NETWORK DUMP RADDR IMMED AUTO OFF" @V200820 00259000 +NETDUMP EQU * "NETWORK DUMP RADDR IMMED|AUTO|OFF" @V200820 00259000 CALL DMKNLEMP,PARM=0 CALL THE DUMP PROCESSOR @V407511 00260100 * HE WILL RETURN DIRECTLY TO DMKCFM 00261000 SPACE 2 00262000 @@ -519,10 +519,10 @@ CLCQALL CLC 0(*-*,R1),=C'ALL ' NETWORK QUERY ALL @V200820 00515000 CLCACTV CLC 0(*-*,R1),=C'ACTIVE ' NETWORK QUERY ACTIVE @V200820 00516000 EJECT 00517000 -NETENAB EQU * "NETWORK ENABLE RESOURCE ALL" @V200820 00518000 +NETENAB EQU * "NETWORK ENABLE RESOURCE|ALL" @V200820 00518000 MVI SAVEWRK1,ENABLE FLAG THIS AS 'ENABLE' CMD @V200820 00519000 SPACE 00520000 -NETDISA EQU * "NETWORK DISABLE RESOURCE ALL" @V200820 00521000 +NETDISA EQU * "NETWORK DISABLE RESOURCE|ALL" @V200820 00521000 CALL DMKSCNFD SCAN IN CASE IT IS 'ALL' @V200820 00522000 BNZ NETEALL THE DEFAULT IS 'ALL' @V200820 00523000 LA R10,NETENRS RETURN IF NOT 'ALL' @V200820 00524000 @@ -691,7 +691,7 @@ LA R0,CRESIMD RESET IMMED WILL CLEAR CONTACT @V200820 00686000 B CTLCALL GO CALL DMKRNHND @V200820 00687000 EJECT 00688000 -NETVARY EQU * "NETWORK VARY RESOURCE ON OFF EP NCP" @V200820 00689000 +NETVARY EQU * "NETWORK VARY RESOURCE ON|OFF|EP|NCP" @V200820 00689000 CALL DMKSCNFD LOCATE THE OPTION WORD @V200820 00690000 BNZ NET026E @V200820 00691000 LR R4,R0 LENGTH... @V200820 00692000
--- a/MNT394/DMKNLD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKNLD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -128,8 +128,8 @@ * COMMAND LINE FORMAT - 00139000 * 00140000 * +---------+-----------------------------------+ 00141000 -* NETWORK LOAD RADDR NCPNAME 00142000 -* NET 00143000 +* | NETWORK | LOAD RADDR NCPNAME | 00142000 +* | NET | | 00143000 * +---------+-----------------------------------+ 00144000 * 00145000 * OPERATION - 00153000
--- a/MNT394/DMKNLE.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKNLE.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -127,10 +127,10 @@ * COMMAND LINE FORMAT - 00139000 * 00140000 * +---------+-----------------------------------+ 00146000 -* ** ** 00147000 -* NETWORK DUMP RADDR * IMMED OFF AUTO * 00148000 -* NET * ----- * 00149000 -* ** ** 00150000 +* | | ** ** | 00147000 +* | NETWORK | DUMP RADDR * IMMED | OFF | AUTO * | 00148000 +* | NET | * ----- * | 00149000 +* | | ** ** | 00150000 * +---------+-----------------------------------+ 00151000 * 00152000 * OPERATION - 00153000
--- a/MNT394/DMKNMT.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKNMT.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -27,7 +27,7 @@ * ONE ARGUMENT IS ALLOWED - THE IMAGE LIBRARY NAME 00027000 * THE FORMAT IS: 00028000 * +-----------+-----------------------+ 00029000 -* IMAGELIB IMAGELIB 00030000 +* | IMAGELIB | IMAGELIB | 00030000 * +-----------+-----------------------+ 00031000 * 00032000 * EXIT CONDITIONS - 00033000
--- a/MNT394/DMKPAG.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKPAG.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -163,7 +163,7 @@ * 5 16 17 18 00163000 * 6 19 20 21 00164000 * 7 22 23 24 00165000 -* ------PAGES----- 00166000 +* |------PAGES-----| 00166000 * 00167000 * 00168000 * A. IOBLOKS FOR RECORDS ON THE SAME TRACK ARE CHAINED 00169000 @@ -217,8 +217,8 @@ * 6 19 20 21 16 49 50 51 00217000 * 7 22 23 24 17 52 53 54 00218000 * 8 25 26 27 18 55 56 57 00219000 -* 9 28 29 30 ------PAGES----- 00220000 -* ------PAGES----- 00221000 +* 9 28 29 30 |------PAGES-----| 00220000 +* |------PAGES-----| 00221000 * 00222000 * A. IOBLOKS FOR RECORDS ON THE SAME TRACK ARE CHAINED 00223000 * TOGATHER BY THE TIC ADDRESS IN THE PREVIOUS IOBLOK 00224000 @@ -252,18 +252,18 @@ * EXTRA REVOLUTION, WITH EXCEPTION OF CCWS CROSSING 00252000 * INDEX POINT (HOME ADDRESS AND RECORD ZERO). 00253000 * 00254000 -* PAGE OR RECORD NUMBER 00255000 -* TRACK OR HEAD EVEN TRACKS ODD TRACKS TRACK OR HEAD 00256000 -* 0 1 2 3 4 1 00257000 -* 2 5 6 7 8 3 00258000 -* 4 9 10 11 12 5 00259000 -* 6 13 14 15 16 7 00260000 -* 8 17 18 19 20 9 00261000 -* 10 21 22 23 24 11 00262000 +* | PAGE OR RECORD NUMBER | 00255000 +* TRACK OR HEAD |EVEN TRACKS | ODD TRACKS| TRACK OR HEAD 00256000 +* 0 | 1 | 2 | 3 | 4 | 1 00257000 +* 2 | 5 | 6 | 7 | 8 | 3 00258000 +* 4 | 9 | 10 | 11 | 12 | 5 00259000 +* 6 | 13 | 14 | 15 | 16 | 7 00260000 +* 8 | 17 | 18 | 19 | 20 | 9 00261000 +* 10 | 21 | 22 | 23 | 24 | 11 00262000 * 00263000 -* SECTOR VALUES 2 32 2 32 00264000 -* LOGICAL TRK LOGICAL TRK 00265000 -* ONE PHYSICAL TRACK 00266000 +* SECTOR VALUES | 2 | 32 | 2 | 32 | 00264000 +* |LOGICAL TRK |LOGICAL TRK| 00265000 +* | ONE PHYSICAL TRACK | 00266000 * 00267000 * IOBLOKS ARE CHAINED TOGATHER WITH TICS IN THE 00268000 * FOLLOWING WAY: 00269000 @@ -338,7 +338,7 @@ * 12 49 50 51 52 27 109 110 111 112 00338000 * 13 53 54 55 56 28 113 114 115 116 00339000 * 14 57 58 59 60 29 117 118 119 120 00340000 -* -------PAGES------ -------PAGES------- 00341000 +* |-------PAGES------| |-------PAGES-------| 00341000 * 00342000 * 00343000 * A. IOBLOKS FOR RECORDS ON THE SAME TRACK ARE CHAINED 00344000
--- a/MNT394/DMKPRV.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKPRV.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -808,7 +808,7 @@ TM VMPSTAT,VMV370R IS THIS AN EC-MODE MACHINE ? %V3M4038 00808000 BZ OPEREXCP NO - REFLECT OPERATION EXCEPTION %V3M4038 00809000 * (CF 370 PRINCIPLES OF OPERATION) 00810000 -SSMJOIN EQU * STNSM STOSM SSM: %V3M4038 00811000 +SSMJOIN EQU * STNSM | STOSM | SSM: %V3M4038 00811000 TM VMTRCTL,VMTRBRIN INSTRUCTION TRACING SET %VA05533 00812000 BNO SSMJOIN1 NO, SKIP FOLLOWING TEST %VA05533 00813000 L R15,VMTREXT GET ADDRESS OF TRACE BLOCK @VA05533 00814000
--- a/MNT394/DMKRND.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKRND.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -18,9 +18,9 @@ * COMMAND LINE FORMAT - 00018000 * 00019000 * +---------+------------------------------------------------------+ 00020000 -* 00021000 -* NCPDUMP <DUMPNN> <(<ERASE> <NOFORM> <MNEMONIC> <NCPBUFF><)>> 00022000 -* 00023000 +* | | | 00021000 +* | NCPDUMP | <DUMPNN> <(<ERASE> <NOFORM> <MNEMONIC> <NCPBUFF><)>> | 00022000 +* | | | 00023000 * +---------+------------------------------------------------------+ 00024000 * 00025000 * ENTRY CONDITIONS - 00026000
--- a/MNT394/DMKTCS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKTCS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -205,7 +205,7 @@ * 00205000 * DMKTCS240E PRT (CUU), FCB-FORMS MISMATCH, FILEID (SPLID) 00206000 * DMKTCS241E PRT (CUU), INVALID LOAD MODULE (NAME) SPECIFIED, 00207000 -* FILE (SPLID) (HELD PURGED) 00208000 +* FILE (SPLID) (HELD|PURGED) 00208000 * 00209000 *. 00210000 EJECT 00211000
--- a/MNT394/DMKTHI.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKTHI.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -81,19 +81,19 @@ * COMMAND FORMAT - 00078000 * 00079000 * +----------+---------+--------+ 00080000 -* INDICATE LOAD 00081000 -* ------- 00082000 -* IND USER * 00083000 -* --- 00084000 -* USER USERID 00085000 -* 00086000 -* QUEUES 00087000 -* 00088000 -* I/O 00089000 -* 00090000 -* PAGING WAIT 00091000 -* PAG ---- 00092000 -* ALL 00093000 +* | INDICATE | LOAD | | 00081000 +* | | ------- | | 00082000 +* | IND | USER | * | 00083000 +* | | |--- | 00084000 +* | | USER | USERID | 00085000 +* | | | | 00086000 +* | | QUEUES | | 00087000 +* | | | | 00088000 +* | | I/O | | 00089000 +* | | | | 00090000 +* | | PAGING | WAIT | 00091000 +* | | PAG | ---- | 00092000 +* | | | ALL | 00093000 * +----------+---------+--------+ 00094000 * 00095000 * INTERPRETATION 00096000
--- a/MNT394/DMKTRA.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKTRA.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -16,21 +16,21 @@ * COMMAND LINE FORMAT - 00016000 * 00017000 * +---------+---------------------------------------+ 00018000 -* 00019000 -* TRACE SVC < PRINTER > 00020000 -* TR I/O 00021000 -* PROGRAM < TERMINAL < RUN >> 00022000 -* EXTERNAL < TERMINAL < NORUN >> 00023000 -* PRIV 00024000 -* SIO < BOTH < RUN >> 00025000 -* CCW < BOTH < NORUN >> 00026000 -* BRANCH 00027000 -* INSTRUCT < OFF > 00028000 -* CSW 00029000 -* ALL 00030000 -* 00031000 -* END 00032000 -* 00033000 +* | | | 00019000 +* | TRACE | SVC < PRINTER > | 00020000 +* | TR | I/O | 00021000 +* | | PROGRAM < TERMINAL < RUN >> | 00022000 +* | | EXTERNAL < TERMINAL < NORUN >> | 00023000 +* | | PRIV | 00024000 +* | | SIO < BOTH < RUN >> | 00025000 +* | | CCW < BOTH < NORUN >> | 00026000 +* | | BRANCH | 00027000 +* | | INSTRUCT < OFF > | 00028000 +* | | CSW | 00029000 +* | | ALL | 00030000 +* | | | 00031000 +* | | END | 00032000 +* | | | 00033000 * +---------+---------------------------------------+ 00034000 * 00035000 * ATTRIBUTES - 00036000 @@ -455,7 +455,7 @@ SPACE 00432800 TRAEXIT DS 0H RESTORE VMRSTAT FLAGBITS (AS NEEDED) BEFORE EXIT: 00433000 OI SAVEWRK7,255-(VMEXWAIT+VMCFWAIT) PRESERVE ALL OTHER BITS 00434000 - NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT VMCFWAIT AS NEEDED 00435000 + NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT|VMCFWAIT AS NEEDED 00435000 TRAEXITR LCTL C1,C1,VMSEG BE SURE CONTROL REG 1 IS CORRECTLY SET, 00436000 EXIT AND REALLY EXIT. 00437000 EJECT 00438000
--- a/MNT394/DMKTRC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKTRC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -528,7 +528,7 @@ DROP R9 00579000 TRAEXIT DS 0H RESTORE VMRSTAT FLAGBITS (AS NEEDED) BEFORE EXIT: 00580000 OI SAVEWRK7,255-(VMEXWAIT+VMCFWAIT) PRESERVE ALL OTHER BITS 00581000 - NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT VMCFWAIT AS NEEDED 00582000 + NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT|VMCFWAIT AS NEEDED 00582000 TRAEXITR LCTL C1,C1,VMSEG BE SURE CONTROL REG 1 IS CORRECTLY SET, 00583000 TM SAVEWRK8,SETCC SET COND CODE 0 OR NONZERO 00584000 EXIT AND REALLY EXIT. 00585000 @@ -1093,8 +1093,8 @@ BZ TRANEXT IF NONEXISTENT IT'S NOT A BRANCH. 01430000 CLI 0(R2),X'06' WAS IT BALR (05), BCTR (06), OR BCR (07) 01431000 * 01432000 -TRABTEST BL TRABRNCH BALR BAL - AN UNCONDITIONAL BRANCH 01433000 - BE TRACOND BCTR BCT - A CONDITIONAL BRANCH 01434000 +TRABTEST BL TRABRNCH BALR | BAL - AN UNCONDITIONAL BRANCH 01433000 + BE TRACOND BCTR | BCT - A CONDITIONAL BRANCH 01434000 * 01435000 TRABCTST TM 1(R2),X'F0' TEST "M" FIELD OF BCR OR BC INSTRUCTION 01436000 BM TRACOND IF 1 TO 14, IT'S A CONDITIONAL BRANCH 01437000
--- a/MNT394/DMKTRD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKTRD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -273,7 +273,7 @@ CALL DMKLOCKD UNLOCK - TRACING FINISHED @V200820 00578000 TRAEXIT DS 0H RESTORE VMRSTAT FLAGBITS (AS NEEDED) BEFORE EXIT: 00580000 OI SAVEWRK7,255-(VMEXWAIT+VMCFWAIT) PRESERVE ALL OTHER BITS 00581000 - NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT VMCFWAIT AS NEEDED 00582000 + NC VMRSTAT(1),SAVEWRK7 RESTORE VMEXWAIT|VMCFWAIT AS NEEDED 00582000 TRAEXITR LCTL C1,C1,VMSEG BE SURE CONTROL REG 1 IS CORRECTLY SET, 00583000 TM SAVEWRK8,SETCC SET COND CODE 0 OR NONZERO 00584000 EXIT AND REALLY EXIT. 00585000
--- a/MNT394/DMKUCB.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKUCB.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -139,7 +139,7 @@ * 00139000 * 00140000 * +------+------+--------------------------------+ 00141000 -* UCB UCB NAME 00142000 +* | | UCB | UCB NAME | 00142000 * +------+------+--------------------------------+ 00143000 * 00144000 * 00145000 @@ -169,7 +169,7 @@ * 00169000 * 00170000 * +------+------+----------------------------------------------+ 00171000 -* UCBCCW UCB NAME,(PRINT1,PRINT2,,,,,,PRINT12) 00172000 +* | |UCBCCW| UCB NAME,(PRINT1,PRINT2,,,,,,PRINT12) | 00172000 * +------+------+----------------------------------------------+ 00173000 * 00174000 * 00175000
--- a/MNT394/DMKUCC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKUCC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -139,7 +139,7 @@ * 00139000 * 00140000 * +------+------+--------------------------------+ 00141000 -* UCC UCC NAME 00142000 +* | | UCC | UCC NAME | 00142000 * +------+------+--------------------------------+ 00143000 * 00144000 * 00145000 @@ -168,7 +168,7 @@ * 00168000 * 00169000 * +------+------+----------------------------------------------+ 00170000 -* UCCCCW UCC NAME,(PRINT1,PRINT2,,,,,,PRINT12) 00171000 +* | |UCCCCW| UCC NAME,(PRINT1,PRINT2,,,,,,PRINT12) | 00171000 * +------+------+----------------------------------------------+ 00172000 * 00173000 * 00174000 @@ -282,7 +282,7 @@ DC C'1234567890XY/STUVW<;#*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00282000 DC C'1234567890XY/STUVW?>@*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00283000 DC C'1234567890XY/STUVW^''&&*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00284000 - DC C'1234567890XY/STUVW :%*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00285000 + DC C'1234567890XY/STUVW|:%*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00285000 DC X'00101010101010101010004040404040' 00286000 DC X'40101010101010101010004040404040' 00287000 DC X'40401010101010101010004040404040' @V3M4025 00288000 @@ -294,7 +294,7 @@ UCC QNC 00294000 SPACE 00295000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI",=' 00296000 - DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI :_' 00297000 + DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI|:_' 00297000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI<;^' 00298000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI''?>' 00299000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI)+(' 00300000 @@ -359,10 +359,10 @@ SPACE 00355000 UCC PN 00356000 SPACE 00357000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00358000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00359000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00360000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00361000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00358000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00359000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00360000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00361000 DC X'00101010101010101010004040404040' @V3M4025 00362000 DC X'40101010101010101010004040404040' @V3M4025 00363000 DC X'40401010101010101010004040404040' @V3M4025 00364000 @@ -375,7 +375,7 @@ UCC SN 00371000 SPACE 00372000 DC 3C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefghijklmnopqX00373000 - rstuvwxyz@''() ' @V3M5006 00374000 + rstuvwxyz@''() |' @V3M5006 00374000 DC C'?!; %',X'9C' LOZENGE 00375000 DC X'00303030303030303030404000404040' @V3M4025 00376000 DC X'40303030303030303030404060404000' 00377000
--- a/MNT394/DMKUCS.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKUCS.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -139,7 +139,7 @@ * 00139000 * 00140000 * +------+------+--------------------------------+ 00141000 -* UCS UCS NAME 00142000 +* | | UCS | UCS NAME | 00142000 * +------+------+--------------------------------+ 00143000 * 00144000 * 00145000 @@ -168,7 +168,7 @@ * 00168000 * 00169000 * +------+------+----------------------------------------------+ 00170000 -* UCSCCW UCS NAME,(PRINT1,PRINT2,,,,,,PRINT12) 00171000 +* | |UCSCCW| UCS NAME,(PRINT1,PRINT2,,,,,,PRINT12) | 00171000 * +------+------+----------------------------------------------+ 00172000 * 00173000 * 00174000 @@ -271,7 +271,7 @@ DC C'1234567890XY/STUVW<;#*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00266000 DC C'1234567890XY/STUVW?>@*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00267000 DC C'1234567890XY/STUVW^''&&*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00268000 - DC C'1234567890XY/STUVW :%*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00269000 + DC C'1234567890XY/STUVW|:%*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00269000 SPACE 2 00270000 UCSCCW QN,(48,48,48,48,48) 00271000 EJECT 00272000 @@ -279,7 +279,7 @@ UCS QNC 00274000 SPACE 00275000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI",=' 00276000 - DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI :_' 00277000 + DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI|:_' 00277000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI<;^' 00278000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI''?>' 00279000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI)+(' 00280000 @@ -315,9 +315,9 @@ UCS TN 00309000 SPACE 00310000 DC C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefghijklmn' 00311000 - DC C'opqrstuvwxyz@''?; !$*% ~^() >< [] _ ' 00312000 + DC C'opqrstuvwxyz@''?; !$*% ~^() >< [] _ |' 00312000 DC C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefghijklmn' 00313000 - DC C'opqrstuvwxyz@''?; !$*% ~^() >< [] _ ' 00314000 + DC C'opqrstuvwxyz@''?; !$*% ~^() >< [] _ |' 00314000 SPACE 2 00315000 UCSCCW TN,(60,60,60,60) 00316000 EJECT 00317000 @@ -325,10 +325,10 @@ SPACE 00319000 UCS PN 00320000 SPACE 00321000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00322000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00323000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00324000 - DC C'1234567890XY/STUVW :_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00325000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00322000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00323000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00324000 + DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;^''?>' 00325000 SPACE 2 00326000 UCSCCW PN,(60,60,60,60) 00327000 EJECT 00328000
--- a/MNT394/DMKUDU.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKUDU.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -197,13 +197,13 @@ *-------------------------------------------------------------- 00197000 EJECT 00198000 *-------------------------------------------------------------- 00199000 -* COMMON ERROR EXIT 00200000 +* COMMON ERROR EXIT | 00200000 *------------------------ 00201000 EXITCC1 STH R15,URETCODE @V60C1BD 00202000 B PREXIT GO TO ERROR EXIT DIRECTLY @V60C1BD 00203000 SPACE 5 00204000 *-------------------------------------------------------------- 00205000 -* COMMON EXIT FOR UDEV FUNCTIONS, CC = 0 00206000 +* COMMON EXIT FOR UDEV FUNCTIONS, CC = 0 | 00206000 *--------------------------------------------- 00207000 DEVXCC0 L R6,URPAGDEV SET UP UDEV REAL PAGE ADDRESS @V60C1BD 00208000 L R4,UVPAGBUF SET UP UDEV VIRTUAL PAGE ADDRESS @V60C1BD 00209000 @@ -212,7 +212,7 @@ B EXITCC0 @V60C1BD 00212000 SPACE 2 00213000 *-------------------------------------------------------------- 00214000 -* COMMON EXIT FOR UMAC FUNCTIONS, CC = 0 00215000 +* COMMON EXIT FOR UMAC FUNCTIONS, CC = 0 | 00215000 *--------------------------------------------- 00216000 MACXCC0 L R6,URPAGMAC SET UP UMAC REAL PAGE ADDRESS @V60C1BD 00217000 L R4,UVPAGBUF SET UP UMAC VIRTUAL PAGE ADDRESS @V60C1BD 00218000 @@ -221,7 +221,7 @@ B EXITCC0 @V60C1BD 00221000 SPACE 2 00222000 *-------------------------------------------------------------- 00223000 -* COMMON EXIT FOR UDIR FUNCTIONS, CC = 0 00224000 +* COMMON EXIT FOR UDIR FUNCTIONS, CC = 0 | 00224000 *--------------------------------------------- 00225000 DIRXCC0 L R6,URPAGDIR SET UP UDIR REAL PAGE ADDRESS @V60C1BD 00226000 L R4,UVPAGDIR SET UP UPDATED VIRTUAL PAGE ADDR @V60C1BD 00227000 @@ -229,7 +229,7 @@ OI UFLAGS,UDIRF INDICATE A UDIR UPDATE @V60C1BD 00229000 SPACE 2 00230000 *-------------------------------------------------------------- 00231000 -* COMMON EXIT, CC = 0 00232000 +* COMMON EXIT, CC = 0 | 00232000 *------------------------ 00233000 EXITCC0 SR R15,R15 SET CC = 0 @V60C1BD 00234000 STH R15,URETCODE SET RETCODE TO 0 @V60C1BD 00235000 @@ -383,7 +383,7 @@ B REFLAG @V60C1BD 00383000 EJECT 00384000 *-------------------------------------------------------------- 00385000 -* LOGPASS 00386000 +* LOGPASS | 00386000 *---------- 00387000 * THE UDIRBLOK FOR THE USERID HAS BEEN FOUND AND THE CURRENT 00388000 * LOGON PASSWORDS MATCH. 00389000 @@ -406,7 +406,7 @@ DROP R5 @V60C1BD 00406000 EJECT 00407000 *-------------------------------------------------------------- 00408000 -* MDISK ROUTINE TO UPDATE MDISK DATA 00409000 +* MDISK | ROUTINE TO UPDATE MDISK DATA 00409000 *---------- 00410000 * THE UDIRBLOK FOR THE USERID HAS BEEN FOUND AND THE CURRENT 00411000 * LOGON PASSWORDS MATCH 00412000 @@ -512,7 +512,7 @@ DROP R5,R7 @V60C1BD 00512000 EJECT 00513000 *-------------------------------------------------------------- 00514000 -* STORAGE 00515000 +* STORAGE | 00515000 *---------- 00516000 * THE UDIRBLOK FOR THE USERID HAS BEEN FOUND AND THE CURRENT 00517000 * LOGON PASSWORDS MATCH. 00518000 @@ -596,7 +596,7 @@ DROP R5 @V60C1BD 00596000 EJECT 00597000 *-------------------------------------------------------------- 00598000 -* PRIVLEGE 00599000 +* PRIVLEGE | 00599000 *----------- 00600000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00601000 * 00602000 @@ -675,7 +675,7 @@ DROP R5 DROP UMACBLOK REFERENCE @V60C1BD 00675000 EJECT 00676000 *-------------------------------------------------------------- 00677000 -* PRIORTY 00678000 +* PRIORTY | 00678000 *----------- 00679000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00680000 * 00681000 @@ -734,7 +734,7 @@ DROP R5 @V60C1BD 00734000 EJECT 00735000 *-------------------------------------------------------------- 00736000 -* EDITCHAR 00737000 +* EDITCHAR | 00737000 *----------- 00738000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00739000 * 00740000 @@ -760,7 +760,7 @@ DROP R5 @V60C1BD 00760000 EJECT 00761000 *-------------------------------------------------------------- 00762000 -* OPTIONS 00763000 +* OPTIONS | 00763000 *---------- 00764000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00765000 * 00766000 @@ -878,7 +878,7 @@ DROP R5,R7 @V60C1BD 00878000 EJECT 00879000 *-------------------------------------------------------------- 00880000 -* IPL 00881000 +* IPL | 00881000 *---------- 00882000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00883000 * 00884000 @@ -905,7 +905,7 @@ DROP R5 @V60C1BD 00905000 EJECT 00906000 *-------------------------------------------------------------- 00907000 -* DISTRIB 00908000 +* DISTRIB | 00908000 *---------- 00909000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00910000 * 00911000 @@ -932,7 +932,7 @@ DROP R5 @V60C1BD 00932000 EJECT 00933000 *-------------------------------------------------------------- 00934000 -* ACCOUNT 00935000 +* ACCOUNT | 00935000 *---------- 00936000 * THE UDIRBLOK HAS BEEN READ AND THE LOGON PASSWORDS MATCH 00937000 * 00938000 @@ -1181,7 +1181,7 @@ DROP R2 @V60C1BD 01181000 EJECT 01182000 *-------------------------------------------------------------- 01183000 -* SUBROUTINE TO LOCATE AND READ UMACBLOKS 01184000 +* SUBROUTINE TO LOCATE AND READ UMACBLOKS | 01184000 *---------------------------------------------- 01185000 * 01186000 * ON ENTRY: 01187000 @@ -1246,7 +1246,7 @@ DROP R2 @V60C1BD 01246000 EJECT 01247000 *-------------------------------------------------------------- 01248000 -* SUBROUTINE TO LOCATE AND READ UDEVBLOKS 01249000 +* SUBROUTINE TO LOCATE AND READ UDEVBLOKS | 01249000 *-------------------------------------------- 01250000 * 01251000 * ON ENTRY: 01252000 @@ -1331,7 +1331,7 @@ DROP R2 @V60C1BD 01331000 EJECT 01332000 *-------------------------------------------------------------- 01333000 -* SUBROUTINE TO FIND THE VMBLOK OF THE USER BEING UPDATED 01334000 +* SUBROUTINE TO FIND THE VMBLOK OF THE USER BEING UPDATED | 01334000 *------------------------------------------------------------- 01335000 * 01336000 * ON ENTRY: 01337000 @@ -1362,7 +1362,7 @@ BR R9 RETURN WITH CC SET @V60C1BD 01362000 EJECT 01363000 *-------------------------------------------------------------- 01364000 -* SUBROUTINE TO LOCATE THE LENGTH OF A DATA FIELD 01365000 +* SUBROUTINE TO LOCATE THE LENGTH OF A DATA FIELD | 01365000 *----------------------------------------------------- 01366000 * 01367000 * ENTRY POINTS: 01368000 @@ -1471,7 +1471,7 @@ BR R9 @V60C1BD 01471000 EJECT 01472000 *-------------------------------------------------------------- 01473000 -* SUBROUTINE TO CONVERT EBCDIC NUMERIC VALUE TO BINARY 01474000 +* SUBROUTINE TO CONVERT EBCDIC NUMERIC VALUE TO BINARY | 01474000 *----------------------------------------------------------- 01475000 * 01476000 * ON ENTRY: 01477000
--- a/MNT394/DMKUSO.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKUSO.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -54,9 +54,9 @@ * COMMAND LINE FORMAT - 00047000 * 00048000 * +--------+---------------------------------------------+ 00049000 -* LOGOUT 00050000 -* LOGOFF <HOLD> 00051000 -* LOG 00052000 +* | LOGOUT | | 00050000 +* | LOGOFF | <HOLD> | 00051000 +* | LOG | | 00052000 * +--------+---------------------------------------------+ 00053000 * 00054000 * SEE "NOTES" BELOW. 00055000 @@ -177,9 +177,9 @@ * COMMAND LINE FORMAT - 00168000 * 00169000 * +---------+---------------------------------------+ 00170000 -* 00171000 -* FORCE USERID 00172000 -* 00173000 +* | | | 00171000 +* | FORCE | USERID | 00172000 +* | | | 00173000 * +---------+---------------------------------------+ 00174000 * 00175000 * SEE "NOTES" BELOW. 00176000 @@ -1101,9 +1101,9 @@ * COMMAND LINE FORMAT - 00997000 * 00998000 * +------------+-----------------------------------------+ 00999000 -* 01000000 -* DISCONN <HOLD> 01001000 -* ---- 01002000 +* | | | 01000000 +* | DISCONN | <HOLD> | 01001000 +* | ---- | | 01002000 * +------------+-----------------------------------------+ 01003000 * 01004000 * SEE "NOTES" BELOW. 01005000
--- a/MNT394/DMKVCH.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKVCH.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -11,9 +11,9 @@ * ON IT TO A SPECIFIED USER. 00011000 * 00012000 * +--------+----------------------------+ 00013000 -* ATTACH CHANNEL X <TO> USERID 00014000 -* --------+----------------------------+ 00015000 -* DETACH CHANNEL X <FROM> <USERID> 00016000 +* | ATTACH | CHANNEL X <TO> USERID | 00014000 +* |--------+----------------------------+ 00015000 +* | DETACH | CHANNEL X <FROM> <USERID> | 00016000 * +--------+----------------------------+ 00017000 * 00018000 * THE ACTUAL COMMAND LINE IS DECODED BY DMKVDC. 00019000
--- a/MNT394/DMKVDA.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKVDA.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -36,14 +36,14 @@ * COMMAND LINE FORMAT - 00036000 * 00037000 * +--------+-----------------------------------------------+ 00038000 -* 00039000 -* ATTACH RADDR <TO> USERID <AS> <VADDR> <R/O> 00040000 -* RADDR <TO> SYSTEM <AS> VOLID 00041000 -* RADDR1-RADDR2 <TO> USERID <R/O> 00042000 -* RADDR1 RADDR2 ... <TO> USERID <R/O> 00043000 -* 00044000 -* CHANNEL X <TO> USERID 00045000 -* 00046000 +* | | | 00039000 +* | ATTACH | RADDR <TO> USERID <AS> <VADDR> <R/O> | 00040000 +* | | RADDR <TO> SYSTEM <AS> VOLID | 00041000 +* | | RADDR1-RADDR2 <TO> USERID <R/O> | 00042000 +* | | RADDR1 RADDR2 ... <TO> USERID <R/O> | 00043000 +* | | | 00044000 +* | | CHANNEL X <TO> USERID | 00045000 +* | | | 00046000 * +--------+-----------------------------------------------+ 00047000 * 00048000 * ATTRIBUTES - 00049000
--- a/MNT394/DMKVDD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKVDD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -41,21 +41,21 @@ * COMMAND LINE FORMAT - 00041000 * 00042000 * +--------+--------------------------------+ 00043000 -* 00044000 -* DETACH VADDR 00045000 -* VADDR1-VADDR2 00046000 -* VADDR . . . 00047000 -* 00048000 -* RADDR <FROM> USERID 00049000 -* RADDR1-RADDR2 <FROM> USERID 00050000 -* RADDR . . . <FROM> USERID 00051000 -* RADDR <FROM> SYSTEM 00052000 -* RADDR . . . <FROM> SYSTEM 00053000 -* RADDR1-RADDR2 <FROM> SYSTEM 00054000 -* 00055000 -* CHANNEL X 00056000 -* CHANNEL X <FROM> USERID 00057000 -* 00058000 +* | | | 00044000 +* | DETACH | VADDR | 00045000 +* | | VADDR1-VADDR2 | 00046000 +* | | VADDR . . . | 00047000 +* | | | 00048000 +* | | RADDR <FROM> USERID | 00049000 +* | | RADDR1-RADDR2 <FROM> USERID | 00050000 +* | | RADDR . . . <FROM> USERID | 00051000 +* | | RADDR <FROM> SYSTEM | 00052000 +* | | RADDR . . . <FROM> SYSTEM | 00053000 +* | | RADDR1-RADDR2 <FROM> SYSTEM | 00054000 +* | | | 00055000 +* | | CHANNEL X | 00056000 +* | | CHANNEL X <FROM> USERID | 00057000 +* | | | 00058000 * +--------+--------------------------------+ 00059000 * 00060000 * ATTRIBUTES - 00061000
--- a/MNT394/DMKVMC.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKVMC.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -164,15 +164,15 @@ * 0 1 2 3 4 5 6 7 8 00164000 * 00165000 * 0 +-----------------------------------------------+ 00166000 -* V*1 V*2 VMCPFUNC VMCPMID 00167000 -* 8 ----------------------------------------------- 00168000 -* VMCPUSER 00169000 -* 10 ----------------------------------------------- 00170000 -* VMCPVADA VMCPLENA 00171000 -* 18 ----------------------------------------------- 00172000 -* VMCPVADB VMCPLENB 00173000 -* 20 ----------------------------------------------- 00174000 -* VMCPUSE 00175000 +* | V*1 | V*2 | VMCPFUNC | VMCPMID | 00167000 +* 8 |-----------------------------------------------| 00168000 +* | VMCPUSER | 00169000 +* 10 |-----------------------------------------------| 00170000 +* | VMCPVADA | VMCPLENA | 00171000 +* 18 |-----------------------------------------------| 00172000 +* | VMCPVADB | VMCPLENB | 00173000 +* 20 |-----------------------------------------------| 00174000 +* | VMCPUSE | 00175000 * 28 +-----------------------------------------------+ 00176000 * 00177000 * DMKVMCFC OBTAINS FREE STORAGE FOR A VMCBLOK VIA A CALL 00178000 @@ -1456,20 +1456,20 @@ * 0 1 2 3 4 5 6 7 8 01404000 * 01405000 * 0 +-----------------------------------------------+ 01406000 -* V*1 V*2 VMCMFUNC VMCMMID 01407000 -* 8 ----------------------------------------------- 01408000 -* VMCMUSER 01409000 -* 10 ----------------------------------------------- 01410000 -* VMCMVADA VMCMLENA 01411000 -* 18 ----------------------------------------------- 01412000 -* VMCMVADB VMCMLENB 01413000 -* 20 ----------------------------------------------- 01414000 -* VMCMUSE 01415000 -* 28 ----------------------------------------------- 01416000 -* 01417000 +* | V*1 | V*2 | VMCMFUNC | VMCMMID | 01407000 +* 8 |-----------------------------------------------| 01408000 +* | VMCMUSER | 01409000 +* 10 |-----------------------------------------------| 01410000 +* | VMCMVADA | VMCMLENA | 01411000 +* 18 |-----------------------------------------------| 01412000 +* | VMCMVADB | VMCMLENB | 01413000 +* 20 |-----------------------------------------------| 01414000 +* | VMCMUSE | 01415000 +* 28 |-----------------------------------------------| 01416000 +* | | 01417000 * = VMCMBUF = 01418000 -* OPTIONAL MESSAGE BUFFER 01419000 -* 01420000 +* | OPTIONAL MESSAGE BUFFER | 01419000 +* | | 01420000 * XX +-----------------------------------------------+ 01421000 * 01422000 * 01423000
--- a/MNT394/DMKVMD.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKVMD.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -16,7 +16,7 @@ * 00016000 * COMMAND - 00017000 * 00018000 -* VMDUMP (FORMAT VMTYPE) (TO * ) (( )(- :(HEXLOC2))) 00019000 +* VMDUMP (FORMAT VMTYPE) (TO * ) (( )(-|:(HEXLOC2))) 00019000 * (TO USERID) (( )( ( END ))) 00020000 * (SYSTEM ) ((HEXLOC1) ) 00021000 * (( 0 )( . (BYTECNT))) 00022000
--- a/MNT394/DMKWRM.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/DMKWRM.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -223,7 +223,7 @@ SPACE 00218000 * 00219000 * +--------+--------+--------+--------+--------+--------+ 00220000 -* 4X'FF' 4X'FF' HASH REC NO 4X'FF' FFS.... 00221000 +* | 4X'FF' | 4X'FF' | HASH | REC NO | 4X'FF' | FFS....| 00221000 * +--------+--------+--------+--------+--------+--------+ 00222000 * 00223000 CLC 0(8,R9),FFS IS THE FIRST RECORD A DELIMITER ?? 00224000 @@ -611,7 +611,7 @@ * 00581000 * GPR4 = ADDRESS OF ALLOCATION RECORD CREATED BY DMKCPI 00582000 * +----+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 00583000 -* CYLS 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 - - FF 00584000 +* |CYLS|00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|- |- |FF| 00584000 * +----+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 00585000 * 00586000 LH R2,RECCYL GET CYLINDER NUMBER OF FIRST 00587000
--- a/MNT394/MSSVS1.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/MSSVS1.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -140,7 +140,7 @@ * SLL(TEMP,8); 0132 00140000 SLL @12,8 0132 00141000 ST @12,TEMP 0132 00142000 -* R4=TEMP UCBUA; /* PUT THE CHANNEL UNIT ADDRESS 00143000 +* R4=TEMP|UCBUA; /* PUT THE CHANNEL UNIT ADDRESS 00143000 * IN REG 4 */ 00144000 SLR R4,R4 0133 00145000 IC R4,UCBUA(,UCBPTR) 0133 00146000 @@ -153,7 +153,7 @@ * TO */ 00153000 LA @12,MSSECB 0134 00154000 STCM @12,7,ADECB 0134 00155000 -* ADECB=ADECB MASK; /* TURN ON HIGH ORDER BIT TO 0135 00156000 +* ADECB=ADECB|MASK; /* TURN ON HIGH ORDER BIT TO 0135 00156000 * INDICATE CROSS MEMORY POST */ 00157000 O @12,MASK 0135 00158000 STCM @12,7,ADECB 0135 00159000 @@ -745,7 +745,7 @@ * END L1; 0295 00745000 * 0295 00746000 */* **************************************************************** */ 00747000 -*/* ERROR HAS OCCURED, DCB NOT OPENED MSS NOT INITILIZED */ 00748000 +*/* ERROR HAS OCCURED, DCB NOT OPENED | MSS NOT INITILIZED | */ 00748000 */* DMKMSS IS NOT RUNNING IN A VIRTUAL MACHINE */ 00749000 */* WRITE TO OPERATOR, RETURN TO THE SYSTEM */ 00750000 */* **************************************************************** */ 00751000 @@ -904,13 +904,13 @@ BR R14 ##C## 00904000 * 0330 00905000 */* **************************************************************** */ 00906000 -*/* */ 00907000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/ 00907000 */* THE FOLLOWING INTERNAL PROCEDURE CHECKS THE RETURN CODE */ 00908000 */* TO DETERMINE IF AN MSC ERROR WAS DETECTED DURING THE */ 00909000 */* MOUNT OR DEMOUNT. AN ALTERNATE ENTRY IS PROVIDED FOR THE CASE */ 00910000 */* THAT THE REQUEST WAS NEITHER A MOUNT NOR A DEMOUNT- AT THIS */ 00911000 */* POINT IT IS KNOWN THAT AN ERROR EXISTS BUT VM MUST BE TOLD. */ 00912000 -*/* */ 00913000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/ 00913000 */* **************************************************************** */ 00914000 * 0330 00915000 *MSSCHEK: 0330 00916000 @@ -961,11 +961,11 @@ BR @14 0340 00961000 * 0341 00962000 */* **************************************************************** */ 00963000 -*/* */ 00964000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */ 00964000 */* THIS PROCEDURE ISSUES THE DIAGNOSE INSTRUCTION */ 00965000 */* WITH THE OPERATION CODE IN R5 AND THE REAL ADDRERSS */ 00966000 */* OF THE ANSWER AREA IN R4. */ 00967000 -*/* */ 00968000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */ 00968000 */* **************************************************************** */ 00969000 * 0341 00970000 *DIAG: 0341 00971000 @@ -1116,7 +1116,7 @@ MVC MSSSDG(1,COMMPTR),SDGNDX(@14) 0381 01116000 * R15='10'X; /* SET ERROR RETURN CODE @VA12420*/ 01117000 LA R15,16 0382 01118000 -* IF VOLMTD=ON VOLMTDXC=ON THEN/* FLAG AS MTD @VA12420*/ 01119000 +* IF VOLMTD=ON|VOLMTDXC=ON THEN/* FLAG AS MTD @VA12420*/ 01119000 TM VOLMTD(@14),B'11000000' 0383 01120000 BZ @RF00383 0383 01121000 * VOLMNTD=ON; /* TURN ON MTD FLG IN MSSCOM IF 01122000 @@ -1871,7 +1871,7 @@ */* THIS VUA-TABLE ENTRY. */ 01871000 */* **************************************************************** */ 01872000 * 0523 01873000 -* VUA1(CNTVUA)=(VUA1(CNTVUA)&'00'X) /* 0523 01874000 +* VUA1(CNTVUA)=(VUA1(CNTVUA)&'00'X)|/* 0523 01874000 * @VA11343*/ 01875000 * (BYTE2(LNDEX,JNDEX)&'0F'X);/* 0523 01876000 * @VA11343*/ 01877000 @@ -1904,7 +1904,7 @@ */* BYTE OF THIS VUA-TABLE ENTRY. */ 01904000 */* **************************************************************** */ 01905000 * 0524 01906000 -* VUA2(CNTVUA)=(VUA2(CNTVUA)&'3F'X) /* 0524 01907000 +* VUA2(CNTVUA)=(VUA2(CNTVUA)&'3F'X)|/* 0524 01907000 * @VA11343*/ 01908000 * (BYTE2(LNDEX,JNDEX)&'C0'X);/* 0524 01909000 * @VA11343*/ 01910000 @@ -1937,7 +1937,7 @@ */* 1. THIS IS THE DEVICE NUMBER. */ 01937000 */* **************************************************************** */ 01938000 * 0526 01939000 -* VUA2(CNTVUA)=(VUA2(CNTVUA)&'C0'X) /* 0526 01940000 +* VUA2(CNTVUA)=(VUA2(CNTVUA)&'C0'X)|/* 0526 01940000 * @VA11343*/ 01941000 * (TEMP1&'3F'X); 0526 01942000 * 0526 01943000
--- a/MNT394/MSSVS2.ASSEMBLE Sat Jul 27 15:32:21 2019 -0400 +++ b/MNT394/MSSVS2.ASSEMBLE Sat Jul 27 15:33:26 2019 -0400 @@ -105,7 +105,7 @@ * IF PCCACPID(1:2)='C6C6'X THEN /* RUNNING ON VM? @VA13697*/ 00105000 CLC PCCACPID(2,@12),@CB02973 0131 00106000 BNE @RF00131 0131 00107000 -* TCBAFFN=TCBAFFN PCCACAFM; /* YES-SET AFFINITY @VA13697*/ 00108000 +* TCBAFFN=TCBAFFN|PCCACAFM; /* YES-SET AFFINITY @VA13697*/ 00108000 L @15,TCBPTR 0132 00109000 OC TCBAFFN(2,@15),PCCACAFM(@12) 0132 00110000 * ELSE 0133 00111000 @@ -184,7 +184,7 @@ * SLL(TEMP,8); 0148 00184000 SLL @12,8 0148 00185000 ST @12,TEMP 0148 00186000 -* R4=TEMP UCBUA; /* PUT THE CHANNEL UNIT ADDRESS 00187000 +* R4=TEMP|UCBUA; /* PUT THE CHANNEL UNIT ADDRESS 00187000 * IN REG 4 */ 00188000 SLR R4,R4 0149 00189000 IC R4,UCBUA(,UCBPTR) 0149 00190000 @@ -197,7 +197,7 @@ * TO */ 00197000 LA @12,MSSECB 0150 00198000 STCM @12,7,ADECB 0150 00199000 -* ADECB=ADECB MASK; /* TURN ON HIGH ORDER BIT TO 0151 00200000 +* ADECB=ADECB|MASK; /* TURN ON HIGH ORDER BIT TO 0151 00200000 * INDICATE CROSS MEMORY POST */ 00201000 O @12,MASK 0151 00202000 STCM @12,7,ADECB 0151 00203000 @@ -803,7 +803,7 @@ * END L1; 0313 00803000 * 0313 00804000 */* **************************************************************** */ 00805000 -*/* ERROR HAS OCCURED, DCB NOT OPENED MSS NOT INITILIZED */ 00806000 +*/* ERROR HAS OCCURED, DCB NOT OPENED | MSS NOT INITILIZED | */ 00806000 */* DMKMSS IS NOT RUNNING IN A VIRTUAL MACHINE */ 00807000 */* WRITE TO OPERATOR, RETURN TO THE SYSTEM */ 00808000 */* **************************************************************** */ 00809000 @@ -966,13 +966,13 @@ BR R14 ##C## 00966000 * 0349 00967000 */* **************************************************************** */ 00968000 -*/* */ 00969000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/ 00969000 */* THE FOLLOWING INTERNAL PROCEDURE CHECKS THE RETURN CODE */ 00970000 */* TO DETERMINE IF AN MSC ERROR WAS DETECTED DURING THE */ 00971000 */* MOUNT OR DEMOUNT. AN ALTERNATE ENTRY IS PROVIDED FOR THE CASE */ 00972000 */* THAT THE REQUEST WAS NEITHER A MOUNT NOR A DEMOUNT- AT THIS */ 00973000 */* POINT IT IS KNOWN THAT AN ERROR EXISTS BUT VM MUST BE TOLD. */ 00974000 -*/* */ 00975000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/ 00975000 */* **************************************************************** */ 00976000 * 0349 00977000 *MSSCHEK: 0349 00978000 @@ -1023,11 +1023,11 @@ BR @14 0359 01023000 * 0360 01024000 */* **************************************************************** */ 01025000 -*/* */ 01026000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */ 01026000 */* THIS PROCEDURE ISSUES THE DIAGNOSE INSTRUCTION */ 01027000 */* WITH THE OPERATION CODE IN R5 AND THE REAL ADDRERSS */ 01028000 */* OF THE ANSWER AREA IN R4. */ 01029000 -*/* */ 01030000 +*/* |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */ 01030000 */* **************************************************************** */ 01031000 * 0360 01032000 *DIAG: 0360 01033000 @@ -1178,7 +1178,7 @@ MVC MSSSDG(1,COMMPTR),SDGNDX(@14) 0400 01178000 * R15='10'X; /* SET ERROR RETURN CODE @VA12420*/ 01179000 LA R15,16 0401 01180000 -* IF VOLMTD=ON VOLMTDXC=ON THEN/* FLAG AS MTD @VA12420*/ 01181000 +* IF VOLMTD=ON|VOLMTDXC=ON THEN/* FLAG AS MTD @VA12420*/ 01181000 TM VOLMTD(@14),B'11000000' 0402 01182000 BZ @RF00402 0402 01183000 * VOLMNTD=ON; /* TURN ON MTD FLG IN MSSCOM IF 01184000 @@ -1940,7 +1940,7 @@ */* THIS VUA-TABLE ENTRY. */ 01940000 */* **************************************************************** */ 01941000 * 0542 01942000 -* VUA1(CNTVUA)=(VUA1(CNTVUA)&'00'X) /* 0542 01943000 +* VUA1(CNTVUA)=(VUA1(CNTVUA)&'00'X)|/* 0542 01943000 * @VA11343*/ 01944000 * (BYTE2(LNDEX,JNDEX)&'0F'X);/* 0542 01945000 * @VA11343*/ 01946000 @@ -1973,7 +1973,7 @@ */* BYTE OF THIS VUA-TABLE ENTRY. */ 01973000 */* **************************************************************** */ 01974000 * 0543 01975000 -* VUA2(CNTVUA)=(VUA2(CNTVUA)&'3F'X) /* 0543 01976000 +* VUA2(CNTVUA)=(VUA2(CNTVUA)&'3F'X)|/* 0543 01976000 * @VA11343*/ 01977000 * (BYTE2(LNDEX,JNDEX)&'C0'X);/* 0543 01978000 * @VA11343*/ 01979000 @@ -2006,7 +2006,7 @@ */* 1. THIS IS THE DEVICE NUMBER. */ 02006000 */* **************************************************************** */ 02007000 * 0545 02008000 -* VUA2(CNTVUA)=(VUA2(CNTVUA)&'C0'X) /* 0545 02009000 +* VUA2(CNTVUA)=(VUA2(CNTVUA)&'C0'X)|/* 0545 02009000 * @VA11343*/ 02010000 * (TEMP1&'3F'X); 0545 02011000 * 0545 02012000