*COPY TIMER 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').TIM01 00001400 PRINT OFF,NOGEN 00001600 .TIM01 ANOP 00001800 TRQBLOK DSECT 00004000 SPACE 00005000 *** TRQBLOK - TOD CLOCK COMPARATOR REQUEST 00006000 * 00007000 * 0 +-----------------------------------------------+ 00008000 * | TRQBVAL | 00009000 * 8 +-----------------------+-----------------------+ 00010000 * | TRQBFPNT | TRQBBPNT | 00011000 * 10 +-----------------------+-----------------------+ 00012000 * | TRQBTOD | 00013000 * 18 +-----------------------+-----------------------+ 00014000 * | TRQBUSER | TRQBIRA | 00015000 * 20 +-----------------------+-----------------------+ 00016000 * | TRQBQUE | 00017000 * 28 +-----------------------------------------------+ 00018000 * 00019000 *** TRQBLOK - TOD CLOCK COMPARATOR REQUEST 00020000 SPACE 00023000 TRQBVAL DS 1D TOD CLOCK COMPARATOR VALUE FOR INTERRUPT 00024000 TRQBFPNT DS 1F POINTER TO NEXT TRQBLOK 00025000 TRQBBPNT DS 1F POINTER TO PREVIOUS TRQBLOK 00026000 TRQBTOD DS 1D TOD CLOCK VALUE WHEN TRQBLOK IS QUEUED 00027000 TRQBUSER DS 1F ADDRESS OF VMBLOK FOR USER 00028000 TRQBIRA DS 1F INTERRUPT RETURN ADDRESS 00029000 TRQBQUE DS 1D TIME LEFT IN QUEUE; TRK. VIRT. CPU TIMER 00030000 SPACE 00031000 TRQBSIZE EQU (*-TRQBLOK)/8 SIZE IN DOUBLE WORDS 00032000 SPACE 2 00033100 * GRAPHICS EXTENSION 00034100 SPACE 2 00035100 * 28 +-----------------------+-----------+-----+-----+ 00036100 * | TRQBCRT | TRQBDEV | T*1 | T*2 | 00037100 * 30 +-----------------------+-----+-----+-----+-----+ 00038100 * | TRQBRSV1 | T*3 | TRQBRSV2 | 00039100 * +-----------------------------+-----+-----------+ 00040100 SPACE 2 00041100 TRQBCRT DS 1F GRAF DEVICE RETURN IRA @VA13071 00042100 TRQBDEV DS 1H GRAF DEVICE DEV ADDRESS @VA13071 00043100 TRQBFLAG DS 1X T*1 GRAF DEVICE FLAGS @VA13071 00044100 TRQBLINE DS 1X T*2 LINE COORDINATE FOR INPUT @VA13071 00045100 * AREA 00046100 TRQBRSV1 DS 5X RESERVED FOR IBM USE @VA13071 00047100 TRQBFLG3 DS 1X T*3 MORE GRAF DEVICE FLAGS @VA13071 00048100 TRQBRSV2 DS 2X RESERVED FOR IBM USE @VA13071 00049100 SPACE 00050100 CRTEXT EQU (*-TRQBCRT)/8 SIZE OF EXTENSION IN DOUBLE WORDS@VA13071 00051100 CRTEXTSZ EQU *-TRQBCRT SIZE OF EXTENSION IN BYTES @VA13071 00052100 SPACE 2 00053100 * BITS DEFINED IN TRQBFLAG FOR GRAF DEVICE CONTROL 00054100 CRTFMT EQU X'80' SCREEN FORMATTED VM/370 ONLINE @VA13071 00055100 CRTDIAG EQU X'40' SCREEN WRITTEN WITH DIAGNOSE @VA13071 00056100 * X'19' COMMAND CODE 00057100 CRTALRM EQU X'20' SCREEN HAS ALARM MESSAGE @VA13071 00058100 CRTWNG EQU X'10' SCREEN HAS MORE...WARNING @VA13071 00059100 CRTCARD EQU X'08' DATA FROM CARD READER @VA13071 00060100 CRTUSEWA EQU X'04' E/W ALTERNATE OR E/W IS NEEDED. @VA13071 00061100 CRTAPL EQU X'02' APL READ BUFFER ALLOCATED @VA13071 00062100 CRTSIO EQU X'01' USER ISSUE DIAGNOSE TO INPUT AREA@VA13071 00063100 CRTAIO EQU CRTSIO TIMER INTERRUPT PENDING AFTER @VA13071 00064100 * I/O COMPLETES 00065100 SPACE 2 00066100 * BITS DEFINED IN TRQBFLG3 FOR FURTHER DEVICE CONTROL 00067100 TRQBLOGP EQU X'80' LOGOFF PENDING DUE TO PRIOR @VA13071 00068100 * CHANNEL ERROR 00069100 SPACE 2 00070100 * REDEFINITION FOR REMOTE GRAPHICS DEVICES 00071100 SPACE 00072100 ORG TRQBFLAG @VA13071 00073100 TRQNAME DS 1H RESOURCE IDENTIFICATION @VA13071 00074100 TRQBPOLL EQU X'FF' TIMER INTERRUPT FOR GENERAL POLL @VA13071 00075100 EJECT 00076100 POP PRINT @VA13071 00077100 SPACE 00078100