IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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 ONLYJ
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