:bootstartup
;install quietinstall
ext extlib.eld alias.eld install
alias add fred boot protocol freedos fda
alias add edr boot protocol ldos fda/edrdos.com
; alias add ldos boot protocol ldos fda/lmsdos.com
; alias add ldos boot protocol ldos
alias add ldos boot protocol ldos . .
alias add tepe tp cccccc while cs != 70 silent 1
alias add seri install serial timer
alias add dmm dm word [ri31s:24]
alias add denv d word [es:bx]:0
alias add zap if (byte [cs:ip - 1] == CC) then e cs:ip - 1 90
ext extlib.eld dm.eld install
rc.abort
; rc.replace ldos; g; r f cy; tp FFFFFF while cs == 70 silent 1; r v0 = cs; tp FFFFFF while cs == v0 silent 1
; rc.replace ldos; g; r f CY; g ptr ri13p; g ptr [ss:sp]; r ah 2; tp FFFFF while cs < 4000 silent 1; g 6629:2F45
; rc.replace ldos; g; r f CY; g ptr ri13p; g ptr [ss:sp]; r ah 2; tp FFFFF while cs < 4000 silent 1
; rc.replace ldos; tp FFFFFF while cs != 70 silent 1; r word [0:413] = #71; g; r f CY
rc.replace ldos; tp FFFFFF while cs != 70 silent 1; r word [0:413] = #45; g; r f CY
@ext quit.eld install
@install quickrun
boot protocol freedos segment=54 minpara=1 testzero.bin
@:applicationstartup
@:devicestartup
@?version
@install getinput