!� ***************************
� Print Electron Memory Map
!� by R.A.Dimond February 1993
(!� ***************************
2
� Pages 3
<�6
F�6,1)"Memory Map (Page 3)"
P �'"Screen or Printer? (S/P)"
Z���-82 ��-56
d3�-82 �3:�14 ��3:�15,2,1,27,1,54,1,27,1,116,1,1
n�0);�201;�68,�205);�187
x,�printct("ELECTRON MEMORY MAP - Page 3")
�'�199;�13,�196);�194;�54,�196);�182
��print("  Address","Use")
�'�199;�13,�196);�197;�54,�196);�182
�@�print(" &300/&301","Graphics window left column in pixels")
�?�print(" &302/&303","Graphics window bottom row in pixels")
�A�print(" &304/&305","Graphics window right column in pixels")
�<�print(" &306/&307","Graphics window top row in pixels")
�2�print(" &308","Text window left hand column")
�,�print(" &309","Text window bottom row")
�3�print(" &30A","Text window right hand column")
�)�print(" &30B","Text window top row")
�J�print(" &30C-&30F","Current graphics origin in external coordinates")
�J�print(" &310-&313","Current graphics cursor in external coordinates")

F�print(" &314-&317","Old graphics cursor in external coordinates")

6�print(" &318","Current text cursor X coordinate")

6�print(" &319","Current text cursor Y coordinate")

"B�print(" &31A","Line within current graphics cell containing")

,+�print("","the current graphics point")

67�print(" &31B-&31E","Either graphics workspace or")

