IBM 5150 - Page 249

laC OBJ
LINE SOURCE
1'460 80HfE
F46J F6E2
F465 SA
F466 F6t201
F469 '7403
F46B 050020
F46E
F46E
aeFO
F470 58
F471 seDl
F473 B&e002
F476 B90203
F479 803£490006
F47E
n06
1'480 BB8001
F483 B90307
F486
1'486 22EA
F488 03EA
F4814. 031'2
F48C 8AF7
F48e 2AC9
1'490
F490 DOCS
F492 otco
F494 FECI'
1'496 751'8
F498 8AE3
1'4914. D2EC
F49C S8
F49D Cl
F49£
F49E 8AD8
F4Ao
8BCl
F4A2 E86A02
f4A5 8BF8
4062
AND
Dl.OFfH ; STRIP OFF ODDIEVEN BIT
4063
MUL
DL
; AX HAS ADDRESS OF 1ST BnE OF INDICATED ROW
4064 PDP
OX ; RECOVER IT
4065
4066
TEST
Jl
DL.l
••
I TEST FOR EVEN/ODD
J JUMP IF EVEN ROW
4067
ADD AX,2000H
;
OFFSET TO LOCATION OF 000 ROWS
4068
R4:
J EVEN_ROW
4069
I10V SI,AX
I HOVE POINTER TO SI
4070
POP AX
; RECOVER AL VALUE
4071 I10V
DX,CX j COLUMN VALUE TO ox
4072
4073 j------ DETERMINE GRAA-UCS NOOE CURRENTLY IN EFFECT
4074
4075
, SET UP THE REGISTERS ACCORDING TO THE HOOE
4076 ,CH :: MASK FOR LOW OF COLUt1N ADDRESS ( 7/3 FOR HIGttmf:D RES)
4077 Cl :: • OF ADORESS BITS IN COlUMH VALUE ( 3/2 FOR HIH)
4078 BL = MASK TO SELECT BITS FROH POINTED SHE (80H/COH fOR H,"'
4079 ~ BH:: NUMBER OF VALID BITS IN pOINTED BYTE ( 1/~ fOR H/M)
4080
4081
I1DV BX.2COH
4082
I10V CX.302H
J sEl PAR"S FOR MED RES
4083
CMP
CRT_HODE.6
4084
JC .s J HANDLE IF MED ARES
4085
MOV
BX,180H
4086
MOV CX,703H ~ SET PARH$ FOR HIGH IlES
4087
40ee ;-----~ DETERMINE BIT OFFSET IN BYTE FROM' COllR1N HAst<
4089
RS:
4090
AND
CH,OL ; ADDRESS OF PEl WItHIN BytE TO CH
4091
4092 I--~"-~ DETERI1INE: BytE OFFSET FOR THIS lOCA'rION IN COLUHN
4093
4094 SH.
DX.CL
; SHIFT
BY cORRECT AnoUHT
4095 ADD SI,DX ; IUCREMENT THE POINTER
4096 HOV DH,BH
i GET THE I OF BITS IN RESULT TO DH
4097
4098 J------ MULTIPLY BH (VALID SItS IN BYTE) BY CH (BIT OFFSET)
4099
4100
SUB Cl.CL
; ZERO INTO STORAGE LOCATION
4101
4102
R6:
.0.
AL,1
;
lEFT JUSTIFY THE VALUE IN AL (FOR WRITE)
4103 ADD CL.CH ; ADO I~ THE BIT OFFSET VALUE
4104 DEC
aH I lOOP CONTROL
4105
JNl
o.
; ON EXIT, Cl HAS SHIFT COUNT TO RESTORE BITS
4106
MDV AH,SL
;
GET MASK TO AH
4107 SH.
AH,CL
;
HOVE THE MASK TO CORRECT LOCAtION
410S PDP BX
;
RECOVER REG
4109
4110
.,
.ET
EHOP
; RETURN WITH EVERYTlUNG SET UP
4111 j --------------------------------------------
4112 ; SCROll UP
4113 I THIS ROUTINE SCROLLS UP THE INFORMATION ON THE CRT
4114 ENTRY --
4115 ; CH.CL --=: UPPER LEFT CORNER OF REGION TO SCROLL
4116 DH.Dl = LOWER RIGHT CORNER OF REGION TO SCROll
4117 80TH OF THE ABOVE ARE IN CHARACTER POSITIONS
4118 BH = FILL VALUE FOR BLANKED LINES
4119 I AL = • LINES TO SCROLL (AL=O MEANS BLANK THE ENTIRe FIElD)
412:0 OS = DATA SEGMENT
412:1 ; ES = REGEN SEGMENT
4122 EXIT --
4123 NOTHING. THE SCREEN IS SCROllED
4124
j ------- ---------------------_ .. _ .. _ .. -- --------
412:5 GRAPHICS_UP PRoe NEAR
4126 MOV
BL.AL ; SAVE LINE COUNT IN BL
4127
MOV AX.CX ; GET UPPER LEFT POSITION INTO AX REG
4128
4129 ;------ USE CHARACTER SUBROUTINE FOr:! POSITIONING
4130 ,------ ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE
413]
4132
4133
MOV OI.AX
, SAVE RESULT AS DESTINATION ADDRESS
4134
413S j ------ DETERMINE SIZE OF WINDOW
4136
A-56