Вечером страдал фигней, решил реализовать одну идею, но так и не втиснулся в 16 байт. Исходник не сохранился, поэтому публикую дизассемблер из отладчика эмулятора
TIP: Type '?' for help, 'CONT' to exit
312 3 0609 BCC $0607 (Y) A=02 S=fb X=00 Y=ff P=--*B--Z-
> d 600
0600 LDA #$10 ; 2cyc ; A9 10
0602 LDX #$00 ; 2cyc ; A2 00
0604 STX $02F4 ;CHBAS ; 4cyc ; 8E F4 02
0607 LSR $14 ;RTCLOK+2 ; 5cyc ; 46 14
0609 BCC $0607 ; 2cyc ; 90 FC
060B CMP #$80 ; 2cyc ; C9 80
060D ROL ; 2cyc ; 2A
060E STA $00,X ; 4cyc ; 95 00
0610 INX ; 2cyc ; E8
0611 CPX #$09 ; 2cyc ; E0 09
0613 BNE $060B ; 2cyc ; D0 F6
0615 BEQ $0602 ; 2cyc ; F0 EB
0617 BRK ; 7cyc ; 00
0618 BRK ; 7cyc ; 00
0619 BRK ; 7cyc ; 00
061A BRK ; 7cyc ; 00
061B BRK ; 7cyc ; 00
061C BRK ; 7cyc ; 00
061D BRK ; 7cyc ; 00
061E BRK ; 7cyc ; 00
061F BRK ; 7cyc ; 00
0620 BRK ; 7cyc ; 00
0621 BRK ; 7cyc ; 00
0622 BRK ; 7cyc ; 00
312 3 0609 BCC $0607 (Y) A=02 S=fb X=00 Y=ff P=--*B--Z-
> d 600
0600 LDA #$10 ; 2cyc ; A9 10
0602 LDX #$00 ; 2cyc ; A2 00
0604 STX $02F4 ;CHBAS ; 4cyc ; 8E F4 02
0607 LSR $14 ;RTCLOK+2 ; 5cyc ; 46 14
0609 BCC $0607 ; 2cyc ; 90 FC
060B CMP #$80 ; 2cyc ; C9 80
060D ROL ; 2cyc ; 2A
060E STA $00,X ; 4cyc ; 95 00
0610 INX ; 2cyc ; E8
0611 CPX #$09 ; 2cyc ; E0 09
0613 BNE $060B ; 2cyc ; D0 F6
0615 BEQ $0602 ; 2cyc ; F0 EB
0617 BRK ; 7cyc ; 00
0618 BRK ; 7cyc ; 00
0619 BRK ; 7cyc ; 00
061A BRK ; 7cyc ; 00
061B BRK ; 7cyc ; 00
061C BRK ; 7cyc ; 00
061D BRK ; 7cyc ; 00
061E BRK ; 7cyc ; 00
061F BRK ; 7cyc ; 00
0620 BRK ; 7cyc ; 00
0621 BRK ; 7cyc ; 00
0622 BRK ; 7cyc ; 00
Комментарии
Отправить комментарий