mirror of
https://github.com/danbulant/Cosmos
synced 2026-05-20 04:48:53 +00:00
38 lines
575 B
Text
38 lines
575 B
Text
Group DebugStub
|
|
|
|
const VidBase = $B8000
|
|
|
|
function Cls {
|
|
// VidBase
|
|
ESI = #VidBase
|
|
|
|
// End of Video Area
|
|
// VidBase + 25 * 80 * 2 = B8FA0
|
|
while ESI < $B8FA0 {
|
|
// Text
|
|
ESI[0] = $00
|
|
ESI++
|
|
|
|
// Colour
|
|
ESI[0] = $0A
|
|
ESI++
|
|
}
|
|
}
|
|
|
|
function DisplayWaitMsg {
|
|
ESI = @..DebugWaitMsg
|
|
|
|
EDI = #VidBase
|
|
// 10 lines down, 20 cols in (10 * 80 + 20) * 2)
|
|
EDI + 1640
|
|
|
|
// Read and copy string till 0 terminator
|
|
AL = 1
|
|
while AL != 0 {
|
|
//while ESI[0] != 0 {
|
|
AL = ESI[0]
|
|
EDI[0] = AL
|
|
ESI++
|
|
EDI + 2
|
|
}
|
|
}
|