|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$E031«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E031«
MACRO 00010000
.******************************************************************* 00020000
.* * 00030000
.* NAME: $E031 * 00040000
.* * 00050000
.* STATUS: RELEASE 2 MODIFACATION LEVEL-0 * 00060000
.* * 00070000
.* FUNCTION: GENERATE CODE FOR RESIDENT OPEN/CLOSE * 00080000
.* * 00090000
.* * 00100000
.* * 00110000
.******************************************************************* 00120000
$E031 00130000
.* 00140000
TEXT 00150000
.* 00160000
TITLE 'RESIDENT OPEN/CLOSE CCP RESIDENT CODE' 00170000
************************************************************************00180000
* SAVE AND SWAP ATRS FOR RESIDENT OPEN/CLOSE ATRS *00190000
************************************************************************00200000
SPACE 1 00210000
ENTRY $CC4OC 00220000
$CC4OC EQU * 00230000
CCP X'79',PMR MASK INTERRUPTS 00240000
L NCTCB@,XR1 --> TCB 00250000
LA TCB@1F(,XR1),XR1 --> ATR 1F 00260000
MVC TCBOFT+5(6,XR1),21(,XR1) SAVE ATRS 0A -> 0F 00270000
MVC TCBOFT+9(,XR1),3(4,XR1) SAVE ATRS 1C -> 1F 00280000
MVC 21(2,XR1),@ROCAT MOVE IN FIRST TWO ATRS 00290000
LCP 21(,XR1),OC0A0B LOAD ATR 0A AND 0B 00300000
B $CCROC GO TO RESIDENT OPEN/CLOSE 00310000
************************************************************************00320000
* RESIDENT OPEN/CLOSE WILL STORE THE ARR AND RETURN HERE *00330000
* AFTER FINISHING THE PARTICULAR FUNCTION WITH XR1 --> TCB. *00340000
************************************************************************00350000
SPACE 1 00360000
LCP TCBATT-10(,XR1),OC0A0B LOAD ATRS 0A AND 0B 00370000
CCP X'78',PMR UNMASK INTERRUPTS 00380000
CLI TCBEJC(,XR1),NOBIT ANY ERRORS ? 00390000
JE ROCRTN NO, JUMP 00400000
SVC 0 YES, TERMINATE 00410000
DC XL1'84' 00420000
ROCRTN SVC 0 NO, RETURN TO USER 00430000
DC XL1'08' 00440000
SPACE 1 00450000
TCB@1F EQU X'2F' OFFSET TO ATR 1F 00460000
TCBOFT EQU X'DE' OFFSET TO SAVE AREA IN TCB 00470000
OC0A0B EQU 85 ATR 0A AND 0B 00480000
$CCROC EQU X'5006' START ADDRESS OF RESIDENT OPEN 00490000
MEND 00500000