Table of Contents
Advertisement
Appendix H: I/O Sample Programs
257
10
F'ROCF:Ai'! TO IlEt'lOr'1STPATE US I ['1G THE ClOCl< FOR I NTERRUF'TS
:30
THH:; E>::Af'IF'lE
::;HO~JS
Hm,j TO USE THE ClOO< H-HERRUPT TO PUT THE TH1E
46
OF IlA\' HHO THE :::;'lSTHi i'1E::SAGE AREA A:;:;
lm'~G
AS THE PR OGR At'l IS
RUr·H·4H~G.
6~3
THE ClOCt< IS PROGRAt'ii'1ED TO
GEt-~ERATE
Ar'i HHERRUPT EVERY SECOHD. THE
7~3
A::;;SHrBl'l HHERRUPT SER
f
,IICE ROUTINE TRIGGERS AH END OF lIHE BRANCH. THE
::;:6
EOl BRAHCH
~:OUTH~E
CAlU::
Ar'~
AS::;H1Bl'l ROUTIHE TO PUT THE TH1E OF DA'l
90
INTO THE SYSTEM MESSAGE AREA.
100
116
ICet'! 200
1
2~3
I A=:;SH1BlE
1::::0
ICAll Setut:,-clock
140
OH INT #9 CAll Time
SET UP ISR AND START CLOCK
SET UP EOL BRAt·4CH
15~3
160
! BACt<GRour·m
PROG~:Ar'1:
170
1:;::0
II I SF' I
190
1=1+1
2(10
GOTO 1:30
2H3
220
=:;;U:B Time
2:30
ICAll Display time
246
SUBEXIT
' -
25(1
I ::;;OUPCE
HAr1 Time
266
ISOU~:CE
E~<:T
Er-·r·or:.....e::d t, Pt-·i nter:"",sE" 1 ect, Pr·i nt_::::U-' i ng
270
ISOUPCE
EXT Isr aCCE"SS
280
ISOUPCE Select code:EQU 9
290
I ::;OU~:CE Eo 1 m.::tsk:
:3ET
GET AS=;:;Et1BLER TO COt'1PUTE
:300
I SOURCE
REF'
::;;.:;·1
E"C t c odE"
THE EOl f'1ASK FOR TF.! I GGEP
H-~G
310
I::;;OURCE E01 m.::t:::.k:
SET Eol ma:::.k*2
EOl BRAHCHES
320
I30URCE Ct-·:
EQU 13
OTHER EQUATE3
330
I30URCE
If:
EQU 10
340
I30UPCE 3tring:
BSS 20
AREA TO HOLD TIME OF DAY
356
ISOURCE Oi d_pi :
BSS 1
nom
~mFm:3
TO HOLD CURREt-H
360
ISOU~:CE
Old pi;):
:BSS 1
PRHHER IS AND PRINTER L.JIDTH
376
I:30URCE !
-
:::::;::6
3'::n:i
466
410
420
43~3
440
456
460
476
49~3
506
510
526
546
550
576
5:36
5'30
666
610
I30URCE
SUB
I
::;:DURCE Set up _c
1
oc k : LDA =::;e
1
E"C t code
I=30URCE
:3TA P.::t
-
i'IAkE ::;:URE THE ClOO< CAf:::D
1=3 Al1\iE
I30Uf:::CE
=:;::;::S C::tr·d ok
I:::OURCE C::tr·d dOl,m:
lDA =164
IF NOT, GIVE ERROR 164
I ::;;OURCE
.1:3t1 Error'
e>~
i t
I:30URCE C::tt-'d ok:
lDA = I sr-'
-
! SET UF' ISR lINKAGE
I30URCE
ISOU~:CE
I:;:;OUf:::CE
I=30URCE
I=;:;OURCE
ISOURCE 3tart card:
I30URCE
I30URCE
I30URCE
I30URCE Out_loop:
I30URCE
I::;OURCE
I=;:;OURCE
lDB =(10*256)+(1*16)+Select codE"
'.1::;i'! 1:::r aCCE"SS
-
.1i'!P *+2
IF EPROP, THEH .1Ui'1P
.1NF' Stat-·t cat-·d
CPA =-1
-
.1t1P :;:;.:;·t
Uf,-c
1
oc
k
ELSE GO :;::TART UP THE CARD
IF DIDN/T GET RESOURCE3
THEt-~
TF((, AGA
H-~
RET
IF 1SR ALREADY lINKED,RETURN
lDA =="U4H/U4=04/U4F'166CVU4G"+lf
3Al 1
3ET UP C TO POIHT TO 3TRIHG
STA C
~jH1CH
I
~j
ILL OUTPUT TO THE
CBl
CLOCK TO PROGRAt1 IT.
lDB =-21
3FC *
~~BC
R4, I
RIB Out_loop
lDA =200B
B
IS -(CHAR COUNT-I)
~,jAIT
FOR CARD
=3HOVE
NE>~T
B'lTE OUT TO CARD
TRIGGEP HANDSHAKE
lOOP UNTIL DONE
EHABlE THE CARD TO 1HTERRUPT
Advertisement
Table of Contents
