* %GOTO PLSTSI ; /* 01000005 MACRO 02000020 TTSID 04000020 .*A-000000-999999 @Y02X6Y0 05000008 SPACE 06000020 .* UPDATED JUNE 1, 1977 @G36XRYP 06200000 .*A738600-739200 Y06327 06500005 .*A731000 S22029 07000022 .*C007000 S22029 07200022 .*A737000 S22028 07400022 .*A720000 A44022 08000030 .*A040000,060000 @Z30X8YR 08500008 .*C743000 @Z30X8YR 09000008 .*D076000 @Z30X8YR 09500008 .*C746000,947000 @G36XRXG 09520000 .*A746000,947000 @G36XRXG 09540000 .*A746120,949000 @G36XRXG 09590000 .*A746060,947000 @G36XRYP 09640000 .*D746120,949000 @G36XRYP 09690000 .*A746070 @OY19561 09690182 .*C947550 @OY19561 09690282 .*C947650,947850 @OZ30164 09690382 .*A746060 @OZ35480 09690482 .*C947560 @OZ35480 09690582 SPACE 10000020 * THIS IS A DSECT OF THE QCB AND FIELDS GENERATED FOR TIME SHARING 12000020 * SUPPORT BY THE TSINPUT MACRO. 14000020 SPACE 16000020 IEDQTSI DSECT 18000020 TSIFLAG DS XL1 . FLAG BYTE 20000020 * BIT DEFINITIONS 22000020 TSIQCB EQU X'02' . FLAG INDICATING A QCB 24000020 TSIPOST EQU X'08' . QCB POSTED TO ITSELF 26000020 TSIELCHN DS AL3 . QCB ELEMENT CHAIN 28000020 TSIPRI DS XL1 . PRIORITY 30000020 TSILINK DS AL3 . POINTER TO NEXT QCB IN CHAIN 32000020 TSINPUT DS A . ADDRESS OF IEDAYI (TSINPUT) 34000020 TSISTAE DS A . ADDRESS OF IEDAYT (STAE) 36000020 TSIEDIT DS A . ADDRESS OF IEDAYE (EDIT RTN) 38000020 TSIHANG DS A . ADDRESS OF IEDAYH (HANGUP) 40000020 TSISIMAT DS A . ADDRESS OF IEDAYS (SIMUL. ATTN) 42000020 TSISCHED DS A . ADDRESS OF IEDAYZ (SCHEDULER) 44000020 TSIBUFQ DS A . CHAIN OF HELD TCAM BUFFERS 46000020 TSITSBQ DS A . CHAIN OF TSBS HOLDING TCAM BUFS 48000020 TSITSAP DS A . ADDR OF ASYNCHRONOUS Y02027 50000000 * POST ROUTINE Y02027 50500000 TSIMSGEN DS A . ADDRESS OF IEDAYM (MSGGEN RTN) 52000020 TSIHALT DS A . ADDRESS OF IEDAYF (HALT I/O) 54000020 * QCB FOR ASYNCHRONOUS TIME DELAY QCB REMOVAL ROUTINE.(IEDAYY) 56000020 TSIDYQCB DS A . QCB IS ALWAYS POSTED TO ITSELF 58000020 TSIDYQFG EQU TSIDYQCB . FLAG BYTE 60000020 * BIT DEFINITIONS 62000020 TSIDYQB EQU X'02' . FLAG INDICATING A QCB 64000020 TSIDYPOS EQU X'08' . QCB POSTED TO ITSELF 66000020 TSIDYPRI DS XL1 . PRIORITY 68000020 TSIDYLNK DS AL3 . POINTER TO NEXT ELEMENT 70000020 TSIDYDLY DS A . ADDR OF IEDAYY 72000020 DS 4A . RESERVED Y02027 72100000 TSIDEST DS A . ADDRESS OF TCAM DESTINATION SCHEDULER S22029 73200022 TSICPBI DS A . ADDRESS OF TCAM CPB INITIALIZATION RTN S22029 73300022 TSICPBC DS A . ADDRESS OF TCAM CPB CLEANUP RTN S22029 73400022 TSIATTEN DS A . ADDRESS OF IEDAYA(ATTENTION RTN) S22029 73500022 TSITSDST DS A . ADDRESS OF TSO DESTINATION SCHEDULER S22029 73600022 TSI3270 DS A . ADDRESS OF IEDAYB (3270) S22028 73800022 TSI270X DS A . ADDRESS OF IEDAYW (270X) Y06327 74000005 TSI3705 DS A . ADDRESS OF IEDAYV(VTAM)@Z30X8YR 74300000 TSIRNSCH DS A . ADDR OF NCP TSO SCHED @G36XRXG 74600000 * (IEDAYJ) @G36XRXG 74600582 TSIAYO DS A ADDRESS OF IEDAYO @G36XRYP 74601082 TSIAYO02 DS A ADDRESS OF IEDAYO02 @G36XRYP 74601582 TSITSW DS 0CL62 EDIT WORK AREA @G36XRYP 74602082 DS 4F RESERVED @G36XRYP 74602582 TSIGMAIN DS 0F OUTPUT EDIT WORK AREA @G36XRYP 74603082 GMFLAG DS XL1 FLAG BYTE @G36XRYP 74603582 GMENCON EQU X'80' END CONTROL REQUEST @G36XRYP 74604082 GMENCIN EQU X'40' END CONTROL PRESENT @G36XRYP 74604582 GMINIT EQU X'20' FIRST PASS FLAG @G36XRYP 74605082 GMFRMAT EQU X'10' SCREEN FORMAT REQUIRED @G36XRYP 74605582 GMNUNLCK EQU X'08' NO KYBD RESTORE @OY19561 74606082 GMFSCEND EQU X'02' FULL SCREEN END @OZ35480 74606282 GMCODE DS XL1 TRT COMPLETION INDEX @G36XRYP 74606582 GMTCAM EQU X'10' TCAM SPACE SMALLEST @G36XRYP 74607082 GMLINE EQU X'08' LINE SPACE SMALLEST @G36XRYP 74607582 GMTSO EQU X'04' TSO DATA SMALLEST @G36XRYP 74608082 GMLNNO DS XL1 NUMBER OF LINES @G36XRYP 74608582 GMLNSZ DS XL1 SIZE OF LINES @G36XRYP 74609082 GMCARCT DS AL2 CARRIAGE COUNT @G36XRYP 74609582 GMSATCT DS AL2 LINE COUNT @G36XRYP 74610082 GMBFSIZE DS AL2 TCAM BUFFER SIZE @G36XRYP 74610582 GMBFUNIT DS AL2 NUMBER UNITS/BUFFER @G36XRYP 74611082 GMHBFR DS AL2 NUMBER HELD BUFFERS @G36XRYP 74611582 GMBFRS DS AL2 ALLOCATABLE BUFFERS @G36XRYP 74612082 GMTSBUF DS AL4 TSO BUFFER ADDRESS @G36XRYP 74612582 GMTCBUF DS AL4 TCAM BUFFER ADDRESS @G36XRYP 74613082 GMCRBUF DS AL4 CURRENT BUFFER ADDRESS @G36XRYP 74613582 GMCRUNT DS AL4 CURRENT UNIT ADDRESS @G36XRYP 74614082 GMTCSPC DS AL2 SPACE IN TCAM UNIT @G36XRYP 74614582 GMLNSPC DS AL2 SPACE ON DISPLAY LINE @G36XRYP 74615082 GMTSCNT DS AL2 LENGTH OF TSO DATA @G36XRYP 74615582 GMTSSIZ DS AL2 AMOUNT OF DATA IN TSO @G36XRYP 74616082 GMDEVCH DS CL6 CHARACTERISTICS @G36XRYP 74616582 GMEND EQU * END OF WORKAREA @G36XRYP 74617082 GMXTNT EQU (GMEND-TSIGMAIN) LENGTH OF WORKAREA @G36XRYP 74617582 TSILEN EQU *-IEDQTSI DSECT LENGTH @G36XRXG 74618082 MEND , */ 74900005 *%PLSTSI : ; 75200005 *DECLARE 75500005 */* UPDATED NOVEMBER 1, 1974 @Z30X8YR*/ 75800008 */*A738000 Y06327*/ 76100005 */*A731000 S22029*/ 76400005 */*C007000 S22029*/ 76700005 */*A737000 S22028*/ 77000005 */*A720000 A44022*/ 77300005 */*C758000,791000,812000,818000,845000,890000,923000,947000 @Z30X8YR*/ 77400008 */*D893000-920000 @Z30X8YR*/ 77500008 */* */ 77600005 */* THIS IS A DSECT OF THE QCBS AND FIELDS GENERATED FOR TIME */ 77900005 */* SHARING SUPPORT BY THE TSINPUT MACRO */ 78200005 */* */ 78500005 * 1 IEDQTSI BASED(IEDTTPTR), 78800005 * 2 TSIFLAG BIT(8), /* FLAG BYTE @Z30X8YR*/ 79100008 */* BIT DEFINITIONS */ 79400005 * 3 * BIT(4), /* UNUSED */ 79700005 * 3 TSIPOST BIT(1), /* QCB POSTED TO ITSELF X'08'*/ 80000005 * 3 * BIT(1), /* UNUSED */ 80300005 * 3 TSIQCB BIT(1), /* INDICATES A QCB */ 80600005 * 3 * BIT(1), /* UNUSED */ 80900005 * 2 TSIELCHN PTR(24), /* QCB ELEMENT CHAIN @Z30X8YR*/ 81200008 * 2 TSIPRI PTR(8), /* PROIRITY */ 81500005 * 2 TSILINK PTR(24), /* PTR TO NEXT QCB @Z30X8YR*/ 81800008 * 2 TSINPUT PTR(31), /* ADDRESS OF IEDAYI */ 82100005 * 2 TSISTAE PTR(31), /* ADDRESS OF IEDAYT */ 82400005 * 2 TSIEDIT PTR(31), /* ADDRESS OF IEDAYE */ 82700005 * 2 TSIHANG PTR(31), /* ADDRESS OF IEDAYH */ 83000005 * 2 TSISIMAT PTR(31), /* ADDRESS OF IEDAYS */ 83300005 * 2 TSISCHED PTR(31), /* ADDRESS OF IEDAYZ */ 83600005 * 2 TSIBUFQ PTR(31), /* CHAIN OF HELD TCAM BUFFERS*/ 83900005 * 2 TSITSBQ PTR(31), /* TSBS HOLDING TCAM BUFFERS */ 84200005 * 2 TSITSAP PTR(31), /* ADDR OF ASYNCHRONOUS POST 84500000 * ROUTINE @Z30X8YR*/ 84600000 * 2 TSIMSGEN PTR(31), /* ADDRESS OF IEDAYM */ 84800005 * 2 TSIHALT PTR(31), /* ADDRESS OF IEDAYF */ 85100005 */* QCB FOR ASYNCHRONOUS TIME DELAY QCB REMOVAL ROUTINE (IEDAYY) */ 85400005 * 2 TSIDYQCB PTR(31), /* QCB ALWAYS POSTED TO SELF */ 85700005 * 3 TSIDYQFG BIT(8), /* FLAG BYTE */ 86000005 * 4 * BIT(4), /* UNUSED */ 86300005 * 4 TSIDYPOS BIT(1), /* QCB POSTED TO ITSELF X'08'*/ 86600005 * 4 * BIT(1), /* UNUSED */ 86900005 * 4 TSIDYQB BIT(1), /* INDICATES A QCB X'02'*/ 87200005 * 4 * BIT(1), /* UNUSED */ 87500005 * 3 * PTR(24), /* UNUSED */ 87800005 * 2 TSIDYPRI PTR(8), /* PRIORITY */ 88100005 * 2 TSIDYLNK PTR(24), /* POINTER TO NEXT ELEMENT */ 88400005 * 2 TSIDYDLY PTR(31), /* ADDRESS OF IEDAYY */ 88700005 * 2 * CHAR(16), /* RESERVED @Z30X8YR*/ 89000000 * 2 TSIDEST PTR(31), /* ADDRESS OF TCAM DESTINATION 92300008 * SCHEDULER @Z30X8YR*/ 92400008 * 2 TSICPBI PTR(31), /* ADDRESS OF CPB INIT ROUT */ 92600005 * 2 TSICPBC PTR(31), /* ADDRESS OF CPB CLUP ROUT */ 92900005 * 2 TSIATTEN PTR(31), /* ADDRESS OF IEDAYA */ 93200005 * 2 TSITSDST PTR(31), /* ADDRESS OF IEDAYD */ 93500005 * 2 TSI3270 PTR(31), /* ADDRESS OF IEDAYB */ 93800005 * 2 TSI270X PTR(31), /* ADDRESS OF IEDAYW */ 94100005 * 2 TSI3705 PTR(31), /* ADDRESS OF IEDAYV */ 94400005 * 2 TSIRNSCH PTR(31), /* ADDRESS OF IEDAYJ @G36XRXG*/ 94700000 * 2 TSIAYO PTR (31), /* ADDRESS OF IEDAYO@G36XRYP*/ 94705000 * 2 TSIAYO02 PTR (31), /* ADDRESS OF AYO02 @G36XRYP*/ 94710000 * 2 TSITSW CHAR(62), /* EDIT WORK AREA @G36XRYP*/ 94715000 * 3 * CHAR(16), /* RESERVED @G36XRYP*/ 94720000 * 3 TSIGMAIN BDY(WORD), /* EDIT WORK AREA @G36XRYP*/ 94725000 * 4 GMFLAG CHAR(1), /* FLAG BYTE @G36XRYP*/ 94730000 * 5 GMENCON BIT(1), /* END CONTROL @G36XRYP*/ 94735000 * 5 GMENCIN BIT(1), /* END CONTROL IN @G36XRYP*/ 94740000 * 5 GMINIT BIT(1), /* FIRST PASS @G36XRYP*/ 94745000 * 5 GMFRMAT BIT(1), /* SCREEN FRMAT @G36XRYP*/ 94750000 * 5 GMNUNLCK BIT(1), /* NO KYBD RESTORE @OY19561*/ 94755082 * 5 * BIT(1), /* EXTRA BIT @OZ35480*/ 94756082 * 5 GMFSCEND BIT(1), /* FULL SCREEN END @OZ35480*/ 94757082 * 5 * BIT(1), /* EXTRA BIT @OZ35480*/ 94758082 * 4 GMCODE CHAR(1), /* TRT COMP INDEX @G36XRYP*/ 94760000 * 5 * BIT(3), /* RESERVED @OZ30164*/ 94765082 * 5 GMTCAM BIT(1), /* TCAM SPACE SMALL @G36XRYP*/ 94770000 * 5 GMLINE BIT(1), /* LINE SPACE SMALL @G36XRYP*/ 94775000 * 5 GMTSO BIT(1), /* TSO DATA SMALL @G36XRYP*/ 94780000 * 5 * BIT(2), /* RESERVED @OZ30164*/ 94785082 * 4 GMLNNO CHAR(1), /* NUMBER OF LINES @G36XRYP*/ 94790000 * 4 GMLNSZ CHAR(1), /* LINE SIZE @G36XRYP*/ 94795000 * 4 GMCARCT PTR(15), /* CARRIAGE COUNT @G36XRYP*/ 94800000 * 4 GMSATCT PTR(15), /* LINE COUNT @G36XRYP*/ 94805000 * 4 GMBFSIZE PTR(15), /* TCAM BUFFER SIZE @G36XRYP*/ 94810000 * 4 GMBFUNIT PTR(15), /* UNITS PER BUFFER @G36XRYP*/ 94815000 * 4 GMHBFR PTR(15), /* HELD BUFFERS @G36XRYP*/ 94820000 * 4 GMBFRS PTR(15), /* BUFFERS ALLOCATE @G36XRYP*/ 94825000 * 4 GMTSBUF PTR(31), /* TSO BUFFER @G36XRYP*/ 94830000 * 4 GMTCBUF PTR(31), /* TCAM BUFFER @G36XRYP*/ 94835000 * 4 GMCRBUF PTR(31), /* CURRENT BUFFER @G36XRYP*/ 94840000 * 4 GMCRUNT PTR(31), /* CURRENT UNIT @G36XRYP*/ 94845000 * 4 GMTCSPC PTR(15), /* TCAM UNIT SPACE @G36XRYP*/ 94850000 * 4 GMLNSPC PTR(15), /* DISPLAY LINE SPC @G36XRYP*/ 94855000 * 4 GMTSCNT PTR(15), /* TSO DATA COUNT @G36XRYP*/ 94860000 * 4 GMTSSIZ PTR(15), /* TSO DATA COUNT @G36XRYP*/ 94865000 * 4 GMDEVCH CHAR(6); /* CHARACTERISTICS @G36XRYP*/ 94870000 * %TSILEN='LENGTH(IEDQTSI)'; /* DSECT LENGTH @G36XRXG*/ 94875000