|
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: 13462 (0x3496)
Types: s3xseg
Names: »S$E095«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$E095«
MACRO 00010000
.********************************************************************** 00020000
.* NAME: $E095 * 00030000
.********************************************************************** 00040000
$E095 &DMESTR- 00050000
GBLB &ONE,&NOB,&NOM,&MIN,&NDME 00060000
GBLB &NPP,&NMP,&NSWL,&NCS,&NITB,&NTSP,&N32,&NAS,&NDF,&NCPU 00070000
GBLB &NMSG,&N37,&NINT,&N41 00080000
GBLB &NSW,&N1050,&N2741,&NMOVE,&NSCTL,&NBFR 00090000
LCLA &MIX 00100000
TABLE &DMESTR . DATA MODE ESCAPE STRING 00110000
'' TABDF CL6'//////' . DEFAULT STRING FOR CURRENT USE 00120000
TEXT 00130000
* R-06,C-00 CHANGE LEVEL 00140000
TITLE '$E095---WORK AREA' 00150000
******************************************************************* 00160000
* CM WORK AREA * 00170000
******************************************************************* 00180000
SPACE 2 00190000
X$FFFC DC XL2'FFFC' CONSTANT OF FFFC 00194000
GMFAIL DC XL2'0020' PSR SETTING = BINARY OVERFLOW 00196000
CMSWIT DC BL1'0' SET OF EIGHT BINARY SWITCHES 00200000
CMFMPS EQU BIT0 CM WAS POSTED BY $CC4FM 00210000
CMRSLN EQU BIT1 1-INDICATES LINE CAN BE RESCHED 00220000
CMTPRQ EQU BIT2 1-INDICATES REQUEST JUST 00230000
* SCHEDULED WAS RESULT OF TP REQ 00240000
* POST BIT BEING SET 00250000
CMNOST EQU BIT4 1-ONLINE TEST START FAILED 00260000
CMBSCK EQU BIT5 1-BSCA DTF SET UP FOR CHECK CALL 00270000
CMSPSI EQU BIT6 1-CM HAS HANDLED STOP INVITE TO 00280000
* * A STATUS POLL TERMINAL. 00290000
* -----START-------------------@23 00292000
CMRFCK DC XL2'0000' PRUF PGM LENGTH CHECK FIELD 00294000
CMSEVN DC XL2'0007' PGM LENGTH FOR PRUF COMPARE 00296000
* -----END---------------------@23 00298000
SPACE 2 00300000
* ECB LIST USED BY $CC4CM TO WAIT FOR MORE WORK 00310000
SPACE 1 00320000
ECBLST EQU * * WAIT LIST FOR CM 00330000
DC AL2($CMECB) ECB FOR II,IB,IM,DF TO POST CM. 00340000
DC AL2($CMFM) ECB FOR $CC4FM TO POST THAT 00350000
* * FREEMAIN HAS OCCURRED. 00360000
AIF (&NINT).CT030 00370000
DC AL2(TIMIOB+7) INTERVAL TIMER ECB NB 00380000
.CT030 ANOP 00390000
DC XL2'FFFF' 00400000
SPACE 1 00410000
AIF (&NDME).D5100 00420000
AIF (&NOM).M2100 00430000
* SPECIAL TRANSLATE LIST FOR DATA MODE ESCAPE COMMAND CHECK DM 00440000
* IT IS SET UP TO TRANSLATE 6 BYTES INTO A PRE-DEFINED FIELD DM 00450000
* ALL FIELDS ARE PRE-SET EXCEPT FROM ADDRESS. DM 00460000
SPACE 00470000
CMDMTL EQU * DATA MODE ESCAPE TRANS LIST DM 00480000
DC AL2(DMELEN) FROM LENGTH DM 00490000
DC AL2(CMDMEB) TO ADDR DM 00500000
DS AL2 FROM ADDR DM 00510000
DC IL2'6' TO LENGTH DM 00520000
DS XL1 RETURN CODE DM 00530000
SPACE 2 00540000
.M2100 ANOP 00550000
AIF (&NOM).M2200 00560000
CMDMEB EQU * DATA MODE ESCAPE CHK REC AREA DM 00570000
DS CL6 TRANSLATE 1ST 6-BYTES HERE. DM 00580000
.M2200 ANOP 00590000
.D5100 ANOP 00600000
SPACE 00610000
* GETMAIN PARAMETER LIST 00620000
SPACE 1 00630000
GMLIST EQU * START OF GETMAIN PARM LIST 00640000
DS AL2 GETMAIN ADDRESS 00650000
DS XL2 SIZE OF GETMAIN AREA 00660000
SPACE 2 00670000
* SAVE AREAS 00680000
SPACE 2 00690000
* THE FOLLOWING 4 BYTES MUST REMAIN TOGETHER FOR PARAMETER LIST 00700000
CMOCPL EQU * * 4 BYTE PL FOR MLMP OPEN/CLOSE 00710000
CMSPL DS AL2 SAVE AREA FOR PARM LIST ADDR 00720000
CMSDTF DS AL2 SAVE AREA FOR TP DTFADDR 00730000
SAVCAT DC XL4'0' SAVE AREA FOR IOBCAR + IOBTAR B 00735000
SPACE 1 00740000
CMNWPL DC AL2(0) ADDR OF NO WAIT OP PL FROM II 00750000
CMLPL DC AL2(0) LAST READ PL SCHEDULED BY CMIVGM 00760000
SPACE 1 00770000
AIF (&NOB).NB030 00780000
CCPUT DC XL1'02' PUT OP CODE (FOR REFRESH) B 00785000
AIF (&MIN).N0200 00790000
.NB030 ANOP 00800000
* SAVE AREA FOR TERMINAL ATTRIBUTES R 00810000
* NOTE: SAVTA1 AND SAVTA2 ARE SET BY ONE MOVE INTO SAVRCL OR R 00820000
* SAVTA2. R 00830000
SAVTA1 DC XL1'0' TERMINAL ATTRIBUTE SET BYTE 1.R 00840000
SAVTA2 DC XL1'0' TERMINAL ATTRIBUTE SET BYTE 2.R 00850000
AIF (&NOB).C0585 00860000
SAVRCL DC XL2'00' TERM ATTR SET RECORD LENGTH. RB 00870000
SPACE 1 R 00880000
.C0585 ANOP 00890000
CMSPHY DC AL1(0) SAVE AREA FOR TUBPHY. R 00900000
#BUFND DS CL2 CONTAINS STORAGE BUFFER R 00910000
* * SIZE NEEDED. R 00920000
.N0200 ANOP 00930000
CMIIND DS XL2 SIZE OF BUFFER NEEDED FOR LINE 00940000
AIF (&NOM).M2210 00950000
CMTCHR DS XL1 SAVE AREA- TUB CHARACTERISTICS M 00960000
AIF (&NSCTL).S5940 00970000
CMSTMA DS XL2 SAVE AREA FOR MLTA TERM ADDR CM 00980000
* HAS BEEN REQUESTED CM 00990000
.S5940 ANOP 01000000
SPACE 01010000
.M2210 ANOP 01020000
* ADDRESS PLUGGED BY MLMP/MLTA IOCS - NO EXPLICITLY USED BUT 01030000
* THE IOCS(S) ASSUME IT IS ALWAYS IN $$BMCH WHICH WE REPLACE 01040000
CHBMHL DC XL3'0' BOGUS DC FOR BRACKET HALT 01050000
AIF (&NOM).M2240 01060000
CHBMPC EQU *-1 BOGUS DC FOR PCI INTERRUPTS M 01070000
.M2240 ANOP 01080000
SPACE 3 01090000
****************************************************************** 01100000
* CM CONSTANT AREA * 01110000
****************************************************************** 01120000
SPACE 1 01130000
AIF (&NSCTL).S5950 01140000
MLSTCL DC AL1($MTPLT) STATION CONTROL BIT CM 01150000
.S5950 ANOP 01160000
AIF (&NOM).M2250 01170000
CMTYPZ DC IL2'16' NUMBER OF TYPEWRITER CONTROL M 01180000
* CHARACTERS ADDED TO MESSAGES M 01190000
* THIS FIELD CHANGED IF BUFF REC M 01200000
* TERMINALS IN THE SYSTEM M 01210000
* (1 CARRIAGE RET + 1-15 IDLES) M 01220000
SPACE 01230000
AIF (&N1050).N2240 01240000
SPACE 01250000
* MULTI-COMPONENT TERMINAL TABLE * 1M 01260000
MCTABL EQU * MCT TABLE 1M 01270000
DC XL1'0B' KEYBOARD INDEX 1 1M 01280000
DC XL1'0D' READER 1 INDEX 2 1M 01290000
DC XL1'0E' READER 2 INDEX 3 1M 01300000
DC XL1'15' ANY INPUT DEVICE INDEX 4 1M 01310000
DC XL1'02' PRINTER 1 INDEX 5 1M 01320000
DC XL1'04' PRINTER 2 INDEX 6 1M 01330000
DC XL1'07' PUNCH 1 INDEX 7 1M 01340000
DC XL1'06' PUNCH 2 INDEX 8 1M 01350000
DC XL1'13' ALL OUTPUT COMPONENTS INDEX9 1M 01360000
SPACE 2 01370000
.N2240 ANOP 01380000
.M2250 ANOP 01390000
SPACE 1 01400000
AIF (&NOB).C0590 01410000
FNDEOT DC AL2(BBUCKT) @ OF BIT BUCKET AREA FOR SEARCHB 01420000
BBUCKT DC XL1'00' DUMMY AREA FOR SEARCH EOT. B 01430000
SPACE 2 01440000
&MIX SETA &NITB+&NTSP+5*&NDF 01450000
AIF (&MIX NE '5').T1300 01460000
TWO DC AL2(2) ITB/TRANSP BUMP CONSTANT. IXB 01470000
.T1300 ANOP 01480000
AIF (&MIN).NX020 01490000
FIVE DC XL2'0005' CONSTANT OF FIVE. RB 01500000
.NX020 AIF (&NSWL).S0100 01510000
THREE DC AL2(3) NSI BUMP CONSTANT. SB 01520000
.S0100 ANOP 01530000
OLTLNG DC AL2(7) LENGTH OF OLT PARM LIST. B 01540000
AIF (&MIN).N0400 01550000
IOBLEN DC AL2(IOBL) LENGTH OF BSCA IOB. RB 01560000
.N0400 ANOP 01570000
LINFO EQU IOBL MAX # LINE CONTROL CHARS MLMP. B 01580000
&MIX SETA &N32+&N37+&N41 01590000
AIF (&MIX EQ '3').T1400 01600000
RELSNS DC XL2'0014' MAX RECL FOR STATUS POLL. 0/57B 01610000
AIF (&N32).T1400 01620000
MAXMSG DC AL2(80+FORMTL) MAX SPACE FOR SYSTEM MSG. 0B 01630000
CMSTUS DC AL2(SSID) CHECK VALUE FOR 3270 STATUS MS0B 01640000
.T1400 ANOP 01650000
&MIX SETA &NAS+&N32 01660000
AIF (&MIX NE '0').T1500 01670000
CMSTAS DC XL2'2552' ASCII '%R', STATUS MSG. 0AB 01680000
.T1500 ANOP 01690000
AIF (&N37).T1600 01700000
CMNULS DC XL3'00E200' NUL-S-NUL HEADER, 3735 STATUS.5B 01710000
AIF (&NAS).T1600 01720000
CMNULA DC XL3'005300' NUL-S-NUL (ASCII). 5AB 01730000
.T1600 ANOP 01740000
AIF (&N41).N3741 01741000
CMSME DC CL2'%V' PERCENT-V HEADER,3741 STATUS 7B 01742000
AIF (&NAS).N3741 01743000
CMSMA DC XL2'2656' PERCENT-V HEADER (ASCII) 7B 01744000
.N3741 ANOP 01745000
AIF (&NINT).CT040 01750000
TIMOPE DC XL1'01' TIMER INTERNAL SWITCH NB 01790000
VALOPE EQU BIT7 BIT 7=1 - DON'T WAIT ON TIMER NB 01800000
* * AN OP END OCCURRED. NB 01810000
POL1MN EQU BIT6 BIT 6=1 - POLL UNTIL TIME = 0 NB 01820000
SPACE 1 01830000
TIMIOB EQU * INTERVAL TIMER IOB NB 01840000
DC XL1'0' FLAG BYTE NB 01850000
* 02 = TIME IS IN TIMER UNITS NB 01860000
* (1 TU = 3.33 MS ) NB 01870000
* FF = CANCEL REMAINING TIME NB 01880000
DC XL6'000000000258' TIME(INITIAL = 2 SEC.) NB 01890000
DC XL3'0' ECB FOR TIMER NB 01900000
.CT040 ANOP 01910000
.C0590 ANOP 01920000
SPACE 1 01930000
AIF (&NDME).D5120 01940000
CMDME DC &DMESTR DATA MODE ESCAPE STRING D 01950000
.D5120 ANOP 01960000
PLGMLG DC AL2(PLLEN+4) PL GETMAIN LENGTH INCL FREELIST 01970000
TITLE '$E095---EQUATES' 02070000
* COMMON MLTA/BSCA EQUATES 02080000
SPACE 02090000
GMCCP EQU 0 BEGINNING OF GETMAIN PARM LIST 02100000
GMADDR EQU GMCCP+2-1 GETMAIN ADDRESS 02110000
GMSIZE EQU GMADDR+2 SIZE OF GETMAIN AREA 02120000
SPACE 02130000
DMELEN EQU 6 LENGTH OF DME STRING D 02140000
TLERR EQU BIT7 BIT IN TRANSLATE RETURN CODE TO 02150000
* INDICATE INVALID CHAR TRANSLATED 02160000
HEX512 EQU X'02' VALUE OF HEX 02 02165000
DTF EQU 2 DTF REG. 02170000
PL EQU 1 PARAMETER LIST REGISTER. 02180000
TUB EQU 1 PTR TO TERMINAL UNIT BLOCK. 02190000
SWAPFR EQU X'01' MOVE TYPE FOR FROM ATR SWAP 02200000
SWAPTO EQU X'02' MOVE TYPE FOR TO ATR SWAP 02210000
TRMTSK EQU X'E3' ID OF TERMINATIONS TASK 02215000
* EQUATES FOR COMMON CHECK * 02220000
SPACE 1 02230000
DTFADR EQU 2 DISPLACEMENT TO DTF IN WAIT LIST 02240000
LISTRG EQU 1 WAIT LIST POINTER - REGISTER 1 02250000
NEXT EQU 3 DISPLACEMENT TO NEXT LIST ENTRY 02260000
NOBSCA EQU X'00' MASK TO TEST FOR BSCA PRESENCE 02270000
NOMLTA EQU X'00' MASK TO CHECK FOR NO MLTA PRESENT 02280000
OPGONE EQU X'08' CODE DESTROYED BIT 02290000
UNCOND EQU X'87' UNCONDITIONAL Q-CODE FOR BRANCH 02300000
CHLSTS EQU 0 CHECK LIST STATUS BYTE 02310000
CHLSKP EQU X'80' CHECK LIST: SKIP ENTRY BIT 02320000
CHLAST EQU X'20' CHECK LIST: LAST ENTRY INDICATOR 02330000
SPACE 1 02340000
* DTF EQUATES. 02350000
SPACE 1 02360000
DTFDEV EQU 0 DTF DEVICE TYPE. 02370000
DTFATR EQU 3 DTF ATTRIBUTE BYTE. 02380000
FILEAC EQU X'02' FILE ACTIVE. 02390000
FILOPN EQU X'01' FILE OPENED. 02400000
DTFCMP EQU 14 DTF COMPLETION CODE. 02410000
OPACC EQU X'00' OPERATION ACCEPTED. 02420000
NOCOMP EQU X'56' NO COMPLETED DTF'S. 02430000
INACTV EQU X'57' NO ACTIVE DTF'S. 02440000
SPACE 1 02450000
* SVC RIB EQUATES 02460000
SPACE 1 02470000
POSTRB EQU X'05' SVC RIB FOR POST SINGLE ECB. 02480000
WAITRB EQU X'04' SVC RIB FOR WAIT ON ECB LIST. 02490000
MVRIB EQU X'02' SVC SUBRIB FOR MOVE ROUTINE 02500000
GMRIB EQU X'03' SVC SUBRIB FOR CCP GETMAIN. 02510000
FMRIB EQU X'04' SVC SUBRIB FOR CCP FREEMAIN 02520000
TRRIB EQU X'09' SVC SUBRIB FOR TRACE 02530000
LDRIB EQU X'80' SVC RIB FOR LOAD DSM XIENT (C/S) 02540000
TTMRIB EQU X'16' SVC RIB FOR TEST TIMER 02550000
STMRIB EQU X'15' SVC RIB FOR START TIMER 02560000
CCPRIB EQU X'01' SVC RIB FOR CCP REQUEST.($CC4IG) 02570000
SPACE 2 02580000
FLSNEQ EQU X'96' CONDITION: FALSE OR NOT EQUAL. 02590000
FLSNLO EQU X'95' CONDITION: FALSE OR NOT LOW. 02600000
FLSOEQ EQU X'91' CONDITION: FALSE OR EQUAL. 02610000
FLSOHI EQU X'94' CONDITION: FALSE OR HI. 02620000
TRUAEQ EQU X'16' CONDITION; TRUE AND EQUAL. 02630000
TRUALO EQU X'15' CONDITION: TRUE AND LOW. 02640000
TRUNEQ EQU X'11' CONDITION: TRUE AND NOT EQUAL. 02650000
TRUAHI EQU X'13' CONDITION: TRUE AND HIGH. 02655000
AIF (&NOM).M2400 02660000
EJECT 02670000
* MLTA EQUATES M 02680000
SPACE 02690000
CMCR EQU X'5B' LINE CODE CARRIAGE RET CHAR M 02700000
CMIDLE EQU X'5E' LINE CODE IDLE CHARACTER M 02710000
CMCRTM EQU 73 MAX INPUT TO ALLOW CARRIAGE TO M 02720000
* RETURN WITHOUT IDLE CHAR M 02730000
MLRSET EQU X'01' RESET BIT IN OP CODE M 02740000
MLCONT EQU X'02' CONTINUE OP CODE BIT M 02750000
MLCONV EQU X'04' CONVERSATIONAL OP CODE BIT M 02760000
MLREAD EQU BIT3 MLTA READ OP BIT M 02770000
MLWRIT EQU BIT2 MLTA WRITE OP BIT M 02780000
TLCREL EQU BIT6 BIT IN RETURN CODE TO INDICATE M 02790000
* CARRIAGE RETURN AT END OF LINE M 02800000
CMTYPL EQU X'10' # OF TYPEWRITER CHARS ADDED M 02810000
* TO MESSAGE IF REQUESTED BY USERM 02820000
CMTYBF EQU 1 NUMBER OF TYPEWRITER CONTROL M 02830000
* CHARS TO ADD FOR BUFFERRED REC M 02840000
MLSCCS EQU X'FD' BAD BITS IN RET CODE FROM MLTA M 02850000
MLCITP EQU X'06' TERMINAL INTERRUPT M 02860000
.M2400 ANOP 02870000
SPACE 3 02880000
AIF (&NOB).C0600 02890000
EJECT 02900000
* BSCA EQUATES B 02910000
SPACE 02920000
BLANK EQU X'40' MASK FOR A BLANK CHARACTER. B 02930000
BSCA EQU X'80' Q CODE FOR BSCA. B 02940000
DONE EQU X'40' NORMAL COMPLETION. B 02950000
POLBIT EQU X'20' ON-ADDRESSING, OFF-POLLING. B 02960000
READY EQU X'84' IOB READY FOR TRANSMIT. B 02970000
SBF1 EQU X'7B' SBF BASED ON XR1. B 02980000
SBN1 EQU X'7A' SBN BASED ON XR1. B 02990000
SBF2 EQU X'BB' SBF BASED ON XR2. B 03000000
SBN2 EQU X'BA' SBN BASED ON XR2. B 03010000
STPRT EQU X'08' MASK FOR START PRINT BIT IN WCC 03015000
TXTSNT EQU X'01' INITIAL SETTING TEXT INDICATORSB 03020000
WCC EQU 2 DISPLACEMENT OF WCC IN PLRECA. 03025000
IBX EQU 2 IOB WORK REG FOR BUFFER CARVE. B 03030000
IOB EQU 1 PTR TO INPUT/OUTPUT BLOCK B 03040000
POL EQU 1 POLL LIST WORK REGISTER. B 03050000
WKA EQU 1 WORK AREA REGISTER. B 03060000
WORK EQU 1 GENERAL WORK REG. B 03070000
FC EQU X'FC' USED FOR LESS THAN 3 CHECK FB 03075000
POLSKP EQU X'80' SKIP BIT FOR POLLING LIST CB 03080000
CPURGE EQU X'59' CCP ABORT COMPLETION CODE B 03090000
NSECS EQU 7 NUMBER OF SECTORS-1 FOR C/S B 03100000
* TRANSIENT LOAD B 03110000
AIF (&NINT).CT050 03120000
* EQUATES FOR TIMER INITIATED POLLING NB 03130000
SPACE 1 03140000
TIFLAG EQU 0 TIMER FLAG BYTE NB 03150000
* 02=TIME IS IN TIMER UNITS NB 03160000
* FF=CANCEL REMAINING TIME NB 03170000
TITIME EQU 6 TIME FIELD NB 03180000
.CT050 ANOP 03190000
.C0600 ANOP 03200000
MEND 03210000