IBM 5170 Technical Reference page 313

,r"'\
OFC9 25 DB
MOTOR 'riAl T
WAIT AFTER OPN TIL MOTOR OFF
OFCA 02
DB
2 -
512 BYTES/SECTOK
OFCll OF
DB
15
EDT ( LAST SECTOR ON TRAGi()
OFCC lB DB OlBH
GAP LENGTH
OFCO FF DB OFFH
DTL
o
FCE 5'. DB
OS4H
GAP LENGTH FOR FORMAT
OFCF F6
DB
OF6H
FILL BYTE FOR FORMAT
OFOO OF DB 15
HEAD SETTLE TIME (MILLISECONDS)
OFDl 08 DB 8
MOTOR START TIME (1/8 SECONDS)
; ------- PR INTER J 0
ORG QEFD2H
OFD2 ORG 00fU2tl
= OFD2
EDU $
OF02 E9 0000 E JMP PR I NTER_I
0_'
; -------- V IDEO 10
;--------- ADDED FOR POSSIBLE COMPATABILITY ENTRY POINTS
;ORG OF045H
1045
ORG 0104SH
ASSUME CS: CODE, OS: DATA, ES: V IDEO_RAM
EXTRN SET MOOE:NEAR
EXTRN SET-CTYP[: NEAR
EXTRN SET-CPOS:NEAR
EXTRN READ CURSOR: N.EAR
[XTRN REA[)-LPEN: NEAR
EXTRN ACT DISP PAGE:NEAR
EXTRN SCROLL UP; NEAR
EXTRN SCROLL"" DOWN: NEAR
EXTRN READ At CURRENT:NEAR
EXTRN WR I TE At CURRENT; NEAR
EXTRN WR I TCe tURRENT: NEAR
EXTRN SET COLOR:NEAR
EXTRN WR I TE DOT: NEAR
EXTRN READ DOT:NEAR
EXTRN WRITE TTY:NEAR
EXTRN VIDEO::::STATE:NEAR
1045
LABEL WORD
TABL[ OF ROUTINES WITHIN VIDEO I/O
1045 0000 E OW OFfSET
SET MODE
1047 0000
E
OW
OFfSET SET-CTYPE
1049 0000 E
OW
QFFSET
SET-CPOS
104B 0000 E OW
OFFSET READ_CURSOR
1040
104f
0000 E
0000 E
OW
OW
OFFSET
OFFSET
READ LP[N
ACT
0
I SP PAGE
1051 0000 E OW
OFFSET SCROLL UP
1053 0000 E
OW
OFFSET
SCROLL-DOWN
1055 0000 E OW
OFFSET READ AC CURRENT
1057 0000 £ OW OFFSET
WR I TE_At_CURRENT
1059 0000 E OW OFFSET WR I TE C CURRENT
105B 0000 E UW OFFSET SET COLOR
1050 0000
E
OW OFFSET WRITE
DOT
105f 0000 E DW
OFFSET READ DOT
1061 0000 E OW OFfSET WRITE
TTY
1063 0000 E
ow
OffSET
v
I DEO=:STATE
=
0020 M1 L EDU S·Ml
ORG OF065H
1065 ORG 01065fl
=
1065
1065 E9 0000 E
VIDEO 10 EOU
JMP
$
VIDEO
­
10
­
,
; •• ~---- •• V IDEO PARMS
ORC OFDA4H
10A4 ORG 010A4H
10A4
LABEL BYTE
INIT TABLE
10A4 38 28 20 OA 1 F 06 DB - 38H,2BH,2DH,OAH,lFH,6,19H ; SET UP FOR 40X25
19
10AB lC 02 07 06 07 DB lCH,2.
-(,6,-r
lOBO 00 00 00 00 DB 0,0,0,0
=
0010
M4
EQU S-v I DEO_PARMS
1084 71 50 5A OA 1 F 06
DB
71 H, SOH, 5AH, OAH, 1 FH, 6, 19H SET UP FOR 80X25
19
10BB
lC
02 07 06 07 DB lCH,2, 7,6, 7
lOCO 00 00 00 00 DB 0, 0, 0,0
10C4
38 28 20 OA 7 F 06
DB 38H, 2BH, 2DH, OAH, 7FH, 6, 64H
; SET UP FOR CRAPH I CS
6"
10CB
70 02 01 06 0-(
DB 70H,2,l,6,7
1000 00 00 00 00 DB 0,0,0.0
10D4
61 50 52 OF 19 06
DB 61 H, SOH, 52H, OFH, 19H,6, 19H
; SET UP FOR 80X25
B&I-I
CAHO
19
10DB 19 02 00 DB OC DB 19H,2,00H,OBH,OCH
10EO 00 00 00 00
DB 0,0,0,0
10El! M5
LABEL WORD ; TABLE Of REGEN LENGTHS
10E4
0800 OW 2048 40X25
lOE6 1000
OW 4096 80X25
10E8 4000
OW
16384 GRAPH
I
CS
10EA
4000 OW 16384
; ---.-. COLUMNS
10[C M6 LABEL BYTE
10Ee 28 28 50 50 28 28 DB 40,40,60,60,40,40,80,80
50 50
; •• - •• - C_REG_TAB
10F4 M7 LABEL BYTE ; TABLE OF MODE SETS
10F4 2C 28 20 29 2A
2E
DB 2CH,2BH,2DH,29H,2AH,2EH, 1 EH,29H
1E 29
; -------- MEMORY SIZE
DRG
OF841
H
1841 DRG 01841 H
= 1841 MEMORY_SIZE_DETERM I NE EQU
$
1841 E9 0000 E JMP
MEMORY_SIZCDETERMI NE 1
; .--.--.~- EQU I PMENT DETERM I NE
ORGS 5-171