# 8563 EXPLORER BY JEFF LEWIS, 0ZSM1190:X1:Y1:ML14848:TL3584:SD16384(X(1)5:Y(1)21:M$(1)"READ BYTE"2X(2)5:Y(2)22:M$(2)"WRITE BYTE"<X(3)5:Y(3)23:M$(3)"ED. MATRIX"FX(4)17:Y(4)21:M$(4)"READ BLOCK"PX(5)17:Y(5)22:M$(5)"WRITE BLOCK"DZX(6)17:Y(6)23:M$(6)"FILL BLOCK"kdBK$" "nEN$"  "xVA$""TA$""PS$""SA$"" %@" 8563 EXPLORER BY: JEFF LEWIS "k "TABLE $ VALUE $ AT $ " "BYTE+ 00010203040506070809101112131415" " "  "M 00 ": "E 16 "j "M 32 " "O 48 " "R 64 " "Y 80 "*  " 96 "Z  "L 112 " " "O 128 " , "C 144 " 6 "A 160 "!@ "T 176 "J!J "I 192 "z!T "O 208 "!^ "N 224 "!h "S 240 " "r" SPACEBARKEYS"8"|"BUSY READ BYTE READ BLOCK? = HELP"i"">< WRITE BYTE WRITE BLOCKMONITOR """ ED. MATRIX FILL BLOCK """ ";"&"""" A$" A$" " 700 # A$"M" "": # A$(13) 7504# A$"?" 2380># 440X# CHAR 1,1,24,EN$+""b#""h##X11:Y11:LCSM(X11)((Y11)40)# LC,(LC)128#& A$#0 (A$)47 (A$)58 660#: (A$)64 (A$)71 A$((A$)64): 660#$D A$(13) LC,(LC)128: 440U$N A$"" A$"" A$"" A$"" 550$XLC,(LC)128: A$"" X1X11: X11 X132:Y1Y11: Y11 Y11$b A$"" X1X11: X132 X11:Y1Y11: Y116 Y11%l A$"" Y1Y11: Y11 Y116(%v A$"" Y1Y11: Y116 Y11T%LCSM(X11)((Y11)40): LC,(LC)128^% 550d%%LCSM(X11)((Y11)40): LC,(A$)%X1X11: X132 X11:Y1Y11: Y116 Y11%LCSM(X11)((Y11)40): LC,(LC)128: 550% SPACE& 1,X(C),Y(C),M$(C))&CC1:C6 C1E& 1,X(C),Y(C),""M$(C)O& 430U&e& C1 950v& C2 1390&  C3 520& C4 1990&  C5 2180&* C6 430&4 FILL BLOCK&> 1,1,24,EN$""'H PS$"FILL WITH (HEX)>";:HH$""9'R A$: A$"0" A$"9" A$"A" A$"F" 850G'\ ""A$;g'fHH$HH$A$: (HH$)2 890q'p 850'z TL3,(HH$)' 1,1,22,"": WORKING LIGHT'SA$;:0:ML18: FILL BUFFER AND REPRINT' 1,1,22,"": WORKING LIGHT ( 1,1,24,BK$""( 440(0( 1,1,24,EN$""P( PS$"MEM LOC. OR REG.>";t( A$: A$"M" A$"R" 980( A$"M" "MEM LOC."( A$"R" "REGISTER"( 1( 1,1,24,EN$""( A$"M" 1220) PS$"REGISTER (DEC)>";:HH$""() A$: A$"0" A$"9" 10506)$ ""A$;W).HH$HH$A$: (HH$)2 1090b)8 1050y)B (HH$)37 1130)L PS$"REGISTER TOO HIGH (0-36)";)V "G": 3)` 1,1,24,EN$"": 1040)j 1,1,22,"": WORKING LIGHT *t 1,29,1,"""R"HH$" "*~ VA$;F*TL0,(HH$):ML: READ AND PRINT REGISTERL*n* 1,1,22,"": WORKING LIGHT* 1,1,24,BK$""* 440*** PS$"LOCATION (HEX)>";:HH$""* A$: A$"0" A$"9" A$"A" A$"F" 1240+ ""A$;"+HH$HH$A$: (HH$)4 1280-+ 1240G+ (HH$,1)"4" 1320o+  PS$"LOCATION TOO HIGH ($3FFF)";+ "G": 3+ 1,1,24,EN$"": 1220+( 1,1,22,"": WORKING LIGHT+2 1,29,1,"$"HH$+< VA$;$,FTL1,((HH$,2)):TL2,((HH$,2)):ML6: READ AND PRINT SCREENF,P 1,1,22,"": WORKING LIGHT[,Z 1,1,24,BK$""e,d 440x,n WRITE A BYTE,x 1,1,24,EN$"", PS$"MEM LOC. OR REG.>";, A$: A$"M" A$"R" 1420, A$"M" "MEM LOC." - A$"R" "REGISTER"- 1*- 1,1,24,EN$"">- A$"M" 1720c- PS$"REGISTER (DEC)>";:HH$""- A$: A$"0" A$"9" 1490- ""A$;-HH$HH$A$: (HH$)2 1530- 1490- (HH$)37 1570- PS$"REGISTER TOO HIGH (0-36)";. "G": 3*. 1,1,24,EN$"": 1480L." 1,1,24,EN$"":TL0,(HH$)j., 1,29,1,"""R"HH$" ".6 PS$"STORE VAL (HEX)>";:HH$"".@ A$: A$"0" A$"9" A$"A" A$"F" 1600.J ""A$;.THH$HH$A$: (HH$)2 1640.^ 1600/h TL3,(A$)%/r 1,1,24,EN$""G/| 1,1,22,"": WORKING LIGHTR/ VA$;w/ML3: WRITE AND PRINT REGISTER/ 1,1,22,"": WORKING LIGHT/ 1,1,24,BK$""/ 440/ WRITE MEMORY BYTE/ PS$"LOCATION (HEX)>";:HH$""*0 A$: A$"0" A$"9" A$"A" A$"F" 174080 ""A$;Y0HH$HH$A$: (HH$)4 1780d0 1740~0 (HH$,1)"4" 18200 PS$"LOCATION TOO HIGH ($3FFF)";0 "G": 30 1,1,24,EN$"": 17300 1,1,24,EN$""0& 1,29,1,"$"HH$%10TL1,((HH$,2)):TL2,((HH$,2))K1: PS$"STORE VAL (HEX)>";:HH$""1D A$: A$"0" A$"9" A$"A" A$"F" 18601N ""A$;1XHH$HH$A$: (HH$)2 19001b 18601l TL3,(A$)1v 1,1,24,EN$""2 1,1,22,"": WORKING LIGHT 2 VA$;02ML9: WRITE AND PRINT SCREENR2 1,1,22,"": WORKING LIGHTg2 1,1,24,BK$""q2 440w22 READ BLOCK2 1,1,24,EN$""2 PS$"LOCATION (HEX)>";:HH$""2 A$: A$"0" A$"9" A$"A" A$"F" 20203 ""A$;&3HH$HH$A$: (HH$)4 206013 2020K3  (HH$,1)"4" 2100s3 PS$"LOCATION TOO HIGH ($3FFF)";3  "G": 33* 1,1,24,EN$"": 201034 1,1,24,EN$""3> 1,1,22,"": WORKING LIGHT3H TA$;HH$3R SA$;<4\TL1,((HH$,2)):TL2,((HH$,2)):ML12: READ AND PRINT SCREEN (BLK)^4f 1,1,22,"": WORKING LIGHTs4p 1,1,24,BK$""}4z 4404 WRITE BLK4 1,1,24,EN$""4 PS$"LOCATION (HEX)>";:HH$""4 A$: A$"0" A$"9" A$"A" A$"F" 2210 5 ""A$;+5HH$HH$A$: (HH$)4 225065 2210P5 (HH$,1)"4" 2290x5 PS$"LOCATION TOO HIGH ($3FFF)";5 "G": 35 1,1,24,EN$"": 21905 1,1,24,EN$""5 1,1,22,"": WORKING LIGHT5 TA$;HH$5 SA$;5  0J6$ TL1,((HH$,2)):TL2,((HH$,2)):ML15: READ AND PRINT SCREEN (BLK)l6. 1,1,22,"": WORKING LIGHT68 1,1,24,BK$""6B 4406L HELP6V %6` "";6j " ****** 8563 EXPLORER ****** " 7t " PUT INTO THE PUBLIC DOMAIN "97~ " AND WRITTEN BY: JEFF LEWIS "h7 " "7 " THIS PROGRAM IS DESIGNED TO "7 " HELP YOU EXPLORE THE 8563 "7 " 80 COLUMN VIDEO CHIP. "$8 " "S8 " PRESS THE SPACE BAR TO "8 " SELECT YOUR OPTION. USE THE "8 " RETURN KEY TO CHOOSE THAT "8 " OPTION. "9 " WHEN IN EDIT MODE, USE THE ">9 " CRSR KEYS TO MOVE THE CURSOR "m9 " AND NUMBER KEYS (1-9,A-F) TO "9 " ENTER DIGIT. RETURN EXITS. "9 &9 1,1,24,EN$""9 PS$"PRESS ANY KEY TO CONTINUE";"";9( A$92 L:L-:LU:L:L:L<;L;, O<`,֮, O<`,֢,֢, O<`,֢,֢,֢,֢,֢, O<`,֢,֠,Hȩ?h@L <i )La;80ȱi )Lv;80) m@ i(iШL;@L <,֢,֠ȩ?@Hh,L:?@Hh O< H hL <`Hh O