� VDU Linker
� By Mark Davidson
� (c) Electron User
(�6
2�
<code%=�P+512
F�initialise
P�mc_code
Z
�get_data
d�save_file
n�:�
x�
� 
�� �initialise
�� �11,1);"* VDU Linker *"
�4� �0,5)"Where do you wish to store the program?"
��0,8);"Address: &"address$
�Address%=�("&"+address$) 
��
� 
�� �mc_code
�� I=4 � 6 �2
�O%=code%:P%=Address%
�[ OPT I
�LDA #((data+2) � 256)

STA loop+1 

LDA #((data+2) � 256)

STA loop+2  

"
LDA #0

,STA size

6STA size+1

@
.start

JLDA size

TCMP data

^
BEQ p1

hINC size

rBNE loop

|INC size+1

�JMP loop

�.p1 LDA size+1

�CMP data+1

�
BEQ p2

�INC size

�BNE loop

�INC size+1

�.loop LDA data+2

�
JSR &FFEE

�INC loop+1

�BNE pass

�INC loop+2

�.pass JMP start
.p2 RTS    
.size EQUW 0
	.data
&]
0�
:�
D 
N� �get_data
X�'"Data's filename: "input$
b!line$="LOAD "+input$+" "+�~O%
l�(line$)
v�
� 
�� �save_file
��'"Program name: "output$
�bline$="SAVE "+output$+" "+�~code%+" "+�~(O%+?O%+(256*?(O%+1))+2)+" "+�~Address%+" "+�~Address%
��(line$)
��
�

