4801-   A9 03       LDA   #$03
4803-   8D 00 9C    STA   $9C00
4806-   AD 30 BF    LDA   $BF30
4809-   8D 01 9C    STA   $9C01
480C-   A9 9A       LDA   #$9A
480E-   8D 03 9C    STA   $9C03
4811-   A9 00       LDA   #$00
4813-   8D 02 9C    STA   $9C02
4816-   8D 04 9C    STA   $9C04
4819-   8D 05 9C    STA   $9C05
481C-   20 00 BF    JSR   $BF00    P8:READ_BLOCK(3:Unit/1,Buff,BlkNum)
481F-   80                $80
4820-   00 9C             $9C00
4822-   B0 10       BCS   $4834
4824-   EE FE 9B    INC   $9BFE
4827-   AD FE 9B    LDA   $9BFE
482A-   C9 09       CMP   #$09
482C-   F0 08       BEQ   $4836
482E-   20 00 BF    JSR   $BF00    P8:WRITE_BLOCK(3:Unit/1,Buff,BlkNum)
4831-   81                $81
4832-   00 9C             $9C00
4834-   F0 5B       BEQ   $4891
4836-   A9 00       LDA   #$00
4838-   8D A0 9C    STA   $9CA0
483B-   AC A0 9C    LDY   $9CA0
483E-   CC 31 BF    CPY   $BF31
4841-   10 3A       BPL   $487D
4843-   B9 32 BF    LDA   $BF32,Y
4846-   D0 06       BNE   $484E
4848-   EE A0 9C    INC   $9CA0
484B-   18          CLC
484C-   90 ED       BCC   $483B
484E-   8D 01 9C    STA   $9C01
4851-   A9 00       LDA   #$00
4853-   8D 04 9C    STA   $9C04
4856-   8D 05 9C    STA   $9C05
4859-   20 00 BF    JSR   $BF00    P8:READ_BLOCK(3:Unit/1,Buff,BlkNum)
485C-   80                $80
485D-   00 9C             $9C00
485F-   B0 09       BCS   $486A
4861-   AD FF 9B    LDA   $9BFF
4864-   C9 DC       CMP   #$DC
4866-   F0 12       BEQ   $487A
4868-   A2 FF       LDX   #$FF
486A-   E8          INX
486B-   8E 04 9C    STX   $9C04
486E-   20 00 BF    JSR   $BF00    P8:WRITE_BLOCK(3:Unit/1,Buff,BlkNum)
4871-   81                $81
4872-   00 9C             $9C00
4874-   B0 04       BCS   $487A
4876-   E0 0F       CPX   #$0F
4878-   D0 F0       BNE   $486A
487A-   18          CLC
487B-   90 CB       BCC   $4848
487D-   A0 FF       LDY   #$FF
487F-   AD 30 C0    LDA   $C030    rw:SPKR
4882-   A9 01       LDA   #$01
4884-   20 A8 FC    JSR   $FCA8    F8ROM:WAIT
4887-   A9 03       LDA   #$03
4889-   20 A8 FC    JSR   $FCA8    F8ROM:WAIT
488C-   88          DEY
488D-   C0 00       CPY   #$00
488F-   D0 EE       BNE   $487F
4891-   4C 47 20    JMP   $2047