Group DebugStub

procedure Cls {
	// VidBase
    ESI = $B8000
    
BeginLoop:
	// Text
    AL = $00
    ESI[0] = AL
    ESI++

	// Colour
    AL = $0A
    ESI[0] = AL
    ESI++
	
	// End of Video Area
	// VidBase + 25 * 80 * 2 = B8FA0
	If ESI < $B8FA0 goto BeginLoop
}

procedure DisplayWaitMsg {
    // http://wiki.osdev.org/Text_UI
    // Later can cycle for x changes of second register:
    // http://wiki.osdev.org/Time_And_Date
    
	ESI = @..DebugWaitMsg

	// VidBase
    EDI = $B8000
    // 10 lines down, 20 cols in (10 * 80 + 20) * 2)
    EDI + 1640

    // Read and copy string till 0 terminator
ReadChar:
    AL = ESI[0]
    if AL = 0 exit
    ESI++
    EDI[0] = AL
    EDI + 2
    Goto ReadChar
}