* = $0400
0400 START  
0400        SED             F8
0401        CLC             18
0402        LDX #$00        A2 00
0404        LDA #$01        A9 01
0406        STA *$29        85 29
0408 NEXTD  
0408        LDY #$00        A0 00
040A        LDA *$29        A5 29
040C        ADC *$24,X      75 24
040E        STA *$24,X      95 24
0410        CMP CARRYT,X    DD 32 04
0413        BEQ CONTIN      F0 06
0415        LDY *$24,X      B4 24
0417        LDA #$00        A9 00
0419        STA *$29        85 29
041B CONTIN 
041B        STY *$24,X      94 24
041D        STY *$F9,X      94 F9
041F        INX             E8
0420        CPX #$03        E0 03
0422        BNE NEXTD       D0 E4

0424        LDA #$45        A9 45
0426        STA *$28        85 28
0428 L1     

0428        JSR $1F1F       20 1F 1F

042B        DEC *$28        C6 28
042D        BNE L1          D0 F9

042F        JMP START       4C 00 04


0432 CARRYT 
0432 .BYTE $60              60
0433 .BYTE $60              60
0434 .BYTE $24              24