�
"�"�1 Pixel Full Width Scroller
"�"�By�The Welder/Faith^Darkage
(�"�Faith Productions�1998
2/�read:�asm:�4:�23,1,0;0;0;0;19,0,4;0;:�Q%:�
<���asm:�Q%150:�I%,P%:�I%=0�2�2:P%=Q%:[OPTI%:LDA#0:LDX#7:.lp1 STA&76,X:DEX:BPLlp1:LDA#8:STA&74:LDX#T% �256:LDY#T% �256:STX&70:STY&71:LDX#int �256:LDY#int �256:SEI:STX&220:STY&221:CLI:LDA#14:LDX#4:LDY#0:JMP&FFF4
F�.int PHP:PHA:TXA:PHA:TYA:PHA:LDY&74:DEY:BNEscroll:.end LDA(&70),Y:BNEchar:LDA#T% �256:STA&70:LDA#T% �256:STA&71:JMPend:.char STA&75:INC&70:BNEnohi:INC&71:.nohi LDA#10:LDX#&75:LDY#0:JSR&FFF1:LDY#8:.scroll STY&74
P�LDY#7:.lp2 LDA#&78:STA&72:LDA#&69:STA&73:LDA&76,Y:ASLA:STA&76,Y:LDX#39:.lp3 LDA(&72),Y:ROLA:STA(&72),Y:PHP:LDA&72:SEC:SBC#8:STA&72:BCSlow:DEC&73:.low PLP:DEX:BPLlp3:DEY:BPLlp2:PLA:TAY:PLA:TAX:PLA:PLP:RTS:]:�:�
Zl��read:�T%2048:�A%,B%,C%,A$:��Dd@:A%=T%:�B%:�C%=1�B%:�A$:�B%=1��(A$):?A%=�(�A$,B%,1)):A%=A%+1:�,:?A%=0:�
d� 4
n0� "This is The Welder of Faith typing here "
x0� "for your extreme pleasure.  This is a 1 "
�5� "pixel scroller using a machine code rotation "
�c� "to get pixel accuracy.  Note also that this scroller is full screen width!!                "
�

00000000  0d 00 0a 07 f4 16 07 0d  00 14 22 f4 22 85 31 20  |..........".".1 |
00000010  50 69 78 65 6c 20 46 75  6c 6c 20 57 69 64 74 68  |Pixel Full Width|
00000020  20 53 63 72 6f 6c 6c 65  72 0d 00 1e 22 f4 22 81  | Scroller...".".|
00000030  42 79 83 54 68 65 20 57  65 6c 64 65 72 2f 46 61  |By.The Welder/Fa|
00000040  69 74 68 5e 44 61 72 6b  61 67 65 0d 00 28 1d f4  |ith^Darkage..(..|
00000050  22 84 46 61 69 74 68 20  50 72 6f 64 75 63 74 69  |".Faith Producti|
00000060  6f 6e 73 82 31 39 39 38  0d 00 32 2f f2 72 65 61  |ons.1998..2/.rea|
00000070  64 3a f2 61 73 6d 3a eb  34 3a ef 32 33 2c 31 2c  |d:.asm:.4:.23,1,|
00000080  30 3b 30 3b 30 3b 30 3b  31 39 2c 30 2c 34 3b 30  |0;0;0;0;19,0,4;0|
00000090  3b 3a d6 51 25 3a e0 0d  00 3c d4 dd f2 61 73 6d  |;:.Q%:...<...asm|
000000a0  3a de 51 25 31 35 30 3a  ea 49 25 2c 50 25 3a e3  |:.Q%150:.I%,P%:.|
000000b0  49 25 3d 30 b8 32 88 32  3a 50 25 3d 51 25 3a 5b  |I%=0.2.2:P%=Q%:[|
000000c0  4f 50 54 49 25 3a 4c 44  41 23 30 3a 4c 44 58 23  |OPTI%:LDA#0:LDX#|
000000d0  37 3a 2e 6c 70 31 20 53  54 41 26 37 36 2c 58 3a  |7:.lp1 STA&76,X:|
000000e0  44 45 58 3a 42 50 4c 6c  70 31 3a 4c 44 41 23 38  |DEX:BPLlp1:LDA#8|
000000f0  3a 53 54 41 26 37 34 3a  4c 44 58 23 54 25 20 83  |:STA&74:LDX#T% .|
00000100  32 35 36 3a 4c 44 59 23  54 25 20 81 32 35 36 3a  |256:LDY#T% .256:|
00000110  53 54 58 26 37 30 3a 53  54 59 26 37 31 3a 4c 44  |STX&70:STY&71:LD|
00000120  58 23 69 6e 74 20 83 32  35 36 3a 4c 44 59 23 69  |X#int .256:LDY#i|
00000130  6e 74 20 81 32 35 36 3a  53 45 49 3a 53 54 58 26  |nt .256:SEI:STX&|
00000140  32 32 30 3a 53 54 59 26  32 32 31 3a 43 4c 49 3a  |220:STY&221:CLI:|
00000150  4c 44 41 23 31 34 3a 4c  44 58 23 34 3a 4c 44 59  |LDA#14:LDX#4:LDY|
00000160  23 30 3a 4a 4d 50 26 46  46 46 34 0d 00 46 d6 2e  |#0:JMP&FFF4..F..|
00000170  69 6e 74 20 50 48 50 3a  50 48 41 3a 54 58 41 3a  |int PHP:PHA:TXA:|
00000180  50 48 41 3a 54 59 41 3a  50 48 41 3a 4c 44 59 26  |PHA:TYA:PHA:LDY&|
00000190  37 34 3a 44 45 59 3a 42  4e 45 73 63 72 6f 6c 6c  |74:DEY:BNEscroll|
000001a0  3a 2e 65 6e 64 20 4c 44  41 28 26 37 30 29 2c 59  |:.end LDA(&70),Y|
000001b0  3a 42 4e 45 63 68 61 72  3a 4c 44 41 23 54 25 20  |:BNEchar:LDA#T% |
000001c0  83 32 35 36 3a 53 54 41  26 37 30 3a 4c 44 41 23  |.256:STA&70:LDA#|
000001d0  54 25 20 81 32 35 36 3a  53 54 41 26 37 31 3a 4a  |T% .256:STA&71:J|
000001e0  4d 50 65 6e 64 3a 2e 63  68 61 72 20 53 54 41 26  |MPend:.char STA&|
000001f0  37 35 3a 49 4e 43 26 37  30 3a 42 4e 45 6e 6f 68  |75:INC&70:BNEnoh|
00000200  69 3a 49 4e 43 26 37 31  3a 2e 6e 6f 68 69 20 4c  |i:INC&71:.nohi L|
00000210  44 41 23 31 30 3a 4c 44  58 23 26 37 35 3a 4c 44  |DA#10:LDX#&75:LD|
00000220  59 23 30 3a 4a 53 52 26  46 46 46 31 3a 4c 44 59  |Y#0:JSR&FFF1:LDY|
00000230  23 38 3a 2e 73 63 72 6f  6c 6c 20 53 54 59 26 37  |#8:.scroll STY&7|
00000240  34 0d 00 50 d5 4c 44 59  23 37 3a 2e 6c 70 32 20  |4..P.LDY#7:.lp2 |
00000250  4c 44 41 23 26 37 38 3a  53 54 41 26 37 32 3a 4c  |LDA#&78:STA&72:L|
00000260  44 41 23 26 36 39 3a 53  54 41 26 37 33 3a 4c 44  |DA#&69:STA&73:LD|
00000270  41 26 37 36 2c 59 3a 41  53 4c 41 3a 53 54 41 26  |A&76,Y:ASLA:STA&|
00000280  37 36 2c 59 3a 4c 44 58  23 33 39 3a 2e 6c 70 33  |76,Y:LDX#39:.lp3|
00000290  20 4c 44 41 28 26 37 32  29 2c 59 3a 52 4f 4c 41  | LDA(&72),Y:ROLA|
000002a0  3a 53 54 41 28 26 37 32  29 2c 59 3a 50 48 50 3a  |:STA(&72),Y:PHP:|
000002b0  4c 44 41 26 37 32 3a 53  45 43 3a 53 42 43 23 38  |LDA&72:SEC:SBC#8|
000002c0  3a 53 54 41 26 37 32 3a  42 43 53 6c 6f 77 3a 44  |:STA&72:BCSlow:D|
000002d0  45 43 26 37 33 3a 2e 6c  6f 77 20 50 4c 50 3a 44  |EC&73:.low PLP:D|
000002e0  45 58 3a 42 50 4c 6c 70  33 3a 44 45 59 3a 42 50  |EX:BPLlp3:DEY:BP|
000002f0  4c 6c 70 32 3a 50 4c 41  3a 54 41 59 3a 50 4c 41  |Llp2:PLA:TAY:PLA|
00000300  3a 54 41 58 3a 50 4c 41  3a 50 4c 50 3a 52 54 53  |:TAX:PLA:PLP:RTS|
00000310  3a 5d 3a ed 3a e1 0d 00  5a 6c dd f2 72 65 61 64  |:]:.:...Zl..read|
00000320  3a de 54 25 32 30 34 38  3a ea 41 25 2c 42 25 2c  |:.T%2048:.A%,B%,|
00000330  43 25 2c 41 24 3a f7 8d  44 64 40 3a 41 25 3d 54  |C%,A$:..Dd@:A%=T|
00000340  25 3a f3 42 25 3a e3 43  25 3d 31 b8 42 25 3a f3  |%:.B%:.C%=1.B%:.|
00000350  41 24 3a e3 42 25 3d 31  b8 a9 28 41 24 29 3a 3f  |A$:.B%=1..(A$):?|
00000360  41 25 3d 97 28 c1 41 24  2c 42 25 2c 31 29 29 3a  |A%=.(.A$,B%,1)):|
00000370  41 25 3d 41 25 2b 31 3a  ed 2c 3a 3f 41 25 3d 30  |A%=A%+1:.,:?A%=0|
00000380  3a e1 0d 00 64 07 dc 20  34 0d 00 6e 30 dc 20 22  |:...d.. 4..n0. "|
00000390  54 68 69 73 20 69 73 20  54 68 65 20 57 65 6c 64  |This is The Weld|
000003a0  65 72 20 6f 66 20 46 61  69 74 68 20 74 79 70 69  |er of Faith typi|
000003b0  6e 67 20 68 65 72 65 20  22 0d 00 78 30 dc 20 22  |ng here "..x0. "|
000003c0  66 6f 72 20 79 6f 75 72  20 65 78 74 72 65 6d 65  |for your extreme|
000003d0  20 70 6c 65 61 73 75 72  65 2e 20 20 54 68 69 73  | pleasure.  This|
000003e0  20 69 73 20 61 20 31 20  22 0d 00 82 35 dc 20 22  | is a 1 "...5. "|
000003f0  70 69 78 65 6c 20 73 63  72 6f 6c 6c 65 72 20 75  |pixel scroller u|
00000400  73 69 6e 67 20 61 20 6d  61 63 68 69 6e 65 20 63  |sing a machine c|
00000410  6f 64 65 20 72 6f 74 61  74 69 6f 6e 20 22 0d 00  |ode rotation "..|
00000420  8c 63 dc 20 22 74 6f 20  67 65 74 20 70 69 78 65  |.c. "to get pixe|
00000430  6c 20 61 63 63 75 72 61  63 79 2e 20 20 4e 6f 74  |l accuracy.  Not|
00000440  65 20 61 6c 73 6f 20 74  68 61 74 20 74 68 69 73  |e also that this|
00000450  20 73 63 72 6f 6c 6c 65  72 20 69 73 20 66 75 6c  | scroller is ful|
00000460  6c 20 73 63 72 65 65 6e  20 77 69 64 74 68 21 21  |l screen width!!|
00000470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000480  22 0d ff                                          |"..|
00000483