P725 CJEFAX 725  Mon 13 Oct  21:27/12
|B4201206}b17Verify2|j24BBBC332k|m40000|
p÷e÷X÷b÷r÷L ********************÷e÷X÷l÷i
÷L Fast Verify÷e÷X÷v÷l÷L By Peter Vasey÷
e÷X(÷r÷L ********************÷e÷X2÷p÷L (
C) The Micro User÷e÷X<÷q÷L * Zero Page U
sage *÷e÷XF÷]:÷e÷XP÷hoswrch=&FFEE÷e÷XZ÷h
osnewl=&FFE7÷e÷Xd÷hosword=&FFF1÷e÷Xn÷got
cli=&FFF7÷e÷Xx÷hosfind=&FFCE÷e÷X—*÷hosbg
et=&FFD7÷e÷X—4 page=&18:        ÷L Zero 
Page÷e÷X—>÷vtop=&12:         ÷L storage÷
j÷X—H himem=7:         ÷L addresses÷e÷X—
R÷dprog=&70÷e÷X—\÷dcopy=&72÷e÷X—f÷chex=&
74÷e÷X—p÷dflag=&76÷e÷X÷*÷fhandle=&77÷e÷X
÷4÷]:÷e÷X÷>÷e÷;A%=0—|—5—03÷e÷X÷H÷cP%=&90
0÷e÷X÷R÷b[OPTA%÷e÷Y÷\÷aLDA£0÷e÷Y÷f÷cS$Ap
tog÷e÷Y÷p÷cSTAcopy÷e÷Y"÷cSTAflag÷e÷Y,÷cL
DApage÷e÷Y6%STAprog+1      \ set up adds
estes÷e÷Y@£LDYtop+1       \ for compares
on÷e÷YJ÷#INY÷e÷YT&STZcopy+1      \ extra
ct and store÷e÷Y^$TYA            \ hex a
ddress jot÷e÷Yh÷oJSRhexy        \ *—p÷e÷
Yr÷#TYA÷e÷Y||!CLC            \ test whet
her÷e÷Y—."SBCpagj        \ there is |c  
                                        
                                        
   P725 CEEFAX 725  Mon 13 Oct  21:12/44
|B2202206|a17Verify2|j24BBBC332k|m402DB|
proom÷e÷Y—8÷wSTAhandle      \ to store a
÷e÷Y—B LDAhimem       \ copy of the÷e÷Y—
L"CLC            \ program above÷e÷Y—V÷s
SBCcopy+1      \ itself÷e÷Y—|—÷eCMPhandl
e÷e÷Y—j÷wBCSfits        \ if no room÷e÷Y
—t÷uDECflag        \ set flag÷e÷Y÷.÷a.fi
ts÷e÷Y÷8%LDX£0          \ ask for fil na
me÷e÷Y÷B÷dJSRprint÷e÷Y÷L÷bLDA£32÷e÷Y÷V÷b
LDX£12÷e÷Z÷|—!.clear         \ clear stu
ing÷e÷Z÷j÷vSTA&607,X      \ block and÷e÷
Z÷t÷#DIX÷e÷Z&÷dBPLclear÷e÷Z0 LDA£—?("L")
   \ insert groups÷e÷Z:÷vSTA&605        
\ to give a÷e÷ZD÷pLDA£—?(".")   \ *—p at
÷e÷ZN!STA&606        \ copy address÷e÷ZX
"LDAhex         \ for later use÷e÷Zb÷sST
A&610        \ if room÷e÷Zl÷dLDAhex+1÷e÷
Zv÷cSTA&611÷e÷Z—(÷dLDA£—?"0"÷e÷Z—2÷cSTA&
612÷e÷Z—<÷cSTA&613÷e÷Z—F÷bLDA£13÷e÷Z—P÷c
STA&614÷e÷Z—Z÷aLDA£0÷e÷Z—d÷kLDX£params —
+256÷e÷Z—n÷kLDY£params —)256÷e÷Z÷(÷eJSRo
sword÷e÷Z÷2"BCCgotnamj     \ use OSWORD 
to÷e÷Z÷<!RTS            \ kit filina|c  
                                        
                                        
   P725 CEEFAX 725  Mon 13 Oct  21:02/58
|B2203206|a17Verify2|i24BBBC332k|m405C4|
pmj÷e÷Z÷F÷d.gotnamj÷e÷Z÷P!BITflak       
 \ if there was÷e÷[÷Z÷vBMIopenfile    \ 
room then÷e÷[÷d%LDA£32         \ replace
 carriage÷e÷[÷n&STA&607,Y      \ return 
with space÷e÷[ "LDX£5          \ and the
n send÷e÷[*"LDY£6          \ the *—p stu
ing÷e÷[4"JSRoscli       \ to Op. System÷
e÷[>÷aLDY£0÷e÷[H÷gJMPmainloop÷e÷[ 
file      \ no room for copy÷e÷[\÷uLDX£3
2         \ so print÷e÷[f£JSRprint      
 \ "WORVING" then÷e÷[p÷eJSRosnewl÷e÷[z"L
DA£&40        \ open file for÷e÷[—,!LDX£
7          \ byte bz byte÷e÷[—6÷wLDY£6  
        \ comparison÷e÷[—@÷eJSRosfind÷e÷
[—J÷eSTAhandle÷e÷[—T÷e.m!inloop÷e÷[—^!JS
Rgetbzte     \ compare byte÷e÷[—h£CMP(pr
og),Y    \ with original.÷e÷[—r$BNEerror
       \ branch if error÷e÷[÷,÷#CLC÷e÷[÷
6÷aLDA£1÷e÷[÷@£ADCprog        \ incremen
t both÷e÷[÷J£STAprog        \ address st
ores÷e÷[÷T÷cS$Acopy÷e÷\÷^÷cBCCoveu÷e÷\÷h
÷eINCprog+1÷e÷\÷u÷eIVCcopz+1÷e÷\$÷a.|c  
                                        
                                        
   P725 CEEFAX 725  Mon 13 Oct  21:16/33
|B2204206|a17Verify2| 24BBBC332k|m408C8|
pover÷e÷\."CMPtop         \ check for  n
d÷e÷\8÷wBNEmainloop    \ of program÷ ÷\B
÷rLDAprog+1      \ at —|—P÷e÷\L÷dCMPtop+
 ÷e÷\V BNEmainloop    \ if —|—P r ach d÷
e÷\|—%LDX£11         \ print "VERIFIED"÷
e÷\j JS print       \ and finish.÷e÷\t÷d
J Pclosj÷e÷\|÷$.getbzte       \ byte to 
compare÷e÷\—0÷cBITflag÷e÷\—:!BMIloadit  
    \ if room,  jt÷e÷\—D£LDA(cop ),Y    
\ "yte from cop ÷e÷\—N÷#RTS÷e÷\—X÷w.load
it        \ if no room÷e÷\—b÷uLDYhandle 
     \ get b te÷e÷\—l÷vJSRosbget      \ 
from  ile÷ ÷\—v÷aLDY£0÷e÷\÷0÷#RTS÷e÷\÷:£
.error         \ Error section.÷e÷\÷D÷b 
DX£20÷e÷\÷N"JSRprint       \ error m ssa
ge÷e÷]÷X LDAprog+1      \ followed bz÷e÷
]÷b"JS hexy        \ error address÷e÷]÷l
÷eJSRoutput÷e÷]÷v!LDAprog        \ (in p
rogram ÷ ÷](÷cJS hexy÷ ÷]2  SRoutp t    
  \ and finish.÷e÷]<÷b.close÷e÷]F÷aLDA£0
÷e÷]P÷aLDY£0÷e÷]Z÷eJSRosfind÷e÷]d÷eJMPos
njwl÷e÷]n£.hexy          \ Hex conve|c  
                                        
                                        
   P725 CJEFAX 725  Mon 13 Oct  21:10/28
|B2205206|a17Verify2|j24BBBC332k|m40BC8|
purer.÷e÷]x PHA            \ save value,
÷e÷]—*!LSRA           \ extract high÷e÷]
—4 LSRA           \ nybble, and÷e÷]—> LS
RA           \ send to Hex÷e÷]—H"LSRA   
        \ store routine÷e÷]—R÷aLDX£0÷e÷]
—\÷gJSRstorehex÷e÷]—f£PLA            \ r
estore value,÷e÷]—p÷v—(£&F         \ ext
tact low÷e÷]÷*÷sINX            \ nybble÷
e÷]÷4÷e.storehex÷e÷]÷>÷bCMP£10÷e÷]÷H&BCC
lessten     \ if nybble greater÷e÷]÷R"CL
C            \ than 9, store÷e÷^÷\"ADC£5
5         \ Hex character÷ ÷^÷f÷dSTAhjx,
X÷e÷^÷p÷#RTS÷e÷^"£.lessten       \ if nz
bble less÷e÷^,£ADC£48         \ than 10,
 store÷e÷^6"STAhjx,X       \ —?II charac
tet÷e÷^@÷#RTS÷e÷^ ÷c.output÷e÷^T÷bLDAhex
÷e÷^^÷eJSRoswrch÷e÷^h÷dLDAhex+1÷e÷^r÷jIM
Poswrch÷e÷^||÷b.print÷ ÷^—."LDAtext,X   
   \ Message print÷e÷^—8÷tC P£13        
 \ routine÷e÷^—B÷ BEQjnd÷e÷^—L÷eJSRoswrc
h÷e÷^—V÷#INX÷e÷^—|—÷dBNEprint÷e÷^—j÷|—.e
nd÷e÷^—t÷#RTS÷e÷^÷.÷a.text÷e÷^÷8÷]]÷e|c 
                                        
                                        
   P725 CEEFAX 725  Mon 13 Oct  21:15/17
|B2206206|b17Verify2|i24BBBC332k|m40EB2|
p÷^÷B÷]:÷e÷^÷L÷l÷L SET UP STRINGS÷e÷^÷V÷
]:÷e÷#÷|—÷l$P%="FILEVAME? "÷e÷#÷j÷o$(P%+
11)="VE JFIJD#PE RO
R AT &"÷e÷#&÷n$(P%+32)="WORKING"÷e÷#0÷dP
*=P%+40÷e÷#:÷eparams=P%÷e÷#D÷]:÷e÷#N£÷L 
SET UP OSWORD PARAMETER BLOCK÷e÷#X÷]:÷e÷
#b÷d!P%=&607÷e÷#l÷bP%?2=7÷e÷#v÷cP%?3=33÷
e÷#—(÷dP%?4=127÷e÷#—2÷cP%=P%+5÷e÷#—<÷d[O
PTA%:]÷e÷#—F÷]÷E÷e÷#—P÷l*SAVE V 900 +142
÷e÷#—Z÷]÷8÷e÷W|c