@(�print("","first part of VDU queue")

J(�print(" &31F-&323","The VDU queue")

TJ�print(" &324-&327","Current graphics cursor in internal coordinates")

^8�print(" &329-&349","Graphics coordinate workspace")

h/�print(" &34A/&34B","Text cuesor position")

r5�print(" &34C/&34D","Text window width in bytes")

|:�print(" &34E","High byte of bottom of screen memory")

�B�print(" &34F","Character size in bytes for the current mode")

�<�print(" &350/&351","Address of screen top left corner")

�<�print(" &352/&353","Number of bytes per character row")

�5�print(" &354","High byte of screen memory size")

�)�print(" &355","Current screen mode")

�*�print(" &356","Screen display type:")

��print("","    0=20k mode")

��print("","    1=16k mode")

��print("","    2=10k mode")

��print("","    3=8k mode")

�4�print(" &357","Current text foreground colour")

�4�print(" &358","Current text background colour")

�8�print(" &359","Current graphics foreground colour")
8�print(" &35A","Current graphics background colour")
J�print(" &35B","Current foreground graphics PLOT mode as set by GCOL")
J�print(" &35C","Current background graphics PLOT mode as set by GCOL")
&*�print(" &35D/&35E","VDU jump vector")
0:�print(" &35F","Old setting of cursor start register")
:6�print(" &360","Number of logical colours in the")
D'�print("","current mode minus one")
NI�print(" &361","Number of pixels per byte minus one for the current")
X0�print("","mode, or zero if text only mode")
b+�print(" &362","Left hand colour mask")
l,�print(" &363","Right hand colour mask")
v7�print(" &364","X coordinate of text input cursor")
�7�print(" &365","Y coordinate of text input cursor")
�"�print(" &366","Normally 127")
�'�200;�13,�205);�207;�54,�205);�188
�
�'''''
��201;�68,�205);�187
�4�printct("ELECTRON MEMORY MAP - Page 3 (contd)")
�'�199;�13,�196);�194;�54,�196);�182
��print("  Address","Use")
�'�199;�13,�196);�197;�54,�196);�182
�I�print(" &367","Font flag. If bit is set, the corresponding section")
�4�print("","of the character set is held in ram")
�*�print("","    Bit 7 for chars 32-63")
�*�print("","    Bit 6 for chars 64-95")
+�print("","    Bit 5 for chars 96-127")
,�print("","    Bit 4 for chars 128-159")
,�print("","    Bit 3 for chars 160-191")
 ,�print("","    Bit 2 for chars 192-223")
*,�print("","    Bit 1 for chars 224-255")
4H�print(" &368-&36E","Font location bytes. Each entry in this block")
>D�print("","contains the high address byte of the corresponding")
H&�print("","zone block (see &367)")
RG�print(" &36F-&37E","The current palette. These bytes contain the")
\3�print("","currently defined logical colours,")
f$�print("","in descending order")
p1�print(" &380-&39C","BPUT file header block")
zI�print(" &39D","BPUT buffer offset for next byte in cassette buffer")
�I�print(" &39E","BGET buffer offset for next byte in cassette buffer")
�+�print(" &39F-&3A6","Unused in OS 1.2")
�(�print(" &3A7-&3B1","BGET filename")
�6�print(" &3B2-&3BD","Filename terminated by zero")
�/�print(" &3BE-&3C1","Load address of file")
�4�print(" &3C2-&3C5","Execution address of file")
�6�print(" &3C6/&3C7","16 bit current block number")
�'�print(" &3C8/&3C9","Block length")
�I�print(" &3CA","Block flag type. Indicates whether a file is locked")
�$�print(" &3CB-&3CE","RFS EOF+1")
�*�print(" &3CF/&3D0","16 bit checksum")
�<�print(" &3D1","Sequential block gap as set by *OPT3,n")
�?�print(" &3D2-&3DC","Filename of file being searched for,")
#�print("","terminated by zero")
=�print(" &3DD/&3DE","Number of next expected BGET block")
2�print(" &3DF","Copy of last block flag read")
$0�print(" &3E0-&3FF","Kwyboard input buffer")
.'�200;�13,�205);�207;�54,�205);�188
8�
B�3
C:�''"PLEASE PRESS <F> FOR NEXT FILE, <M> FOR MAIN MENU"
D�:� �="F" � �="M"
E� �="F" � �"$.MM4"
F� �="M" � �"$.MENU"
L�
V3��printct(t$):�186;�68/2-�t$/2);t$;�69);�186:�
`<��print(a$,b$):�186;�2)a$;�14);�179;�16);b$;�69);�186:�
�

00000000  0d 00 0a 21 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...!. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 0d 00 14 1f f4 20 50  72 69 6e 74 20 45 6c 65  |*..... Print Ele|
00000030  63 74 72 6f 6e 20 4d 65  6d 6f 72 79 20 4d 61 70  |ctron Memory Map|
00000040  0d 00 1e 21 f4 20 62 79  20 52 2e 41 2e 44 69 6d  |...!. by R.A.Dim|
00000050  6f 6e 64 20 46 65 62 72  75 61 72 79 20 31 39 39  |ond February 199|
00000060  33 0d 00 28 21 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |3..(!. *********|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000080  2a 2a 0d 00 32 0d f4 20  50 61 67 65 73 20 33 0d  |**..2.. Pages 3.|
00000090  00 3c 06 eb 36 0d 00 46  1f f1 8a 36 2c 31 29 22  |.<..6..F...6,1)"|
000000a0  4d 65 6d 6f 72 79 20 4d  61 70 20 28 50 61 67 65  |Memory Map (Page|
000000b0  20 33 29 22 0d 00 50 20  f1 27 22 53 63 72 65 65  | 3)"..P .'"Scree|
000000c0  6e 20 6f 72 20 50 72 69  6e 74 65 72 3f 20 28 53  |n or Printer? (S|
000000d0  2f 50 29 22 0d 00 5a 10  f5 fd a6 2d 38 32 20 84  |/P)"..Z....-82 .|
000000e0  a6 2d 35 36 0d 00 64 33  e7 a6 2d 38 32 20 eb 33  |.-56..d3..-82 .3|
000000f0  3a ef 31 34 20 8b eb 33  3a ef 31 35 2c 32 2c 31  |:.14 ..3:.15,2,1|
00000100  2c 32 37 2c 31 2c 35 34  2c 31 2c 32 37 2c 31 2c  |,27,1,54,1,27,1,|
00000110  31 31 36 2c 31 2c 31 0d  00 6e 1c f1 8a 30 29 3b  |116,1,1..n...0);|
00000120  bd 32 30 31 3b c4 36 38  2c bd 32 30 35 29 3b bd  |.201;.68,.205);.|
00000130  31 38 37 0d 00 78 2c f2  70 72 69 6e 74 63 74 28  |187..x,.printct(|
00000140  22 45 4c 45 43 54 52 4f  4e 20 4d 45 4d 4f 52 59  |"ELECTRON MEMORY|
00000150  20 4d 41 50 20 2d 20 50  61 67 65 20 33 22 29 0d  | MAP - Page 3").|
00000160  00 82 27 f1 bd 31 39 39  3b c4 31 33 2c bd 31 39  |..'..199;.13,.19|
00000170  36 29 3b bd 31 39 34 3b  c4 35 34 2c bd 31 39 36  |6);.194;.54,.196|
00000180  29 3b bd 31 38 32 0d 00  8c 1d f2 70 72 69 6e 74  |);.182.....print|
00000190  28 22 20 20 41 64 64 72  65 73 73 22 2c 22 55 73  |("  Address","Us|
000001a0  65 22 29 0d 00 96 27 f1  bd 31 39 39 3b c4 31 33  |e")...'..199;.13|
000001b0  2c bd 31 39 36 29 3b bd  31 39 37 3b c4 35 34 2c  |,.196);.197;.54,|
000001c0  bd 31 39 36 29 3b bd 31  38 32 0d 00 a0 40 f2 70  |.196);.182...@.p|
000001d0  72 69 6e 74 28 22 20 26  33 30 30 2f 26 33 30 31  |rint(" &300/&301|
000001e0  22 2c 22 47 72 61 70 68  69 63 73 20 77 69 6e 64  |","Graphics wind|
000001f0  6f 77 20 6c 65 66 74 20  63 6f 6c 75 6d 6e 20 69  |ow left column i|
00000200  6e 20 70 69 78 65 6c 73  22 29 0d 00 aa 3f f2 70  |n pixels")...?.p|
00000210  72 69 6e 74 28 22 20 26  33 30 32 2f 26 33 30 33  |rint(" &302/&303|
00000220  22 2c 22 47 72 61 70 68  69 63 73 20 77 69 6e 64  |","Graphics wind|
00000230  6f 77 20 62 6f 74 74 6f  6d 20 72 6f 77 20 69 6e  |ow bottom row in|
00000240  20 70 69 78 65 6c 73 22  29 0d 00 b4 41 f2 70 72  | pixels")...A.pr|
00000250  69 6e 74 28 22 20 26 33  30 34 2f 26 33 30 35 22  |int(" &304/&305"|
00000260  2c 22 47 72 61 70 68 69  63 73 20 77 69 6e 64 6f  |,"Graphics windo|
00000270  77 20 72 69 67 68 74 20  63 6f 6c 75 6d 6e 20 69  |w right column i|
00000280  6e 20 70 69 78 65 6c 73  22 29 0d 00 be 3c f2 70  |n pixels")...<.p|
00000290  72 69 6e 74 28 22 20 26  33 30 36 2f 26 33 30 37  |rint(" &306/&307|
000002a0  22 2c 22 47 72 61 70 68  69 63 73 20 77 69 6e 64  |","Graphics wind|
000002b0  6f 77 20 74 6f 70 20 72  6f 77 20 69 6e 20 70 69  |ow top row in pi|
000002c0  78 65 6c 73 22 29 0d 00  c8 32 f2 70 72 69 6e 74  |xels")...2.print|
000002d0  28 22 20 26 33 30 38 22  2c 22 54 65 78 74 20 77  |(" &308","Text w|
000002e0  69 6e 64 6f 77 20 6c 65  66 74 20 68 61 6e 64 20  |indow left hand |
000002f0  63 6f 6c 75 6d 6e 22 29  0d 00 d2 2c f2 70 72 69  |column")...,.pri|
00000300  6e 74 28 22 20 26 33 30  39 22 2c 22 54 65 78 74  |nt(" &309","Text|
00000310  20 77 69 6e 64 6f 77 20  62 6f 74 74 6f 6d 20 72  | window bottom r|
00000320  6f 77 22 29 0d 00 dc 33  f2 70 72 69 6e 74 28 22  |ow")...3.print("|
00000330  20 26 33 30 41 22 2c 22  54 65 78 74 20 77 69 6e  | &30A","Text win|
00000340  64 6f 77 20 72 69 67 68  74 20 68 61 6e 64 20 63  |dow right hand c|
00000350  6f 6c 75 6d 6e 22 29 0d  00 e6 29 f2 70 72 69 6e  |olumn")...).prin|
00000360  74 28 22 20 26 33 30 42  22 2c 22 54 65 78 74 20  |t(" &30B","Text |
00000370  77 69 6e 64 6f 77 20 74  6f 70 20 72 6f 77 22 29  |window top row")|
00000380  0d 00 f0 4a f2 70 72 69  6e 74 28 22 20 26 33 30  |...J.print(" &30|
00000390  43 2d 26 33 30 46 22 2c  22 43 75 72 72 65 6e 74  |C-&30F","Current|
000003a0  20 67 72 61 70 68 69 63  73 20 6f 72 69 67 69 6e  | graphics origin|
000003b0  20 69 6e 20 65 78 74 65  72 6e 61 6c 20 63 6f 6f  | in external coo|
000003c0  72 64 69 6e 61 74 65 73  22 29 0d 00 fa 4a f2 70  |rdinates")...J.p|
000003d0  72 69 6e 74 28 22 20 26  33 31 30 2d 26 33 31 33  |rint(" &310-&313|
000003e0  22 2c 22 43 75 72 72 65  6e 74 20 67 72 61 70 68  |","Current graph|
000003f0  69 63 73 20 63 75 72 73  6f 72 20 69 6e 20 65 78  |ics cursor in ex|
00000400  74 65 72 6e 61 6c 20 63  6f 6f 72 64 69 6e 61 74  |ternal coordinat|
00000410  65 73 22 29 0d 01 04 46  f2 70 72 69 6e 74 28 22  |es")...F.print("|
00000420  20 26 33 31 34 2d 26 33  31 37 22 2c 22 4f 6c 64  | &314-&317","Old|
00000430  20 67 72 61 70 68 69 63  73 20 63 75 72 73 6f 72  | graphics cursor|
00000440  20 69 6e 20 65 78 74 65  72 6e 61 6c 20 63 6f 6f  | in external coo|
00000450  72 64 69 6e 61 74 65 73  22 29 0d 01 0e 36 f2 70  |rdinates")...6.p|
00000460  72 69 6e 74 28 22 20 26  33 31 38 22 2c 22 43 75  |rint(" &318","Cu|
00000470  72 72 65 6e 74 20 74 65  78 74 20 63 75 72 73 6f  |rrent text curso|
00000480  72 20 58 20 63 6f 6f 72  64 69 6e 61 74 65 22 29  |r X coordinate")|
00000490  0d 01 18 36 f2 70 72 69  6e 74 28 22 20 26 33 31  |...6.print(" &31|
000004a0  39 22 2c 22 43 75 72 72  65 6e 74 20 74 65 78 74  |9","Current text|
000004b0  20 63 75 72 73 6f 72 20  59 20 63 6f 6f 72 64 69  | cursor Y coordi|
000004c0  6e 61 74 65 22 29 0d 01  22 42 f2 70 72 69 6e 74  |nate").."B.print|
000004d0  28 22 20 26 33 31 41 22  2c 22 4c 69 6e 65 20 77  |(" &31A","Line w|
000004e0  69 74 68 69 6e 20 63 75  72 72 65 6e 74 20 67 72  |ithin current gr|
000004f0  61 70 68 69 63 73 20 63  65 6c 6c 20 63 6f 6e 74  |aphics cell cont|
00000500  61 69 6e 69 6e 67 22 29  0d 01 2c 2b f2 70 72 69  |aining")..,+.pri|
00000510  6e 74 28 22 22 2c 22 74  68 65 20 63 75 72 72 65  |nt("","the curre|
00000520  6e 74 20 67 72 61 70 68  69 63 73 20 70 6f 69 6e  |nt graphics poin|
00000530  74 22 29 0d 01 36 37 f2  70 72 69 6e 74 28 22 20  |t")..67.print(" |
00000540  26 33 31 42 2d 26 33 31  45 22 2c 22 45 69 74 68  |&31B-&31E","Eith|
00000550  65 72 20 67 72 61 70 68  69 63 73 20 77 6f 72 6b  |er graphics work|
00000560  73 70 61 63 65 20 6f 72  22 29 0d 01 40 28 f2 70  |space or")..@(.p|
00000570  72 69 6e 74 28 22 22 2c  22 66 69 72 73 74 20 70  |rint("","first p|
00000580  61 72 74 20 6f 66 20 56  44 55 20 71 75 65 75 65  |art of VDU queue|
00000590  22 29 0d 01 4a 28 f2 70  72 69 6e 74 28 22 20 26  |")..J(.print(" &|
000005a0  33 31 46 2d 26 33 32 33  22 2c 22 54 68 65 20 56  |31F-&323","The V|
000005b0  44 55 20 71 75 65 75 65  22 29 0d 01 54 4a f2 70  |DU queue")..TJ.p|
000005c0  72 69 6e 74 28 22 20 26  33 32 34 2d 26 33 32 37  |rint(" &324-&327|
000005d0  22 2c 22 43 75 72 72 65  6e 74 20 67 72 61 70 68  |","Current graph|
000005e0  69 63 73 20 63 75 72 73  6f 72 20 69 6e 20 69 6e  |ics cursor in in|
000005f0  74 65 72 6e 61 6c 20 63  6f 6f 72 64 69 6e 61 74  |ternal coordinat|
00000600  65 73 22 29 0d 01 5e 38  f2 70 72 69 6e 74 28 22  |es")..^8.print("|
00000610  20 26 33 32 39 2d 26 33  34 39 22 2c 22 47 72 61  | &329-&349","Gra|
00000620  70 68 69 63 73 20 63 6f  6f 72 64 69 6e 61 74 65  |phics coordinate|
00000630  20 77 6f 72 6b 73 70 61  63 65 22 29 0d 01 68 2f  | workspace")..h/|
00000640  f2 70 72 69 6e 74 28 22  20 26 33 34 41 2f 26 33  |.print(" &34A/&3|
00000650  34 42 22 2c 22 54 65 78  74 20 63 75 65 73 6f 72  |4B","Text cuesor|
00000660  20 70 6f 73 69 74 69 6f  6e 22 29 0d 01 72 35 f2  | position")..r5.|
00000670  70 72 69 6e 74 28 22 20  26 33 34 43 2f 26 33 34  |print(" &34C/&34|
00000680  44 22 2c 22 54 65 78 74  20 77 69 6e 64 6f 77 20  |D","Text window |
00000690  77 69 64 74 68 20 69 6e  20 62 79 74 65 73 22 29  |width in bytes")|
000006a0  0d 01 7c 3a f2 70 72 69  6e 74 28 22 20 26 33 34  |..|:.print(" &34|
000006b0  45 22 2c 22 48 69 67 68  20 62 79 74 65 20 6f 66  |E","High byte of|
000006c0  20 62 6f 74 74 6f 6d 20  6f 66 20 73 63 72 65 65  | bottom of scree|
000006d0  6e 20 6d 65 6d 6f 72 79  22 29 0d 01 86 42 f2 70  |n memory")...B.p|
000006e0  72 69 6e 74 28 22 20 26  33 34 46 22 2c 22 43 68  |rint(" &34F","Ch|
000006f0  61 72 61 63 74 65 72 20  73 69 7a 65 20 69 6e 20  |aracter size in |
00000700  62 79 74 65 73 20 66 6f  72 20 74 68 65 20 63 75  |bytes for the cu|
00000710  72 72 65 6e 74 20 6d 6f  64 65 22 29 0d 01 90 3c  |rrent mode")...<|
00000720  f2 70 72 69 6e 74 28 22  20 26 33 35 30 2f 26 33  |.print(" &350/&3|
00000730  35 31 22 2c 22 41 64 64  72 65 73 73 20 6f 66 20  |51","Address of |
00000740  73 63 72 65 65 6e 20 74  6f 70 20 6c 65 66 74 20  |screen top left |
00000750  63 6f 72 6e 65 72 22 29  0d 01 9a 3c f2 70 72 69  |corner")...<.pri|
00000760  6e 74 28 22 20 26 33 35  32 2f 26 33 35 33 22 2c  |nt(" &352/&353",|
00000770  22 4e 75 6d 62 65 72 20  6f 66 20 62 79 74 65 73  |"Number of bytes|
00000780  20 70 65 72 20 63 68 61  72 61 63 74 65 72 20 72  | per character r|
00000790  6f 77 22 29 0d 01 a4 35  f2 70 72 69 6e 74 28 22  |ow")...5.print("|
000007a0  20 26 33 35 34 22 2c 22  48 69 67 68 20 62 79 74  | &354","High byt|
000007b0  65 20 6f 66 20 73 63 72  65 65 6e 20 6d 65 6d 6f  |e of screen memo|
000007c0  72 79 20 73 69 7a 65 22  29 0d 01 ae 29 f2 70 72  |ry size")...).pr|
000007d0  69 6e 74 28 22 20 26 33  35 35 22 2c 22 43 75 72  |int(" &355","Cur|
000007e0  72 65 6e 74 20 73 63 72  65 65 6e 20 6d 6f 64 65  |rent screen mode|
000007f0  22 29 0d 01 b8 2a f2 70  72 69 6e 74 28 22 20 26  |")...*.print(" &|
00000800  33 35 36 22 2c 22 53 63  72 65 65 6e 20 64 69 73  |356","Screen dis|
00000810  70 6c 61 79 20 74 79 70  65 3a 22 29 0d 01 c2 1f  |play type:")....|
00000820  f2 70 72 69 6e 74 28 22  22 2c 22 20 20 20 20 30  |.print("","    0|
00000830  3d 32 30 6b 20 6d 6f 64  65 22 29 0d 01 cc 1f f2  |=20k mode").....|
00000840  70 72 69 6e 74 28 22 22  2c 22 20 20 20 20 31 3d  |print("","    1=|
00000850  31 36 6b 20 6d 6f 64 65  22 29 0d 01 d6 1f f2 70  |16k mode").....p|
00000860  72 69 6e 74 28 22 22 2c  22 20 20 20 20 32 3d 31  |rint("","    2=1|
00000870  30 6b 20 6d 6f 64 65 22  29 0d 01 e0 1e f2 70 72  |0k mode").....pr|
00000880  69 6e 74 28 22 22 2c 22  20 20 20 20 33 3d 38 6b  |int("","    3=8k|
00000890  20 6d 6f 64 65 22 29 0d  01 ea 34 f2 70 72 69 6e  | mode")...4.prin|
000008a0  74 28 22 20 26 33 35 37  22 2c 22 43 75 72 72 65  |t(" &357","Curre|
000008b0  6e 74 20 74 65 78 74 20  66 6f 72 65 67 72 6f 75  |nt text foregrou|
000008c0  6e 64 20 63 6f 6c 6f 75  72 22 29 0d 01 f4 34 f2  |nd colour")...4.|
000008d0  70 72 69 6e 74 28 22 20  26 33 35 38 22 2c 22 43  |print(" &358","C|
000008e0  75 72 72 65 6e 74 20 74  65 78 74 20 62 61 63 6b  |urrent text back|
000008f0  67 72 6f 75 6e 64 20 63  6f 6c 6f 75 72 22 29 0d  |ground colour").|
00000900  01 fe 38 f2 70 72 69 6e  74 28 22 20 26 33 35 39  |..8.print(" &359|
00000910  22 2c 22 43 75 72 72 65  6e 74 20 67 72 61 70 68  |","Current graph|
00000920  69 63 73 20 66 6f 72 65  67 72 6f 75 6e 64 20 63  |ics foreground c|
00000930  6f 6c 6f 75 72 22 29 0d  02 08 38 f2 70 72 69 6e  |olour")...8.prin|
00000940  74 28 22 20 26 33 35 41  22 2c 22 43 75 72 72 65  |t(" &35A","Curre|
00000950  6e 74 20 67 72 61 70 68  69 63 73 20 62 61 63 6b  |nt graphics back|
00000960  67 72 6f 75 6e 64 20 63  6f 6c 6f 75 72 22 29 0d  |ground colour").|
00000970  02 12 4a f2 70 72 69 6e  74 28 22 20 26 33 35 42  |..J.print(" &35B|
00000980  22 2c 22 43 75 72 72 65  6e 74 20 66 6f 72 65 67  |","Current foreg|
00000990  72 6f 75 6e 64 20 67 72  61 70 68 69 63 73 20 50  |round graphics P|
000009a0  4c 4f 54 20 6d 6f 64 65  20 61 73 20 73 65 74 20  |LOT mode as set |
000009b0  62 79 20 47 43 4f 4c 22  29 0d 02 1c 4a f2 70 72  |by GCOL")...J.pr|
000009c0  69 6e 74 28 22 20 26 33  35 43 22 2c 22 43 75 72  |int(" &35C","Cur|
000009d0  72 65 6e 74 20 62 61 63  6b 67 72 6f 75 6e 64 20  |rent background |
000009e0  67 72 61 70 68 69 63 73  20 50 4c 4f 54 20 6d 6f  |graphics PLOT mo|
000009f0  64 65 20 61 73 20 73 65  74 20 62 79 20 47 43 4f  |de as set by GCO|
00000a00  4c 22 29 0d 02 26 2a f2  70 72 69 6e 74 28 22 20  |L")..&*.print(" |
00000a10  26 33 35 44 2f 26 33 35  45 22 2c 22 56 44 55 20  |&35D/&35E","VDU |
00000a20  6a 75 6d 70 20 76 65 63  74 6f 72 22 29 0d 02 30  |jump vector")..0|
00000a30  3a f2 70 72 69 6e 74 28  22 20 26 33 35 46 22 2c  |:.print(" &35F",|
00000a40  22 4f 6c 64 20 73 65 74  74 69 6e 67 20 6f 66 20  |"Old setting of |
00000a50  63 75 72 73 6f 72 20 73  74 61 72 74 20 72 65 67  |cursor start reg|
00000a60  69 73 74 65 72 22 29 0d  02 3a 36 f2 70 72 69 6e  |ister")..:6.prin|
00000a70  74 28 22 20 26 33 36 30  22 2c 22 4e 75 6d 62 65  |t(" &360","Numbe|
00000a80  72 20 6f 66 20 6c 6f 67  69 63 61 6c 20 63 6f 6c  |r of logical col|
00000a90  6f 75 72 73 20 69 6e 20  74 68 65 22 29 0d 02 44  |ours in the")..D|
00000aa0  27 f2 70 72 69 6e 74 28  22 22 2c 22 63 75 72 72  |'.print("","curr|
00000ab0  65 6e 74 20 6d 6f 64 65  20 6d 69 6e 75 73 20 6f  |ent mode minus o|
00000ac0  6e 65 22 29 0d 02 4e 49  f2 70 72 69 6e 74 28 22  |ne")..NI.print("|
00000ad0  20 26 33 36 31 22 2c 22  4e 75 6d 62 65 72 20 6f  | &361","Number o|
00000ae0  66 20 70 69 78 65 6c 73  20 70 65 72 20 62 79 74  |f pixels per byt|
00000af0  65 20 6d 69 6e 75 73 20  6f 6e 65 20 66 6f 72 20  |e minus one for |
00000b00  74 68 65 20 63 75 72 72  65 6e 74 22 29 0d 02 58  |the current")..X|
00000b10  30 f2 70 72 69 6e 74 28  22 22 2c 22 6d 6f 64 65  |0.print("","mode|
00000b20  2c 20 6f 72 20 7a 65 72  6f 20 69 66 20 74 65 78  |, or zero if tex|
00000b30  74 20 6f 6e 6c 79 20 6d  6f 64 65 22 29 0d 02 62  |t only mode")..b|
00000b40  2b f2 70 72 69 6e 74 28  22 20 26 33 36 32 22 2c  |+.print(" &362",|
00000b50  22 4c 65 66 74 20 68 61  6e 64 20 63 6f 6c 6f 75  |"Left hand colou|
00000b60  72 20 6d 61 73 6b 22 29  0d 02 6c 2c f2 70 72 69  |r mask")..l,.pri|
00000b70  6e 74 28 22 20 26 33 36  33 22 2c 22 52 69 67 68  |nt(" &363","Righ|
00000b80  74 20 68 61 6e 64 20 63  6f 6c 6f 75 72 20 6d 61  |t hand colour ma|
00000b90  73 6b 22 29 0d 02 76 37  f2 70 72 69 6e 74 28 22  |sk")..v7.print("|
00000ba0  20 26 33 36 34 22 2c 22  58 20 63 6f 6f 72 64 69  | &364","X coordi|
00000bb0  6e 61 74 65 20 6f 66 20  74 65 78 74 20 69 6e 70  |nate of text inp|
00000bc0  75 74 20 63 75 72 73 6f  72 22 29 0d 02 80 37 f2  |ut cursor")...7.|
00000bd0  70 72 69 6e 74 28 22 20  26 33 36 35 22 2c 22 59  |print(" &365","Y|
00000be0  20 63 6f 6f 72 64 69 6e  61 74 65 20 6f 66 20 74  | coordinate of t|
00000bf0  65 78 74 20 69 6e 70 75  74 20 63 75 72 73 6f 72  |ext input cursor|
00000c00  22 29 0d 02 8a 22 f2 70  72 69 6e 74 28 22 20 26  |")...".print(" &|
00000c10  33 36 36 22 2c 22 4e 6f  72 6d 61 6c 6c 79 20 31  |366","Normally 1|
00000c20  32 37 22 29 0d 02 94 27  f1 bd 32 30 30 3b c4 31  |27")...'..200;.1|
00000c30  33 2c bd 32 30 35 29 3b  bd 32 30 37 3b c4 35 34  |3,.205);.207;.54|
00000c40  2c bd 32 30 35 29 3b bd  31 38 38 0d 02 9e 0a f1  |,.205);.188.....|
00000c50  27 27 27 27 27 0d 02 a8  18 f1 bd 32 30 31 3b c4  |'''''......201;.|
00000c60  36 38 2c bd 32 30 35 29  3b bd 31 38 37 0d 02 b2  |68,.205);.187...|
00000c70  34 f2 70 72 69 6e 74 63  74 28 22 45 4c 45 43 54  |4.printct("ELECT|
00000c80  52 4f 4e 20 4d 45 4d 4f  52 59 20 4d 41 50 20 2d  |RON MEMORY MAP -|
00000c90  20 50 61 67 65 20 33 20  28 63 6f 6e 74 64 29 22  | Page 3 (contd)"|
00000ca0  29 0d 02 bc 27 f1 bd 31  39 39 3b c4 31 33 2c bd  |)...'..199;.13,.|
00000cb0  31 39 36 29 3b bd 31 39  34 3b c4 35 34 2c bd 31  |196);.194;.54,.1|
00000cc0  39 36 29 3b bd 31 38 32  0d 02 c6 1d f2 70 72 69  |96);.182.....pri|
00000cd0  6e 74 28 22 20 20 41 64  64 72 65 73 73 22 2c 22  |nt("  Address","|
00000ce0  55 73 65 22 29 0d 02 d0  27 f1 bd 31 39 39 3b c4  |Use")...'..199;.|
00000cf0  31 33 2c bd 31 39 36 29  3b bd 31 39 37 3b c4 35  |13,.196);.197;.5|
00000d00  34 2c bd 31 39 36 29 3b  bd 31 38 32 0d 02 da 49  |4,.196);.182...I|
00000d10  f2 70 72 69 6e 74 28 22  20 26 33 36 37 22 2c 22  |.print(" &367","|
00000d20  46 6f 6e 74 20 66 6c 61  67 2e 20 49 66 20 62 69  |Font flag. If bi|
00000d30  74 20 69 73 20 73 65 74  2c 20 74 68 65 20 63 6f  |t is set, the co|
00000d40  72 72 65 73 70 6f 6e 64  69 6e 67 20 73 65 63 74  |rresponding sect|
00000d50  69 6f 6e 22 29 0d 02 e4  34 f2 70 72 69 6e 74 28  |ion")...4.print(|
00000d60  22 22 2c 22 6f 66 20 74  68 65 20 63 68 61 72 61  |"","of the chara|
00000d70  63 74 65 72 20 73 65 74  20 69 73 20 68 65 6c 64  |cter set is held|
00000d80  20 69 6e 20 72 61 6d 22  29 0d 02 ee 2a f2 70 72  | in ram")...*.pr|
00000d90  69 6e 74 28 22 22 2c 22  20 20 20 20 42 69 74 20  |int("","    Bit |
00000da0  37 20 66 6f 72 20 63 68  61 72 73 20 33 32 2d 36  |7 for chars 32-6|
00000db0  33 22 29 0d 02 f8 2a f2  70 72 69 6e 74 28 22 22  |3")...*.print(""|
00000dc0  2c 22 20 20 20 20 42 69  74 20 36 20 66 6f 72 20  |,"    Bit 6 for |
00000dd0  63 68 61 72 73 20 36 34  2d 39 35 22 29 0d 03 02  |chars 64-95")...|
00000de0  2b f2 70 72 69 6e 74 28  22 22 2c 22 20 20 20 20  |+.print("","    |
00000df0  42 69 74 20 35 20 66 6f  72 20 63 68 61 72 73 20  |Bit 5 for chars |
00000e00  39 36 2d 31 32 37 22 29  0d 03 0c 2c f2 70 72 69  |96-127")...,.pri|
00000e10  6e 74 28 22 22 2c 22 20  20 20 20 42 69 74 20 34  |nt("","    Bit 4|
00000e20  20 66 6f 72 20 63 68 61  72 73 20 31 32 38 2d 31  | for chars 128-1|
00000e30  35 39 22 29 0d 03 16 2c  f2 70 72 69 6e 74 28 22  |59")...,.print("|
00000e40  22 2c 22 20 20 20 20 42  69 74 20 33 20 66 6f 72  |","    Bit 3 for|
00000e50  20 63 68 61 72 73 20 31  36 30 2d 31 39 31 22 29  | chars 160-191")|
00000e60  0d 03 20 2c f2 70 72 69  6e 74 28 22 22 2c 22 20  |.. ,.print(""," |
00000e70  20 20 20 42 69 74 20 32  20 66 6f 72 20 63 68 61  |   Bit 2 for cha|
00000e80  72 73 20 31 39 32 2d 32  32 33 22 29 0d 03 2a 2c  |rs 192-223")..*,|
00000e90  f2 70 72 69 6e 74 28 22  22 2c 22 20 20 20 20 42  |.print("","    B|
00000ea0  69 74 20 31 20 66 6f 72  20 63 68 61 72 73 20 32  |it 1 for chars 2|
00000eb0  32 34 2d 32 35 35 22 29  0d 03 34 48 f2 70 72 69  |24-255")..4H.pri|
00000ec0  6e 74 28 22 20 26 33 36  38 2d 26 33 36 45 22 2c  |nt(" &368-&36E",|
00000ed0  22 46 6f 6e 74 20 6c 6f  63 61 74 69 6f 6e 20 62  |"Font location b|
00000ee0  79 74 65 73 2e 20 45 61  63 68 20 65 6e 74 72 79  |ytes. Each entry|
00000ef0  20 69 6e 20 74 68 69 73  20 62 6c 6f 63 6b 22 29  | in this block")|
00000f00  0d 03 3e 44 f2 70 72 69  6e 74 28 22 22 2c 22 63  |..>D.print("","c|
00000f10  6f 6e 74 61 69 6e 73 20  74 68 65 20 68 69 67 68  |ontains the high|
00000f20  20 61 64 64 72 65 73 73  20 62 79 74 65 20 6f 66  | address byte of|
00000f30  20 74 68 65 20 63 6f 72  72 65 73 70 6f 6e 64 69  | the correspondi|
00000f40  6e 67 22 29 0d 03 48 26  f2 70 72 69 6e 74 28 22  |ng")..H&.print("|
00000f50  22 2c 22 7a 6f 6e 65 20  62 6c 6f 63 6b 20 28 73  |","zone block (s|
00000f60  65 65 20 26 33 36 37 29  22 29 0d 03 52 47 f2 70  |ee &367)")..RG.p|
00000f70  72 69 6e 74 28 22 20 26  33 36 46 2d 26 33 37 45  |rint(" &36F-&37E|
00000f80  22 2c 22 54 68 65 20 63  75 72 72 65 6e 74 20 70  |","The current p|
00000f90  61 6c 65 74 74 65 2e 20  54 68 65 73 65 20 62 79  |alette. These by|
00000fa0  74 65 73 20 63 6f 6e 74  61 69 6e 20 74 68 65 22  |tes contain the"|
00000fb0  29 0d 03 5c 33 f2 70 72  69 6e 74 28 22 22 2c 22  |)..\3.print("","|
00000fc0  63 75 72 72 65 6e 74 6c  79 20 64 65 66 69 6e 65  |currently define|
00000fd0  64 20 6c 6f 67 69 63 61  6c 20 63 6f 6c 6f 75 72  |d logical colour|
00000fe0  73 2c 22 29 0d 03 66 24  f2 70 72 69 6e 74 28 22  |s,")..f$.print("|
00000ff0  22 2c 22 69 6e 20 64 65  73 63 65 6e 64 69 6e 67  |","in descending|
00001000  20 6f 72 64 65 72 22 29  0d 03 70 31 f2 70 72 69  | order")..p1.pri|
00001010  6e 74 28 22 20 26 33 38  30 2d 26 33 39 43 22 2c  |nt(" &380-&39C",|
00001020  22 42 50 55 54 20 66 69  6c 65 20 68 65 61 64 65  |"BPUT file heade|
00001030  72 20 62 6c 6f 63 6b 22  29 0d 03 7a 49 f2 70 72  |r block")..zI.pr|
00001040  69 6e 74 28 22 20 26 33  39 44 22 2c 22 42 50 55  |int(" &39D","BPU|
00001050  54 20 62 75 66 66 65 72  20 6f 66 66 73 65 74 20  |T buffer offset |
00001060  66 6f 72 20 6e 65 78 74  20 62 79 74 65 20 69 6e  |for next byte in|
00001070  20 63 61 73 73 65 74 74  65 20 62 75 66 66 65 72  | cassette buffer|
00001080  22 29 0d 03 84 49 f2 70  72 69 6e 74 28 22 20 26  |")...I.print(" &|
00001090  33 39 45 22 2c 22 42 47  45 54 20 62 75 66 66 65  |39E","BGET buffe|
000010a0  72 20 6f 66 66 73 65 74  20 66 6f 72 20 6e 65 78  |r offset for nex|
000010b0  74 20 62 79 74 65 20 69  6e 20 63 61 73 73 65 74  |t byte in casset|
000010c0  74 65 20 62 75 66 66 65  72 22 29 0d 03 8e 2b f2  |te buffer")...+.|
000010d0  70 72 69 6e 74 28 22 20  26 33 39 46 2d 26 33 41  |print(" &39F-&3A|
000010e0  36 22 2c 22 55 6e 75 73  65 64 20 69 6e 20 4f 53  |6","Unused in OS|
000010f0  20 31 2e 32 22 29 0d 03  98 28 f2 70 72 69 6e 74  | 1.2")...(.print|
00001100  28 22 20 26 33 41 37 2d  26 33 42 31 22 2c 22 42  |(" &3A7-&3B1","B|
00001110  47 45 54 20 66 69 6c 65  6e 61 6d 65 22 29 0d 03  |GET filename")..|
00001120  a2 36 f2 70 72 69 6e 74  28 22 20 26 33 42 32 2d  |.6.print(" &3B2-|
00001130  26 33 42 44 22 2c 22 46  69 6c 65 6e 61 6d 65 20  |&3BD","Filename |
00001140  74 65 72 6d 69 6e 61 74  65 64 20 62 79 20 7a 65  |terminated by ze|
00001150  72 6f 22 29 0d 03 ac 2f  f2 70 72 69 6e 74 28 22  |ro").../.print("|
00001160  20 26 33 42 45 2d 26 33  43 31 22 2c 22 4c 6f 61  | &3BE-&3C1","Loa|
00001170  64 20 61 64 64 72 65 73  73 20 6f 66 20 66 69 6c  |d address of fil|
00001180  65 22 29 0d 03 b6 34 f2  70 72 69 6e 74 28 22 20  |e")...4.print(" |
00001190  26 33 43 32 2d 26 33 43  35 22 2c 22 45 78 65 63  |&3C2-&3C5","Exec|
000011a0  75 74 69 6f 6e 20 61 64  64 72 65 73 73 20 6f 66  |ution address of|
000011b0  20 66 69 6c 65 22 29 0d  03 c0 36 f2 70 72 69 6e  | file")...6.prin|
000011c0  74 28 22 20 26 33 43 36  2f 26 33 43 37 22 2c 22  |t(" &3C6/&3C7","|
000011d0  31 36 20 62 69 74 20 63  75 72 72 65 6e 74 20 62  |16 bit current b|
000011e0  6c 6f 63 6b 20 6e 75 6d  62 65 72 22 29 0d 03 ca  |lock number")...|
000011f0  27 f2 70 72 69 6e 74 28  22 20 26 33 43 38 2f 26  |'.print(" &3C8/&|
00001200  33 43 39 22 2c 22 42 6c  6f 63 6b 20 6c 65 6e 67  |3C9","Block leng|
00001210  74 68 22 29 0d 03 d4 49  f2 70 72 69 6e 74 28 22  |th")...I.print("|
00001220  20 26 33 43 41 22 2c 22  42 6c 6f 63 6b 20 66 6c  | &3CA","Block fl|
00001230  61 67 20 74 79 70 65 2e  20 49 6e 64 69 63 61 74  |ag type. Indicat|
00001240  65 73 20 77 68 65 74 68  65 72 20 61 20 66 69 6c  |es whether a fil|
00001250  65 20 69 73 20 6c 6f 63  6b 65 64 22 29 0d 03 de  |e is locked")...|
00001260  24 f2 70 72 69 6e 74 28  22 20 26 33 43 42 2d 26  |$.print(" &3CB-&|
00001270  33 43 45 22 2c 22 52 46  53 20 45 4f 46 2b 31 22  |3CE","RFS EOF+1"|
00001280  29 0d 03 e8 2a f2 70 72  69 6e 74 28 22 20 26 33  |)...*.print(" &3|
00001290  43 46 2f 26 33 44 30 22  2c 22 31 36 20 62 69 74  |CF/&3D0","16 bit|
000012a0  20 63 68 65 63 6b 73 75  6d 22 29 0d 03 f2 3c f2  | checksum")...<.|
000012b0  70 72 69 6e 74 28 22 20  26 33 44 31 22 2c 22 53  |print(" &3D1","S|
000012c0  65 71 75 65 6e 74 69 61  6c 20 62 6c 6f 63 6b 20  |equential block |
000012d0  67 61 70 20 61 73 20 73  65 74 20 62 79 20 2a 4f  |gap as set by *O|
000012e0  50 54 33 2c 6e 22 29 0d  03 fc 3f f2 70 72 69 6e  |PT3,n")...?.prin|
000012f0  74 28 22 20 26 33 44 32  2d 26 33 44 43 22 2c 22  |t(" &3D2-&3DC","|
00001300  46 69 6c 65 6e 61 6d 65  20 6f 66 20 66 69 6c 65  |Filename of file|
00001310  20 62 65 69 6e 67 20 73  65 61 72 63 68 65 64 20  | being searched |
00001320  66 6f 72 2c 22 29 0d 04  06 23 f2 70 72 69 6e 74  |for,")...#.print|
00001330  28 22 22 2c 22 74 65 72  6d 69 6e 61 74 65 64 20  |("","terminated |
00001340  62 79 20 7a 65 72 6f 22  29 0d 04 10 3d f2 70 72  |by zero")...=.pr|
00001350  69 6e 74 28 22 20 26 33  44 44 2f 26 33 44 45 22  |int(" &3DD/&3DE"|
00001360  2c 22 4e 75 6d 62 65 72  20 6f 66 20 6e 65 78 74  |,"Number of next|
00001370  20 65 78 70 65 63 74 65  64 20 42 47 45 54 20 62  | expected BGET b|
00001380  6c 6f 63 6b 22 29 0d 04  1a 32 f2 70 72 69 6e 74  |lock")...2.print|
00001390  28 22 20 26 33 44 46 22  2c 22 43 6f 70 79 20 6f  |(" &3DF","Copy o|
000013a0  66 20 6c 61 73 74 20 62  6c 6f 63 6b 20 66 6c 61  |f last block fla|
000013b0  67 20 72 65 61 64 22 29  0d 04 24 30 f2 70 72 69  |g read")..$0.pri|
000013c0  6e 74 28 22 20 26 33 45  30 2d 26 33 46 46 22 2c  |nt(" &3E0-&3FF",|
000013d0  22 4b 77 79 62 6f 61 72  64 20 69 6e 70 75 74 20  |"Kwyboard input |
000013e0  62 75 66 66 65 72 22 29  0d 04 2e 27 f1 bd 32 30  |buffer")...'..20|
000013f0  30 3b c4 31 33 2c bd 32  30 35 29 3b bd 32 30 37  |0;.13,.205);.207|
00001400  3b c4 35 34 2c bd 32 30  35 29 3b bd 31 38 38 0d  |;.54,.205);.188.|
00001410  04 38 05 f1 0d 04 42 06  ef 33 0d 04 43 3a f1 27  |.8....B..3..C:.'|
00001420  27 22 50 4c 45 41 53 45  20 50 52 45 53 53 20 3c  |'"PLEASE PRESS <|
00001430  46 3e 20 46 4f 52 20 4e  45 58 54 20 46 49 4c 45  |F> FOR NEXT FILE|
00001440  2c 20 3c 4d 3e 20 46 4f  52 20 4d 41 49 4e 20 4d  |, <M> FOR MAIN M|
00001450  45 4e 55 22 0d 04 44 15  f5 3a fd 20 be 3d 22 46  |ENU"..D..:. .="F|
00001460  22 20 84 20 be 3d 22 4d  22 0d 04 45 16 e7 20 be  |" . .="M"..E.. .|
00001470  3d 22 46 22 20 8c 20 d7  22 24 2e 4d 4d 34 22 0d  |="F" . ."$.MM4".|
00001480  04 46 17 e7 20 be 3d 22  4d 22 20 8c 20 d7 22 24  |.F.. .="M" . ."$|
00001490  2e 4d 45 4e 55 22 0d 04  4c 05 e0 0d 04 56 33 dd  |.MENU"..L....V3.|
000014a0  f2 70 72 69 6e 74 63 74  28 74 24 29 3a f1 bd 31  |.printct(t$):..1|
000014b0  38 36 3b 8a 36 38 2f 32  2d a9 74 24 2f 32 29 3b  |86;.68/2-.t$/2);|
000014c0  74 24 3b 8a 36 39 29 3b  bd 31 38 36 3a e1 0d 04  |t$;.69);.186:...|
000014d0  60 3c dd f2 70 72 69 6e  74 28 61 24 2c 62 24 29  |`<..print(a$,b$)|
000014e0  3a f1 bd 31 38 36 3b 8a  32 29 61 24 3b 8a 31 34  |:..186;.2)a$;.14|
000014f0  29 3b bd 31 37 39 3b 8a  31 36 29 3b 62 24 3b 8a  |);.179;.16);b$;.|
00001500  36 39 29 3b bd 31 38 36  3a e1 0d ff              |69);.186:...|
0000150c