Advertisement
)
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
18S0
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1965
1970
1980
1990
3000
3010
3020
3030
3040
30S0
3060
3070
3080
3090
3100
3110
3120
3130
3140
3150
3160
3170
3180
3190
3200
3210
3220
3230
3240
3250
3260
REM CH9IN
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
ENT
IN A, (CH9CT>
R'RCA
.JR
LD
OUT
IN
AND
LD
IN
LD
RET
NC,CH9IN
A,I
(CHBCT> , A
A,(CHBCT)
70H
(INER@),A
A'( CHBDT>
(C.HAR) , A
REM ***
OUTPUT ROUTINE
***
REM
REM CHAOUT ENT
REM
IN
REM
9IT
REM
JR
REM
LD
REM
OUT
REM
RET
REM
REM CH90UT ENT
REM
IN
REM
BIT
REM
JR
REM
LD
REM
OUT
REM
RET
REM
END
REM
A, (CHACT>
2,A
Z,CHAOUT
A,(CHAR)
(CHADT> , A
A, (CHBCT>
2,A
Z,CHBOUT
A,(CHAR)
(CHBDT> , A
; [ adr.='F04A ]
:DATA DB,93
:DATA OF
:DATA 30,FB
IDATA 3E,01
:DATA D3,B3
:DATA D9,B3
:DATA E6,70
••
:DATA 32,32',FO
IDATA D9,B2 '
:DATA 32,33,FO
:DATA C9
[ adr.=SF060 ]
IDATA DB,91
:DATA CB,S7
IDATA 28,FA
IDATA 3A,33,FO
:DATA D3,BO
IDATA C9
I [ adr .... F06C ]
:DATA DB,B3
:DATA CB,S7
:DATA 28,FA
:DATA 3A,33,FO
:DATA D3,B2
IDATA C9
:DATA END
DIM X(30)ILIMIT .FOOO IP-15*4096
FOR JaO TO 9:X(J)-JINEXTIFOR J-O TO SIX(17+J)-J+I0INEXT
PRINT"SIF SUBROUTIN LOADING"
READ X'IIF X'-"END" THEN 3000
J-16*X(ASC(MIO.(X.,I,I))-48)+X(ASC(MID.(I',2,1))-48)
POKE P,JIP=P+IIGOTO 1970
REM
**************************
REM *
*
REM *
MAIN PROGRAM
*
REM *
*
REM **************************
REM
USR(.F009)IREM
mod. s.t
~,
PRINTIPRINT:PRINT "*****
TEST PROGRAM
(S.ri~l
I/F M2-8BI03)
PRINT
PRINT "Chann.l A TEST"
FOR 1-0 TO 2SS
POKE
.F033,I :USR(.F060)IPOKE .F033,O
: REM chann.l-A output
USR(.F034)IA=PEEK(SF033):ER-PEEK(SF032) I REM chann.l-A input
IF ER<>O THEN PRINT"COMMUNICATION ER - ";ERISTOP
IF I<>A THEN PRINT"COMPARA ER":STOP
PRINT"."I:NEXT
PRINT"***
OK
***"
PRINT
PRINT"Chann.1 B TEST"
FOR
1-0
TO 255
POKE $F033,I:USR(.F06C):POKE .F033,O
USR(.F04A):A=PEEK(.F033):ER=PEEK(SF032)
IF ER<>O THEN PRINT "COMMUNICATION ER ' " '
IF I<>A THEN PRINT "COMPARA ER"ISTOP
PRINT"'"; :NEXT
PRINT"***
OK
***"
END
14
: REM chann.I-9 output
: REM chann.l-B input
";ERISTOP
***** "
Advertisement
