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