IBM 5150 - Page 185

LOC OBJ
LINE
SOURCE
F522 86F7
4493
HOY
SI.DI
I SET UP SOURCE
F524 26FO
4494
SUB SI.AX
I
SUBTRACT THE OfFSET
F526 8AE6
.. 95
HOY
AH.DH I NI.JI1BER OF ROWS IN FIELD
F526 2AEl
"96
sue AH,Bl I DETERMINE HUMBER TO HOVE
4497
4498
1----- lOOP THROUGH. HOVING ONE RON AT A TIHE, BDTH EYEN AND 000 FIELDS
4499
F52A
4500 R13:
I ROW_LOOP _DOWN
F5lA E82100
4501
CAll
.,7
I tIOVE ONE ROW
FSlO 81E£5020
4502
Sl8 5I.2000H+80 I HOVE TO NEXT ROW
F531 81£F5020
4503
Sl8 Dr.2000H+80
F535 FEet
4504
OEC ; NUHBER OF ROWS TO HOYE
'H
F537 75Fl
4505 JHZ
I CONTINUE TILL ALL HOVED
R"
4506
4507 1----- FILL IN THE VACATED LINE(S)
4508
F539
4509
R14:
; CLEAR_ENTRY_D~
F539 8AC7
4510
ItOV
Al,8H
I ATTRIBUTE TO FIll WITH
F538
4511
HIS:
1 CLEAR_LOOP _DOWN
.,.
F538 £82900
4512
CALL I CLEAR A ROW
F53£ 81EF5020
4513
sue DJ .ZOOOH+80 I POINT TO NEXT LINE
F542 FECS
4514
DEC
8L
I NUttBER OF LINES TO FILL
F544 75F5 4515
JHZ I CLEAR_LOOP _DOWN
.15
F546 FC
4516 tLO ; RESET THE DIRECTION FLAG
F547 E978FC
4517
JHP VIDEO_RETURN ; EVERYTHING DONE
4518
R16:
1 BLANK_FIELD_DOWN
F54A
SADE
4519 HOY
BL,DH ; SET BLANK COUNT TO
4520
I
EVERYTHING IN FIELD
F54c EBEB
4521
JHP
Rl'
I CLEAR THE FIELD
4522
GRAPHICS_DOWN ENDP
4523
4524
1----- ROUTINE TO MOYE ONE ROW OF INFORtlATION
4525
F54E
4526
R17
PRce NEAR
F54E eACA
4527
ItOV CL,DL
I fU1BER OF BYTES IN THE ROW
F550 56
4528
PUSH
'54.
'1
F551 57
4529
PUSH
01
1 SAVE POINTERS
F552 F3
4530
REP
HOVS8 1 HOVE THE EVEN FIELD
F553 A4
F554 SF
4531 POP
01
F555 5E
4532
pop
Sl
F556 81C60020
4533
ADD SI,ZOOOH
F55A
81C70020
4534
ADD DI,200DH
1 POINT TO THE 000 FIELD
F55E 56
4535
PUSH $1
F55F 57
4536
PUSH 01 I SAVE THE POINTERS
F560 8ACA 4537
ItOV CL,DL
1 COlNT BACK
F562 F3
4538
.EP HOYSB
I HOVE THE 000 FIELD
F563 A4
F564 SF
4539
POP
01
F565 5E
POP
Sl I POINTERS SACK
'54'
F566 C3
4541
RET
1 RETURN TO CALLER
4542 R17 ENOP
4543
4544
1----- CLEAR A SINGLE ROW
4545
.,.
F567
4546
PRce NEAR
F567 eACA
4547
ItOV CL,DL I NUteER OF BYTES IN FIELD
F569 57
4548
PUSH 01 I SAVE POINTER
F56A
F3 4549
.EP
STOSB I STORE THE NEW VALUE
F56B ......
F56C SF
4550
POP
01
; POINTER BACK
F56D 81C70020
4551 .00
DI,ZOOOH I POINT TO ODD FIELD
F571
57
4552
PUSH 01
F572 SACA
4553
HOY CL,DL
F574 F3
.554 REP
STOSB 1 FILL THE ODD FILELD
F575 AA
F576 SF
4555
POP
01
F577 C3
4556 RET I RElURN TO CALLER
4557 ENDP
.,.
4558
; ------ - -- -- ---- ----- ---- -- ------ ------------- ---- --------- -- -- --
4559 ; GRAPHICS WRITE
4560 THIS ROUTINE WRITES THE ASCII CHARACTER TO THE
4561 CURRENT POSITION ON THE 5CREEH.
4562 ENTRY
4563 AL :;" CHARACTER TO WRITE
4564 BL :;" COLOR ATTRIBUTE TO BE USED FOR FOREGROUND COLOR
4565
IF BIT 7 IS SET. THE CHAR IS XOR' °INTO THE REGEN
5-92 System BIOS