P722CEEFAX 722 Wed 19@Oct 12:01/27
‖B2201203‖a17Reverse‖i15BASIC‖m10÷e÷X÷b÷
f÷L:@REVERSE÷e÷X÷l÷↑÷ 3÷e÷X÷v÷#÷G14÷e÷X(
■f÷F ─- ÷= ─5d C÷e÷X2÷gseventy=&70÷e÷X<÷
hosbyte=&FFF4÷e÷XF÷h÷6@Zcodj &100÷e÷XP÷f
÷6 byte(11)÷e÷XZ÷g÷;pass=0─‖─2─p2÷e÷Xd÷d
P%=mcode÷e÷X↑÷e←OPT pass÷e÷Xx÷a.read÷e÷X
─*(LDA £&9F ½ write to speech processor÷
j÷X─4 LDY@£&10 < read byte command÷e÷X─>
'JSR osbyte ½ send read byte command÷e÷X
─H$LDA £&9E < read speech processor÷e÷X─
R.JSR osbyte < read byte at address regi
ster÷e÷X─½!T9A < result into accumulator
÷e÷X─f÷#RTS÷e÷X─p÷c.rotate÷e÷X÷*÷#PHA÷e÷
X÷4!RO$ A <@bit 0 into@carry flag÷e÷X÷>÷
#PLA÷e÷X÷H'ROR A ½ rotate byte read from
PHR M÷e÷X÷"÷#RT"÷e÷Y÷½÷d.reverse÷e÷Y÷f£
STA seventy ↑ store byte in &70÷e÷Y÷p÷sL
DX £8 < loop count@= 8÷e÷Y"÷b.again÷e÷Y,
%ROL seventy ½ bit@7 of &70 into C÷e÷Y6÷
uROR A < C into bit@7 of A÷e÷Y@÷sDEX < d
ecrement counter÷e÷YJdBNE again < if not
0 do it again÷e÷YT÷#RTS÷e÷Y↑÷→→÷e÷Yh÷→÷
E÷e÷Yr÷t÷@"Start address &"start$÷e÷Y‖‖÷
ostart=─H("&"+start$)÷e÷Y─.÷r÷?@start >
P722CEEFAX@/22 Wed 19@ ct 12:08/22
‖B22p2203‖a17Reverse‖m332C &"end$÷e÷Y─
B÷+end=─HX"%"Wend$)÷e÷Y─L÷p÷?@jnd > &3EF
F ─4 ─5tPA÷e÷Y─V(A%=&9F :÷L: write to sp
jech processor÷e÷Y─‖─IZ%=&40+(start ─( &
F) :÷L: add Load Address command to leas
t@sig. nzbble÷e÷Y─j L
least significant nybble with Load Addr
ess command÷e÷Y─t÷uYE=&40+(start ─( &Fp)
─) &10÷e÷Y÷.÷d÷. osbyte÷e÷Y÷8÷wY%=&40+(s
tart ─(@&F0p)─) &100÷e÷Y÷B÷h÷.@osbyte÷e÷
Y÷L!Y%=&4C+(start ─( &F000)─) &1000÷e÷Y÷
V÷d÷.@osbyte÷e÷Z÷‖─%Y%=&43 :÷L: fifth by
te always £&43÷e÷Z÷j÷d÷. osbyte÷e÷Z÷t÷q÷
@"Printer (Y/N) "yes$÷e÷Z%÷s÷? ─hyes$,1)
="Y" ─4 ÷G15,2÷e÷Z0÷e÷IF!Addr";÷e÷Z:÷q÷
U DIR
tated";÷e÷ZN÷m÷I─247);"Reversed"'÷e÷ZX÷1
÷; blocS=start ─‖─ jnd ─0 4÷e÷Tb÷p÷? blo
ck < &10 ÷I;"p";÷e÷Zl÷q÷? block < &100 ÷
WF
Z─(÷k÷I;‖÷block;" ";÷e÷
0 ─‖─ 3÷e÷Z─<÷ubyte(memoryQ=─b(read)─( &
FF÷e÷Z─F÷kA%=byte(memory)÷e÷Z─P!byte(mem
ory+)R=─b(rotate)─( &FF÷e÷
P722CEEFAX 722 Wed 19@Oct 12:01/46
‖B2203203‖a17Reverse‖m365616 ÷G48÷e÷Z─n÷
f÷ AE ÷e÷ Z
=0 ─‖─ 3÷e÷Z÷<÷kA%=byte(memory)÷e÷Z÷F÷v÷
? A%>31 ─( A%<127 ÷GA% ─3 ÷G46÷e÷Z÷P÷→÷E
÷e÷←÷Z÷d÷I;" ";÷e÷←÷d÷j÷; memory=4 ─‖─
@7÷e÷←÷n÷kAE=byte(memory)÷e÷← ÷g÷? A%<16
÷G48÷e÷←*÷f÷I;‖÷A%;" ";÷e÷←4÷→÷E÷e÷←>÷j
÷; memory=4 ─‖─@7÷e÷←H÷kA%=byte(memory)÷
e÷←R÷v÷? A%>31 ─( A%<127 ÷GA% ─3 ÷G46÷e÷
←½÷→÷E÷e÷←f÷d÷I;" ";÷e÷←p÷k÷; memory=8
─‖─ 11÷e÷←z÷kA%=byte(memory)÷e÷←─,÷g÷?
A%<16@÷G48÷e÷←─6÷f÷I;‖÷A%7" ";÷e÷←─@÷→÷E
÷e÷←─J÷k÷; memory=8 ─‖─ 11÷e÷←─T÷kA%=byt
j(memoryQ÷e÷←─↑÷v÷? A%>31 ─( A%<127 ÷GA%
─3 ÷G46÷e÷←─h÷→÷E÷e÷←─r÷→÷I÷e÷←÷,÷→÷E÷e
÷←÷6÷↑÷G3÷e÷←÷@÷r÷@'"Another (Y/N) "yes$
÷e÷←÷J÷n÷? ─hyes$,1)="Y" ─4 ÷Q÷e÷←÷T÷→÷8
÷e÷W‖c