IBM PC CONVERTIBLE Technical Reference page 253

OE63 3C 02 CMP AL ,02
CONTROL CODE
OE65 77 06
JA REPS30 JUMP I F NOT
OE67 45
REPS20: INC BP INC POINTER
OE68
26: 8A 5E 00
MOV BL,ES: [BP] MOVE ATTRI BUTE TO BL
OE6C 45
INC BP INCREMENT BP
OE6D B4 02 REPS30 : MOV
AH,2
OE6F
CD 10 INT 10H
SET CURSOR POSITION
OEll
51 PUSH CX
SAVE LOOP COUNT
OE72
B9 0001 MOV CX,l LENGTH OF STRING IS 1 BYTE
OE75 B8 1300
MOV AX,1300H WRITE STRING FOR INTlO
OE78 CD 10
INT 10H
WRITE CHARACTER/ATTRIBUTE
OE7A
59 POP CX RESTORE LOOP COUNT
OE7B FE C2
INC DL I NC COLUMN PO INTER
OE7D B3 07
MOV BL ,07 SET ATTRI BUTE TO NORMAL
OE7F 45 INC BP
INC DATA POINTER
OE80 E2 DD LOOP REPS10
WRITE CHAR TIL END OF STRING
OE82 59 POP CX
RESTORE LENGTH OF STRING
OE83 FE 4C 05 DEC [SI]. RSTILNO
DEC NO. TO REPEAT STRING
OE86 74 04 JZ REPS50
CONT IF NO MORE REPITITIONS
OE88 8B EF MOV BP ,DI
POINT TO BEGINNING OF STRING
OE8A EB 02
JMP REPS09 REPEAT STRING
OE8C 4D REPS50 : DEC BP
DECREMENT POINTER
OE8D E9 ODAD R JMP IPR20
CONTINUE
OE90 I PR_RSTA:
OE90 45 INC BP INC POINTER
OE91
26: 8A 46 00 MOV AL, ES: [BP] GET NO. TO REPEAT ROW
OE95
88 44 05 MOV [SI] . RSTR_NO,AL SAVE
OE98
45 INC BP INC POINTER
OE99 26: 8A 4E 00
MOV CL,ES: [BP] GET LENGTH OF STRING
OE9D 45
INC BP INC POINTER
OE9E 26 : 8A 5E 00 MOV BL,ES: [BP]
GET ATTRI BUTE
OEA2 45 INC BP
INC POINTER
OEA3 8B FD MOV DI, BP
SAVE START OF ROW
OEA5 8B EF RSTA10: MOV BP,DI
RESET POINTER
OEA7 B8 1300 MOV AX,01300H
WRITE STRING FOR INT 10
OEAA CD 10 INT lOH DISPLAY STRING
OEAC 02 D1 ADD DL, CL ADD TO COLUMN PO INTER
OEAE FE 4C 05 DEC [SI] . RSTR_NO DEC NO. TO REPEAT STRING
OEB1 75 F2
JNZ RSTA10 PRINT STRING AGAIN
OEB3 RSTA_RET:
OEB3 03 E9
ADD
BP, CX
PO I NT TO POSTI ON IN DATA
OEB5 4D
DEC
BP
OEB6 E9 ODAD R JMP IPR20
CONTINUE
OEB9 I PR_RET:
OEB9 83 C4 06
ADO SP,6 DE-ALLOCATE STACK SPACE
RESTORE
OEBC 1F POP OS
OEBD 07 POP ES
OEBE 5F POP 01
OEBF 5E POP SI
OECO 5D POP BP
OECl 5A POP OX
OEC2 59 POP CX
OEC3
5B
POP
BX
OEC4 58
POP AX
OEC5 C3 RET
RETURN TO CALLER
OEC6 I CON_PR ENDP
2-228 ROM BIOS