DEFINE  DefaultConsoleScreenAddress, 100000
DEFINE  ROMAddress, 65536
DEFINE  BootPage, 128

    MOV ESI, loading //outputs loading
    CALL writemsg //calls write message

//begin load
    OUT 1, ROMAddress
    MOV EAX, ROMAddress
    MOV EBX, BootPage
    SRL 1, 1
startload:
    MOV #EBX, #EAX //swap byte
    INC EAX //next byte
    INC EBX //next byte
    INC ECX //byte counter
    OUT 0, ECX //debug
    OUT 1, #EAX //debug
    CMP ECX, 3000 //if count is lower than program size
    JL startload //do it again
//end load
    MOV ESI, loaddone //outputs load is finished
    CLI
    CALL writemsg //calls write message
    //CPUSET 46, 10000
    //MOV DS, 128
    //MOV SS, 512
    CALLF 0, BootPage //goto boot program


//write message function
writemsg:
    MOV EAX, 65536
    ADD EAX, DefaultConsoleScreenAddress
    MOV [EAX+2041], 1//Clear
    MOV [EAX+2042], 000
    //MOV ESI, message
nextchar:
    MOV #EAX, #ESI
    INC EAX
    MOV #EAX, 000999
    INC EAX
    INC ESI
    CMP #ESI, 0
    JNE nextchar
RET

//presets
loading: db 'Loading program... \n', 0; //21
loaddone: db 'loading finished \n', 0;