IBM 5150 - Page 236

••
LOC OBJ
LINE SOURCE
~
~
FOIA EE
FOIB BoDe
FOlD EE
FOIE 58
FOlf
FOIF 50
FOlD
FOZD 88940800
f024 42
fOZ5 EC
f026 BAED
fOZ6 BOE4F8
F02B
FOZB SA
F02e BAC2
FaZE 80F448
FOll EBC2
FOll
FOl3 SO
F034 83C202
f037 8008
F039 EE
F03A B8E603
FOlD
F03D 46
F03E 75FO
F040 BOOC
F042 EE
F043 EBOB
3083
OUT DX,AL
3084 MOV Al,OCH
SET THE STROBE lOW
3065
OUT
OX.Al
3066 POP AX
RECOVER THE OUTPUT CHAR
3087
3068 J------ PRINTER STATUS
3089
3090 85:
3091
PUSH AX
; SAVE AL REG
3092 86:
3093
MOV OX, PRINTER_BASE lSI ]
3094
ItlC OX
3095
IN AL,OX ; GET PRINTER STATUS
3096
MOV
AH,Al
3097
AND
AH,OF8H I TURN OFF UNUSED BITS
3098 87: j STATUS_SET
3099
POP
OX
j RECOVER AL REG
3100
NOV AL,UL
; GET CHARACTER INTO AL
3101
XOR AH ,48H
FLIP A COUPLE OF BITS
3102 JMP
.1
; RETURN FROM ROUTINE
3103
3104 ;------ INITIALIZE THE PRINTER PORT
3105
3106 B8:
3107
PUSH AX SAVE At
3106 AOD OX,2
POINT TO OUTPUT PORT
3109 MOV AL,8 SET INIT LINE LOW
3110 OUT OX,Al
3111 NOV AX,lOOO
3112
89:
INIT_lOOP
3113
DEC AX
lOOP FOR RESET TO TAKE
3114
J~lZ
.9
I !NIT_LOOP
3115 NOV AL,OCH NO INTERRUPTS, NON AUTO LF, INIT HIGH
3116
OUT
OX,Al
3117
JNP
PIH_STATUS_1
3116
PRINTER_IO ENOP
3119 ; --- INT 10 ---------------------------------
3120 VIDEO_IO
3121 THESE ROUTINES PROVIDE THE CRT INTERFACE
3122 THE FOllOWItlG FUNCTIONS ARE PROVIDED:
3123 (AH)=O SET HaDE (All CONTAINS HODE VALUE
3124 (AlI=O 40X25 Bioi (POWER ON DEFAULT)
3125 (AlI=1 40X25 COLOR
3126 {AlI=2 80X25 Bioi
3127 ( AL J=3 80X25 COLOR
3128 GRAPHICS HODES
3129 (ALI=4 320X200 COLOR
3130 {All:5 320X200 Bioi
3131 (All=6 640X200 BW
3132 CRT HOOE = 7 80X25 B&W CARD (USED INTERNAL TO VIDEO ONL YJ
3133 *** NOTE BW MODES OPERATE SAME AS COLOR HODES, BUT COLOR
3134
BURST IS NOT ENABLED
3135
(AHI=l SET CURSOR TYPE
313~ (CH) = BITS 4-0 = START LINE FOR CURSOR
3137
H HARDWARE WILL ALWAYS CAUSE BLINK
3138 ** SETTING BIT 5 OR 6 WILL CAUSE ERRATIC BLIHKING
3139 OR NO CURSOR AT All
3140 (ClI::;- BITS 4-0 = END LINE FOR CURSOR
3141
(AHJ=2 SET CURSOR POSITION
3142 (OH,Ol) = ROW,COLUMN (O,O) IS UPPER LEFT
}14 "'
!BH I = PAGE NU;13ER (HUST BE 0 FOR CRAPHICS ~IODES)
3144
(AHI=3 READ CURSOR POSITION
3145
(BH) = PAGE NUMBER (MUST BE 0 FOR GRAPHICS MODES)
3146
ON EXIT (oH,Ul) = ROW,COLUMN OF CURRENT CURSOR
3147
(CH,Cll = CURSOR MODE CURRENTLY SET
3148
(AH
)=4 READ LIGHT PEN POSITION
3149
ON EXIT:
3150
(AH) =0 -- LIGHT PEN SWITCH NOT DOWN/NOT TRIGGERED
3151
(AH) = 1 -- VALID LIGHT PEN VALUE IN REGISTERS
3152
{OH,DU ;: ROW,COLUMN OF CHARACTER LP POSN
3153
(CHI = RASTER LINE (0-199'
3154
(BX) = PIXEL COLUMN (0-319,639)
3155
(AHI=5 SELECT ACTIVE DISPLAY PAGE (VALID ONLY FOR ALPHA MODES)
3156
(AU=NEW PAGE VALUE (0-7 FOR HODES 0&1, 0-3 FOR MODES 2&3)
A-43