IBM 5170 Technical Reference page 283

AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS
(BLl :: fOREGROUND COLOR FOR CHAR WRITE If CURRENTLY IN A GRAPHICS MODE
EXIT - ­
ALL REG I STERS SAVED
ASSUME CS: CODE, OS: DATA
075B
075B 50
WRITE TTY
- PUSH
PROC
AX
NEAR
SAVE REG I STERS
075C 50 PUSH
AX SAVE CHAR TO WR I TE
0750
075F
0763
84
8A
CD
03
3E 0062 R
10
MOV
MOV
INT
AH,3
BH, ACT! VE_PAGE
10M
GET CURRENT PAGE SETT I NG
READ THE CURRENT CURSOR POSITION
0765 58
POP
AX
RECOVER CHAR
;----- OX NOW HAS THE CURRENT CURSOR POSITION
0766
0·'68
3C
74
08
52
CMP
JE
AL,8
U8
I
SIT A BACKSPACE
BACK SPACE
076A 3C 00 CMP AL,OOH
IS IT CARRIAGE RETURN
076C 74 57 JE U9
CAR RET
076E 3C OA CMP AL,OAH
IS IT A LINE fEED
0770 74 57 JE Ul0
LINE FEED
0772 3C 07 CMP AL,07H
IS IT A BELL
0774 74 5A JE U11 BELL
; ----- WR I TE THE CHAR TO THE SCREEN
0776
134 OA
MOV AH,10
WRITE CHAR ONLY
0778 B9 0001 MOV CX,l
ONLY ONE CHAR
077B CO 10 INT 10M
WR I TE THE CHAR
POSITION THE CURSOR fOR NEXT CHAR
0770 FE C2 INC DL
077F 3A 16 004A R CMP DL, BYTE PTR CRT_COLS TEST FOR COLUMN OVERfLOW
0783 7533 JNl
U7
SET CURSOR
0785
62 00
MOV DL,O
COLUMN fOR CURSOR
0787
80 FE 18 CMP
DH,24
078A 75 2A JNZ U6 SET _CURSOR_I NC
SCROLL REQU I REO
078C
lJ1:
078C B4 02 MOV AH,2
078E
CD 10 I NT 10M
; SET THE CURSOR
DETERM I NE VALUE TO FILL WITH OUR I NG SCROLL
0790 AD 0049 R MOV AL, CRT_MODE GET THE CURRENT MODE
0793 3C 04 CMP AL,4
0795 72 06 JC
U2
READ-CURSOR
0797 3C 07 CMP AL,7
0799 B7 00 MOV BH,O
FILL 10.' I TH BACKGROUND
0796 75 06 JNE U3
SCROLL-UP
0790 U2:
READ-CURSOR
0790 64 08 MOV AH,8
079F
CD 10 INT 10M READ CHARjATTR AT CURRENT CURSOR
07A1 8A FC
MOV BH,AH
STORE IN BH
07A3
U3:
SCROLL-UP
07A3 B8 0601
MOV AX,601H
SCROLL ONE LINE
07A6 26 C9
SUB
ex,cx
UPPER LEfT CORNER
07A8 66 18
MOV DH,24
LOWER RIGHT ROW
O~'AA 8A 16 004A R MOV OL, BYTE PTR CRT_COLS LOWER RIGHT COLUMN
07AE FE CA
DEC OL
07BO
U4:
V I DEO-CALL-RETURN
0780 CD 10 INT 10H SCROLL UP THE SCREEN
07B2
U5:
TTY-RETURN
07B2
58 POP
AX
RESTORE THE CHARACTER
0783
E9 0144
R
JMP VIDEO_RETURN
RETURN TO CALLER
0766 U6: SET -CURSOR- INC
0786 FE C6 INC DH NEXT ROW
0788
U7:
SET-CURSOR
07B8 B4 02 MOV AH,2
07BA EB F4 JMP
U4
ESTABLISH THE NEW CURSOR
; ----- BACK SPACE FOUND
076C U8:
07BC
80 FA 00
CMP DL,O
ALREADY AT END OF LINE
07BF 74 F7
JE U7
SET CURSOR
07Cl FE CA DEC
OL
NO
=-
JUST MOVE I T BACK
07C3 EB F3 JMP
U7
SET_CURSOR
; ----- CARRIAGE RETURN FOUND
07C5 U9:
07C5
B2 00 MOV
DL,O
MOVE TO FIRST COLUMN
07C7
E8 EF
JMP U7
SET_CURSOR
i----­
LI NE fEED fOUNO
07C9 Ul0:
07C9 80 FE 18 CMP DH,24 BOTTOM OF SCREEN
07CC 75 E8 JNE U6 YES, SCROLL THE SCREEN
07CE EB BC JMP
Ul
NO, JUST SET THE CURSOR
i-----
BELL FOUND
0700
U1l:
0700 B3 02 MOV BL,2
; SET UP COUNT FOR BEEP
0702
E8 0000 E
CALL BEEP
; SOUND THE POD BELL
0705 EB DB JMP U5 ; TTY_RETURN
0707 WR I TE_TTY ENDP
;
---------
---------------------------
-
--
-
-------------
------
--
-
-
-- ------­
LIGHT PEN
TH I S ROUT I NE TESTS THE LI GHT PEN SW I TCH AND THE LI GHT
PEN TR I GGER. I f BOTH ARE SET, THE LOCAT I ON Of THE LI GHT
PEN IS DETERMINED. OTHERWISE, A RETURN WITH NO INfORMATION
I S MADE.
ON EXIT:
(AH)
= 0
IF NO LIGHT PEN INfORMATION IS AVAILABLE
6X, CX, OX ARE DESTROYED
(AH)
=
1 I F LI GHT PEN I S AVA I LABLE
(DH, DL) ~ ROW, COLUMN Of CURRENT LIGHT PEN POS I T I ON
(CH) :: RASTER POSITION
; (BX) '" BEST GUESS AT PIXEL HORIZONTAL POSITION
;
-----------
- -- -
-------------------------------
--- -- - - -- - - -- - ----
-------­
ASSUME CS:CODE,DS:DATA
; ----- SUBTRACT_TABLE
0707 Vl LABEL BYTE
0707 03 03 05 05 03 03 DB 3,3,5,5,3,3,3,4 ;
03 04
07DF
PROC NEAR
Video 5-141