-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathCMSMacros.txt
4647 lines (4169 loc) · 333 KB
/
CMSMacros.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
FILE: $EXECSWT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01787000
$EXECSWT 01788000
$INEX EQU X'01' INEXECUTION 01789000
$DUMP EQU X'02' DUMP ON PROG INT. 01790000
$NONX EQU X'04' NON-EXECUTABLE 01791000
$LOAD EQU X'08' IN LOADER 01792000
$JTERM EQU X'10' DURING JOB TERMINATION 01793000
$BAT EQU X'20' BATCH MONITOR IS RUNNING 01794000
$EOS EQU X'40' END OF INPUT STREAM 01795000
MEND 01796000
FILE: ADT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 00773000
ADT 00774000
* 00775000
* ACTIVE DISK TABLE BLOCK 00776000
* 00777000
ADTSECT DSECT 00778000
* 00779000
* NEEDED FOR READ-ONLY DISKS AND READ-WRITE DISKS 00780000
* 00781000
ADTID DS CL6 DISK-IDENTIFIER (LABEL) 00782000
ADTFLG3 DS 1X -RESERVED FOR FUTURE USE- 00783000
ADTFTYP DS 1X FILETYPE FLAG-BYTE 00784000
ADTPTR DS 1A POINTER TO NEXT ADT BLOCK IN CHAIN 00785000
ADTDTA DS 1A DEVICE TABLE ADDRESS IN NUCON 00786000
ADTFDA DS 1A FILE DIRECTORY (PSTAT) ADDRESS 00787000
ADTMFDN DS 1F (1) NUMBER DBL-WORDS IN MFD 00788000
ADTMFDA DS 1A (2) MASTER FILE DIRECTORY ADDRESS 00789000
ADTHBCT DS 1F FST HYPERBLOCK COUNT 00790000
ADTFSTC DS 1F NUMBER OF FST 40-BYTE ENTRIES (FILES) 00791000
ADTCHBA DS 1A (1) POINTER TO CURRENT FST HYPERBLOCK 00792000
ADTCFST DS 1F (2) DISPLACEMENT OF CURRENT FST ENTRY 00793000
ADT1ST DS 1F (1) DISP. OF 1ST WORD IN BIT-MASK WITH 'HOLE' 00794000
ADTNUM DS 1F (2) NUMBER OF RECORDS (NUMTRKS) 00795000
ADTUSED DS 1F (3) NUMBER OF RECORDS IN USE (QTUSEDP) 00796000
ADTLEFT DS 1F (4) NUMBER OF RECORDS LEFT (QTLEFTP) 00797000
ADTLAST DS 1F (5) DISP. OF LAST NONZERO BYTE IN BIT-MASK 00798000
ADTCYL DS 1F (6) NUMBER OF CYLINDERS ON DISK (NUMCYLP) 00799000
ADTM DS 1C MODE LETTER (P,T,S,A,B,C, ETC.) 00800000
ADTMX DS 1C EXTENSION-OF-MODE LETTER (P,T,S, ETC.) 00801000
ADTFLG1 DS 1X FIRST FLAG-BYTE 00802000
ADTFLG2 DS 1X SECOND FLAG BYTE 00803000
* 00804000
ADT2ND DS 0D 00805000
* 00806000
* NEEDED JUST FOR READ-WRITE DISKS 00807000
* 00808000
ADTMSK DS 1A 800-BYTE (PQMSK) BIT-MASK ADDRESS 00809000
ADTQQM DS 1A 200-BYTE (PQQMSK) BIT-MASK ADDRESS 00810000
ADTPQM1 DS 1F (1) PQMSIZ = NO. BYTES IN PQMSK > 215 00811000
ADTPQM2 DS 1F (2) PQMNUM = NO. 800 BYTE-REC FOR PQMSK 00812000
ADTPQM3 DS 1F (3) R0NUM = NO. DBL-WORDS IN PQMSK 00813000
ADTLHBA DS 1A (1) POINTER TO LAST FST HYPER-BLOCK 00814000
ADTLFST DS 1F (2) DISP. OF LAST FST IN LAST HYPER-BLOCK 00815000
ADTNACW DS 1H NUMBER OF ACTIVE WRITE FILES - HALFWORD 00816000
ADTRES DS 1H RESERVE-COUNT (RESRVCNT) - HALFWORD 00817000
* 00818000
ADTLBM EQU ADT2ND-ADTSECT LENGTH OF MINIMUM ADT BLOCK (BYTES) 00819000
ADTLDM EQU ADTLBM/8 LENGTH OF MINIMUM ADT BLOCK IN DBL-WORDS 00820000
* 00821000
ADTLB EQU *-ADTSECT LENGTH OF FULL ADT BLOCK (BYTES) 00822000
ADTLD EQU (ADTLB+7)/8 LENGTH OF FULL ADT BLOCK IN DBL-WORDS 00823000
* 00824000
* FIRST FLAG-BYTE (ADTFLG1) DEFINITIONS 00825000
* 00826000
ADTFSF EQU X'80' ADT BLOCK IN FREE STORAGE 00827000
FILE: ADT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
ADTFRO EQU X'40' READ-ONLY DISK (ATTACHED & READY) 00828000
ADTFRW EQU X'20' READ-WRITE DISK (ATTACHED & READY) 00829000
ADTFFSTF EQU X'10' 1ST FST HYPERBLOCK IS IN FREE STORAGE 00830000
ADTFFSTV EQU X'08' FST HYPERBLOCKS ARE OF VARYING LENGTH 00831000
ADTFQQF EQU X'04' 200-BYTE QQMSK IS IN FREE STORAGE 00832000
ADTROX EQU X'02' THIS DISK HAS READ-ONLY EXTENSION(S) 00833000
ADTFMIN EQU X'01' ADT BLOCK IS MINIMUM SIZE 00834000
* 00835000
* SECOND FLAG-BYTE (ADTFLG2) DEFINITIONS 00836000
* 00837000
ADTFMFD EQU X'80' MFD IS IN CORE 00838000
ADTFALNM EQU X'40' ALL FILENAMES ARE IN CORE 00839000
ADTFALTY EQU X'20' ALL FILETYPES ARE IN CORE 00840000
ADTFMDRO EQU X'10' MODES 1-6 ARE IN CORE 00841000
ADTFALMD EQU ADTFMDRO+X'08' ALL MODES (0-6) ARE IN CORE 00842000
ADTFALUF EQU ADTFMFD+ADTFALNM+ADTFALTY+ADTFALMD ALL UFD IS IN CORE 00843000
ADTWMSG EQU X'04' READ-ONLY WARNING MESSAGE HAS BEEN GIVEN BY WRBUF 00844000
* 00845000
* OTHER PARAMETERS 00846000
* 00847000
ADTRL EQU 800 LOGICAL RECORD LENGTH 00848000
ADTML EQU 5 MAXIMUM BIT MASK LENGTH - IN RECORDS 00849000
* 00850000
* NUCON DEVICE TABLE OFFSETS 00851000
* 00852000
DTAD EQU 0 DEVICE NUMBER 00853000
DTADT EQU 3 DEVICE TYPE BYTE 00854000
DTAS EQU 4 SYMBOLIC DEVICE NAME 00855000
MEND 00856000
FILE: AFT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 00000010
AFT 00000020
* 00000030
* ACTIVE FILE TABLE BLOCK 00000040
* 00000050
AFTSECT DSECT 00000060
AFTCLD DS H DISK ADDRESS OF CURRENT CHAIN LINk - 0 00000070
AFTCLN DS H NUMBER OF CURRENT CHAIN LINK - 2 00000080
AFTCLA DS F CORE ADDRESS OF CHAIN LINK BUFFER - 4 00000090
AFTDBD DS H DISK ADDRESS OF CURRENT DATA BLOCK - 8 00000100
AFTDBN DS H NUMBER OF CURRENT DATA BLOCK - 10 00000110
AFTDBA DS F CORE ADDRESS OF CURRENT DATA BLOCK - 12 00000120
AFTCLB DS XL80 CHAIN LINK BUFFER FROM 1ST CHAIN LINK - 16 00000130
AFTFLG DS X FLAG BYTE - 96 00000140
AFTPFST DS 3X POINTER TO (STATIC) FST-ENTRY - 97 00000150
AFTIN DS H CURRENT ITEM NUMBER - 100 00000160
AFTID DS H DISPLACEMENT OF CURRENT ITEM IN DATA BLK - 102 00000170
AFTFCLA DS F CORE ADDRESS OF FIRST CHAIN LINK 00000180
AFTFCLX DS H DISK ADDRESS OF SWAPPED FCL 00000190
AFTCLDX DS H DISK ADDRESS OF SWAPPED CHAIN LINK 00000200
AFTFLG2 DS X SECOND FLAG-BYTE 00000210
DS 3X ***UNUSED*** 00000220
* 00000230
* FLAG BYTE (AFTFLG) DEFINITIONS 00000240
* 00000250
AFTUSED EQU X'80' ACTIVE FILE TABLE BLOCK IN USE 00000260
*** EQU X'40' 00000270
AFTICF EQU X'20' FIRST CHAIN LINK IN CORE FLAG 00000280
AFTFBA EQU X'10' FULL BUFFER ASSIGNED 00000290
AFTDBF EQU X'08' DATA BLOCK IN CORE FLAG 00000300
AFTWRT EQU X'04' ACTIVE WRITE 00000310
AFTRD EQU X'02' ACTIVE READ 00000320
* 00000330
AFTFULD EQU X'01' FULL-DISK SPECIAL CASE 00000340
* 00000350
* SECOND FLAG-BYTE (AFTFLG2) DEFINITIONS 00000360
* 00000370
AFTNEW EQU X'80' BRAND NEW FILE 00000380
AFTOLDCL EQU X'40' CURRENT CHAIN LINK EXISTED PREVIOUSLY 00000390
AFTCLX EQU X'20' ALTERNATE CHAIN-LINK ASSIGNED/IMPLIED 00000400
* 00000410
* COPY OF FST BLOCK IMBEDDED IN AFT BLOCK 00000420
* 00000430
AFTFST DS 0D - 104 00000440
AFTN DS D FILE NAME 00000450
AFTT DS D FILE TYPE 00000460
AFTD DS F DATE/TIME LAST WRITTEN 00000470
AFTWP DS H WRITE POINTER (ITEM NO.) 00000480
AFTRP DS H READ POINTER (ITEM NO.) 00000490
AFTM DS H FILE MODE 00000500
AFTIC DS H ITEM COUNT 00000510
AFTFCL DS H FIRST CHAIN LINK 00000520
AFTFV DS C FIXED(F)/VARIABLE(V) FLAG 00000530
AFTFB DS X FST FLAG BYTE 00000540
AFTIL DS F (MAXIMUM) ITEM LENGTH 00000550
FILE: AFT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
AFTDBC DS H 800-BYTE DATA BLOCK COUNT 00000560
AFTYR DS H YEAR 00000570
AFTADT DS F POINTER TO ACTIVE DISK TABLE - 144 00000580
AFTPTR DS F POINTER TO NEXT AFT BLOCK IN CHAIN - 148 00000590
* 00000600
AFTFSF EQU X'40' BIT IN AFTPTR INDICATES IN FREE STORAGE 00000610
* 00000620
DS 0D END OF DSECT 00000630
AFTLB EQU *-AFTSECT LENGTH OF AFT BLOCK IN BYTES 00000640
AFTLD EQU AFTLB/8 LENGTH OF AFT BLOCK IN DOUBLE WORDS 00000650
MEND 00000660
FILE: BCLOSE ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01780000
&LABEL BCLOSE &CCLST 01781000
&LABEL LA 1,&CCLST 01782000
L 15,=V(SYSCTL) 01783000
BALR 14,15 01784000
DC AL4(*+4) 01785000
MEND 01786000
FILE: BRETURN ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01766000
&LABEL BRETURN &SAVE,&ERR 01767000
&LABEL SR 15,15 01768000
IC 15,&ERR 01769000
LTR 15,15 01770000
BZ L&SYSNDX 01771000
L 14,&SAVE+56 01772000
MVC &SAVE+56(4),0(14) 01773000
LM 0,14,&SAVE 01774000
BR 14 01775000
L&SYSNDX LM 0,14,&SAVE 01776000
BC 15,4(14) 01777000
SPACE 1 01778000
MEND 01779000
FILE: CALLING ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01473000
&LABEL CALLING &ROUTE 01474000
&LABEL L 15,=V(&ROUTE) 01475000
BALR 14,15 01476000
MEND 01477000
FILE: CKEOF ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01357000
&LABEL CKEOF &ERROR 01358000
&LABEL CH 15,=H'12' 01359000
BNE &ERROR 01360000
MEND 01361000
FILE: CMLST ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01729000
&LABEL CMLST &A,&B,&C,&D,&E 01730000
&LABEL DS 0D 01731000
DC CL8'&A ' 01732000
DC CL8'&B ' 01733000
AIF (N'&C EQ 0).SEQ2 01734000
DC CL8'&C ' 01735000
AIF (N'&D EQ 0).SEQ2 01736000
DC CL8'&D ' 01737000
AIF (N'&E EQ 0).SEQ2 01738000
DC CL8'&E ' 01739000
.SEQ2 DC XL8'FFFFFFFFFFFFFFFF' 01740000
SPACE 1 01741000
MEND 01742000
FILE: CMS ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01712000
&LABEL CMS &LIST,&COM,&ERROR= 01713000
&LABEL LA 1,&LIST 01714000
AIF (N'&COM EQ 0).SEQ1 01715000
MVC 0(8,1),=CL8'&COM ' 01716000
.SEQ1 ANOP 01717000
AIF ('&COM' EQ 'PRESTORE' OR '&COM' EQ 'LIST').SEQ2 01718000
SVC X'CA' 01719000
AGO .SEQ3 01720000
.SEQ2 L 15,=V(&COM) 01721000
BALR 14,15 01722000
.SEQ3 AIF (N'&ERROR EQ 0).SEQ4 01723000
DC AL4(&ERROR) 01724000
AGO .SEQ5 01725000
.SEQ4 DC AL4(*+4) 01726000
.SEQ5 SPACE 1 01727000
MEND 01728000
FILE: CMSAVE ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01162000
CMSAVE 01163000
* 01164000
* SUPERVISOR INTERRUPT HANDLER BLOCK STORAGE DISPLACEMENTS 01165000
* 01166000
BASE EQU 0 IMAGE OF SVCINT BLOCK SAVEAREA 01167000
JSIND EQU 0 OVERRIDE INDICATOR: X'0,1,2,3' 01168000
OSFLAG EQU 1 SVC TYPE: X'00'=CMS, X'01'=OS 01169000
CHWORD EQU 2 --- NOT USED --- 01170000
CALLER EQU 4 A(CALLER SVC INSTRUCTION) 01171000
CALLEE EQU 8 CL8' CALLEE ' 01172000
OLDPSW EQU 16 D' SVC OLD PSW ' 01173000
NRMRET EQU 24 A( NORMAL RETURN ) 01174000
ERRET EQU 28 A( ERROR RETUEN ) 01175000
GPRS EQU 32 GENERAL REGISTERS AT ENTRY TO SVC. 01176000
GPR0 EQU 32 01177000
GPR1 EQU 36 R1 01178000
GPR2 EQU 40 R2 01179000
GPR3 EQU 44 R3 01180000
GPR4 EQU 48 R4 01181000
GPR5 EQU 52 R5 01182000
GPR6 EQU 56 R6 01183000
GPR7 EQU 60 R7 01184000
GPR8 EQU 64 R8 01185000
GPR9 EQU 68 R9 01186000
GPR10 EQU 72 R10 01187000
GPR11 EQU 76 R11 01188000
GPR12 EQU 80 R12 01189000
GPR13 EQU 84 R13 01190000
GPR14 EQU 88 R14 01191000
GPR15 EQU 92 R15 01192000
FPRS EQU 96 FLOATING-POINT REGISTERS AT ENTRY TO SVC 01193000
FPR0 EQU 96 FR0 01194000
FPR2 EQU 104 FR2 01195000
FPR4 EQU 112 FR4 01196000
FPR6 EQU 120 FR6 01197000
* 01198000
NGPRS EQU 128 REGS UPON RETURN; SCRATCH AREA 01199000
NGPR0 EQU 128 01200000
NGPR1 EQU 132 01201000
NGPR2 EQU 136 01202000
NGPR3 EQU 140 01203000
NGPR4 EQU 144 01204000
NGPR5 EQU 148 01205000
NGPR6 EQU 152 01206000
NGPR7 EQU 156 01207000
NGPR8 EQU 160 01208000
NGPR9 EQU 164 01209000
NGPR10 EQU 168 01210000
NGPR11 EQU 172 01211000
NGPR12 EQU 176 01212000
NGPR13 EQU 180 01213000
NGPR14 EQU 184 01214000
NGPR15 EQU 188 01215000
NFPRS EQU 192 01216000
FILE: CMSAVE ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
NFPR0 EQU 192 01217000
NFPR2 EQU 200 01218000
NFPR4 EQU 208 01219000
NFPR6 EQU 216 01220000
MEND 01221000
FILE: CMSCB ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 00001000
CMSCB 00002000
*** PTF 'CMSCB A28946CA' HAS BEEN APPLIED 00003000
*** PTF 'CMSCB A41336CA' HAS BEEN APPLIED
* 00004000
* FCB HEADER CONTROL WORDS 00005000
* 00006000
FCBHEAD DSECT 00007000
FCBFIRST DC A(0) A(FIRST FCB IN CHAIN) 00008000
FCBNUM DC H'0' NUMBER OF FCB BLOCKS CHAIN 00009000
DC H'0' -NOT USED- 00010000
* 00011000
* SIMULATED OS CONTROL BLOCKS 00012000
* 00013000
FCBSECT DSECT 00014000
FCBINIT DS 0X INTERESTING TIDBITS 00015000
FCBOPCB EQU X'08' OPEN ACQUIRED THIS CMS BLOCK 00016000
FCBPERM EQU X'04' PERMANENT CONTROL BLOCK 00017000
FCBBATCH EQU X'02' SPECIAL BATCH DATA SET 00018000
FCBNEXT DS A AL3(NEXT CMSCB) 00019000
FCBPROC DS A A(SPECIAL PROCESSING ROUTINE) 00020000
FCBDD DS CL8 DATA DEFINITION NAME 00021000
FCBOP DS CL8 CMS OPERATION 00022000
IHAJFCB DS 0D *** JOB FILE CONTROL BLOCK *** 00023000
JFCBDSNM DS 0X 44 BYTES, DATA SET NAME 00024000
FCBTAPID DS 0X TAPE IDENTIFICATION 00025000
FCBDSNAM DS CL8 DATA SET NAME 00026000
FCBDSTYP DS CL8 DATA SET TYPE 00027000
FCBPRPU EQU FCBDSTYP+4 PRINTER/PUNCH COMMAND LIST 00028000
FCBDSMD DS CL2 DATA SET MODE 00029000
FCBITEM DS H ITEM IDENTIFICATION NUMBER 00030000
FCBBUFF DS F A(INPUT-OUTPUT BUFFER) 00031000
FCBBYTE DS F DATA COUNT 00032000
FCBFORM DS CL2 FILE FORMAT: FIXED/VARIABLE RECORDS 00033000
FCBCOUT DS H RECORDS PER CMS PHYSICAL BLOCK 00034000
FCBREAD DS F N'BYTES ACTUALLY READ 00035000
FCBDEV DS X DEVICE TYPE CODE 00036000
FCBDUM EQU 0 DUMMY DEVICE 00037000
FCBPTR EQU 4 PRINTER 00038000
FCBRDR EQU 8 READER 00039000
FCBCON EQU 12 CONSOLE TERMINAL 00040000
FCBTAP EQU 16 TAPE 00041000
FCBDSK EQU 20 DISK 00042000
FCBPCH EQU 24 PUNCH 00043000
FCBCRT EQU 28 CRT 00044000
FCBMODE DS X MODE: 1,2,3,4,5 00045000
FCBXTENT DS H NUMBER OF ITEMS IN EXTENT 00046000
FCBRECL DS H DCB LRECL AT OPEN TIME 00047000
IOBIOFLG DS X IO FLAG.. IOBIN OR IOBOUT
DS X ---NOT USED--- 00048000
DS F ---NOT USED--- 00049000
DS F ---NOT USED--- 00050000
DS F ---NOT USED--- 00051000
DS F ---NOT USED--- 00052000
FCBR13 DS F SAVEAREA VECTOR R13 00053000
FILE: CMSCB ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
FCBKEYS DS A A(DDS IN'CORE KEY TABLE) 00054000
FCBPDS DS A A(PDS IN-CORE DIRECTORY) 00055000
JFCBMASK DS 8X VARIOUS MASK BITS 00056000
JFCBCRDT DS 3C DATA SET CREATION DATE (YDD) 00057000
JFCBXPDT DS 3C DATA SET EXPIRATION DATE (YDD) 00058000
JFCBIND1 DS X INDICATOR ONE 00059000
JFCBIND2 DS X INDICATOR TWO 00060000
JFCBUFNO DS X NUMBER OF BUFFERS 00061000
JFCBFTEK DS 0X BUFFERING TECHNIQUE 00062000
JFCBFALN DS X BUFFER ALIGNMENT 00063000
JFCBUFL DS H BUFFER LENGTH 00064000
JFCEROPT DS X ERROR OPTION 00065000
JFCKEYLE DS X KEYLENGTH 00066000
DS X ---NOT USED--- 00067000
JFCLIMCT DS 3X BDAM SEARCH LIMIT 00068000
FCBDSORG DS 0X DATA SET ORGANIZATION 00069000
JFCDSORG DS 2X 00070000
FCBRECFM DS 0X RECORD FORMAT 00071000
JFCRECFM DS X 00072000
JFCOPTCD DS X OPTION CODES 00073000
FCBBLKSZ DS 0H BLOCK SIZE 00074000
JFCBLKSI DS H 00075000
FCBLRECL DS 0H LOGICAL RECORD LENGTH 00076000
JFCLRECL DS H 00077000
FCBIOSW DS X I/O OPERATION INDICATOR 00078000
FCBIORD EQU X'01' READ/GET 00079000
FCBIOWR EQU X'02' WRITE/PUT 00080000
FCBCLOSE EQU X'80' DURING "CLOSE" 00081000
FCBCLEAV EQU X'40' DISP=LEAVE DURING CLOSE 00082000
FCBPVMB EQU X'04' PUT-MOVE-VAR-BLK 00083000
FCBCASE EQU X'08' ON=LOWER CASE CONSOLE I/O 00084000
DS 1X ---NOT USED--- 00085000
DEBLNGTH DS 0X L'DEB IN DBLW WORDS 00086000
DS F ---NOT USED--- 00087000
IHADEB DS 0D *** DATA EXTENT BLOCK *** 00088000
DEBTCBAD DS A A(MOVE-MODE USER BUFFER) 00089000
DS F ---NOT USED--- 00090000
DEBOFLGS DS 4X DATA SET STAUS FLAGS 00091000
DEBOPATB DS 4X OPEN/CLOSE OPTION BYTE 00092000
IOBFLG DS 0X (START OF IOB PREFIX FOR NORMAL SCH) 00093000
IOBBFLG EQU 0 DISPLACEMENT OF IOB FLAG IN IOB
IOBOUT EQU X'40' "WRITE,PUT" IN PROGRESS 00094000
IOBIN EQU X'20' "READ,GET" IN PROGRESS 00095000
IOBNXTAD DS A A(NEXT BUFFER TO BE USED) 00096000
IOBECB DS F ECB FOR QSAM NORMAL SCHEDULING 00097000
IHAIOB DS 0F *** INPUT/OUTPUT BLOCK *** 00098000
DEBDEBID DS 0X DEB IDENTIFICATION 00099000
DEBDCBAD DS A A(DATA CONTROL BLOCK) 00100000
IOBECBCC DS 0X ECB COMPLETION CODE 00101000
IOBBECBC EQU 12 DISPLACEMENT OF ECB CODE IN IOB
IOBBECBP EQU 12 DISPLACEMENT OF ECB PTR IN IOB
IOBECBPT DS A A(EVENT CONTROL BLOCK) 00102000
IOBFLAG3 DS 0X I/O ERROR FLAG 00103000
IOBBCSW EQU 16 DISPLACEMENT OF CSW IN IOB
IOBCSW DS 8X LAST CCW STORED(I.E., RESIDUAL COUNT) 00104000
FILE: CMSCB ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 003
IOBSTART DS A X'ID-NEXT BUFFER',AL3(INITIAL BUFFER) 00105000
IOBDCBPT DS A A(DATA CONTROL BLOCK) 00106000
IOBEND DS 0X END-OF-INPUT/OUTPUT BLOCK 00107000
FCBEND DS 0D END-OF FCB,JFCB,DEB,IOB BLOCKS 00108000
FCBENSIZ EQU (*-FCBSECT)/8 SIZE OF FCB ENTRY, DOUBLEWORDS 00109000
SPACE 3 00110000
ORG FCBDSTYP+4 00111000
FCBIOOUT DS CL8 SPECIAL I/O COMMAND LIST 00112000
FCBIOBUF DS A A(DATA BUFFER) 00113000
FCBCONCR DS C CONSOLE COLOR CODE 00114000
FCBCONMS DS X CONSOLE MISCELLANEOUS INFO 00115000
FCBIOCNT DS H L'DATA BUFFER 00116000
SPACE 3 00117000
* 00118000
* DATA EVENT CONTROL BLOCK 00119000
* 00120000
IHADECB DSECT 00121000
DECSDECB DS F EVENT CONTROL BLOCK 00122000
DECTYPE DS H TYPE OF I/O REQUEST 00123000
DECBRD EQU X'80' READ SF 00124000
DECBWR EQU X'20' WRITE SF 00125000
DECLNGTH DS H LENGTH OF KEY & DATA 00126000
DECDCBAD DS A V(DATA CONTROL BLOCK) 00127000
DECAREA DS A V(KEY & DATA, BUFFER) 00128000
DECIOBPT DS A V(IOB) 00129000
* BDAM EXTENSION 00130000
DECKYADR DS A V(KEY) 00131000
DECRECPT DS A V(BLOCK REFERENCE FIELD) 00132000
SPACE 3 00133000
* 00134000
* SOME FREQUENTLY USED EQUATES 00135000
* 00136000
DDNAM EQU FCBDSTYP FILETYPE = DATA SET NAME 00137000
BLK EQU X'10' RECFM=BLOCKED RECORDS 00138000
BS EQU X'20' MACRF=BSAM 00139000
DA EQU X'20' DSORG=DIRECT ACCESS 00140000
FXD EQU X'80' RECFM=FIXED LENGTH RECORDS 00141000
IS EQU X'80' DSORG=INDEXED SEQUENTIAL 00142000
LOC EQU X'08' MACRF=LOCATE MODE 00143000
MOV EQU X'10' MACRF=MOVE MODE 00144000
PS EQU X'40' DSORG=PHYSICAL SEQUENTIAL 00145000
PO EQU X'02' DSORG=PARTIONED ORGANIZATION 00146000
PREVIOUS EQU X'80' OFLGS=PREVIOUS I/O OPERATION 00147000
QS EQU X'40' MACRF=QSAM 00148000
UND EQU X'C0' RECFM=UNDEFIN FORMAT RECORDS 00149000
VAR EQU X'40' RECFM=VARIABLE LENGTH RECORDS 00150000
MEND 00151000
FILE: CMSREG ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01222000
CMSREG 01223000
* 01224000
*SYMBOLIC NAMES FOR REGISTERS. 01225000
* 01226000
* GENERAL REGISTERS. 01227000
R0 EQU 0 01228000
R1 EQU 1 01229000
R2 EQU 2 01230000
R3 EQU 3 01231000
R4 EQU 4 01232000
R5 EQU 5 01233000
R6 EQU 6 01234000
R7 EQU 7 01235000
R8 EQU 8 01236000
R9 EQU 9 01237000
R10 EQU 10 01238000
R11 EQU 11 01239000
R12 EQU 12 01240000
R13 EQU 13 01241000
R14 EQU 14 01242000
R15 EQU 15 01243000
SPACE 1 01244000
* FLOATING POINT REGISTERS. 01245000
FR0 EQU 0 01246000
FR2 EQU 2 01247000
FR4 EQU 4 01248000
FR6 EQU 6 01249000
MEND 01250000
FILE: CMSTYPE ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01152000
&LABEL CMSTYPE &MESSAGE,&COLOR=B 01153000
&LABEL DS 0H
CNOP 0,4 01156000
BAL 1,SVC&SYSNDX
TYP&SYSNDX DC CL8'TYPLIN' 01157000
DC A(MES&SYSNDX),C'&COLOR',AL3(L'MES&SYSNDX) 01158000
MES&SYSNDX DC C&MESSAGE 01159000
SVC&SYSNDX SVC X'CA' 01160000
MEND 01161000
FILE: CMSYSREF ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 00400010
CMSYSREF &OPTION 00400020
AIF (N'&OPTION NE 0).CSECT 00400030
* 00400040
* GENERALIZED EQUATES FOR HARD-CORE QUANTITIES 00400050
* 00400060
INSTAL EQU X'D0' INSTALLATION HEADING 00400070
VERIDENT EQU X'B0' VERSION IDENTIFICATION 00400080
DATEREAL EQU X'98' DATE: MM/DD/YY 00400090
TIMEREAL EQU X'A0' TIME: HH.MM.SS 00400100
CPSAVE EQU X'84' CP "SAVESYS" HOOKS 00400110
COMMVECT EQU X'10' V(COMMUNICATION VECTOR TABLE) 00400120
VSYSREF EQU X'14' V(CMS SYSTEM REFERENCE TABLE) 00400130
COMMNAME EQU X'90' TERMINAL-ENTERED COMMAND NAME 00400140
PSWEXTO EQU X'18' EXTERNAL OLD PSW 00400150
PSWEXTN EQU X'58' EXTERNAL NEW PSW 00400160
PSWSVCO EQU X'20' SUPERVISOR OLD PSW 00400170
PSWSVCN EQU X'60' SUPERVISOR NEW PSW 00400180
PSWPRGO EQU X'28' PROGRAM OLD PSW 00400190
PSWPRGN EQU X'68' PROGRAM NEW PSW 00400200
PSWMACO EQU X'30' MACHINE OLD PSW 00400210
PSWMACN EQU X'70' MACHINE NEW PSW 00400220
PSWIOTO EQU X'38' IN-/OUT-PUT OLD PSW 00400230
PSWIOTN EQU X'78' IN-/OUT-PUT NEW PSW 00400240
CSW EQU X'40' CHANNEL STATUS WORD 00400250
NAMESYS EQU X'F8' NAME OF IPLED SYSTEM 00400260
* STATUS BITS: 00400270
* -CSW + 4 00400280
ATTN EQU X'80' ATTENTION 00400290
STMD EQU X'40' STATUS MODIFIER 00400300
CUE EQU X'20' CONTROL UNIT END 00400310
BUSY EQU X'10' BUSY 00400320
CHE EQU X'08' CHANNEL END 00400330
DVE EQU X'04' DEVICE END 00400340
UNCK EQU X'02' UNIT CHECK 00400350
UNEX EQU X'01' UNIT EXCEPTION 00400360
* -CSW + 5 00400370
PCI EQU X'80' PROGRAM-CONTROLLED INTERRUPTION 00400380
ICL EQU X'40' INCORRECT LENGTH 00400390
PGCK EQU X'20' PROGRAM CHECK 00400400
PTCK EQU X'10' PROTECTION CHECK 00400410
CHDK EQU X'08' CHANNEL DATA CHECK 00400420
CHCK EQU X'04' CHANNEL CONTROL CHECK 00400430
INCK EQU X'02' INTERFACE CONTROL CHECK 00400440
CNCK EQU X'01' CHAINING CHECK 00400450
CAW EQU X'48' CHANNEL ADDRESS WORD 00400460
TIMER EQU X'50' TIMER 00400470
* 00400480
* DISPLACEMENTS WITHIN "NUCONSCT" 00400490
* 00400500
DCMSAREA EQU X'1C' 00400510
DCONSOLE EQU X'300' 00400520
DCORESIZ EQU X'4' 00400530
DERRINF EQU X'1C' 00400540
DHIMAIN EQU X'DC' 00400550
FILE: CMSYSREF ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
DIPLDEV EQU X'E0' 00400560
DLDADDR EQU X'CC' 00400570
DLDRTBL EQU X'14' 00400580
DLOCCNT EQU X'C8' 00400590
DLOWEXT EQU X'D8' 00400600
DLSTADR EQU X'C4'
DLSTSVC EQU X'0' 00400610
DNRMINF EQU X'1C' 00400620
DPDISK EQU X'318' 00400630
DPSW EQU X'D0' 00400640
DSDISK EQU X'30C' 00400650
DSTADDR EQU X'10' 00400660
DSYSDEV EQU X'E2' 00400670
DTBLNG EQU X'18' 00400680
DTDISK EQU X'324' 00400690
DUSFL EQU X'8' 00400700
* 00400710
* DISPLACEMENT WITHIN "SYSREF" --- COMMUNICATION VECTOR REGION 00400720
* 00400730
DADTLKP EQU 156 00400740
DADTLKW EQU 192 00400750
DADTP EQU 40 00400760
DADTS EQU 76 00400770
DADTT EQU 64 00400780
DBTYPLIN EQU 80 00400790
DBUFFER EQU 4 00400800
DCMSOP EQU 8 00400810
DCMSRET EQU 172 00400820
DCOMBUF EQU 188 00400830
DDEVTAB EQU 12 00400840
DDIOSECT EQU 132 00400850
DDMPEXEC EQU 124 00400860
DDMPLIST EQU 100 00400870
DEXEC EQU 180 00400880
DEXISECT EQU 200 00400890
DFCBTAB EQU 240 00400900
DFREDBUF EQU 84 00400910
DFREE EQU 104 00400920
DFRET EQU 108 00400930
DFSTLKP EQU 16 00400940
DFSTLKW EQU 28 00400950
DFVS EQU 0 00400960
DGETCLK EQU 20 00400970
DGFLST EQU 24 00400980
DIADT EQU 36 00400990
DIOERRSP EQU 48 00401000
DIONTABL EQU 232 00401010
DLNKLST EQU 92 00401020
DMACLIBL EQU 144 00401030
DMACSECT EQU 148 00401040
DNOTRKST EQU 176 00401050
DNUMTRKS EQU 120 00401060
DOPSECT EQU 8 00401070
DOSRET EQU 168 00401080
DOSVECT EQU 100 00401090
FILE: CMSYSREF ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 003
DOSTABLE EQU 136 00401100
DPIE EQU 32 00401110
DPRTCLK EQU 44 00401120
DRDTK EQU 52 00401130
DSCAN EQU 56 00401140
DSCBPTR EQU 212 00401150
DSETCLK EQU 112 00401160
DSSTAT EQU 60 00401170
DSTART EQU 184 00401180
DSTATEXT EQU 164 00401190
DSTRINIT EQU 96 00401200
DSVCSECT EQU 152 00401210
DSWITCH EQU 68 00401220
DSYSCTL EQU 236 00401230
DTABEND EQU 72 00401240
DTBL2311 EQU 204 00401250
DTBL2314 EQU 208 00401260
DTXTLIBS EQU 116 00401270
DUPUFD EQU 160 00401280
DUSABRV EQU 196 00401290
DUSER1 EQU 216 00401300
DUSER2 EQU 220 00401310
DUSER3 EQU 224 00401320
DUSER4 EQU 228 00401330
DUSVCTBL EQU 140 00401340
DWRTK EQU 88 00401350
* 00401360
MEXIT 00401370
.CSECT ANOP 00401380
* 00401390
* SYSTEM COMMUNICATION VECTOR REGION 00401400
* 00401410
SYSREF DS 0F TABLE OF EXTERNAL REFERENCES 00401420
* NOTATION: ** = NOT USED, RESERVED -- = DYNAMICALLY SET 00401430
* 00401440
DC V(FVS) . 0 00401450
DC V(BUFFER) . 4 00401460
DC V(CMSOP) . 8 00401470
DC V(DEVTAB) . 12 00401480
DC V(FSTLKP) . 16 00401490
DC V(GETCLK) . 20 00401500
DC A(GFLST) . 24 00401510
DC V(FSTLKW) . 28 00401520
DC V(PIE) . 32 00401530
DC V(IADT) . 36 00401540
DC V(ADTP) . 40 00401550
DC V(PRTCLK) . 44 00401560
DC V(IOERRSUP) . 48 00401570
DC V(RDTK) . 52 00401580
DC V(SCAN) . 56 00401590
DC A(0) SSTAT -- 00401600
DC V(ADTT) . 64 00401610
DC V(SWITCH) . 68 00401620
DC V(TABEND) . 72 00401630
DC V(ADTS) . 76 00401640
FILE: CMSYSREF ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 004
DC V(BTYPLIN) . 80 00401650
DC V(FREEDBUF) . 84 00401660
DC V(WRTK) . 88 00401670
DC V(LNKLST) . 92 00401680
DC V(STRINIT) . 96 00401690
DC V(DUMPLIST) . 100 00401700
DC V(FREE) . 104 00401710
DC V(FRET) . 108 00401720
DC V(SETCLK) . 112 00401730
DC V(TXTLIBS) . 116 00401740
DC V(NUMTRKS) . 120 00401750
DC V(DMPEXEC) . 124 00401760
DC V(FEIBM) . 128 00401770
DC V(DIOSECT) . 132 00401780
DC V(OSTABLE) . 136 00401790
DC V(USVCTBL) . 140 00401800
DC V(MACLIBL) . 144 00401810
DC V(MACSECT) . 148 00401820
DC V(SVCSECT) . 152 00401830
DC V(ADTLKP) . 156 00401840
DC V(UPUFD) . 160 00401850
DC A(0) SSTATEXT -- 00401860
DC V(OSRET) . 168 00401870
DC V(CMSRET) . 172 00401880
DC V(NOTRKST) . 176 00401890
DC V(EXEC) . 180 00401900
DC V(START) . 184 00401910
DC V(COMBUF) . 188 00401920
DC V(ADTLKW) . 192 00401930
DC V(USABRV) . 196 00401940
DC V(EXISECT) . 200 00401950
DC V(TBL2311) . 204 00401960
DC V(TBL2314) . 208 00401970
DC V(SCBPTR) . 212 00401980
DC A(3) USER1 ** 00401990
DC A(3) USER2 ** 00402000
DC A(3) USER3 ** 00402010
DC A(3) USER4 ** 00402020
DC V(IONTABL) . 232 00402030
DC V(SYSCTL) . 236 00402040
DC V(FCBTAB) . 240 00402050
* 00402060
MEND 00402070
FILE: DEVTABEX ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO DEV00010
DEVTABEX &PREFIX=,&ADDINFO=NO DEV00020
* DATED: 6 JUNE 1971 DEV00030
*** PTF 'DEVTABEX AM3636CA' HAS BEEN APPLIED *** DEV00040
&PREFIX.EXTD DSECT DEV00050
DS 0F DEV00060
DS CL2 LOAD DEV EXT TABLE ADDRESS DEV00070
DS CL4 LOAD INST DEV00080
DS CL2 BR INST DEV00090
&PREFIX.ENT DS 0C DEV00100
&PREFIX.PSW DS CL8 PSW OF ERROR OPERATION DEV00110
&PREFIX.CSW DS CL8 CSW AT ERROR TIME DEV00120
&PREFIX.ERBY DS CL1 ERROR STATUS DEV00130
* C'Y' = I/O ERROR DEV00140
* C'N' = NO I/O ERROR DEV00150
* C'R' = RETRY IOERR INTERNAL- DEV00160
* I/O OPERATION DEV00170
* C'E' = END OF FILE DEV00180
* C'U' = INTERVEN REQ DURING DEV00190
* C'I' = INCOR LEN DEV00200
* ERROR RECOVERY DEV00210
&PREFIX.STAT DS CL1 STATUS FIELD DEV00220
* EQU'S DEV00230
* X'80' = SENSE OPERATION DEV00240
* X'40' = CE ONLY DEV00250
* X'20' = DE ONLY DEV00260
* X'10' = IGNORE INTERRUPTS DEV00270
* X'08' = WAIT SATISFIED DEV00280
* X'04' = CLOSIO ON DEV00290
* X'02' = READ 2-N TIMES DEV00300
* X'01' = RESERVED FOR FUTURE USE DEV00310
&PREFIX.ERR DS XL2 NUMBER OF LATEST- DEV00320
* I/O ERROR DEV00330
* NOTE: SEE IODEFTAB MACRO IN IOERR FOR MATCHING NUMBER IN DEV00340
* ABOVE FEILD TO AN ERROR ENTRY. ALSO, THE FOLLOWING DEV00350
* NUMBERS HAVE SPECIAL MEANINGS: DEV00360
* X'AF00' = SIO OR DIAG BUSY CONDITION DEV00370
* X'CF00' = INVALID CALLING LIST FROM I/O ROUTINT TO IOERR DEV00380
&PREFIX.CT0 DS H GENERAL COUNTER0 DEV00390
&PREFIX.CT DS H GENERAL COUNTER DEV00400
&PREFIX.RT DS F INTERRUPT RT ADDRESS DEV00410
&PREFIX.DT DS F DEV TAB ADDRESS DEV00420
AIF ('&ADDINFO' EQ 'NO').NOMORE DEV00430
DS 0D ALIGN ON D-WORD DEV00440
&PREFIX.CCW DS CL8 DEV00450
&PREFIX.NOP DS CL8 DEV00460
&PREFIX.WAIT DS CL8 DEV00470
&PREFIX.SYMD DS CL4 DEV00480
&PREFIX.ZERO DS F DEV00490
&PREFIX.FLD DS F DEV00500
&PREFIX.WA DS CL80 CARD IMAGE DEV00510
.NOMORE ANOP DEV00520
MEND DEV00530
FILE: DIOSCT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01071000
DIOSCT &CSECT 01072000
AIF (N'&CSECT NE 0).SEQ2 01073000
DIODSECT DSECT 01074000
.SEQ2 ANOP 01075000
IOOLD DC 1D'0' IO-OLD-PSW (FROM INTERRUPT ROUTINE) 01076000
DIOCSW DC 1D'0' CSW (FROM INTERRUPT ROUTINE) 01077000
* 01078000
* WAIT CALLING SEQUENCE 01079000
* 01080000
DS 0F 01081000
PWAIT DC CL8'WAIT' 01082000
DC C'DSK-' FILLED IN TO CORRECT SYMBOLIC DISK NO. 01083000
DC F'0' 01084000
DC F'0' 01085000
* 01086000
QQDSK1 DC F'0' 1ST TWO BYTES ALWAYS = 0 01087000
QQDSK2 EQU QQDSK1+2 HALFWORD COPY OF 16TH TRACK DISK-ADDRESS 01088000
* 01089000
* CCW CHAIN 01090000
* 01091000
CCW1 CCW X'07',SEEKADR,CC,6 = SEEK 01092000
CCW2 CCW X'31',SEEKADR+2,CC,5 = SEARCH 01093000
CCW3 CCW X'08',*-8,0,1 = TIC BACK TO SEARCH 01094000
RWCCW CCW X'00',*-*,CC+SILI,*-* = READ OR WRITE DATA 01095000
CCWNOP CCW X'03',0,SILI,1 = NO-OP FOR CE & DE TOGETHER 01096000
* 01097000
SEEKADR DC XL7'00' SEEK/SEARCH INFO (1ST 3 BYTES ARE 0) 01098000
* 01099000
IOCOMM DC X'00' SET TO READ (06) OR WRITE (05) 01100000
* 01101000
SENCCW CCW X'04',SENSB,SILI,6 = SENSE COMMAND (USED IF ERROR) 01102000
* 01103000
CC EQU X'40' COMMAND-CHAIN 01104000
SILI EQU X'20' ... 01105000
* 01106000
* I/O INFO 01107000
* 01108000
LASTCYL DC F'0' BECOMES 'LAST CYLINDER-NUMBER USED' 01109000
LASTHED DC F'0' BECOMES 'LAST HEAD-NUMBER USED' 01110000
* 01111000
DEVTYP DC X'00' UNIT-TYPE = 01 (2311), 08 (2314) 01112000
* 01113000
DIOFLAG DC X'00' RDTK/WRTK FLAG: 01114000
* 01115000
DIAGNG EQU X'80' DIAGNOSE I/O INOPERATIVE 01116000
* 01117000
TOOBIG EQU X'04' BYTE-COUNT > 800, TOO BIG FOR DIAGNOSE IO 01118000
WRTKF EQU X'02' WRITING FIRST CHAIN LINK 01119000
QQTRK EQU X'01' HANDLING FIRST CHAIN LINK 01120000
* 01121000
DIAGNUM EQU 24 **** NUMBER ASSIGNED BY 'CP' FOR DIAGNOSE I/O **** 01122000
* 01123000
SENSB DC XL6'00' SENSE-INFORMATION 01124000
* 01125000
FILE: DIOSCT ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 002
* MISCELLANEOUS STORAGE... 01126000
* 01127000
DOUBLE DC 1D'0' (FOR 'CVD' USE) 01128000
* 01129000
* KEEP THE FOLLOWING THREE IN ORDER... 01130000
XRSAVE DS 15F REGISTERS 0-14 SAVED HERE FOR RDTK-WRTK 01131000
DC AL3(0) FIRST 3 BYTES OF R15 ERROR-CODE 01132000
ERRCODE DC AL1(*-*) ERROR-CODE (IN R15 AT EXIT) 01133000
* 01134000
* KEEP THE FOLLOWING TWO IN ORDER.. 01135000
FREER0 DC F'0' NO. DBL-WORDS OF FREE STORAGE (IF ANY) 01136000
DIOFREE DC F'0' ADD. OF FREE STORAGE FOR BUFFER OR CCW'S 01137000
* 01138000
R1SAVE DC F'0' ACTIVE-DISK-TABLE POINTER SAVED HERE 01139000
R2SAVE DC A(0) A(DEVICE TABLE EXTENTION) 01140000
SAVECC DC F'0' SIO CONDITION CODE 01141000
DKIONORM DC XL2'0C00' NORMAL COMPLETION STATUS ("CE+DE") 01142000
DKIODE DC XL2'0400' DEVICE END 01143000
* DEBUG CCW'S 01144000
DKSFP CCW X'1F',DKFPKEY,X'60',1 SET FILE MASK 01145000
DKTIC CCW X'08',*,0,1 TIC TO SYSTEM 01146000
DKFPKEY DC B'10000000' WRITE KEY DATA 01147000
DKNORM EQU C'N' SUCCESSFUL DASD I/O 01148000
DKERROR EQU C'Y' UNSUCCESSFUL DASD I/O 01149000
* 01150000
MEND 01151000
FILE: DJCB ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01743000
DJCB 01744000
DJCB DSECT JOB CONTROL LIMITS DSECT 01745000
DS 0D 01746000
JBUFF DS F ADDRESS OF SYSIN BUFFER 01747000
JREC DS F ADDRESS OF NEXT SYSIN LOGICAL 01748000
JNREC DS H SYSIN BLOCKING FACTOR 01749000
JRECNO DS H NO OF THE NEXT LOGICAL REC IN BLOCK 01750000
JBUFSIZ DS F SIZE OF SYSIN BUFFER 01751000
JWBUFF DS F ADDRESS OF SYSOUT BUFFER 01752000
JWREC DS F ADDRESS OF NEXT SYSOUT LOGICAL REC 01753000
JNWREC DS H BLOCKING FACTR OF SYSOUT 01754000
JWRECN DS H NO OF NEXT RECORD IN SYSOUT BUFFER 01755000
JWBUFSIZ DS F SIZE OF SYSOUT BUFFER 01756000
TIMINIT DS F INITIAL VALUE OF TIMER 01757000
JWLIM DS H NUMBER OF LINES PERMITTED 01758000
TIMLIM DS H NUMBER OF TIMER INTERRUPTS PERMITTED 01759000
JPFT07 DS H NUMBER OF PUNCH CARDS PERMITTED 01760000
JSCLIM DS H NUMBER OF SC4020 FRAMES PERMITTED 01761000
JWTOT DS H NUMBER LINES WRITTEN THIS JOB 01762000
TIMTOT DS H NUMBER TIMER INTERRUPTS THIS JOB 01763000
JSCTOT DS H NUMBER OF SC4020 FRAMES THIS JOB 01764000
MEND 01765000
FILE: DTAPE ASP360 W1 CONVERSATIONAL MONITOR SYSTEM PAGE 001
MACRO 01478000
DTAPE 01479000
DTAPE DSECT 01480000
DS 0D 01481000
TPLST DS 8C 01482000
TPOPTN DS 8C 01483000
TPUNIT DS 4C 01484000
TPMSK DS 1X 01485000
TPBUFA DS 3X 01486000
TPBUFL DS 1F 01487000
TPBYTR DS 1F 01488000
* 01489000
TPSAVE DS 5F 01490000
* 01491000
TPUTBL DS 16C 01492000
* 01493000
TPTBL DS 8C 01494000
* 01495000
TPMTBL DS 4X 01496000
* 01497000
TPIOSW DS 4X 01498000
MEND 01499000