10 *= 19556
12 .S
14 .P
16 .D ML.ROLLER..
18 JMP L100
20 ADR .BYTE 32 45
24 CNT .BYTE 0
100 L100 LDX CNT:INX:STX CNT:CPX #2:BEQ L110:JMP DONE
110 L110 LDA ADR:STA 2:LDA ADR+1:STA 3
120 LDY #0:LDA (2),Y:ASL:ADC #0:ASL:ADC #0:STA (2),Y
130 LDY #15:STA (2),Y
140 LDY #1:LDA (2),Y:ASL:ADC #0:ASL:ADC #0:STA (2),Y
150 LDY #14:STA (2),Y
160 LDY #6:LDA (2),Y:LSR:BCC L170
165 CLC:ADC #128
170 L170 LSR:BCC L180
175 CLC:ADC #128
180 L180 STA (2),Y:LDY #9:STA (2),Y
190 LDY #7:LDA (2),Y:LSR:BCC L200
195 CLC:ADC #128
200 L200 LSR:BCC L210
205 CLC:ADC #128
210 L210 STA (2),Y:INY:STA (2),Y
215 LDA #0:STA CNT
220 DONE RTS
999 .END TX.ROLLER..