ibm:vm370-lib:macro:extsect.macro_src
Table of Contents
EXTSECT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- EXTSECT.MACRO.txt
- MACRO 00001000
- EXTSECT &SECT 00002000
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- EXTSECT DSECT 00004000
- AGO .CONT 00005000
- .CSECT ANOP 00006000
- EXTSECT DS 0D 00007000
- ENTRY EXTSECT 00008000
- ENTRY EXTPSW 00009000
- .CONT ANOP 00010000
- * 00011000
- * STORAGE FOR TIMER INTERRUPT ... 00012000
- * 00013000
- EXSAVE DS 16F _________ SAVED REGISTERS 00014000
- TYPLIST DC CL8'TYPLIN' _ P-LIST TO TYPE BLIP-CHAR'S 00015000
- TIMCCW DC A(TIMCHAR) 00016000
- DC C'B',X'81',AL2(1) @VA01251 00017100
- TIMCHAR DC X'FF',XL7'00' BLIP-CHARACTER(S) 00018000
- SCAW DC XL12'00' ____ SAVED CSW-CAW 00019000
- TIMINIT DC A(2000000/13) VALUE TO SET TIMER = 2 SECONDS 00020000
- * 00021000
- * STORAGE FOR EXTERNAL (OTHER THAN TIMER) INTERRUPT ... 00022000
- * 00023000
- EXSAVE1 DS 16F _________ SAVED REGISTERS 00024000
- EXTPSW DC X'80000000' FILLED-IN PSW... @VA03313 00025100
- DC A(0) 00026000
- SAVEXT DC F'0' ______ TRANSFER-ADDRESS FOR EXT. INT. 00027000
- DC V(DMSDBG) __ ADDRESS IN DEBUG FOR EXT. INT. 00028000
- * 00029000
- * STORAGE FOR EXTERNAL INTERRUPT SET UP BY "TRAP" ... 00030000
- * 00031000
- EXTRET DS D ___________ SAVED EXT-OLD-PSW 00032000
- JR0 DC F'22' _______ 22 DBL-WORDS FOR FPRS & USER-SAVAREA P3048 00033000
- JR1 DC A(0) ________ ADDRESS OF FREE STORAGE 00034000
- * 00035000
- STIMEXIT DC A(0) - ADDRESS OF STIMER EXIT ROUTINE 00036000
- * @VM08901 00037100
- EXTFLAG DC X'00' - @VM08901 00037200
- REALTIMR EQU X'80' - REAL TIMER INDICATOR @VM08901 00037300
- * @VM08901 00037400
- DC AL3(0) - RESERVED FOR FUTURE USE @VM08901 00037500
- EJECT 00038000
- MEND 00039000
ibm/vm370-lib/macro/extsect.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator