�
 �"�WRCHV Double Height Chars
"�"�By�The Welder/Faith^Darkage
(�"�Faith Productions�1998
2
�assemble
<��1:�1:�"    A simple demonstration of how to":�2:�" intercept the WRCHV and produce double":�3:�"     height characters as standard!"'
F�
P���assemble:�I%,P%:�Q%160:�I%=0�2�2:P%=Q%:[OPTI%:LDA&20E:STAvec:LDA&20F:STAvec+1:LDX#write �256:LDY#write �256:SEI:STX&20E:STY&20F:CLI:RTS:.write CMP#10:BEQlf:STA&70:STX&71:STY&72:CMP#127:BEQdel:CMP#32:BCCprn
Z�CMP#127:BCSprn:STAbits:LDA#10:LDX#bits �256:LDY#bits �256:JSR&FFF1:LDX#1:LDY#0:.lp LDA#23:JSRprn:TXA:PHA:�A#224:JSRprn:LDX#0:.lp2 LDAchar,Y:JSRprn:JSRprn:INY:INX:CPX#4:BNElp2:PLA:TAX:DEX:BPLlp:LDX#6:.lp3 LDAvdu,X:JSRprn:DEX:BPLlp3
d�LDA&70:LDX&71:LDY&72:RTS:.lf JSRprn:.prn JMP(vec):.del LDX#4:.lp4 LDAdta,X:JSRprn:DEX:BPLlp4:LDA&70:LDX&71:RTS:.bits EQUB0:.char EQUD0:EQUD0:.vdu EQUD&A0A08E0:EQUW&E10B:EQUB11:.dta EQUD&B097F0A:EQUB127:.vec EQUW0:]:�:�Q%:�
�

00000000  0d 00 0a 07 f4 16 07 0d  00 14 20 f4 22 83 57 52  |.......... .".WR|
00000010  43 48 56 20 44 6f 75 62  6c 65 20 48 65 69 67 68  |CHV Double Heigh|
00000020  74 20 43 68 61 72 73 0d  00 1e 22 f4 22 81 42 79  |t Chars...".".By|
00000030  82 54 68 65 20 57 65 6c  64 65 72 2f 46 61 69 74  |.The Welder/Fait|
00000040  68 5e 44 61 72 6b 61 67  65 0d 00 28 1d f4 22 85  |h^Darkage..(..".|
00000050  46 61 69 74 68 20 50 72  6f 64 75 63 74 69 6f 6e  |Faith Production|
00000060  73 84 31 39 39 38 0d 00  32 0d f2 61 73 73 65 6d  |s.1998..2..assem|
00000070  62 6c 65 0d 00 3c 8a eb  31 3a fb 31 3a f1 22 20  |ble..<..1:.1:." |
00000080  20 20 20 41 20 73 69 6d  70 6c 65 20 64 65 6d 6f  |   A simple demo|
00000090  6e 73 74 72 61 74 69 6f  6e 20 6f 66 20 68 6f 77  |nstration of how|
000000a0  20 74 6f 22 3a fb 32 3a  f1 22 20 69 6e 74 65 72  | to":.2:." inter|
000000b0  63 65 70 74 20 74 68 65  20 57 52 43 48 56 20 61  |cept the WRCHV a|
000000c0  6e 64 20 70 72 6f 64 75  63 65 20 64 6f 75 62 6c  |nd produce doubl|
000000d0  65 22 3a fb 33 3a f1 22  20 20 20 20 20 68 65 69  |e":.3:."     hei|
000000e0  67 68 74 20 63 68 61 72  61 63 74 65 72 73 20 61  |ght characters a|
000000f0  73 20 73 74 61 6e 64 61  72 64 21 22 27 0d 00 46  |s standard!"'..F|
00000100  05 e0 0d 00 50 d3 dd f2  61 73 73 65 6d 62 6c 65  |....P...assemble|
00000110  3a ea 49 25 2c 50 25 3a  de 51 25 31 36 30 3a e3  |:.I%,P%:.Q%160:.|
00000120  49 25 3d 30 b8 32 88 32  3a 50 25 3d 51 25 3a 5b  |I%=0.2.2:P%=Q%:[|
00000130  4f 50 54 49 25 3a 4c 44  41 26 32 30 45 3a 53 54  |OPTI%:LDA&20E:ST|
00000140  41 76 65 63 3a 4c 44 41  26 32 30 46 3a 53 54 41  |Avec:LDA&20F:STA|
00000150  76 65 63 2b 31 3a 4c 44  58 23 77 72 69 74 65 20  |vec+1:LDX#write |
00000160  83 32 35 36 3a 4c 44 59  23 77 72 69 74 65 20 81  |.256:LDY#write .|
00000170  32 35 36 3a 53 45 49 3a  53 54 58 26 32 30 45 3a  |256:SEI:STX&20E:|
00000180  53 54 59 26 32 30 46 3a  43 4c 49 3a 52 54 53 3a  |STY&20F:CLI:RTS:|
00000190  2e 77 72 69 74 65 20 43  4d 50 23 31 30 3a 42 45  |.write CMP#10:BE|
000001a0  51 6c 66 3a 53 54 41 26  37 30 3a 53 54 58 26 37  |Qlf:STA&70:STX&7|
000001b0  31 3a 53 54 59 26 37 32  3a 43 4d 50 23 31 32 37  |1:STY&72:CMP#127|
000001c0  3a 42 45 51 64 65 6c 3a  43 4d 50 23 33 32 3a 42  |:BEQdel:CMP#32:B|
000001d0  43 43 70 72 6e 0d 00 5a  ea 43 4d 50 23 31 32 37  |CCprn..Z.CMP#127|
000001e0  3a 42 43 53 70 72 6e 3a  53 54 41 62 69 74 73 3a  |:BCSprn:STAbits:|
000001f0  4c 44 41 23 31 30 3a 4c  44 58 23 62 69 74 73 20  |LDA#10:LDX#bits |
00000200  83 32 35 36 3a 4c 44 59  23 62 69 74 73 20 81 32  |.256:LDY#bits .2|
00000210  35 36 3a 4a 53 52 26 46  46 46 31 3a 4c 44 58 23  |56:JSR&FFF1:LDX#|
00000220  31 3a 4c 44 59 23 30 3a  2e 6c 70 20 4c 44 41 23  |1:LDY#0:.lp LDA#|
00000230  32 33 3a 4a 53 52 70 72  6e 3a 54 58 41 3a 50 48  |23:JSRprn:TXA:PH|
00000240  41 3a 84 41 23 32 32 34  3a 4a 53 52 70 72 6e 3a  |A:.A#224:JSRprn:|
00000250  4c 44 58 23 30 3a 2e 6c  70 32 20 4c 44 41 63 68  |LDX#0:.lp2 LDAch|
00000260  61 72 2c 59 3a 4a 53 52  70 72 6e 3a 4a 53 52 70  |ar,Y:JSRprn:JSRp|
00000270  72 6e 3a 49 4e 59 3a 49  4e 58 3a 43 50 58 23 34  |rn:INY:INX:CPX#4|
00000280  3a 42 4e 45 6c 70 32 3a  50 4c 41 3a 54 41 58 3a  |:BNElp2:PLA:TAX:|
00000290  44 45 58 3a 42 50 4c 6c  70 3a 4c 44 58 23 36 3a  |DEX:BPLlp:LDX#6:|
000002a0  2e 6c 70 33 20 4c 44 41  76 64 75 2c 58 3a 4a 53  |.lp3 LDAvdu,X:JS|
000002b0  52 70 72 6e 3a 44 45 58  3a 42 50 4c 6c 70 33 0d  |Rprn:DEX:BPLlp3.|
000002c0  00 64 e2 4c 44 41 26 37  30 3a 4c 44 58 26 37 31  |.d.LDA&70:LDX&71|
000002d0  3a 4c 44 59 26 37 32 3a  52 54 53 3a 2e 6c 66 20  |:LDY&72:RTS:.lf |
000002e0  4a 53 52 70 72 6e 3a 2e  70 72 6e 20 4a 4d 50 28  |JSRprn:.prn JMP(|
000002f0  76 65 63 29 3a 2e 64 65  6c 20 4c 44 58 23 34 3a  |vec):.del LDX#4:|
00000300  2e 6c 70 34 20 4c 44 41  64 74 61 2c 58 3a 4a 53  |.lp4 LDAdta,X:JS|
00000310  52 70 72 6e 3a 44 45 58  3a 42 50 4c 6c 70 34 3a  |Rprn:DEX:BPLlp4:|
00000320  4c 44 41 26 37 30 3a 4c  44 58 26 37 31 3a 52 54  |LDA&70:LDX&71:RT|
00000330  53 3a 2e 62 69 74 73 20  45 51 55 42 30 3a 2e 63  |S:.bits EQUB0:.c|
00000340  68 61 72 20 45 51 55 44  30 3a 45 51 55 44 30 3a  |har EQUD0:EQUD0:|
00000350  2e 76 64 75 20 45 51 55  44 26 41 30 41 30 38 45  |.vdu EQUD&A0A08E|
00000360  30 3a 45 51 55 57 26 45  31 30 42 3a 45 51 55 42  |0:EQUW&E10B:EQUB|
00000370  31 31 3a 2e 64 74 61 20  45 51 55 44 26 42 30 39  |11:.dta EQUD&B09|
00000380  37 46 30 41 3a 45 51 55  42 31 32 37 3a 2e 76 65  |7F0A:EQUB127:.ve|
00000390  63 20 45 51 55 57 30 3a  5d 3a ed 3a d6 51 25 3a  |c EQUW0:]:.:.Q%:|
000003a0  e1 0d ff                                          |...|
000003a3