� VDU Coder
� By Mark Davidson
� (c) Electron User
(� 6
2�initialise
<�compile
F�:�
P
� &900
Z�
d 
n� �initialise
xptr=&74
�� �12,1);"* VDU Coder *"
�� �1,5);"Filename: "file$
�.� �1,9);"Variable space? (Default=1 page)"
�� �1,11);": "space%
�� space%<1 space%=1
��
� 
�� �compile
�� 28,0,23,39,13
�� I=0 � 3 � 3
�P%=&900
�
[OPT I
� \Enable *� and *� commands  

SEI

LDA &208:STA oscli_temp

LDA &209:STA oscli_temp+1 

"LDA #oscli � 256:STA &208

,LDA #oscli � 256:STA &209

6CLI

@RTS

J 

T\Start of � intercept

^.oscli STX &70:STY &71

h 

r	LDY#0

|.first_loop

�LDA (&70),Y:CMP first,Y

�BNE next

�INY:CPY #3:BNE first_loop  

�
JMP on

� 

�	.next

�
LDY #0

�.second_loop

�LDA (&70),Y:CMP second,Y

�
BNE os

�INY:CPY #4:BNE second_loop 

�JMP off

� 
.os
$LDX &70:LDY &71:JMP (oscli_temp)
 
&.first  EQUS"*ON"+�13  
0.second EQUS"*OFF"+�13   
: 
D.oscli_temp EQUW 0
N 
X\Initialise the 'intercept'
b\and 'save' routines     
l
.on SEI  
vnLDA &20E:STA oswrch_temp:LDA &20F:STA oswrch_temp+1:LDA #(new � 256):STA &20E:LDA #(new � 256):STA &20F   
�5CLC:LDA &12:STA ptr:LDA &13:ADC #space%:STA ptr+1
�;LDA ptr:STA param1:STA param2:STA param3:STA count+1   
�@LDA ptr+1:STA param1+1:STA param2+1:STA param3+1:STA count+2
�?LDA ptr:CLC:ADC #1:STA count+6:LDA ptr+1:ADC #0:STA count+7
�;LDA ptr:CLC:ADC #2:STA new+1:LDA ptr+1:ADC #0:STA new+2
�,LDY #0:TYA:STA (ptr),Y:INY:STA (ptr),Y  
�CLI:RTS   
� 
�.oswrch_temp EQUW 0
� 
�\The intercept routine
�.new STA &FFFF:PHA
�%.count INC &FFF:BNE pass:INC &FFF
	.pass
INC new+1:BNE not_hit_zero
.hit_zero INC new+2
 .not_hit_zero LDA new+1
*STA param4
4LDA new+2:STA param4+1  
>PLA
HJMP (oswrch_temp)   
R\End of intercept routine
\ 
f \Restore old vector contents
p"\of � and OSWRCH and save data
z:.off LDA oscli_temp:STA &208:LDA oscli_temp+1:STA &209
�7LDA oswrch_temp:STA &20E:LDA oswrch_temp+1:STA &20F
�>LDA #0:LDX #(block � 256):LDY #(block � 256):JSR &FFDD:RTS
�.block EQUW addr
�.param1 EQUW 0
�
EQUW 0
�.param2 EQUW 0
�
EQUW 0
�.param3 EQUW 0
�
EQUW 0
�.param4 EQUW 0
�
EQUW 0
�.addr EQUS file$+�13
�]
�
�
�

00000000  0d 00 0a 0f f4 20 56 44  55 20 43 6f 64 65 72 0d  |..... VDU Coder.|
00000010  00 14 16 f4 20 42 79 20  4d 61 72 6b 20 44 61 76  |.... By Mark Dav|
00000020  69 64 73 6f 6e 0d 00 1e  17 f4 20 28 63 29 20 45  |idson..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 07  |lectron User..(.|
00000040  eb 20 36 0d 00 32 0f f2  69 6e 69 74 69 61 6c 69  |. 6..2..initiali|
00000050  73 65 0d 00 3c 0c f2 63  6f 6d 70 69 6c 65 0d 00  |se..<..compile..|
00000060  46 07 f1 3a f1 0d 00 50  0a d6 20 26 39 30 30 0d  |F..:...P.. &900.|
00000070  00 5a 05 e0 0d 00 64 05  20 0d 00 6e 11 dd 20 f2  |.Z....d. ..n.. .|
00000080  69 6e 69 74 69 61 6c 69  73 65 0d 00 78 0b 70 74  |initialise..x.pt|
00000090  72 3d 26 37 34 0d 00 82  1c f1 20 8a 31 32 2c 31  |r=&74..... .12,1|
000000a0  29 3b 22 2a 20 56 44 55  20 43 6f 64 65 72 20 2a  |);"* VDU Coder *|
000000b0  22 0d 00 8c 1d e8 20 8a  31 2c 35 29 3b 22 46 69  |"..... .1,5);"Fi|
000000c0  6c 65 6e 61 6d 65 3a 20  22 66 69 6c 65 24 0d 00  |lename: "file$..|
000000d0  96 2e f1 20 8a 31 2c 39  29 3b 22 56 61 72 69 61  |... .1,9);"Varia|
000000e0  62 6c 65 20 73 70 61 63  65 3f 20 28 44 65 66 61  |ble space? (Defa|
000000f0  75 6c 74 3d 31 20 70 61  67 65 29 22 0d 00 a0 17  |ult=1 page)"....|
00000100  e8 20 8a 31 2c 31 31 29  3b 22 3a 20 22 73 70 61  |. .1,11);": "spa|
00000110  63 65 25 0d 00 aa 17 e7  20 73 70 61 63 65 25 3c  |ce%..... space%<|
00000120  31 20 73 70 61 63 65 25  3d 31 0d 00 b4 05 e1 0d  |1 space%=1......|
00000130  00 be 05 20 0d 00 c8 0e  dd 20 f2 63 6f 6d 70 69  |... ..... .compi|
00000140  6c 65 0d 00 d2 13 ef 20  32 38 2c 30 2c 32 33 2c  |le..... 28,0,23,|
00000150  33 39 2c 31 33 0d 00 dc  11 e3 20 49 3d 30 20 b8  |39,13..... I=0 .|
00000160  20 33 20 88 20 33 0d 00  e6 0b 50 25 3d 26 39 30  | 3 . 3....P%=&90|
00000170  30 0d 00 f0 0a 5b 4f 50  54 20 49 0d 00 fa 20 5c  |0....[OPT I... \|
00000180  45 6e 61 62 6c 65 20 2a  ee 20 61 6e 64 20 2a 87  |Enable *. and *.|
00000190  20 63 6f 6d 6d 61 6e 64  73 20 20 0d 01 04 07 53  | commands  ....S|
000001a0  45 49 0d 01 0e 1b 4c 44  41 20 26 32 30 38 3a 53  |EI....LDA &208:S|
000001b0  54 41 20 6f 73 63 6c 69  5f 74 65 6d 70 0d 01 18  |TA oscli_temp...|
000001c0  1e 4c 44 41 20 26 32 30  39 3a 53 54 41 20 6f 73  |.LDA &209:STA os|
000001d0  63 6c 69 5f 74 65 6d 70  2b 31 20 0d 01 22 1d 4c  |cli_temp+1 ..".L|
000001e0  44 41 20 23 6f 73 63 6c  69 20 83 20 32 35 36 3a  |DA #oscli . 256:|
000001f0  53 54 41 20 26 32 30 38  0d 01 2c 1d 4c 44 41 20  |STA &208..,.LDA |
00000200  23 6f 73 63 6c 69 20 81  20 32 35 36 3a 53 54 41  |#oscli . 256:STA|
00000210  20 26 32 30 39 0d 01 36  07 43 4c 49 0d 01 40 07  | &209..6.CLI..@.|
00000220  52 54 53 0d 01 4a 05 20  0d 01 54 19 5c 53 74 61  |RTS..J. ..T.\Sta|
00000230  72 74 20 6f 66 20 ff 20  69 6e 74 65 72 63 65 70  |rt of . intercep|
00000240  74 0d 01 5e 1a 2e 6f 73  63 6c 69 20 53 54 58 20  |t..^..oscli STX |
00000250  26 37 30 3a 53 54 59 20  26 37 31 0d 01 68 05 20  |&70:STY &71..h. |
00000260  0d 01 72 09 4c 44 59 23  30 0d 01 7c 0f 2e 66 69  |..r.LDY#0..|..fi|
00000270  72 73 74 5f 6c 6f 6f 70  0d 01 86 1b 4c 44 41 20  |rst_loop....LDA |
00000280  28 26 37 30 29 2c 59 3a  43 4d 50 20 66 69 72 73  |(&70),Y:CMP firs|
00000290  74 2c 59 0d 01 90 0c 42  4e 45 20 6e 65 78 74 0d  |t,Y....BNE next.|
000002a0  01 9a 1f 49 4e 59 3a 43  50 59 20 23 33 3a 42 4e  |...INY:CPY #3:BN|
000002b0  45 20 66 69 72 73 74 5f  6c 6f 6f 70 20 20 0d 01  |E first_loop  ..|
000002c0  a4 0a 4a 4d 50 20 6f 6e  0d 01 ae 05 20 0d 01 b8  |..JMP on.... ...|
000002d0  09 2e 6e 65 78 74 0d 01  c2 0a 4c 44 59 20 23 30  |..next....LDY #0|
000002e0  0d 01 cc 10 2e 73 65 63  6f 6e 64 5f 6c 6f 6f 70  |.....second_loop|
000002f0  0d 01 d6 1c 4c 44 41 20  28 26 37 30 29 2c 59 3a  |....LDA (&70),Y:|
00000300  43 4d 50 20 73 65 63 6f  6e 64 2c 59 0d 01 e0 0a  |CMP second,Y....|
00000310  42 4e 45 20 6f 73 0d 01  ea 1f 49 4e 59 3a 43 50  |BNE os....INY:CP|
00000320  59 20 23 34 3a 42 4e 45  20 73 65 63 6f 6e 64 5f  |Y #4:BNE second_|
00000330  6c 6f 6f 70 20 0d 01 f4  0b 4a 4d 50 20 6f 66 66  |loop ....JMP off|
00000340  0d 01 fe 05 20 0d 02 08  07 2e 6f 73 0d 02 12 24  |.... .....os...$|
00000350  4c 44 58 20 26 37 30 3a  4c 44 59 20 26 37 31 3a  |LDX &70:LDY &71:|
00000360  4a 4d 50 20 28 6f 73 63  6c 69 5f 74 65 6d 70 29  |JMP (oscli_temp)|
00000370  0d 02 1c 05 20 0d 02 26  1b 2e 66 69 72 73 74 20  |.... ..&..first |
00000380  20 45 51 55 53 22 2a 4f  4e 22 2b bd 31 33 20 20  | EQUS"*ON"+.13  |
00000390  0d 02 30 1d 2e 73 65 63  6f 6e 64 20 45 51 55 53  |..0..second EQUS|
000003a0  22 2a 4f 46 46 22 2b bd  31 33 20 20 20 0d 02 3a  |"*OFF"+.13   ..:|
000003b0  05 20 0d 02 44 16 2e 6f  73 63 6c 69 5f 74 65 6d  |. ..D..oscli_tem|
000003c0  70 20 45 51 55 57 20 30  0d 02 4e 05 20 0d 02 58  |p EQUW 0..N. ..X|
000003d0  1f 5c 49 6e 69 74 69 61  6c 69 73 65 20 74 68 65  |.\Initialise the|
000003e0  20 27 69 6e 74 65 72 63  65 70 74 27 0d 02 62 1d  | 'intercept'..b.|
000003f0  5c 61 6e 64 20 27 73 61  76 65 27 20 72 6f 75 74  |\and 'save' rout|
00000400  69 6e 65 73 20 20 20 20  20 0d 02 6c 0d 2e 6f 6e  |ines     ..l..on|
00000410  20 53 45 49 20 20 0d 02  76 6e 4c 44 41 20 26 32  | SEI  ..vnLDA &2|
00000420  30 45 3a 53 54 41 20 6f  73 77 72 63 68 5f 74 65  |0E:STA oswrch_te|
00000430  6d 70 3a 4c 44 41 20 26  32 30 46 3a 53 54 41 20  |mp:LDA &20F:STA |
00000440  6f 73 77 72 63 68 5f 74  65 6d 70 2b 31 3a 4c 44  |oswrch_temp+1:LD|
00000450  41 20 23 28 6e 65 77 20  83 20 32 35 36 29 3a 53  |A #(new . 256):S|
00000460  54 41 20 26 32 30 45 3a  4c 44 41 20 23 28 6e 65  |TA &20E:LDA #(ne|
00000470  77 20 81 20 32 35 36 29  3a 53 54 41 20 26 32 30  |w . 256):STA &20|
00000480  46 20 20 20 0d 02 80 35  43 4c 43 3a 4c 44 41 20  |F   ...5CLC:LDA |
00000490  26 31 32 3a 53 54 41 20  70 74 72 3a 4c 44 41 20  |&12:STA ptr:LDA |
000004a0  26 31 33 3a 41 44 43 20  23 73 70 61 63 65 25 3a  |&13:ADC #space%:|
000004b0  53 54 41 20 70 74 72 2b  31 0d 02 8a 3b 4c 44 41  |STA ptr+1...;LDA|
000004c0  20 70 74 72 3a 53 54 41  20 70 61 72 61 6d 31 3a  | ptr:STA param1:|
000004d0  53 54 41 20 70 61 72 61  6d 32 3a 53 54 41 20 70  |STA param2:STA p|
000004e0  61 72 61 6d 33 3a 53 54  41 20 63 6f 75 6e 74 2b  |aram3:STA count+|
000004f0  31 20 20 20 0d 02 94 40  4c 44 41 20 70 74 72 2b  |1   ...@LDA ptr+|
00000500  31 3a 53 54 41 20 70 61  72 61 6d 31 2b 31 3a 53  |1:STA param1+1:S|
00000510  54 41 20 70 61 72 61 6d  32 2b 31 3a 53 54 41 20  |TA param2+1:STA |
00000520  70 61 72 61 6d 33 2b 31  3a 53 54 41 20 63 6f 75  |param3+1:STA cou|
00000530  6e 74 2b 32 0d 02 9e 3f  4c 44 41 20 70 74 72 3a  |nt+2...?LDA ptr:|
00000540  43 4c 43 3a 41 44 43 20  23 31 3a 53 54 41 20 63  |CLC:ADC #1:STA c|
00000550  6f 75 6e 74 2b 36 3a 4c  44 41 20 70 74 72 2b 31  |ount+6:LDA ptr+1|
00000560  3a 41 44 43 20 23 30 3a  53 54 41 20 63 6f 75 6e  |:ADC #0:STA coun|
00000570  74 2b 37 0d 02 a8 3b 4c  44 41 20 70 74 72 3a 43  |t+7...;LDA ptr:C|
00000580  4c 43 3a 41 44 43 20 23  32 3a 53 54 41 20 6e 65  |LC:ADC #2:STA ne|
00000590  77 2b 31 3a 4c 44 41 20  70 74 72 2b 31 3a 41 44  |w+1:LDA ptr+1:AD|
000005a0  43 20 23 30 3a 53 54 41  20 6e 65 77 2b 32 0d 02  |C #0:STA new+2..|
000005b0  b2 2c 4c 44 59 20 23 30  3a 54 59 41 3a 53 54 41  |.,LDY #0:TYA:STA|
000005c0  20 28 70 74 72 29 2c 59  3a 49 4e 59 3a 53 54 41  | (ptr),Y:INY:STA|
000005d0  20 28 70 74 72 29 2c 59  20 20 0d 02 bc 0e 43 4c  | (ptr),Y  ....CL|
000005e0  49 3a 52 54 53 20 20 20  0d 02 c6 05 20 0d 02 d0  |I:RTS   .... ...|
000005f0  17 2e 6f 73 77 72 63 68  5f 74 65 6d 70 20 45 51  |..oswrch_temp EQ|
00000600  55 57 20 30 0d 02 da 05  20 0d 02 e4 1a 5c 54 68  |UW 0.... ....\Th|
00000610  65 20 69 6e 74 65 72 63  65 70 74 20 72 6f 75 74  |e intercept rout|
00000620  69 6e 65 0d 02 ee 16 2e  6e 65 77 20 53 54 41 20  |ine.....new STA |
00000630  26 46 46 46 46 3a 50 48  41 0d 02 f8 25 2e 63 6f  |&FFFF:PHA...%.co|
00000640  75 6e 74 20 49 4e 43 20  26 46 46 46 3a 42 4e 45  |unt INC &FFF:BNE|
00000650  20 70 61 73 73 3a 49 4e  43 20 26 46 46 46 0d 03  | pass:INC &FFF..|
00000660  02 09 2e 70 61 73 73 0d  03 0c 1e 49 4e 43 20 6e  |...pass....INC n|
00000670  65 77 2b 31 3a 42 4e 45  20 6e 6f 74 5f 68 69 74  |ew+1:BNE not_hit|
00000680  5f 7a 65 72 6f 0d 03 16  17 2e 68 69 74 5f 7a 65  |_zero.....hit_ze|
00000690  72 6f 20 49 4e 43 20 6e  65 77 2b 32 0d 03 20 1b  |ro INC new+2.. .|
000006a0  2e 6e 6f 74 5f 68 69 74  5f 7a 65 72 6f 20 4c 44  |.not_hit_zero LD|
000006b0  41 20 6e 65 77 2b 31 0d  03 2a 0e 53 54 41 20 70  |A new+1..*.STA p|
000006c0  61 72 61 6d 34 0d 03 34  1c 4c 44 41 20 6e 65 77  |aram4..4.LDA new|
000006d0  2b 32 3a 53 54 41 20 70  61 72 61 6d 34 2b 31 20  |+2:STA param4+1 |
000006e0  20 0d 03 3e 07 50 4c 41  0d 03 48 18 4a 4d 50 20  | ..>.PLA..H.JMP |
000006f0  28 6f 73 77 72 63 68 5f  74 65 6d 70 29 20 20 20  |(oswrch_temp)   |
00000700  0d 03 52 1d 5c 45 6e 64  20 6f 66 20 69 6e 74 65  |..R.\End of inte|
00000710  72 63 65 70 74 20 72 6f  75 74 69 6e 65 0d 03 5c  |rcept routine..\|
00000720  05 20 0d 03 66 20 5c 52  65 73 74 6f 72 65 20 6f  |. ..f \Restore o|
00000730  6c 64 20 76 65 63 74 6f  72 20 63 6f 6e 74 65 6e  |ld vector conten|
00000740  74 73 0d 03 70 22 5c 6f  66 20 ff 20 61 6e 64 20  |ts..p"\of . and |
00000750  4f 53 57 52 43 48 20 61  6e 64 20 73 61 76 65 20  |OSWRCH and save |
00000760  64 61 74 61 0d 03 7a 3a  2e 6f 66 66 20 4c 44 41  |data..z:.off LDA|
00000770  20 6f 73 63 6c 69 5f 74  65 6d 70 3a 53 54 41 20  | oscli_temp:STA |
00000780  26 32 30 38 3a 4c 44 41  20 6f 73 63 6c 69 5f 74  |&208:LDA oscli_t|
00000790  65 6d 70 2b 31 3a 53 54  41 20 26 32 30 39 0d 03  |emp+1:STA &209..|
000007a0  84 37 4c 44 41 20 6f 73  77 72 63 68 5f 74 65 6d  |.7LDA oswrch_tem|
000007b0  70 3a 53 54 41 20 26 32  30 45 3a 4c 44 41 20 6f  |p:STA &20E:LDA o|
000007c0  73 77 72 63 68 5f 74 65  6d 70 2b 31 3a 53 54 41  |swrch_temp+1:STA|
000007d0  20 26 32 30 46 0d 03 8e  3e 4c 44 41 20 23 30 3a  | &20F...>LDA #0:|
000007e0  4c 44 58 20 23 28 62 6c  6f 63 6b 20 83 20 32 35  |LDX #(block . 25|
000007f0  36 29 3a 4c 44 59 20 23  28 62 6c 6f 63 6b 20 81  |6):LDY #(block .|
00000800  20 32 35 36 29 3a 4a 53  52 20 26 46 46 44 44 3a  | 256):JSR &FFDD:|
00000810  52 54 53 0d 03 98 14 2e  62 6c 6f 63 6b 20 45 51  |RTS.....block EQ|
00000820  55 57 20 61 64 64 72 0d  03 a2 12 2e 70 61 72 61  |UW addr.....para|
00000830  6d 31 20 45 51 55 57 20  30 0d 03 ac 0a 45 51 55  |m1 EQUW 0....EQU|
00000840  57 20 30 0d 03 b6 12 2e  70 61 72 61 6d 32 20 45  |W 0.....param2 E|
00000850  51 55 57 20 30 0d 03 c0  0a 45 51 55 57 20 30 0d  |QUW 0....EQUW 0.|
00000860  03 ca 12 2e 70 61 72 61  6d 33 20 45 51 55 57 20  |....param3 EQUW |
00000870  30 0d 03 d4 0a 45 51 55  57 20 30 0d 03 de 12 2e  |0....EQUW 0.....|
00000880  70 61 72 61 6d 34 20 45  51 55 57 20 30 0d 03 e8  |param4 EQUW 0...|
00000890  0a 45 51 55 57 20 30 0d  03 f2 18 2e 61 64 64 72  |.EQUW 0.....addr|
000008a0  20 45 51 55 53 20 66 69  6c 65 24 2b bd 31 33 0d  | EQUS file$+.13.|
000008b0  03 fc 05 5d 0d 04 06 05  ed 0d 04 10 05 e1 0d ff  |...]............|
000008c0