Epson PX-8 - Page 153

0001
0005
F2C9
F358
0000'
0003'
0006 '
0009'
0008'
OOOE
8200
8200
8203
8204
8206
B209
B20C
B20E
~ACRO-80 3.44
21 OOOE'
11 8200
01 om
ED 80
C3 0000
21 F2C9
7E
FE 03
C2 B23b
CD B24F
FE FF
CA B23b
:HfHHlfHfHHffIHHHHHHHffffHHffHlfHHffHHifHHfHffHfi
:*
;f
:'
;f
:.
Prooral
Syste.
Configuration
Language
Ref
Date
Load the Qraphic screen frol the currenth
logoed in drive fro. file 'VRA"DATA.DAT
PI-8
9 Kb RA" disk & 0 oage USER8IOS. size
Zilog Z80 one.onic code
DCElYM
JAN-84
;lfUffHfHHHHfHfU*ffftffilfHfffffffffffffUffffffffffffffffffffff
.180
: ffffHfffHHffffffflffffffffHfHHlfffffffffHffffffflfffffffffffffHI
;-
:f Standard CP/" & PX-B equates.
:*
; fffffffffllffffffffHffffffffffflfffffffffffffflffffflfffififfifffffffff
8105 EQU OOOIH Poinhr to W800T address
8005 EQU 0005H 8005 function di spatch ju.p vector
SCR"ODE EQU OF2C9H Poi nhr to the address that hoI ds the
current screen .ode.
SLVFL6 EQU 0F158H Slave co,"unications enable flag.
; ffffflffffHfiHffffffffffffffffflfffffffffffflfffffffffffffffffffliffff
:'
:' Relocator to love the .ain progra. up to OB200H
; fffffffffffffffffffffffflffffffffffHffffffffffffffffffflfffffffffffffff
LD HL,SOURCE Set up the origin address
LD OLDEST Set Destination address
LD 8C, LEN Set up the length of the progr a.
LDIR And .ove the progra ••
JP OOOOH Exit back to CP/"
; fffffffffffffffffffffffffffffffffffffffffffHfffffffffffffffffffflffffff
;1
;* Main progral starts here ~ ~
:'
; fffffffffHfffffffffffffffffflfHfllffHflftflHHflfUflUffffffffHffl
SOURCE,
DEST:
• PHASE 08200H
LD
LD
CP
JP
HL.SCRMODE
A.(HU
Set the pointer to the screen lode
and fi nd out the screen oode
Is the screen in graphic lode?
No. 50 exit fro. this prograM
Since screen lode is Qranhic, load the screen fro. disk
CALL
CP
JP
OPEN
OFFH
1. EXIT
Open the file fro •• hich to
load the screen.
Does the file exist'
No. 50 e, i t fro. thi 5 program
The +ile is now open '0 the data can be loaded
H-11
8211
8213
8216
B218
8218
8218
821E
8220
8223
8226
8229
822A
822C
822E
822E
8230
8233
8236
823b
8237
8237
B23A
B23C
B23F
B241
8244
8247
"ACRO-SO 3.44
3E FF
32 F358
3E 00
32 8338
CD 8275
FE FF
CA 822E
CD 8237
3A 8338
3C
FE 20
20
EA
3E 00
32 F358
CD B27E
C9
3A 8338
CB 07
32 8291
3E 00
32 B290
11 B287
2A 0001
09-Dec-81
LOOP,
EOF:
EXIT:
PAGE
LD
LD
I-I
A.OFFH
(SLVFLGI.A
Enable SlaVE cOliliunications 50 that
co •• ands ~ data can b. sent to the
,lave
CPU. If this flag is not set
then all slave co •• unication is ignored.
Data can now be read froo di 'k and wri tten to VRA"
LD
LD
CALL
CP
JP
CALL
LD
INC
CP
JR
A.OOH
(COUNTI.A
READ
OFFH
l,EOF
SETVRAK
A. (CDUNT>
A
32
NZ .LOOP
Initialize the count for the nu.ber of
blocks of data to be read frol the
disk
in order to load the cOlpleh screen
Set the next block of data frol the disk
Have .e tried to get data that· doesn't exist
Ve" 50 just exit because there is nothing
else we can do I
We've got the next block 50 .rite it to VRA"
Incre.ent the block counter
Has all the screen been loaded fro. di sk?
No. 50 go back and process the next block
All of the screen has been loaded frol disk. 50
close the file.
LD
LD
CALL
A.OOH
(SLVFL61.A
CLOSE
It is no. safe to exit.
RET
Disable cOlOunication .ith the slave CPU
50 that co •• ands & data are innored
Close the file.
We'VE! done it!!
: HHfll****HffffffH**HHffffHf*******HHHHfHlflfHIHffHlfftlff
:'
;*
:'
Subroutine
Set the VRAK data in a block of 60 x 2 bytes
this actually sets 2 lines
of 480 pixels.
: Hffffff**lffffffff****,fH*ffffffflfffffllffffl**fffffffffffl**HfffHf
SETVRA":
LD
RLC
LO
LD
LD
LD
LD
A. (COUNT>
mOOROI.A
A.OOH
(XCOORDI.A
DE, PACKET
HL,IBIOSI
H-12
Set the block nUlber of the data to be
read in. in order to calculate the
I.V position to start on the screen
which wi 11 have to be set
Calculate the V coordinate
of the screen
block 1= data block nu.ber *21
Set the X coordi nate to 0 i. e. always
start at the left edoe of the screen
Set up the .acket addres, for the 8lOS
51a·"1? call
Set the BIOS call address i. e. W80DT
address '0 that the SLAVE BIOS call