Table of Contents
Advertisement
219B
219B
219B
5F
219C
5E
2190
5B
219E
59
219F
5A
21AD
1F
21A1
07
21A2
50
21A3
CF
21A4
21A4
21A4
21M
FB
21A5
lE
21A6
50
21A7
53
21A8
51
21A9
52
21M
E8 0001 R
21AD
80 3E 0500 R 01
21B2
74 63
21B4
C6 06 0500 R 01
21B9
B4 OF
21BB
CO 10
21BO
8A CC
21 B F
8A 2 E 0484 R
21C3
FE C5
21C5
E8 2210 R
21C8
51
21C9
B4 03
21CB
CO 10
21CO
59
21CE
52
21CF
33 02
2101
2101
B4 02
2103
CO 10
2105
B4 08
2107
CO 10
2109
OA CO
210B
75 02
21 DO
BO 20
21DF
210F
52
21EO
33 02
21E2
32 E4
21 E4
CD 17
21E6
5A
21
E7
F6 C4 29
21EA
75 21
21EC
FE C2
21EE
3A CA
21FO
75 OF
21F2
32 02
21F4
8A E2
21F6
52
21F7
E8 2210 R
21FA
5A
21FB
FE C6
21F0
3A EE
21FF
75 DO
2201
5A
2202
B4 02
2204
CD 10
2206
C6 06 0500 R 00
220B
EB OA
2200
2200
5A
220E
B4 02
2210
CD 10
2212
C6 06 0500 R FF
2217
2217
5A
2218
59
2219
5B
221A
58
221 B
1F
221C
CF
2210
2210
2210
33 02
221F
32 E4
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
C
C
C
V_RET
PROC
NEAR
POP
01
POP
SI
POP
BX
POP
CX
POP
OX
POP
OS
POP
ES
POP
BP
IRET
V_RET
ENDP
COMBO_VI OED
ENDP
INCLUDE
VPRSC. INC
SUBTTL
VPRSC. I
HC
PAGE
; ALLOW FALL THROUGH
; VIDEO BIOS RETURN
C
; - ---- - - - - - ------ - ------ --- -- --- ------ - --- - ---- -- - --- - -- ------- --- -------
C
INTERRUPT 5
C
THIS LOGIC WILL BE INVOKED BY INTERRUPT 05H TO PRINT THE
C
SCREEN.
THE CURSOR POSITION AT THE TIME THIS ROUTINE IS INVOKED
C
WILL BE SAVED AND RESTORED UPON COMPLETION. THE ROUTINE IS
C
INTENDED TO RUN WITH INTERRUPTS ENABLED.
IF A SUBSEQUENT
C
'PRINT SCREEN' KEY IS DEPRESSED DURING THE TIME THIS ROUTINE
C
IS PRINTING IT WILL BE IGNORED.
C
ADDRESS 50:0 CONTAINS THE STATUS OF THE PRINT SCREEN:
C
C
50: 0
=0
EITHER PR I NT SCREEN HAS NOT BEEN CALLED
C
OR UPON RETURN FROM A CALL THIS INDICATES
C
A SUCCESSFUL OPERAT I ON.
C
= 1
PR I NT SCREEN I SIN PROGRESS
C
=255
ERROR ENCOUNTERED OUR I NG PR I NT I NG
C
; - - - -- - - - - - - - -- -- - - - - - -- -- - - - - -- -- ---- - -- - - -- - - -- ----- -- - - --- - ------ - - ---
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
ASSUME
PR I NT SCREEN
CS: CODE, OS: ABSO
PROC
FAR
-
STI
MUST RUN WI TH I NTS ENABLED
MUST USE 50: 0 FOR DATA
area storage
PUSH
PUSH
PUSH
PUSH
PUSH
CALL
CMP
JZ
MOV
MOV
I NT
OS
AX
BX
CX
OX
DDS
STATUS_BYTE,l
EXIT
STATUS_BYTE,l
AH,15
10H
USE TH I S LATER FOR CURSOR LI M ITS
WI LL HOLD CURRENT CURSOR POS
,
SEE IF PR I NT ALREADY I N PROGRESS
; JUMP IF PR I NT I N PROGRESS
;
INDICATE PRINT NOW IN PROGRESS
; WILL REQUEST THE CURRENT MODE
;
I AL )=MODE (NOT USED)
;
I AH )=NUMBER COLUMNS/LI NE
;
I BH )=V I SUAL PME
;
-
_
......
-_
...............
-~
.....................................
-_
............................
-_
..
-_
.....
--
---_
................
-_
...
AT THIS POINT WE KNOW THE COLUMNS/LINE ARE IN
;
~~~)D~~~/~U~:6xl~U~m~C~m ~~SI~lb~~)M06~E
STACK
;
----------------------------------------------------------------
MOV
CL,AH
, WILL MAKE USE OF ICX) REG TO
MOV
CH, ROWS
;
CONTROL ROW & COLUMNS
INC
CH
;
A~JUST
'
CALL
CRLF
; CAR RETURN LINE FEED ROUT I NE
PUSH
CX
;
SAVE SCREEN BOUNDS
MOV
AH,3
; WI LL NOW READ THE CURSOR.
I NT
10H
; AND PRESERVE THE POS I T I ON
POP
CX
;
RECALL SCREEN BOUNDS
PUSH
OX
;
RECALL IBH)=VISUAL PAGE
XOR
OX, OX
;
SET CURSOR POSITION TO 10,0)
;
-_
........
--_
.........
-_
..............
-_
.........
---
-_
..........................
-_
..
---_
... ----
-_
..
---- ----
THE LOOP FROM PR 110 TO THE I NSTRUCT I ON. PR I OR TO PR 120
IS THE LOOP TO READ EACH CURSOR POSITION FROM THE
SCREEN AND PR I NT.
~~~~o;---------------------------------
. . . . . . . . ---------. . . . . --------. . ---
PR115:
ERR10:
EXIT:
MOV
I NT
MOV
INT
OR
JNZ
MOV
PUSH
XOR
XOR
INT
POP
TEST
JNZ
INC
CMP
JNZ
XOR
MOV
PUSH
CALL
POP
INC
CMP
JNZ
POP
MOV
INT
MOV
JMP
POP
MOV
I NT
MOV
POP
POP
POP
POP
POP
IRET
PR I NT_SCREEN
AH,2
10H
AH,8
10H
AL,AL
PRI15
AL#
I
OX
DX,DX
AH,AH
17H
OX
AH,029H
ERR10
OL
CL,DL
PRll0
DL,DL
AH,Dl
OX
CRLF
OX
OH
CH,OH
PRll0
OX
AH,2
10H
STATUS_BYTE,O
SHORT EXIT
OX
AH,2
10H
STATUS_BYTE,OFFH
OX
CX
BX
AX
OS
ENDP
TO INDICATE CURSOR SET REQUEST
NEW CURSOR POS ESTABL I SHED
TO INDICATE READ CHARACTER
CHARACTER NOW I N I AL)
SEE I F VAL I
0
CHAR
JUMP I F VAL I
0
CHAR
MAKE A BLANK
SAVE CURSOR POS I T I ON
INDICATE PRINTER 1
TO INDICATE PRINT CHAR IN [AL)
PR I NT THE CHARACTER
RECALL CURSOR POS I T I ON
TEST FOR PR I NTER ERROR
JUMP I F ERROR DETECTED
ADVANCE TO NEXT COLUMN
SEE IF AT END OF LINE
I F NOT PROCEED
BACK TO COLUMN 0
[AH )=0
SAVE NEW CURSOR POS I T I ON
LINE FEED CARR I AGE RETURN
RECAll CURSOR POS I T ION
ADVANCE TO NEXT LINE
F INI SHED?
I F NOT CONT I NUE
RECALL CURSOR POS I T I ON
TO INDICATE CURSOR SET REQUEST
CURSOR POS I T I ON RESTORED
INDICATE FINISHED
EXIT THE ROUTINE
GET CURSOR POS I T I ON
TO REQUEST CURSOR SET
CURSOR POS I T ION RESTORED
INDICATE ERROR
RESTORE ALL THE REG I STERS USED
; ------ CARR I AGE RETURN,
II NE FEED SUBROUT I NE
CRlF
PROC
XOR
XOR
NEAR
OX,DX
AH,AH
PR INTER 0
Will NOW SEND INITIAL CR,
LF
TO PRI NTER
IBM Enhanced Grapbics Adapter 151
Advertisement
Chapters
Table of Contents
