IBM 5150 Hardware Reference Manual 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