43 oD0E D307 QUT (CLKREG+2)
4 OD10 JEO1 —«-RESTARTILD As 15Set for initial register
5 opi2 D420 RDLP: GALL READ jValue returns in E
66 ODIS 47 LD ByA sStore value
47 OD18 7B Ww AE
$8 0017 E6OF AND OFH;Mask off strobes int. line
89 OD19 FEOF CP OFHSIY OFH, clock has ticked
70 ince last register read. Print
ma W"Fail’ and start again
72 op1p 2B3e SR Z,REBTARTS
73 OD1D F430 OR 30H yTurn into ASCII
74 ODIF D&S SCAL CRT jPrint value
75 opzi 78 LD AB. $Get count back
76 opz2 3c INC A’sPoint to next register
77 OD23 E6OF AND OFN,
78 0025 20EB SR NZ,ROLP
79 0027 DFeA CAL CRLF
80 0029 DFSB EXIT: —SCAL FRET
cr
82 OD2B 0&4 = WRITE: LD C,CLKDAT)Set up data on port
83 oDzD EDS9 QUT (C)sE
84 OD2F F470 OR 40N+20H+10H)Select chip, but
85 sturn off strobe
8% ODS1 D305, QUT <(CLKRES) A
87 ODS CBA7 RES 4,A | Turn on WR
BB OD35 D305 OUT (CLKRES) ,A
9 OD37 CBEY SET 4,0 yTurn off WR
90 0039 DOS OUT (CLKRES) 0
91 ODSB CBB7 RES 6,A ;Deselect chip
92 OD3D D305 QUT <CLARES) A
93 ODSF E6OF AND OFH;Restore reg no, no strobes
94 opai C9 RET
os
9% OD42 OEOS «= READ: LDC, CLKDAT;Set C for data port
97 0044 Fa70 OR 40H+20H+10H;Select chip, no strobe
98 oD46 D505 QUT (CLKRES) A
99 0048 CRAF RES_5,A 3Turn on RD
100 ODA D305, QUT {CLKRES) ,A;Set up register add.
101 OD4C EDSE IN E,(C) iGet data
102 OD4E CBEF SET 5,A jTurn off RD
103 OD50 CBB7 RES 4)A jTurn off chip
104 Op52 0305 QUT (CLKRES) ,A
105 0054 FS PUSH AF
106 0D55 7B LD A,EsMask off top 4 bits in E
107 0056 E6OF AND OFH
108 OD58 SF Lp EA
109 oD59 Fi Pop AF
110 0958 CF RET
au
112 0p58 EF RESTARTIIPRS sHare if clock haa ticked
113 oDSC 4641494c DEFB “FAIL” ,CR,O
113 0060 oD00
114 p62 C3100 JP_ RESTART
115 ORG ODBOH