IBM 5150 - Page 254

LOC OBJ
LINE SOURCE
F607 23C3 4435 AND Ax.ex ; CONVERT TO COLOR
F609 F6C280 4436 TEST DL.80H J AGAIN. IS THIS XOR FlmCTION
F60e 740A
4437
JZ S11 ; NO I JUST STORE THE VAlUES
F60E 2632"50020
4438 XOR AH.ES:{Dh2000HJ I FUNCTION WITH fIRST HAlF
F613 2632850120
4439
XOR AL,ES:[oli-2001HJ i AND WITH SECOND HAlf
F618
4440 511:
F616 2688ASOO2:0 4441
MOV
ES:(DH2000H),AH
F610 2688850120 4442
MOV
ES: [01+2000H+l "Al ; STORE IN SECOND PORTION OF BUFFER
F622 83C7$O 4443
ADO
01.60 I POINT TO NEXT LOCATION
F625 FEtE 4444
DEC OH
F627 75CL 4445 JNZ S9 ; KEEP GOING
F629 SE
4446 POP 51
! RECOVER CODE PONTEA
F62A SF
4447
POP 01 I RECOVER REGEN POINTER
F628 83e702
4448
ADO DI.~
; POINT
TO NEXT CHAR POSITION
F62:E f2B6
4449
LOOP 58 ; NORE TO WRITE
F630 £994F8 4450
JMP VIDEO_RETURN
4451
GRAPHICS_WRITE
EHOP
4452 j -----------------"'- ... -------------------
4453 j GRAPHICS READ
4454 ; ------------- .. --- -- ---------------------
F633 4455 GRAPHICS_READ PROC
NEAR
F633 [80600 445. CAll 52&
; CONVERTED TO OFFSET IN REGEN
F636 BBFO 4451
MOV
SI,AX
; SAVE IN 51
'638 83Ee08 4458
sua
SP.8
; AllOCATE SPACE TO SAVE THE READ CODE POINT
F61B 88EC .. 459
MOV
BP.SP
POINTER
TO SAVE AREA
4460
"461 ;------ DETERMINE GRAPHICS MODES
4462:
F630 803E490006 4463
F642 06
4464
F643 IF
4465
POP OS
• POINT TO REGEN SEGMENT
F644 1ZlA 4466 JC
5 .. ; I'IEDIut1 RESOLUTION
4467
4468
1------ HIGH RESOLUTION READ
4469
4470 ;------ GET VALUES FAoM REGEN BUFFER AI«) CONVERT TO CODE POINT
F646 8604
4471
MOV
; NUMBER OF PASSES
F648 4472
512:
F648 BA04 4473
MOV
AL.IsIJ ; GET FIRST BYTE
F64A 884600
4474
MOV
lsPI,Al I SAVE IN STORAGE AREA
F640 45
4475
INC
BP , NEXT LOCATION
F64E 8A840020 4476 MOV
Al.tsi+200OHI I GET LOIolER REGION BYTE
F652 884600 4477
MOV
(SPhAL J ADJUST AND STORE
F655 45
4478
INC
BP
'6$6 83C650
4479
ADO
SI,60 ; POINTER INTO REGEN
F659 FECE 4480 DEc
DH ; LOOP CONTROL
F6se 75E8
4481
JHZ
SIt ; DO IT SOME HORE
F65D £81790 4462
JtIP
SiS I GO MATCH TH-E SAVED CODE POINTS
4483
4484 1------ HEDIUH RESOLUTION READ
F660 448S
513: ; MED_RES_READ
F660 01E6 4486
SAL
SId ; OFFSET*! SINCE Z BYTES/CHAR
F662 8604 4487
NOV
OH,4
;
NUMBER OF PASSES
F664 4488 S14:
F664 E88600 4469
CALL 52:3
I
GET PAIR BYTES FROM REGEN INTO SINGLE SAVE
F667 81C60020 4490
ADD 51. 2000H
; GO TO LOWER REGION
fi6S £68100 4491
CALL sn
;
GET THIS PAIR INTO SAVE
F66E 8lE:EBOIF 4492 sua SI.2:000H-80
; ADJUST POINTER BACK INTO UPPER
F672 FEtE
4493 DEC DH
F674 75EE 4494
JHZ
514 J KEEP GOING UNTl L ALL 8 DONE
4495
4496 1-- ... ----- SAVE AREA HAS CHARACTER IN IT, MATCH IT
F676 4497 515: I FIND_CHAR
F676 BF6EF.
4498
MOV Dr ,OFA6EH
I OFFSET CRT_CHAR_GEN-ESTABlISH ADDRESSING
F679 DE
4499
PUSH CS
F67A 07
4500 POP
ES
I
CODE POINTS IN CS
F678 83ED08 4501
SUB BP.8
ADJUST POINTER TO BE6IHt-lING OF SAVE AREA
F67£ 8BFS
4502
Mov SIIBP
F680 Fe 4503
eLD
;
ENSURE DIRECTION
F681 BODO 4504
MOV
Al,O ; CURRENT CODE POINT BEING MATCHED
F683 450S 516:
F683 16 4506 PUSH SS ; ESTABLISH ADDRESSING TO STACK
F684 IF 4507 POP OS
;
FOR THE STRING COMPARE
F685 8"8000 4508
MOV
DX,l2&
1 NIJt1BER TO TEST AGAINST
F688
4509
S17:
F688 56 4510 PUSH 51
;
SAVE SAVE AREA POINTER
A-61