.BA $7700
           .OS
ID         .DE $9A
SAL        .DE $9B
SAH        .DE $9C
EAL        .DE $9D
EAH        .DE $9E
MODE       .DE $FD
LATCHL     .DE $A004
OUTBYT     .DE $82FA
COMMA      .DE $833A
SPACE      .DE $8342
CRLF       .DE $834D
OUTCHR     .DE $8A47
TSTAT      .DE $8B3C
ACCESS     .DE $8B86
EX10       .DE $8D4E
SYNC       .DE $8D52
START      .DE $8DA9
RDCHTX     .DE $8DE1
RDBYTH     .DE $8DE5
RDBYTX     .DE $8E26
BEGIN      JSR ACCESS
           LDY #$80
NXT.FILE   JSR START
           LDA #$1F
           STA LATCHL
FIND       JSR SYNC
READ       JSR RDCHTX
           CMP #'*
           BEQ TEST
           CMP #$16
           BNE FIND
           BEQ READ
TEST       LDA *MODE
           AND #$BF
           STA *MODE
           JSR RDBYTX
           STA *ID
           JSR RDBYTX
           STA *SAL
           JSR RDBYTX
           STA *SAH
           JSR RDBYTH
           STA *EAL
           JSR RDBYTH
           STA *EAH
           JSR CRLF
           LDA #'.
           JSR OUTCHR
           LDA #'S
           JSR OUTCHR
           LDA #'2
           JSR OUTCHR
           JSR SPACE
           LDA *ID
           JSR OUTBYT
           JSR COMMA
           LDA *SAH
           JSR OUTBYT
           LDA *SAL
           JSR OUTBYT
           JSR COMMA
           DEC *EAL
           LDA *EAL
           CMP #$FF
           BNE CONT
           DEC *EAH
CONT       LDA *EAH
           JSR OUTBYT
           LDA *EAL
           JSR OUTBYT
           JSR CRLF
           JMP EX10