+1,1
* 04/26/77 --- 13:00
+40                                 *** 05/19/76 ***
         DEF      S363010I          3010 TERMINAL INIT
+42,42                              *** 05/19/76 ***
+84,84
         DATA     X'042677'         DATE
+130,130                            *** 03/03/77 ***
                  (KEY,RECKEY),(ONEWKEY),(ABN,ERRSET),(ERR,ERRSET)
+356,356                            *** 05/11/76 ***
         CAL1,8   L(X'06600000')    GET TERMINAL STATUS
+357                                *** 05/11/76 ***
         STB,SR4  TRMLNGTH          SAVE TERMINAL PAGE LENGTH
         SLS,SR4  -8
         STB,SR4  TRMWDTH           SAVE TERMINAL PAGE WIDTH
+374,374                            *** 05/11/76 ***
         LI,AC1   WA(TTYMODE)+4     GET POINTER TO TTY MODES (P5)
+378,378                            *** 05/11/76 ***
         LI,AC1   WA(2741MODE)+4       2741, GET POINTER TO MODES (P5)
+380                                *** 05/11/76 ***
         LB,AC2   TRMLNGTH          GET TERMINAL PAGE LENGTH
         STW,AC2  *AC1              SET IN FPT
         AI,AC1   -1                DECR POINTER INTO MODES
         LB,AC2   TRMWDTH           GET TERMINAL PAGE WIDTH
         STW,AC2  *AC1              SET IN FPT
         AI,AC1   -1                DECR POINTER INTO MODES
*
+560,560                            *** 05/19/76 ***
* S363010I -- 3010 TERMINAL INIT
+567,567                            *** 05/19/76 ***
S363010I RES      0
         MTW,0    3010FLG           3010 MODE
         BEZ      *SRTN
         LI,D1    0                 TURN VERTICAL TABBING OFF
+665,666                            *** 04/26/77 ***
         M:OPEN   F:VP,(FILE,'XGPJLIST','X'),;
+704                                *** 05/11/76 ***
4    m
TRMWDTH  RES      1                 TERMINAL PAGE WIDTH
TRMLNGTH RES      1                 TERMINAL PAGE LENGTH
+718,718                            *** 05/11/76 ***
         DATA     X'F8000000'       FLAGS (P1,P2,P3,P4,P5)
+722                                *** 05/11/76 ***
TTYP4    DATA     0                 PLATEN WIDTH = 0 (INFINITE)
+END

