IBM 5150 - Page 251

LOC OBJ LINE SOURCE
F4FF BSFB
4213 MOV DI,AX
SAVE RESULT AS DESTINATION ADDRESS
4214
42:15 ;------ DETERMINE SIZE OF WINDOW
4216-
F501 2BDI
4217 SUB
DX,ex
F503 81C20101
4218 ADO OX.I01H ; ADJUST VALUES
F507 OOE6 4219
SAL
DH.1
; NUL
TIPLY I ROWS BY 4 SINCE 8 VERT DOTS/CHAR
F509 DOE6
4220
SAL
DH .I
;
AND EVEN/ODD ROWS
4221
4222 ;------ DETERMINE CRT HOOE
4223
F508 603E490006
4224
CMP
; TEST FOR MEDIUM RES
F510 7305
4225
JNC
FIND_SOURCE_OOWN
4226
4227 ;------ MEDIUM RES DOWN
F512 00£2
4228
SAL CL.l
I .. COLUMNS v 2, SINCE 2 SYTES/CHAR (OFFSET OK J
F514 DIE7
4229
SAL
DI,! ; OFFSET -112 SINCE 2. BYTES/CHAR
F516 47
4230 INC
01
; POINT
TO LAST BYTE
4231
4232
;
------ DETERMINE THE SOURCE ADDRESS IN THE BUFFER
F517
4233
R12! ; FIND_SOURCE_DOWN
F517 06
4234
PUSH
ES
; BOTH SEGMENTS TO REGEN
Fs18 IF
4235
POP
OS
F519 2AEO
4236
SUB CH.CH ; ZERO TO HIGH OF COUNT REG
F516 81C7FOOO
4237 ADO
01.240 ; POINT TO LAST ROW OF PIXELS
FSlF Don 4238 SAL
BLol ; MULTIPLY NUMBER OF LINES BY 4
F52.1 Don
4239
SAL
BL.I
F523 742E
4240
JZ
RI.
; IF ZERO. THEN BLANK ENTIRE FIELD
F525 8AC3
4241
MOV AL,BL ; GET NUtlBER OF LINES IN AL
F527 8450
4242
MOV AH,80 ; 80 BYTES/ROW
F529 F6E4
4243 MUl
AH ; DETERMIHE OFFSET TO SOURCE
F526 8BF7
4244
MOV 51,01
; SET UP SOURCE
F520 2BfO
4245
SUB SI,AX ; SUBTRACT THE OFFSET
F52:f 8AEo 42460 MOV
AH,OH j NUMBER OF RO~S IN FIELD
F53) ZAn
4247
SUB
AH,6L ; DETERMINE NUMBER TO MOVE
4248
4249
;------ LOOP THROUGH, MOVING ONE ROW AT A TIME, BOTH EVEN AND ODD FIelDS
F533 4250
PH: ; ROW_LOOP _OO\o.'N
F533 E62100 4251 CALL
RI7 ; MOVE OI~E ROW
F536 SlEE50l0 4252
SUB SI,2000H+80 ; MOVE TO NEXT ROW
F53A 81EF5020
4253 SUB
OI,2000H+80
F53E FEee
4254
DEC
AH ; NUMBER OF ROWS TO MOVE
F540 75F1
4255
JNZ R13 ; CONTINUE TILL ALL MOVED
4256
4257 ;------ FILL IN THE VACATED LINE(S)
F542 4258 RI4:
; CLEAR_ENTRY_DOWN
F542 8AC7
4259
MOV AL.BH
; ATTRIBUTE
TO FILL WITH
F544
42600 RIS: ; CLEAR_LOOP _OOWN
F544 E82900 4261 CALL RIB ; ClEAR A ROW
F547 81EfSOZO
4262 SUB
DI.2000H+BO
; POINT TO NEXT LINE
F548 FECB
4263
DEC
Bl ; NUMBER OF LINES TO FILL
F54D 75FS 4264
JtlZ RI5 ; CLEAR_ LOOP _DOI.IN
F54F Fe 4265 CLO ; RESET THE OIREcTION FLAG
F550 E974FC
4266-
JMP
VIDEO_RETURN ; EVERYTHING DONE
4267
F553
4268 RI6:
; BLA~IKJIELO_OOWN
F553 SADE 4269 MOV
BL,OH
;
SET BLANK COUNT TO EVERYTHING IN FIElD
F555 EBEB 4270 JMP RI4 ; CLEAR THE FIELD
4271 GRAPHICS_DOWN ENOP
4272
427"> ;------ ROUTINE TO MOVE ONE ROW OF INFORMATION
4274
F557 4275 RI7 PROC NEAR
F557 BACA 4276 MOV
CL,DL ; NUMBER OF BYTES IN THE ROW
F559 56 4277 PUSH
SI
F55. 57 4278 FUSH 01 SAVE POIHTERS
F558 F3 4279 REP
MOVSB MOVE THE EVEN FIELD
F55C A4
F550 SF
4280
POP
01
F55E Sf 4281
POP
S1
F55F 81C6002:0
4282
ADO SI,ZOOOH
F563 81C70020
4283
ADO
01.2000H ; POINT TO THE ODD FIelD
F567 56 4284
PUSH
SI
FSb8 57 4285
PUSH
01
; SAVE THE POINTERS
F569 BACA 4286
MOV
CL.Ol
I
COUNT BA.CK
A-58