CMS File Input : TIMER COPY
Date : 12/8/1978 4:39:00 PM
VM Context : MAINT(394)
File Name : TIMER.COPY.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Date Wednesday Jun 03, 1981 05:27:00 AM
Loaded from MAINT(294)
R13071DK: ./ R 33000 35000 $ 33100 1000 00001000
R13071DK: SPACE 2 00002000
R13071DK: * GRAPHICS EXTENSION 00003000
R13071DK: SPACE 2 00004000
R13071DK: * 28 +-----------------------+-----------+-----+-----+ 00005000
R13071DK: * | TRQBCRT | TRQBDEV | T*1 | T*2 | 00006000
R13071DK: * 30 +-----------------------+-----+-----+-----+-----+ 00007000
R13071DK: * | TRQBRSV1 | T*3 | TRQBRSV2 | 00008000
R13071DK: * +-----------------------------+-----+-----------+ 00009000
R13071DK: SPACE 2 00010000
R13071DK: TRQBCRT DS 1F GRAF DEVICE RETURN IRA @VA13071 00011000
R13071DK: TRQBDEV DS 1H GRAF DEVICE DEV ADDRESS @VA13071 00012000
R13071DK: TRQBFLAG DS 1X T*1 GRAF DEVICE FLAGS @VA13071 00013000
R13071DK: TRQBLINE DS 1X T*2 LINE COORDINATE FOR INPUT @VA13071 00014000
R13071DK: * AREA 00015000
R13071DK: TRQBRSV1 DS 5X RESERVED FOR IBM USE @VA13071 00016000
R13071DK: TRQBFLG3 DS 1X T*3 MORE GRAF DEVICE FLAGS @VA13071 00017000
R13071DK: TRQBRSV2 DS 2X RESERVED FOR IBM USE @VA13071 00018000
R13071DK: SPACE 00019000
R13071DK: CRTEXT EQU (*-TRQBCRT)/8 SIZE OF EXTENSION IN DOUBLE WORDS@VA13071 00020000
R13071DK: CRTEXTSZ EQU *-TRQBCRT SIZE OF EXTENSION IN BYTES @VA13071 00021000
R13071DK: SPACE 2 00022000
R13071DK: * BITS DEFINED IN TRQBFLAG FOR GRAF DEVICE CONTROL 00023000
R13071DK: CRTFMT EQU X'80' SCREEN FORMATTED VM/370 ONLINE @VA13071 00024000
R13071DK: CRTDIAG EQU X'40' SCREEN WRITTEN WITH DIAGNOSE @VA13071 00025000
R13071DK: * X'19' COMMAND CODE 00026000
R13071DK: CRTALRM EQU X'20' SCREEN HAS ALARM MESSAGE @VA13071 00027000
R13071DK: CRTWNG EQU X'10' SCREEN HAS MORE...WARNING @VA13071 00028000
R13071DK: CRTCARD EQU X'08' DATA FROM CARD READER @VA13071 00029000
R13071DK: CRTUSEWA EQU X'04' E/W ALTERNATE OR E/W IS NEEDED. @VA13071 00030000
R13071DK: CRTAPL EQU X'02' APL READ BUFFER ALLOCATED @VA13071 00031000
R13071DK: CRTSIO EQU X'01' USER ISSUE DIAGNOSE TO INPUT AREA@VA13071 00032000
R13071DK: CRTAIO EQU CRTSIO TIMER INTERRUPT PENDING AFTER @VA13071 00033000
R13071DK: * I/O COMPLETES 00034000
R13071DK: SPACE 2 00035000
R13071DK: * BITS DEFINED IN TRQBFLG3 FOR FURTHER DEVICE CONTROL 00036000
R13071DK: TRQBLOGP EQU X'80' LOGOFF PENDING DUE TO PRIOR @VA13071 00037000
R13071DK: * CHANNEL ERROR 00038000
R13071DK: SPACE 2 00039000
R13071DK: * REDEFINITION FOR REMOTE GRAPHICS DEVICES 00040000
R13071DK: SPACE 00041000
R13071DK: ORG TRQBFLAG @VA13071 00042000
R13071DK: TRQNAME DS 1H RESOURCE IDENTIFICATION @VA13071 00043000
R13071DK: TRQBPOLL EQU X'FF' TIMER INTERRUPT FOR GENERAL POLL @VA13071 00044000
R13071DK: EJECT 00045000
R13071DK: POP PRINT @VA13071 00046000
R13071DK: SPACE 00047000
BEGIN APPLY >>> ./ R 33000 35000 $ 33100 1000 00001000
END APPLY >>> ./ R 33000 35000 $ 33100 1000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.