ibm:vm370-lib:macro:syslocs.macro_src
Table of Contents
SYSLOCS Source
References
- Fixes Applied : 3
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC108DK]
Source Listing
- SYSLOCS.MACRO.txt
- MACRO 00001000
- SYSLOCS 00002000
- .* THIS MACRO GENERATES SYSTEM COUNTS AND POINTERS 00003000
- .* IT IS 'LIVE' IN THE DMKSYS PROGRAM, BUT A 'DSECT' IN ALL OTHERS: 00004000
- .* ADD MORE DATA TO THE END, AS NEEDED. 00005000
- AIF ('&SYSECT' EQ 'DMKSYS').SYS1 SKIP 'DSECT' IF DMKSYS PRG 00007000
- PUSH PRINT 00007200
- AIF ('&SYSPARM' NE 'SUP').SLO01 00007400
- PRINT OFF,NOGEN 00007600
- .SLO01 ANOP 00007800
- SYSLOCS DSECT - NOTE: USE ASYSLC = V(DMKSYSLC) TO REFERENCE 00008000
- AGO .SYS2 SKIP 'ENTRY' CARDS. 00009000
- .SYS1 ANOP @V60BBBC 00010000
- .* @V60BBBC 00010020
- .* BEFORE GOING ANY FURTHER, LET'S BE SURE ALL THE @V60BBBC 00010040
- .* REQUIRED MACROS HAVE BEEN SPECIFIED. @V60BBBC 00010060
- GBLC &SY$USR HRC033DK 00010086
- GBLC &SY$IPL HRC036DK 00010094
- GBLC &SY$OWN HRC036DK 00010096
- GBLC &SY$RES @V60BBBC 00010100
- GBLC &SY$OPR @V60BBBC 00010120
- GBLC &SY$COR @V60BBBC 00010140
- GBLC &SY$TIME @V60BBBC 00010160
- GBLC &SY$MON @V60BBBC 00010180
- GBLC &SY$JRL @V60BBBC 00010200
- GBLC &SY$ID HRC108DK 00010210
- LCLB &FAIL @V60BBBC 00010220
- AIF ('&SY$USR' NE '').OK05 HRC033DK 00010250
- &FAIL SETB 1 @V60BBBC 00010260
- MNOTE 16,'====> SEVERE ERROR. THE SYSUSR MACRO MUST BE SPECIFI+00010290
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010300
- .OK05 ANOP , HRC033DK 00010303
- AIF ('&SY$OWN' NE '').OK10 HRC033DK 00010306
- &FAIL SETB 1 HRC033DK 00010309
- MNOTE 16,'====> SEVERE ERROR. THE SYSOWN MACRO MUST BE SPECIFI+00010312
- ED IN THIS ASSEMBLY. <====' HRC033DK 00010315
- .OK10 AIF ('&SY$RES' NE '').OK20 @V60BBBC 00010320
- &FAIL SETB 1 @V60BBBC 00010340
- MNOTE 16,'====> SEVERE ERROR. THE SYSRES MACRO MUST BE SPECIFI+00010360
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010380
- .OK20 AIF ('&SY$OPR' NE '').OK30 @V60BBBC 00010400
- &FAIL SETB 1 @V60BBBC 00010420
- MNOTE 16,'====> SEVERE ERROR. THE SYSOPR MACRO MUST BE SPECIFI+00010440
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010460
- .OK30 AIF ('&SY$COR' NE '').OK40 @V60BBBC 00010480
- &FAIL SETB 1 @V60BBBC 00010500
- MNOTE 16,'====> SEVERE ERROR. THE SYSCOR MACRO MUST BE SPECIFI+00010520
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010540
- .OK40 AIF ('&SY$TIME' NE '').OK50 @V60BBBC 00010560
- &FAIL SETB 1 @V60BBBC 00010580
- MNOTE 16,'====> SEVERE ERROR. THE SYSTIME MACRO MUST BE SPECIF+00010600
- IED IN THIS ASSEMBLY. <====' @V60BBBC 00010620
- .OK50 AIF ('&SY$MON' NE '').OK60 @V60BBBC 00010640
- &FAIL SETB 1 @V60BBBC 00010660
- MNOTE 16,'====> SEVERE ERROR. THE SYSMON MACRO MUST BE SPECIFI+00010680
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010700
- .OK60 AIF ('&SY$JRL' NE '').OK70 @V60BBBC 00010720
- &FAIL SETB 1 @V60BBBC 00010740
- MNOTE 16,'====> SEVERE ERROR. THE SYSJRL MACRO MUST BE SPECIFI+00010760
- ED IN THIS ASSEMBLY. <====' @V60BBBC 00010780
- .OK70 ANOP HRC036DK 00010801
- AIF ('&SY$IPL' NE '').OK80 HRC036DK 00010802
- MNOTE 4,'SYSIPL MACRO NOT SPECFIED. DEFAULT VALUE OF NO AUTO I+00010803
- PL HAS BEEN SET' HRC036DK 00010804
- .* HRC036DK 00010805
- ENTRY DMKSYSIP AUTO IPL START TYPE HRC036DK 00010806
- .* HRC036DK 00010807
- DMKSYSIP DC X'00' NO AUTO IPL (DEFAULT) HRC036DK 00010808
- .* HRC036DK 00010809
- .OK80 ANOP HRC036DK 00010810
- AIF ('&SY$ID' NE '').OK90 HRC108DK 00010811
- MNOTE 0,'SYSID macro not specified. Default value assumed.' 00010812
- .* HRC108DK 00010813
- ENTRY DMKSYSIC,DMKSYSIL,DMKSYSID HRC108DK 00010814
- .* HRC108DK 00010815
- DMKSYSIC DC F'0' Count of entries in SYSID list HRC108DK 00010816
- DMKSYSIL DS 0XL14 No list entries HRC108DK 00010817
- DMKSYSID DS 0D HRC108DK 00010818
- DC CL8' ' Default system id (blank) HRC108DK 00010819
- .* HRC108DK 00010820
- .OK90 ANOP HRC108DK 00010821
- AIF (NOT &FAIL).OK99 HRC108DK 00010822
- MEXIT HRC108DK 00010823
- .OK99 ANOP ALL PRESENT AND ACCOUNTED FOR HRC036DK 00010850
- .* NEED 'ENTRY' CARDS FOR 'DMKSYS' PROGRAM. @V60BBBC 00010860
- ENTRY DMKSYSLC 00011000
- DMKSYSLC DS 0D - ENTRY POINT FOR 'SYSLOCS' INFORMATION 00012000
- SPACE 00013000
- ENTRY DMKSYSDT,DMKSYSTM,DMKSYSLW,DMKSYSLG 00014000
- ENTRY DMKSYSNM,DMKSYSMA,DMKSYSMU,DMKSYSND 00015000
- ENTRY DMKSYSLB,DMKSYSUD,DMKSYSPL 00016000
- ENTRY DMKSYSDW 00017000
- ENTRY DMKSYSLE,DMKSYSLD,DMKSYSCD,DMKSYSES 00018000
- ENTRY DMKSYSCK 00019000
- .SYS2 ANOP 00020000
- SPACE 00021000
- DMKSYSDT DC CL8'MM/DD/YY' - DATE OF SYSTEM LOG MESSAGE 00022000
- DMKSYSTM DC CL8'HH:MM:SS' - TIME OF SYSTEM LOG MESSAGE 00023000
- DMKSYSLW DC X'00',X'00',CL10' ' WEEKDAY OF SYSTEM LOG MESSAGE 00024000
- DMKSYSLG DC A(0) - POINTER TO 1ST LOG MESSAGE BLOCK 00025000
- SPACE 2 00026000
- DMKSYSNM DC F'0' - CURRENT NUMBER OF USERS ON THE SYSTEM 00027000
- DMKSYSMA DC F'0' - MAXIMUM NUMBER OF USERS ALLOWED ON 00028000
- DMKSYSMU DC F'0' - MAXIMUM NUMBER OF USERS ON THE SYSTEM 00029000
- DMKSYSND DC F'0' - NUMBER OF DIALED USERS ON THE SYSTEM 00030000
- SPACE 2 00031000
- DMKSYSLB DC A(0) - POINTER TO USER DIRECTORY LOCK BLOCK 00032000
- DMKSYSUD DC A(0) - POINTER TO START OF USER DIRECTORY ON SYSRES 00033000
- DMKSYSPL DC A(0) - POINTER TO A LIST OF VIRTUAL PAGE BUFFERS 00034000
- DC A(0) - RESERVED FOR FUTURE USE 00035000
- SPACE 2 00036000
- DMKSYSDW DC X'00',X'00',CL10' ' DAY OF WEEK IN HEX & EBCDIC 00037000
- SPACE 2 00038000
- DMKSYSLE DC X'7B' - DEFAULT LINE-END (POUND-SIGN) 00039000
- DMKSYSLD DC X'4A' - DEFAULT LINE-DELETE (CENT-SIGN) 00040000
- DMKSYSCD DC X'7C' - DEFAULT CHARACTER-DELETE (AT-SIGN) 00041000
- DMKSYSES DC X'7F' - DEFAULT EDIT ESCAPE (DOUBLE-QUOTE-MARK) 00042000
- SPACE 2 00043000
- DMKSYSLL DC AL1(130,129,72,80) DEFAULT LINE LENGTHS FOR *00044010
- 3210 & 3215 - 2741 & 1050 - TTY - 3270 & 3066 TERMINALS 00045010
- DC XL4'0' - RESERVED FOR FUTURE USE @VA05681 00046100
- SPACE 2 00047000
- DMKSYSCK DC D'0' - TIME OF DAY CLOCK VALUE LAST STORED *00048000
- BY ACCOUNTING, DUMP OR MACHINE CHECK 00049000
- SPACE 00050000
- AIF ('&SYSECT' NE 'DMKSYS').SYS3 00051000
- EJECT 00052000
- COPY VMBLOK 00053000
- EJECT 00054000
- COPY DEVTYPES 00055000
- CPCOLD EQU X'01' HRC036DK 00055200
- CPWARM EQU X'02' HRC036DK 00055400
- CPCKPT EQU X'20' HRC036DK 00055600
- CPFORCE EQU X'40' HRC036DK 00055800
- SPACE 1 00056000
- .SYS3 ANOP 00057000
- AIF ('&SYSECT' EQ 'DMKSYS').SLO02 00057150
- EJECT 00057300
- POP PRINT 00057450
- SPACE 00057600
- .SLO02 ANOP 00057750
- MEND 00058000
ibm/vm370-lib/macro/syslocs.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator