2000-   A9 0A       LDA   #$0A
2002-   8D 00 65    STA   $6500
2005-   A9 00       LDA   #$00
2007-   8D 01 65    STA   $6501
200A-   A9 40       LDA   #$40
200C-   8D 02 65    STA   $6502
200F-   20 00 BF    JSR   $BF00    P8:GetFileInfo(10:pn,a/1,t/1,x,s/1,b,mDTcDT)
2012-   C4                $C4
2013-   00 65             $6500
2015-   B0 2C       BCS   $2043
2017-   AD 0B 65    LDA   $650B
201A-   29 FE       AND   #$FE
201C-   6A          ROR
201D-   8D 00 20    STA   $2000
2020-   AD 0B 65    LDA   $650B
2023-   29 01       AND   #$01
2025-   2A          ROL
2026-   2A          ROL
2027-   2A          ROL
2028-   8D 01 20    STA   $2001
202B-   AD 0A 65    LDA   $650A
202E-   29 E0       AND   #$E0
2030-   2A          ROL
2031-   2A          ROL
2032-   2A          ROL
2033-   2A          ROL
2034-   4D 01 20    EOR   $2001
2037-   8D 01 20    STA   $2001
203A-   AD 0A 65    LDA   $650A
203D-   29 1F       AND   #$1F
203F-   8D 02 20    STA   $2002
2042-   60          RTS
2043-   8D 01 20    STA   $2001
2046-   A9 DC       LDA   #$DC
2048-   8D 00 20    STA   $2000
204B-   60          RTS