NOOOCCCCCCCCCCC1C1C1C1C1C2C12C15C25C25C40C42C49C116C166C193C75C104PAGEC182C223C380C123ABCDEFGHNUMBESECTOMMNNPPQQRRSSTTUUVVWWXXYYZZJKXXXXXXXLXXMNPXXXXXXXC13C14X 98 DEC. BYTES AVAILABLEIN THIS SECTOR FOR LONGER VARIABLE NAMES @@@@@@@@ @ @ @ @ @@@ A(AUAUAVAA AA`AdA0ARA@A6A A"0A8 A0!"#gq$DD%&'()AD*+,-AU.@"/012345678zz9Gzz:;<=>?@AAABCDEFGHIJKLMNA8OADP ==*** DISKSCAN Copyright 1982 by David Young 02/21/82 ***6-6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@{6-@ 6-@6-@6-@6-@6-@6-@ 6-A(6-AU6-AU6-AV'6-A36-A ?6-AK6-A`W6-Adc6-A0o6-AR{6-A@6-A6K6-A 6-AD'6-A"036-A8?6-A8K6-A0(E0 0(0# (}#(WAIT A FEW SECONDS...(99;,;,;A,;@h,;,;,;,;,-&6.hhhԩ`&6-?:C:,<,2! A#` A"P! A$</ AP A% A(`%$/#@pF0123456789ABCDEFP"KZ 6.H6.Ld- (}-( Πnf((COMMAND SUMMARY:(B( Assemble into sector = Af( Binary load file = Bxo'( Change current sector = CK( Directory of the disk = Do( Goto binary address = Go'( Hex conversion = HK( Image sectors = Io( Menu & format changes = Mo'( Print screen contents = PK( Read a certain sector = Ro( Scan for 1 or 2 bytes = So'( Toggle display format = TK( Write current sector = Wo( Disassemble sector = XN(.(#Display sectors in HEX or CHARACTERD(format? (H or C)K)N("@g6.C"@r6.H`-(%Do you want to scan sectors sequen-V(#tially or using the links? (S or L)])`("@6.S"@v6.L[,($In which drive is the disk beingA(scanned? (same)H)K(Q"[ A# @I)!@R# A6-&@H67<,.>:, 6.R6-6-jA@d'A--V(#A,B,C,D,G,H,I,P,R,S,T,W,X or M?])f6.>:,j(i_"@r)"@)"@e)"@)"@g)"@h)"@q)"@w)"@i Ap((SECTOR #B:,"( A`%  )!A  % A  6- Ap?0S*+4)", "%-5( END OF FILE? A  6.? 4S A0-AA?AA" 4C Ap, 4R " 6 4M A@ 4W AJ 4D A T 4B A`U 4H A'X 4X A0Y! 4I6. AP!6.Z 4A A4[ 4T A%\ 4P A&] 4G AE^ B A hr|% -"(NOT LEGAL NUMBER!%$ Ae $& 6-6-P:',%&67<,.7<,.6-+&+&,$,%%67<,.7<,+6-.$$ A 7<,0$$ A 6.7,E B:,"67,.7,(67<,.7<,867<,.7<,E67<,.06 B:,"67,.7,(67<,.7<,667<,.00' B:,"67,.7,'67<,.000&5@:7<,,!@d567<,.>:@:7<,,&@,0/@:7<,,!@d/67<,.>:@:7<,,&,:/@:7<,,!@d/67<,.>:@:7<,,&,D/@:7<,,!@d/67<,.>:@:7<,,&,Ncc6-+@:7<,,&@H,%$+@:7<,,&@H,%$+@:7<,,&@H,%A@$+@:7<,,&@H,X B$b A 6-A:, Al 6-6 AvGosub #4 belowQQ67,.DhhhSRWHHHHHHHhhhhhhhh h  Sԩ`6-&A%E$Gosub #5 belowvv67@,.chh7h*hZhYhhZ YL@ E PL PۮYZԄ`YZYYZ`H67A,.H` 6-+-B:,$A5%@:7<,,( +$1  6-6-A$%4S16-A'  4H A0; -+(First character of search/8B:,";$ 6-@:7<,,*b)( Second char (hit RETURN if none)-6B:,"HAA(ZAA(b6.046-@:7<,, Ap>6 -&(First byte of search*3B:,"6$H%  6-!)  % A0Rb)( Second byte (hit RETURN if none)-6B:,"HAA(ZAA(b6.0\%  6-!)  % APf` 6-/(  Search seq = $3 96-= @(`(Hit RETURN to abort searchp% 6-%$6-6-%6-z" -( Sector =  " 6-?:<<<%,'F:Ad,"@$Ad'$Ad" A! "6- !6-%Ae  B 6--0(Sequence found at byte $>6-&AeB $6-P:',%$6-$+&$+&,,% "6-&N(+(Is this the right one? (Y or N)1-8(<?)K"@N$S ( -@!;(Hit RETURN to abort searchI6-Ae%S A 6-Ac"6-> 6-AcF:%, $"5( END OF DISK;6->$, "-#(END OF FILE)6-,$ A$. 4L A8 6-%"A!6-B APL6-F:%AS,V6-+@d$,'`6-&P:,j6-P:$,t6-$%F:%AT,~$E6-P:',(}-( SECTOR # =  ($1 ;6-&$? E() 4H A 6-?:C:,<%,$6-?:C:,<%,$6-?:<@:R,<,0 --(CANNOT READ SECTOR !0$ 6- $ ( 2E 6--6(Write this sector to sector :B0YE$<26-?:C:,<@:W,<,"*"(6-2 A@F1 -1(CANNOT WRITE TO SECTOR !P$Zdnx AP)S:0!0)0# -6-Aa%# X (}-5(Filename Ext Start Size inX( Sector SectorsC -F:%$,"-@(There are no more entries.C$F:%$," A ''6-F:Ae%$,%$F:Af%$,''6-F:Ag%$,%$F:Ah%$,0 -,67%<%,.>:F:Ai%$%,,0 . -%.(7<, 7<@, 1 ( A!( ' 1( (  M -7((Did you find what you need? (Y or N)>)J"@M$3  -0(There are no more entries.3$< -/(!THE PRINTER IS NOT RESPONDING!9 B<$",6o A0 A`C6-F:AD,%AV$+F:AE,,%Ao6-P:+I:,&A,'A(,&@@k-@@ B((You have room to create a binary loadk(file of  sectors. Starting withJb,($the current sector, how many sectorsE(do you want to saveIXB:,"b APT; A` A' )!1 A; A^#6-A%4S#6-A(hT6-&@-J6-?:C:,%@(<%$<@<@:R,<,T A0r3 A@#")"@)6-3 Ap| k-@@ C()INSERT A DOS 2.0S FORMATTED DISK INTOk(#DRIVE 1 (CURRENT DISK CAN BE USED).(What is load address B:," AP11()Output filespec is D1:DISKSCAN.LOD.9 A`9@@D:DISKSCAN.LODq A)6-$+%@,%&@<*@AUO*@AUq*@&AV$P:'AV,i*@P:'AV,=*@&AV$P:'AV,U*@P:'AV,i6-%$+%@,/$6-?:C:,<@<@:W,<<&,/@ A`$9-@@+(ERROR F:A,6@9$b  -6($To change byte, position cursor withb('. Type change. Hit ESC whenE(you are finished.-'(66-F:@,E6-F:@, )"@'$& 4H Ap0"@0   :"@()"@) D6-@1   N"@0  AX"@()"@) b )"@'$l "@0 v#"@()"@)# A6-@1  #!@'* @2# A - 6- @2#6-%@d- A ' @6-&@2' A  )!A# A ' A`6-%@d' A 6-&@2@6-@1+ 4C!+&,$%+&,'%+ A 6-&@H!6-&7 )!@@-(>:AS,7 A  %6-+&,$%P:+&,',%%6-F:,;P:+&,',"+&,''6-&$P:',1%$; A  6-$P:',%*@1 A!@4 6-% @0 > 6-6-%H   R 6- \@0 A!f 6-&! p6-@)6-&z ! 6-@ @( A" 6-& A!p@)  6-% A! &@@#(&$Gosub #2;A",67,.hhhHhH67,.>:, 67,. \h` 67@#,.>:, 6- aa67@$,.N \hHJJJJ 0ii0 \hH) 0ii0 \ \ \hHJJJJ 0ii0 \hH) 0i$ ((67A,.i0 \ \hiH). $8 B Gosub #1L V ;A",[  &A` 67,.hhhHhHj 67,.>:,t 67,. \h`~ 67@#,.>:, KK67@$,.8 \hHJJJJ 0ii0 \hH) 0ii0 \ \ \hH 67@,.>:, ((67@,. ۅ] \ \ ((67A,. \hiH) $ ^;@e,[67,.Ahhh i@ԩhhS hhh h Vԅԩ`^$  Gosub #3 above.   4C6.H A%0 6.C   $( ) * 2 ( A& -@"!-(4 0-B:,6-@:7<,,(!A'06-&6 %"A') @2%6-@E8 '67<,.>:, 3 ' A&0< , -,(THE PRINTER IS NOT RESPONDING!F $    4$(What is # for conversion(1B:,"4$   )!BU5 $ @ -( = $ 6-+6-P:',/ 96-&$= @$ H '@#6-%A),6-C:,0 66-<!H &A . 6-C:,6-%@ %(+6-.$    "@A00 2&;A0,;Ah,;A2,26-@ A1 Q A`6-Ad%6-16-=6-A%E4SQ6-A( Z-@@ =("Start disassembling at which byteAH(WB:,"Z$ - A- )!&@A05  6-6-% ] 6-P:+%,'@,%@P6-@$++%,&@$+&@,,%@V-](< 5-@)AR@56-@ $-@0$6-@$+F:%,, W!6-@:7%@<%@,,-"?( ???M6-%@W A1 !!6-@:7%@<%@,, K&6.7$@&@<$@,7( K"A0 !!6-@:7%@<%@,, ooA2A2 A2A2%A20A25A2@A2EA2PA2`A2eA2uA2U -@3( 6-%  %!6-%& A15!  %"6-% A15&  + ] 6-P:+%,'@,%@P6-@$++%,&@$+&@,,%@V-](<0 FAR'-@@ F(Is that enough? (Y or N)5 &)@(#"@&$: A0U?  "6-%@D 3-@-@0/( 3 I lAR'-@@ P(#End of sector. Stop here? (Y or N)])@i"@l$N I A@#")"@5-@@F( END OF FILE!I$S B 6-&#-+%@,@>Ab%F:Ab%%,B X 9 A@ A`#6-Ad/6-9 A0U] b II6.?ADCANDASLBCCBCSBEQBITBMIBNEBPLBRKBVCBVSCLCCLDCLICLVCMPCPXCPYDECg ff67B:,%@,.NDEXDEYEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAPLPROLRORRTIRTSSBCSECSEDSEIl 3367B:,%@,.STASTXSTYTAXTAYTSXTXATXSTYAq $v LOAD TABLES{ A1e A2 $ (# #6-F:%%@, A #$ *6-F:%%@, A * A2 (A $ 36-F:%%@,((' A 0(,X)3$ 36-F:%%@,((' A 0(),Y3$ +6-F:%%@, A ((,X+$ *6-F:%%@, A * A2E +6-F:%%@, A ((,Y+$ *6-F:%%@, A * A2U @6-F:%%@,6.+*!A'26.-@6-AV& ( $ N ((6-F:%%@,' A :6-F:%%@,D A K()N$ nn67@,.[ ##% #  #  ## @@67@,.-# #   ! 67A7,.>:@4, @@67A8,.-#$%&('(')*(+,- nn67A,.[.(/0 123456(78-9 :;<= >( ?@*ABCD nn67At,.[EF!GH$IJ!KLMN!OP  QRSTUV!WXY Z nn67Ae,.[[\] ^! _`+abcdef)gh&ij)kl mn)op  q nn67AV,.[rstuv)wx/y z{|} ~) 0201 ]]67AG,.J6201 0201 80 7 67A!,.>:AU, ##67A",.0  nn67A8,.[  43    nn67A),.[  5     nn67A ,.[     , ..67A ,.,, 67A 8,.>:@4, RR67A 9,.?, ,,., % ,,67A,.,  4 oo67@,.\hhhh \h Mh >hhhheԅԩeՅՠ9 <<67@,.) hHhԅԩ`hhhhhhhԅ`> $H A 6-@:,6.H!6-6@-6-@A"@A40R 2&;A0,;Ah,;A2,26-@\ A1f A@p 1  -.(DISKSCAN.DIS IS NOT ON DISK!1$    1-@B:,&@17<,0 A5@ 6.7@,  B:, @6.$ L6.7@<@,)B:,"@56-@B6-6@L A8 D6.7@,#-@B:,D7@<@,0 A5p 6.7@,  +7@<@,4$+6.7@, $$7@<@,0#A5 H67@<@,.$(6-@2 A>!AUE6.H$ A8 ;;7@<@,0+*7@<@,0-A5 U6-@&6.7@<@,56.7@,? AK!A'R6.U$ 4-6-AV& A8$$7@<@,0(A6 +7@<@,4$+6.7@,Y67@<@,.$>-B:,&@@6@Y6.7%@<%@, ..7<,0)*7<,0X*7<,0,A6  4Y6-@  4X6-@ 26.7@<,&4)*@26-@ A A8$|Y7@<@,4A*B:,"@*+7@<@,4R)7@<@,4S,e6-@r6-6@| A8.%%7B:,,4Y)7B:,,4XA6@0*6-@B:,!@*6-@1(7@<@,4J(6-@3: A7&67@<@,.$0 A: A88X6.7B:,,+6.7@6-@2 AU*7@<@,4X>6-@Q A8D-B:,@6@=67%@<%@,.7<,A D$mm6-?:C:,6-P:'AV,H AeW67@,.$2 A`-@ @2(ŠA&(Start assembling at what byte*AB:,"AB- A6-A$!4S-6-A''!)  A' A@d6-P:'@,%@H6-@$+&@$+&@,,%@O( ]-&@d(>hB-@@ '( INSTRUCTION+BB:,ABm' 6.>:,-@@$('$r- A5 B:,"#(- AB|( (-&@( -@B:,@Y6-@:7<,, A096-@:7%@<%@,,C A0O6-@1Y A0uu+&@,$@%P:+&@,'@,%@*+&@,$@%P:+&@,'@,AB9-@@ ?(%End of sector. Write this sector out^(and go on to next sector?k)@@ABb6-?:C:,<@:W,<,$@6-@@X(CANNOT WRITE TO SECTOR !b AB1 6- A@1")"@A N A0 A`)-@@0( ?6-F:@,N6-F:@, 3 (>6-F:@,)6-F:@,3 AB A@6-C:,&%%$p-@@ <("What is base address (if same asU(before, hit RETURN)YpB:,"AE 0 A# )!BU5- A0$^ 6-2(#In which sector is base address6@ A^!* A!AE A$T 6-0(In which byte of sector  isF(the base addressJT A!! )!A'AE 6-"AEM6-P:'AV,)(Base addr=$3 A C6-&AV$M A 1( in Sec  ,Byte $$6-. A 1(:$(What is destination address(7B:,":$+ A+ )!BU5AEE 6-& )-@@B(CAN'T GO BACKWARDS!E$1 6-6-%6-A%%4S16-A(6-P:',[- A0% A@5 @*G-@@X( END OF FILE[$ P A`6-&$)-@@F(Address found at byte $P A X6-P:'@,%@H6-@$+&@$+&@,,%@N-U(<X$w 6.S A0 A`K6-F:AD,%AV$+F:AE,,%Aw6-P:+I:,&A,'A(,&@h-@@ A(%You have room to make an image of h("sectors. Starting with the currenta+(#sector, how many sequential sectorsD(do you want to saveHWB:,"a AQ; A` A' )!1 A; AP@6-A(6-X6-&@-X6-?:C:,%@(<%$<@:7@<@,,<@:R,<,) A@"@6-) AQ d-@@ >($Insert the destination disk intod(!drive 1 (formatted with DOS 2.0S)$(and hit RETURN.$)@ P 6--B6-?:C:,%@(<%$<@<@:W,<,L A@P F A`$ D:DISKSCAN