 NAM STY-130
 STTL SOROC IQ-130 TERMINAL DRIVER FOR STYLOGRAPH
 OPT PAG
 PAG

*SET UP FOR TERMINAL #1
 ORG 6
 FCB 1


*EQUATES FOR SETTING UP ADDRESSES
*TO APPEND CORRECTLY TO STYLOGRAPH.
*THESE EQUATES MUST BE SET TO THE VALUES
*WHICH CAN BY LISTED BY THE "STYFIX" COMMAND.

TRMBEG EQU $146F ************************
TRMSEQ EQU $15DF ************************



*-------------- TERMINAL POINTERS ------------
*THE FIRST 32 BYTES ARE RESERVED FOR 16 ADDRESS 
*POINTERS TO MACHINE LANGUAGE ROUTINES IF USED.
*THE NEXT BYTE SPECIFIES THE CHARACTERISTICS OF
*THE TERMINAL.
*THE NEXT 13 BYTES INDICATE THE SEQUENCE NUMBER
*THAT IS CALLED FOR THE TERMINAL FUNCTIONS.

*TERMINAL SPECIFICATION CONSTANTS
D2479 EQU 0 24 ROW BY 79 COLUMNS
D2480 EQU 1 24 X 80
D2082 EQU 2 20 X 82
D2482 EQU 3 34 X 82
CYX EQU $80 OUTPUT Y(ROW) THEN X(COLUMN) ON CURSOR ADDRESS
CAD20 EQU  $40 ADD $20 TO CURSOR ADDRESSES
SSCD EQU $20 CAN SCROLL SCREEN DOWN
LERF EQU $10 HAS LINE ERASE FUNCTION



 ORG TRMBEG+$20

*TERMINAL SEQUENCE POINTERS
 FCB LERF+SSCD+CAD20+CYX+D2479 TERMINAL CHARACTERISTICS
 FCB 1  CURMV  - CURSOR MOVE
 FCB 2  CURON  - CURSOR ON
 FCB 3  CUROFF - CURSOR OFF
 FCB 0  BLINK  - BLINK CURSOR
 FCB 0  SOLID  - SOLID CURSOR
 FCB 4  CLRS   - CLEAR SCREEN
 FCB 5  LERASE - ERASE LINE
 FCB 6  SCRLUP - SCROLL UP
 FCB 7  SCRLDN - SCROLL DOWN
 FCB 0  SCINIT - INITIALIZE TERMINAL
 FCB 0  SSHUT  - SHUT DOWN SCREEN
 FCB 8  ATT0   - NO CHARACTER ATTRIBUTES
 FCB 9  ATT1   - CHARACTER ATTRIBUTES
 



*------------ TERMINAL SEQUENCES ---------------
*THESE ARE THE SEQUENCES THAT ARE NORMALLY SENT TO THE
*TERMINAL FOR THE VARIOUS FUNCTIONS.
*THEY ARE IN "SERIAL" ORDER AND ARE POINTED TO
*BY THE BYTES IN THE TERMINAL SEQUENCE POINTERS
*DEFINED PREVIOUSLY.
*THE SEQUENCES ALWAYS END WITH THE "N" BIT SET.

N EQU $80
M EQU $FF


 ORG TRMSEQ VALUE INDICATED BY "STYFIX"
*0  - NO FUNCTION, DO NOT MODIFY THIS BYTE
 FCB N
*1  - CURSOR MOVE
 FCB $1B,'=+N
*2  - CURSOR ON
 FCB $1B,'.,'2,'6,'0,'1,14+N
*3  - CURSOR OFF
 FCB $1B,'.,'2,'6,'0,'0,14+N
*4  - CLEAR SCREEN
 FCB $1B,'*+N
*5  - ERASE LINE
 FCB $1B,'T+N
*6  - SCROLL UP
 FCB $1B,'=,$37,$20,$A+N CURSOR ON BOTTOM, LINE FEED
*7  - SCROLL DOWN
 FCB $1E,$1B,'E+N HOME UP, INSERT LINE
*8 - NO CHARACTER ATTRIBUTE
 FCB $1B,'(+N HIGH INTENSITY
*9 - CHARACTER ATTRIBUTE
 FCB $1B,')+N LOW INTENSITY

