|
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: 31750 (0x7c06)
Types: s3xseg
Names: »S$E030«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E030«
MACRO 00010000
$E030 &ROC-,&ORF-1,&PF- 00020000
.********************************************************************** 00025000
.* 00030000
.* STATUS: 5704SC2CP RELEASE 03 * 00040000
.* * 00050000
.* NAME: $E030 * 00060000
.* * 00070000
.* FUNCTION: DEFINE THE LOCATIONS OF DATA AREAS WITHIN CCP COMMON. * 00080000
.* WHERE APPROPRIATE, DEFINE THE BIT SIGNIFICANCE FOR THOSE DATA * 00090000
.* AREAS. DEFINE THE LENGTHS AND LOCATIONS OF FIELDS IN * 00100000
.* THE FOLLOWING WORK AREAS: COMMAND PROCESSOR, ALLOCATION, * 00110000
.* TERMINATION, COMMUNICATIONS MANAGEMENT. * 00120000
.* * 00120500
.* OPTIONS: ROC-1 . RESOPEN/CLOSE IS TO BE GENERATED * 00121000
.* 0 RESOPEN/CLOSE IS NOT TO BE GENERATED * 00121500
.* ORF-1 . OPTIMIZE TPBUFFERS USE OF PRUF INPUT ($DFPIL) * 00122000
.* 0 ALWAYS INVITE FOR MAX PRUF INPUT * 00122500
.* PF-X'FF' . DON'T ALLOW LOWER CASE INPUT FROM TERMINALS * 00123000
.* X'F1' LOWER CASE INPUT IF PF1 KEY USED * 00123500
.* X'F2' LOWER CASE INPUT IF PF2 KEY USED * 00124000
.* X'F3' LOWER CASE INPUT IF PF3 KEY USED * 00124500
.* X'F4' LOWER CASE INPUT IF PF4 KEY USED * 00125000
.* X'F5' LOWER CASE INPUT IF PF5 KEY USED * 00125500
.* X'F6' LOWER CASE INPUT IF PF6 KEY USED * 00126000
.* X'F7' LOWER CASE INPUT IF PF7 KEY USED * 00126500
.* X'F8' LOWER CASE INPUT IF PF8 KEY USED * 00127000
.* X'F9' LOWER CASE INPUT IF PF9 KEY USED * 00127500
.* X'7A' LOWER CASE INPUT IF PF10 KEY USED * 00128000
.* X'7B' LOWER CASE INPUT IF PF11 KEY USED * 00128500
.* X'7C' LOWER CASE INPUT IF PF12 KEY USED * 00129000
.* * 00130000
.********************************************************************** 00140000
.* 00150000
.*--------- SYSTEM GLOBAL VARIABLES --------------------------------* 00160000
.* 00170000
GBLB &MLTA . MLTA SUPPORT: 00180000
.* . 1=SUPPORTED / 0=NOT 00190000
.* 00200000
GBLB &NOM . INVERSE OF &MLTA 00210000
.* 00220000
GBLB &BSCA . BSCA SUPPORT: 00230000
.* . 1=SUPPORTED / 0=NOT 00240000
.* 00250000
GBLB &NOB . INVERSE OF &BSCA 00260000
.* 00270000
GBLB &ONE . SUPPORT OF SINGLE ADAPTER TYPE 00280000
.* . 1=MLTA *OR* BSCA / 0=BOTH 00290000
.* 00300000
GBLB &DME . DATA MODE ESCAPE SUPPORT: 00310000
.* . 1=SUPPORTED / 0=NOT 00320000
.* 00330000
GBLB &NDME . INVERSE OF &DME 00340000
.* 00350000
GBLB &DFF . DISPLAY FORMAT FACILITY: 00360000
.* . 1=SUPPORTED / 0=NOT 00370000
.* 00380000
GBLB &NDF . INVERSE OF &DFF 00390000
.* 00400000
GBLB &MIN . SUPPORT OF MINIMUM-CORE SYSTEM 00410000
.* . 1=MINIMUM CORE / 0=NOT 00420000
.* 00430000
.* 00440000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00450000
.* 00460000
GBLB &SHR . UPDATE FILE SHARING: 00470000
.* . 1=SUPPORTED / 0=NOT 00480000
.* 00490000
GBLB &USEON . USER SIGN-ON ROUTINE: 00500000
.* . 1=SUPPORTED / 0=NOT 00510000
.* 00520000
GBLB &ABS . RS O/C/A: 00522000
.* . 1=SUPPORTED / 0=NOT 00524000
.* 00526000
GBLB &SYSON . CCP PASSWORD SECURITY: 00530000
.* . 1=SUPPORTED / 0=NOT 00540000
.* 00550000
GBLB &PUCNT . PROGRAM REQUEST COUNTS: 00560000
.* . 1=SUPPORTED / 0=NOT 00570000
.* 00580000
GBLB &URMFU . MFCU SUPPORT: 00590000
.* . 1=SUPPORTED / 0=NOT 00600000
.* 00610000
GBLB &UR142 . 1442 SUPPORT: 00620000
.* . 1=SUPPORTED / 0=NOT 00630000
.* 00640000
GBLB &URPRT . 5203/1403 SUPPORT: 00650000
.* . 1=SUPPORTED / 0=NOT 00660000
.* 00670000
GBLB &D45 . 5445 SUPPORT: 00680000
.* . 1=SUPPORTED / 0=NOT 00690000
.* 00700000
.* 00710000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00720000
.* 00730000
GBLB &NSCTL . *NO* STATION CONTROL SUPPORT: 00740000
.* . 1=*NO* STA CTL / 0=STA CTL 00750000
.* 00760000
GBLB &NINT . *NO* INTERVAL POLLING SUPPORT 00770000
.* . 1=NO INT POLL / 0=INT POLLING 00780000
.* 00790000
GBLB &CINT . *NO* INTERVAL POLLING -- BSCC 00792000
.* . 1=NO INT POLL / 0=INT POLLING 00794000
.* 00796000
GBLB &NSW . *NO* SWITCHED LINE SUPPORT: 00800000
.* . 1=*NO* SW LINE / 0=SW LINES 00810000
.* 00820000
GBLB &N1050 . *NO* 1050 SUPPORT: 00830000
.* . 1=*NO* 1050 / 0=1050 SUPPORT 00840000
.* 00850000
GBLB &N2741 . *NO* 2741 SUPPORT 00860000
.* . 1=*NO* 2741 / 0=2741 SUPPORT 00870000
.* 00880000
GBLB &NBFR . *NO* BUFFERED-RECEIVE SUPPORT: 00890000
.* . 1=*NO* BUFRCV / 0=BUFRCV 00900000
.* 00910000
GBLB &NMOVE . *NO* MOVE-WITHOUT-TRANSLATE: 00920000
.* . 1=*NO* MOVE / 0=MOVE SUPPORT 00930000
.* 00940000
.* 00950000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00960000
.* 00970000
GBLB &NCPU . *NO* CPU SUPPORT: 00980000
.* . 1=*NO* CPU / 0=CPU SUPPORT 00990000
.* 01000000
GBLB &NITB . *NO* ITB SUPPORT: 01010000
.* . 1=*NO* ITB / 0=ITB SUPPORT 01020000
.* 01030000
GBLB &NMSG . *NO* GETMSG SUPPORT: 01040000
.* . 1=*NO* GETMSG / 0=GETMSG 01050000
.* 01060000
GBLB &NTSP . *NO* TRANSPARENCY SUPPORT: 01070000
.* . 1=*NO* TSP / 0=TSP SUPPORT 01080000
.* 01090000
GBLB &N32 . *NO* 3270 SUPPORT: 01100000
.* . 1=*NO* 3270 / 0=3270 SUPPORT 01110000
.* 01120000
GBLB &N37 . *NO* 3735 SUPPORT: 01130000
.* . 1=*NO* 3735 / 0=3735 SUPPORT 01140000
.* 01150000
GBLB &NAS . *NO* ASCII SUPPORT: 01160000
.* . 1=*NO* ASCII / 0=ASCII SUPRT 01170000
.* 01180000
GBLB &NPP . *NO* POINT-TO-POINT SUPPORT: 01190000
.* . 1=*NO* P-TO-P / 0=P-TO-P 01200000
.* 01210000
GBLB &NMP . *NO* MULTIPOINT TRIBUTARY SPRT 01220000
.* . 1=*NO* MP / 0=MP SUPPORT 01230000
.* 01240000
GBLB &NSWL . *NO* SWITCHED BSCA LINES 01250000
.* . 1=*NO* SW / 0=SW LINE SUP'RT 01260000
.* 01270000
GBLB &NCS . *NO* CONTROL STATION SUPPORT: 01280000
.* . 1=*NO* CS / 0=CS SUPPORT 01290000
.* 01300000
TEXT 01310000
.* 01311000
.* 01312000
AIF (&ROC EQ '0').NOBS . SKIP IF NO RS O/C/A 01313000
&ABS SETB 1 . INDICATE RS O/C/A 01314000
.* 01315000
.NOBS ANOP . CONTINUE 01316000
.* 01317000
TITLE 'C C P C O M M O N A R E A' 01320000
*********************************************************************** 01330000
* C O M M U N I C A T I O N S C O N T R O L P R O G R A M * 01340000
* C O M M O N A R E A * 01350000
*********************************************************************** 01360000
SPACE 2 01370000
***** NOTE - DO NOT CHANGE ORDER OF THESE EXTRNS WITHOUT CHANGING **** 01380000
***** MODULE $CC4V1. **** 01390000
SPACE 2 01400000
EXTRN $CC4TR(3) 01410000
EXTRN $CC4TX(3) 01420000
EXTRN $CC4MS(3) 01440000
EXTRN $CC4GM(3) 01450000
EXTRN $CC4FM(3) 01460000
EXTRN $CC4MX(3) 01470000
EXTRN $CC4MV(3) 01480000
EXTRN $CC4SR(3) 01490000
EXTRN CC4TI2(3) 01500000
EXTRN $CC4CP(3) 01510000
EXTRN $CC4TM(3) 01520000
EXTRN $CCINT(3) 01525000
EXTRN $CCTI2(3) 01530000
EXTRN $CC4IG(3) 01540000
EXTRN XSNT1(3) 01550000
EXTRN XSNT2(3) 01560000
EXTRN XSNT3(3) 01565000
EXTRN $CC4TI(3) 01570000
EXTRN CC4TH(3) 01580000
EXTRN XSNTHT(3) 01590000
EXTRN $CC4PI(3) 01592000
AIF (&ABS EQ '1').RESO . SKIP IF RESIDENT OPEN/CLOSE 01595000
EXTRN $CC4OC(3) 01600000
.* 01610000
.RESO ANOP . CONTINUE 01620000
EXTRN ADDRS1(3) 01630000
.* 01631000
AIF (&ABS EQ '0').EXTV1 . SKIP IF NOT RS O/C/A 01632000
EXTRN $CC4VR(3) 01633000
AGO .ENCOM . CONTINUE 01634000
.* 01635000
.EXTV1 ANOP . CONTINUE 01636000
EXTRN $CC4V1(3) 01640000
.* 01643000
.ENCOM ANOP . CONTINUE 01646000
ENTRY $CCCOM 01650000
.* 01655000
EJECT 01660000
$CCCOM EQU $CC4#1 CCP COMMON 01670000
SPACE 2 01680000
*------------ENTRY POINT ADDRESS DEFINITION---------------------------* 01690000
*@CC4TR * 01700000
DC AL2($CC4TR) TRANSIENT RETURN ADDRESS 01710000
SPACE 1 01720000
*@CC4TX * 01730000
DC AL2($CC4TX) TRANSIENT TRANSFER CONTROL @ 01740000
SPACE 1 01750000
*@CC4PI * 01760000
*@CC4TA * 01770000
DC AL2($CC4PI) 1ST LEVEL TRANSIENT INVOCATION @ 01780000
SPACE 1 01790000
*@CC4IS * 01800000
DC AL2($CC4IS) COMMUNICATIONS I/O INTERFACE @ 01810000
SPACE 1 01820000
*@CC4GM * 01830000
DC AL2($CC4GM) GETMAIN ENTRY ADDRESS 01840000
SPACE 1 01850000
*@CC4FM * 01860000
DC AL2($CC4FM) FREEMAIN ENTRY ADDRESS 01870000
SPACE 1 01880000
*@MLTIO * 01890000
DC AL2(ADDRS1) MLTA IOCS ENTRY POINT @. 01900000
* FILLED BY STARTUP AT EXECUTION 01910000
* ADDRESS OF MAINTENANCE ADDRESS 01920000
* TABLE AT PRE-START UP 01930000
SPACE 1 01940000
*@MLTOP * 01950000
DC AL2(0) MLTA OPEN ENTRY POINT @. 01960000
* FILLED BY STARTUP 01970000
SPACE 1 01980000
*@USECW * 01990000
DC AL2(0) USER SECURITY DATA WORK AREA @ 02000000
* FILLED BY STARTUP 02010000
SPACE 1 02020000
*@CC4MX * 02030000
DC AL2($CC4MX) MOVE FOREVER ROUTINE ADDRESS 02040000
SPACE 1 02050000
*@C4TI2 * 02060000
DC AL2(CC4TI2) PROGRAM TERMINATION INTERFACE @ 02070000
SPACE 1 02080000
*@CC4TI * 02090000
DC AL2($CC4TI) OTHER TASK TERMINATE ADDRESS 02100000
SPACE 1 02110000
*@CC4SR * 02120000
DC AL2($CC4SR) ENTRY ADDRESS IN MOVE ROUTINE 02130000
SPACE 1 02140000
*@CC4TH * 02150000
DC AL2(CC4TH) @ TERMINATION INTERFACE 02160000
SPACE 1 02170000
*@BTRAC * 02180000
DC AL2(0) CCP BSCA TRACE ROUTINE 02190000
* ADDRESS FILLED BY STARTUP 02200000
* IF TRACEMLMP SPECIFIED 02210000
SPACE 1 02220000
*@MTRAC * 02230000
DC AL2(0) CCP MLTA TRACE ROUTINE 02240000
* ADDRESS FILLED BY STARTUP 02250000
* IF TRACEMLTA SPECIFIED 02260000
EJECT 02270000
*------------TRANSIENT COMMUNICATION AREA-----------------------------* 02280000
*SV1TAX * 02290000
DC AL2($CC4CP) ATR SAVE AREA FOR OPEN 02300000
SPACE 1 02310000
*SV2TAX * 02320000
DC AL2($CC4TM) ATR SAVE AREA FOR OPEN 02330000
SPACE 5 02340000
*----------- ADDRESSES OF SYSTEM TASK CONTROL BLOCKS -----------------* 02350000
* THESE ADDRESSES ARE FILLED IN BY STARTUP. 02360000
SPACE 2 02370000
*@CMTCB * 02380000
DC AL2(0) @ COMMUNICATIONS MANAGEMENT TCB 02390000
SPACE 1 02400000
AIF (&NDF).NDFFS . SKIP IF NO DFF. 02410000
*@DFTCB * 02420000
DC AL2(DFA000) @ OF DISPLAY FORMAT FACILITY TCB 02430000
AGO .CONTN SKIP IF DFF SUPPORTED. 02440000
.NDFFS ANOP CONTINUE HERE IF NO DFF. 02450000
DC XL2'0000' 02460000
.CONTN ANOP CONTINUE HERE. 02470000
SPACE 1 02480000
*@TMTCB * 02490000
DC AL2(0) @ TERMINATION TCB 02500000
SPACE 1 02510000
*@CPTCB * 02520000
DC AL2(0) @ COMMAND PROCESSOR TCB 02530000
SPACE 1 02540000
*@AVTCB * 02550000
DC AL2(0) @ AVAILABLE TCB'S 02560000
EJECT 02570000
*----------- SYSTEM LEVEL FLAGS --------------------------------------* 02580000
SPACE 2 02590000
*$FLGA * 02600000
DC AL1(&DFF*128) FIRST SYSTEM LEVEL FLAG BYTE 02610000
* BITS IN $FLGA ARE SET BY STARTUP 02620000
*#DFFOK BIT0 DFF IS SUPPORTED 02630000
*CPSOB1 BIT1 SIGN ON PASSWORD REQUIRED 02640000
*CPSOB2 BIT2 SIGN ON USER PASSWORD REQUIRED 02650000
*CPSHUT BIT3 SHUTDOWN HAS BEEN REQUESTED 02660000
*CPSU BIT4 STARTUP IS IN PROCESS 02670000
*#EPL BIT5 EXT POINTER LIST IS SUPPORTED 02680000
*CPISNW BIT7 $CC4IS IS NOT TO ISSUE WAIT 02690000
* AFTER POSTING $CC4CM 02700000
SPACE 3 02710000
*$FLGB * 02720000
DC AL1(0) SECOND SYSTEM LEVEL FLAG BYTE 02730000
* BITS IN $FLGB ARE SET BY STARTUP 02740000
*#SUALL BIT0 SUSPEND ALL IN EFFECT 02750000
*#SUINT BIT1 SUSPEND INIT IN EFFECT 02760000
*#SUCMD BIT2 SUSPEND COMMANDS IN EFFECT 02770000
*CPSHDP BIT3 SHUTDOWN IS PENDING 02773000
*#FEHLT BIT4 FEHALT IS RUNNING 02776000
*#TDERR BIT5 * 1-PERMANENT DISK I/O ERROR 02780000
* * TRACING TO DISK HAS BEEN STOPP 02790000
*#CPCAN BIT6 CCP CANCEL RECEIVED 02800000
*#PUCNT BIT7 PROGRAM USE COUNTING IS ON 02810000
SPACE 3 02820000
*$FLGC * 02830000
DC AL1(&CINT*4+&NINT*2) THIRD SYSTEM LEVEL FLAG BYTE 02840000
*#MTRAC BIT0 MLTA TRACE IS ON 02850000
*#BTRAC BIT1 BSCA TRACE IS ON 02860000
*#CTRAC BIT2 CCP TRACE IS ON 02870000
*#PUTTP BIT3 PUT ONLY TPBUFF FOR GETMAIN 02880000
*#INVPL BIT4 INVITE PL GETMAIN AREA OF TPBUFF 02890000
*INTPNO BIT5 INT POLL NOT SUPPORTED FOR BSCC 02900000
*INTNSP BIT6 INT POLL NOT SUPPORTED FOR BSCA 02910000
* BIT7 RESERVED 02920000
EJECT 02930000
*----------- SYSTEM CONSTANTS ----------------------------------------* 02940000
*X$0000 * 02950000
DC XL2'0000' CONSTANT XL2'0000' 02960000
SPACE 1 02970000
*X$0001 * 02980000
DC XL1'01' CONSTANT XL2'0001' ALONG WITH 02990000
* CONSTANT X$0000 03000000
SPACE 1 03010000
*X$0002 * 03020000
DC XL2'0002' CONSTANT XL2'0002' 03030000
SPACE 1 03040000
*X$0004 * 03050000
DC XL2'0004' CONSTANT XL2'0004' 03060000
SPACE 1 03070000
*X$FFFF * 03080000
DC XL2'FFFF' CONSTANT XL2'FFFF' 03090000
EJECT 03100000
*----------- QUEUE ADDRESS POINTERS ----------------------------------* 03110000
*@ALOCQ * 03120000
DC AL2(0) Q OF TASKS WAITING TO BE ALLOC'D 03130000
SPACE 1 03140000
*@WATSK * 03150000
DC AL2(0) ALLOCATE WAIT QUEUE 03160000
SPACE 1 03170000
*@QTUBS * 03180000
DC AL2(0) @ Q TUB'S WAITING FOR TCB/CORE 03190000
SPACE 1 03200000
*@GMWTQ * 03210000
DC AL2(0) @ GETMAIN TCB QUEUE 03220000
SPACE 1 03230000
*@DFFQ * 03240000
DC AL2(0) QUEUE FOR REQUESTS TO DFF TASK 03250000
SPACE 1 03260000
*@PRLQ * 03270000
DC AL2(0) @ OF PARAMETER LIST QUED FOR CM 03280000
EJECT 03290000
*----------- LIST ADDRESS POINTERS -----------------------------------* 03300000
*@TALST * 03310000
DC AL2(TA@PGM-10) @ PROGRAM LIST IN $CC4TA 03320000
SPACE 1 03330000
*@TCORG * 03340000
DC AL2(0) @ OF THE TCB LIST 03350000
SPACE 1 03360000
*@ROCAT * 03370000
DC AL2(0) ATT @ OF RESIDENT OPEN/CLOSE 03380000
* FILLED BY STARTUP 03390000
SPACE 1 03400000
*@LCB#1 * 03410000
DC AL2(0) @ FIRST LCB IN SYSTEM 03420000
* FILLED BY STARTUP 03430000
SPACE 1 03440000
*@TUBQ * 03450000
DC AL2(0) @ OF THE FIRST TUB IN THE SYSTEM 03460000
* FILLED BY STARTUP 03470000
SPACE 1 03480000
*@EPATR ATR VALUE OF EPL IF SUPPORTED 03485000
*@DFCT OR, 03490000
DC AL2(0) @ OF THE SHORT DTF ADDRESS LIST 03500000
* EITHER FILLED BY STARTUP 03510000
SPACE 1 03520000
*@TNT * 03530000
DC AL2(0) @ OF 1ST TERMINAL NAME TABLE ENT 03540000
* FILLED BY STARTUP 03550000
SPACE 1 03560000
*@XDT * 03570000
DC AL2(0) @ 1ST SYMBOLIC DFCT NAME ENTRY 03580000
* FILLED BY STARTUP 03590000
EJECT 03600000
*----------- MAIN STORAGE CONTROL BLOCK ( TPBUFF AND UPA )------------* 03610000
* ALL FIELDS FILLED BY STARTUP 03620000
SPACE 2 03630000
*@BUFA * 03640000
DC AL2(0) @ OF FIRST FREE SEGMENT 03650000
SPACE 1 03660000
*#NBND * 03670000
DC AL2(0) RESERVED - MUST BE ZEROS 03680000
SPACE 1 03690000
*@LOBND * 03700000
DC AL2(0) @ LO-BOUND GETMAIN AREA 03710000
SPACE 1 03720000
*@HIBND * 03730000
DC AL2(0) @ HI-BOUND GETMAIN AREA 03740000
SPACE 1 03750000
*#GMS * 03760000
DC AL2(0) SIZE OF LARGEST FREE SPACE 03770000
SPACE 1 03780000
*#TPBUF * 03790000
DC AL2(0) ORIGINAL SIZE OF TPBUFF 03800000
SPACE 1 03810000
*@UPA * 03820000
DC AL1(0) USER PROGRAM AREA ATR 03830000
SPACE 1 03840000
*#AVCOR * 03850000
DC AL1(0) # 2K BLOCKS NOT GIVEN TO NEP'S 03860000
EJECT 03870000
*------------ GENERAL AREAS ------------------------------------------* 03880000
*@PUCNT * 03890000
DC AL2(0) @ PROGRAM USE COUNT TABLE 03900000
* FILLED BY STARTUP 03910000
SPACE 1 03920000
*@TUSTG * 03930000
DC AL2(0) @ OF TUB IN STAGING NOW(CP TASK) 03940000
SPACE 1 03950000
*@KNTUB * 03960000
DC AL2(KNTUB) @ OF CONSOLE TUB 03970000
SPACE 1 03980000
*@PTX * 03990000
DC AL2(0) @ OF PCT MASTER INDEX 04000000
* FILLED BY STARTUP 04010000
SPACE 1 04020000
*@PTXCS * 04030000
DC AL2(0) C/S VALUE OF PCT DISK START 04040000
* FILLED BY STARTUP 04050000
SPACE 1 04060000
*#PCTLN * 04070000
DC AL1(0) LONGEST LEN PCT USED BY PGM RQST 04080000
* FILLED BY STARTUP 04090000
SPACE 1 04100000
*#DFCT * 04110000
DC AL1(0) NO. ENTRIES IN SHORT DTF @ LIST 04120000
* FILLED BY STARTUP 04130000
SPACE 1 04140000
*#SETID * 04150000
DC AL1(0) ID OF ASSIGNMENT SET IN USE 04160000
* FILLED BY STARTUP 04170000
SPACE 1 04180000
*#XDT * 04190000
DC AL1(0) NUMBER OF SYMFILE STATEMENTS 04200000
* FILLED BY STARTUP 04210000
SPACE 1 04220000
*@UALFA * 04230000
DC AL2(0) UNCHANGING START OF UPA 04240000
* FILLED BY STARTUP 04250000
SPACE 1 04260000
*@TKFSB * 04270000
DC AL2(0) FSB AREA FOR TCB'S 04280000
* FILLED BY STARTUP 04290000
SPACE 1 04300000
*CPLPWD * 04310000
DC AL1(0) LENGTH OF SIGN ON PASSWORD 04320000
* FILLED BY STARTUP 04330000
SPACE 1 04340000
*CPPSWD * 04350000
DC CL6' ' CCP SIGN ON PASSWORD 04360000
* FILLED BY STARTUP 04370000
EJECT 04380000
*----- CCP DUMP AREA DISK ADDRESSES ----------------------------------* 04390000
* FIELDS FILLED BY STARTUP OR BY $CC1DP 04400000
*#DUMPQ 04401000
DC XL1'0' Q-BYTE OF $CCPDUMP FILE UNIT 04402000
SPACE 1 04403000
*@CPDMP 04404000
DC XL2'0' DISK ADDRESS OF $CCPDUMP 04405000
SPACE 1 04406000
*@NDUMP 04407000
DC XL3'0' DISK ADDRESS OF NEXT DUMP 04408000
SPACE 1 04409000
*#CPFLQ * 04500000
DC AL1(0) $CCPFILE DEVICE Q-BYTE 04510000
EJECT 04520000
*----------- FIXED LOCATIONS OF RESIDENT CODE ------------------------* 04530000
*CC4TA * 04540000
*CC4PI * 04550000
L @CC4TA,IAR LOAD IAR OF $CC4TA 04560000
SPACE 1 04570000
*CC4IS * 04580000
L @CC4IS,IAR LOAD IAR OF @CC4IS 04590000
SPACE 1 04600000
*CC4GM * 04610000
L @CC4GM,IAR LOAD IAR OF @CC4GM 04620000
SPACE 1 04630000
*CC4FM * 04640000
L @CC4FM,IAR LOAD IAR OF @CC4FM 04650000
SPACE 1 04660000
*USECW * 04670000
L @USECW,IAR LOAD IAR OF @USECW 04680000
SPACE 1 04690000
*CC4MX * 04700000
L @CC4MX,IAR LOAD IAR OF @CC4MX 04710000
SPACE 1 04720000
*C4TI2 * 04730000
L @C4TI2,IAR LOAD IAR OF @C4TI2 04740000
SPACE 1 04750000
*CC4TI * 04760000
L @CC4TI,IAR LOAD IAR OF @CC4TI 04770000
SPACE 1 04780000
*CC4TT * 04790000
L X'004C',IAR LOAD IAR OF @CTRAC 04800000
SPACE 1 04810000
*CC4SR * 04820000
L @CC4SR,IAR LOAD IAR OF @CC4SR 04830000
SPACE 1 04840000
*CC4FR * 04850000
L @CC4FR,IAR LOAD IAR OF @CC4FR 04860000
SPACE 2 04870000
*------------ADDITIONAL ENTRY POINT ADDRESS DEFINITION ---------------* 04880000
*@CC4FR * 04890000
DC AL2(0) SET BY STARTUP 04900000
SPACE 1 04910000
*@CC4II * 04920000
DC AL2($CC4II) $CC4II ENTRY POINT - NEEDED BY 04930000
* * SHUTDOWN FOR BUFFER. 04940000
SPACE 5 04950000
*------------- MAINTENANCE SPACE ------------------ 2 BYTES -------* 04960000
SPACE 1 04970000
DC 2XL1'00' MAINTENANCE SPACE 04980000
SPACE 1 04990000
*$END1 05000000
TITLE 'WORK AREAS' 05010000
************ DFF WORK AREA 15 BYTES************ 05020000
*$DFWK 05030000
*@DFFIX * 05040000
DC AL2(0) C/S OF DFF FORMATS INDEX 05050000
* FILLED BY STARTUP 05060000
SPACE 1 05070000
*#DFQ * 05080000
DC AL1(0) FDT DEVICE Q-BYTE 05090000
* FILLED BY STARTUP 05100000
SPACE 1 05110000
*#DF1ID ID OF TASK 'OWNING' SPACE IN 05120000
* DFF COMM. AREA FOR LINE 1 05130000
DC AL1(0) TASK ID 05140000
SPACE 1 05150000
*#DF2ID ID OF TASK 'OWNING' SPACE IN 05160000
* DFF COMM. AREA FOR LINE 2 05170000
DC AL1(0) TASK ID 05180000
SPACE 1 05190000
*$DFECB * 05200000
DC XL3'000000' ECB FOR DFF TASK 05210000
SPACE 1 05211000
*$DFFLG * 05212000
DC AL1(&ORF*128) DFF FLAG BYTE 05213000
SPACE 1 05214000
*LCPFK * 05215000
DC XL1'&PF' PF KEY FOR LOWER CASE INPUT 05216000
SPACE 1 05217000
DC 5XL1'00' ************************* 05220000
EJECT 05230000
************ COMMAND PROCESSOR WORK AREA 50 BYTES************ 05240000
SPACE 1 05250000
*$CPWK 05260000
DC XL5'0' RESERVED 05265000
SPACE 2 05400000
*----------- COMMAND PROCESSOR ECB LIST ------------------------------* 05410000
*$CPLST ECB LIST. 05420000
DC AL2(@TMECB) SHUTDOWN TIMER ECB 05425000
DC AL2($CPQ) PROGRAM INITIATE-POSTED BY TERM 05430000
DC AL2($CPPF9) PF9 - PROGRAM REQUEST 05440000
DC AL2($CPCM) DATA IN TP BUFFER FOR CP 05450000
DC AL2(X'0048') OCC 05460000
DC AL2($CP1ST) STARTUP/WTOR/LIST DELIMITER 05470000
DC XL2'FFFF' LIST DELIMITER 05480000
SPACE 2 05490000
*----------- COMMAND PROCESSOR ECB'S ---------------------------------* 05500000
*@TMECB LOCATION OF ECB IN IOB X'4807' 05505000
*$CPQ * 05510000
DC 3XL1'00' PROGRAM INITIATE-POSTED BY TERM 05520000
SPACE 1 05530000
*$CPPF9 * 05540000
DC 3XL1'00' PF9 - PROGRAM REQUEST 05550000
SPACE 1 05560000
*$CPCM * 05570000
DC 3XL1'00' DATA IN TP BUFFER FOR CP 05580000
SPACE 1 05590000
*$CPOCC OCC - IN THE DSM NUCLEUS 05600000
* 05610000
*$CP1ST * 05620000
DC XL3'400000' FIRST TIME SWITCH 05630000
SPACE 1 05640000
*$CPFLG SECOND BYTE OF $CP1ST COMMAND PROCESSOR FLAG BYTE 05650000
*$CPFR BIT0 FREEMAIN TO BE DONE 05660000
*$CPCFR BIT3 FREE NEEDED FOR CONSOLE OCC 05670000
*$CPDPG BIT4 PAGE 1 OF DISPLAY DONE 05680000
*$CPD1S BIT5 DO SECONDARY MENU 05690000
SPACE 1 05700000
*$CPWTO WTO - GETMAINED FOR IN TPBUFF 05710000
*---------------------------------------------------------------------* 05720000
SPACE 2 05730000
*$CPPRQ $CP+30 START OF 20 BYTE PRGM REQ AREA 05740000
SPACE 05750000
*$CPCOM $CP+30 START OF COMMANDS COMMO AREA 05760000
*$CPRTC $CP+31 SAVE AREA FOR PLRTC 05770000
*$CPEFL $CP+33 SAVE AREA FOR PLEFFL 05780000
*$CPRCA $CP+35 SAVE AREA FOR PLRECA 05790000
SPACE 05800000
*$CPLMG 2 BYTE MESSAGE LENGTH 05810000
DC XL1'00' ALONG WITH LAST BYTE OF $CP1ST 05820000
SPACE 1 05830000
*$CPMSG $CP+32 * 05840000
DC AL2($CC4IG) MSG AREA: MSG #(NN), THEN TEXT 05850000
SPACE 1 05860000
*#LSTSZ $CPMSG+2 * 05870000
DC AL1(LSTSIZ) # ENTRIES IN FIRST LEVEL LIST 05880000
SPACE 1 05890000
*@XSNT1 #LSTSZ+2 * 05900000
DC AL2(XSNT1) ADDRESS OF TRANSIENT AREA 1 05910000
SPACE 1 05920000
*@XSNT2 @XSNT1+2 * 05930000
DC AL2(XSNT2) ADDRESS OF TRANSIENT AREA 2 05940000
SPACE 1 05950000
DC 11XL1'00' (UNUSED) 05960000
EJECT 05970000
************ ALLOCATION WORK AREA 9 BYTES************ 05980000
*$AMWK 05990000
*$AM 06000000
DC 9XL1'00' ALLOCATION WORK AREA 06010000
SPACE 2 06020000
*$AMFLG $AM ALLOCATION FLAG BYTE 06030000
*$AMBSY BIT0 1--ALLOCATION BUSY 06040000
*$APEND BIT1 1--ALLOCATION TASK POST PENDING 06050000
*$AMDFF BIT2 NON-RESIDENT DFF ALOC IN PROCESS 06060000
*$AMA1 BIT3 U/R DEVICE ALLOCATION IN PROCESS 06070000
*$AMA2 BIT4 REJECT IN PROCESS 06080000
*$AMPF9 BIT5 CONSOLE TUB IN USE FOR PROGRAM 06090000
SPACE 06100000
*$AMUR $AMFLG+1 CCP LEVEL AND SPOOLING DEVICES. 06110000
*A1SPLV BIT0 1=CCP IS IN LEVEL 1. 06120000
* 0=CCP IS IN LEVEL 2. 06130000
* BIT2 MFCU/M SEC IS SPOOL RDR FOR CCP 06140000
* BIT3 MFCU/M SEC IS SPOOL PCH FOR CCP 06150000
*A1741S BIT4 3741 IS SPOOLED READER FOR CCP 06160000
* BIT6 MFCU/M PRI IS SPOOL RDR FOR CCP 06170000
* BIT7 MFCU/M PRI IS SPOOL PCH FOR CCP 06180000
*$AMPA $AMUR+1 PERM ALLOC AND SPOOLED UR 06190000
* DEVICES FOR CCP. 06200000
*PCTPRS BIT0 1=WILL SHARE PRINTER. 06210000
*PCT41I BIT1 1=3741 IS PERM ALLOCATED 06220000
*PCT501 BIT2 1=2501 IS PERM ALLOCATED. 06230000
*PCTPRT BIT3 1=PRINTER IS PERM ALLOCATED. 06240000
*PCT142 BIT4 1=1442 IS PERM ALLOCATED. 06250000
*PCTMFU BIT5 1=MFCU/M IS PERM ALLOCATED. 06260000
* BIT6 1=1442 IS SPOOL READER FOR CCP 06270000
* BIT7 1=1442 IS SPOOL PUNCH FOR CCP 06280000
SPACE 06290000
*$AMSA $AMPA+1 IN USE DEVICES 06300000
*$AMSHR $AMSA+1 COUNT OF PRESENT PRINT SHARERS 06310000
EJECT 06320000
************ TERMINATOR WORK AREA 24 BYTES************ 06330000
*$TMWK START OF TERMINATION WORK AREA 06340000
*$TM BEGINNING OF WORK AREA 06350000
DC 18XL1'00' TERMINATOR WORK AREA 06360000
DC AL2(XSNT3) ADDRESS TRANSIENT 3 IOB 06363000
DC 4XL1'00' TERMINATOR WORK AREA 06366000
SPACE 2 06370000
*$TMFLG $TM TERMINATOR FLAG BYTE 06380000
*$TMSTK BIT0 SYSTEM TASK FAILURE 06390000
*$TMBSY BIT0 1--TERMINATION TASK IS ACTIVE 06400000
* 0--TERMINATION TASK NOT BUSY 06410000
*$TMDMP BIT1 1--DUMP HAS BEEN TAKEN 06420000
* 0--DUMP NOT TAKEN 06430000
*$TMEJ BIT2 1--$CC4EJ (CCP END OF JOB) 06440000
* HAS BEEN INVOKED BY $CC4TD 06450000
* (TERMINATION CONTROL ROUTINE) 06460000
*$TMCLZ BIT3 TERMINATION MUST CALL CLOSE 06470000
*$TMCM BIT4 RESERVED 06480000
*$TMCP BIT5 RESERVED 06490000
*$TMDFL BIT6 ON=NO MORE DUMP SPACE GUARANTEED 06500000
*$TMDER BIT7 ON=PERMANENT DISK I/O ERROR 06510000
* DURING TERMINATION DUMP 06520000
SPACE 1 06530000
*$TMTCB $TMFLG+2 @ OF TCB CURRENTLY BEING 06540000
* PROCESSED BY TERMINATION TASK 06550000
*$TMECB $TMTCB+1 TERMINATION'S ECB (3 BYTES) 06560000
*$TMDID $TMECB-1+3+2 DUMP ID DIGITS (2 BYTES) 06570000
SPACE 2 06580000
*----------- TD WORK AREAS -------------------------------------------* 06590000
*TIWRK1 $TMDID+2 SAVE AREA 06600000
*TIWRK2 TIWRK1+2 INFORMATION 06610000
*TIWRK3 TIWRK2+2 WHEN CCP 06620000
*TIWRK4 TIWRK3+2 HAS A 06630000
*TIWRK5 TIWRK4+2 CCP SYSTEM TASK 06640000
*TIWRK6 TIWRK5+2 ERROR TO PROCESS 06650000
EJECT 06660000
************ COMMUNICATIONS MANAGEMENT WORK AREA 45 BYTES************ 06670000
*$CMWK START OF 'CM' WORK AREA 06680000
*$CM START OF 'CM' WORK AREA 06690000
DC 18XL1'00' COMMUNICATION TASK WORK AREA 06700000
SPACE 2 06710000
*#CMDTF $CM+1 SAVE AREA FOR DTF ADDRESS 06720000
*#CMPL #CMDTF+2 SAVE AREA FOR PARM LIST 06730000
SPACE 06740000
*#CMTMA #CMPL+2 SAVE AREA FOR TERMINAL ADDRESS 06750000
*#CMBK1 #CMTMA RETURN CODE FOR $CC4BL MESSAGE 06760000
SPACE 06770000
*#CMTFT #CMTMA+1 SAVE AREA FOR TERMINAL FEATURES 06780000
*#CMBK2 #CMTFT INTERNAL MSG TYPE FOR $CC4BL 06790000
SPACE 06800000
*#CMPTR #CMTFT+2 SAVE AREA FOR PREVIOUS POINTER 06810000
*#CMFPL #CMPTR+2 SAVE AREA FOR FOUND PARM LIST 06820000
*#CMPTX #CMFPL+2 SPECIAL SAVE AREA FOR PREV PTR 06830000
*#CMTUB #CMPTX+2 SAVE AREA FOR TUB ADDRESS 06840000
*#CMERP #CMTUB+2 @ OF DTF TO BE RESCHEDULED AFTER 06850000
* BEING IN CCP ERP 06860000
*#CMSWT #CMERP+1 CONTROL SWITCH 06870000
*#CMARR BIT0 1--OK TO MODIFY TCBARR 06880000
SPACE 2 06890000
*#OPEND #CMSWT+1 * 06900000
DC XL1'00' T-P OP END COUNT 06910000
SPACE 1 06920000
*#CCMCL #OPEND+2 * 06930000
DC XL2'0000' MAXIMUM COMMAND BUFFER LENGTH 06940000
SPACE 1 06950000
*#RUFCL #CCMCL+2 RUF COMMAND LENGTH 06960000
DC AL2(0) FILLED BY STARTUP 06970000
SPACE 1 06980000
*@TAS #RUFCL+2 TERMINAL ATTRIBUTE SET ADDRESS 06990000
DC AL2(0) FILLED BY STARTUP 07000000
SPACE 1 07010000
*#HITAS @TAS+1 HIGHEST TAS INDEX IN SYSTEM 07020000
DC AL1(0) FILLED BY STARTUP 07030000
SPACE 1 07040000
*@CSSTT #HITAS+2 DISK C/S OF STT 07050000
DC AL2(0) FILLED BY STARTUP 07060000
SPACE 1 07070000
*#HISTT @CSSTT+1 NO ENTRIES IN STT(SW TERM TBL) 07080000
DC AL1(0) FILLED BY STARTUP 07090000
SPACE 1 07100000
*@MLTAD #HISTT+2 ADDRESS OF MLTA ADAPTER 07110000
DC AL2(0) 0 INDICATES NO MLTA ADAPTER 07120000
* FILLED BY STARTUP 07130000
SPACE 1 07140000
*@CKLST @MLTAD+2 ADDRESS OF CHECK LIST 07150000
DC AL2(0) FILLED BY STARTUP 07160000
SPACE 1 07170000
*----------- COMMUNICATIONS MANAGEMENT ECB'S -------------------------* 07180000
*$CMECB @CKLST+1 * 07190000
DC XL3'000000' GENERAL POST ECB FOR CM 07200000
SPACE 1 07210000
*$CMFM $CMECB+3 * 07220000
DC XL3'200000' FREEMAIN'S POST OF CM 07230000
*@ANYTP $CMFM+4 ADDRESS OF COMMON TP BUFFER AREA 07240000
DC AL2(0) * FILLED BY STARTUP 07250000
*@INVPL @ANYTP+2 ADDRESS OF INVITE PL AREA 07260000
DC AL2(0) * FILLED BY STARTUP 07270000
SPACE 1 07280000
*ERTIME @INVPL+2 AUTO ERP RECOVERY TIME 07285000
DC AL2(0) * FILLED BY STARTUP 07290000
EJECT 07300000
*----------- CONSOLE TUB AND PARAMETER LIST --------------------------* 07310000
*KNTUB $END1+#LWKWK FIXED LOCATION OF CONSOLE TUB 07320000
DC CL2'KN' CONSTANT 07330000
DC AL2(KNPL) PARM LIST ADDRESS 07340000
DC XL7'00000000000000' UNUSED BYTES IN TUB 07350000
DC XL1'80' SIGNIFIES CONSOLE TUB 07360000
DC 27XL1'00' MORE UNINITIALIZED BYTES 07370000
*KNPL KNTUB+39 CONSOLE PARAMETER LIST 07380000
DC XL2'0000' PLRTC FILED OF KN PL 07390000
DC XL2'8007' SYS REQUEST SO NOT FREEMAINED 07400000
DC 15XL1'00' REST OF PARM LIST 07410000
EJECT 07420000
*----------- SHUTDOWN FIELDS -----------------------------------------* 07430000
*SHDECB KNPL+19 SHUTDOWN'S ECB 07440000
DC XL3'000000' SHUTDOWN'S ECB 07450000
SPACE 1 07460000
DC XL1'00' RESERVED 07470000
*FEHLT@ SHDECB+2+3 07480000
DC AL2(XSNTHT) ADDRESS OF FE HALT ROUTINE 07490000
SPACE 1 07500000
DC 11XL1'00' SAVE AREA 07510000
*SHDSAV FEHLT@+11 CM TCB FIELDS SAVE AREA 07520000
SPACE 2 07530000
*--------- EXTENSION TO $CC4CM WORK AREA -------------------------* 07540000
*#CMTRL SHDSAV-10+11 * 07550000
*#CMMVL #CMTRL MOVE LIST FOR $CC4CM 07560000
DC 11XL1'00' TRANSLATE LIST FOR $CC4CM 07570000
*PLTIME #CMMVL+10+4 POLL TIME FOR CM 07580000
DC XL4'00' 07590000
*WATIME PLTIME+3 WAIT TIME FOR CM 07600000
DC XL3'00' 07610000
*SAVLOP WATIME+1 SAVE AREA FOR POLL LOOP COUNT 07620000
DC XL1'00' 07630000
*@CCPTB SAVLOP+2 CCP PARTITION TCB ADDRESS 07640000
DC AL2(0) ADDRESS IS FILLED BY START-UP 07650000
*#TPPUT @CCPTB+2 LENGTH OF PUT AREA IN TPBUFFER 07660000
DC AL2(0) ADDRESS IS FILLED BY START-UP 07670000
*#TPANY #TPPUT+2 LENGTH OF MIDDLE AREA IN TPBUFF 07680000
DC AL2(0) LENGTH FILLED BY START-UP 07690000
*#ANYS #TPANY+1 LENGTH OF LARGEST COMMON AREA 07700000
DC AL2(0) INIT. LENGTH FILLED BY START-UP 07710000
*CORCNT #ANYS+2 COUNT OF NO. PARMLISTS WAITING 07720000
* ON CORE FROM TPBUFFER 07730000
DC XL1'00' INITIALIZED TO ZERO 07732000
*@DTUBQ CORCNT+2+1 DUMMY TUB QUE FOR TASK CHAIN 07734000
DC AL2(0) USED BY II 07736000
SPACE 1 07736100
*#RUFAD @DTUBQ+2 ADDITIONAL DATA NEEDED FOR 07736200
DC XL2'00' PROGRAM REQUEST UNDER FORMAT. 07736300
SPACE 1 07736400
*TNTATT #RUFAD+2 SAVE AREA TO HOLD ATT FOR 07736420
DC XL2'00' THE LOCATION OF TNT MOVEOUT. 07736440
SPACE 1 07736460
*$RESER RESERVE AREA. 07736500
DC XL2'00' RESERVE AREA. 07736600
SPACE 2 07736700
*------------- BSCC COMMUNICATIONS AREA --------------------------* 07736800
SPACE 1 07736900
*$CSFM 07737000
DC XL3'00' FREEMAIN ECB 07737100
SPACE 1 07737200
*$CSECB 07737300
DC XL3'00' OP END AND NEW REQUEST ECB 07737400
SPACE 1 07737500
*#CSOND 07737600
DC AL1(0) OP END COUNT FOR LINES 3 AND 4 07737700
SPACE 1 07737800
*@CSNRQ 07737900
DC AL2(0) NEW REQUEST QUE 07738000
SPACE 1 07738100
*@CSTCB 07738200
DC AL2(0) ADDRESS OF BSCC TCB 07738300
SPACE 1 07738400
*#CSERP 07738500
DC AL2(0) ADDRESS OF LCB IN ERROR RECOVERY 07738600
SPACE 1 07738700
*@CLB#1 07738800
DC AL2(0) ADDRESS OF FIRST BSCC LCB 07738900
SPACE 1 07739000
*POLTIM 07739100
DC XL4'00' POLL TIME FOR BM 07739200
SPACE 1 07739300
*SVLOOP 07739400
DC XL1'00' SAVE POLL LOOP COUNT FOR BSCC 07739500
SPACE 1 07739600
*WAITIM 07739700
DC XL3'00' WAIT TIME FOR BM 07739800
SPACE 1 07739900
*#MATST 07740000
DC XL1'00' LOGICAL ATR START OF BSCC 07740100
SPACE 1 07740200
*#MATED 07740300
DC XL1'00' LOGICAL ATR END OF BSCC 07740400
SPACE 1 07740500
*#MATX3 07740600
DC XL1'00' REAL ATR START OF XIENT AREA 3 07740700
SPACE 2 07740800
*-------------- DIRECTORY INFORMATION ----------------------------* 07740900
SPACE 1 07741000
*CSPKR1 07741100
DC AL2(0) C/S DIRECTORY ON UNIT R1 07741200
SPACE 1 07741300
*CSPKF1 07741400
DC AL2(0) C/S DIRECTORY ON UNIT F1 07741500
SPACE 1 07741600
*CSPKR2 07741700
DC AL2(0) C/S DIRECTORY ON UNIT R2 07741800
SPACE 1 07741900
*CSPKF2 07742000
DC AL2(0) C/S DIRECTORY ON UNIT F2 07742100
SPACE 1 07742200
*----------- REGISTER SAVE AREAS FOR THE DISPLAY TRANSIENT -----------* 07742300
*$CPIAR * 07742400
DC AL2(0) IAR 07742500
SPACE 1 07742600
*$CPXR1 * 07742700
DC AL2(0) TUB,TNT,OR FSB 07742800
SPACE 1 07742900
*$CPDTF * 07743000
DC AL2(0) DTF 07743100
SPACE 1 07743200
*$CPUSE * 07743300
DC AL1(0) PROGRAM USE COUNT SAVE FIELD 07743400
SPACE 1 07743500
*$FLGD 07743507
DC XL1'0' FOURTH SYSTEM LEVEL FLAG BYTE 07743514
SPACE 1 07743521
*$CCTR@ 07743528
DC AL2($CCINT) ADDRESS OF CCP TRACE INTERCEPT 07743535
SPACE 1 07743542
*$CCTR# 07743549
DC XL1'0' NUMBER OF BLOCKS IN TABLE 07743556
SPACE 1 07743563
*@AERPQ 07743570
DC XL2'0' Q OF TUBS FOR AUTO ERP 07743577
SPACE 1 07743584
ORG X'4800' TO ALIGN TIMER IOB 07743600
*@TMIOB TIMER IOB FOR SHUTDOWN 07743700
DC XL1'0' FLAG BYTE 07743800
DC XL6'0' TIME HHMMSS 07743900
DC XL3'0' ECB 07744000
EJECT 07750000
MEND 07760000