|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6604 (0x19cc)
Types: s3xseg
Names: »S$EPAS«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EPAS«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EPAS«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 00030000
.* * 00040000
.* NAME: $EPAS * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE FIELDS IN * 00070000
.* USER PROGRAM APPENDED STORAGE. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$EPAS 00120000
TEXT 00130000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000
* * 00150000
* EQUATES TO OFFSETS IN THE 'PROGRAM APPENDED STORAGE' AREA. * 00160000
* 01/08/74 MODEL 15 * 00170000
* * 00180000
* * 00190000
* THE PAS IS DIVIDED UP INTO THREE MAIN STORAGE AREAS... * 00200000
* 1. PAS CONSTANTS AND WORK AREAS. THIS AREA CONTAINS * 00210000
* ALL THE INFORMATION PERTAENT TO A TASK. * 00220000
* THIS AREA STARTS ON A SECTOR BOUNDARY AND IS LESS * 00230000
* THAN A SECTOR IN LENGTH. * 00240000
* * 00250000
* 2. FT AND TT ENTRIES. THIS AREA IMMEDIATELY FOLLOWS * 00260000
* THE PAS CONSTANTS AND CONTAINS THE 'FORMAT TABLE' * 00270000
* AND 'TERMINAL TABLE' (TT AND FT) ENTRIES. THIS AREA * 00280000
* WILL RUN UP TO THE FIRST BYTE OF THE NEXT AREA. * 00290000
* * 00300000
* 3. 'FIELD DESCRIPTOR AREA' (FDT). THIS AREA WILL START * 00310000
* ON A SECTOR BOUNDARY AND ITS LENGTH WILL BE EVENLY * 00320000
* DIVISIBLE BY SECTORS. THE 'FDT' OF A FORMAT WILL BE * 00330000
* READ INTO THIS AREA FROM THE OBJECT LIBRARY ON DISK. * 00340000
* * 00350000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00360000
SPACE 2 00370000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00380000
* CONSTANT AND WORK AREA. * 00390000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00400000
SPACE 00410000
PAS EQU 0 START OF PROGRAM APPENDED STORAG 00420000
PASITT EQU PAS+1 @ OF FIRST TERMINAL TABLE ENTRY. 00430000
* 2 (TT ENTRY) 00440000
SPACE 00450000
PASNFT EQU PASITT+2 @ OF NEXT AVAILABLE TT OR FORMAT 00460000
* 2 TABLE (FT) ENTRY. 00470000
SPACE 00480000
PASEFT EQU PASNFT+2 @ OF END OF AREA TO BUILD TT AND 00490000
* 2 FT ENTRIES. (SHOULD BE END OF 00500000
* PAS AREA. 00510000
SPACE 00520000
PASFDT EQU PASEFT+2 @ OF FDT AREA 00530000
* 2 00540000
SPACE 00550000
PASTID EQU PASFDT+1 TASK ID 00560000
* 1 00570000
SPACE 00580000
PASFDL EQU PASTID+1 NUMBER OF 256 BYTE BLOCKS OF 00590000
* 1 CORE NEEDED FOR LARGEST FDT. 00600000
SPACE 00610000
PASCT@ EQU PASFDL+2 @ OF TT ENTRY CURRENTLY PROCESS. 00620000
* 2 00630000
SPACE 00640000
PASCTN EQU PASCT@+6 NAME OF TERMINAL CURRENTLY 00650000
* 6 BEING PROCESSED. 00660000
SPACE 00670000
PASCF@ EQU PASCTN+2 @ OF FT FOR FDT CURRENTLY IN PAS 00680000
* 2 00690000
SPACE 00700000
PASFR@ EQU PASCF@+2 RETURN POINT FROM DFF000 00710000
* 2 00720000
SPACE 00730000
PASJR@ EQU PASFR@+2 RETURN POINT FROM DFJ000 00740000
* 2 00750000
SPACE 00760000
PASXR@ EQU PASJR@+2 COMMON SAVE AREA FOR RETURN 00770000
* 2 ADDRESS FOR MISC ROUTINES. 00780000
SPACE 00790000
PASRE@ EQU PASXR@+2 @ OF RETURN POINT TO OP CODE 00800000
* 2 LOGIC AFTER RETURN FROM $CC4CM. 00810000
SPACE 00820000
PASOH@ EQU PASRE@+2 @ OF OUTPUT HOLD AREA CURRENTLY 00830000
* 2 IN USE BY THIS TASK 00840000
SPACE 00850000
PASOHL EQU PASOH@+2 LENGTH OF OUTPUT HOLD AREA 00860000
* 2 CURRENTLY USING. 00870000
SPACE 00880000
PASOHE EQU PASOHL+2 END ADDR OF OHA 00890000
* 2 00900000
SPACE 00910000
PASCCC EQU PASOHE+1 COPY CONTROL CHARACTER 00920000
* 1 00930000
SPACE 00940000
PASTOD EQU PASCCC+2 'TO'DEVICE + CONTROL UNIT 00950000
* 2 00960000
SPACE 00970000
PASFRD EQU PASTOD+2 'FROM'DEVICE ADDRESS FOR 'COPY' 00980000
* 2 00990000
PASID@ EQU PASFRD ADDRESS OF LINE ID IN CCCOM 01000000
* 2 01010000
SPACE 01020000
PASFLG EQU PASFRD+1 FLAG BYTE 01030000
* 1 01040000
PASFRT EQU BIT0 1-'TO'TERMINAL 01050000
* 0-'FROM'TERMINAL 01060000
PASRST EQU BIT2 1-RESET MDT SET IN USERS WCC 01070000
PASBLK EQU BIT3 0-NO BLOCKING 01080000
* 1- BLOCKING 01090000
PASFTS EQU BIT4 FIRST TIME SWITCH FOR BLOCKING 01100000
* 1- FIRST TIME THROUGH 01110000
PASRUF EQU BIT5 READ UNDER FORMAT ACCEPT INPUT 01120000
* 1-ACCEPT INPUT AND TUBRUF ON 01130000
SPACE 2 01140000
* * * * * * * DISK IOB FOR DISK READS. 01150000
SPACE 01160000
PASIOB EQU PASFLG+1 BEGINING OF IOB 01170000
SPACE 01180000
PASDBE EQU PASIOB+28 END OF IOB 01190000
SPACE 2 01200000
SPACE 2 01210000
* * * * * * * CCP PARAMETER LIST STORAGE AREA FROM USER PGM. 01220000
SPACE 01230000
PASPL@ EQU PASDBE+2 @ OF USER PARM LIST 01240000
* 2 01250000
SPACE 01260000
PASCPL EQU PASPL@+1 BEGIN OF PARM LIST 01270000
SPACE 01280000
PASCPE EQU PASCPL+11 END OF PARM LIST(LAST 4 BYTES 01290000
* 16 ARE NOT SAVED. 01300000
SPACE 2 01310000
PASIX1 EQU PASCPE+2 SAVE ARE FOR $CC4II XR1 01320000
* 2 01330000
SPACE 01340000
PASIAR EQU PASIX1+2 SAVE AREA FOR $CC4II RETURN @ 01350000
* 2 01360000
SPACE 01370000
PASOF@ EQU PASIAR+2 @ IN FDT CURRENTLY WORKING AT 01380000
* 2 FOR OUTPUT BUILD 01390000
SPACE 01400000
PASHAP EQU PASOF@+2 POINTER TO AREA IN OUTPUT HOLD 01410000
* 2 AREA CURRENTLY WORKING AT. 01420000
SPACE 01430000
PASRAP EQU PASHAP+2 POINTER TO RECORD AREA CURRENTLY 01440000
* 2 WORKING AT. 01450000
SPACE 01460000
PASTTE EQU PASRAP+2 @ OF EMPTY TT ENTRY 01470000
* 2 01480000
SPACE 01490000
PASCFT EQU PASTTE+6 NAME OF FORMAT DESIRED FOR 'PUT' 01500000
* 6 01510000
SPACE 01520000
PASTC EQU PASCFT+1 TERMINATION CODE 01530000
* 1 01540000
SPACE 01550000
PASTTS EQU PASTC+2 TOTAL TEXT SIZE FOR OUTPUT 01560000
* 2 01570000
SPACE 01580000
PASTTM EQU PASTTS+2 TOTAL TEXT MOVED SO FAR 01590000
* 2 01600000
SPACE 01610000
PASLTH EQU PASTTM+2 TOTAL END POSITION OF TEXT IN 01620000
* 2 OHA 01630000
SPACE 01640000
PASUDL EQU PASLTH+2 USER DEFINED DATA LNG FOR OUTPUT 01650000
* 2 01660000
SPACE 01670000
PASWCC EQU PASUDL+1 WCC AND CCC SAVE AREA 01680000
* 1 01690000
SPACE 01700000
PASTAR EQU PASWCC+2 SAVE AREA FOR ARR OF CALLER TO 01710000
* 2 A ROUTINE IN DFCR WHICH MIGHT 01720000
* BE INTERRUPTED AND TASK SWITCHED 01730000
SPACE 01740000
PASWRK EQU PASTAR+2 WORK AREA 01750000
* 2 01760000
SPACE 01770000
PASWKZ EQU PASWRK+2 WORK AREA WITH HIGH-ORDER BYTE 01780000
* 2 ALWAYS CONTAINING ZERO 01790000
PASRFN EQU PASWKZ+4 READ UNDER FORMAT NAME 01800000
* 6 FORMAT NAME FOR RUF 01810000
SPACE 2 01820000
PASEND EQU PASRFN+3 RESERVED AREA AND END OF 'PAS'. 01830000
PASL EQU PASEND+1 LENGTH OF PAS CONSTANTS 01840000
EJECT 01850000
MEND 01860000