Category "IS-DOS - the programmers." No 3
Eliseev VA
"The window system IS-DOS"
(Journal version)
(C) PENCRAFT 1995
(C) IskraSoft 1995
End, beginning at No 1 and 2.
Auxiliary restarts.
_________________________________________
wtpos (# 6B)
For the last two restarts printing directly adjacent restart
wtpos (# 6B), allowing to modify the
current position to restart the print
lnstr and str.
Restart wtpos calculates the absolute
logical coordinates print the values of the Y-coord and Print
pos. vector of the window, which indicates the contents of
register IX, taking into account the displacement of Y, defined
in the register H and X, defined by in register L, and puts
them into the system variable XYPOS, located in the vector
character of the output device. This system variable is
actively used restart ttyout (# 0A), on the basis of which many
of the restarts Print Level WIND.SYS.
It is worth mentioning that for the coordinates of a print,
you can also use restart prapd (# 0C) of Level DOS.SYS, which
puts a system variable XYPOS register values H (Y-coord
lines) and L (X-coord in familiarity 6 * 8).
Example using prapd:
;****************************************
; Listing 13 Setting the origin
; For lnstr (# 6D)
ORG # 5D64
CALL CLS; clear screen
LD H, 5; Y-coord
LD L, 2; X-coord
LD C, # 0C; code restart # 0C
; The level DOS.SYS
RST # 10
LD HL, TEXT; address text
LD C, # 6D; code restart lnstr
LD B, 37; the number of characters
RST # 10; print line
CALL WAIT
JP EXIT
; Text buffer
TEXT DEFM "Printing line"
DEFM "coordinates"
DEFM "X = 2, Y = 5"
; Additional procedures
CLS LD C, # 73; restart cls
RST # 10; to clear the screen
RET
WAIT LD C, # 07; restart ttyin
RST # 10; to wait for the clicking
RET; Tia Keys
EXIT XOR A; standard output
LD A, # F4; in the IS-DOS
RET
;****************************************
Same with wtpos:
;****************************************
; Listing 14 Setting the coordinates wtpos
; For lnstr (# 6D)
ORG # 5D64
; Raw data:
; Y-coord window = 3
; X-coord window = 0
; Print pos = 1
; Required coordinates printing:
; X = 2
; Y = 5
And hence:
; H = 2 (displacement along the Y)
; L = 1 (offset X)
CALL CLS; clear screen
LD IX, WIND; vector window
LD A, 2 opening windows
LD C, # 1961
RST # 10
LD H, 2; Y-offset
LD L, 1; X-offset
LD C, # 6B; code restart wtpos
RST # 10
LD HL, TEXT; address text
LD C, # 6D; code restart lnstr
LD B, 37; the number of characters
RST # 10; print line
CALL WAIT
JP EXIT
And the vector window
WIND DEFB 0
DEFB 3
DEFB 7
DEFB 30
DEFB% 00001111
DEFB% 00000001
DEFB 1
DEFB 40
; Text buffer
TEXT DEFM "Printing line"
DEFM "coordinates"
DEFM "X = 2, Y = 5"
; Additional procedures
CLS LD C, # 73; restart cls
RST # 10; to clear the screen
RET
WAIT LD C, # 07; restart ttyin
RST # 10; to wait for the clicking
RET; Tia Keys
EXIT XOR A; standard output
LD A, # F4; in the IS-DOS
RET
;****************************************
scrol (# 70)
Another extremely useful when working with texts restart -
scrol (# 70). He allows you to remove the contents of the
window to line up or down.
When working restart required
Programming filling the extreme left and extreme right in the
familiarity freed string (bottom motion up and vice versa).
Input parameters:
IX - the vector of window
HL - extreme value fill byte
freed string (image coding
induces a binary representation,
For example: a single-line on the edge
coded as 10000000 00000001 and
etc.)
A - operating mode:
A = 0 - Set the restart of the vector
windows - called once before
starting work in the window.
Setting is retained for all time
work until the next call scrol
c zero value in register A.
A = 1 - scroll to line up
A = 2 - scrolling by one line
For normal operation scrol need two more parameters are
added to the standard vector and windows located directly in
front of him:
IX-1-speed scrolling - possible
values - 1, 2, 4, 8 defines
time during which the line
moves to 8 pixels along the vertical
ticked
IX-2 delay of scrolling - possible
values from 0 to 255 - regulates
time interval between consecutive
mi call restarting
By choosing these two parameters is achieved in the most
fluid motion required rate of scrolling.
Example:
;****************************************
; Listing 15 Application scrol (# 70)
ORG # 5D64
, Opening a window
CALL CLS
LD IX, WIND
LD C, # 1961
LD A, 2
RST # 10
; Setting procedures scroll
, The vector window:
LD IX, WIND; vector window
LD C, # 70; code restart
LD HL, # 0000 completion
XOR A; in Reg. A - 0
RST # 10
; Print line prstr subfunction 3
LD IX, WIND
LD HL, TEXT
LD C, # 1968
LD E, 3
LD A,% 00001010
LD B, 1
RST # 10
; Scrolling the window up in the cycle in 5 rows
LD B, 5
M1 PUSH BC
LD C, # 70; code restart
LD A, 1; scrolling up
LD IX, WIND; vector window
LD HL, # 0000 completion
RST # 10
POP BC
DJNZ M1
CALL WAIT
JP EXIT
And the vector box + 2 bytes for restart
; Scrol (# 70)
DEFB 25; delay
DEFB 01; rate
WIND DEFB 0
DEFB 5
DEFB 12
DEFB 25
DEFB% 00000111
DEFB% 00000001
DEFB 2
DEFB 25
The text for printing
TEXT DEFM "It works scrol (# 70)"
DEFB # 0D
DEFB # 03
; Additional procedures:
CLS LD C, # 73; restart cls
RST # 10; to clear the screen
RET
WAIT LD C, # 07; waiting for the keys
RST # 10
RET
EXIT XOR A; output in the IS-DOS
LD A, # F4
RET
;****************************************
Application restart scrol with
restarts printing (eg prstr) allows you to organize the
on-screen mode "running text".
Consider another example:
;****************************************
; Listing 16 The "running text"
ORG # 5D64
, The procedure for opening the window
CALL CLS
LD IX, WIND
LD C, # 1961
LD A, 2
RST # 10
; Setting procedures scrol
, The vector window:
LD IX, WIND
LD C, # 1970
LD HL, 0
XOR A
RST # 10
; Input parameters for the routine
LD A,% 00001010
, In ref. A - bits 7 and 6 determine the mode
; Alignment
; Bits 5 ... 0 determine the indentation
; From the top
The windows
LD B, 1; line number in
The text (lines
, Separated
; From other characters
; ID # 0D)
M1 PUSH AF; save Reg. A
PUSH BC; save BC
; Print line on the number of the text
LD IX, WIND; address vector window
LD HL, TEXT; address early. Text
LD C, # 68; code prstr
LD E, 3; subfunction code
RST # 10
CALL SCROLL; call scrol
POP BC; restore BC
INC B; increase the number
; Line in the text
LD A, B; check on the number of
CP 9; lines printed
JP Z, END; output if all
; Line printed
POP AF; recover A
JR M1; go to print
; The next line
And the vector box + 2 bytes for restart
; Scrol (# 70)
DEFB 25; delay
DEFB 01; rate
WIND DEFB 1
DEFB 1
DEFB 12
DEFB 28
DEFB% 00000111
DEFB% 00000001
DEFB 4
DEFB 35
The text for printing
TEXT DEFM "This program
DEFB 13
DEFM "is an example"
DEFB 13
DEFM "organization in the system"
DEFB 13
DEFM "IS-DOS to the screen"
DEFB 13
DEFM "in 'running text'"
DEFB 13
DEFM "Text output is organized"
DEFB 13
DEFM "with restarts"
DEFB 13
DEFM "scrol (# 70) and prstr (# 68)"
DEFB 13
; Additional procedures:
CLS LD C, # 73; restart cls
RST # 10; to clear the screen
RET
SCROLL LD C, # 70; procedure to scroll
LD A, 1; linga window
LD IX, WIND; line up
LD HL, # 0000
RST # 10
RET
END POP AF; shutdown
CALL WAIT
JR EXIT
WAIT LD C, # 07; waiting for the keys
RST # 10
RET
EXIT XOR A; output in the IS-DOS
LD A, # F4
RET
;****************************************
...
