|
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: 14478 (0x388e)
Types: s3xseg
Names: »S$ECWK«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ECWK«
MACRO 00010000
$ECWK &DEFN- 00020000
TABLE &DEFN 00070000
NO TABDF NO 00080000
YES TABDF YES 00090000
'' TABDF YES 00100000
TEXT 00110000
*********************************************************************** 00120000
* * 00130000
* NAME: $ECWK * 00140000
* * 00150000
* FUNCTION: DEFINE THE 'BINARY SYNCHRONOUS COMMUNICATION * 00160000
* CONTROLLER WORK AREA (CWK)' * 00170000
* * 00180000
* STATUS: VERSION 2 MODEL 15D ONLY * 00190000
* * 00200000
* DATE: JULY 14, 1977 * 00210000
* * 00220000
* NOTE: THE DISPLACEMENT BETWEEN CWKCLB AND CWKOBR-7 HAS TO * 00230000
* REMAIN CONSTANT BECAUSE OF THE INTERFACE TO ERROR * 00240000
* LOGGING ($$DLOG). * 00250000
* CWKOBR-7 + X'FF97' = CWKCLB * 00260000
* * 00270000
* * 00280000
*********************************************************************** 00290000
SPACE 2 00300000
ONECWK EQU 1 00310000
TWOCWK EQU 2 00320000
TRECWK EQU 3 00330000
FORCWK EQU 4 00340000
FIVCWK EQU 5 00350000
SIXCWK EQU 6 00360000
SVNCWK EQU 7 00370000
ATECWK EQU 8 00380000
FTNCWK EQU 14 00390000
ATNCWK EQU 18 00400000
SPACE 2 00410000
CWKBEG EQU 0 START OF WORK AREA 00420000
* THE FIRST 28 BYTES CONSIST OF THE DELAY CIB 00430000
SPACE 2 00440000
CWKCLB EQU CWKBEG+CIBCLB CLB ADDRESS FIELD 00450000
SPACE 2 00460000
CWKRS0 EQU CWKCLB+ONECWK RESERVED 00470000
SPACE 2 00480000
CWKSTD EQU CWKRS0+TWOCWK CURRENT POLLING ENTRY POINTER 00490000
SPACE 2 00500000
CWKCPE EQU CWKSTD+ONECWK CURRENT POLLING ENTRY ID 00510000
SPACE 2 00520000
CWKCIB EQU CWKCPE+TWOCWK ADDR OF IOB IN PROCESS 00530000
SPACE 2 00540000
CWKFL3 EQU CWKCIB+ONECWK FLAG FIELD 00550000
AIF (&DEFN EQ 'NO').RI020 00560000
SPACE 00570000
FL3RVI EQU B'10000000' RVI SENT 00580000
FL3SVI EQU B'01000000' SENDING RVI 00590000
FL3ERP EQU B'00100000' ERP DISABLED FOR OLT 00600000
FL3HLT EQU B'00010000' ERROR POSTED 00610000
FL3OLT EQU B'00001000' ONLINE TEST 00620000
FL3ERR EQU B'00000100' ERROR PENDING,CIB NOT POSTED 00630000
FL3STP EQU B'00000010' STOP POLL PENDING DURING OLT 00640000
FL3ATO EQU B'00000001' AUTO RESPONSE RUNNING 00650000
.RI020 ANOP 00660000
SPACE 2 00670000
CWKPLC EQU CWKFL3+ONECWK POLLING LIST COUNT 00680000
SPACE 2 00690000
CWKTR@ EQU CWKPLC+TWOCWK TRACE ROUTINE POINTER 00700000
SPACE 2 00710000
CWKEXA EQU CWKTR@+TWOCWK USER EXIT ADDRESS 00720000
SPACE 2 00730000
CWKFLA EQU CWKEXA+ONECWK FLAG BYTE A 00740000
AIF (&DEFN EQ 'NO').RI030 00750000
SPACE 00760000
FLAROP EQU B'10000000' RESTART OUTBOARD POLL AFTER ERP 00770000
FLATTD EQU B'01000000' TTD MSG LAST RECEIVED REMOTE 00780000
FLAIEN EQU B'00100000' INTERRUPTS ENABLED 00790000
FLARSB EQU B'00010000' RESERVED 00800000
FLARSC EQU B'00001000' RESERVED 00810000
FLARSD EQU B'00000100' RESERVED 00820000
FLAETX EQU B'00000010' ETX RECEIVED ON THIS LINE 00830000
FLARSE EQU B'00000001' RESERVED 00840000
.RI030 ANOP 00850000
SPACE 2 00860000
CWKFLB EQU CWKFLA+ONECWK FLAG FIELD B 00870000
AIF (&DEFN EQ 'NO').RI040 00880000
SPACE 00890000
FLBRSA EQU B'10000000' RESERVED 00900000
FLB2SC EQU B'01000000' 2 SEC TIMEOUT 00910000
FLBRSB EQU B'00100000' RESERVED 00920000
FLBEOT EQU B'00010000' EOT RECEIVED 00930000
FLBRSC EQU B'00001000' RESERVED 00940000
FLBABR EQU B'00000100' ABORT REQUEST 00950000
FLBRCV EQU B'00000010' ACK LAST RECEIVED 00960000
FLBSND EQU B'00000001' ACK LAST SENT 00970000
.RI040 ANOP 00980000
SPACE 2 00990000
CWKFLC EQU CWKFLB+ONECWK FLAG FIELD C 01000000
AIF (&DEFN EQ 'NO').RI050 01010000
SPACE 01020000
FLCRSA EQU B'10000000' RESERVED 01030000
FLCRSB EQU B'01000000' RESERVED 01040000
FLCRSC EQU B'00100000' RESERVED 01050000
FLCWAK EQU B'00010000' WACK LAST RESP SENT 01060000
FLCSOH EQU B'00001000' SOH,%,R REC FROM TERM 01070000
FLCTOR EQU B'00000100' TIME OUT RECEIVED 01080000
FLCNAK EQU B'00000010' NAK WAS LAST SENT 01090000
FLCTTD EQU B'00000001' TTD LAST RESP SENT 01100000
.RI050 ANOP 01110000
SPACE 2 01120000
CWKMAN EQU CWKFLC+TWOCWK MAIN DATA MANAGEMENT EP 01130000
SPACE 2 01140000
CWKINT EQU CWKMAN+TWOCWK INTERRUPT ENTRY POINTER 01150000
SPACE 2 01160000
CWKIOS EQU CWKINT+TWOCWK IOS ENTRY POINTER 01170000
SPACE 2 01180000
CWKWAT EQU CWKIOS+TWOCWK WAIT ENTRY POINTER 01190000
SPACE 2 01200000
CWKTCB EQU CWKWAT+TWOCWK TCB ADDRESS 01210000
SPACE 2 01220000
CWKRS2 EQU CWKTCB+TWOCWK RESERVED (2 BYTES) 01230000
SPACE 2 01240000
************************************************************** 01250000
* 01260000
* THIS SECTION CONTAINS CONSTANTS FOR THE LINE CONTROL CHARACTERS. 01270000
* THEY ARE EITHER IN EBCDIC OR ASCII, DEPENDING ON THE MODE OF 01280000
* OPERATION OF THE BINARY SYNCHRONOUS COMMUNICATION CONTROLLER. 01290000
************************************************************** 01300000
SPACE 01310000
CWKAK0 EQU CWKRS2+TWOCWK EVEN ACKNOWLEDGEMENT 01320000
SPACE 2 01330000
CWKAK1 EQU CWKAK0+TWOCWK ODD ACKNOWLEDGEMENT 01340000
SPACE 2 01350000
CWKDLE EQU CWKAK1+ONECWK DLE CHARACTER 01360000
SPACE 2 01370000
CWKSTX EQU CWKDLE+ONECWK STX CHARACTER 01380000
SPACE 2 01390000
CWKENQ EQU CWKSTX+ONECWK ENQ CHARACTER 01400000
SPACE 2 01410000
CWKTTD EQU CWKENQ STX ENQ SEQUENCE (TTD) 01420000
SPACE 2 01430000
CWKRVI EQU CWKENQ+TWOCWK RVI SEQUENCE 01440000
SPACE 2 01450000
CWKWAC EQU CWKRVI+TWOCWK WACK SEQUENCE 01460000
SPACE 2 01470000
CWKETB EQU CWKWAC+ONECWK ETB CHARACTER 01480000
SPACE 2 01490000
CWKNAK EQU CWKETB+ONECWK NAK CHARACTER 01500000
SPACE 2 01510000
CWKSYN EQU CWKNAK+TWOCWK TWO SYN CHARACTERS(SYN,SYN) 01520000
SPACE 2 01530000
CWKDIC EQU CWKSYN+TWOCWK DISC SEQUENCE(DLE,EOT) 01540000
SPACE 2 01550000
CWKEOT EQU CWKDIC EOT CHARACTER 01560000
SPACE 2 01570000
CWKOLT EQU CWKEOT+ONECWK % CHARACTER OLT 01580000
SPACE 01590000
CWKPCR EQU CWKOLT+ONECWK R CHARACTER 01600000
SPACE 01610000
* LINE CONTROL EQUATES 01620000
SPACE 01630000
SOH EQU X'01' START OF HEADING 01640000
ETX EQU X'03' END OF TEXT 01650000
STX EQU X'02' START OF TEXT 01660000
DLE EQU X'10' DATA LINK ESCAPE 01670000
SPACE 01680000
************************************************************** 01690000
* END OF CONSTANT AREA 01700000
************************************************************** 01710000
SPACE 01720000
CWKPM0 EQU CWKPCR+ONECWK PRM WORK AREA LEFT MOST BYTE 01730000
AIF (&DEFN EQ 'NO').RI060 01740000
PMR256 EQU B'00000001' I/O GREATER THAN 256K 01750000
.RI060 ANOP 01760000
CWKPMR EQU CWKPCR+TWOCWK PRM WORK AREA 2 BYTE AREA 01770000
AIF (&DEFN EQ 'NO').RI070 01780000
PMR128 EQU B'10000000' I/O GREATER THAN 128K 01790000
PMROP1 EQU B'01000000' TRANSLATE OP 1 ADDRESSES 01800000
PMROP2 EQU B'00100000' TRANSLATE OP 2 ADDRESSES 01810000
PMRINS EQU B'00010000' TRANSLATE I CYCLE ADDRESSES 01820000
PMRPRV EQU B'00001000' PRIVILEGED MODE 01830000
PMR064 EQU B'00000100' I/O GREATER THAN 64K 01840000
PMRPRT EQU B'00000010' STORAGE PROTECT 01850000
PMRMSK EQU B'00000001' MASK INTERRUPTS 01860000
.RI070 ANOP 01870000
SPACE 01880000
CWKSEG EQU CWKPMR+ONECWK 64K SEGMENT FIELD 01890000
AIF (&DEFN EQ 'NO').RI080 01900000
SPACE 01910000
SEG256 EQU B'00000100' ADDR GREATER THAN 256K 01920000
SEG128 EQU B'00000010' ADDR GREATER THAN 128K 01930000
SEG064 EQU B'00000001' ADDR GREATER THAN 64K 01940000
SPACE 01950000
********* 01960000
*EXAMPLE* B'00000111' ADDR GREATER THAN 448K 01970000
********* 01980000
.RI080 ANOP 01990000
SPACE 02000000
CWKCAR EQU CWKPMR+TRECWK REAL CAR VALUE (3 BYTES) 02010000
AIF (&DEFN EQ 'NO').RI090 02020000
CAR0 EQU CWKCAR-2 FIRST OF THREE BYTES 02030000
CAR1 EQU CWKCAR-1 SECOND OF THREE BYTES 02040000
.RI090 ANOP 02050000
SPACE 2 02060000
CWKCHR EQU CWKCAR+FIVCWK CHARACTERS RECEIVED (5 BYTES) 02070000
SPACE 02080000
CHRFRS EQU CWKCAR+ONECWK FIRST RECEIVED (TAR) 02090000
SPACE 02100000
CHRSEC EQU CWKCAR+TWOCWK SECOND RECEIVED (TAR+1) 02110000
SPACE 02120000
CHRTRD EQU CWKCAR+TRECWK THIRD RECEIVED (TAR+2) 02130000
SPACE 02140000
CHRNLT EQU CWKCAR+FORCWK NEXT TO LAST RECEIVED(CAR-4) 02150000
SPACE 02160000
CHRLST EQU CWKCAR+FIVCWK LAST RECEIVED (CAR-3) 02170000
SPACE 02180000
****** START OF DIAGNOSTIC CONSTANTS ****************** 02190000
SPACE 02200000
CWKZRO EQU CWKCHR+TWOCWK ZEROS 02210000
SPACE 2 02220000
CWKONE EQU CWKZRO+TWOCWK CONSTANT OF ONE 02230000
SPACE 2 02240000
CWKRS3 EQU CWKONE+TWOCWK RESERVED FIELD (2 BYTES) 02250000
SPACE 2 02260000
CWKCSM EQU CWKRS3+TWOCWK C/S OF MLTERFIL 02270000
SPACE 2 02280000
CWKCNT EQU CWKCSM+ONECWK LOOP CONTROL BYTE 02290000
SPACE 2 02300000
CWKCSL EQU CWKCNT+TWOCWK C/S ADDR OF MICRO CODE LOADER 02310000
SPACE 2 02320000
CWKCSD EQU CWKCSL+TWOCWK C/S ADDR OF MICRO CODE 02330000
SPACE 2 02340000
CWKTOK EQU CWKCSD+TWOCWK SUCCESSFUL TERMINAL I/O'S 02350000
SPACE 2 02360000
CWKTER EQU CWKTOK+TWOCWK UNSUCCESSFUL TERMINAL I/O'S 02370000
SPACE 2 02380000
*********************************************************************** 02390000
* THIS AREA CONTAINS ERROR AND STATISTICS COUNTERS - EACH COUNTER 02400000
* IS TWO BYTES LONG. THIS AREA IS WRITTEN TO DISK AT SHUTDOWN TIME 02410000
*********************************************************************** 02420000
SPACE 2 02430000
CWKSDR EQU CWKTER+ONECWK START OF STATISTICS AREA 02440000
SPACE 02450000
SDRSNT EQU CWKSDR+ONECWK TEXT BLOCKS SENT (2 BYTES) 02460000
SPACE 02470000
SDRRCV EQU SDRSNT+TWOCWK TEXT BLOCKS RECEIVED 02480000
SPACE 02490000
SDRNAK EQU SDRRCV+TWOCWK NAKS RECEIVED 02500000
SPACE 02510000
SDRDAT EQU SDRNAK+TWOCWK DATA CHECKS 02520000
SPACE 02530000
SDRFAB EQU SDRDAT+TWOCWK FORWARD ABORTS RECEIVED 02540000
SPACE 02550000
SDRABR EQU SDRFAB+TWOCWK ABORTS RECEIVED 02560000
SPACE 02570000
SDRTAC EQU SDRABR+TWOCWK ADAPTER CHECKS ON TRANSMIT 02580000
SPACE 02590000
SDRRAC EQU SDRTAC+TWOCWK ADAPTER CHECKS ON RECEIVE 02600000
SPACE 02610000
SDRINV EQU SDRRAC+TWOCWK INVALID RESPONSES RECEIVED 02620000
SPACE 02630000
SDRENQ EQU SDRINV+TWOCWK ENQS RECEIVED TO ACKS SENT 02640000
SPACE 02650000
SDRLST EQU SDRENQ+TWOCWK LOST DATA ERRORS 02660000
SPACE 02670000
SDRDIS EQU SDRLST+TWOCWK DISCONNECT TO/ABORT DISCONNECTS 02680000
SPACE 02690000
SDRRTO EQU SDRDIS+TWOCWK RECEIVE TIME-OUTS 02700000
SPACE 02710000
SDRMIC EQU SDRRTO+TWOCWK MICRO-CONTROLLER PARITY ERRORS 02720000
SPACE 02730000
CWKDTO EQU SDRMIC+TWOCWK DELAY TIME COUNT 02740000
SPACE 2 02750000
CWKDLY EQU CWKDTO+TWOCWK DELAY COUNT (VIA USER) 02760000
SPACE 2 02770000
CWKWKA EQU CWKDLY+TWOCWK WORK AREA (2 BYTES) 02780000
SPACE 2 02790000
CWKRS5 EQU CWKWKA+FORCWK RESERVED FIELD (4 BYTES) 02800000
SPACE 2 02810000
CWKOBR EQU CWKRS5+ONECWK START OF OBR AREA 02820000
SPACE 02830000
OBRQ EQU CWKOBR Q CODE AT TIME OF ERROR 02840000
OBRTYC EQU CWKOBR+ONECWK RETRY COUNT 02850000
OBRSNS EQU CWKOBR+TRECWK ATTACHMENT STATUS BYTES 02860000
OBRCMT EQU CWKOBR+FORCWK COMPLETION CODE 02870000
OBRPER EQU CWKOBR+FIVCWK PERM. ERROR = X'80' 02880000
OBRSDR EQU CWKOBR+SVNCWK ADDR OF BSCC SDR COUNTERS 02890000
SPACE 02900000
CWKOBE EQU CWKRS5+ATECWK END OF OBR AREA 02910000
SPACE 2 02920000
CWKYHP EQU CWKOBE+FIVCWK HALT PARAMETER LIST (5 BYTES) 02930000
SPACE 2 02940000
CWKWKB EQU CWKYHP+FORCWK WORK AREA FOR SENT & RCV COUNTS 02941000
SPACE 2 02942000
CWKSNT EQU CWKWKB+FORCWK NUMBER OF BYTES TRANSMITTED 02943000
SPACE 2 02944000
CWKRCV EQU CWKSNT+FORCWK NUMBER OF BYTES RECEIVED 02945000
SPACE 2 02946000
************************************************************** 02950000
* 02960000
* THE FOLLOWING AREA IS UTILIZED BY ON-LINE TESTS 02970000
* 02980000
************************************************************** 02990000
SPACE 2 03000000
CWKONL EQU CWKRCV+ONECWK START OF ON-LINE TEST AREA 03010000
SPACE 03020000
ONLSAV EQU CWKRCV+FTNCWK OLT PARM SAVE AREA (14 BYTES) 03030000
SPACE 03040000
SAVEPS EQU CWKONL OLT ENTRY SWITCH 03050000
AIF (&DEFN EQ 'N0').RI100 03060000
SPACE 03070000
ONLSW1 EQU X'01' FIRST ENTRY SWITCH 03080000
ONLSW2 EQU X'02' SECOND ENTRY SWITCH 03090000
ONLSW3 EQU X'04' THIRD ENTRY SWITCH 03100000
ONLTX1 EQU X'08' TRANSMIT COUNT = 1 03110000
ONL270 EQU X'10' 3270 TEST TYPE 03120000
ONLRAP EQU X'20' WRAP TEST IN PROCESS 03130000
ONLLOC EQU X'40' LOCAL TEST 01,06,14 IN PROCESS @02 03133000
ONLSTA EQU X'80' CONTROL STATION @02 03136000
.RI100 ANOP 03140000
SPACE 03150000
SAVPOL EQU SAVEPS+TWOCWK POLL LIST ADDRESS SAVE AREA 03160000
SPACE 03170000
SAVMSG EQU SAVPOL SAVE AREA FOR MESSAGE TYPE 03180000
SPACE 03190000
SAVCNT EQU SAVMSG+TWOCWK TRANSMISSION COUNT 03200000
SPACE 03210000
SAVNID EQU SAVCNT+ONECWK NUMBER OF ID CHARACTERS 03220000
SPACE 03230000
SAVFID EQU SAVNID+ONECWK FIRST ID CHARACTER 03240000
SPACE 03250000
SAVEID EQU SAVFID+SIXCWK END OF ID CHARACTER AREA 03260000
SPACE 03270000
SAVMST EQU SAVEID+ONECWK MESSAGE TYPE 03280000
SPACE 03290000
ONLCS EQU ONLSAV+TWOCWK OLT PARM CYLINDER/SECTOR AREA 03300000
SPACE 03310000
ONLDSP EQU ONLCS+ONECWK YMOLT EXIT DISPLACEMENT 03320000
AIF (&DEFN EQ 'N0').RI101 03330000
SPACE 03340000
ONLIOS EQU X'00' DISPLACEMENT OF BRANCH TO IOS 03350000
ONLPOL EQU X'04' DISPL OF BRANCH TO START POLL 03360000
ONLINV EQU X'08' DISP OF BRANCH FOR INVALID OLT 03370000
ONLRCV EQU X'0C' DISP OF BRANCH FOR RCV/INIT 03373000
ONLRES EQU X'10' DISP OF BRANCH FOR RESCHEDULE 03376000
.RI101 ANOP 03380000
SPACE 03390000
ONLWRK EQU ONLDSP+FTNCWK OLT SAVE/WORK AREA (14 BYTES) 03400000
SPACE 03410000
WRKBEG EQU ONLDSP+ONECWK START OF OLT SAVE AREA 03420000
SPACE 03430000
WRKPTR EQU WRKBEG+ONECWK POINTER SAVE AREA 03440000
SPACE 03450000
WRKT70 EQU WRKBEG CONVERTED 3270 MESSAGE TYPE 03460000
SPACE 03470000
WRKMSG EQU WRKPTR+TWOCWK LENGTH OF STRING 03480000
SPACE 03490000
WRKATT EQU WRKMSG+ONECWK CLBATT BYTE SAVE AREA 03500000
SPACE 03510000
WRKENQ EQU WRKATT+ONECWK ENQ COUNT SAVE AREA 03520000
SPACE 03530000
WRKIDC EQU WRKENQ+TWOCWK ID LENGTH SAVE AREA 03540000
SPACE 03550000
WRKDAT EQU WRKIDC+TWOCWK DATA BUFFER ADDRESS SAVE AREA 03560000
SPACE 03570000
WRKMTY EQU WRKDAT+TWOCWK MESSAGE TYPE SAVE AREA 03580000
SPACE 03590000
WRKTNT EQU WRKMTY+TWOCWK TRANSMIT COUNT SAVE AREA 03600000
SPACE 03610000
ONLCNT EQU ONLWRK+FORCWK OLT COUNTER AREA 03620000
SPACE 03630000
CNTMOK EQU ONLWRK+ONECWK MESSAGES SENT/RCVED OK 03640000
SPACE 03650000
CNTMNG EQU CNTMOK+ONECWK MESSAGES SENT/RCVED IN ERROR 03660000
SPACE 03670000
CNTTO EQU CNTMNG+ONECWK NUMBER OF TIMEOUTS 03680000
SPACE 03690000
CNTOTR EQU CNTTO+ONECWK UNRECOGNIZED OR OTHER ERRORS 03700000
SPACE 03710000
* END OF ON-LINE TEST AREA 03720000
************************************************************** 03730000
CWKBUF EQU ONLCNT+ONECWK DELAY IOB BUFFER 03740000
SPACE 2 03750000
CWKBFE EQU CWKBUF+ATNCWK END OF DELAY IOB BUFFER 03760000
SPACE 2 03770000
CWKEND EQU CWKBFE END OF CWK 03780000
SPACE 2 03790000
CWKLNG EQU CWKEND-CWKBEG+1 LENGTH OF CWK 03800000
SPACE 2 03810000
*********************************************************************** 03820000
MEND 03830000