Loading the loading screen from disk

;
;
;
;

.OSFILEDATA
.OSFD_Filename
    EQUB 0, 0
.OSFD_LoadAddress
    EQUB 0, 0, 0, 0
.OSFD_ExecutionAddress
    EQUB 0, 0, 0, 0
.OSFD_StartReadWriteOperations
    EQUB 0, 0, 0, 0
.OSFD_EndReadWriteOperations
    EQUB 0, 0, 0, 0

.TitleScreenFilename
    EQUS "tscr", 13

.LoadTitleScreen
{
    ; Setup the parameter block
    LDX #0
    LDA #TitleScreenFilename MOD 256:STA OSFD_Filename
    LDA #TitleScreenFilename DIV 256:STA OSFD_Filename + 1

    LDA #SCREEN_START_MODE_2 MOD 256:STA OSFD_LoadAddress
    LDA #SCREEN_START_MODE_2 DIV 256:STA OSFD_LoadAddress + 1
    STX OSFD_LoadAddress + 2
    STX OSFD_LoadAddress + 3

    STX OSFD_ExecutionAddress
    STX OSFD_ExecutionAddress + 1
    STX OSFD_ExecutionAddress + 2
    STX OSFD_ExecutionAddress + 3

    STX OSFD_StartReadWriteOperations
    LDA #&50    ; &5000 == 20480 == 20K == Length of the title screen data
    STA OSFD_StartReadWriteOperations + 1
    STX OSFD_StartReadWriteOperations + 2
    STX OSFD_StartReadWriteOperations + 3

    STX OSFD_EndReadWriteOperations
    LDA #&80    ; End address of the data
    STA OSFD_EndReadWriteOperations + 1
    STX OSFD_EndReadWriteOperations + 2
    STX OSFD_EndReadWriteOperations + 3

    LDX #OSFILEDATA MOD 256
    LDY #OSFILEDATA DIV 256
    LDA #&FF    ; indicate to load the file direct to memory

    JSR OSFILE

    ; Titlescreen image should be displayed... I hope!

    RTS
}