*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