00000000  0d 00 0a 10 f4 20 56 44  55 20 4c 69 6e 6b 65 72  |..... VDU Linker|
00000010  0d 00 14 16 f4 20 42 79  20 4d 61 72 6b 20 44 61  |..... By Mark Da|
00000020  76 69 64 73 6f 6e 0d 00  1e 17 f4 20 28 63 29 20  |vidson..... (c) |
00000030  45 6c 65 63 74 72 6f 6e  20 55 73 65 72 0d 00 28  |Electron User..(|
00000040  06 eb 36 0d 00 32 05 d8  0d 00 3c 10 63 6f 64 65  |..6..2....<.code|
00000050  25 3d b8 50 2b 35 31 32  0d 00 46 0f f2 69 6e 69  |%=.P+512..F..ini|
00000060  74 69 61 6c 69 73 65 0d  00 50 0c f2 6d 63 5f 63  |tialise..P..mc_c|
00000070  6f 64 65 0d 00 5a 0d f2  67 65 74 5f 64 61 74 61  |ode..Z..get_data|
00000080  0d 00 64 0e f2 73 61 76  65 5f 66 69 6c 65 0d 00  |..d..save_file..|
00000090  6e 07 f1 3a f1 0d 00 78  05 e0 0d 00 82 05 20 0d  |n..:...x...... .|
000000a0  00 8c 11 dd 20 f2 69 6e  69 74 69 61 6c 69 73 65  |.... .initialise|
000000b0  0d 00 96 1d f1 20 8a 31  31 2c 31 29 3b 22 2a 20  |..... .11,1);"* |
000000c0  56 44 55 20 4c 69 6e 6b  65 72 20 2a 22 0d 00 a0  |VDU Linker *"...|
000000d0  34 f1 20 8a 30 2c 35 29  22 57 68 65 72 65 20 64  |4. .0,5)"Where d|
000000e0  6f 20 79 6f 75 20 77 69  73 68 20 74 6f 20 73 74  |o you wish to st|
000000f0  6f 72 65 20 74 68 65 20  70 72 6f 67 72 61 6d 3f  |ore the program?|
00000100  22 0d 00 aa 1f e8 8a 30  2c 38 29 3b 22 41 64 64  |"......0,8);"Add|
00000110  72 65 73 73 3a 20 26 22  61 64 64 72 65 73 73 24  |ress: &"address$|
00000120  0d 00 b4 1d 41 64 64 72  65 73 73 25 3d a0 28 22  |....Address%=.("|
00000130  26 22 2b 61 64 64 72 65  73 73 24 29 20 0d 00 be  |&"+address$) ...|
00000140  05 e1 0d 00 c8 05 20 0d  00 d2 0e dd 20 f2 6d 63  |...... ..... .mc|
00000150  5f 63 6f 64 65 0d 00 dc  10 e3 20 49 3d 34 20 b8  |_code..... I=4 .|
00000160  20 36 20 88 32 0d 00 e6  18 4f 25 3d 63 6f 64 65  | 6 .2....O%=code|
00000170  25 3a 50 25 3d 41 64 64  72 65 73 73 25 0d 00 f0  |%:P%=Address%...|
00000180  0b 5b 20 4f 50 54 20 49  0d 00 fa 19 4c 44 41 20  |.[ OPT I....LDA |
00000190  23 28 28 64 61 74 61 2b  32 29 20 83 20 32 35 36  |#((data+2) . 256|
000001a0  29 0d 01 04 0f 53 54 41  20 6c 6f 6f 70 2b 31 20  |)....STA loop+1 |
000001b0  0d 01 0e 19 4c 44 41 20  23 28 28 64 61 74 61 2b  |....LDA #((data+|
000001c0  32 29 20 81 20 32 35 36  29 0d 01 18 10 53 54 41  |2) . 256)....STA|
000001d0  20 6c 6f 6f 70 2b 32 20  20 0d 01 22 0a 4c 44 41  | loop+2  ..".LDA|
000001e0  20 23 30 0d 01 2c 0c 53  54 41 20 73 69 7a 65 0d  | #0..,.STA size.|
000001f0  01 36 0e 53 54 41 20 73  69 7a 65 2b 31 0d 01 40  |.6.STA size+1..@|
00000200  0a 2e 73 74 61 72 74 0d  01 4a 0c 4c 44 41 20 73  |..start..J.LDA s|
00000210  69 7a 65 0d 01 54 0c 43  4d 50 20 64 61 74 61 0d  |ize..T.CMP data.|
00000220  01 5e 0a 42 45 51 20 70  31 0d 01 68 0c 49 4e 43  |.^.BEQ p1..h.INC|
00000230  20 73 69 7a 65 0d 01 72  0c 42 4e 45 20 6c 6f 6f  | size..r.BNE loo|
00000240  70 0d 01 7c 0e 49 4e 43  20 73 69 7a 65 2b 31 0d  |p..|.INC size+1.|
00000250  01 86 0c 4a 4d 50 20 6c  6f 6f 70 0d 01 90 12 2e  |...JMP loop.....|
00000260  70 31 20 4c 44 41 20 73  69 7a 65 2b 31 0d 01 9a  |p1 LDA size+1...|
00000270  0e 43 4d 50 20 64 61 74  61 2b 31 0d 01 a4 0a 42  |.CMP data+1....B|
00000280  45 51 20 70 32 0d 01 ae  0c 49 4e 43 20 73 69 7a  |EQ p2....INC siz|
00000290  65 0d 01 b8 0c 42 4e 45  20 6c 6f 6f 70 0d 01 c2  |e....BNE loop...|
000002a0  0e 49 4e 43 20 73 69 7a  65 2b 31 0d 01 cc 14 2e  |.INC size+1.....|
000002b0  6c 6f 6f 70 20 4c 44 41  20 64 61 74 61 2b 32 0d  |loop LDA data+2.|
000002c0  01 d6 0d 4a 53 52 20 26  46 46 45 45 0d 01 e0 0e  |...JSR &FFEE....|
000002d0  49 4e 43 20 6c 6f 6f 70  2b 31 0d 01 ea 0c 42 4e  |INC loop+1....BN|
000002e0  45 20 70 61 73 73 0d 01  f4 0e 49 4e 43 20 6c 6f  |E pass....INC lo|
000002f0  6f 70 2b 32 0d 01 fe 13  2e 70 61 73 73 20 4a 4d  |op+2.....pass JM|
00000300  50 20 73 74 61 72 74 0d  02 08 0f 2e 70 32 20 52  |P start.....p2 R|
00000310  54 53 20 20 20 20 0d 02  12 10 2e 73 69 7a 65 20  |TS    .....size |
00000320  45 51 55 57 20 30 0d 02  1c 09 2e 64 61 74 61 0d  |EQUW 0.....data.|
00000330  02 26 05 5d 0d 02 30 05  ed 0d 02 3a 05 e1 0d 02  |.&.]..0....:....|
00000340  44 05 20 0d 02 4e 0f dd  20 f2 67 65 74 5f 64 61  |D. ..N.. .get_da|
00000350  74 61 0d 02 58 1f e8 27  22 44 61 74 61 27 73 20  |ta..X..'"Data's |
00000360  66 69 6c 65 6e 61 6d 65  3a 20 22 69 6e 70 75 74  |filename: "input|
00000370  24 0d 02 62 21 6c 69 6e  65 24 3d 22 4c 4f 41 44  |$..b!line$="LOAD|
00000380  20 22 2b 69 6e 70 75 74  24 2b 22 20 22 2b c3 7e  | "+input$+" "+.~|
00000390  4f 25 0d 02 6c 0c ff 28  6c 69 6e 65 24 29 0d 02  |O%..l..(line$)..|
000003a0  76 05 e1 0d 02 80 05 20  0d 02 8a 10 dd 20 f2 73  |v...... ..... .s|
000003b0  61 76 65 5f 66 69 6c 65  0d 02 94 1d e8 27 22 50  |ave_file.....'"P|
000003c0  72 6f 67 72 61 6d 20 6e  61 6d 65 3a 20 22 6f 75  |rogram name: "ou|
000003d0  74 70 75 74 24 0d 02 9e  62 6c 69 6e 65 24 3d 22  |tput$...bline$="|
000003e0  53 41 56 45 20 22 2b 6f  75 74 70 75 74 24 2b 22  |SAVE "+output$+"|
000003f0  20 22 2b c3 7e 63 6f 64  65 25 2b 22 20 22 2b c3  | "+.~code%+" "+.|
00000400  7e 28 4f 25 2b 3f 4f 25  2b 28 32 35 36 2a 3f 28  |~(O%+?O%+(256*?(|
00000410  4f 25 2b 31 29 29 2b 32  29 2b 22 20 22 2b c3 7e  |O%+1))+2)+" "+.~|
00000420  41 64 64 72 65 73 73 25  2b 22 20 22 2b c3 7e 41  |Address%+" "+.~A|
00000430  64 64 72 65 73 73 25 0d  02 a8 0c ff 28 6c 69 6e  |ddress%.....(lin|
00000440  65 24 29 0d 02 b2 05 e1  0d ff                    |e$).......|
0000044a