ô > Simple2 : : ( Ýòass 2mc%=mc%:çmc%:á <Þ mc% &200 Fstatus=&FCF0:data=&FCF1 P#Clock=&70:Start=&75:pointer=&7A Z ã P=0 ¸ 1 d P%=mc% n [OPT P*3 x.rec ‚JSR GetClockStart Œ: – .rclp  BIT &FF:BMI done ªLDA status:€ #1:BEQ rclp ´LDA data:PHA ¾%LDX #Clock € 255:LDY #Clock 256 ÈLDA #1:JSR &FFF1 ÒLDY #0:LDX #&FB:SEC Ü .rclp2 æ#LDA Clock-&FB,X:SBC Start-&FB,X ðSTA (pointer),Y:INY úINX:BNE rclp2 PLA:STA (pointer),Y:INY LDA #0:STA (pointer),Y &LDA pointer:CLC:ADC #6:STA pointer "&LDA pointer+1:ADC #0:STA pointer+1 , BPL rclp 6 .done @RTS J: T .play ^JSR GetClockStart h: r .playLp |BIT &FF:BMI done †%LDX #Clock € 255:LDY #Clock 256 LDA #1:JSR &FFF1 šLDY #0:LDX #&FB:SEC ¤ .playLp3 ®#LDA Clock-&FB,X:SBC Start-&FB,X ¸STA Clock-&FB,X ÂINX:BNE playLp3 ÌLDX #&FB:SEC Ö .playLp4 à#LDA Clock-&FB,X:SBC (pointer),Y êINY:INX:BNE playLp4 ôBCS playLp þLDA (pointer),Y:STA data &LDA pointer:CLC:ADC #6:STA pointer &LDA pointer+1:ADC #0:STA pointer+1 BPL playLp &: 0: :: D.GetClockStart NJSR RdClock XLDX #&FB:.recLp0 b#LDA Clock-&FB,X:STA Start-&FB,X lINX:BNE recLp0:RTS v: € .RdClock Š%LDX #Clock € 255:LDY #Clock 256 ”LDA #1:JMP &FFF1 ž: ¨]í ²á ÿ