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