ibm:vm370-lib:macro:syscom.macro_src
Table of Contents
SYSCOM Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 15, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SYSCOM.MACRO.txt
- MACRO 00001000
- SYSCOM &SECT 00002000
- PUSH PRINT 00002100
- AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
- PRINT OFF,NOGEN 00002300
- .ACC01 ANOP 00002400
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- SYSCOM DSECT 00004000
- AGO .CONT 00005000
- .CSECT ANOP 00006000
- ENTRY SYSCOM 00007000
- SYSCOM DS 0D 00008000
- .CONT ANOP 00009000
- IJBERBLC DC A(0) . ADDRESS OF ERROR BLOCK 00010000
- IJBAREX DC A(0) . EXIT ADDRESS FOR ATTENTION 00011000
- IJBERR19 DC H'0' . CANCEL EXIT FOR ATTENTION 00012000
- IJBERR24 DC H'0' . CANCEL EXIT FOR ATTENTION 00013000
- IJBPUBRS DC F'0' . SYSRES PUB ADDRESS 00014000
- IJBFETCH DC A(0) . ADDRESS OF FETCH ROUTINE 00015000
- IJBINTRT DC A(0) . ADDRESS OF I/O INTERRUPT ROUTINE 00016000
- IJBEXTRT DC A(0) . ADDRESS OF EXTERNAL INTERRUPT ROUTI 00017000
- IJBLTA DC A(0) . POINTER TO LOGICAL TRANSIENT AREA 00018000
- IJBPPBEG DC A(0) . POINTER TO PROBLEM PROGRAM AREA 00019000
- IJBFLPTR EQU * . FREE LIST POINTER 00020000
- IJBCHANQ DC F'0' . POINTER TO CHANNEL QUEUE 00021000
- IJBQSIZE DC H'0' . NUMBER OF CHANNEL QUEUE ENTRIES 00022000
- IJBQLNG DC H'0' . LENGTH OF ONE ERROR QUEUE ENTRY 00023000
- IJBNPART DC H'1' . NUMBER OF PARTITIONS 00024000
- DC H'0' . NOT USED 00025000
- IJBRSAVE DC A(0) . POINTER TO CHANNEL BUCKETS 00026000
- IJBCONSP DC A(0) . ADDRESS OF CRT TABLE 00027000
- IJBSAB DC A(0) . ADDRESS OF SAB TABLE 00028000
- IJBCHNTB DC A(0) . ADDRESS OF CHANNEL CONTROL TABLE 00029000
- IJBFLG01 DC X'00' . FLAGS AND SWITCHES 125 RMS 00030000
- IJBFLG02 DC X'00' . SWITCH BYTE 00031000
- IJBFLG03 DC X'00' . FLAGS AND SWITCHES 00032000
- IJBFLG04 DC X'00' . FLAGS AND SWITCHES 00033000
- IJBSTID DC H'0' . SYSTEM TASK SELECTION CONTR. FIELD 00034000
- IJBSELCT EQU *-1 . SYSTEM TASK SELECT BYTE 00035000
- IJBEXIT DC H'0' . POINTER TO TASK SELECTION 00036000
- IJBPDADR DC A(0) . POINTER TO PDAREA 00037000
- IJBTHPTR EQU *-1 . TRACKHOLD FLPTR 00038000
- IJBTKHLD DC F'0' . ADDRESS OF TRACK HOLD TABLE 00039000
- IJBTIMER DC A(0) . ADDR OF TIMER REQUEST TABLE 00040000
- AIF ('&SECT' EQ 'CSECT').S1 00041000
- IJBABTAB DC A(0) . ADDRESS OF AB OPTION TABLE 00042000
- AGO .S2 00043000
- .S1 ANOP 00044000
- IJBABTAB DC A(ABTAB) . ADDRESS OF AB OPTION TABLE 00045000
- .S2 ANOP 00046000
- IJBLIK DC H'0' . KEY OF TASK OWNING THE LTA 00047000
- IJBTIK DC X'0010' . TASK INTERRUPT KEY 00048000
- IJBPWR DC A(0) . POINTER TO POWER TABLE 00049000
- IJBTCAVT DC A(0) . SPACE FOR VTAM ADDRESS 00050000
- IJBRFTAB DC A(0) . POINTER TO RF TABLE 00051000
- IJBEUECB DC A(0) . PNTR TO EU & ECB TABLE 00052000
- IJBOLTEP DC A(0) . ADDRESS OF OLTEP BUCKET 00053000
- IJBRASLN DC A(0) . POINTER TO RAS LINKAGE AREA 00054000
- IJBTRTAB DC A(0) . ADRESS OF ASCII TABLE 00055000
- AIF ('&SECT' EQ 'CSECT').S3 00056000
- IJBPBOWN DC A(0) . ADDRESS OF PUB OWNERSHIP TABLE 00057000
- AGO .S4 00058000
- .S3 ANOP 00059000
- IJBPBOWN DC A(PUBOWNER) . ADDRESS OF PUB OWNERSHIP TABLE 00060000
- .S4 ANOP 00061000
- IJBJATAB DC A(0) . ADDR OF JOB ACCOUNTING COMM.AREA 00062000
- IJBPMGR DC A(0) . BASE ADDRESS OF PMGR ROUTINES 00063000
- AIF ('&SECT' EQ 'CSECT').S3A 00064000
- IJBCCWT DC A(0) . ADDRESS OF CCW TRANS WORK 00065000
- AGO .S4A 00066000
- .S3A ANOP 00067000
- IJBCCWT DC A(EXCPW) . ADDRESS OF CCW TRANS WORK 00068000
- .S4A ANOP 00069000
- IJBSAVSD DC A(0) . PNTR TO SDAID COMM. AREA 00070000
- IJBLNSTB DC A(0) . ADDRESS OF LINE MODE TABLE 00071000
- IJBAMCOM DC A(0) . ADDR OF VSAM COMM. REG. 00072000
- IJBAPTA DC A(0) . ADDRESS OF PTA 00073000
- IJBSBLK0 DC A(0) . PTR TO FIRST SYSTEM TASK BLOCK 00074000
- IJBSBLKX DC F'0' . PTR TO CURRENT SYSTEM TASK 00075000
- IJBSYSPT DC X'00' . FOR ALIGNMENT 00076000
- IJBRASPT DC AL1(0) PTR TO RAS TASK BLOCK 00077000
- IJBPMRPT DC AL1(0) . PTR FOR PMGR TASK BLOCL 00078000
- IJBSUPPT DC AL1(0) . PTR TO SPVR TASK BLOCK 00079000
- IJBCRTPT DC AL1(0) . PTR TO CRT TASK BLOCK 00080000
- IJBERPPT DC AL1(0) . PTR TO ERP TASK BLOCK 00081000
- DC 10X'00' . RES. FOR FUTURE SYSTEM TASKS 00082000
- DC F'0' . UNUSED 00083000
- IJBMVCAD DC A(0) . PTR TO MVCFLD 00084000
- DC F'0' . NOT USED 00085000
- DC H'0' . NOT USED 00086000
- DC H'0' . NOT USED 00087000
- IJBMFCER DS 11X'00' . REPOSIT. INFO MFCM AND MFCU ERP 00088000
- IJBNERQ DC AL1(0) . NUMBER OF ERROR QUEUE ENTRIES 00089000
- AIF ('&SECT' EQ 'CSECT').S5 00090000
- IJBPUBLN DC S(0) . LENGTH OF PUB TABLE 00091000
- AGO .S6 00092000
- .S5 ANOP 00093000
- IJBPUBLN DC S(PUBEND-PUBTAB+1) LENGTH OF PUB TABLE 00094000
- .S6 ANOP 00095000
- IJBAPNO DC H'1' . NUMBER OF ACTIVE PARTITIONS 00096000
- IJBSEGT DC A(0) . ADDRESS OF SEGMENT TABLE 00097000
- IJBPFT DC A(0) . ADDRESS OF PAGE FRAME TABLE 00098000
- IJBPFTX DC A(0) . PTR.TO PAGE FRAME TABLE EXTENSION 00099000
- AIF ('&SECT' EQ 'CSECT').S7 00100000
- IJBBOX DC A(0) . POINTER TO BOUNDARY BOX 00101000
- AGO .S8 00102000
- .S7 ANOP 00103000
- IJBBOX DC A(BBOX) . POINTER TO BOUNDARY BOX 00104000
- .S8 ANOP 00105000
- IJBDPDTB DC A(0) . PTR.TO DPD TABLE 00106000
- DC F'0' . NOT USED 00107000
- IJBVIRAD DC A(0) . ADDRESS OF VIRTAD ROUTINE 00108000
- IJBEOR DC F'0' . END OF REAL STORAGE 00109000
- AIF ('&SECT' EQ 'CSECT').S9 00110000
- IJBFTTAB DC A(0) . ADDRESS OF THE FETCH TABLE 00111000
- AGO .S10 00112000
- .S9 ANOP 00113000
- IJBFTTAB DC A(FCHTAB) . ADDRESS OF THE FETCH TABLE 00114000
- .S10 ANOP 00115000
- IJBSVA DC A(0) . ADDRESS OF THE SVA START 00116000
- IJBSVIS DC A(0) . ADDRESS OF SVA GETVIS AREA 00117000
- ARPSL DC A(0) - RESERVED FOR FUTURE USE 00118000
- ARPSR DC A(0) - RESERVED FOR FUTURE USE 00119000
- IJBDLAB DC A(SYS$CODE) - PTR TO SYSTEM CODE NAME 00120000
- SYS$CODE DC CL13'CMS/VSAM' - SYSTEM CODE NAME 00121000
- EJECT 00122000
- POP PRINT 00122100
- MEND 00123000
ibm/vm370-lib/macro/syscom.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator