ibm:vm370-lib:copy:timer.copy_src
Table of Contents
TIMER Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R13071DK]
Source Listing
- TIMER.COPY.txt
- *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
ibm/vm370-lib/copy/timer.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator