|
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: 7620 (0x1dc4)
Types: s3xseg
Names: »S$E035«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E035«
MACRO 00010000
$E035 00020000
GBLB &MOD4 00025000
LCLC &# 00030000
TEXT 00040000
&# SETC ' ' 00050000
TITLE 'SYSTEM&#.WORK&#.AREAS&#.INITIALIZATION' 00060000
* BEGIN MACRO '$E035' 3/13/73 00070000
SPACE 1 00080000
*------ALLOCATION TASK INITIALIZATION---------------------------------* 00090000
SPACE 1 00100000
ORG $CCCOM+$AMWK+$AMEPA-1 00110000
DC AL2($CC4AM) EPA OF ALLOCATION ROUTINE 00120000
SPACE 1 00130000
*------COMMUNICATION TASK CONSOLE SUPPORT WORK AREA INITIALIZE--------* 00140000
SPACE 1 00150000
AIF (&MOD4).LJ010 00155000
ORG $CCCOM+$KMWK+#KMPFA 00160000
DC CL1'&#.' RESPONSE IDENTIFIER 00170000
DC CL1'&#.' TASK ID 00180000
DC CL1':' COLON 00190000
DC 6CL1'G' PROGRAM NAME 00200000
SPACE 00210000
ORG $KMWK+#KMCTL+$CCCOM CONSOLE IOB CONTROL BYTE 00220000
DC AL1(0) RUNNING COUNT SET AT ZERO 00230000
DC AL1(FLGOUT) OPERATION IS OUTPUT 00240000
DC XL1'0' LENGTH 00250000
DC CL1'/' CONTINUE CHARACTER 00260000
AGO .LJ020 00260200
.LJ010 ANOP 00260400
ORG $CCCOM+$KMWK+#KMSWT 00260600
DC XL1'40' INITIALIZE SWITCH 00260800
ORG $CCCOM+$KMWK+#KMSW2 00261000
DC XL1'08' INITIALIZE TO DISPLAY CURRENT 00261200
DC XL1'0' 00261400
ORG $CCCOM+$KMWK+#KMFST-1 00261600
DC 17XL1'0' INITIALIZE CONSOLE POINTERS 00261800
ORG $CCCOM+$KMWK+#KMBOU-1 00262000
DC AL2(#KMOUT) CONSOLE OUTPUT BUFFER @ 00262200
DC AL2(#KMIN) CONSOLE INPUT BUFFER @ 00262400
DC AL2(#KMSCR) CONSOLE SCREEN BUFFER @ 00262600
SPACE 1 00262800
* CONSOLE LOG FILE DISK IOB 00263000
SPACE 1 00263200
ORG $CCCOM+$KMWK+#KMIOB 00263400
DC XL2'0' INITIALIZE - 00263600
DC XL1'40' * WITH NO - 00263800
DC 10XL1'0' * DTF - 00264000
DC XL1'28' * OR ERROR LOG. 00264200
ORG $CCCOM+$KMWK+#KMDPL 00264400
DC 2XL1'0' INITIALIZE - 00264600
DC XL2'8002' * CONSOLE - 00264800
DC 6XL1'0' * PARM - 00265000
DC AL2(TBK) * LIST - 00265200
DC XL2'0202' * TO A - 00265400
DC 2XL1'0' * PUT. 00265600
ORG $CCCOM+$KMWK+#KMLIT 00265800
DC XL1'20' INITIALIZE FIELD LIGHT #3 00266000
ORG $CCCOM+$KMWK+#KMBFR+1+#KMBFL 00266200
#KMOUT EQU * START CONSOLE OUTPUT BUFFER 00266400
#KMIN EQU *+256 START CONSOLE INPUT BUFFER 00266600
#KMSCR EQU *+543 START CONSOLE SCREEN BUFFER 00266800
.LJ020 ANOP 00267000
TITLE 'SYSTEM&#.TASK&#.CONTROL&#.BLOCKS' 00270000
* BEGIN MACRO $E037' 3/13/73 00280000
ORG $CCCOM+$CCTCB 00290000
SPACE 1 00300000
*---------------------------------------------------------------------* 00310000
* COMMUNICATION TASK CONTROL BLOCK * 00320000
*---------------------------------------------------------------------* 00330000
SPACE 1 00340000
TCBCOM EQU * START OF COMM TASK TCB 00350000
DS XL(TCBTUB+1) RESERVE SPACE FOR THIS TCB 00360000
ORG TCBCOM+TCBTSK 00370000
DC AL1(TCBATV+TCBSYT) ACTIVE + SYSTEM TASK 00380000
ORG TCBCOM+TCBID 00390000
DC CL1'C' TCB ID FOR COMM TASK 00400000
ORG TCBCOM+TCBWMK 00410000
DC AL2(256*WPAAII) INITIALLY WAITING FOR T-P RQEST 00420000
DC AL1(1) WAIT COUNT OF ONE 00430000
DC AL2(0) ZERO POST MASK 00440000
DC AL1(1) RESIDUAL WAIT COUNT OF ONE 00450000
ORG TCBCOM+TCBNXT-1 00460000
DC AL2(TCBTM) @ OF NEXT (TERMINATION) TASK 00470000
ORG TCBCOM+TCBSAV-1 00480000
DC AL2(*-5) SAVE AREA @ 00490000
ORG TCBCOM+TCBARR-1 00500000
DC AL2($CC4CM) $CC4CM EPA IN ARR 00510000
DC AL2($CCCOM) XR1=@ OF $CCCOM 00520000
DC AL2($CCCOM+$CMWK) XR2=@ OF COMM TASK WORK AREA 00530000
ORG TCBCOM+TCBTUB-1 00540000
DC AL2(TBK) @ OF MAIN CONSOLE TUB 00550000
ORG 00560000
SPACE 2 00570000
*---------------------------------------------------------------------* 00580000
* TERMINATION TASK CONTROL BLOCK * 00590000
*---------------------------------------------------------------------* 00600000
SPACE 2 00610000
TCBTM EQU * TERMINATION TASK CONTROL BLOCK 00620000
DS XL(TCBTUB+1) RESERVE SPACE FOR TERM. TCB 00630000
ORG TCBTM+TCBTSK 00640000
DC AL1(TCBATV+TCBSYT) ACTIVE SYSTEM TASK 00650000
ORG TCBTM+TCBID 00660000
DC CL1'T' TERMINATION TASK CONTROL BLOCK ID00670000
ORG TCBTM+TCBNXT-1 00680000
DC AL2(TCBCPA) NEXT TCB IS CMD PROCESSOR 00690000
ORG TCBTM+TCBSAV-1 00700000
DC AL2(*-5) CURRENT SAVE AREA @ 00710000
ORG TCBTM+TCBARR-1 00720000
DC AL2($CC4TM) EPA OF TERMINATION 00730000
ORG 00740000
EJECT 00750000
*---------------------------------------------------------------------* 00760000
* COMMAND PROCESSOR TASK CONTROL BLOCK * 00770000
*---------------------------------------------------------------------* 00780000
SPACE 2 00790000
TCBCPA EQU * COMMAND PROCESSOR TCB START 00800000
DS XL(TCBINQ+1) LENGTH OF COMMAND PROCESSOR TCB 00810000
ORG TCBCPA+TCBTSK 00820000
DC AL1(TCBATV+TCBSYT+TCBDSP) ACTIVE, SYSTEM, 'AND' 00830000
* DISPATCHABLE AS CCP STARTUP 00840000
* RUNS UNDER THE COMMAND PROCESSOR 00850000
* TCB 00860000
ORG TCBCPA+TCBID 00870000
DC CL1'P' TCB ID FOR CMD PROCESSOR TASK 00880000
ORG TCBCPA+TCBWMK 00890000
DC AL2(256*WPACP) WAITING FOR INPUT FROM COMM TASK 00900000
DC AL1(1) WAIT COUNT OF ONE 00910000
DC AL2(0) ZERO POST MASK 00920000
DC AL1(1) RESIDUAL WAIT COUNT OF ONE 00930000
ORG TCBCPA+TCBNXT-1 00940000
DC AL2(0) LAST TCB IN SYSTEM TASK CHAIN 00950000
ORG TCBCPA+TCBSAV-1 00960000
DC AL2(*-5) SAVE AREA @ 00970000
ORG TCBCPA+TCBTUB-1 00980000
DC AL2(####) @ OF FIRST T-P TUB SET BY 00990000
* START-UP OF CCP 01000000
ORG 01010000
TITLE 'CONSOLE&#.TERMINAL&#.UNIT&#.BLOCKS' 01020000
*---------------------------------------------------------------------* 01030000
* MAIN CONSOLE TERMINAL UNIT BLOCK * 01040000
*---------------------------------------------------------------------* 01050000
SPACE 1 01060000
TBK EQU * START OF CONSOLE MAIN TUB 01070000
DS XL(TUBLN) RESERVE SPACE FOR TUB 01080000
ORG TBK+PLTUBA-1 01090000
DC AL2(TBK) @ OF THIS TUB 01100000
ORG TBK+TUBID-1 01110000
DC CL2'$K' MAIN TUB ID CHARACTER 01120000
AIF (&MOD4 NE '1').LJ030 01122000
ORG TBK+TUBSID 01124000
DC XL1'01' CONSOLE MOD 4 ID (BSCA) 01126000
.LJ030 ANOP 01128000
ORG TBK+TUBCHR 01130000
DC AL1(TUBCMN+TUBOUT+TUBINP) COMMAND CAPABLE, INPUT/OUTPUT 01140000
ORG TBK+TUBAT1 01150000
DC AL1(TUBKNM+TUBONL+TUBSGN) MAIN TUB, ONLINE, + SIGNED ON 01160000
ORG TBK+TUBAT2 01170000
DC AL1(TUBCMD) COMMAND MODE TUB 01180000
ORG TBK+TUBTCB-1 01190000
DC AL2(TCBCOM) OWNING TASK = COMM TASK 01200000
ORG TBK+TUBTUB-1 01210000
DC AL2(TBL) NEXT TUB ON COMM TASK CHAIN IS 01220000
* CONSOLE SUB-TUB 01230000
ORG TBK+TUBTNT-1 01240000
DC AL2(####) @ OF CONSOLE TNT SET BY STARTUP 01250000
AIF (&MOD4 NE '1').LJ040 01251000
ORG TBK+TUBRCL-1 01252000
DC XL2'0200' RECORD LENGTH IS 512 01253000
ORG TBK+TUBBKF 01254000
DC XL1'01' BLOCKING FACTOR OF 1 01255000
ORG TBK+TUBPHY 01256000
DC AL1(TUB7M1) 3270 MODEL 1 01257000
.LJ040 ANOP 01258000
ORG 01260000
SPACE 1 01270000
*---------------------------------------------------------------------* 01280000
* CONSOLE SUB TERMINAL UNIT BLOCK * 01290000
*---------------------------------------------------------------------* 01300000
SPACE 2 01310000
TBL EQU * START OF CONSOLE SUB-TUB 01320000
DS XL(TUBLN) RESERVE SPACE FOR SUB-TUB 01330000
ORG TBL+TUBID-1 01340000
DC CL2'$C' SUB-TUB ID 01350000
* VALUE IS 'DOLLAR-SIGN S' 01360000
ORG TBL+TUBCHR 01370000
DC AL1(TUBCMN+TUBOUT+TUBINP) COMMAND CAPABLE, INPUT/OUTPUT 01380000
ORG TBL+TUBAT1 01390000
DC AL1(TUBKNS+TUBONL+TUBSGN) SUB-TUB, ONLINE, SIGNED ON 01400000
ORG TBL+TUBAT2 01410000
DC AL1(TUBCMD) COMMAND MODE 01420000
ORG TBL+TUBTCB-1 01430000
DC AL2(TCBCOM) @ OF OWNING TASK = COMM TASK 01440000
ORG TBL+TUBTUB-1 01450000
DC AL2(0) LAST CONSOLE TUB 01460000
ORG TBL+TUBTNT-1 01470000
DC AL2(####) @ OF CONSOLE TNT SET BY STARTUP 01480000
ORG 01490000
SPACE 1 01500000
*------END OF DEFINITION OF CONSOLE TUB'S-----------------------------* 01510000
SPACE 1 01520000
* END MACRO '$E035' 01530000
MEND 01540000