IBM PC CONVERTIBLE

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