M@*мdЬTМDј 4¬$њЊ|фlд\ФLД€‰Ъ‰ЁЉv‹DЊЌаЌ®Ћ|ЏJђ‘ж‘ґ’‚“P”•м•є–€—V$™т™АљЋ›\њ*ќшќЖћ”џb 0ЎюЎМўљЈh¤6Ґ¦Т¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюњ™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю6?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ЩфNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎющ€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюјеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%V»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю+uґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЙКNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЊ§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю`NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ©NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&иNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю,м#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюъыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю 0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюї–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюS.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюp!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю!љNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю'0ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю-ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюclNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю @cNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю¬ЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюй¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю"П,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю( зNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю.ЉANNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюP]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюsRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюџкNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю5LNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЪ‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю#ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю)ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю/№pNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюкЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюК№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%rNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЏФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$eЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю*F…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю0Є=NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNpNNNNNNNэЂЛЃ™‚gѓ5„…С…џ†m‡;€ ‰Ч‰ҐЉs‹AЊЌЭЌ«ЋyЏGђ‘г‘±’“M”•й•·–…—S!™п™Ѕљ‹›Yњ'ќхќГћ‘џ_ -ЎыЎЙў—Јe¤3Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю«©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю оДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюОёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю!sNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю‹ХNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%a‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю+B„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎююъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю»—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюW/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюt NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ћ~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&4ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю,ЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюНЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю "NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю€¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю!ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю'йNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю-и"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюT\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю wSNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю›лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю1MNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЮ†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю"шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю(ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю.ЅqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюgmNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюDbNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЁЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюн·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю#Л-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю)$жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю/Ћ@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю2>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЭхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюэ‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюBNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюёдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$RєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю*qµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю0ќ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNЃОЃ›‚hѓ6„…Т… †n‡<€ ‰Ц‰¤Љr‹@ЊЌЫЌ©ЋwЏEђ‘б‘Ї’}“K”•е•і–Ѓ—O™л™№љ‡›Uњ#ќсќїћЋџ\ +ЎшЎЖў”Јb¤0ҐюҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюENNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHBIO300 Z80Ђ HBIO300 Z80Ђ HBIO305 Z80ЂHBIO305 Z80Ђ !лТяNNNNNNNNNNNNNNNNNЎЎЎюгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHBIO310 Z80Ђ¦§Ё©Є«¬HBIO310 Z80w®Ї°±ІіґµHBIO311 Z80Ђ¶·ё№є»јЅHBIO311 Z80ЂѕїАБВГДЕTkя‰NNNNNNNNNNNNNNNNЎЎЎю B(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыFBIO306 Z80ЂSTUVWXYZFBIO306 Z80Ђ[\]^_`abFBIO306 Z80ЂcdefghijFBIO306 Z800klmz!яNNNNNNNNNNNNNNNNЎЎЎюbTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЌџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю'9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%НgNNNNNNNNNNNNNNNNNNNNNNЎЎЎыENTIAL CODE) LSTINC EQU FALSE ;LIST INCLUDE FILES HARDBT EQU TRUE ;HARD DISK BOOT (FALSE= FLOPPY BOOT) USEMON EQU TRUE ;USы=яnNNNNNNNNNNNNNNNNNЎЎЎю+оhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3 OF HARD DISK PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 S„я'NNNNNNNNNNNNNNNNNЎЎЎюRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHBIO305 Z80n"#$%&'(BIOSFUNSDOC)*HBIO314 Z80Ђ+,-./01uHBIO313 Z80Ђ23456789TiягNNNNNNNNNNNNNNNNNЎЎЎюЅЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHBIO311 Z80UЖЗИЙКЛFBIO305 Z80ЂМНОПРСТУFBIO305 Z80ЂФХЦЧШЩЪЫFBIO305 Z80nЬЭЮЯабвњядNNNNNNNNNNNNNNNNЎЎЎю{NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыBFTST C hnopqrstHBIO314 Z80Ђvwxyz{|}HBIO314 Z80Ђ~ЂЃ‚ѓ„…HBIO314 Z80'†‡€ ЭяІNNNNNNNNNNNNNNNNЎЎЎюыГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюШМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю 2’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE INTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CAL+–яюNNNNNNNNNNNNNNNNNNЎЎЎю,wяNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; E JADE 8" FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ; G JADE 5" FLOPPY PHYSICAL DRIVE 0 ; H JADEиeяrNNNNNNNNNNNNNNNЎЎЎюa'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHBIO313 Z80Ђ:;<=>?@AHBIO313 Z80ЂBCDEFGHIHBIO313 Z80&JKLHBIO315 Z80ЂMNOPQRSTњЅярNNNNNNNNNNNNNNNNNЎЎЎю ЋмNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFBIO313 Z80ЂгдежзийкFBIO313 Z80ЂлмнопрстFBIO313 Z80ЂуфхцчшщъFBIO313 Z80/ыьэЭAяОNNNNNNNNNNNNNNNNNЎЎЎю$JNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHBIO302 Z80ЂЋЏђ‘’“”•HBIO302 Z80Ђ–—™љ›њќHBIO302 Z80lћџ ЎўЈ¤FBIO301 Z80ЂҐ¦§Ё©Є«¬ЪяHBIO309 Z80Ђ?@ABCDEFHBIO309 Z80tGHIJKLMNHBIO300 Z80^OPQRЊЌY_яЙNNNNNNNNNNNNNNNNЎЎЎюQeNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюѕ®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$юVNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAGS ; ;============================================================================ SHORT EQU TRUE ;SHORT BIOS (REMOVES UNESAµяВNNNNNNNNNNNNNNNNЎЎЎю*ЭYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CPM ; DRIVE USAGE IF BOOT = 'H' ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 7Јя|NNNNNNNNNNNNNNNNЎЎЎю01бNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ENDIF IF BOOT = 5 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ; As+яNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNэЂЛЃљ‚gѓ5„…С…џ†m‡;€ ‰Ч‰¤Љq‹@ЊЌЬЌ«ЋyЏGђ‘г‘°’“M”•й•·–…—S!™п™ЅљЉ›Xњ&ќфќБћЏџ\ *ЎчЎЕў“Јa¤.ҐьҐК¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю0uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SЅVюrNNNNNNNNNNNNNNNNЎЎЎюљУNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRIVER, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHAN\Ќя_ЋNNNNNNNNNNNNNNNNNЎЎЎю uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыy ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to relate to ISASI control of JADE ; FDC. ; Change IOPB sector 5BяINNNNNNNNNNNNNNNNЎЎЎюUdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыoppy firmware support. ; Implemented disk drive driver tables and new function to return ; a ptr to a drive table. ; RemovedQ®юHNNNNNNNNNNNNNNNNЎЎЎюєЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; PAGE0: EQU 0 ;START OF CP/M RAM ЂтюNNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOOT = 'H' LASTSEC EQU 46 + 1 ;LAST BOOT SECTOR ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRИьюNNNNNNNNNNNNNNNNNЎЎЎю%ъWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQ}™юNNNNNNNNNNNNNNNNNЎЎЎю+ЩXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;============================================================================ CALROM EQU 7 ;CALENDAR ROM SELECT # RDBENT EQU eю9NNNNNNNNNNNNNNNNЎЎЎюe&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL KЇюNNNNNNNNNNNNNNNNNNЎЎЎюЉнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MODULES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALJDю‰NNNNNNNNNNNNNNNNЎЎЎю KNNNNNNNNNNNNNNNNNNNNNNЎЎЎыvalue from physical sector (1..n) to logical ; sector value (0..n-1). This maintains more uniformity in ; parameter pass8rюьNNNNNNNNNNNNNNNNNЎЎЎюМуNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; Moved system down to 60k. ; VERSN EҐРю$NNNNNNNNNNNNNNNNЎЎЎюпьNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR DKPROM EQU PAGE0 + 40H ;DISK PRIMITIVES PROaюrNNNNNNNNNNNNNNNNЎЎЎю ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ST5FD EQU 6 ;SЬJюяNNNNNNNNNNNNNNNNNЎЎЎю&ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ST5FD EQU 6 ;START LOGICAL DRIVE OF 5" FLOPPY ND5FD EQU 7 ;LAST LOGICAL DRIVE OF 5" FL[юNNNNNNNNNNNNNNNNNNЎЎЎю,@ПNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы0F800H ;READ CLOCK BUFFER ENTRY SETENT EQU RDBENT + 3 ;SET CLOCK ENTRY CALENT EQU RDBENT + 6 ;RETURN CALENDAR ENTRY TIMENT EПEяИNNNNNNNNNNNNNNNNЎЎЎюVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE 1 ENDIF ; ;************************************************************* ; REVISIONS: ; ; 2.2.0 - RELEASE ; PЪюђNNNNNNNNNNNNNNNNNЎЎЎю №ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 SEP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM syste°яяNNNNNNNNNNNNNNNNЎЎЎюzNNNNNNNNNNNNNNNNNNNNNNЎЎЎыing between hard disk & JADE floppy IOPBs. ; Vector I/O routines to monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add beѕ‹юNNNNNNNNNNNNNNNNNЎЎЎюяВNNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU '00' ; ;**************************************************************************** SUBTTL SYSTEM DECLARATIONS ;=====mюrNNNNNNNNNNNNNNNNЎЎЎюЬНNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM # (STORED BY DKBOOT) DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER TPA: EQU 100H ;============================================{кюNNNNNNNNNNNNNNNNNЎЎЎю!6“NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTART LOGICAL DRIVE OF 5" FLOPPY ND5FD EQU 7 ;LAST LOGICAL DRIVE OF 5" FLOPPY ENDIF IF BOOT = 8 LASTSEC EQU 45 ;LAST q°яzNNNNNNNNNNNNNNNNЎЎЎю'њ5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPPY ENDIF ;============================================================================ ; ; THE FOLLOWING 2 PARAMETE2UюсNNNNNNNNNNNNNNNNNЎЎЎю-sюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU RDBENT + 9 ;RETURN TIME ENTRY DKPENT EQU RDBENT + 0CH ;DISK PRIMITIVES ENTRY ;=========================================ѓЬю“NNNNNNNNNNNNNNNNNЎЎЎюПЂNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; LARGER BIOS ALLOCATION ON THE DISK. ; ; 2.2.4 - ADDED NAKED T¶/яИNNNNNNNNNNNNNNNNЎЎЎю мЏNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыm 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SEP 83 GRH ; Move clock-calendar routines to ROM. Add Interrup[^юЙNNNNNNNNNNNNNNNNЎЎЎю7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыlls & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR 85 GRH ; Implemented hard disk drive 1 as C: & D:. ; ImplemsWюЯNNNNNNNNNNNNNNNNNЎЎЎюЄ‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================================================= ; ; DISK OPERATING SYSTEM ADDRESSES ; ;===========эюNNNNNNNNNNNNNNNNNЎЎЎюEZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================ ; ; OTHER DECLARATIONS ; ;=================================================================’`юNNNNNNNNNNNNNNNNNЎЎЎю"cАNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBOOT SECTOR ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;STARTКjюNNNNNNNNNNNNNNNNNNЎЎЎю(ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRS MUST REFLECT THE MAX DISK SIZE & ; THE MAX DIRECTORY SIZE. ; ;============================================================дЪюЯNNNNNNNNNNNNNNNNЎЎЎю.&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================== ; ; ASCII CHARS ; ;===================================================================== ~ятNNNNNNNNNNNNNNNNNЎЎЎюь±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. ALSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS Щтю!NNNNNNNNNNNNNNNNЎЎЎюЯѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыt handler ; (Mode 2). Change Revision display of sign-on (separate CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard Bэю NNNNNNNNNNNNNNNNNЎЎЎю3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыented the Logon function for the hard disk. ; Implemented user friendly disk error options: Abort, Retry, Ignore. ; Solved warr€ящNNNNNNNNNNNNNNNNЎЎЎю™ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================================= NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMS“qятNNNNNNNNNNNNNNNNNЎЎЎюvkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=========== DEFIOB: EQU 80H ;INITIAL IOBYTE VALUE (LPT ON) DFDRV: EQU 0 ;INITIAL DEFAULT DRIVE SECSZ: EQU 128 NDRVS: EQU 8ыsюNNNNNNNNNNNNNNNNЎЎЎю#PсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ST5FD EQU 6 ;START LOGICAL DRIVE OF 5" FLOPPY ND5F …юBNNNNNNNNNNNNNNNNЎЎЎю)ї:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================ ALLSIZ EQU 33 ;ALLOCATION BIT MAP SIZE (1 BYTE PER 8 CLUSTERS) CHKSIZ EQU 32 ;DIRECTORY CHECKSUMS ARRAY SIZђФяВNNNNNNNNNNNNNNNNЎЎЎю/њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы======= LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;==========================================================================счюNNNNNNNNNNNNNNNNNЎЎЎю©вNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.2.6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PЏїюINNNNNNNNNNNNNNNNЎЎЎюF)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыdisk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to reflect half size directory, but keep ; allocation for 1k directorЏCю NNNNNNNNNNNNNNNNЎЎЎюfUNNNNNNNNNNNNNNNNNNNNNNЎЎЎыm boot hang problem by reseting host adapter if busy. ; ; 3.00 - 26 JAN 87 GRH ; Implemented new common IOPB code & Jade flDяюNNNNNNNNNNNNNNNNNЎЎЎю‰ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + hAюNNNNNNNNNNNNNNNNNЎЎЎю#8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BTDIRS EQU 2 + 1 ;HARD DISK SYSTEM TRACKS DIRECTORY SECTOR BTCCPO EQU 3 ;OFFSET TO CCP ENTRY IN SYS TRKS DIRECTORY IF B™юњNNNNNNNNNNNNNNNNЎЎЎю$ЙfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD EQU 7 ;LAST LOGICAL DRIVE OF 5" FLOPPY ENDIF IF BOOT = 5 LASTSEC EQU 19 ;LAST BOOT SECTOR ; STHD EQU 0 ;START LO” яОNNNNNNNNNNNNNNNNNЎЎЎю*кiNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE (1 BYTE PER DIR. SECTOR) ;============================================================================ ; ; ADDRESSES ; №›юцNNNNNNNNNNNNNNNNNЎЎЎю0СNNNNNNNNNNNNNNNNNNNNNNЎЎЎы== ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE JDDDISK.DEF ; INCLUDE MONBOARD.DEF ; INCLUDE IOBOARD.DEF ; INCzю~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@NNNNNNNNNЃПЃћ‚kѓ9„…Х…Ј†p‡=€‰Ъ‰§Љu‹DЊЌаЌЇЋ}ЏKђ‘и‘µ’„“R” •о•ј–Љ—V%™у™БљЋ›[њ)ќшќЕћ“џa 0ЎэЎЛў™Јg¤5Ґ¦С¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюqсNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOCK.DEF ; ;==================================================================]ЄяяNNNNNNNNNNNNNNNNNЎЎЎюЫWNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDјяАюNNNNNNNNNNNNNNNNNЎЎЎю 4њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP RETDVRT ;RETURN DRIVER TABLE ADътяnNNNNNNNNNNNNNNNNЎЎЎюаNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; ЖяђNNNNNNNNNNNNNNNNЎЎЎюы+NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; BOOT CCt›яьNNNNNNNNNNNNNNNNNЎЎЎюQЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;-------------------------------------------------Ы1яNNNNNNNNNNNNNNNNNЎЎЎю%»УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTER TO CLEAR HANG OUT (HCMD),A XOR A,A OUT (HCMD),A ; EX (SP),HL ; DELAY FOR HOST ADAPTER TO CATCH UP EX (SP),HL с—яNNNNNNNNNNNNNNNNNЎЎЎю+ЬNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыC,2 ;START WITH SECTOR #2 ENDIF LD B,0 CALL SETSEC ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERRORЩfятNNNNNNNNNNNNNNNNЎЎЎю$ўNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы========== LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB.DEF *INCLUDE JDDDISK.DEF *INCLUDE MONBOARD.DEF *INCLUDE IOBOARDFятNNNNNNNNNNNNNNNNЎЎЎюЛiNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыIF ENDIF ;; ENDM LIST ON ENDM SUBTTL BIOS CODE ORG BIOS ;-----------------------------------------------------чcя NNNNNNNNNNNNNNNNЎЎЎюaПNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDR INDEXED BY C FUNC ;############################################################################ ; ; THESE BOOT PARAMS MUЎняNNNNNNNNNNNNNNNNNNЎЎЎюЌwNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы CHECK FOR DISK CHANGE. ; ;############################################################################ DIRBF: EQU $ ;BUFFERsяHNNNNNNNNNNNNNNNNЎЎЎю®xNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP & BDOS ; JR WARM ;############################################################################ ; ; SIGN-ON MESSAGE _uяИNNNNNNNNNNNNNNNNЎЎЎю D&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------- WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; SET INTERRUPT MODEPnяяNNNNNNNNNNNNNNNNNЎЎЎю&оЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CALL HDXWT ; WHILE BUSY THEN WAIT NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DKPROM + 1) AND A,3 њOяNNNNNNNNNNNNNNNNNNЎЎЎю,KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THEN EXIT ; LD A,(BTSEC) ;IF LAST SECTOR THEN DONE CP A,LASTSEC JR NC,WZRPG ; INC A ;NEXT SECTOR LD (BTSEC),A ; цЈя“NNNNNNNNNNNNNNNNЎЎЎю“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INCLUDE CLOCK.DEF LIST ON ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'dяHNNNNNNNNNNNNNNNNNЎЎЎю шXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------- ; ; BIOS JUMP VECTOR TABLE ; ;--------------------------------------------------------------------фHяЂNNNNNNNNNNNNNNNNЎЎЎюRюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. ; THESE 2 WORDS ARE REFERENCEМзяNNNNNNNNNNNNNNNNNЎЎЎюѕFNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы BEGINNING ;---------------------------------------------------------------------------- ; ; INIT - COLD START ENTRY зVяОNNNNNNNNNNNNNNNNNЎЎЎюќINNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;############################################################################ MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0е°яNNNNNNNNNNNNNNNNNЎЎЎю!wNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(INTMSK) AND A,7FH OUT (INTMSK),A ; ; FINALLY ENABLE VECTOREЭуяъNNNNNNNNNNNNNNNNЎЎЎю'Э±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR IF BOOT = 'H' ; ; READ B6#я®NNNNNNNNNNNNNNNNNЎЎЎю-2zNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD DE,SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL JR WREAD ; ; ; WARM BOOT ERROR, OUTPUTОVязNNNNNNNNNNNNNNNNNЎЎЎюЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/nя“NNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP ж\яNNNNNNNNNNNNNNNNNNЎЎЎюAіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD BY THE BOOT CODE IN ; ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S LENGTH. ; ;######################################sOя@NNNNNNNNNNNNNNNNNЎЎЎюлNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFROM BOOT MUST SET ALL BIOS PARAMS ; ;---------------------------------------------------------------------------- INIT: ; кМяgNNNNNNNNNNNNNNNNNЎЎЎюЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers 3.' DM HIGH VERSN , LOW1zяВNNNNNNNNNNNNNNNЎЎЎю""DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD INTERRUPTS ; IN A,(MONSTS) OR A,MONIE OUT (MONSTS),A EI ENDIF ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ; ; {qяЙNNNNNNNNNNNNNNNNNЎЎЎю(НЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOOT DIRECTORY ; LD BC,DEFBFR CALL SETDMA LD BC,BTDIRS CALL SETSEC LD BC,0 ELSE LD BC,1 ENDIF CALL SETTR"–я_NNNNNNNNNNNNNNNNЎЎЎю.g)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; яйяNNNNNNNNNNNNNNNNNЎЎЎюЅ5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT я9NNNNNNNNNNNNNNNNЎЎЎюћ:NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыCOC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DгяNNNNNNNNNNNNNNNNЎЎЎюr‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD заяюNNNNNNNNNNNNNNNNЎЎЎюШ$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS ENABLED ; CALL GETMON ; ; INIT DсЁяNNNNNNNNNNNNNNNNNNЎЎЎю7пNNNNNNNNNNNNNNNNNNNNNNЎЎЎы VERSN,CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIR·яВNNNNNNNNNNNNNNNNЎЎЎю#uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 'H' ; TEST ISHA HOST ADAPTER FOR A HUNG CONDITION AND CLА<ядNNNNNNNNNNNNNNNNЎЎЎю)юѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK ; IF BOOT = 'H' CALL DISKRD JR NZ,WEROR ; ENDIF LD BC,CCP ;SET LOAD ADDR CALL SETDMA ; IF BOOT = 'H' y.яВNNNNNNNNNNNNNNNNЎЎЎю/TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTORИяяОNNNNNNNNNNNNNNNNNЎЎЎюиfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVEєяdNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP D€ящNNNNNNNNNNNNNNNNЎЎЎю'СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADDR FOR SBD INIT1: JR INIT ;############################################################################ ; ; DIRECTORY БѓяѕNNNNNNNNNNNNNNNNNЎЎЎюИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEFAULT DRIVE ; LD A,(DKPROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; CLOGЩвяяNNNNNNNNNNNNNNNNNЎЎЎюbјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------‰няNNNNNNNNNNNNNNNNNNЎЎЎю$€вNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEAR IF TRUE ; IN A,(HSTATUS) ;IF HOST ADAPTER BUSY THEN BIT HBUSYB,A JR Z,NTHUNG ; LD A,1 SHL HRESET ; RESET HOST ADA5lя“NNNNNNNNNNNNNNNNNЎЎЎю*«нNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,(DEFBFR + BTCCPO) ;GET START OF CP/M IMAGE FROM DIRECTORY INC A ;MAKE SECTOR {0..N} -> {1..N+1} LD C,A ELSE LD Х*яNNNNNNNNNNNNNNNNNЎЎЎю0GUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IN PAGE 0 ; LD HL,BDOS + 6 LD (PAGE0 + 5),A LD (PAGE0 + 6),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALLу}яьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNэЂЛЃ™‚gѓ5„…Р…ќ†k‡8€‰Ц‰¤Љq‹?ЊЌЫЌ©ЋwЏEђ‘а‘®’|“J”•д•І–Ђ—N™й™·љ…›Sњ ќоќ»ћ‰џW &ЎуЎБўЏЈ]¤+ҐщҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюFБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERгкярNNNNNNNNNNNNNNNNNЎЎЎюмgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKRD: LD A,DDRDS ;SELECT READ OP JR DISKOP ;+++++++++++++++ґЬююNNNNNNNNNNNNNNNNNЎЎЎю ¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO),HL ; LD A,DDLOG JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CO2ю'NNNNNNNNNNNNNNNNЎЎЎю#РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ER·…ядNNNNNNNNNNNNNNNNЎЎЎюМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN TO CALLER JR Z,DKOPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE I_;ю(NNNNNNNNNNNNNNNNNЎЎЎюfЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOGICAL DRIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD HLЦWюсNNNNNNNNNNNNNNNNЎЎЎю%ЊгNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* HDXWT: IN A,(HSTATUS) BIT HBUSYB,A RET Z JR HDXWT ;+++++++++++++++++++++#ю!NNNNNNNNNNNNNNNNЎЎЎю+ЇмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FETCH DRIVER EXECUTION ADDRESS ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER LD (DVRTPTR),HL ; ; PREFETCH DRIVER EXEC+гюHNNNNNNNNNNNNNNNNNЎЎЎю’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; IN A,(Cd¦яВNNNNNNNNNNNNNNNNЎЎЎюьYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++АіяяNNNNNNNNNNNNNNNNNЎЎЎюVяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMMON DISK I/O CODE ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ОЈюцNNNNNNNNNNNNNNNNNNЎЎЎюєGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROR ; LD HL,DSKEM ;OUTPUT PREFIX CALL EDITOR ; LD DE,IOPB + PBSTATO ;POINT TO ERROR BYTE LD B,6 ;OUTPUT 6 BYTES DSKEAJяоNNNNNNNNNNNNNNNNЎЎЎю™HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSK±’яВNNNNNNNNNNNNNNNNЎЎЎю sNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(IOPB + PBSECO) ADD HL,DE LD (IOPB + PBSECO),HL ; ; FINISH SETTING UP THE IOPB ; XPRIM: XOR A,A LD (IOPB + PBFLGO),ХюNNNNNNNNNNNNNNNNNЎЎЎю&Щ°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRJVюNNNNNNNNNNNNNNNNNNЎЎЎю,6{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUTION ADDRESS ; LD E,(HL) ;STORE ADDRESS INC HL LD D,(HL) INC HL LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ›JятNNNNNNNNNNNNNNNЎЎЎю ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLKDAT) ;IF CLOCK NOT PRESENT THEN TURN OFF CLOCK DRIVE AND A,11000000B ;TEST UNUSED BUT DRIVEN BITS (1S IF NOT THERE) LD A,3qюBNNNNNNNNNNNNNNNNЎЎЎю ПhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKWR: LD A,DDWRS ;SELECT WRITE OP JR DISKOP ћuюNNNNNNNNNNNNNNNNЎЎЎюeОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++ DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PBTRKO LD BC,PBSTATO - PBTRKO LDIR ; DISKOP2: LD (IOPB +ПюNNNNNNNNNNNNNNNNNЎЎЎю‰vNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR1: LD A,(DE) ;FETCH ERROR BYTE PUSH DE ;SAVE REGS PUSH BC CALL PRHEX ;OUTPUT ERROR CODE ; LD C,' ' CALL COC ; юNNNNNNNNNNNNNNNNЎЎЎюЄyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER: LD HL,0 ;RETURN DPB_PTR = 0 FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;++++++++++++++++++++++++eЃюBNNNNNNNNNNNNNNNNЎЎЎю!@'NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыA ;NO FLAGS FOR NOW ; LD HL,SECSZ ;SET XFER COUNT LD (IOPB + PBST4O),HL ; ; EXECUTE THE PRIMITIVE IN ROM ; PUSH IX ОмяЧNNNNNNNNNNNNNNNNЎЎЎю'кЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY- C= DRIVE # ; E= 0 IF NEVER LOGGED BEFORE ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++++++++++++++++++++++++++++++++++aёюNNNNNNNNNNNNNNNNNЎЎЎю-JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; COMPUTE DISK PARAMETER TABLE ADDRESS ; LD HL,(BTDRV) LD H,0 ADD HL,HL ;DISK # * 16 ADD HL,HL ADD HL,HL ADDТлюэNNNNNNNNNNNNNNNNNЎЎЎю№4NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы8H ;COND. JR (ON) JR Z,CLKON ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF !чятNNNNNNNNNNNNNNNNЎЎЎю љ;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK;ЋSюBNNNNNNNNNNNNNNNNЎЎЎюvѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PBCMDO),A ; ; DOUBLE CHECK DRIVE VALIDITY ; LD A,(BTDRV) CP A,NDRVS ;IF RANGE ERROR THEN ABORT JR NC,FDSKER ; ; ЊNяяNNNNNNNNNNNNNNNNNЎЎЎюЬ%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP BC ;RESTORE REGS POP DE INC DE ;NEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,DSKEB ;OUTPUT ERRORїясNNNNNNNNNNNNNNNNNЎЎЎю3оNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /њmюЙNNNNNNNNNNNNNNNNЎЎЎю"tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD IX,IOPB ;PASS PTR TO IOPB LD HL,DKPENT ;PRIMITIVE ENTRY LD A,(DKPROM) ;FETCH PROM # CALL EXROM ;EXECUTE THE PRIMITI|<яИNNNNNNNNNNNNNNNNNЎЎЎю(ъїNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++++ SELDSK: LD HL,0 ;ASSUME ERROR ; ; CHECK FOR LEGAL DRIVE ; LD A,C ;SET DRIVE # ±ЧюьNNNNNNNNNNNNNNNNЎЎЎю.PNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы HL,HL LD DE,D0DPH ADD HL,DE ; ; IF NO LOGON REQUEST THEN RETURN WITH TABLE PTR ; LD A,(LOGRQ) ;IF NOT_1ST_LOG_ON THE%ФюђNNNNNNNNNNNNNNNNNЎЎЎюЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL DISK ROUTINES ;++++++++++++++++++++++++++++++++IFюЙNNNNNNNNNNNNNNNNЎЎЎю© NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKLOG: LD HL,DEFBFR ;SET UP Dтёю$NNNNNNNNNNNNNNNNNЎЎЎюEІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ;FETCH TABLE BASE ; LD HL,DKOPREїdюьNNNNNNNNNNNNNNNNЎЎЎюпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MESSAGE CALL EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR nюІNNNNNNNNNNNNNNNNNЎЎЎюЯNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HDEXEC: ; ; CONVERGE LOGICAL DRIЛ«юЙNNNNNNNNNNNNNNNNЎЎЎю#&ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE POP IX ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PBSTATO) OR A,A RET ;**************************с©яВNNNNNNNNNNNNNNNNЎЎЎю)ЙЋNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы CP NDRVS ;IF NOT 0..(NUMBER_OF_DRIVES -1) THEN ERROR RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (BTDRV),A ;STORE DгђюгNNNNNNNNNNNNNNNNNЎЎЎю/c(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN RETURN TABLE PTR CPL OR A,C ;OR IF LOGON INHIBIT SET THEN RETURN AND 1 RET Z ; ; ELSE LOG DRIVE ; LD (DTPTR),HLХ¤юNNNNNNNNNNNNNNNNNЎЎЎюЯVNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++§sюњNNNNNNNNNNNNNNNNЎЎЎю0ќNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыMA FOR DESCRIPTOR SECTOR LD (IOPB + PBDMAO),HL XOR A,A LD (IOPB + PBDMAXO),A ; LD HL,1 ;SET SECTOR LD (IOPB + PBSEC ю NNNNNNNNNNNNNNNNЎЎЎюбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRESS PREFETCHED FROM TABLE JP (HL) ; ; DRIVdsярNNNNNNNNNNNNNNNNNЎЎЎюя*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CALL COC POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRY THEN RETUяАNNNNNNNNNNNNNNNNNЎЎЎюUЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PBDRVO),A ; ; OFFSET LOGICAL ADDRESS WITHђ•яИNNNNNNNNNNNNNNNNNЎЎЎю$їТNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************************************** ; ; WAIT FOR ISHA NOT BUSY PROCEDURE ; ;*********************************¤яВNNNNNNNNNNNNNNNNЎЎЎю*њЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE # ; ; SAVE LOGON REQUEST FLAG ; LD A,E ;SET LOG REQUEST VECTOR LD (LOGRQ),A ; ; COMPUTE DISK TABLE PTR ; ; У9ящNNNNNNNNNNNNNNNNЎЎЎю0peNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SAVE DRIVE TABLE PTR ; ; 1ST ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVISED LD (IOPB + PфOюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNNЃОЃќ‚jѓ8„…Ф…ў†p‡>€‰Ъ‰§Љt‹CЊЌЯЌ®Ћ|ЏLђ‘и‘µ’„“R” •н•»–‰—W%™у™БљЏ›]њ*ќшќЖћ”џb 0ЎэЎЛў™Јg¤4Ґ¦Р¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + PBST2O) CP A,-2 ;0: NO ѓ&ящNNNNNNNNNNNNNNNNЎЎЎюЉzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETURN DRIVE TABLE PTR ; LD 3‰яЂюNNNNNNNNNNNNNNNNNЎЎЎю e±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR SEL2 ;**************************************************************************** ; ; SET 3740 SECTOR TRANSLATION ;х‘ятNNNNNNNNNNNNNNNNЎЎЎюEНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSETQљяHNNNNNNNNNNNNNNNNЎЎЎюЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET SECTOR ; ENTRY- BC= SECTOR # ; ;**************************************************************************** SETSEC: цгяPNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ SECTRN: LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR E JR Z,NOTRAN ; EX DE,HL ADD HL,BC LD L,(HL) ; Lg2яяNNNNNNNNNNNNNNNNNЎЎЎю%кюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,(IY + DVRPDRV) LD (IOPB + PBDRVO),A ; ; IF LOGON THEN SKIP SIDE SELECT BECAUSE SECTOR DATA MAY NOT BE VALID ; LD Tтя“NNNNNNNNNNNNNNNNNЎЎЎю+ЙсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # ; EXIT - HL= DRIVER Ё’яВNNNNNNNNNNNNNNNNЎЎЎюuЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыID, -1: JADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; DISKETTE CONTAINS ID. XFER ID SECTOR DATA ; CALL TRNONE ;ASSUME NO TR[НяNNNNNNNNNNNNNNNNNNЎЎЎюљDNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL,(DTPTR) XOR A,A RET ; ; ; SELECT PROPER DEFAULT TABLES ; LGDEF: LD A,(BTDRV) IF STHD <> 0 CP A,STHD JR C,LJЊяDNNNNNNNNNNNNNNNNЎЎЎю0вNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EXIT - DE, HL= ? ; ;**************************************************************************** TR5: LD DE,SD5TRAN JR SET~яьNNNNNNNNNNNNNNNNNЎЎЎюЬZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы OF DPB PTR ADD HL,DE LD E,(HL) ;FETCH DPB PTR INC HL LD D,(HL) RET ;*******************************************ЛяINNNNNNNNNNNNNNNNЎЎЎюяUNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (BTSEC),BC RET ;**************************************************************************** ; ; SET TRANSFER ADDR %RящNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD H,0 RET ; ; NOTRAN: LD HL,1 ADD HL,BC RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++YяяNNNNNNNNNNNNNNNNNЎЎЎю&їNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,(IOPB + PBCMDO) SUB A,DDLOG JR Z,FD8X1 ; ; SELECT SIDE ; LD A,(IOPB + PBTRKO) CP A,1 LD A,(IOPB + PBSECO) JR ЯфяNNNNNNNNNNNNNNNNNNЎЎЎю,PfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTABLE BASE PTR ; A, C= 0 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETDVRT: LD HL,D®xя'NNNNNNNNNNNNNNNNЎЎЎюFѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыANSLATION ; ; TEST FOR SECTOR XLATION ; LD A,(DEFBFR + IDFLGO) AND A,[1 SHL DFDTDB] OR [1 SHL DFHARDB] JR NZ,NOX ; ряnNNNNNNNNNNNNNNNNNЎЎЎю ©uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; COUя7ОNNNNNNNNNNNNNNNNЎЎЎюУNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTR ; TR8: TR3740: LD DE,SDTRAN ; SETTR LD HL,(DTPTR) LD (HL),E INC HL LD (HL),D RET ;*************************ҐtяюNNNNNNNNNNNNNNNNNNЎЎЎюпkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************* ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;********************************вЧяrNNNNNNNNNNNNNNNNЎЎЎюМdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ENTRY- BC= ADDRESS ; EXIT - A= 0 ; ;**************************************************************************** SETDMA: LНяђNNNNNNNNNNNNNNNNNЎЎЎю!&:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; ; JADE 5" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++QѕяяNNNNNNNNNNNNNNNNЎЎЎю'ЊњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC,FD8X20 JR Z,FD8X21 ; ; DATA TRACKS ; LD C,(IY + DVRDSPT) ; ; COMMON SIDE SELECT CODE ; FD8X2: INC C SUB A,C юIяюNNNNNNNNNNNNNNNNNЎЎЎю-cWNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыVR0 ;START AT 1ST TABLE ; ; TEST FOR DONE ; RETDVL: LD A,C OR A,A RET Z ; ; COMPUTE NEXT TABLE ENTRY ; LD A,DVt>яИNNNNNNNNNNNNNNNNNЎЎЎюЯ)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; SELECT SIZE OF XLATE TABLE ; LD A,(DEFBFR + IDSPTDO) CP A,26 JR NZ,LGNT8X ; ; SELECT 8" XLATE TABLE ; CALL TR8ќяИNNNNNNNNNNNNNNNNЎЎЎю ь&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыMMON CODE ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LD BC,DPBSZ LDIR JR SEL1 ; ; CHECK FOR 8" FLOP,@яdNNNNNNNNNNNNNNNNЎЎЎюћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************** ; ; SET NO SECTOR TRANSLATION ; EXIT - HL, DE= ? ; ;*******************ц~я_NNNNNNNNNNNNNNNNNЎЎЎює8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************** HOME: LD BC,0 ;**************************************************************Џ&яюNNNNNNNNNNNNNNNNNЎЎЎюUуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (BTDMA),BC XOR A,A LD (BTDMAX),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ІяяNNNNNNNNNNNNNNNNNЎЎЎю"siNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ FD5EXEC: ;+++++++++++++++++++++++++++++++++++++++++++++++4yяОNNNNNNNNNNNNNNNNNЎЎЎю(њўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR C,SPTOK ; INC A ;MUST START AT 1 LD (IOPB + PBSECO),A ; ; SELECT SIDE 1 ; LD A,80H FD8X1: LD (IOPB + PBSECO + H-яяюNNNNNNNNNNNNNNNNЎЎЎю.6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRSIZ ADD A,L LD L,A LD A,0 ADC A,H LD H,A DEC C JR RETDVL SUBTTL NON-DISK PROCEDURES ;***********************јЬящNNNNNNNNNNNNNNNNNЎЎЎюмNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JR NOX ; ; SELECT 5" XLATE TABLE ; LGNT8X: CALL TR5 ; NOX: CALL DPBAD ;GET ADDR OF DPB & MOVE DOWN DISK INFO TO IT Я{яоNNNNNNNNNNNNNNNNNЎЎЎюПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPY DEFAULTS ; LGCKFD: IF ST8FD <> 0 CP A,ST8FD JR C,LGCKFD5 ENDIF CP A,ND8FD + 1 JR NC,LGCKFD5 ; ; USE 8" tХядNNNNNNNNNNNNNNNNNЎЎЎю#ЇNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы********************************************************* TRNONE: LD DE,0 JR SETTR ;++++++++++++++++++++++++++++++++++++IЦящNNNNNNNNNNNNNNNNЎЎЎю‰ NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************** ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;********************************************************************яRNNNNNNNNNNNNNNNNNЎЎЎюfВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLAл•яњNNNNNNNNNNNNNNNNЎЎЎю#@XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: E[яBNNNNNNNNNNNNNNNNЎЎЎю)Ї“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы1),A ; ; EXECUTE THE IOPB ; JP XPRIM ; ; ; TRACK 0 ; FD8X20: LD C,(IY + DVR0SPT) JP FD8X2 ; ; ; TRACK 1 ; оябNNNNNNNNNNNNNNNNЎЎЎю/5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? w4яїNNNNNNNNNNNNNNNNNЎЎЎю№KNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LD HL,DEFBFR + IDSPTO LD BC,DPBSZ LDIR ; LD HL,DEFBFR + IDFLGO ; ; XFER DISK PHYSICAL DATA ; SEL1: PUSH HL LD HLgГяИNNNNNNNNNNNNNNNNЎЎЎюVЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFLOPPY DEFAULTS ; CALL TR8 LD HL,SD8PBK JR SEL2 ; ; USE 5" FLOPPY DEFAULTS ; LGCKFD5: CALL TR5 LD HL,SD5PBK JЋ{я NNNNNNNNNNNNNNNNЎЎЎюvьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ ; ; GET DRIVE PARAMETER BLOCK ADDR ; EXIT - DE= DPB PTR ; HL= ? ; ;+++++++++++яяNNNNNNNNNNNNNNNNNЎЎЎю™7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******** SETTRK: LD (BTTRK),BC RET ;**************************************************************************** ; ;мяяNNNNNNNNNNNNNNNNNЎЎЎю3‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTED SECTOR OR (BC) + 1 ; BC= UNCHANGED ; A, DE= ? ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ОяВNNNNNNNNNNNNNNNNЎЎЎю$ЩПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ FD8EXEC: ; ; SET PHYSICAL DRIVE ; ;бяyNNNNNNNNNNNNNNNNЎЎЎю*ъАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FD8X21: LD C,(IY + DVR1SPT) JP FD8X2 ; ; ; SECTORS OK ; SPTOK: XOR A,A JP FD8X1 ;++++++++++++++++++++++++++++++"GяъNNNNNNNNNNNNNNNNNЎЎЎю0xNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;**************************************************************************** PRHEX: CALL PRDIG ;DO HIGH NIBBLE ; PRDIG:®Kя|NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNэЂЛЃљ‚gѓ5„…С…ћ†k‡8€‰Ф‰ЎЉo‹=ЊЌЩЌЁЋvЏDђ‘Я‘’|“J”•е•і–Ѓ—N™л™№љ‡›Uњ"ќсќѕћ‹џY (ЎхЎВўђЈ_¤,ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюмNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы RLCA ;POSITION NIBBLE INTO LOW 4 BITS RLCA RLCA RLCA ; PUSH AF ;SAVE DATA ; AND A,0FH ;MASK OFF OTHER NIBBLE ѕююNNNNNNNNNNNNNNNNNЎЎЎюЅJNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CМ0яаюNNNNNNNNNNNNNNNNNЎЎЎю RЃNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 э^я^NNNNNNNNNNNNNNNNЎЎЎюrэNNNNNNNNNNNNNNNNNNNNNNяЂЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKTIM: LD HL,TIMENT JR CLK1 ;+++++++++++МюNNNNNNNNNNNNNNNNNЎЎЎюќ6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыF ;**************************************************************************** ; ; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTњ:юbNNNNNNNNNNNNNNNNNЎЎЎю7ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CI: IF USEMON CALL GETMON ;SWITCH IN MONITORЇНю`NNNNNNNNNNNNNNNNNЎЎЎю%ЭОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;*********************************************************************Auю!NNNNNNNNNNNNNNNNЎЎЎю+юБNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++ READER: LD A,CTRLZ ;FAKE EOF ;************************************************Џ]юдNNNNNNNNNNNNNNNNЎЎЎюBїNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADD A,90H ;CONVERT TO ASCII DAA ADC A,40H DAA ; LD C,A ;STORE CHAR CALL COC ; POP AF ;DATA RET IF INTCІю„NNNNNNNNNNNNNNNNЎЎЎюtNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR E9SяВNNNNNNNNNNNNNNNNЎЎЎюТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETVER: LD B,1 RET SUBTTL CLOCK ROUTINEЛђюxNNNNNNNNNNNNNNNNNNЎЎЎюлjNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ CLOCK TIME FUNCTION 93H ; ENTRY- DE= PTR TO 13 BYT@¦ю“NNNNNNNNNNNNNNNNЎЎЎюИeNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRY ADDRESS ; A= ROM # ; EXIT - ? ; ;**************************************************************************** EXROM: м-ю$NNNNNNNNNNNNNNNNЎЎЎю ";NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ROM JP 0F803H ;USE MONITOR ELSE CALL CNSCK ;IF NO CHAR RDY THEN WAIT JR Z,CI IN A,(NTD) ;ELSE RETURN CHAR RET 4¬юфNNNNNNNNNNNNNNNNNЎЎЎю&€ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******* COC: IF USEMON CALL GETMON JP 0F809H ELSE CALL NTOST ;IF BUSY THEN WAIT OR A,A JR Z,COC LD A,C ЛµюяNNNNNNNNNNNNNNNNNNЎЎЎю,gVNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;***********************************************хрю$NNNNNNNNNNNNNNNNЎЎЎюqЋNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*******************************************************************w яОNNNNNNNNNNNNNNNNNЎЎЎю ћENNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGCCюNNNNNNNNNNNNNNNNNЎЎЎю4гNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A=ц?юNNNNNNNNNNNNNNNNNЎЎЎюШ[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE BUFFER FOR CLOCK DATA ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKRDC: LD C,E ;SE•фябNNNNNNNNNNNNNNNNЎЎЎюыTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAND A,ROMSMK ;MASK OUT UNUSED BITS OUT (ROMSEL),A ; PUSH HL ;SAVE ROM ENTRY VECTOR ; LD HL,EXROMR ;PUT RETURN ADDR ON SТIю NNNNNNNNNNNNNNNNNЎЎЎю! NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXITзю|NNNNNNNNNNNNNNNNЎЎЎю'»¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы OUT (NTD),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE OUTPU¦ЧюNNNNNNNNNNNNNNNNNЎЎЎю-TgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************** PUNCH: RET ;**************************************************************************** ; wю$NNNNNNNNNNNNNNNNNЎЎЎюиNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS›ю$NNNNNNNNNNNNNNNNЎЎЎю ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION THEN SET CLOCK ; JR Z,CLKTIM ;IF TIMEJюBNNNNNNNNNNNNNNNNЎЎЎю'®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Aю`NNNNNNNNNNNNNNNNNЎЎЎюЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT UP PARAMETERS LD B,D LD HL,RDBENT JR CLK2 ;************************************************************************ ЗяSNNNNNNNNNNNNNNNNNЎЎЎюbГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY VECTOR JP (HL) ;EXECUTE ROM ; ; ROM PROCEDURE RETURNS HERE ; EXRgюNNNNNNNNNNNNNNNЎЎЎю"DYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CNS/ВяЙNNNNNNNNNNNNNNNNNЎЎЎю(«’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ч|юїЋNNNNNNNNNNNNNNNNЎЎЎю.4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** v‚юHNNNNNNNNNNNNNNNNNЎЎЎюЫ(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;*************************************************************************** INTятNNNNNNNNNNNNNNNNЎЎЎюш'NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: LD HL,ISCMSG ;OUTPUT ћ]юNNNNNNNNNNNNNNNNNNЎЎЎюџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++ CLKCAL: LD HL,CALENT ;ROM ENTRY POINT ; CLK1: LD BC,CLKBFR ;READ CLOCK JR CLK2 ;+++++++++++++++++++++++++++++++++®‡юNNNNNNNNNNNNNNNNЎЎЎюѕ9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**** ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMAGE BUFR PTR (13 BYTES LONG) ; ;**************************************кЮюNNNNNNNNNNNNNNNNNNЎЎЎюQтNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECT MONITOR ROM ; POP AF ;RETURN VALUE RET SUBTTL CHAR I/O ROUTцВюNNNNNNNNNNNNNNNNЎЎЎю#whNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK: IF USEMON CALL GETMON JP 0F812H ELSE IN A,(NTS) ;IF DATA NOT READY THEN RETURN 0 AND A,1 SHL NTRDY TTOST1:ЎTятNNNNNNNNNNNNNNNNЎЎЎю)ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ NTOST: IN A,(NTS) CPL ;REVERSE SENSE AND A,1 SHL NTBSY JR TTOST1 ENDIF ;++++++++++++++++++++++++++++++++++++–jяВNNNNNNNNNNNNNNNNЎЎЎю/2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LO: IF USEMON CALL GETMON JP 0F80FH ELSE CALL LISTST ;IF BUSY THEN WAIT JR Z,LO ; LD A,C ;OUTPUT CHAR SE¦Xю'NNNNNNNNNNNNNNNNNNЎЎЎюЋ{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM‰yю„NNNNNNNNNNNNNNNNЎЎЎюa°NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыWARNING CALL EDITOR XOR A,A ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++.^юBNNNNNNNNNNNNNNNNЎЎЎюAМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MINITS ; C= HOURS ; ;ќгяаNNNNNNNNNNNNNNNNNЎЎЎю®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************** CLKSET: LD C,E ;SET UP PARAMETERS LD B,D LD HL,SETENT CLK2: LD A,CALROM ENDI)юNNNNNNNNNNNNNNNNNЎЎЎюЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;+^‚юNNNNNNNNNNNNNNNNЎЎЎю$ояNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;************************************************************************ћ€ю$NNNNNNNNNNNNNNNNNЎЎЎю*НрNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++{ҐюNNNNNNNNNNNNNNNNNЎЎЎю0!HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT 7,A OUT (CENTOUT),A ; RES 7,A ;OUTPUT LOW TRUE STROBE OUT (CENTOUT),A SET 7,A OUT (CENTOUT),A RET ENDIF ;zятNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃНЃ›‚hѓ6„…С…џ†n‡<€ ‰Ш‰ҐЉs‹AЊЌЮЌ¬ЋzЏIђ‘ж‘ґ’‚“P”•н•»–‰—W%™т™АљЏ›]њ+ќщќЗћ•џb 0ЎюЎНўљЈh¤6Ґ¦С¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюVhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^яrNNNNNNNNNNNNNNNNЎЎЎюьОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY, 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;******************************************ятNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 ЉуяBNNNNNNNNNNNNNNNNЎЎЎю3yNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LARGER BIOS ALLOCATION ON THE DISK. ; ; 2.2.4 - ADDED NAKED TERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. bLя!NNNNNNNNNNNNNNNNNЎЎЎюЬІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEP 83 GRH ; Move clock-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separЛsяNNNNNNNNNNNNNNNNЎЎЎюvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 85 GRH ; Implemented hard disk drive 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user %uяИNNNNNNNNNNNNNNNNЎЎЎю%њJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOGON to specify the ID sector & track. At same time, fix bug ; which did not specify the logon track. ; ; 3.02 7 JUL 88 GятNNNNNNNNNNNNNNNNNЎЎЎю+їENNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** SUBTTL SYSTEM DECLARATIONS ;==========================================================яОNNNNNNNNNNNNNNNNNNЎЎЎю;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7я'NNNNNNNNNNNNNNNNNЎЎЎюмрNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;********** џятNNNNNNNNNNNNNNNNЎЎЎюFVNNNNNNNNNNNNNNNNNNNNNNЎЎЎы& 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOШxяЙNNNNNNNNNNNNNNNNNЎЎЎюЄоNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.л я NNNNNNNNNNNNNNNNЎЎЎю‰бNNNNNNNNNNNNNNNNNNNNNNЎЎЎыate CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard disk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to ref‡cяЙNNNNNNNNNNNNNNNNNЎЎЎю cїNNNNNNNNNNNNNNNNNNNNNNЎЎЎыfriendly disk error options: Abort, Retry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; ; 3.00lятNNNNNNNNNNNNNNNNЎЎЎю&ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRH ; Add '?' to include file names. ; Change hard disk system tracks directory reference to new format. ; Correct bug in driv’zяИNNNNNNNNNNNNNNNNNЎЎЎю,&ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================== ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE DISKS.DEF ; INCLUDE MONBOARD.DEF ; INCLUDE ZMON|0яNNNNNNNNNNNNNNNNNNЎЎЎю0 NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћя NNNNNNNNNNNNNNNNNЎЎЎю ЯБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 1ФPяоNNNNNNNNNNNNNNNNЎЎЎюugNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OFW~язNNNNNNNNNNNNNNNNNЎЎЎю™ЯNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы2.6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRI»9яОNNNNNNNNNNNNNNNNNNЎЎЎюєРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыlect half size directory, but keep ; allocation for 1k directory ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to r ‰ябNNNNNNNNNNNNNNNNNЎЎЎю!PЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы - 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables a:&язNNNNNNNNNNNNNNNNЎЎЎю'ъ(NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыers which caused retry to fail. (sector remained ; corrupted) ; Stubbed out new Clock routines for present. ; ; 3.03 31 JUяµябNNNNNNNNNNNNNNNNЎЎЎю-гNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM.DEF ; INCLUDE DKBTROM.DEF ; INCLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOKROM.DEF ; ;===========================ЅяИNNNNNNNNNNNNNNNNNЎЎЎю©ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•ядNNNNNNNNNNNNNNNNNЎЎЎю Љ’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; SяОNNNNNNNNNNNNNNNNNЎЎЎюf*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; ,ГяЙNNNNNNNNNNNNNNNNЎЎЎюМЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVER, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MOћёяnNNNNNNNNNNNNNNNNNЎЎЎю#GNNNNNNNNNNNNNNNNNNNNNNЎЎЎыelate to ISASI control of JADE ; FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value Ьдя$NNNNNNNNNNNNNNNNNЎЎЎю"ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnd new function to return ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; ImplementedbиядNNNNNNNNNNNNNNNNNЎЎЎю(кNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL 88 GRH ; Unstub Clock routines. ; ; 3.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; I fяrNNNNNNNNNNNNNNNЎЎЎю.@°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================= LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB.DEF *INCLUDE DISKS.DEF *I4BяrNNNNNNNNNNNNNNNNNЎЎЎюљ¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИюNNNNNNNNNNNNNNNNNNNЎЎЎю№ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVEЪrятNNNNNNNNNNNNNNNNNЎЎЎюUNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;***************************************ЊeюNNNNNNNNNNNNNNNNNЎЎЎюяЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDULES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 КЛятNNNNNNNNNNNNNNNNNЎЎЎюvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(0..n-1). This maintains more uniformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routineGЭяОNNNNNNNNNNNNNNNNNЎЎЎю#6мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы use of ROM primitives. ; Moved system down to 60k. ; ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86vятNNNNNNNNNNNNNNNNNЎЎЎю)Щ'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыmplement new ID sector format. ; Implement CP/M 3.0 DPB structure in preparation for deblocking. ; ; 3.05 11-3-88 GRH ; ChoчяrNNNNNNNNNNNNNNNNЎЎЎю/sЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNCLUDE MONBOARD.DEF *INCLUDE ZMONROM.DEF *INCLUDE DKBTROM.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INCLUDE CLOKROM.DEF *Sя„NNNNNNNNNNNNNNNNЎЎЎюПяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPP/я!NNNNNNNNNNNNNNNNЎЎЎю 4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPYЁящNNNNNNNNNNNNNNNNNЎЎЎюHNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************** ; REVISIONS: ; ; 2.2.0 - RELEASE ; ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; Ф#яrNNNNNNNNNNNNNNNNЎЎЎюпѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SЗяИNNNNNNNNNNNNNNNNЎЎЎюE%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыs to monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR=uяrNNNNNNNNNNNNNNNNNЎЎЎю$Ї{NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BIOS. ; Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LЮ€яВNNNNNNNNNNNNNNNNNЎЎЎю*ЊtNNNNNNNNNNNNNNNNNNNNNNЎЎЎыange included data to update IOPB.PBSTAT to new configuration. ; VERSN EQU 305 ; ;******************************************ІюrNNNNNNNNNNNNNNNNЎЎЎю0`МNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLIST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDRESS_0ядNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNэЂКЃ‚fѓ4„…П…ќ†k‡8€‰Ф‰ЎЉo‹=ЊЌЩЌЁЋuЏDђ‘а‘’|“J”•з•µ–ѓ—Q™м™єљ‰›Wњ$ќтќАћЋџ[ )ЎцЎЕў’Ј`¤.ҐьҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюaXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыES ; ;============================================================================ NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES KBЫюNNNNNNNNNNNNNNNNЎЎЎюЛюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================= ; ; OTHER DECLARATIONS ; ;================================================vящNNNNNNNNNNNNNNNNЎЎЎю $5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ASCII CHARS ; ;============================================================================ LF: EQU 0AH CR: EQU 0DH CTRLэ«яВNNNNNNNNNNNNNNNNЎЎЎюINNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@i»ю„NNNNNNNNNNNNNNNNNЎЎЎюл‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDS¦МюBNNNNNNNNNNNNNNNNЎЎЎюA$NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы#################################### BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADТю$NNNNNNNNNNNNNNNNЎЎЎю%«zNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы------------------- INIT: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS ENABLED ИЦюrNNNNNNNNNNNNNNNNNЎЎЎю+€uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER *тяВNNNNNNNNNNNNNNNNNЎЎЎю4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP µ7яВNNNNNNNNNNNNNNNNЎЎЎюЫАNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы============================ SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;STAtюNNNNNNNNNNNNNNNNЎЎЎюqfNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TAB+юЙNNNNNNNNNNNNNNNNNЎЎЎюќЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0уWюNNNNNNNNNNNNNNNNЎЎЎюѕСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM Пю9NNNNNNNNNNNNNNNNNЎЎЎю TЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;##############################################################њAю9NNNNNNNNNNNNNNNNЎЎЎю&ю)NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; CALL GETMON ; ; INIT DEFAULT DRIVE ; LD A,(DK_PROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; яИNNNNNNNNNNNNNNNNNЎЎЎю,вNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;------------------------------------{ряОNNNNNNNNNNNNNNNNNЎЎЎю:NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCAvюNNNNNNNNNNNNNNNNNNNЎЎЎю исNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRT LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8›јяИNNNNNNNNNNNNNNNNЎЎЎюBWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LIST чҐю'NNNNNNNNNNNNNNNNNЎЎЎю®пNNNNNNNNNNNNNNNNNNNNNNЎЎЎы' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' :aю„NNNNNNNNNNNNNNNNNЎЎЎюЌаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUхРюINNNNNNNNNNNNNNNNNЎЎЎю!gѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############## ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIюNNNNNNNNNNNNNNNNNЎЎЎю'НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) EяОNNNNNNNNNNNNNNNNNЎЎЎю-"УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;----------------------------Щ‹янNNNNNNNNNNNNNNNNNЎЎЎюћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR F’юђNNNNNNNNNNNNNNNNNЎЎЎю ЅўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL УкяоNNNNNNNNNNNNNNNNNЎЎЎюQNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SlяdNNNNNNNNNNNNNNNNЎЎЎюыјNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;------------------------------------«яИNNNNNNNNNNNNNNNNNЎЎЎюwNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTE FUNCTION CALL ;############################################################################ ; ; THESE BOOT PARAMS MUSTxzяВNNNNNNNNNNNNNNNNNЎЎЎю"2нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;####################################################################>\ятNNNNNNNNNNNNNNNNNЎЎЎю(Э&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;####################################################################јАюrNNNNNNNNNNNNNNNЎЎЎю.wЂNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы------------------------------ WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; _юNNNNNNNNNNNNNNNNNЎЎЎюњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ћ ю'NNNNNNNNNNNNNNNNNNЎЎЎюЋ“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;=DюNNNNNNNNNNNNNNNNNЎЎЎюb+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;cюBNNNNNNNNNNNNNNNЎЎЎюИЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;---------------------------------------------------тю'NNNNNNNNNNNNNNNNNЎЎЎю'FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RESIDE AS DEFINED RIGHT BEFORE THE COLD INIT ; ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE REFERENCED ; *шюrNNNNNNNNNNNNNNNNЎЎЎю#ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## DIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------------------------------------------------- ; Г‡ятNNNNNNNNNNNNNNNNNЎЎЎю)оNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## ; ; SIGN-ON MESSAGE ; ;############################################################################ MSGSO: DB CR,LЮю9NNNNNNNNNNNNNNNNЎЎЎю/D±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET INTERRUPT MODE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(M2_IMASK) AND A,7FH OUT (M2_IMASK),A ; ;»1яВNNNNNNNNNNNNNNNNЎЎЎюшПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;===========================ћђяВNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;============================================================================ ; ДAюHNNNNNNNNNNNNNNNNNNЎЎЎю7xNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@=ю„NNNNNNNNNNNNNNNNЎЎЎюШіNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы------------------------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;COђ°ю$NNNNNNNNNNNNNNNNЎЎЎюrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBY THE BOOT CODE IN ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S ; LENGTH. ; ;########################################vзю9NNNNNNNNNNNNNNNNNЎЎЎю$KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;---------------------------------------------------------цїю9NNNNNNNNNNNNNNNNNЎЎЎю*»DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Тю NNNNNNNNNNNNNNNNЎЎЎю0WьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FINALLY ENABLE VECTORED INTERRUPTS ; IN A,(M2_STAT) OR A,M2_IEN OUT (M2_STAT),A EI ENDIF ; ; SET TEMPORARY STх›ю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃОЃњ‚jѓ9„…Ф…ў†p‡>€‰Ъ‰§Љv‹CЊЌЯЌЋ{ЏIђ‘е‘І’Ђ“N”•к•·–…—S!™о™јљ‹›Yњ&ќхќВћђџ] +ЎшЎЗў”Јb¤0ҐюҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюНґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыACK ; LD SP,DEFBFR ; ; INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST ISHA HOST ADAPTER5 ятNNNNNNNNNNNNNNNNЎЎЎюgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PdjюBNNNNNNNNNNNNNNNNЎЎЎю €ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD ; ; ELSE DONE READING SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTORу»яњNNNNNNNNNNNNNNNNЎЎЎюЁҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO ИяBNNNNNNNNNNNNNNNNNЎЎЎюGnNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKRD: LD A,PB_READC ;SELECT READ OP JP DISKOP ;‹ЕяyNNNNNNNNNNNNNNNNЎЎЎюнИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUPPORTED DRIVE REQUESTED THEN RETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (B(КяHNNNNNNNNNNNNNNNNЎЎЎю%–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE ; LD (DTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE RE=ядNNNNNNNNNNNNNNNNNЎЎЎю+$™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO ; SEL1: PUSH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETUE®я!NNNNNNNNNNNNNNNNNЎЎЎюзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FOR A HUNG CONDITION AND CLEAR IF TRUE ; IN A,(ISH_STATUS) ;IF HOST ADAPTER BUSY THEN BIT ISH_BSYB,A JR Z,NTHUNG ; LD‘‹язNNNNNNNNNNNNNNNNNЎЎЎюw,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BCI€яdNNNNNNNNNNNNNNNNЎЎЎюЭЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOЅ яЙNNNNNNNNNNNNNNNNNЎЎЎю12NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыBDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD C,CLK_F7 ;TEST FOR BOАятNNNNNNNNNNNNNNNNЎЎЎю=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: EиКяЙNNNNNNNNNNNNNNNNNЎЎЎю шcNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTDRV),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRI|RятNNNNNNNNNNNNNNNNЎЎЎю&RЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVISED LD (IOPB + PB_ST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + PB_ST8ядNNNNNNNNNNNNNNNNNЎЎЎю,ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN DRIVE TABLE PTR ; LD HL,(DTPTR) XOR A,A RET ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BTDRV)ПюяИNNNNNNNNNNNNNNNNNЎЎЎю«ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,PB_CLRC LD (IOPB + PB_CMDO),A CALL XPRIM ; NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_PROM + 1KЎяyNNNNNNNNNNNNNNNNNЎЎЎю DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL™жяОNNNNNNNNNNNNNNNNЎЎЎюо»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT ERROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT PAGE 0 ; HyяNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD PRESENT CALL CLK1 ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR NZ,CLKON ыя9NNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKWR: LD A,PB_WRITC ;SELECT WRITE OPЮ–яrNNNNNNNNNNNNNNNNNЎЎЎю!ЛRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE IS STILL IN C REGISTER LD (DVRTPTR),HL ; ; PREFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE ADDRESS 'ъя!NNNNNNNNNNNNNNNЎЎЎю'aфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2O) CP A,-2 ;0: NO ID, -1: JADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; ELSE XFER ID SECTOR DATA TO TABLES ; CALL TRNONEўюBNNNNNNNNNNNNNNNNЎЎЎю-Ћ?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF STHD <> 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CA=Ья'NNNNNNNNNNNNNNNNNЎЎЎю2ANNNNNNNNNNNNNNNNNNNNNNЎЎЎы) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIњWяHNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,BTSEC INC (HL) ; LD DE,SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOBяОNNNNNNNNNNNNNNNNNЎЎЎюэцNNNNNNNNNNNNNNNNNNNNNNЎЎЎы WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT B¬-ядNNNNNNNNNNNNNNNNЎЎЎюWPNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF вЛянNNNNNNNNNNNNNNNNNЎЎЎюё›NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JP DISKOP ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LИРятNNNNNNNNNNNNNNNNNЎЎЎю"ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INC HL LD D,(HL) INC HL LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TABLE ADDRESS Ћ2ядNNNNNNNNNNNNNNNNNЎЎЎю(qКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + ID_FLGO) AND A,[1 SHL BЈяrNNNNNNNNNNNNNNNЎЎЎю.ЫlNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыLL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL А®ядNNNNNNNNNNNNNNNNNЎЎЎюpNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL TЊя'NNNNNNNNNNNNNNNNNNЎЎЎю"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW DeятNNNNNNNNNNNNNNNNNЎЎЎюОЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; gя!NNNNNNNNNNNNNNNЎЎЎюdaNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++Ия'NNNNNNNNNNNNNNNNNЎЎЎю‹ЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;++++++UБяNNNNNNNNNNNNNNNNЎЎЎю#0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD HL,(BTDRV) LD H,0 ADD HL,HL ;DISK # * 16 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,D0DPH ADD HL,DE ; ; IF NЙnяNNNNNNNNNNNNNNNNNЎЎЎю)BыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDF_DTDB] OR [1 SHL DF_HARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; NOX: CALL DPBAD ;Go§яrNNNNNNNNNNNNNNNNЎЎЎю/и]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD BC,DPBSZ LDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ;************Я~юBNNNNNNNNNNNNNNNNЎЎЎюT#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LDа-ябNNNNNNNNNNNNNNNNЎЎЎю»иNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREA©БяNNNNNNNNNNNNNNNNNNNЎЎЎю›”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF ЋятNNNNNNNNNNNNNNNNЎЎЎюt_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++mядNNNNNNNNNNNNNNNNЎЎЎюЮщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SELDSK: ; ; ASSUME ERROR ; LD HL,0 ; ; IF UNStdяNNNNNNNNNNNNNNNNNЎЎЎю$4§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) OR A,C CPL AND A,1 RET Z ; ; ELSE LOG ON ¦–яВNNNNNNNNNNNNNNNNNЎЎЎю*ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET ADDR OF DPB LD HL,DEFBFR + ID_SPTO LD BC,DPBSZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + ID_FLGШЙяrNNNNNNNNNNNNNNNNЎЎЎю0ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;*µНюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNэЂЛЃ‚eѓ4„…П…ќ†l‡9€‰Х‰ўЉp‹>ЊЌЩЌЁЋuЏCђ‘Я‘¬’{“I”•ж•ґ–‚—P™л™№љ€›Vњ$ќуќАћЏџ\ )ЎчЎЖў“Јa¤/ҐэҐК¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюъ„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************************************** HOME: LD BC,0 ;*******************************љqюNNNNNNNNNNNNNNNNNNЎЎЎюP"NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************** SETDMA: LD (BTDMA),BC XOR A,A LD (BTDMAX),A RET ;++++++++++++++++++++++++++++++++++++++++++++++Jю!NNNNNNNNNNNNNNNNЎЎЎю їйNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; µ2юNNNNNNNNNNNNNNNNЎЎЎюџ•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CODE ; ENTRY- A= IOPB COMMAND ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++D„юrNNNNNNNNNNNNNNNNNЎЎЎюp^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,(DE) ;FETCH BYTE PUSH DE ;SAVE REGS PUSH BC CALL PRHEX ;OUTPUT ERROR CODE ; LD C,' ' CALL COC ; POP BC ;RE3мятNNNNNNNNNNNNNNNNЎЎЎюЪшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;RETURN DPB_PTR = 0 FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;*************************************5ю$NNNNNNNNNNNNNNNNЎЎЎю%0¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++ ; ; RETURN DRIVE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ; ;++++++++++++++++++++++++++++бяВNNNNNNNNNNNNNNNNNЎЎЎю+©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH LOGICAL DRIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD Hлю'NNNNNNNNNNNNNNNNNNЎЎЎюЇЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*************************************ЅLю9NNNNNNNNNNNNNNNNЎЎЎю@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECT(їюЙNNNNNNNNNNNNNNNNЎЎЎюкєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++QЧю$NNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++ DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; DISKOЂФяВNNNNNNNNNNNNNNNNЎЎЎю% NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTORE REGS POP DE INC DE ;NEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,DSKEB ;OUTPUT ERROR MESSAGE CAaю NNNNNNNNNNNNNNNNNЎЎЎю ПSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXI•эюrNNNNNNNNNNNNNNNNЎЎЎю&eхNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADDЫ§яИNNNNNNNNNNNNNNNNNЎЎЎю,Љ>NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL,(IOPB + PB_SECO) ; PUSH HL ;SAVE SECTOR TO RESTORE LATER ; ADD HL,DE LD (IOPB + PB_SECO),HL ; ; EXECUTE IOPB ; ЩябNNNNNNNNNNNNNNNNЎЎЎюњжNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*************************************** SETTRK: LD (BTTRK),BC RET ;***************************************************±/юNNNNNNNNNNNNNNNNNNЎЎЎю s-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR (BC) + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++†ЃюNNNNNNNNNNNNNNNNЎЎЎюЩ‹NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++ DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PB_DMAO),HL XOR A,A ћdя^NNNNNNNNNNNNNNNNNЎЎЎю53NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP2: LD (IOPB + PB_CMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ц/яВNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## ; ; BIOS FUNCTION TABLE ; ;############################################################################ BFUNTBL: ЬяИNNNNNNNNNNNNNNNNNЎЎЎюG†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVER TABLE BASE PTR ; A, C= 0 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOµіяrNNNNNNNNNNNNNNNNЎЎЎюd‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++ EXIOPB: ; ; SET UP FOR CALL ; LD HL,DK_DSKX LD A,(DK_PROM) CALL EXROM ; ; FETCH & RETURN RESULT STATUS ; *ятNNNNNNNNNNNNNNNNNЎЎЎю ЋЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOC ; ; RETURN DATA ; POP AF RET ;*************************************************************************** ; ;ѓШящNNNNNNNNNNNNNNNNЎЎЎю&$qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE W {яINNNNNNNNNNNNNNNNNЎЎЎю,ЛєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUT FUNCTION # ; POP HL LD A,L CALL PRHEX ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = Y6я!NNNNNNNNNNNNNNNNЎЎЎюЭbNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPPY DRIVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIKYяВNNNNNNNNNNNNNNNNNЎЎЎю 2©NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSPATCHER ; EXIT - A= -1: ERROR, 0: OK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BIOFUNЦязNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB ‚янNNNNNNNNNNNNNNNNNЎЎЎюt·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS CALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RETDVRT: LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREA;pябNNNNNNNNNNNNNNNNNЎЎЎюWёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,(IX + PB_STATO) OR A,A ;TEST RESULT FOR RETURN RET SUBTTL NON-DISK PROCEDURES ;*******************************TятNNNNNNNNNNNNNNNNNЎЎЎю!ЅжNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NEWLINE PROCEDURE ; ;*************************************************************************** CRLF: LD C,CR CALL COC 'пязNNNNNNNNNNNNNNNNЎЎЎю'@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR .ЁюNNNNNNNNNNNNNNNNNNЎЎЎю-ш‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++,ядNNNNNNNNNNNNNNNNNЎЎЎюDхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++4!я“NNNNNNNNNNNNNNNNNЎЎЎю gъNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE EїФязNNNNNNNNNNNNNNNNNЎЎЎю‹BNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN xядNNNNNNNNNNNNNNNNЎЎЎю!дNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A ЏйязNNNNNNNNNNNNNNNNNЎЎЎюО/NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************* ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;***$@ящNNNNNNNNNNNNNNNNNЎЎЎю"иµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;************************************‰bяЙNNNNNNNNNNNNNNNNNЎЎЎю(~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыC,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF ЯќяrNNNNNNNNNNNNNNNЎЎЎю.ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++ЭOяNNNNNNNNNNNNNNNNNЎЎЎюwДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++ FD8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) LD (IOPB + PB_DгяИNNNNNNNNNNNNNNNNNNЎЎЎюTЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ыЮядNNNNNNNNNNNNNNNNNЎЎЎюёsNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++“МябNNNNNNNNNNNNNNNЎЎЎюХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO |ФяИNNNNNNNNNNNNNNNNNЎЎЎюэNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************************* PRHEX: ; ; PROCESS HIGH NIBBLE 1ST ; CALL PRDIФятNNNNNNNNNNNNNNNNЎЎЎю#Ы„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE I+CяrNNNNNNNNNNNNNNNNNЎЎЎю)4ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыNOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION THEN SETАПяВNNNNNNNNNNNNNNNNЎЎЎю/ћйNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++єя!NNNNNNNNNNNNNNNNЎЎЎю"—NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRVO),A ; ; FETCH SECTOR DATA ; LD HL,(IOPB + PB_SECO) PUSH HL ;SAVE FOR XPRIM RESTORE ; ; ; EXECUTE THE IOPB ; ѓmяђNNNNNNNNNNNNNNNNNЎЎЎюН\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR уяоNNNNNNNNNNNNNNNNNNЎЎЎюн NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++ RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++G–яrNNNNNNNNNNNNNNNNЎЎЎюлNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FЛ`ядNNNNNNNNNNNNNNNNЎЎЎюЁMNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыG ; ; SWAP HIGH & LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ; ; CONVERTёјяВNNNNNNNNNNNNNNNNNЎЎЎю$BNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;*************************************************Д{яrNNNNNNNNNNNNNNNNNЎЎЎю*aNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CLOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEM CALL «ЮядNNNNNNNNNNNNNNNNЎЎЎю0Ќ¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L=UСяHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNэЂКЃ‚eѓ4„…П…ќ†k‡8€‰У‰ Љn‹;Њ ЌЦЌ¤ЋrЏ@ђ‘Ь‘©’w“E”•б•Ї–}—K™ж™ґљѓ›Qњќоќ»ћЉџW %ЎуЎВўЏЈ]¤+ҐщҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЊ0NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKCAL: LD HL,CLK_CAL ;ROM ENT‡ўятNNNNNNNNNNNNNNNNЎЎЎю&–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMAGE BUFR PTR (13 BYTES LONG) ; ;*****************ЕЎяВNNNNNNNNNNNNNNNNЎЎЎю Й]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM ; ; ROM PROCEDURE RETURNS HERE ; EXROMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECT MONITOR ROM ; POP AF юњNNNNNNNNNNNNNNNNЎЎЎюй!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ CNSCK: IF USEMON CALL GETMON JP MR_CONSTS ELSE IN A,(NT_STAT) ;IF Da—юBNNNNNNNNNNNNNNNNNЎЎЎюкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NTOST: IN A,(NT_STAT) CPL ;REVERSE SENSE AND A,1 SHL ььюrNNNNNNNNNNNNNNNNЎЎЎю¬LNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы*********************************************************************** LO: IF USEMON CALL GETMON JP MR_LSTOUT ELSEлЂязNNNNNNNNNNNNNNNNЎЎЎю%FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;******?fю„NNNNNNNNNNNNNNNNNЎЎЎю+eNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSAV),A CALL GETMON ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSG ;QUERY USER CALL EDITOR ; ;K^ю!NNNNNNNNNNNNNNNNNЎЎЎюЩcNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY POINT JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTIONЋюNNNNNNNNNNNNNNNNЎЎЎю6ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************** CLKSET: LD C,CLK_F2 ; CLK1: LD HL,CLK_FUN ; CLK2: LD A,CLK_RO§;юNNNNNNNNNNNNNNNNЎЎЎюњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;RETURN VALUE RET SUBTTL CHAR I/O ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>юINNNNNNNNNNNNNNNNNЎЎЎюp¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыATA NOT READY THEN RETURN 0 AND A,1 SHL NT_READY TTOST1: RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;*************ћю9NNNNNNNNNNNNNNNNЎЎЎюS№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNT_BUSY JR TTOST1 ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DR‘ДятNNNNNNNNNNNNNNNNNЎЎЎю №зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STAQЁю9NNNNNNNNNNNNNNNNЎЎЎю&ANNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** EDITOR: LD C,(HL) ;MESSAGE EDIT LOOP PUSH HL ;SAVE PHюHNNNNNNNNNNNNNNNNNЎЎЎю,ьЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GET & ECHO USER INPUT ; CALL CI ; PUSH AF LD C,A CALL COC POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; &ўюBNNNNNNNNNNNNNNNNЎЎЎюкRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 92H ; EXIT - A= SECONDS ; B= MINITS ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ею!NNNNNNNNNNNNNNNNNЎЎЎю ™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыM ; ; FALL INTO ROM EXECUTER ; ENDIF ;****************************************************************************CFюNNNNNNNNNNNNNNNNNЎЎЎюЇ?NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CI: Џ(яіNNNNNNNNNNNNNNNNNЎЎЎюC‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;**********]юBNNNNNNNNNNNNNNNNNЎЎЎю`€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READER: LD Aћфю NNNNNNNNNNNNNNNNNЎЎЎю!ЉЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ LISTST: КДю!NNNNNNNNNNNNNNNЎЎЎю' pNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыTR RES 7,C ;CLEAR BIT 7 FOR OUTPUT CALL COC ; POP HL BIT 7,(HL) ;IF BIT 7 SET THEN RETURN RET NZ ; INC HL ;ELSEыIю!NNNNNNNNNNNNNNNNЎЎЎю-П»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'YрюдNNNNNNNNNNNNNNNNNЎЎЎюsЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++ CLKTIM: LD HL,CLK_TIM JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;Sю$NNNNNNNNNNNNNNNNNЎЎЎю PКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTRY ADDRESS ; A= ROM # ; EXIT - ? ; ;*******************************************РябNNNNNNNNNNNNNNNNЎЎЎюјrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF USEMON CALL GETMON ;SWITCH IN MONITOR ROM JP MR_CONIN ;USE MONITOR ELSE CALL CNSCK ;IF NO CHAR RDY THEN WAIT ›xюINNNNNNNNNNNNNNNNЎЎЎюФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** COC: IF USEMON CALL GETMON JP MR_CONOUT ELSE CrћюђNNNNNNNNNNNNNNNNNЎЎЎющNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,CTRLZ ;FAKE EOF ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRYG’ятNNNNNNNNNNNNNNNNNЎЎЎю"Я…NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF USEMON CALL GETMON JP MR_LSTSTS ELSE LD A,-1 RET ENDIF ;*********************************************™¤юNNNNNNNNNNNNNNNNNЎЎЎю(0NNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы PRINT NEXT CHAR JR EDITOR IF INTRPTS SUBTTL INTERRUPTS ;-------------------------------------------------------------В3ятNNNNNNNNNNNNNNNЎЎЎю.љиNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP BC ;RESTORE REGS 1STЉiю NNNNNNNNNNNNNNNNNЎЎЎю@фNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; READ CLOCK TIME FUNCTION 93H ; ENTRY- DE= PTR TO 13 BYTE BUFFER FOR CLOCK DATA ; ;+++++++++++++++++++++++++++++++++++++++їЁяОNNNNNNNNNNNNNNNNNNЎЎЎюcыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************* EXROM: AND A,M2_RSMK ;MASK OUT UNUSED BITS OUT (M2_RSEL),A ; PUSH HL ;SAVE ROM ENTRY ЎЁядNNNNNNNNNNNNNNNNNЎЎЎюЏCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR Z,CI IN A,(NT_DATA) ;ELSE RETURN CHAR RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ш°юNNNNNNNNNNNNNNNNNЎЎЎю%еNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL NTOST ;IF BUSY THEN WAIT OR A,A JR Z,COC LD A,C OUT (NT_DATA),A RET ;+++++++++++++++++++++++++++++++++++++,cяИNNNNNNNNNNNNNNNNNЎЎЎюК.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы- C= CHAR TO OUTPUT ; ;**************************************************************************** PUNCH: RET ;********‡mюBNNNNNNNNNNNNNNNNЎЎЎю#мґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* ; ; GET MONITOR PROM SUBR ; EXIT - A= ? ; ;************************************************}юдNNNNNNNNNNNNNNNNNЎЎЎю)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------- ; ; USER INTERRUPT ; ;---------------------------------------------------------------------------- ITRAP: TюBNNNNNNNNNNNNNNNNЎЎЎю/©ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP HL POP AF JP 0038H ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR TRAP ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POнЬю9NNNNNNNNNNNNNNNNЎЎЎю§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++ CLKRDC: LD C,CLK_F1 JR CLK1 ;***************************************************зЇяОNNNNNNNNNNNNNNNNNЎЎЎюъlNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVECTOR ; LD HL,EXROMR ;PUT RETURN ADDR ON STACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY VECTOR JP (HL) ;EXECUTE sю!NNNNNNNNNNNNNNNNNЎЎЎюЪNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;+++++++++++++++++++++++++++++++дЁю NNNNNNNNNNNNNNNNЎЎЎю5ЫNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE OUTPUT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;+++++++++Тмя“NNNNNNNNNNNNNNNNЎЎЎюџ}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*****fKяВNNNNNNNNNNNNNNNNNЎЎЎю$u#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************** GETMON: LD A,MR_RNUM OUT (M2_RSEL),A RET ;*********************************************(pюBNNNNNNNNNNNNNNNNNЎЎЎю*V,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; SAVE REGS FIRST ; PUSH AF PUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(M2_RSEL) LD (ROMAMятNNNNNNNNNNNNNNNNЎЎЎю0є”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP BC POP HL POP AF JP 0F824H ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (M2_RSEL)SЬю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃОЃ›‚iѓ7„…Т… †n‡;€‰Ц‰ЈЉq‹>ЊЌЫЌЄЋxЏFђ‘в‘°’~“L”•й•·–…—S!™о™јљ‹›Yњ&ќхќГћ‘џ^ ,ЎыЎКў—Јe¤3Ґ¦О¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюoоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A ; POP BC POP HL POP AF EI ;RE-ENABLE INTERRUPTS RET ;------------------------------------------------------ятNNNNNNNNNNNNNNNNЎЎЎюЕHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################### ; ; COMMON I/O PARAMETER BLOCK ; ;######################################ЕФяyNNNNNNNNNNNNNNNNЎЎЎю *ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 1 DVRDTYP DS 1 ;RESERVED FOR DISK TYPE DVRCYLS DS 2 ;DISK CYLINDERS DVRHDS DS 1 ;HEADS ; ; DEFINE THE STRUCTURE SIZE ;XяОNNNNNNNNNNNNNNNNNЎЎЎю яNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыYPE DW #CY ;;CYLS DB #HD ;;HEADS LIST OFF ENDM DVR0: IF BOOT = 10H ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4nщяВNNNNNNNNNNNNNNNNNЎЎЎюе4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;#####################################################ГятNNNNNNNNNNNNNNNNЎЎЎюO’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################### HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FюяgNNNNNNNNNNNNNNNNЎЎЎю%ҐМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE BOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT zМяrNNNNNNNNNNNNNNNNNЎЎЎю+†ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;###################Є—яВNNNNNNNNNNNNNNNNNЎЎЎю:ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------- ; ; UNSUPPORTED INTERRUPT ; ;------------------------------------------------------------------------pЋяВNNNNNNNNNNNNNNNNЎЎЎюХvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;############################ЈкяЙNNNNNNNNNNNNNNNNЎЎЎюРNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DVRSIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE mЮядNNNNNNNNNNNNNNNNNЎЎЎю“hNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,3ЗЬя„NNNNNNNNNNNNNNNNЎЎЎю°gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################### SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK Ѕ6ятNNNNNNNNNNNNNNNNNЎЎЎю Z9NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DI*нятNNNNNNNNNNNNNNNNЎЎЎю&рџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;########################################################^жяHNNNNNNNNNNNNNNNNNЎЎЎю,TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@х»яNNNNNNNNNNNNNNNNNNЎЎЎю ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---- ILLINT: PUSH AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC LD HL,ILLIM ;NOTIFY USER OF INT JR IQCONT SUBTTL INITяоNNNNNNNNNNNNNNNNNNЎЎЎю жGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################ ; ; DISK DRIVER TABLES ; ;#################################################]язNNNNNNNNNNNNNNNNЎЎЎюLбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT НящNNNNNNNNNNNNNNNNЎЎЎю YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2,1,10H,256,4 ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ENDIF IF BOOT = 3 ®ятNNNNNNNNNNNNNNNNNЎЎЎюѓVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSE›EятNNNNNNNNNNNNNNNNNЎЎЎю!iNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TMяИNNNNNNNNNNNNNNNNЎЎЎю'Г®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################### ; ; MESSAGES ; ;############################################################################ MSGLE: Dgя!NNNNNNNNNNNNNNNNЎЎЎю-,eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@–ьядNNNNNNNNNNNNNNNNNЎЎЎюђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIALIZED DATA ;############################################################################ ; ; 3740 SECTOR TRANSLATION TABLE 4аюHNNNNNNNNNNNNNNNNNЎЎЎю іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################### STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) F_яBNNNNNNNNNNNNNNNNЎЎЎю_¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; #Z0= TRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= DATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@1ОяdNNNNNNNNNNNNNNNNЎЎЎюх NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256ЅѓяИNNNNNNNNNNNNNNNNNЎЎЎюБNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS#зящNNNNNNNNNNNNNNNNNЎЎЎю"<[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACK OFFSET (OFF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 32,1,32,1,32,1 ;32 SPT, 256 BPS DB 10H ;TYPE DWЄя$NNNNNNNNNNNNNNNNNЎЎЎю(УђNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыDM CR,LF,'LOAD ERROR' ; DSKEM: DB CR,LF,'Disk Error Status:' DM CR,LF,'CM DR TL TH SL SH FG AL AH AX CL CH ST S1 S2 S3',CR,L^‘ятNNNNNNNNNNNNNNNЎЎЎю.y6NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@ ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IFя…ядNNNNNNNNNNNNNNNNNЎЎЎюЈ*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; **** CP/M SINGLE DENSITY **** ; ;############################################################################ SDTRAN: GXLAФАяИNNNNNNNNNNNNNNNNNNЎЎЎюЂ%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDVRPDRV DS 1 ;PHYSICAL DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DI‘#яINNNNNNNNNNNNNNNNNЎЎЎюlќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD,#DT,#CY,#HD L@јябNNNNNNNNNNNNNNNЎЎЎюЖ;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,4 ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1ЇsянNNNNNNNNNNNNNNNNNЎЎЎю)рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 26,0,26,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) DB 0 ;TYPE DW 77 ;CYLS DB 1 ;HEADS ;###################рмяNNNNNNNNNNNNNNNNЎЎЎю#jNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 256 ;CYLS DB 4 ;HEADS ;############################################################################ ; ; MODE 2 INTERёфяNNNNNNNNNNNNNNNNNЎЎЎю)аЎNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыF DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF IF INє?яrNNNNNNNNNNNNNNNNЎЎЎю/JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER B<Ця9NNNNNNNNNNNNNNNNЎЎЎюцyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTE 26,6 ; DB 1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,22 ;#########################љCяОNNNNNNNNNNNNNNNNNЎЎЎюІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSK FLAGS DVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ D$љязNNNNNNNNNNNNNNNNNNЎЎЎю9ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIST ON DW #DADD DB 0 ;;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD DB #FG DB #S0,#Z0,#S1,#Z1,#SD,#ZD DB #DT ;;DISK TК‹я NNNNNNNNNNNNNNNNЎЎЎюЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,32,1,10H,256,4 ENDIF LIST ON ;############################################################################ ; ; DEFTя“NNNNNNNNNNNNNNNNЎЎЎю|ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################### ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;######################t”яrNNNNNNNNNNNNNNNNNЎЎЎю$–эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRUPT VECTOR TABLE ; ;############################################################################ ; ; START ON AN EVEN PAGбzя„NNNNNNNNNNNNNNNNNЎЎЎю*µтNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort? (Y/N/I/M) - ' ENDIF ;######################IЬяrNNNNNNNNNNNNNNNNЎЎЎю0YJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CTLя“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNэЂКЃ‚fѓ4„…П…ќ†k‡8€‰Ф‰ЎЉo‹=ЊЌЩЌ§ЋtЏCђ‘Я‘’{“H”•д•І–Ѓ—O™л™№љ€›Vњ$ќуќБћђџ^ ,ЎъЎИў•Јc¤1ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюXЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ;ё`яВNNNNNNNNNNNNNNNNЎЎЎютxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################# ; ; VARIABLES ; ;########################################################################### oюNNNNNNNNNNNNNNNNЎЎЎю іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ЙАяВNNNNNNNNNNNNNNNNЎЎЎю=ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K=ўOяВNNNNNNNNNNNNNNNNNЎЎЎюТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPBPHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 5aЩятNNNNNNNNNNNNNNNNЎЎЎюxўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%’ьNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы FUNCTION DEFINITIONS Thе M5в BIOУ functionу alloч programу tп modifщ BIOУ privatе Ќ datб withouф knowinз wherЪПяђNNNNNNNNNNNNNNNNNЎЎЎю+±уNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы -1¬ thе Ќ functioо iу noф implementeд (illegal© Iж thе erroт codе iу -І Ќ theо onе oт morе argumentу arе iо error. ішязNNNNNNNNNNNNNNNNNЎЎЎю ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE REМЧюNNNNNNNNNNNNNNNNЎЎЎювFNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы# DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS«фяЙNNNNNNNNNNNNNNNNЎЎЎюHаNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)нҐядNNNNNNNNNNNNNNNNNЎЎЎю¤XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 127 DPBEXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3,њЇю!NNNNNNNNNNNNNNNNЎЎЎю‡WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы12, 7: 1024 DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERAЌкюNNNNNNNNNNNNNNNNNЎЎЎю m NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&ЗЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎые thе datб iу locateд withiо thе BIOS® Ќ Thesе functionу arе accesseд viб thе RESTARФ 28И vectoт iо loч Ќ memorщ (0028H)® T,GяВNNNNNNNNNNNNNNNNЎЎЎю,(dNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыNo. Description 0 Return BIOS Version Number Entry- A= 0 Exit - HL= Version Number in hundredth«ЖядNNNNNNNNNNNNNNNNЎЎЎю>јNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAD FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;#############################################################ЭяВNNNNNNNNNNNNNNNNNЎЎЎю СwNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 2 ;DRIVE DRIVER EXECUTION ADDRESS ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM ;###########################################g»яоNNNNNNNNNNNNNNNNЎЎЎю{СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD єiязNNNNNNNNNNNNNNNNNЎЎЎю—iNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 16K= 7 DPBDSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE)Пiю9NNNNNNNNNNNNNNNNNЎЎЎюґfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D НюBNNNNNNNNNNNNNNNNNЎЎЎю!^8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы M5b BIOS v3.16 FUNCTIONS INTERFACE SPECIFICA…zяђNNNNNNNNNNNNNNNNNЎЎЎю'фћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыhiу vectoт iу initializeд tп б Jumр instructioо Ќ bщ thе BIOУ Warн Booф code® Thе functionу arе useд bщ puttinз thе Ќ functioо Q4яЙNNNNNNNNNNNNNNNNЎЎЎю-UNNNNNNNNNNNNNNNNNNNNNNЎЎЎыs {0.00 to 655.35} 1 Return Monitor Drive Number for CP/M Drive Number Entry- A= 1 C= CP/M driv}я!NNNNNNNNNNNNNNNNЎЎЎю§+NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы############### ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;################################LяИNNNNNNNNNNNNNNNNNЎЎЎю „$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################# ; ; DRIVE ALLOCATION AREAS ; ;##########################################################ААюHNNNNNNNNNNNNNNNNNЎЎЎюhњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;####################################нЭюNNNNNNNNNNNNNNNNЎЎЎюВ:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы -1 DPBDRM DS 2 ;DRM- DIRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED -„япNNNNNNNNNNNNNNNNNЎЎЎю-сNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPTµОюNNNNNNNNNNNNNNNNNЎЎЎю"kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION May 1,1992 REV. NC л я NNNNNNNNNNNNNNNNNЎЎЎю(д NNNNNNNNNNNNNNNNNNNNNNЎЎЎыnumbeт iо thе A-register¬ anщ otheт requireд argumentу Ќ iо thе specifieд registers¬ anд executinз eitheт б RESTARФ 28И Ќ in4…яaNNNNNNNNNNNNNNNNЎЎЎю.NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыe number {0..15} Exit - A= {0..254}: Monitor drive number -2: Drive error BC,DE,HLн7яђNNNNNNNNNNNNNNNNNЎЎЎю”NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################# BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESEЯЗяОNNNNNNNNNNNNNNNNNNЎЎЎю·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################## ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DR7 ю$NNNNNNNNNNNNNNNNNЎЎЎю[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################## ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;###########################################–/яОNNNNNNNNNNNNNNNNЎЎЎюсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPBCKS DS 2 ;CKS- # DIRECTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIюINNNNNNNNNNNNNNNNNЎЎЎюАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM IF (($ - 8000H) > 07800H) OR ($ < 8000H) COъяВNNNNNNNNNNNNNNNNЎЎЎю#8ZNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы GRH Enterprises 1129 Stonylake Ct Sunnyvale, CA .PA Љ.JђяHNNNNNNNNNNNNNNNNNЎЎЎю)Ч‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыstructioо oт Callinз (executing© thе locatioо aф 0028H® Alм Ќ functionу returо б valuе iо thе A-registeт anд flags® Iж thе ZкядNNNNNNNNNNNNNNNNNЎЎЎю/}7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ? 2 Disable Logon Entry- A= 2 C= CP/M drive number {0..15} Exit - A= 0: Ok, /0: Ille·`ятNNNNNNNNNNNNNNNNЎЎЎюБINNNNNNNNNNNNNNNNNNNNNNЎЎЎыRVED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;###############################################Х‹ю'NNNNNNNNNNNNNNNNNЎЎЎю.‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO·ябNNNNNNNNNNNNNNNNNЎЎЎююNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################# STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED B;ятNNNNNNNNNNNNNNNNЎЎЎюб5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPBPSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTESш»ю$NNNNNNNNNNNNNNNNЎЎЎюK“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END Г–юNNNNNNNNNNNNNNNNNЎЎЎю$ЎНNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE REVISION HISTORY REV DATE COMMENT NC 5-1-92 Initial release. .PA Љ.HE k›ю!NNNNNNNNNNNNNNNNЎЎЎю*‚ВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыerп Ќ flaз iу set¬ theо nп erroт haу occured» iж cleared¬ theо thе A-Ќ registeт containу aо erroт code® Iж thе erroт codе iуIжя“NNNNNNNNNNNNNNNNNЎЎЎю0nzNNNNNNNNNNNNNNNNNNNNNNЎЎЎыgal drive BC,DE,HL= ? 3 Enable Logon Entry- A= 3 C= CP/M drive number {0..15} Рјя“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNNЃОЃњ‚jѓ7„…Т… †m‡;€ ‰Ш‰ҐЉt‹BЊЌЭЌ«ЋyЏHђ‘е‘і’Ђ“N”•н•»–‰—W%™т™АљЋ›]њ+ќщќЗћ•џc 1ЎяЎНў›Јh¤6Ґ¦Т¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Exit - A= 0: Ok, /0: Illegal drive BC,DE,HL= ? 4 Set Disk Format Entry- A= 4 ?џяHNNNNNNNNNNNNNNNNNЎЎЎю іьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFile Control Block */ struct fcb *srch_fst(), *srch_nxt(), f_cb, *fcb_ptr; /* farcall registers */ struct regs љябNNNNNNNNNNNNNNNNNЎЎЎю \7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы { puts("\nInsufficient Memory...Aborting!"); exit(1); } (BYTE *) fmt_buf = ((BYTE *) fov_file) + 5976)ќяЙNNNNNNNNNNNNNNNNNЎЎЎю |KNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNO, CA ; ;**************************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE„яВNNNNNNNNNNNNNNNNЎЎЎю “ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE ‰няINNNNNNNNNNNNNNNNNЎЎЎю 9&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы system down to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single function to4pяrNNNNNNNNNNNNNNNNЎЎЎю %УxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP/M 3.0 DPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAT to newѕ•яОNNNNNNNNNNNNNNNNNЎЎЎю +рwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыrupted PB_FLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-head shift6я!NNNNNNNNNNNNNNNNЎЎЎю L NNNNNNNNNNNNNNNNNNNNNNЎЎЎы C= CP/M drive number {0..15} E:HL= Disk descriptor sector image ptr Exit - A= 0: Ok, /0: Illegal 'яmNNNNNNNNNNNNNNNNNЎЎЎю ЈВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы cpui, cpuo; /**************************************************************************** main program *****љйятNNNNNNNNNNNNNNNNЎЎЎю dNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; /* Allocate format overlay buffer */ /* Top of command loop */ while (TRUE) { /**** Display Options */ printfяЋNNNNNNNNNNNNNNNNNNЎЎЎю еЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISKфvя NNNNNNNNNNNNNNNNЎЎЎю ЖУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK;CяrNNNNNNNNNNNNNNNNNЎЎЎю ,ЌNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sector & traM яОNNNNNNNNNNNNNNNNNЎЎЎю &†+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы configuration. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; rather than swЅGяBNNNNNNNNNNNNNNNNЎЎЎю ,iаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы factor to DPBs for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation from ; ђЧядNNNNNNNNNNNNNNNNЎЎЎю 8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыdrive BC,DE,HL= ? )MяОNNNNNNNNNNNNNNNNNЎЎЎю ђуNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***********************************************************************/ main () { /* Display signon */ printf(signon); “‘я$NNNNNNNNNNNNNNNNNЎЎЎю :UNNNNNNNNNNNNNNNNNNNNNNЎЎЎы("\n\n\ Command Options:\n\ 0 Display BIOS Version\n\ 1 Display monitor drive number assigned to CP/M drive\n\ 2 DisabДЇятNNNNNNNNNNNNNNNNNNЎЎЎю ЦнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8"йјяNNNNNNNNNNNNNNNNNNЎЎЎю хвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*****************u9яОNNNNNNNNNNNNNNNNNЎЎЎю !јNNNNNNNNNNNNNNNNNNNNNNЎЎЎыck. At same time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file names. _^яуNNNNNNNNNNNNNNNNNЎЎЎю 'µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыapping Roms itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benignly (at р!ядNNNNNNNNNNNNNNNNЎЎЎю -ZСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDCM8 to CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like track ;lDяВNNNNNNNNNNNNNNNNЎЎЎю жЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы } *fmt_buf, /* Ptr to the structure */ *fov_p; /* Format overlay file data ptrs */ struct { BYTE fil_name[11]; bЬяnNNNNNNNNNNNNNNNNNNЎЎЎю Е NNNNNNNNNNNNNNNNNNNNNNЎЎЎы /* Initialize data */ cpui.AF = (MF_GBNK) << 8; /* get current bank # */ farcall( (WORD) MR_FUN, 0, &cpui, &cpui); лятNNNNNNNNNNNNNNNNNNЎЎЎю )NNNNNNNNNNNNNNNNNNNNNNЎЎЎыle dynamic format selection (LOGON)\n\ 3 Enable dynamic format selection\n\ 4 Set disk format\n\ \n\ ^C Exit to DOS\n\ яNNNNNNNNNNNNNNNNNЎЎЎю ѓѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0А„я“NNNNNNNNNNNNNNNNNЎЎЎю luNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************** ; ; REVISION HISTORY: ; ; 3.00 - 26 JAN 87 GRH ; ImplementeиЈяBNNNNNNNNNNNNNNNNЎЎЎю "JпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; Change hard disk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to fail. (sectoћ—яrNNNNNNNNNNNNNNNNNЎЎЎю (Ґ$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыcurrent level) ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytes). ; zЗябNNNNNNNNNNNNNNNNЎЎЎю .‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы offset. Disk partitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamic. ; 3.…яHNNNNNNNNNNNNNNNNNЎЎЎю ХћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы/* FCB filename */ char fil_txt[]; /* File text description */ } *fov_file, /* Base ptr to array */ *fov_ptr[64]; /* Pojя“NNNNNNNNNNNNNNNNNЎЎЎю ц‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы this_bnk = cpui.AF >> 8; /* drive = -1; Assume no controller */ cmd_blk.pb_sts = -1; /* Force error if not access_¶яNNNNNNNNNNNNNNNNNNЎЎЎю )NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPPY, 20H: 5" FLOPPY ;********************R[яяNNNNNNNNNNNNNNNNNЎЎЎю °ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL ЌPюrNNNNNNNNNNNNNNNNЎЎЎю _DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыd new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to return ; a Ш8яВNNNNNNNNNNNNNNNNЎЎЎю #yЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыr remained ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routines. ; 3јЌяЙNNNNNNNNNNNNNNNNNЎЎЎю )–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыImplement data xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove clock bu‘иядNNNNNNNNNNNNNNNNNЎЎЎю /<іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы10 5-20-91 GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 version controller firmware. ; kюrNNNNNNNNNNNNNNNNЎЎЎю ЂНNNNNNNNNNNNNNNNNNNNNNNЎЎЎыtrs to each file data */ BYTE *file_bp; /* Ptr into array */ unsigned int max_files; /* max files found */ /* CP/M љяNNNNNNNNNNNNNNNNNЎЎЎю oNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыed */ /* Allocate heap buffer */ file_bp = fov_file = malloc(7000); /* Allocate Filename buffer */ if (fov_file == 0)IяВNNNNNNNNNNNNNNNNNЎЎЎю OzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTIЕ5ятNNNNNNNNNNNNNNNNNЎЎЎю ±NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = oєящNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; MovedGяЙNNNNNNNNNNNNNNNNNЎЎЎю $аINNNNNNNNNNNNNNNNNNNNNNЎЎЎы.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; Implement §юNNNNNNNNNNNNNNNNNNЎЎЎю *ГFNNNNNNNNNNNNNNNNNNNNNNЎЎЎыffer set/read system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug which corЅ|я“NNNNNNNNNNNNNNNNNЎЎЎю 0/юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3.11 9-2-91 GRH ; Add redlines & change for M5ZMON v.2.00. ; 3.12 9-11-91 GRH ; Add deblocking code. ; 9-17-91 GRH AdTtядNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNэЂЛЃ‚fѓ3„…П…ќ†l‡;€‰Х‰ЈЉq‹>ЊЌЪЌЁЋvЏCђ‘Я‘’{“J”•ж•і–‚—P™м™»љ‰›Xњ&ќфќБћђџ^ ,ЎщЎЖў”Јa¤/ҐэҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю .jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыd r/ls & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! ; BUF_RD was writing. ; Patch щёяHNNNNNNNNNNNNNNNNNЎЎЎю „МNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================== ; ; ASSEMBLY PARAMETERS ; ;============================================================================ ЎятNNNNNNNNNNNNNNNNЎЎЎю kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BDIR.DEF *INCLUDE B:M5ZF2.DEF LIST ON ;=========================================================================3RяоNNNNNNNNNNNNNNNNNЎЎЎю K{NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTACK FRAME PTR DK_BDRV EQU 0041H ;BOOT DRIVE # FROM PROM DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RE=AяrNNNNNNNNNNNNNNNNЎЎЎю ¤°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAрїядNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'ьюrNNNNNNNNNNNNNNNNЎЎЎю %дHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000)QЁязNNNNNNNNNNNNNNNNNЎЎЎю +ЗGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;Rџ(яОNNNNNNNNNNNNNNNNNЎЎЎю {9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыproblems with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON problem by using ROMBNK sector buffer foЛ’яЙNNNNNNNNNNNNNNNNNЎЎЎю ”тNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; FALSE EQU 0 TRUE EQU NOT FALSE ;============================================================================ ; ; COND¤њядNNNNNNNNNNNNNNNNЎЎЎю >TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=== ; ; DISK OPERATING SYSTEM ADDRESSES ; ;============================================================================ ;=%ятNNNNNNNNNNNNNNNNЎЎЎю ТмNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ;================================•#юrNNNNNNNNNNNNNNNNЎЎЎю сгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;============================================================================ ; ;I'ятNNNNNNNNNNNNNNNNNЎЎЎю ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #S»ябNNNNNNNNNNNNNNNNЎЎЎю &±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM ^Ня„NNNNNNNNNNNNNNNNЎЎЎю ,^РNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL ;####################################\ЏюNNNNNNNNNNNNNNNNЎЎЎю HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыr ; ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10-22-91 GRH Fix bugs ; 10-23-91 і·яђNNNNNNNNNNNNNNNNNЎЎЎю §ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыITIONAL ASSEMBLY FLAGS ; ;============================================================================ ; INTCPTS EQU TRUE ;љЭянNNNNNNNNNNNNNNNNNЎЎЎю eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SYS EQU 2 ;CP/M VERSION {2,3} ; NKSYS: EQU 59 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EлдяBNNNNNNNNNNNNNNNNЎЎЎю бЭNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================================ ; ; OTHER DECLARATIONS ; ;=====================================================%яNNNNNNNNNNNNNNNNNNЎЎЎю ВТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BDOS CONSTANTS ON ENTRY TO WRITE ; ;============================================================================ ; W"gюNNNNNNNNNNNNNNNNNNЎЎЎю !(ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERѓяoNNNNNNNNNNNNNNNNNЎЎЎю '‚*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSUBTTL BIOS CODE ORG BIOS ;---------------------------------------------------------------------------- ; ; BIOS JUMP VECА"ядNNNNNNNNNNNNNNNNЎЎЎю -mбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################## ; ; THE FOLLOWING BOOT DATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTMюNNNNNNNNNNNNNNNNNNЎЎЎю СџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH Fix bugs ; 3.13 1-15-92 GRH ; Change hard disk translation to Monitor disks 4 & 5 from 6 & 7. ; ; 3.14 2-9-92 GRHмяBNNNNNNNNNNNNNNNNЎЎЎю тђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыENABLE SYSTEM CALL INTERCEPT WHISTLE ;============================================================================ ; ; IN\юrNNNNNNNNNNNNNNNNNЎЎЎю (NNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOSdюBNNNNNNNNNNNNNNNNЎЎЎю ґЋNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы======================= ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;START…пя'NNNNNNNNNNNNNNNNNЎЎЎю [ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыRALL EQU 0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2 ;WRITE TO UNALLOCATED ;=======================џҐяЬNNNNNNNNNNNNNNNNЎЎЎю "}ЯNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIНядNNNNNNNNNNNNNNNNNЎЎЎю (’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR TABLE ; ;---------------------------------------------------------------------------- ; JP INIT1 ;COLD START ENTRY J¬—я®NNNNNNNNNNNNNNNNNЎЎЎю .8ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ЦѓяИNNNNNNNNNNNNNNNNNЎЎЎю в®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Add additional floppy disk allocation size for 1.22Mb disks. ; VERSN EQU 314 ; ;****************************************Bфю$NNNNNNNNNNNNNNNNNЎЎЎю БЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCLUDE COMIOPB3.DEF ; INCLUDE DISKS3.DEF ; INCLUDE BDIR.DEF ; INCLUDE M5ZF2.DEF ; ;========================ю)ятNNNNNNNNNNNNNNNNNЎЎЎю -NNNNNNNNNNNNNNNNNNNNNNЎЎЎы: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM DE™@ю~NNNNNNNNNNNNNNNNNЎЎЎю ‡їNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD…яrNNNNNNNNNNNNNNNNЎЎЎю htNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы===================================================== ; ; ASCII CHARS ; ;===================================================V-ябNNNNNNNNNNNNNNNNЎЎЎю #NоNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ;sтю$NNNNNNNNNNNNNNNNNЎЎЎю )Ў%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUT1{яЙNNNNNNNNNNNNNNNNNЎЎЎю /ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADDRESS ; AND LENGTH OF THE BIOS. ; ;############################################################################ ; DB 0 fgядNNNNNNNNNNNNNNNNЎЎЎю ·эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************ SUBTTL SYSTEM DECLARATIONS ;==========================================================SяBNNNNNNNNNNNNNNNNЎЎЎю X6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы==================================================== ; LIST OFF *INCLUDE COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE эУяњNNNNNNNNNNNNNNNNЎЎЎю xJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT Sє-ядNNNNNNNNNNNNNNNNNЎЎЎю —ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRћюBNNNNNNNNNNNNNNNNЎЎЎю ='NNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================= ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@аkяИNNNNNNNNNNNNNNNNNЎЎЎю $ЧyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVEREшябNNNNNNNNNNNNNNNNЎЎЎю *фvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FI7!юBNNNNNNNNNNNNNNNNЎЎЎю M1NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SEs»яОNNNNNNNNNNNNNNNNNЎЎЎю n>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы128 ;DMA += SECTOR SIZE LD HL,(CPM_DMA) ADD HL,DE LD (CPM_DMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD іяNNNNNNNNNNNNNNNNNNЎЎЎю !„`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPPY, 20H: 5" FLOPPY ;********************R[яNNNNNNNNNNNNNNNNNЎЎЎю '.ЖNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL ЌPюNNNNNNNNNNNNNNNNЎЎЎю -Б NNNNNNNNNNNNNNNNNNNNNNЎЎЎыd new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to return ; a Ш8яВNNNNNNNNNNNNNNNNЎЎЎю }sNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------------------------------------------------- ; ; INITш3я„NNNNNNNNNNNNNNNNЎЎЎю ^|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELCКядNNNNNNNNNNNNNNNNNЎЎЎю ІДNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------- ; ; WARM Rє\юBNNNNNNNNNNNNNNNNЎЎЎю bNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыT XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACKm|яHNNNNNNNNNNNNNNNNNЎЎЎю ч©NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ЅUяВNNNNNNNNNNNNNNNNЎЎЎю "С3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTIЕ5ядNNNNNNNNNNNNNNNNNЎЎЎю (>шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = oєя\NNNNNNNNNNNNNNNNЎЎЎю .”^NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; MovedGяИNNNNNNNNNNNNNNNNNЎЎЎю NBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;-------------------------------------------------------------------QяINNNNNNNNNNNNNNNNNЎЎЎю mMNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDk@ятNNNNNNNNNNNNNNNNNЎЎЎю ЃхNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;---------------------------------------------------------- ; AЄяюNNNNNNNNNNNNNNNNNЎЎЎю +SNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WЅ}я NNNNNNNNNNNNNNNNЎЎЎю ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSE DONE READING SYSTљЫяrNNNNNNNNNNNNNNNNЎЎЎю #вNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNO, CA ; ;**************************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE„яЙNNNNNNNNNNNNNNNNNЎЎЎю ) ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE ‰нядNNNNNNNNNNNNNNNNNЎЎЎю /§oNNNNNNNNNNNNNNNNNNNNNNЎЎЎы system down to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single function to4pятNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы--------- ; INIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INI@zя9NNNNNNNNNNNNNNNNЎЎЎю фЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS ; JR WARM ;############################################################################ ; ; SIGN-ON MESSAGE ; ;###зюBNNNNNNNNNNNNNNNNЎЎЎю Ф¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыWARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR LD (THIS_STK),SP EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_AtятNNNNNNNNNNNNNNNNNЎЎЎю ;mNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_јяBNNNNNNNNNNNNNNNNЎЎЎю ‘ЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEM ; JR WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,?яИNNNNNNNNNNNNNNNNNЎЎЎю ${•NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISKфvяОNNNNNNNNNNNNNNNNNЎЎЎю *XљNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK;Cя$NNNNNNNNNNNNNNNNNЎЎЎю 0ґ"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sector & traM яЙNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNэЂЛЃ™‚gѓ5„…С…џ†m‡;€‰Ц‰ЈЉr‹?Њ ЌЫЌЄЋxЏEђ‘в‘°’~“L”•з•ґ–‚—O™к™ёљ†›Uњ"ќрќѕћЌџ[ )ЎцЎГў‘Ј^¤-ҐъҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю µ¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыck. At same time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file names. _^янNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыapping Roms itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benignly (at р!юrNNNNNNNNNNNNNNNNЎЎЎю рЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDCM8 to CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like track ;lDяњNNNNNNNNNNNNNNNNЎЎЎю Р§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыbuffer for ; ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10-22-91 GRH Fix bugs ; (+ятNNNNNNNNNNNNNNNNЎЎЎю ?lNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================ ; INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE ;=================================юеяHNNNNNNNNNNNNNNNNNЎЎЎю •КNNNNNNNNNNNNNNNNNNNNNNЎЎЎы KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF {cю NNNNNNNNNNNNNNNNЎЎЎю %”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=========================================================================== ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ДяђNNNNNNNNNNNNNNNNNЎЎЎю +\›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================== ; WRALL EQU 0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2µЙяОNNNNNNNNNNNNNNNNNЎЎЎю аеNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; Change hard disk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to fail. (sectoћ—яЙNNNNNNNNNNNNNNNNNЎЎЎю .NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыcurrent level) ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytes). ; zЗянNNNNNNNNNNNNNNNNЎЎЎю Ґ€NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы offset. Disk partitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamic. ; ;”‹я NNNNNNNNNNNNNNNNЎЎЎю I0NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы10-23-91 GRH Fix bugs ; ; 3.13 1-15-92 GRH ; Change hard disk translation to Monitor disks 4 & 5 from 6 & 7. ; VERSN E}яВNNNNNNNNNNNNNNNNЎЎЎю j?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=========================================== ; ; INCLUDE COMIOPB3.DEF ; INCLUDE DISKS3.DEF ; INCLUDE BDIR.DEF ; ўPядNNNNNNNNNNNNNNNNNЎЎЎю ЂaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE љ†ю!NNNNNNNNNNNNNNNNЎЎЎю &*ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK SщBятNNNNNNNNNNNNNNNNЎЎЎю ,ЕNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;WRITE TO UNALLOCATED ;============================================================================ ; ; ASCII CHARS ; KядNNNNNNNNNNNNNNNNЎЎЎю УФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыr remained ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routines. ; 3јЌяОNNNNNNNNNNNNNNNNNЎЎЎю <NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыImplement data xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove clock bu‘ия$NNNNNNNNNNNNNNNNNЎЎЎю –№NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы 3.10 5-20-91 GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 version controller firmware. „ яyNNNNNNNNNNNNNNNNЎЎЎю zNNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU 313 ; ;**************************************************************************** SUBTTL SYSTEM DECLARATIONS ;======ЬџяNNNNNNNNNNNNNNNNNNЎЎЎю YNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINCLUDE M5ZF2.DEF ; ;============================================================================ ; LIST OFF *INCLUDEњБяNNNNNNNNNNNNNNNNNЎЎЎю !іPNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYћ©яИNNNNNNNNNNNNNNNNNЎЎЎю 'цNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8\§яЙNNNNNNNNNNNNNNNNЎЎЎю -ц=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;============================================================================ ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH РИяОNNNNNNNNNNNNNNNNNЎЎЎю JCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; Implement §яBNNNNNNNNNNNNNNNNЎЎЎю iLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыffer set/read system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug which corЅ|я NNNNNNNNNNNNNNNNNЎЎЎю …фNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; 3.11 9-2-91 GRH ; Add redlines & change for M5ZMON v.2.00. ; ; 3.12 9-11-91 GRH ; Add deblocking code. ; 9-17-91 |‹ящNNNNNNNNNNNNNNNNЎЎЎю /RNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы====================================================================== ; ; ASSEMBLY PARAMETERS ; ;==========================“‡яђNNNNNNNNNNNNNNNNNЎЎЎю А™NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE M5ZF2.DEF LIST ON ;=====================ятNNNNNNNNNNNNNNNNЎЎЎю "жNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR DK_BDRV EQU 0041H ;BOOT DRIVE # FROM PROM DEFBFR EQU PAGE0mqяЙNNNNNNNNNNNNNNNNNЎЎЎю ( ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 Ќ«ябNNNNNNNNNNNNNNNNЎЎЎю .ЈnNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@сю'NNNNNNNNNNNNNNNNNЎЎЎю yrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP/M 3.0 DPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAT to newѕ•яHNNNNNNNNNNNNNNNNNЎЎЎю Z}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыrupted PB_FLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-head shift6юrNNNNNNNNNNNNNNNNNЎЎЎю ¶ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH Add r/ls & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! ; BUF_RD was writing. ;[яфNNNNNNNNNNNNNNNNЎЎЎю cNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================== ; FALSE EQU 0 TRUE EQU NOT FALSE ;===================================ЩњятNNNNNNNNNNNNNNNNЎЎЎю уЁNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы======================================================= ; ; DISK OPERATING SYSTEM ADDRESSES ; ;===========================в†яОNNNNNNNNNNNNNNNNNЎЎЎю #Х2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0rядNNNNNNNNNNNNNNNNNЎЎЎю ):щNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;==============================яINNNNNNNNNNNNNNNNNЎЎЎю /ђ_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DXятNNNNNNNNNNNNNNNNЎЎЎю ,!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы configuration. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; rather than swЅGяВNNNNNNNNNNNNNNNNЎЎЎю ГкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы factor to DPBs for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation from ; ђЧяВNNNNNNNNNNNNNNNNЎЎЎю г–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы Patch problems with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON problem by using ROMBNK sector LµюNNNNNNNNNNNNNNNNNЎЎЎю ]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================================= ; ; CONDITIONAL ASSEMBLY FLAGS ; ;================================================ДјюrNNNNNNNNNNNNNNNNЎЎЎю ¦ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================= ; SYS EQU 2 ;CP/M VERSION {2,3} ; NKSYS: EQU 59 ;SYSTEM SIZE IN K BYTES XяОNNNNNNNNNNNNNNNNNЎЎЎю $LҐNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыC7H + BFUNRST ;============================================================================ ; ; OTHER DECLARATIONS ; ;=п”яВNNNNNNNNNNNNNNNNЎЎЎю *oЄNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================================== ; ; BDOS CONSTANTS ON ENTRY TO WRITE ; ;==============================NяЙNNNNNNNNNNNNNNNNNЎЎЎю 0ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW]фяINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNЃОЃњ‚iѓ7„…Т… †n‡<€ ‰Ч‰¤Љs‹AЊЌЬЌ«ЋyЏGђ‘г‘±’“L”•з•ґ–‚—O™л™№љ‡›Uњ"ќпќјћЉџX %ЎтЎїўЌЈZ¤(ҐцҐД¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюф2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPЏюHNNNNNNNNNNNNNNNNNЎЎЎю^”NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы------------------------------ ; ; BIOS JUMP VECTOR TABLE ; ;-------------------------------------------------------------иєядNNNNNNNNNNNNNNNNЎЎЎю ±_NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY ХяВNNNNNNNNNNNNNNNNЎЎЎю‘#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;--------------------------------------YЃюrNNNNNNNNNNNNNNNNЎЎЎю~иNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,Эя“NNNNNNNNNNNNNNNNNЎЎЎюФNNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;-------------------"°ятNNNNNNNNNNNNNNNNЎЎЎю%>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRuЯяHNNNNNNNNNNNNNNNNNЎЎЎю+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BФяNNNNNNNNNNNNNNNNNЎЎЎюЎaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@yYятNNNNNNNNNNNNNNNNNЎЎЎюNЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE IH¦яHNNNNNNNNNNNNNNNNЎЎЎюдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;####################################cяrNNNNNNNNNNNNNNNNЎЎЎюґNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы-------------------------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;---------------°ятNNNNNNNNNNNNNNNNЎЎЎю+»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLQпядNNNNNNNNNNNNNNNNNЎЎЎю БеNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;-----------™ВюBNNNNNNNNNNNNNNNNЎЎЎю&kCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID B7•ятNNNNNNNNNNNNNNNNЎЎЎю,„€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS S ояЙNNNNNNNNNNNNNNNNЎЎЎю’PNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@њяя'NNNNNNNNNNNNNNNNNЎЎЎю }›NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SEL XядNNNNNNNNNNNNNNNNNЎЎЎюЧ=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################## ; DB 0 ;Z80 CPU DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTESїсяВNNNNNNNNNNNNNNNNЎЎЎю;…NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы------------------------------------------------------------- ; INIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;USE ~„яОNNNNNNNNNNNNNNNNNЎЎЎюЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARM ;######################################################J6я®NNNNNNNNNNNNNNNNNЎЎЎю!тФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR LD (THIS_STK),SP z”яHNNNNNNNNNNNNNNNNNЎЎЎю'XrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOOT DIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETC0ядNNNNNNNNNNNNNNNNЎЎЎю-·№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBC HL,DE JP C,WREAD ; ; ELSE DONE READING SYSTEM ; JR WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESЌяВNNNNNNNNNNNNNNNNЎЎЎюЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL D?¦яBNNNNNNNNNNNNNNNNЎЎЎю (ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK RчУядNNNNNNNNNNNNNNNNNЎЎЎюДpNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;#######################%¦яВNNNNNNNNNNNNNNNNЎЎЎюnЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 ф9яHNNNNNNNNNNNNNNNNNЎЎЎюЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################### ; ; SIGN-ON MESSAGE ; ;############################################################################ $ЖяrNNNNNNNNNNNNNNNNЎЎЎю"§‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_ACT),A ;ASSUME NO DATA IN BUFFER ; LD (UNA_CNT),A ;CLEAR UNALLOCATED SECTOоаядNNNNNNNNNNNNNNNNNЎЎЎю(HLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CJюBNNNNNNNNNNNNNNNNЎЎЎю.вкNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD$я“NNNNNNNNNNNNNNNNNЎЎЎю8цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD %FlядNNNNNNNNNNNNNNNNNЎЎЎющNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEAD JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCN“яrNNNNNNNNNNNNNNNNNЎЎЎючANNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################### ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; C4яlNNNNNNNNNNNNNNNNЎЎЎю]зNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LМ_яrNNNNNNNNNNNNNNNNЎЎЎюІ,NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF b,яўNNNNNNNNNNNNNNNNЎЎЎю#”¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR COUNT ; LD (BUF_MOD),A ;CLEAN BUFFER ; LD HL,BLKBUF ;INIT BUFFER PTR LD (BUF_DMA),HL ; ; LOG ON DRIVE TO INIT TABL;lяNNNNNNNNNNNNNNNNNЎЎЎю){}NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; Nµ]яЙNNNNNNNNNNNNNNNNNЎЎЎю/СЫNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы ; ; ; WARM BOOT ERROR, OUTPUT MSG & GO TO DEBUGGER ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR CALL MR_BRЦґятNNNNNNNNNNNNNNNNЎЎЎюmҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;----------------------------------------------Ю@я„NNNNNNNNNNNNNNNNЎЎЎю‚nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION CALL ;############################################################################ ; ; THE FOLLOWING BOOT DATA MUST ~хя9NNNNNNNNNNNNNNNNЎЎЎюўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;#############################ъйяdNNNNNNNNNNNNNNNNNЎЎЎюMЩNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GETBNK LD (BUF_DMAB),A ; ; INITIALIZE CLOCK VECTORS IF CLO¦ня„NNNNNNNNNNNNNNNNЎЎЎюзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER j€юHNNNNNNNNNNNNNNNNNЎЎЎю$ !NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыES ; LD A,(DK_BDRV) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR»яоNNNNNNNNNNNNNNNNNЎЎЎю*..NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEXT SECTOR ; LD HL,CPM_SEC INC (HL) ; LD DE,128 ;DMA += SECTOR SIZE LD HL,(CPM_DMA) ADD HL,DE LD (CPM_DMA),HL ; мAяЙNNNNNNNNNNNNNNNNNЎЎЎю0В–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыK HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (тя$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNэЂЛЃ™‚hѓ6„…Т… †o‡=€‰Щ‰¦Љt‹AЊЌЭЌ¬Ћ{ЏIђ‘е‘і’Ђ“N”•й•¶–„—Q ™п™Ѕљ‹›Zњ(ќцќГћ‘џ_ -ЎъЎЗў•Јb¤0ҐэҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL —ю$NNNNNNNNNNNNNNNNNЎЎЎюi¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; SET UP DATA TABLE PTRS ; PUSH IX LD IX,(CUR_DDT) ; PUSH Iђ<яВNNNNNNNNNNNNNNNNЎЎЎю †oNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO ґюNNNNNNNNNNNNNNNNNNЎЎЎю¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK ; LD A,(IY + DPB_BLM) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET DISK TO SEEK ; LD A,(CP„яrNNNNNNNNNNNNNNNNЎЎЎюIШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NEXT SECTOR FOR FUTURE REF ; EX DE,HL ;UNASEC += 1 INC HL LD (UNA_SEC),HL ; ; IF PAST LAST SECTOR ON TRACK THEN USE9дянNNNNNNNNNNNNNNNNNЎЎЎюг~NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRS ; XOR A,A LD (IOPB + PB_STATO),A ; ; COMPUTE BUFFER SECTOR ; LD HL,(CPM_SEC) DEC HL ;CONVERT PHYSICAL SECTOR ѓ;ю NNNNNNNNNNNNNNNNЎЎЎю% NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNZ,NOMATCH ; LD HL,(BUF_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,NOMATCH ; LD DE,(BUF_PSEC) ;SAME SECTOR? DяNNNNNNNNNNNNNNNNNNЎЎЎю+*/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOGICAL SECTOR (0..N-1) LD A,L ; AND A,(IY + DPB_PHM) ;USE PHYSICAL RECO*7яОNNNNNNNNNNNNNNNNNЎЎЎю–QNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFF`ЅяmNNNNNNNNNNNNNNNNNЎЎЎюyљNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKRЄ\ядNNNNNNNNNNNNNNNNЎЎЎюУ -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL |ѕядNNNNNNNNNNNNNNNNЎЎЎюҐ`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSёпяNNNNNNNNNNNNNNNNNNЎЎЎю J«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRUE (1) ; INC A LD (REAwЯяИNNNNNNNNNNNNNNNNNЎЎЎюа NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A ; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LЋEю9NNNNNNNNNNNNNNNNЎЎЎюµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT) OR A,A JP Z,ALLO^ябNNNNNNNNNNNNNNNNЎЎЎю/єNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECESSARY REEЬяОNNNNNNNNNNNNNNNNNЎЎЎю!ЕдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR L DEC A JP NZ,SECSiяgNNNNNNNNNNNNNNNNNЎЎЎю'oBNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыNG NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; ; READ THE SECTOR BUFFERѕ^я“NNNNNNNNNNNNNNNNЎЎЎю-Ђ‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMA) ;GET/PUT CP/M DATA LD —БюBNNNNNNNNNNNNNNNNЎЎЎю<чNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ; ; PASS DEFAULT DISK TOз©яњNNNNNNNNNNNNNNNNЎЎЎю шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),»WятNNNNNNNNNNNNNNNNNЎЎЎюу@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKWRN <‰юBNNNNNNNNNNNNNNNNЎЎЎюYжNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SECTOR != UNALLOCATED SО8яHNNNNNNNNNNNNNNNNNЎЎЎю¶-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAD ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE ; DISKWRN: CALL CPM_WuиящNNNNNNNNNNNNNNNNЎЎЎю"ђ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL SECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TO ACCESS ; ; IF BUFFERџ*ядNNNNNNNNNNNNNNNNNЎЎЎю(|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_TRK),HL ; LD HL,(BUF_PSBГю®NNNNNNNNNNNNNNNNNЎЎЎю.ХЪNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SрБяИNNNNNNNNNNNNNNNNNЎЎЎюЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++=bя“NNNNNNNNNNNNNNNNNЎЎЎю,ЙNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA ; JP RWOPER ;TO PERFORM THE READ ; ; ; NORMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD JP RW_RET ;*********?¬ю NNNNNNNNNNNNNNNNNЎЎЎюАqNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRIT±‰ю|NNNNNNNNNNNNNNNNЎЎЎюjЧNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,(UNA_TRK) ;SAME TRACK? L°;ядNNNNNNNNNNNNNNNNЎЎЎю…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0 LD (UNA_CNT),A ; INC‘ЎяBNNNNNNNNNNNNNNNNЎЎЎю#Ј†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVE IN ANY CASE ; OR A,A f-ядNNNNNNNNNNNNNNNNNЎЎЎю)LMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A CALL NZ,BUF_RD ;YES, uя¬NNNNNNNNNNNNNNNNNЎЎЎю/жлNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (BUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER FLUSHES ; LD (BUF_DDT),”‘ядNNNNNNNNNNNNNNNNЎЎЎюZ•NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++ќяВNNNNNNNNNNNNNNNNЎЎЎюµ^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************* ; ; WRITE DISK SECTOR FUNCTION ; ENTRY- C= WRITE TYPE: ;3«яВNNNNNNNNNNNNNNNNЎЎЎю•"NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOЉбю NNNNNNNNNNNNNNNNNЎЎЎюzйNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALLOC ; ; MATCH, MOVE TO¤(юBNNNNNNNNNNNNNNNNЎЎЎюРONNNNNNNNNNNNNNNNNNNNNNЎЎЎы A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPER: ; ; ASSUME NO ERROHJязNNNNNNNNNNNNNNNNNЎЎЎю$:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAME DISK? CP A,(HL) JR ewю!NNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_MOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ; LD HL,(CPM_SEC) ;CЂнядNNNNNNNNNNNNNNNNNЎЎЎю0х¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIX LD (BUF_DPB),IY ; EX DE,HL ;SOURCE/DEST SWAP ; RWMOVE: ; ; BC INITIALLY 128, DE IS SOURCE, HL IS DEST ; LDIR іяЙNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃОЃњ‚jѓ7„…У…ў†o‡=€ ‰Ш‰ҐЉs‹AЊЌЭЌ«ЋyЏGђ‘в‘±’~“L”•и•µ–ѓ—Q™н™»љ‰›Xњ&ќфќВћђџ^ ,ЎъЎЗў•Јb¤0ҐэҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюҐNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ; DATA HAS BEEN MOVED TO/FROM HOST BUFFER, IF NOT DIRECTORY THEN DELAY WRITE ; LD A,(WRTYPE) ;IF NOT DIRECTORY THEN DELтRяЙNNNNNNNNNNNNNNNNNЎЎЎю№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEC)= SECTOR # TO WRITE TO ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERRлйяrNNNNNNNNNNNNNNNNЎЎЎю аrNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT) LD IY,(CUR_DPB) ; ; EXECUTE READ SECTOR ; CALL CPM_RD ; ; RESTORE PTRS & RETURN ; POP IY POP IX RET Їя®NNNNNNNNNNNNNNNNNЎЎЎюАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************* ; ; SET UP IOPB FOR EXECUTION ; ENTRY- HL= PTR TO IOPB IMAGE TRACK DATA ; IX= DDT PTR ; IY= DPB PTR ; (SPxёюBNNNNNNNNNNNNNNNNЎЎЎю/ЕNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************** ; BUF_FLSH: ; ; IF UNMODIFIED THEN RETURN ; LD A,(BUF_MOD) OR A,A RET Z ; ; ELSE SET/гяЙNNNNNNNNNNNNNNNNNЎЎЎю…cNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************ ; BUF_WR: ; LD HL,LL_WRIT JP BUF_RW ;******************¦JядNNNNNNNNNNNNNNNNЎЎЎю%o=NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++++++++++++++++++++++++++++`яОNNNNNNNNNNNNNNNNNЎЎЎю+L2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(HL) INC HL LD D,(HL) LD (CUR_DPH),DE EX DE,HL ;PUT DPH PTR IN HL FOR RETURN ; ; IF NOT FIRST SELECT OR LOGON INHIЋїя!NNNNNNNNNNNNNNNNЎЎЎюрLNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAY WRITE CP A,WRDIR LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERROR THEN ABORT ; OR A,A mTяHNNNNNNNNNNNNNNNNNЎЎЎю‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR ; ;**************************************************************************** ; CPM_WR: ; LD HL,LL_WRIT JP CPM_RW ФtязNNNNNNNNNNNNNNNNЎЎЎюµ!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;**************************************************************************** ; ; CPM_RD PERFORMS THE PHYSICAL READ FROM THE DаСя NNNNNNNNNNNNNNNNЎЎЎюY™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы)= ADDRESS {LL_READ, LLWRIT} OF EXECUTOR ; ;**************************************************************************** ; R( яrNNNNNNNNNNNNNNNNЎЎЎюz–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы PTRS TO BUFFER DATA ; PUSH IX PUSH IY LD IX,(BUF_DDT) LD IY,(BUF_DPB) ; ; WRITE THE BUFFER DATA ; CALL BUF_WR љ‚ятNNNNNNNNNNNNNNNNNЎЎЎю ђИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************** ; ; RDBUF PERFORMS THE PHYSICAL READ FROM THE HOST DISK INTO BLKBUFэяОNNNNNNNNNNNNNNNNNЎЎЎю&:nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ ; SELDSK: ; ; STORE DRIVE # FOR FUTURE USE ; LD A,C LD (CPM_DSK),A ; БцятNNNNNNNNNNNNNNNNЎЎЎю,ХҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) ;0: LOGON, 1:INHIBIT OR A,C ;0: NORMAL, 1: INHIBIT CPL AND A,1 RET Z ; ЊМятNNNNNNNNNNNNNNNNЎЎЎюГ}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR NZ,RW_RET ; ; NO ERROR/DIRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (BUF_MOD),A ; CALL BUF_WR ;WRITE TO DIS`я“NNNNNNNNNNNNNNNNNЎЎЎю ,¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; CPM_RD2 PERFORMS THE PHYSICAL READ FROM‘yю NNNNNNNNNNNNNNNNNЎЎЎю†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыISK INTO CPM_DMA. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FЎ‡ящNNNNNNNNNNNNNNNNЎЎЎюjЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD_WR: LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; ; EXECUTE LOW LEVEL READ OR WRITE (ON STACK) ; RET ;*L€яBNNNNNNNNNNNNNNNNЎЎЎюI§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; RESTORE THE PTRS ; POP IY POP IX ; ; IF ERROR THEN RETURN IT ; OR A,A RET NZ ; ; ELSE CLEAN BUFFER ; ўђяњNNNNNNNNNNNNNNNNЎЎЎю!ЈщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы. ; ENTRY- (BUF_DSK)= DISK # TO READ FROM ; (BUF_TRK)= TRACK # TO READ FROM ; (BUF_SEC)= SECTOR # TO READ FROM ; IX= DDT WяoNNNNNNNNNNNNNNNNNЎЎЎю' _NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL D яHNNNNNNNNNNNNNNNNЎЎЎю-ж”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ELSE LOG ON DRIVE ; PUSH IX ;SAVE REGS PUSH IY ; LD IX,(CUR_DDT) ;SET REGS LD IY,(CUR_DPB) ; ; ATTEMPT TO REAдИя„NNNNNNNNNNNNNNNNЎЎЎюZкNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SET RESULT STATUS FLAG POP©яВNNNNNNNNNNNNNNNNЎЎЎю yеNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (Cж±ящNNNNNNNNNNNNNNNNNЎЎЎю•]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;***************ШябNNNNNNNNNNNNNNNNЎЎЎю?ыNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*************************************************************************** ; ; BUF_FLSH FLUSHES THE BUFFER DATA IF MODIFIED “_ядNNNNNNNNNNNNNNNNNЎЎЎюР0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (BUF_MOD),A RET ;**************************************************************************** ; ; BUF_WR PERFORMS TряBNNNNNNNNNNNNNNNNЎЎЎю"цЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;***********************************************************qядNNNNNNNNNNNNNNNNNЎЎЎю(aNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HL= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUR_DDT),HL ; ; FETCH FL‡nябNNNNNNNNNNNNNNNNЎЎЎю.іЗNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JR NZ,LOGERR ; CALL DISKLOG JR NZ,LOGERR ; ; IF NO ID SECTOR THEN USЏіюHNNNNNNNNNNNNNNNNNЎЎЎюiЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IY POP IX ; RET ;**************************************************************************** ; ; CPM_WR PERFORMS T‡МяИNNNNNNNNNNNNNNNNNЎЎЎюJФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;********************к5ядNNNNNNNNNNNNNNNNNЎЎЎю¦lNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************* ; CPM_RD: ; LD HL,LL_READ ; ; COMMON CODE ; CPM_RW: PUS тяrNNNNNNNNNNNNNNNNЎЎЎюКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_PSEC)= SECTOR # TO WRITE TO ; (BUF_DDT)= DD0'ядNNNNNNNNNNNNNNNNЎЎЎюгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE PHYSICAL WRITE FROM BLKBUF TO THE HOST DISK. ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (ЄяNNNNNNNNNNNNNNNNЎЎЎю#Е›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************** ; BUF_RD: ; LD HL,LL_READ ; ; COMMON CODE ; BUF_RW: PUSH HL LD HL,BUF_TRK JP RD_WR ;++++++0яЙNNNNNNNNNNNNNNNNNЎЎЎю)*PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAGS ; INC HL ;EXE +1 INC HL ;FLGS LD C,(HL) ; ; FETCH DISK PARAMETER BLOCK ADDRESS ; INC HL ;DRV INC HL ;DPBNњятNNNNNNNNNNNNNNNNNЎЎЎю/ЂцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR IN ALL CASES) ; LD A,(IOPB + PB_ST2O) CP A,-1 ;-1:+жя„NNNNNNNNNNNNNNNNЎЎЎю<€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE PHYSICAL WRITE FROM CPM_DMA TO THE DISK. ; ENTRY- (CPM_DSK)= DISK # TO WRITE TO ; (CPM_TRK)= TRACK # TO WRITE TO ; (CPM_2MяBNNNNNNNNNNNNNNNNЎЎЎюУCNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************************** ; CPM_RD2: ; ; SET UP PTRS ; PUSH IX PUSH IY LD IX,(CUR_DD[я!NNNNNNNNNNNNNNNNЎЎЎюу?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH HL LD HL,CPM_TRK ; ; FALL INTO COMMON XFER CODE ; ;***************************************************************«ятNNNNNNNNNNNNNNNNNЎЎЎюфNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT PTR ; (BUF_DPB)= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************_аяВNNNNNNNNNNNNNNNNЎЎЎю¶RNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBUF_SEC)= SECTOR # TO WRITE TO ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;****************tяђNNNNNNNNNNNNNNNNNЎЎЎю$\NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETEcюBNNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPB),DE ; ; FETCH DISK PARAMETER HEADER ADDRESS ; INC HL ;DPH PTR LD EOщяHNNNNNNNNNNNNNNNNNЎЎЎю0“»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNONE, 0:JADE, 1:DESCRIPTOR, 2: EXTENDED, ; 3: PARTITIONED, ID JR Z,LGDEF ; ; ELSE IF OLD FORMATS THEN PAD DPB DATA г.яHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNэЂЛЃ™‚fѓ4„…Р…џ†m‡;€ ‰Ч‰¤Љr‹?Њ ЌЫЌЄЋxЏFђ‘г‘±’“L”•й•¶–„—R ™о™јљЉ›Xњ&ќфќВћ‘џ` .ЎыЎЙўЈe¤3Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю’/NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; CP A,3 JR NC,IDOK ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITH 0S LD B,ID_FLGO - ID_PSHO ; PADIDL: LD (HL),0 INC HL љТя“NNNNNNNNNNNNNNNNNЎЎЎю8‰NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы; LGDEF: BIT 4,(IX + DDT_FLG) JR Z,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; mcюrNNNNNNNNNNNNNNNNЎЎЎю ЧBNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HOME2: ; ; JUST SET TRACK TO 0 ; LD BC,0 ; ; FALL INTO SET TRACK ;Јю!NNNNNNNNNNNNNNNNЎЎЎюч>NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************************************** ; SETDMA: LD (CPM_DMA),BC ; LD A,(BUF_DMAB) ;FETCH BAN€°ятNNNNNNNNNNNNNNNNЎЎЎюхNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RETЖ4юHNNNNNNNNNNNNNNNNNЎЎЎюІSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_READ: ; ; ENABLE UPLOAD ; XOR A,A LD (IOPB + PaятNNNNNNNNNNNNNNNNЎЎЎю%X NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;START WITH 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE SECTORS ; JR Z,LL_WR2 і§язNNNNNNNNNNNNNNNNNЎЎЎю+{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ PB_SECO),HL ; ; SET PHYSICAL DRIVE ; LL_DO: LD A,(IX + DDT_DRV) LD (IOPB + PB_DRVO),A ; ; FETCH DRIVER VECTOR & EXЋьязNNNNNNNNNNNNNNNNNЎЎЎюЗ|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DJNZ PADIDL ; ; ELSE XFER ID SECTOR DATA TO TABLES ; IDOK: CALL TRNONE ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOЂЂяИNNNNNNNNNNNNNNNNNЎЎЎю(·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_DPB) ; USE DEFAULT TABLE LD BC,DPB_SZ LDIR ; LD A,(HL) ;HEADS VALUE JR Ѓўя“NNNNNNNNNNNNNNNNЎЎЎю‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ЏюrNNNNNNNNNNNNNNNNЎЎЎюn©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыK ADDRESS SET BY COLD START LD (CPM_DMAB),A ; ; DONE ; RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++%юrNNNNNNNNNNNNNNNNЎЎЎюM¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DTѕяdNNNNNNNNNNNNNNNNNЎЎЎю §шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB_FLGO),A ; ; DISABLE DOWNLOAD ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; ; PASS READ SECTOR COMMAND ; LD A,PB_READC -яBNNNNNNNNNNNNNNNNЎЎЎю& ^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;IF SHIFT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HL ;DOUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2: LD (IOPB + PB_BCNTO),HL #ЗящNNNNNNNNNNNNNNNNЎЎЎю,в•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыECUTE DISK DRIVER ; LL_OPLP: LD HL,LL_OPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD L,(IX + DDT_EXE) ;FETCH DRIVER A¬яЙNNNNNNNNNNNNNNNNЎЎЎюфMNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыUBLE DENSITY THEN NO TRANSLATION ; LD A,(BLKBUF + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] ; ; ELSE SET TRANSтяNNNNNNNNNNNNNNNNNЎЎЎю †NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERROR EXIT ; LOGERR: LD HL,0 ; FчяИNNNNNNNNNNNNNNNNNЎЎЎю± NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;**************************************************************************** ; SETTRK: LD (CPM_TRK),BC RET ;********Ђыю9NNNNNNNNNNNNNNNNЎЎЎю]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO й яОNNNNNNNNNNNNNNNNNЎЎЎю~—NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ЄюNNNNNNNNNNNNNNNNNNЎЎЎю!”ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP LL_RW ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL WRITE ; ENTRY- IX= hЎяђNNNNNNNNNNNNNNNNNЎЎЎю'>oNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ; ; FALL INTO COMMON CODE ; ;+++++++++++++++++++++++++++++++++++++++++++ђяЙNNNNNNNNNNNNNNNNЎЎЎю-С¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDRESS FROM TABLE LD H,(IX + DDT_EXE + 1) JP (HL) ; ; DRIVER RETURNS HERE ; LL_OPRET: ; ; IF NO ERRORS THEN RETURN’wяњNNNNNNNNNNNNNNNNЎЎЎюmЪNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,BLKBUF + ID_SPTO LD BC,DPBюBNNNNNNNNNNNNNNNNЎЎЎю NХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DONE ; LGDONE: POP IY ;RESTORE REGS POP IX RET ;*****************************************************************ь1ятNNNNNNNNNNNNNNNNNЎЎЎюўmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;**************1‡ю9NNNNNNNNNNNNNNNNЎЎЎюЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыXLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++$яђNNNNNNNNNNNNNNNNNЎЎЎюзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISKLOG: ; ; SET UP READ IOPB ; LD A,(BUF_DMAB) LD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPB LD DE,IOPB LD BC,PB_S¦ятNNNNNNNNNNNNNNNNЎЎЎю"БљNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!КядNNNNNNNNNNNNNNNNNЎЎЎю(.QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++ ; ; COMMON IOPB EXECUTER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE PTR ; IY= DPB PTR ; ;+2UяОNNNNNNNNNNNNNNNNNЎЎЎю.„чNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK LD E,A ; LD HL,IOPB љя“NNNNNNNNNNNNNNNNNЎЎЎю^лNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (IX + DDT_HDS),A ; ; RETURN Dуя“NNNNNNNNNNNNNNNNNЎЎЎю}дNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*********** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;******************************************************ЉЩятNNNNNNNNNNNNNNNNNЎЎЎю‘\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************** ; SETSEC: LD (CPM_SEC),BC RET ;***********************ЇVямNNNNNNNNNNNNNNNNЎЎЎю;ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TБСяrNNNNNNNNNNNNNNNNЎЎЎюФ1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTATO LDIR ; ; EXECUTE WITHOUT COMPENSATION ; JR LL_DO ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Ў<яBNNNNNNNNNNNNNNNNЎЎЎю#т«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++ ; LL_WRIT: ; ; IF STILL PROTECTED THEN ERROR ; LD A,(WR_PROT) OR A,A JR NZ,DO_ERR ; ; INHIBIT UPLOЧѓядNNNNNNNNNNNNNNNNNЎЎЎю)`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_RW: LD (IOPB + PB_CMDO),A ; ; OFFSET SECTэFя“NNNNNNNNNNNNNNNNNЎЎЎю/·ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB CALL EDITOR ; ; GЬЈюrNNNNNNNNNNNNNNNNЎЎЎюёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDONE ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ,’яњNNNNNNNNNNNNNNNNЎЎЎюдsNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; HOME: ; ; IF PENDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(BUF_MOD) OR A,A JR NZ,HOME2 ,љяNNNNNNNNNNNNNNNNЎЎЎюДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= ? ; ;********њ:ядNNNNNNNNNNNNNNNNNЎЎЎю+ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0КЂя„NNNNNNNNNNNNNNNNЎЎЎюЃbNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;+++++++++++dIяОNNNNNNNNNNNNNNNNNЎЎЎю$kяHNNNNNNNNNNNNNNNNNЎЎЎю уЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR MAXFUNCS EQU ($ - BFUNTBLtятNNNNNNNNNNNNNNNNЎЎЎю %‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++ ; RETDVRTF: ; ; ADJUST REGISTER ; LD C,E ; ; FALL INTO LOCAL ENTRY ; ;++++++++++++++++++++++++++++++++++++я'NNNNNNNNNNNNNNNNNЎЎЎю +:†NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBUF_DMAB) LD E,A ; ; RETURN NO ERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++UяnNNNNNNNNNNNNNNNNNЎЎЎю †шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR Z,LL_OPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF DEBUGGER THENА,я'NNNNNNNNNNNNNNNNNЎЎЎю i3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (HL),E INC HL LD (HL),D RET ;**************************************************************************** ; ;jяИNNNNNNNNNNNNNNNNЎЎЎю Г•NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыRESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++љрюrNNNNNNNNNNNNNNNNЎЎЎю /-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) PUSH HL ;SAVE ORIGINAL DATA ; LD A,(IOPB + PB_SECO + 1) ADD A,A ;BIT 15 -Ф9я NNNNNNNNNNNNNNNNЎЎЎю "NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABГятNNNNNNNNNNNNNNNNNЎЎЎю ж|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # FUNCTION #0јlяBNNNNNNNNNNNNNNNNЎЎЎю &LЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # ; EXIT - E:HL= DRIVER TABL7ящNNNNNNNNNNNNNNNNЎЎЎю ,ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++"Jя NNNNNNNNNNNNNNNNЎЎЎю µЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EXECUTE IT ; CP A,'M' JP Z,MR_BRK ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ER”ЁяИNNNNNNNNNNNNNNNNNЎЎЎю ZNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;******************************************************************јбяИNNNNNNNNNNNNNNNNNЎЎЎю р¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IX= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++«—юrNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы> BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; LD (IOPB + PB_TRKO),HL ;TRA”7яBNNNNNNNNNNNNNNNNЎЎЎю ?NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A БЮяnNNNNNNNNNNNNNNNNNЎЎЎю !ХMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++–]яЙNNNNNNNNNNNNNNNNNЎЎЎю 'лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, C= ? ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++аяЙNNNNNNNNNNNNNNNNЎЎЎю -ђ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES ;*******************************Hюя„NNNNNNNNNNNNNNNNЎЎЎю ,^NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ; ; ; DISPLAY WRITE PROTECT EЈяВNNNNNNNNNNNNNNNNЎЎЎю QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********** ; TRNONE: LD DE,0 JR SETTR SUBTTL HARD DISK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++l€ящNNNNNNNNNNNNNNNNNЎЎЎю гйNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: EQU XPRIM SUBTTL JADE FLOPPY DRIVER ROUTINES ;+++ФkяBNNNNNNNNNNNNNNNNЎЎЎю IONNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK = RESIDUAL ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORK ; POP HL ;TRACKУянNNNNNNNNNNNNNNNNNЎЎЎю ¦„NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION AуяNNNNNNNNNNNNNNNNЎЎЎю "ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++џцядNNNNNNNNNNNNNNNNNЎЎЎю (oХNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; ьгюNNNNNNNNNNNNNNNNNNЎЎЎю .ЕsNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************** ; ; NEWLINE PROCEDURE ; ;******************************************************Кѕя“NNNNNNNNNNNNNNNNNЎЎЎю oNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRROR MESSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR JR IOPBDMP ;*********************************************************с:я“NNNNNNNNNNNNNNNNNЎЎЎю <`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;+++++++++++++++++++++++++++++++++++^yядNNNNNNNNNNNNNNNNNЎЎЎю РШNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IYђжяьNNNNNNNNNNNNNNNNЎЎЎю z~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO +1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; RET SUBTTL BIOS FUNCTIhятNNNNNNNNNNNNNNNNЎЎЎю •µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;################################################################MЦябNNNNNNNNNNNNNNNNЎЎЎю #і/NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION #1 ; ENTRY- E= DRIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; NачяNNNNNNNNNNNNNNNNNЎЎЎю )\дNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; LD HL,0 OR A,A ;SlяЙNNNNNNNNNNNNNNNNNЎЎЎю /цBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************* ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORTЏЂя NNNNNNNNNNNNNNNNЎЎЎю JњяrNNNNNNNNNNNNNNNNЎЎЎю чЦNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ;**************************************************************************** ; LO: LD A,MF_LO JP XMROM ;+++++++ня'NNNNNNNNNNNNNNNNNЎЎЎю $€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################ ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;#####################ЭЅяђNNNNNNNNNNNNNNNNNЎЎЎю *>‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOGON ; 1..3 PARTITION # {0,..7} ; 4 1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE # DDT_DPB DS 2 ;DPB ADDRES`-ю$NNNNNNNNNNNNNNNNNЎЎЎю 0Т?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR DB #FLG ;FLAGS DB #PD ;MONITOR PHYSICAL DRIVE # ®юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNђNNNNNNNNNЃОЃњ‚iѓ6„…С…џ†m‡;€ ‰Ц‰ЈЉq‹>ЊЌЪЌЁЋvЏCђ‘Я‘’z“H”•д•±–Ђ—N™к™ёљ†›Tњ!ќпќјћЉџX &ЎфЎБўЏЈ\¤+ҐщҐЗ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюHwNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR DB #HDS ;HEADS DW #SOF ;SECTOR OFFSET ; ENDM ВянNNNNNNNNNNNNNNNNNЎЎЎювСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEC,5,12H,D5DPB,D5DPH,4,8000H ENDIF ;############################################################################ ; ; ™ЦяrNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DBХRяњNNNNNNNNNNNNNNNNЎЎЎю-fNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DBУљящNNNNNNNNNNNNNNNNЎЎЎюВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETEйnяЙNNNNNNNNNNNNNNNNNЎЎЎюhNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDW BLKBUF ;DMA DB 0 ;BANK DW 0 ;COUNT ; WR_PROT DB -1 ;/0: WRITE PROTECTION ENABLED ; ; LAST OF INITIALIZED CODE RвWяNNNNNNNNNNNNNNNNЎЎЎю%‚UNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDS 1 ;FLAGS BUF_DMA DS 2 BUF_DMAB DS 1 ;BANK # ; ; ; BLOCKING BUFFER MAINTENANCE ; BUF_PSEC DS 2 ;BUFFER PHYSICAL SECTOЌ‹яОNNNNNNNNNNNNNNNNNЎЎЎю+ЎZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: DS 2 ;LAST UNALLOC SECTOR ;############################################################################ ; ; VARIABLES-іяОNNNNNNNNNNNNNNNNNЎЎЎю$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,4,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,4,12H,D1DPB,D1DPH,4,8000H ; БёяИNNNNNNNNNNNNNNNNNЎЎЎютпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MESSAGES ; ;############################################################################ ; MSGLE: DM CR,LF,'LOAD ERROR' ;М;яNNNNNNNNNNNNNNNNЎЎЎюXINNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; DEFAULT DISK PHYSIC{©ятNNNNNNNNNNNNNNNNЎЎЎюґсNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SOF) ; ; ; DB 4 ;HEADS ;######################a9яrNNNNNNNNNNNNNNNNЎЎЎю—юNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISz8ядNNNNNNNNNNNNNNNNNЎЎЎю } NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEAD FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;############################################################ЋюBNNNNNNNNNNNNNNNNЎЎЎю&ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER BUF_MOD DS 1 ;0: BUFFER CLEAN, /0: BUFFER DIRTY (MODIFIED) ; BUF_DDT DjящNNNNNNNNNNNNNNNNЎЎЎю,8НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;############################################################################ ; CUR_DPB DS 2 ;DRIVE TABLE PTR CUR_DDT DS<љятNNNNNNNNNNNNNNNNЎЎЎю.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы C DDT_2: ALLDRV HDEXEC,5,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,5,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV FD8ћ5юHNNNNNNNNNNNNNNNNNЎЎЎю БЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WP_ERM: DM CR,LF,'W-PROT Error!' ; IF INTCPTS ISCMSG: DM CR,LF,'ILяNNNNNNNNNNNNNNNNNЎЎЎюkxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL PARAMETERS ; DB 1 ;HEADS ;############################################################################ ; ; DEFAULT,‹ящNNNNNNNNNNNNNNNNЎЎЎю‡АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;###################Є—ябNNNNNNNNNNNNNNNNЎЎЎю¤ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATAayязNNNNNNNNNNNNNNNNNЎЎЎю!N‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################ ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;##############################*‘яHNNNNNNNNNNNNNNNNNЎЎЎю'д7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 2 ;BUFFER DDT PTR BUF_DPB DS 2 ;BUFFER DPB PTR ; RSFLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;0: WRILµядNNNNNNNNNNNNNNNNЎЎЎю-ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR CUR_DPH DS 2 ;DPH PTR ; LOGRQ: DS 1 ;LOG ON REQUEST REG. ;######################Џ яВNNNNNNNNNNNNNNNNЎЎЎю·‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0 ENDIF IF BOOT = 3 ; A DDT_0: ALLDRV FD8EXi/яBNNNNNNNNNNNNNNNNЎЎЎю ”ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL SYS CALL, #= ' ENDIF ;############################################################################ ; ; DEFAULT 8" FЬѓящNNNNNNNNNNNNNNNNNЎЎЎюx5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 8" HARD DISK PARAMETER BLOCK ; ;############################################################################ ; HDPBK: DW 12№‘юBNNNNNNNNNNNNNNNNЎЎЎюТ“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@х»яИNNNNNNNNNNNNNNNNNЎЎЎю=XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;############################0ятNNNNNNNNNNNNNNNNЎЎЎю"ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################## ; ; CP/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL DRIVE CPM_TRK DS 2 ;LOGICAL ’Оя$NNNNNNNNNNNNNNNNNЎЎЎю(ф NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREADHhяBNNNNNNNNNNNNNNNNЎЎЎю.^ЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###################################################### ; ; DRIVE ALLOCATION AREAS ; ;#####################################ђъяHNNNNNNNNNNNNNNNNNЎЎЎю„іNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXEC,1,0,D1DPB,D1DPH,1,0 ; C DDT_2: ALLDRV HDEXEC,4,10H,D2DPB,D2DPH,4,0 ; U«ядNNNNNNNNNNNNNNNNNЎЎЎю§јNNNNNNNNNNNNNNNNNNNNN!цЎЎЎыLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;##############################################################.яINNNNNNNNNNNNNNNNNЎЎЎюKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы8 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM)ќiявNNNNNNNNNNNNNNNNЎЎЎюбўNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@–ьюrNNNNNNNNNNNNNNNNЎЎЎюiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################ ; ; LOGON IOPB OVERLAY ; ;#################################################8ЬяВNNNNNNNNNNNNNNNNЎЎЎю#(уNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER DS 1 ;FLAGS CPM_DMA DS 2 ;XFER ADDR CPM_DMAB DS 1 ;XFER BANK ; ; ; BU”іядNNNNNNNNNNNNNNNNNЎЎЎю)З8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D) ; ; UNAMОяlNNNNNNNNNNNNNNNNNЎЎЎю/mћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; b–яrNNNNNNNNNNNNNNNNЎЎЎюСаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы D DDT_3: ALLDRV HDEXEC,4,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV HDEXEC,5,10H,D4DPB,D4DPH,4,0 ; F DDT_5: ALLDRV HDEXЦяОNNNNNNNNNNNNNNNNNЎЎЎю>+NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы############## ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242ья!NNNNNNNNNNNNNNNNЎЎЎюWNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B #ЏятNNNNNNNNNNNNNNNNNЎЎЎюсњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0>nятNNNNNNNNNNNNNNNNЎЎЎю[:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################### ; LOGIOPB: DB PB_LOGC ;COMMAND DB 0 ;DRIVE DW 0 ;TRACK DW ID_SECT ;SECTOR DB 0 ;FLAGS ЬьяNNNNNNNNNNNNNNNNNЎЎЎю$±dNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFFER IOPB OVERLAY ; BUF_DSK DS 1 ;BUFFER DISK NUMBER BUF_TRK DS 2 ;BUFFER TRACK NUMBER BUF_SEC DS 2 ;BUFFER SECTOR NUMBER H*яОNNNNNNNNNNNNNNNNNЎЎЎю*’kNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы_CNT: DS 1 ;# SECTORS REMAINING IN BLOCK (CLUSTER) UNA_DSK: DS 1 ;LAST UNALLOC DISK UNA_TRK: DS 2 ;LAST UNALLOC TRACK UNA_SECpяЙNNNNNNNNNNNNNNNNNЎЎЎю0~УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZбюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNэЂЛЃ‚eѓ2„…О…њ†j‡8€‰У‰ Љn‹<Њ ЌШЌ§ЋuЏCђ‘Ю‘¬’z“H”•г•°–—M™к™ёљ†›Tњ"ќтќАћЋџ] +ЎшЎЖў”Јb¤0ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; CHK = DPB.CKS ; ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHр¶яЙNNNNNNNNNNNNNNNNNЎЎЎюХбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2 ;SPT- SECTORS/TRACK DPB_BSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7љъятNNNNNNNNNNNNNNNNЎЎЎю :*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы.2 DEBLOCKING) ; DPB_PSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPB%ю!NNNNNNNNNNNNNNNNЎЎЎюVNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPB_SZ ;ALLOCATION FOR DRIVE #D(DD) e…юrNNNNNNNNNNNNNNNNЎЎЎюхќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю_;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%µeNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыARD DISK PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E2ряИNNNNNNNNNNNNNNNNNЎЎЎю+–jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD DISK PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*********хяоNNNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD) D#D(DD)ALL: DS 128 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD)ЊSяHNNNNNNNNNNNNNNNNNЎЎЎюЕЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 :Р«яИNNNNNNNNNNNNNNNNЎЎЎюoyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARTITIONIљятNNNNNNNNNNNNNNNNЎЎЎюѓБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD + 1 LInеюrNNNNNNNNNNNNNNNNЎЎЎю ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю JђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&а6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JADE 8" FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICALhџятNNNNNNNNNNNNNNNNЎЎЎю,эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************* ; ; REVISION HISTORY: ; ; 3.00 - 26 JAN 87 GRH ; Im4џюrNNNNNNNNNNNNNNNNЎЎЎю%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTORйЫюHNNNNNNNNNNNNNNNNNЎЎЎю цоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLђјю'NNNNNNNNNNNNNNNNNЎЎЎю\HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNG DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF ABOVE. ; PARTITIONINGЙSю NNNNNNNNNNNNNNNNЎЎЎю°рNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ - 8000H) > 07700H) OR ($ < 8000H) CONMSsябNNNNNNNNNNNNNNNNЎЎЎю“яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю!yЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 10H ;10H: SA1004, 11H: PYX27, 3: 8" FLOPPY, 20H: 5" FLOPPY ;************“ЯяйNNNNNNNNNNNNNNNNNЎЎЎю'УNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DRIVE 0 ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK P„’юHNNNNNNNNNNNNNNNNЎЎЎю-<МNNNNNNNNNNNNNNNNNNNNNNЎЎЎыplemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to returЅ:яNNNNNNNNNNNNNNNNЎЎЎюЂІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DзябNNNNNNNNNNNNNNNNЎЎЎю ЈЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPB_DRM DS 2 ;DRM- DIRECTORY SIZE -1 DPB_AL0 D)яВNNNNNNNNNNNNNNNNNЎЎЎюONNNNNNNNNNNNNNNNNNNNNNЎЎЎы BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UPPER BITS) ; DPB_SECO DS 2nябNNNNNNNNNNNNNNNNЎЎЎюеЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END ЖЛязNNNNNNNNNNNNNNNNNЎЎЎю hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю",тNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics,БzядNNNNNNNNNNNNNNNNNЎЎЎю(Г9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IFГEю'NNNNNNNNNNNNNNNNNЎЎЎю.iџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыn ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. яЙNNNNNNNNNNNNNNNNNЎЎЎюіѓNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL DD + 1 LIST ON ENDM ;############################################################################ ; ; RESERVE DRI№bюHNNNNNNNNNNNNNNNNNЎЎЎюђЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS- # DIRECTORY SECTORS CHECKED D‹яdNNNNNNNNNNNNNNNNNЎЎЎю|4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@ЫxяюNNNNNNNNNNNNNNNNNЎЎЎюЦ’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF END ‰чяОNNNNNNNNNNNNNNNNNNЎЎЎю9YNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю#ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CUPERTINO, CA ; ;**************************************************************************** ; ; CONFIGURATION: ; ; CPM rWюINNNNNNNNNNNNNNNNNЎЎЎю)рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BOOT = 20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAЙю$NNNNNNNNNNNNNNNNNЎЎЎю/Z®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Moved system down to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single funй±ю NNNNNNNNNNNNNNNNЎЎЎюжРNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыVE PARAMETER BLOCKS ; ;############################################################################ ; STRUCT 0 DPB_SPT DS Ы\яВNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; (DRM +1) / 4 DPB_OFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2kябNNNNNNNNNNNNNNNNЎЎЎю)gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@»VядNNNNNNNNNNNNNNNNNЎЎЎюЖ¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюl NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$†TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DRIVE USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HЭщя^NNNNNNNNNNNNNNNNNЎЎЎю*Ґ[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HЭаядNNNNNNNNNNNNNNNNNЎЎЎю0IгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыction to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sect,гяHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNЃОЃњ‚iѓ7„…Т… †m‡<€ ‰Ч‰¤Љr‹?Њ ЌЫЌ©ЋxЏFђ‘б‘Ї’|“J”•е•і–Ѓ—O™м™єљ€›Wњ%ќуќАћЏџ] +ЎшЎЗў•Јb¤0ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю>ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыor & track. At same time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file ЩядNNNNNNNNNNNNNNNNNЎЎЎю”eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы than swapping Roms itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benig@fяrNNNNNNNNNNNNNNNNЎЎЎю {®NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыrom ; DCM8 to CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like cяBNNNNNNNNNNNNNNNNЎЎЎю[ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыuffer for ; ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10-22-91 GRH Fix bugs ; 1ТлядNNNNNNNNNNNNNNNNЎЎЎюґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;=========7¶яoNNNNNNNNNNNNNNNNNЎЎЎюїNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRESSES ; ;============================================================================ ; SYS EQU 2 ;CP/M VERSION {2,3} ; NСЉятNNNNNNNNNNNNNNNNЎЎЎю%фбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ;=====================================================================»uязNNNNNNNNNNNNNNNNNЎЎЎю+ЧоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;E DSK_5 EQU 10H ;F NDRVS: EQU 6 ENDIF IF BOOT = 11H ; ; 5.25" PYX-27 BOOT ; DSK_0 EQU 11H ;A DSK_1 EQU 10H ;B <ВюBNNNNNNNNNNNNNNNNЎЎЎюkђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnames. ; Change hard disk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to failЫ,юHNNNNNNNNNNNNNNNNNЎЎЎю„[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыnly (at current level) ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytы·я'NNNNNNNNNNNNNNNNЎЎЎю.эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыtrack ; offset. Disk partitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamiВљяВNNNNNNNNNNNNNNNNЎЎЎюВENNNNNNNNNNNNNNNNNNNNNNЎЎЎы0-23-91 GRH Fix bugs ; 3.13 1-15-92 GRH ; Change hard disk translation to Monitor disks 4 & 5 from 6 & 7. ; ; 3.14 2-9-¦Ѕя9NNNNNNNNNNNNNNNNЎЎЎюбJNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================================================== ; INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE бяrNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыKSYS: EQU 59 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VuяњNNNNNNNNNNNNNNNNЎЎЎю&ЎІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы======= ; ; OTHER DECLARATIONS ; ;============================================================================ ; SKTSZ EQUrБя9NNNNNNNNNNNNNNNNЎЎЎю,NyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DSK_2 EQU 10H ;C DSK_3 EQU 0H ;D DSK_4 EQU 0 ;E NDRVS: EQU 5 ENDIF ;===============================================кЪятNNNNNNNNNNNNNNNNЎЎЎюXЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы. (sector remained ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routineйяИNNNNNNNNNNNNNNNNNЎЎЎю ·jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыes). ; Implement data xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove зтя'NNNNNNNNNNNNNNNNNЎЎЎюМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыc. ; 3.10 5-20-91 GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 version controller firmwўOю NNNNNNNNNNNNNNNNЎЎЎюсtNNNNNNNNNNNNNNNNNNNNNNЎЎЎы92 GRH ; Add additional floppy disk allocation size for 1.22Mb disks. ; ; 3.15 3-17-92 GRH ; Add dynamic sector skew tabЙвябNNNNNNNNNNNNNNNNЎЎЎюТ{NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;============================================================================ ; ; INCLUDE COMIOPB3.DEF ; INCLUDE Dя=яОNNNNNNNNNNNNNNNNNЎЎЎю!8%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOSжяИNNNNNNNNNNNNNNNNNЎЎЎю'’ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 26 ;SKEW TABLE SIZE IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; DSK_0 EQU 10H ;A DSK_1 EQU 10H ;B DSK_2 EQU 10H ;C bЋядNNNNNNNNNNNNNNNNЎЎЎю-}HNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================= ; ; BDOS CONSTANTS ON ENTRY TO WRITE ; ;===============================================<Џю9NNNNNNNNNNNNNNNNЎЎЎюБ6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыes. ; 3.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; ImкаяNNNNNNNNNNNNNNNNЎЎЎю в9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыclock buffer set/read system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug wFbяBNNNNNNNNNNNNNNNNNЎЎЎюЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыare. ; 3.11 9-2-91 GRH ; Add redlines & change for M5ZMON v.2.00. ; 3.12 9-11-91 GRH ; Add deblocking code. ; 9-17-91 mЎяВNNNNNNNNNNNNNNNNЎЎЎю¤'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыle selection to login code. ; VERSN EQU 315 ; ;**************************************************************************** дwяИNNNNNNNNNNNNNNNNNЎЎЎюKмNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISKS3.DEF ; INCLUDE BDIR.DEF ; INCLUDE M5ZF2.DEF ; ;=============================================================g•яrNNNNNNNNNNNNNNNNЎЎЎю"mvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PA€TяЙNNNNNNNNNNNNNNNNNЎЎЎю(‚ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDSK_3 EQU 10H ;D DSK_4 EQU 0 ;E DSK_5 EQU 0 ;F NDRVS: EQU 6 ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; DSK_0 EЧ•яОNNNNNNNNNNNNNNNNNЎЎЎю.(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================= ; WRALL EQU 0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2 ;WRITE TO UNALLOРяHNNNNNNNNNNNNNNNNNЎЎЎютNNNNNNNNNNNNNNNNNNNNNNЎЎЎыplement CP/M 3.0 DPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAнЭяИNNNNNNNNNNNNNNNNNЎЎЎюСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыhich corrupted PB_FLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-heP’яINNNNNNNNNNNNNNNNNЎЎЎю=°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH Add r/ls & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! ; BUF_RD was writing. ; C®яyNNNNNNNNNNNNNNNNЎЎЎю—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL SYSTEM DECLARATIONS ;============================================================================ ; ; ASSEMBLY PARЖьюrNNNNNNNNNNNNNNNNЎЎЎюxЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=============== ; LIST OFF *INCLUDE COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE B:M5ZF2.DEЮ”ябNNNNNNNNNNNNNNNNЎЎЎю#^GNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR DK_BDRV EQU 0041H ;BU;яЙNNNNNNNNNNNNNNNNNЎЎЎю)±ЊNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыQU 0H ;A DSK_1 EQU 0H ;B DSK_2 EQU 10H ;C DSK_3 EQU 10H ;D DSK_4 EQU 10H ;E DSK_5 EQU 10H ;F NDRVS: EQU 6 ENDIF IF~Cя$NNNNNNNNNNNNNNNNNЎЎЎю/*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCATED ;============================================================================ ; ; ASCII CHARS ; ;================>ю NNNNNNNNNNNNNNNNЎЎЎю§TNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT to new configuration. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; ratherѕSябNNNNNNNNNNNNNNNNЎЎЎюHџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыad shift factor to DPBs for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation fЎ?яОNNNNNNNNNNNNNNNNNЎЎЎюhгNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Patch problems with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON problem by using ROMBNK sector b&`яdNNNNNNNNNNNNNNNNNЎЎЎю‡(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAMETERS ; ;============================================================================ ; FALSE EQU 0 TRUE EQU NOT FALSE љoяdNNNNNNNNNNNNNNNNЎЎЎю-ЋNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыF LIST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDЄxяОNNNNNNNNNNNNNNNNNЎЎЎю$ЗРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOOT DRIVE # FROM PROM DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUГ(яоNNNNNNNNNNNNNNNNNЎЎЎю*дЯNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BOOT = 20H ; ; 5.25" FLOPPY BOOT ; DSK_0 EQU 20H ;A DSK_1 EQU 20H ;B DSK_2 EQU 20H ;C DSK_3 EQU 20H ;D DSK_4 EQU 10H ТШяmNNNNNNNNNNNNNNNNNЎЎЎю0gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================ ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@Б‰яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNэЂЛЃ‚eѓ3„…О…њ†i‡7€‰Т‰џЉm‹;ЊЌЦЌ¤ЋsЏAђ‘Ь‘Є’x“F”•в•Ї–~—L™и™¶љ„›Rњ ќоќ»ћ‰џW %ЎтЎБўЏЈ\¤+ҐшҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@°@ядNNNNNNNNNNNNNNNNNЎЎЎюЈUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000 ENDЧ3юBNNNNNNNNNNNNNNNNЎЎЎю LћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISKWR S‹яњNNNNNNNNNNNNNNNNЎЎЎюlвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;########################################ґLятNNNNNNNNNNNNNNNNЎЎЎюѓ)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A Ђ2яИNNNNNNNNNNNNNNNNNЎЎЎю)ЏNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы##### ; ; SIGN-ON MESSAGE ; ;############################################################################ ; MSGSO: DB CR,LgQятNNNNNNNNNNNNNNNNЎЎЎю%ГСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (THIS_STK),SP EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_ACT),A ;ASSUME NO DATA IN BUFFER ; LD (UNA_CNT),A ;CLEAR UЏpюNNNNNNNNNNNNNNNNNNЎЎЎю+аЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSECхоюBNNNNNNNNNNNNNNNNЎЎЎю\ NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITHPДюHNNNNNNNNNNNNNNNNNЎЎЎюіkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 10) + '0'$иядNNNNNNNNNNNNNNNNЎЎЎюНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL ;#rТя„NNNNNNNNNNNNNNNNЎЎЎюхuNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы#################################### ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER ®йю9NNNNNNNNNNNNNNNNЎЎЎюЦzNNNNNNNNNNNNNNNNNNNNN!цЎЎЎы; ; SEND SYSTEM SIGN-ON ; LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) L9*ятNNNNNNNNNNNNNNNNNЎЎЎю <$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS ТюNNNNNNNNNNNNNNNNNNЎЎЎю&–‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNALLOCATED SECTOR COUNT ; LD (BUF_MOD),A ;CLEAN BUFFER ; LD HL,BLKBUF ;INIT BUFFER PTR LD (BUF_DMA),HL ; ; LOG ON DRЏябNNNNNNNNNNNNNNNNЎЎЎю,yINNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD C,H CALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEgРюrNNNNNNNNNNNNNNNNЎЎЎюo‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; I&яИNNNNNNNNNNNNNNNNNЎЎЎю ЂZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;---------------------------------------------------------------UЛяђNNNNNNNNNNNNNNNNNЎЎЎю*ьNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы########################################################################### ; ; THE FOLLOWING BOOT DATA MUST RESIDE AS DEFINEDG$ю NNNNNNNNNNNNNNNNЎЎЎюЖDNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;##############################################rЛяBNNNNNNNNNNNNNNNNЎЎЎюеKNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GETBNK LD (BUF_DMAB),A ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; ЭяОNNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + 128) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER ***НяИNNNNNNNNNNNNNNNNNЎЎЎю'ҐіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE TO INIT TABLES ; LD A,(DK_BDRV) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR Ў"яИNNNNNNNNNNNNNNNNЎЎЎю-JxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN EXIT ; ; NEXT SECTOR ; LD HL,CPM_SEC INC (HL) ; LD DE,128 ;DMA += SECTOR SIZE LD HL,(CPM_DMA) ADD HL,DE LD ЄяІNNNNNNNNNNNNNNNNЎЎЎюцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOt€ябNNNNNNNNNNNNNNNNЎЎЎю Х NNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------- ; ; BIOS JUMP VECTOR TABLE ; ;---------------------------------------------------------------------------- 9ѕя9NNNNNNNNNNNNNNNNNЎЎЎю9±NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOOT LOADER CјHяВNNNNNNNNNNNNNNNNЎЎЎю“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################## ; DIRBF: EQU $ ;BUFFER BEGINNING ;-------------------------------------------------------уяHNNNNNNNNNNNNNNNNNЎЎЎю|ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COР[юrNNNNNNNNNNNNNNNNЎЎЎю"ZFNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы* ELSE DS DIRBF + 128 - $ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;------------------------------------]яNNNNNNNNNNNNNNNNNЎЎЎю(µЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,яNNNNNNNNNNNNNNNNNNЎЎЎю.+NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(CPM_DMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF Aµ{юHNNNNNNNNNNNNNNNNNЎЎЎюЕ7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@¶юHNNNNNNNNNNNNNNNNNЎЎЎюж8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP COC ;C'ЗяЙNNNNNNNNNNNNNNNNNЎЎЎю ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;#####################################################}ЉюNNNNNNNNNNNNNNNNЎЎЎю &NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы--------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;--------------------------------¦–ятNNNNNNNNNNNNNNNNЎЎЎюOнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: ГябNNNNNNNNNNNNNNNNЎЎЎю#iwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & SETS UP VARIABLES ; ;-------------"яINNNNNNNNNNNNNNNNNЎЎЎю)†јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; C°ЂяNNNNNNNNNNNNNNNNNЎЎЎю/,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DEMзюrNNNNNNNNNNNNNNNNЎЎЎюђdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@чgяBNNNNNNNNNNNNNNNNЎЎЎюЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DRIVE «=юNNNNNNNNNNNNNNNNNNЎЎЎю_УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################### ; DB 0 ;Z80 CPU DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS†ядNNNNNNNNNNNNNNNNNЎЎЎю°NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы-------------------------------------------- ; INIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;USE PAGE 0 FOR STACK *НятNNNNNNNNNNNNNNNNЎЎЎюѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARM ;#######################################################################ЦѕяОNNNNNNNNNNNNNNNNNЎЎЎю$раNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR L‘µя\NNNNNNNNNNNNNNNNЎЎЎю*УпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BDasяИNNNNNNNNNNNNNNNNNЎЎЎю0?WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSE DONE READING SYSTEM ; JR WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDЏ”ю'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃОЃ›‚hѓ6„…Т…Ў†o‡=€‰Ш‰ҐЉs‹@ЊЌЫЌЄЋxЏFђ‘в‘°’~“L”•и•¶–„—R ™о™јљЉ›Yњ&ќуќБћђџ^ ,ЎъЎЗў•Јb¤0ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюсЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTdFядNNNNNNNNNNNNNNNNNЎЎЎю[,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ; ; PASSнэюrNNNNNNNNNNNNNNNNЎЎЎю ґзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUA«іяњNNNNNNNNNNNNNNNNЎЎЎю”›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A 9ёюrNNNNNNNNNNNNNNNNЎЎЎю{PNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SECTOR Ф-я“NNNNNNNNNNNNNNNNNЎЎЎюСцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE ; DISKWr!юrNNNNNNNNNNNNNNNNЎЎЎю%;ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL SECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TO ACCESS и{юHNNNNNNNNNNNNNNNNNЎЎЎю+§NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_TRK),HL ;еІяОNNNNNNNNNNNNNNNNNЎЎЎю¤ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & GO TO DEBUGGER ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDI¶ияЙNNNNNNNNNNNNNNNNNЎЎЎюKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++++++++++++яИNNNNNNNNNNNNNNNNЎЎЎюбґNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE READ ; ; ; NORMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD JP RW_RETъбящNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; лЎятNNNNNNNNNNNNNNNNЎЎЎю.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы!= UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,(UNA_TRK) џ2яЙNNNNNNNNNNNNNNNNNЎЎЎю Д]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0 LD (UNA#яNNNNNNNNNNNNNNNNЎЎЎю&nыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVE IN ANY CDятNNNNNNNNNNNNNNNNЎЎЎю,Ѓ0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A CALL NҐКядNNNNNNNNNNNNNNNNЎЎЎю—иNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR CALL MR_BRK HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HZ‹юNNNNNNNNNNNNNNNNNЎЎЎю x#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++‘tяHNNNNNNNNNNNNNNNNNЎЎЎюТ…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; WRITE DISK SECTOR FUNCTION ; ENTRY- CДюrNNNNNNNNNNNNNNNNЎЎЎю>=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OБяОNNNNNNNNNNNNNNNNNЎЎЎю2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALLOC ; ; §УяОNNNNNNNNNNNNNNNNNЎЎЎю!чlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPER: ; ; gя“NNNNNNNNNNNNNNNNNЎЎЎю']КNNNNNNNNNNNNNNNNNNNNNNЎЎЎыASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAME DISK? =‹ядNNNNNNNNNNNNNNNNЎЎЎю-ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_MOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ; LD;>яNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (>µяОNNNNNNNNNNNNNNNNNЎЎЎю -pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; SET UP DATA TABLE PTRS ; PUSH IX LD IX,(CUR_ҐwяВNNNNNNNNNNNNNNNNNЎЎЎюБИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOЈѓящNNNNNNNNNNNNNNNNЎЎЎюknNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF_SECTORS_IN_BLOCK ; LD A,(IY + DPB_BLM) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET DISK TO SE9eязNNNNNNNNNNNNNNNNNЎЎЎю„ҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; EX DE,HL ;UNASEC += 1 INC HL LD (UNA_SEC),HL ; ; IF PAST LAST SECTOR Oо{ятNNNNNNNNNNNNNNNNЎЎЎю"ў?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ASSUME NO ERRORS ; XOR A,A LD (IOPB + PB_STATO),A ; ; COMPUTE BUFFER SECTOR ; LD HL,(CPM_SEC) DEC HL ;CONVERT *ЛяNNNNNNNNNNNNNNNNNЎЎЎю(MфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CP A,(HL) JR NZ,NOMATCH ; LD HL,(BUF_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,NOMATCH ; LD DE,(BUF_PSEC)#ґяNNNNNNNNNNNNNNNNNNЎЎЎю.зRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,(CPM_SEC) ;CALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOGICAL SECTOR (0..N-1) LD A,L ; AND A,(IY + DPB_PHM) ;UUШядNNNNNNNNNNNNNNNNNЎЎЎю=NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFЄ}яОNNNNNNNNNNNNNNNNNЎЎЎюANNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR k[яЙNNNNNNNNNNNNNNNNNЎЎЎютщNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATED BLOCK (NO NEED TO PRE-READ) ; ;**************************************************************************** ; DISKWR: кћяьNNNNNNNNNNNNNNNNЎЎЎюX_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEK ; LD A,(CPM_DSK) LD (UNA_DSK),A ; ; SET TRACK TO SEEK ; LD HL,(CPM_TRK) LD (UNA_TRK),HL ; ; SET SECTOR TO SДвя„NNNNNNNNNNNNNNNNЎЎЎю·”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN TRACK THEN USE 1ST SECTOR OF NEXT TRACK ; LD E,(IY + DPB_SPT) LD D,(IY + DPB_SPT +1) SBC HL,DE JP C,NOOVF ; LD HL, -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LDН;ядNNNNNNNNNNNNNNNNЎЎЎюhNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOSю©юNNNNNNNNNNNNNNNNNNЎЎЎю‡ЦNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыA,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRUE (1) ; ¶ЄяBNNNNNNNNNNNNNNNNЎЎЎю§ЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A ; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,(CUR_DDT) ЦяdNNNNNNNNNNNNNNNNNЎЎЎюHaNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT) ORСыюrNNNNNNNNNNNNNNNNЎЎЎювЗNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, MARK A»bяИNNNNNNNNNNNNNNNNNЎЎЎю$™NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR L DEёТязNNNNNNNNNNNNNNNNNЎЎЎю*+–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; ; READ TяNNNNNNNNNNNNNNNNNЎЎЎю0З.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMA) ;GET/PUTФбя$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNэЂЛЃ‚eѓ2„…О…њ†j‡9€‰Ф‰ЎЉo‹<Њ ЌЧЌ¦ЋtЏBђ‘Я‘’z“G”•в•Ї–}—J™ж™ґљ‚›Qњќмќ№ћ€џV $ЎтЎїўЋЈ[¤)ҐчҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЖєNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERAIюHNNNNNNNNNNNNNNNNNЎЎЎюlNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SET RESULT S6lящNNNNNNNNNNNNNNNNЎЎЎю ѓЧNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO ~яВNNNNNNNNNNNNNNNNЎЎЎюЈ«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; тїяВNNNNNNNNNNNNNNNNЎЎЎюL`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; RET ;**************************************************************************** ; ; BUF_FLSH FLUSHES THE BUFFER DA#+я“NNNNNNNNNNNNNNNNNЎЎЎюжЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLEAN BUFFER ; LD (BUF_MOD),A RET ;**************************************************************************** ; ; B>jятNNNNNNNNNNNNNNNNЎЎЎю%NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*******************************************Тю'NNNNNNNNNNNNNNNNNЎЎЎю+/—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HL= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUR_DDT),HL d№яОNNNNNNNNNNNNNNNNNЎЎЎю“йNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (BUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER FLUSHES ;‰ю'NNNNNNNNNNNNNNNNNЎЎЎю|"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTATUS FLAG POP IY POP IX ; RET ;**************************************************************************** ; ; CИядNNNNNNNNNNNNNNNNЎЎЎюЦ„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыREAD FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;****sЪюrNNNNNNNNNNNNNNNNЎЎЎю:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (IY + DPB_SKT),0 ;ASSUME NO SKEW ; ; ATTEMPT TO READ ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JR NZ,LOGERR ; CA‰яdNNNNNNNNNNNNNNNNNЎЎЎю-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFLOPPY THEN ASSUME 3740 TRANSLATION ; LD A,(BLKBUF + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] CALL Z,TR8 ; ; /PяrNNNNNNNNNNNNNNNNЎЎЎю ВSNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIX + DDT_HDS),A ; ; RETURN DRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDONE ; ; ; NO ID SEC·ЕюNNNNNNNNNNNNNNNNNNЎЎЎюв/NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы TRK 0 ; EXIT - BC= 0 ; ;**************************************************************************** ; HOME: ; ; IF PE«)юrNNNNNNNNNNNNNNNNЎЎЎю дNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************** ; SETSEC: LD (CPM_SEC),BC RET ;*********************************************************************p;яdNNNNNNNNNNNNNNNNNЎЎЎю§BNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSEт‘ятNNNNNNNNNNNNNNNNЎЎЎю%MNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDIR ; ; EXECUTE WITHOUT COMPENSATION ; JR LL_DO ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!яNNNNNNNNNNNNNNNNNЎЎЎю+nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++ ; LL_WRIT: ; ; IF STILL PROTECTED THEN ERROR ; LD A,(WR_PROT) OR A,A JR NZ,DO_ERR ; ; INHIBIT UPLOAD ; 'PяBNNNNNNNNNNNNNNNNЎЎЎюТmNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL DISKLOG JR NZ,LOGERR ; ; IF NO ID SECTOR THEN USE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR^юHNNNNNNNNNNNNNNNNNЎЎЎю=¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NO DYNAMIC SKEW TABLE SPECIFIED THEN TRANSLATION IS DONE ; LD A,(BLKBUF + ID_SKWO) LD (IY + DPB_SKT),A ;IF 0 THEN DISARДюHNNNNNNNNNNNNNNNNЎЎЎю—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR, USE DEFAULT DATA ; LGDEF: ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; BIT DDT_HDB,(IX + DDT_FLG) JR Z,LGCKFD !WюBNNNNNNNNNNNNNNNNЎЎЎю{ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(BUF_MOD) OR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ©ЙятNNNNNNNNNNNNNNNNЎЎЎюX·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******* ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= ? ; ;******************************************************cя¤NNNNNNNNNNNNNNNNNЎЎЎю ІйNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL оЎяВNNNNNNNNNNNNNNNNЎЎЎю&ONNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;+++++++++++++++++++р.ятNNNNNNNNNNNNNNNNЎЎЎю,ч„NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыLD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A ; ; CALCULATE DOWNLOAD BYTE COUNT ; LD A,(IY + DPB_PSH) ;USE SHIFT FACTOR {0:1“ПятNNNNNNNNNNNNNNNNЎЎЎюб\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IN ALL CASES) ; ID SECTOR TYPES ARE: ; -1: NONE 0: OLD JADE DD ; 2: EXTENDED 3: PARTITIONED, 0-FILLED ; LD A,(IOPB + ‰LяИNNNNNNNNNNNNNNNNNЎЎЎю —NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBLES SKEW ADDITION OR A,A JR Z,NO_SKW ; ; ELSE VALID SKEW TABLE ON DISK, TRANSFER TO SKEW BUFFER ; LD HL,BLKBUF ;CALC›яИNNNNNNNNNNNNNNNNNЎЎЎю¤1NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_:вяrNNNNNNNNNNNNNNNNЎЎЎюH‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; HOME2: ; ; JUST SET TRACK TO 0 ; LD BC,0 ; ; FALL INTO SET TRACK ; ;***************************************¶"яNNNNNNNNNNNNNNNNNNЎЎЎюk†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; SETDMA: LD (CPM_DMA),BC ; LD A,(BUF_DMAB) ;FETCH BANK ADDRESS SET BY COLD START LD (CPM_DMAB),A J¤яВNNNNNNNNNNNNNNNNЎЎЎю!ЃШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++Ѕ6яgNNNNNNNNNNNNNNNNNЎЎЎю'+~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_READ: ; ; ENABLE UPLOAD ; XOR A,A LD (IOPB + PB_FLGO),*Jя'NNNNNNNNNNNNNNNNЎЎЎю-ДµNNNNNNNNNNNNNNNNNNNNNNЎЎЎы28, 1:256, 2:512, 3:1024} LD HL,128 ;START WITH 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE SECTORS ; JR Z,LL_WR2 ;IF SHIFд°юBNNNNNNNNNNNNNNNNЎЎЎюxЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB_ST2O) CP A,-1 JR Z,LGDEF ; ; ELSE IF TYPE == 3 THEN OK ; CP A,3 JR NC,TYPE3_ID ; ; ELSE PAD UNINITIALIZED DA™яОNNNNNNNNNNNNNNNNNЎЎЎю [ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыULATE PTR TO TABLE LD E,A LD D,0 ADD HL,DE ; EX DE,HL ;CALCULATE BUFFER PTR LD HL,(CUR_DPB) LD BC,DPB_SKT ADD HLЙ°яВNNNNNNNNNNNNNNNNNЎЎЎю·|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPB) ; USE DEFAULT TABLE LD BC,DPB_SZ LDIR ; LD A,(HL) ;HEADS VALUE JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCqDю9NNNNNNNNNNNNNNNNЎЎЎюЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*********************************************Е=я'NNNNNNNNNNNNNNNNNЎЎЎютNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; DONE ; RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATIOdЎяNNNNNNNNNNNNNNNNЎЎЎю"Ф‹NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DISK FUNCTION ; ENTRY- IX= DDT PTR ; IY= DPBаYядNNNNNNNNNNNNNNNNNЎЎЎю(;@NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA ; ; DISABLE DOWNLOAD ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; ; PASS READ SECTOR COMMAND ; LD A,PB_READC JP LL_RWЗюNNNNNNNNNNNNNNNNNNЎЎЎю.‘жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HL ;DOUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2: LD (IOPB + PB_BCNTO),HL ; ; ъPюHNNNNNNNNNNNNNNNNNЎЎЎюKъNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTA TO 0 ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITH 0S LD B,ID_FLGO - ID_PSHO ; PADIDL: LD (HL),0 INC HL DJNZ PADIDL ; ЦЁяИNNNNNNNNNNNNNNNNNЎЎЎюhхNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,BC EX DE,HL ; LD BC,SKTSZ LDIR ; NO_SKW: ; ; XFER DISK DATA TO DPB ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,я8яNNNNNNNNNNNNNNNNNЎЎЎю„MNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERROR EXIT ; LOGERR: LD HL,0 ; ; DONE ; LGDONE: POP IY ;RESTORE REGS POмяьNNNNNNNNNNNNNNNNЎЎЎю.лNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* ; SETTRK: LD (CPM_TRK),BC RET ;******************************************************бqящNNNNNNNNNNNNNNNNЎЎЎюБ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ;ўцяОNNNNNNNNNNNNNNNNNЎЎЎю#зєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKLOGр%яЇNNNNNNNNNNNNNNNNNЎЎЎю)qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL WRITE ; ENTRY- IX= DDT PTR jЋю$NNNNNNNNNNNNNNNNNЎЎЎю/ўЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPASS WRITE COMMAND ; LD A,PB_WRITC ; ; FALL INTO COMMON CODE ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++D[я NNNNNNNNNNNNNNNNЎЎЎю©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PROCESS TYPE-3 ID SECTOR ; TYPE3_ID: ; ; ASSUME NO TRANSLATION AS DEFAULT ; CALL TRNONE ; ; IF SINGLE-DENSITY ХџяОNNNNNNNNNNNNNNNNNЎЎЎюсbNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBLKBUF + ID_SPTO LD BC,DPB_SZ - 1 LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (И»яNNNNNNNNNNNNNNNNЎЎЎюСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP IX RET ;**************************************************************************** ; ; HOME DRIVE - TREAT AS SEEK@ъятNNNNNNNNNNNNNNNNNЎЎЎю>ХNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы********************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;************************************************************мя NNNNNNNNNNNNNNNNЎЎЎю”sNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ;љ7яОNNNNNNNNNNNNNNNNNЎЎЎю$~-NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы: ; ; SET UP READ IOPB ; LD A,(BUF_DMAB) LD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPB LD DE,IOPB LD BC,PB_STATO L©HюNNNNNNNNNNNNNNNNNNЎЎЎю*]"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++†ЙядNNNNNNNNNNNNNNNNNЎЎЎю0±љNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++ ; ; COMMON IOPB EXECUTER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE PTR ; IY= DPB PTR ; ;+++++++++Ю‘яNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNэЂЛЃ‚fѓ3„…О…њ†i‡7€‰Т‰џЉm‹;ЊЌХЌ¤ЋrЏ?ђ‘Ь‘«’y“G”•в•Ї–~—K™и™·љ…›Sњ!ќпќјћЉџY 'ЎхЎГў‘Ј^¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_RW: LD (IOPB + PB_CMDO),A ; ; OFFSET SECTOR ; К№яЙNNNNNNNNNNNNNNNNNЎЎЎюЁNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB CALL EDITOR ; ; GET USER ‘аю9NNNNNNNNNNNNNNNNЎЎЎю хcNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR JR IOPBDMP ;*****************************************************************ZћяОNNNNNNNNNNNNNNNNNЎЎЎюХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++~ябNNNNNNNNNNNNNNNNЎЎЎю:ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVERНбядNNNNNNNNNNNNNNNNNЎЎЎюђrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP HL LD DE,DPB_SKT ADD HL,DE ; LD DE,(IOPB + PB_SECO) ;SAVE CURRENT SECTOR FOR RESTORATION PUSH DE ; LD A,(IY + ]ќятNNNNNNNNNNNNNNNNЎЎЎю%z,NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTION DISPATCHER ; ENTRY- C= FUNCTION # ; EXIT - A= -1: ERROR, 0: OK ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++S!юNNNNNNNNNNNNNNNNNNЎЎЎю+Y#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; ; BIOS FUNCTION TABLE ; ;#############################################################yzяBNNNNNNNNNNNNNNNNЎЎЎюе]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD HL,(IOPB + PB_SECO) LD A,L ADD A,(IX + DDT_SOF) LD L,A LD A,H ADC A,(IX + DDT_SOF + 1) LD H,A LD (IOPB + PB_SECS—яОNNNNNNNNNNNNNNNNNЎЎЎю –NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC CALL CRLF ;NEW LINE POP 2Гю$NNNNNNNNNNNNNNNNЎЎЎю 0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (CUR_DPH)= MUST BE PTR TO DPH ; EXIT - DE, HL= ? ; ;*******Џ[яrNNNNNNNNNNNNNNNNЎЎЎюL€NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++ ; XPRIM: ; ; EXECUTE THE PRIMITIVE IN ROM ; LD A,(BUF_DMAB) ;PRESET IOPB BANK LD E,gnюrNNNNNNNNNNNNNNNNЎЎЎюo‡NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; F# я“NNNNNNNNNNNNNNNNNЎЎЎю …ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPB_SKT) ;IF 1ST ENTRY == 0 THEN NONE OR A,A ; (ILLEGAL SECTOR) JR Z,NOSKEW ; DEC DE ;ELSE USE SECTOR TO INDEX INTO ЅЇящNNNNNNNNNNNNNNNNЎЎЎю&/NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы+++++++++++++++++++++++ ; BIOFUNC: ; ; SELECT FUNCTION ; LD A,C CP A,1 JR C,RETVERS ; JR Z,RETDVRTF ; ; ERRO3$юBNNNNNNNNNNNNNNNNЎЎЎю,АґNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы############### ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR MAќятNNNNNNNNNNNNNNNNЎЎЎюЦlNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO),HL ; ; SET PHYSICAL DRIVE ; LL_DO: LD A,(IX + DDT_DRV) LD (IOPB + PB_DRVO),A ; ; FETCH DRIVER VECTOR & EXECUTE DIU¶яNNNNNNNNNNNNNNNNNNЎЎЎю 9§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN TRY AGAIN ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER JR Z,LL_O„яИNNNNNNNNNNNNNNNNNЎЎЎю“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************* ; TR8: LD DE,SDTRAN ; SETTR: LD HL,(CUR_DPH) LD (H3ЄюrNNNNNNNNNNNNNNNNЎЎЎю№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; LD HL,IOPB CALL MR_XIOB ;EXECUTE THE FUNCTION ; OR A,A ;FUNCTION ERR? RET NZ ; ; RETURN THE COMMAND RESULTS ‚єюNNNNNNNNNNNNNNNNNNЎЎЎю\¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD8EXEC: ; ; SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) ;FETCH CURRENT TRACK PUSH HL ;SAVE CURRENT TRACK FOяЄюHNNNNNNNNNNNNNNNNNЎЎЎю!¶иNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTABLE LD D,0 ADD HL,DE LD A,(HL) ;FETCH TRANSLATED SECTOR # FROM TABLE LD (IOPB + PB_SECO),A ; NOSKEW: ; ; EXECUciящNNNNNNNNNNNNNNNNNЎЎЎю'NNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR ; LD A,-1 RET IF 0 ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC §CяђNNNNNNNNNNNNNNNNЎЎЎю-у…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыXFUNCS EQU ($ - BFUNTBL) / 2 ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; (ѓяrNNNNNNNNNNNNNNNNЎЎЎюOыNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSK DRIVER ; LL_OPLP: LD HL,LL_OPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD L,(IX + DDT_EXE) ;FETCH DRIVER ADDRESS FяЬяВNNNNNNNNNNNNNNNNЎЎЎю lфNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF DEBUGGER THEN EXECUTEљйюBNNNNNNNNNNNNNNNNNЎЎЎюЂLNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL),E INC HL LD (HL),D RET ;**************************************************************************** ; ; SET NO ¬ЖюBNNNNNNNNNNNNNNNNЎЎЎю*кNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTATUS ; LD A,(IOPB + PB_STATO) OR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++†}яђNNNNNNNNNNNNNNNNNЎЎЎюЕ!NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR RESTORATION ; LD A,(IX + DDT_HDS) ;IF HEADS == 1 THEN SKIP MODIFICATION DEC A JR Z,FD8SNGL ; LD A,(IOPB + PB_SECO + °цюrNNNNNNNNNNNNNNNNЎЎЎю"г»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORK ; POP HL ;RESTORE ORIGINAL SECTOR RES 7,х†яЙNNNNNNNNNNNNNNNNNЎЎЎю(pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD 1¬яИNNNNNNNNNNNNNNNNNЎЎЎю.¦ЦNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRETURN BIOS VERSION # FUNCTION #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;+++++++++++++++++++++++++++++++++++++++ ХяdNNNNNNNNNNNNNNNNNЎЎЎю|КNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM TABLE LD H,(IX + DDT_EXE + 1) JP (HL) ; ; DRIVER RETURNS HERE ; LL_OPRET: ; ; IF NO ERRORS THEN RETURN ZF ; RмюHNNNNNNNNNNNNNNNNNЎЎЎю_ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IT ; CP A,'M' JP Z,MR_BRK ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR REћбю$NNNNNNNNNNNNNNNNNЎЎЎюі}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;***************************************************************************юNNNNNNNNNNNNNNNNЎЎЎюЫNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IX= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++Q[ю NNNNNNNNNNNNNNNNЎЎЎюцNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы1) ADD A,A ;BIT 15 -> BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; LD ЙРяВNNNNNNNNNNNNNNNNЎЎЎю#РЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH ;CLEAR SIDE BIT 1ST LD (IOPB + PB_SECO),HL ; POP HL ;RESTORE ORIGINAL TRACK LD (IOPB + PB_TRKO),HL ; ; DONE ; OјяИNNNNNNNNNNNNNNNNNЎЎЎю)?ANNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S®»я“NNNNNNNNNNNNNNNNNЎЎЎю/•зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;++++++++++++++++++++++SЕятNNNNNNNNNNNNNNNNЎЎЎю)™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK LD E,A ; LD HL,IOPB LD A,MF_B‘яОNNNNNNNNNNNNNNNNNЎЎЎюЖRNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT Z ; ; ELSE RETURN ERROR TO BDOS ; LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ; ; ; DISPLAY WRITE PROTECT ERROR MES†(ябNNNNNNNNNNNNNNNNЎЎЎюж.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы** ; TRNONE: LD DE,0 JR SETTR SUBTTL HARD DISK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++qядNNNNNNNNNNNNNNNNNЎЎЎю еNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: EQU XPRIM SUBTTL JADE FLOPPY DRIVER ROUTINES ;+++++++++++EfюBNNNNNNNNNNNNNNNNЎЎЎюЈCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(IOPB + PB_TRKO),HL ;TRACK = RESIDUAL ; ; IF SKEW ENABLED THEN TRANSLATE IT ; FD8SNGL: PUSH IY ;CALCULATE PTR TO TABLE RяИNNNNNNNNNNNNNNNNNЎЎЎю$INNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCЖязNNNNNNNNNNNNNNNNNЎЎЎю*jNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;#########################################цNяЙNNNNNNNNNNNNNNNNNЎЎЎю0†ЄNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION #1 ; ENTRY- E= DRIVE # ; EXIT - ,яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃОЃ›‚hѓ6„…Т… †n‡=€‰Щ‰¦Љt‹AЊЌЫЌ©ЋwЏEђ‘г‘±’“M”•и•µ–ѓ—P™н™јљЉ›Xњ%ќуќАћЋџ\ *ЎшЎЕў“Ј`¤.ҐьҐК¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎювNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE REQUESTED (HL=0) ; A, B, C= ? ; ;+++++++++++++++++++++++++++++++++++++++++2QяdNNNNNNNNNNNNNNNNNЎЎЎю¶DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,RETDV2 ; LD HL,0 OR A,A ;SET NZ RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DDT_SIZ ; RETDVL: AD;яNNNNNNNNNNNNNNNNЎЎЎю YЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*************************************************************************** ;·яВNNNNNNNNNNNNNNNNЎЎЎюyуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z~еяrNNNNNNNNNNNNNNNNЎЎЎю–8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;+++++++++++++++++++++++++++++++++++++++++–PяЙNNNNNNNNNNNNNNNNNЎЎЎю<ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ROM EXECUTER ; ENTRY- A= FUNCTION # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMRб†я„NNNNNNNNNNNNNNNNЎЎЎю%ЦАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;****************************************************************************џЭюNNNNNNNNNNNNNNNNNNЎЎЎю+хПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; LO: LDSiя9NNNNNNNNNNNNNNNNЎЎЎюI±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ ; RETDVRTF: ; ; ADJUST REGISTER ; LD C,E ; ; FALL INTO LOCAL ENTRY ; ;+++sяNNNNNNNNNNNNNNNNNNЎЎЎю¦zNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,DE DJNZ RETDVL ; LD A,(BUF_DMAB) LD E,A ; ; RETURN NO ERROR ; XOR A,A RET ;+++++++++++++++++++++++++++ЦµяИNNNNNNNNNNNNNNNNЎЎЎюЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALEVуящNNNNNNNNNNNNNNNNЎЎЎюаdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BCvPятNNNNNNNNNNNNNNNNЎЎЎюГkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF W яNNNNNNNNNNNNNNNNNЎЎЎю )5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOM: EQU MR_FUN SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; яBNNNNNNNNNNNNNNNNЎЎЎю&ѓ“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; COC: LD A,MF_CO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READEђ©ящNNNNNNNNNNNNNNNNЎЎЎю,lXNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы A,MF_LO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE 0gятNNNNNNNNNNNNNNNNЎЎЎюzЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRjЎяИNNNNNNNNNNNNNNNNNЎЎЎю •KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;++++++++++++++++++++++µ‚яИNNNNNNNNNNNNNNNNNЎЎЎю?нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNDAR ; SYSTEM CALLS FOR ASMB. ; ;*************************************************************************** INTCPT: LD A,CQ±ятNNNNNNNNNNNNNNNNЎЎЎюУUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SAVE FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUT FUNCTION # ; еІяОNNNNNNNNNNNNNNNNNЎЎЎюрZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,MF_GCAL JP XMROM CKяNNNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LKјяОNNNNNNNNNNNNNNNNNЎЎЎю'°ўNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыR DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READE@+язNNNNNNNNNNNNNNNNЎЎЎю-_iNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISM яNNNNNNNNNNNNNNNNЎЎЎюгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, C= ? ; ;++++++++++++++++++++++++++++++++++nHя!NNNNNNNNNNNNNNNNЎЎЎю АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES xgя9NNNNNNNNNNNNNNNNNЎЎЎю, NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN НKяВNNNNNNNNNNNNNNNNЎЎЎю†NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы POP BC LD A,MF_PHXB CALL XMROM ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HL = A = 0 Ь„яОNNNNNNNNNNNNNNNNNЎЎЎюiНNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONзµя„NNNNNNNNNNNNNNNNЎЎЎю"OWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,MF_CI JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STAіятNNNNNNNNNNNNNNNNNЎЎЎю( њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;***************************************************************ХќяђNNNNNNNNNNNNNNNNNЎЎЎю. :NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTST: LD A,MF_LOS JP XMROM ;**************************************************************************** ; ; MESSAGE E±[юHNNNNNNNNNNNNNNNNNЎЎЎюР&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DП&яNNNNNNNNNNNNNNNNNNЎЎЎюу)NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;*************************************************************************** ; ; NEWLINE PROCEDURE ; ;*********************ояINNNNNNNNNNNNNNNNNЎЎЎю‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOA5яьNNNNNNNNNNNNNNNNЎЎЎюµ7NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ЛжяВNNNNNNNNNNNNNNNNЎЎЎюZьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDS ; B= MINUTES ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKTIM: LЂляВNNNNNNNNNNNNNNNNЎЎЎю#|fNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++БSяHNNNNNNNNNNNNNNNNNЎЎЎю)“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************* ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************1ая“NNNNNNNNNNNNNNNNNЎЎЎю/9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;*****************************************************«nятNNNNNNNNNNNNNNNNЎЎЎю…uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR CЧ<яОNNNNNNNNNNNNNNNNNЎЎЎюjѕNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы****************************************************** ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTц}яВNNNNNNNNNNNNNNNNЎЎЎюJВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALСђяNNNNNNNNNNNNNNNNNЎЎЎюҐ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++++++++++++ NятNNNNNNNNNNNNNNNNЎЎЎюЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD A,MF_GTIM JP XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOҐ¦яђNNNNNNNNNNNNNNNNNЎЎЎю$есNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++ ; CNSCK: LD A,MF_CIS JP XMROM ;**************************************************************************** ;МяОNNNNNNNNNNNNNNNNNЎЎЎю*ЖюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************** ; PUNCH: RET ;**************************************************************************** ; ; PRINTER DчядNNNNNNNNNNNNNNNNNЎЎЎю0*FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZED DATA ;###########Я+юHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNэЂЛЃ™‚fѓ4„…П…њ†j‡8€‰У‰ Љn‹<Њ ЌЧЌҐЋsЏ@ђ‘Ю‘’z“H”•г•°–~—K™з™¶љ„›Rњ ќоќјћ‹џY 'ЎхЎГў‘Ј^¤,ҐъҐИ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю+ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################# ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITL±яЙNNNNNNNNNNNNNNNNNЎЎЎюЃtNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAGS BIT DEF. ; 0 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} DDT_HDB EQU 4 ;1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PKю NNNNNNNNNNNNNNNNЎЎЎю nїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR DB #FLG ;FLA$fящNNNNNNNNNNNNNNNNЎЎЎюNГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DDT_2: ALLDRV HDEXEC,4,10H,D2DPB,D2DPH,4,0 ; D DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; E DDT_5: ALLDRV FD8EXEC,1,0rю9NNNNNNNNNNNNNNNNЎЎЎюЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_ERM: DM CR,LF,'W-PROT Error!' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;#########################ІюNNNNNNNNNNNNNNNNNЎЎЎю®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################## ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;#####®лятNNNNNNNNNNNNNNNNЎЎЎю%брNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################################ ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;#########################################&яњNNNNNNNNNNNNNNNNЎЎЎю+ВяNNNNNNNNNNNNNNNNNNNNNNЎЎЎы D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFFСЭюBNNNNNNNNNNNNNNNNЎЎЎю~ЃNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыY **** ; ;############################################################################ ; SDTRAN: GXLATE 26,6 ;#########ЗґяИNNNNNNNNNNNNNNNNNЎЎЎю‘JNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHYSICAL DRIVE # DDT_DPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLLOWING MAY BE(ыюNNNNNNNNNNNNNNNNЎЎЎю;мNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыGS DB #PD ;MONITOR PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR DB #HDS ;HE:яВNNNNNNNNNNNNNNNNЎЎЎюЧTNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы,D5DPB,D5DPH,1,0 ENDIF IF BOOT = 3 ; A DDT_0: ALLDRV FD8EXEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXEC,1,0,Dgpя„NNNNNNNNNNNNNNNNЎЎЎюф[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################### ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMЈmяNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################################### ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) 86яNNNNNNNNNNNNNNNNЎЎЎю&ґЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENE—цюBNNNNNNNNNNNNNNNNЎЎЎю,[hNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;################################################################¦я¤NNNNNNNNNNNNNNNNЎЎЎюM°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################################################################### ; ; COMMON I/O PARAMETER BLOCK ; ;######################ФЋюHNNNNNNNNNNNNNNNNNЎЎЎю ў{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DEFINE THE STRUI—яђNNNNNNNNNNNNNNNNNЎЎЎюЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADS DW #SOF ;SECTOR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,4,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALsоятNNNNNNNNNNNNNNNNЎЎЎюдeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1DPB,D1DPH,1,0 ; C DDT_2: ALLDRV HDEXEC,4,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,4,12H,D3DPB,D3DPH,4,8000H ; E AВяОNNNNNNNNNNNNNNNNNЎЎЎюЗjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAT ; ;############################################################################ ; SD8PBK: DW 26 ;SECTORS PER TRACK DB ‹—ю'NNNNNNNNNNNNNNNNNЎЎЎю!-4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSsЖяNNNNNNNNNNNNNNNNNЎЎЎю'‡’NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: в°я“NNNNNNNNNNNNNNNNЎЎЎю-hYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############ ; ; LOGON IOPB OVERLAY ; ;############################################################################ ; LOGI>.яВNNNNNNNNNNNNNNNNЎЎЎюФ'NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы###################################################### ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;#########0яњNNNNNNNNNNNNNNNNЎЎЎю ч(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTURE SIZE ; DDT_SIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRЛя9NNNNNNNNNNNNNNNNNЎЎЎюђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDRV HDEXEC,4,12H,D1DPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,5,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,5,12H,D3DPў^юBNNNNNNNNNNNNNNNNЎЎЎю±6NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DDT_4: ALLDRV HDEXEC,5,10H,D4DPB,D4DPH,4,0 ; F DDT_5: ALLDRV HDEXEC,5,12H,D5DPB,D5DPH,4,8000H ENDIF ;#############юNNNNNNNNNNNNNNNNNNЎЎЎю^эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALиzю NNNNNNNNNNNNNNNNЎЎЎю"xgNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZЛАю$NNNNNNNNNNNNNNNNNЎЎЎю(—¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыMACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ДСяОNNNNNNNNNNNNNNNNNЎЎЎю.= NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB: DB PB_LOGC ;COMMAND DB 0 ;DRIVE DW 0 ;TRACK DW ID_SECT ;SECTOR DB 0 ;FLAGS DW BLKBUF ;DMA DB 0 ;BANK DW 0 ;…ЌяNNNNNNNNNNNNNNNNNNЎЎЎюзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################### ; ; DISK DRIVER TABLES (DDT) ; ;########################З*яИNNNNNNNNNNNNNNNNNЎЎЎюДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FLG= DRIVE FLAGS ; #DPB= DP‹±юdNNNNNNNNNNNNNNNNNЎЎЎю(ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB,D3DPH,4,8000H ; E DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0 ENDIF Ў«яbNNNNNNNNNNNNNNNNЎЎЎю‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################################### ; ; MESSAGES ; ;##########################################¶.я„NNNNNNNNNNNNNNNNЎЎЎюmМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD®3юBNNNNNNNNNNNNNNNNЎЎЎю#KVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 vјю$NNNNNNNNNNNNNNNNNЎЎЎю)¤ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF (DSK_ђУятNNNNNNNNNNNNNNNNNЎЎЎю/;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCOUNT ; WR_PROT DB -1 ;/0: WRITE PROTECTION ENABLED ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ S9рятNNNNNNNNNNNNNNNNЎЎЎюІENNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################### ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIVER DDT_FLG DS 1 ;FL№2юBNNNNNNNNNNNNNNNNЎЎЎю]ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB ADDRESS ; #DPH= DPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R1юBNNNNNNNNNNNNNNNNЎЎЎю}тNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF BOOT = 11H ; A DDT_0: ALLDRV HDEXEC,6,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,6,12H,D1DPB,D1DPH,4,8000H ; C@lядNNNNNNNNNNNNNNNNNЎЎЎю’9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################## ; MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WPOюrNNNNNNNNNNNNNNNNЎЎЎю8џNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET DB 0 ;SKEW = 0 ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;##јяИNNNNNNNNNNNNNNNNNЎЎЎю$ТБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;LOGICAL DRIVE SECTOR OFFSET (SOF) DB 0 ;SKEW = 0 ; ; ; DB 4 ;HEADS ;############################################ћgюNNNNNNNNNNNNNNNNNNЎЎЎю*сОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы#D(DD) AND 0F0H) = 10H DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW№яЇNNNNNNNNNNNNNNNNNЎЎЎю0vNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыUBTTL UNINITIALIZED DATA AREA ;############################################################################ ; ; THE FOLLOWIАNяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃПЃњ‚iѓ7„…Т… †m‡<€ ‰Ч‰¤Љr‹@ЊЌЫЌЄЋxЏFђ‘г‘±’“M”•й•¶–„—R!™п™Ѕљ‹›Yњ'ќхќГћ’џ` .ЎьЎКўЈe¤4Ґ¦Р¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюjVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNG DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;##################################################################яЙNNNNNNNNNNNNNNNNNЎЎЎюАрNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыUFFER DPB PTR ; RSFLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTЪятNNNNNNNNNNNNNNNNЎЎЎю /;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR CUR_DPH DS 2 ;DPH PTR ; LOGRQ: DS 1 ;LOG ON REQUEST REG. ;##########################################################¤®яВNNNNNNNNNNNNNNNNЎЎЎюGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы_#D(DD) AND 0F0H) = 0 D#D(DD)ALL: DS 75 ;ALLOCATION BIT MAP FOR 8" FLOPPY DRIVE #D(DD) D#D(DD)CHK DS 64 ;DIRECTORY CHECKSUM+°ятNNNNNNNNNNNNNNNNЎЎЎюаЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSJ‡я“NNNNNNNNNNNNNNNNNЎЎЎюJ*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ADDITIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING D8”яВNNNNNNNNNNNNNNNNЎЎЎю% tNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF ЂўяNNNNNNNNNNNNNNNNNNЎЎЎю+ѓ{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL8ящNNNNNNNNNNNNNNNNЎЎЎю?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## ; ; CP/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL DRIVE CPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL §юHNNNNNNNNNNNNNNNNNЎЎЎюРОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыYPE: DS 1 ;WRITE OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PRERE+KяЙNNNNNNNNNNNNNNNNЎЎЎюzhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################## ; ; DRIVE ALLOCATION AREAS ; ;#########################################################################Ґoя9NNNNNNNNNNNNNNNNЎЎЎю–РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF AПяrNNNNNNNNNNNNNNNNЎЎЎюµЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPB_DRM DS 2 ;DRM- ·3яЙNNNNNNNNNNNNNNNNNЎЎЎю _ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPBOFF ABOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UЗ5яВNNNNNNNNNNNNNNNNЎЎЎю&х'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT =ХВяВNNNNNNNNNNNNNNNNЎЎЎю,мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVE 1 ENDIF ; ;************************************************************* ; ; REVISION HISTORY: ; ; 3.00 - 26 м§явNNNNNNNNNNNNNNNNЎЎЎю4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR NUMBER DS 1 ;FLAGS CPM_DMA DS 2 ;XFER ADDR CPM_DMAB DS 1 ;XFER BANK ; ; ; BUFFER IOPB OVERLAY ; BUF_DSK DS 1 ; «яNNNNNNNNNNNNNNNNNNЎЎЎю гяNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAD & WRITE) ; 2: WRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D) ; ; UNA_CNT: DS 1 ;# SECTORS REMAINING IN B«яђNNNNNNNNNNNNNNNNNЎЎЎюIYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATIONЛZяrNNNNNNNNNNNNNNNNЎЎЎюҐбNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;####################################################################Ж§язNNNNNNNNNNNNNNNNNЎЎЎю†оNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIRECTORY SIZE -1 DPB_AL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS- # DЉЋязNNNNNNNNNNNNNNNNNЎЎЎю!l°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 3H ;10H: HARD DISK, 3: 8" FLOPPY, 20H: 5" FLOPPY ;*********************ряяђNNNNNNNNNNNNNNNNNЎЎЎю'ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0Й›яОNNNNNNNNNNNNNNNNЎЎЎю-)ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new' я9NNNNNNNNNNNNNNNNЎЎЎю•ЈNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыBUFFER DISK NUMBER BUF_TRK DS 2 ;BUFFER TRACK NUMBER BUF_SEC DS 2 ;BUFFER SECTOR NUMBER DS 1 ;FLAGS BUF_DMA DS 2 BUF_DMAB &=яОNNNNNNNNNNNNNNNNNЎЎЎю ¶¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOCK (CLUSTER) UNA_DSK: DS 1 ;LAST UNALLOC DISK UNA_TRK: DS 2 ;LAST UNALLOC TRACK UNA_SEC: DS 2 ;LAST UNALLOC SECTOR ;##щящNNNNNNNNNNNNNNNNNЎЎЎюZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NфюHNNNNNNNNNNNNNNNNNЎЎЎюЃгNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------ ; ; BIOS JUMP VECTOR TABLE ; ;-------------------------------------------------------------------#'яИNNNNNNNNNNNNNNNNЎЎЎю+ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOЎOяВNNNNNNNNNNNNNNNNЎЎЎюЗэNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы#################################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------fLятNNNNNNNNNNNNNNNNЎЎЎюдтNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GETBNK LD (BUF_DMAB),У$ядNNNNNNNNNNNNNNNNNЎЎЎю ¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONZяОNNNNNNNNNNNNNNNNNЎЎЎю&¤ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDMA),HL ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(BTARG) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IFя9NNNNNNNNNNNNNNNNЎЎЎю,KБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD D,(HL) LD (IOPB + PB_SECO),DE ; INC HL ;FETCH SEGMENT SECTOR COUNT LD A,(HL) LD (SECCNT),A ; INC HL ;SAVE C[Rя„NNNNNNNNNNNNNNNNЎЎЎю]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)®яОNNNNNNNNNNNNNNNNNЎЎЎю ІТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT 36яNNNNNNNNNNNNNNNNNЎЎЎюtNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;##########################################rятNNNNNNNNNNNNNNNNЎЎЎюфМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;----------mязNNNNNNNNNNNNNNNNNЎЎЎюЧГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PR_фяђNNNNNNNNNNNNNNNNNЎЎЎю!=ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR6пя§NNNNNNNNNNNNNNNNNЎЎЎю'—;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ERROR THEN ABORT OR A,H JR Z,W_EROR ; ; SETUP IOPB ; LD A,PB_READC LD (IOPB + PB_CMDO),A ; LD A,(BTARG) LD (I*дязNNNNNNNNNNNNNNNNЎЎЎю-xрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыURRENT DATA PTR LD (LDRPTR),HL ; ; READ SYSTEM ; W_READ: CALL XPRIM LD A,2 JR NZ,W_EROR ;IF ERROR THEN EXIT ; ; лящNNNNNNNNNNNNNNNNЎЎЎюДЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@r<яђNNNNNNNNNNNNNNNNNЎЎЎю зЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DIQ¦яВNNNNNNNNNNNNNNNNNЎЎЎю9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################## ; DB 0 ;CPU TYPE (Z80 CPU) DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN ( ящNNNNNNNNNNNNNNNNЎЎЎюЎџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------------------------------ ; INIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;уюNNNNNNNNNNNNNNNNNNЎЎЎюNTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,1РRю NNNNNNNNNNNNNNNNЎЎЎю"hОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SIZE ENDIF ;---------------------------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISятNNNNNNNNNNNNNNNNNЎЎЎю(‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB + PB_DRVO),A ; XOR A,A LD (IOPB + PB_FLGO),A ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; LD HL,CCP LD (IOPB + PB_DMAOБяОNNNNNNNNNNNNNNNNNЎЎЎю.-ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNEXT SECTOR ; LD HL,(IOPB + PB_SECO) INC HL LD (IOPB + PB_SECO),HL ; LD DE,(IOPB + PB_BCNTO) ;DMA += SECTOR SIZE LDўяNNNNNNNNNNNNNNNNNЎЎЎючїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10ДДяОNNNNNNNNNNNNNNNNNЎЎЎюФ°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ ЫяЙNNNNNNNNNNNNNNNNNЎЎЎю8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;##################цЧяюNNNNNNNNNNNNNNNNNЎЎЎю’®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; UPLOAD BOOT DIRECTORY DATA FOR WARM BOOT ; LD HL,0080H LD A,(HL) ;IF:zяyNNNNNNNNNNNNNNNNЎЎЎю}eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы8H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARM ;#############8кяВNNNNNNNNNNNNNNNNЎЎЎю#[яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK & ; SETS UP VARIABLES ; ;---------------------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ҐЬяИNNNNNNNNNNNNNNNNNЎЎЎю)ґ4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы),HL ; ; IF NO SYSTEM THEN ERROR ; LD HL,BT_DATA LD A,(HL) ;FETCH SEGMENT COUNT OR A,A LD A,1 JR Z,W_EROR ; ; чќюHNNNNNNNNNNNNNNNNNЎЎЎю/’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,(IOPB + PB_DMAO) ADD HL,DE LD (IOPB + PB_DMAO),HL ; ; IF INTO BIOS THEN EXIT ; LD A,H CP A,HIGH BIOS JR NC,WZ ятNNNNNNNNNNNNNNNNЎЎЎюўмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) ©аябNNNNNNNNNNNNNNNNЎЎЎюM'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION C&ЌюBNNNNNNNNNNNNNNNNЎЎЎюm[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################## ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ПWяЙNNNNNNNNNNNNNNNNNЎЎЎю‚ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы > MAX THEN ERROR CP A,6 JP NC,W_EROR ; LD DE,BT_DATA LD BC,BD_SIZE LDIR ; ; INIT DEFAULT DRIVE ; LD A,(BTARG)‡.яrNNNNNNNNNNNNNNNNЎЎЎю(6NNNNNNNNNNNNNNNNNNNNN!цЎЎЎы############################################################### ; ; SIGN-ON MESSAGE ; ;#####################################'ЦязNNNNNNNNNNNNNNNNNЎЎЎю$ВhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DI LD SP,DEFBFR LD (THIS_STK),SP EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_ACT),A ;ASSUME NO DATA IN BUFFER ; ь8язNNNNNNNNNNNNNNNNNЎЎЎю*бgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ELSE USE DATA TO LOAD SYSTEM ; LD A,(HL) LD (SEGCNT),A ; INC HL ;POINT TO TRACK ; ; TOP OF SEGMENT LOOP ; W_NXЕ¦юINNNNNNNNNNNNNNNNNЎЎЎю0 ЯNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRPG ; ; ELSE IF SEGMENT_SECTOR_COUNT != EXHAUSTED THEN READ_NEXT_SECTOR ; LD A,(SECCNT) DEC A LD (SECCNT),A JR NZ,WF.юHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNэЂЛЃ™‚fѓ4„…С…џ†m‡<€ ‰Ш‰ҐЉs‹@ЊЌЫЌЄЋyЏFђ‘д‘І’Ђ“N”•к•·–„—Q ™о™Ѕљ‹›Yњ'ќхќВћ‘џ_ -ЎыЎЙў—Јd¤2Ґ¦О¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_READ ; ; ELSE IF SEGMENTS == COMPLETE THEN DONE ; LD A,(SEGCNT) DEC A LD (SEGCNT),A JP Z,WZRPG ; ; ELSE DO NEXkйюNNNNNNNNNNNNNNNNNЎЎЎю¦нNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR C,W_LOK ; LD A,L CP A,LOW BIOS LD A,3 JR NZ,W_EROR ; W_LOK: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0ядNNNNNNNNNNNNNNNNЎЎЎю I&NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++mятNNNNNNNNNNNNNNNNЎЎЎюiZNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JP RW_RET ;**************************************************************************** ; ; WRITE DISK SECTOR FUNCTION ЕюrNNNNNNNNNNNNNNNNЎЎЎю†‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыYPE),A ; ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT иВю$NNNNNNNNNNNNNNNNNЎЎЎю,7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(UNA_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALZ ятNNNNNNNNNNNNNNNNЎЎЎю%ЖiNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPяЂяОNNNNNNNNNNNNNNNNNЎЎЎю+еfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE IN ANY CASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAVюBNNNNNNNNNNNNNNNNЎЎЎюYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT SEGMENT ; LD HL,(LDRPTR) JR W_NXTSEG ; ; ; WARM BOOT ERROR, OUTPUT MSG & GO TO DEBUGGER ; ENTRY- A= ERROR CODE: ; лћязNNNNNNNNNNNNNNNNNЎЎЎю¶УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV}Xю$NNNNNNNNNNNNNNNNЎЎЎюuNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; SET UP DATA TABLE PTRS ; PUSH IX Lq§яВNNNNNNNNNNNNNNNNЎЎЎюрНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE¬ІятNNNNNNNNNNNNNNNNЎЎЎюУВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы= NUMBER_OF_SECTORS_IN_BLOCK ; LD A,(IY + DPB_BLM) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET Љ™яЙNNNNNNNNNNNNNNNNNЎЎЎю 9њNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыLOC ; ; MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; EX DE,HL ;UNASEC += 1 INC HL LD (UNA_SEC),HL ; ; IF PAST LASrRя„NNNNNNNNNNNNNNNNЎЎЎю&“:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыER: ; ; ASSUME NO ERRORS ; XOR A,A LD (IOPB + PB_STATO),A ; ; COMPUTE BUFFER SECTOR ; LD HL,(CPM_SEC) DEC HL ъ‹юBNNNNNNNNNNNNNNNNЎЎЎю,|сNNNNNNNNNNNNNNNNNNNNNNЎЎЎыME DISK? CP A,(HL) JR NZ,NOMATCH ; LD HL,(BUF_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,NOMATCH ; LD DE,Ядю NNNNNNNNNNNNNNNNЎЎЎюj)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0: SELECT DISK ERROR ; 1: NO SYSTEM SEGMENTS IN BOOT DIRECTORY ; 2: READ ERROR ; 3: BIOS OVERWRITTEN ; 4,5: SPARESзBяОNNNNNNNNNNNNNNNNNЎЎЎю …вNNNNNNNNNNNNNNNNNNNNNNЎЎЎы),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ;xЭю'NNNNNNNNNNNNNNNNNЎЎЎю/DNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECжМюrNNNNNNNNNNNNNNNNЎЎЎюГьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;**************************************************************************** ;ЬЦяОNNNNNNNNNNNNNNNNNЎЎЎюауNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDISK TO SEEK ; LD A,(CPM_DSK) LD (UNA_DSK),A ; ; SET TRACK TO SEEK ; LD HL,(CPM_TRK) LD (UNA_TRK),HL ; ; SET SЬЩя[NNNNNNNNNNNNNNNNNЎЎЎю! NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT SECTOR ON TRACK THEN USE 1ST SECTOR OF NEXT TRACK ; LD E,(IY + DPB_SPT) LD D,(IY + DPB_SPT +1) SBC HL,DE JP C,NOOVF ~љя“NNNNNNNNNNNNNNNNNЎЎЎю' NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;CONVERT PHYSICAL SECTOR TO LOGICAL ; LD A,(IY + DPB_PSH) ;USE PHYSICAL SHIFT FACTOR (CP/M 3.X) AND A,3 ;LIMIT TO 1024 B}FянNNNNNNNNNNNNNNNNЎЎЎю-OАNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы(BUF_PSEC) ;SAME SECTOR? LD HL,(BUF_SEC) SBC HL,DE JR Z,MATCH ;SKIP IF MATCH ; NOMATCH: ; ; IF BUFFER == DIRTY THENf1яВNNNNNNNNNNNNNNNNЎЎЎюуѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; 6..255: SEGMENT COUNT (TOO MANY SEGMENTS) ; W_EROR: PUSH AF ;SAVE ERROR CODE ; LD HL,MSGLE ;OUTPUT ERROR MESSAGE CНeяВNNNNNNNNNNNNNNNNЎЎЎю Р±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; L>ХятNNNNNNNNNNNNNNNNNЎЎЎю< NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORS OR A,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRU2CяrNNNNNNNNNNNNNNNNЎЎЎю–ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISKWR: ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A ; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,Т§ябNNNNNNNNNNNNNNNNЎЎЎюydNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR TO SEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA‰^яNNNNNNNNNNNNNNNNЎЎЎю"_юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; LD HL,0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUXю$NNNNNNNNNNNNNNNNNЎЎЎю(°5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыYTE SECTORS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR Н_яОNNNNNNNNNNNNNNNNNЎЎЎю.“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы WRITE IT OUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; `ВязNNNNNNNNNNNNNNNNNЎЎЎюАЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL EDITOR ; ; DISPLAY ERROR CODE ; POP AF LD C,A LD A,MF_PHXB CALL MR_FUN ; ; EXECUTE DEBUGGER ; CALL MR_BR-яgNNNNNNNNNNNNNNNNNЎЎЎюгЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ;·QяNNNNNNNNNNNNNNNNNЎЎЎю8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE (1) ; INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; eфяцNNNNNNNNNNNNNNNNNЎЎЎюҐћNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORSйќя„NNNNNNNNNNNNNNNNЎЎЎюJUNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы_CNT) OR A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTтюBNNNNNNNNNNNNNNNNЎЎЎю#lПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыND, MARK AS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE;дяИNNNNNNNNNNNNNNNNNЎЎЎю)ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RR L DEC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL SECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TёйяЙNNNNNNNNNNNNNNNNNЎЎЎю/)ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; READ THE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_э7ящNNNNNNNNNNNNNNNNЎЎЎю•ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; IF FRONT OF BIOS OVERWRITTEN THEN ERROR ; LD A,H CP A,HIGH BIOSаяNNNNNNNNNNNNNNNNNNЎЎЎюzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++JђяВNNNNNNNNNNNNNNNNЎЎЎюZkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE READ ; ; ; NORMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD 9рюINNNNNNNNNNNNNNNNNЎЎЎюµ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы OR A,A JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTNхюrNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыED SECTOR != UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,ЅYяИNNNNNNNNNNNNNNNNNЎЎЎю$хXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DISKWRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0)Жю'NNNNNNNNNNNNNNNNNЎЎЎю*ЦWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO ACCESS ; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVulюINNNNNNNNNNNNNNNNNЎЎЎю0:пNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTRK),HL ; LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,fюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃОЃњ‚iѓ6„…С…ћ†k‡9€‰Х‰ўЉp‹=ЊЌШЌ§ЋvЏDђ‘б‘Ї’}“K”•ж•і–Ђ—M™й™ёљ†›Uњ"ќрќЅћЊџZ (ЎхЎВўђЈ]¤+ҐщҐЗ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюMПNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA CALL NZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_MOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFF‰я[NNNNNNNNNNNNNNNNNЎЎЎюзiNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFLUSHES ; LD (BUF_DDT),IX LD (BUF_DPB),IY ; EX DE,HL ;SOURCE/DEST SWAP ; RWMOVE: ; ; BC INITIALLY 128, DE IS SOURеAятNNNNNNNNNNNNNNNNЎЎЎю ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы** ; ; CPM_WR PERFORMS THE PHYSICAL WRITE FROM CPM_DMA TO THE DISK. ; ENTRY- (CPM_DSK)= DISK # TO WRITE TO ; (CPM_TRK)= TRA|яВNNNNNNNNNNNNNNNNЎЎЎю(ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;**************************************************************************** ; CPM_RD2: ; ; SET UP PTRS ; PUSH IXФдя„NNNNNNNNNNNNNNNNЎЎЎюЗNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOMMON CODE ; CPM_RW: PUSH HL LD HL,CPM_TRK ; ; FALL INTO COMMON XFER CODE ; ;*************************************WµяЙNNNNNNNNNNNNNNNNNЎЎЎюmіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыWRITE TO ; (BUF_DDT)= DDT PTR ; (BUF_DPB)= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;************************# ятNNNNNNNNNNNNNNNNЎЎЎю%‡нNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRACK # TO WRITE TO ; (BUF_SEC)= SECTOR # TO WRITE TO ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: EXМю!NNNNNNNNNNNNNNNNЎЎЎю+¤вNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK JP RD_WR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; Й*яВNNNNNNNNNNNNNNNNЎЎЎюњNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыER ; LD HL,(CPM_SEC) ;CALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOGICAL SECTOR (0..N-1) LD A,L ; AND A,(IY + DPBLяИNNNNNNNNNNNNNNNNNЎЎЎючWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCE, HL IS DEST ; LDIR ; ; DATA HAS BEEN MOVED TO/FROM HOST BUFFER, IF NOT DIRECTORY THEN DELAY WRITE ; LD A,(WRTYPE) PядNNNNNNNNNNNNNNNNЎЎЎю]сNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK # TO WRITE TO ; (CPM_SEC)= SECTOR # TO WRITE TO ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPBdјяВNNNNNNNNNNNNNNNNЎЎЎю±INNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PUSH IY LD IX,(CUR_DDT) LD IY,(CUR_DPB) ; ; EXECUTE READ SECTOR ; CALL CPM_RD ; ; RESTORE PTRS & RETURN ; Pеbя NNNNNNNNNNNNNNNNЎЎЎю’FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; ; SET UP IOPB FOR EXECUTION ; ENTRY- HL= PTR TO IOPB IMAGE TRACK DATA ; IX= DDT PGPядNNNNNNNNNNNNNNNNNЎЎЎю xNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************** ; BUF_FLSH: ; ; IF UNMODIFIED THEN RETURN ; LD A,(BUF_MOD) OR A,ІябNNNNNNNNNNNNNNNNЎЎЎю&ТѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRROR ; ;**************************************************************************** ; BUF_WR: ; LD HL,LL_WRIT JP BUF_RT¶ябNNNNNNNNNNNNNNNNЎЎЎю,=uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++µгятNNNNNNNNNNNNNNNNЎЎЎю+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_PHM) ;USE PHYSICAL RECORD MASK DATA (CP/M 3.X) ; RRA ;BITS <7..1> -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 хяОNNNNNNNNNNNNNNNNNЎЎЎю ДfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;IF NOT DIRECTORY THEN DELAY WRITE CP A,WRDIR LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERR'‡яОNNNNNNNNNNNNNNNNNЎЎЎюnАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; CPM_WR: ; ЫТяrNNNNNNNNNNNNNNNNЎЎЎю‚xNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOP IY POP IX RET ;**************************************************************************** ; ; CPM_RD PERFORMS TH!·яИNNNNNNNNNNNNNNNNNЎЎЎюЎwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTR ; IY= DPB PTR ; (SP)= ADDRESS {LL_READ, LLWRIT} OF EXECUTOR ; ;********************************************************WGязNNNNNNNNNNNNNNNNNЎЎЎю!K)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA RET Z ; ; ELSE SET PTRS TO BUFFER DATA ; PUSH IX PUSH IY LD IX,(BUF_DDT) LD IY,(BUF_DPB) ; ; WRITE THE BUFFЂЄяNNNNNNNNNNNNNNNNNЎЎЎю'бЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыW ;**************************************************************************** ; ; RDBUF PERFORMS THE PHYSICAL READ FROMY¶язNNNNNNNNNNNNNNNNЎЎЎю-DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SELDSK: ; ; STORE DRIVE # FOR FUTURE USE ; LDЃятNNNNNNNNNNNNNNNNЎЎЎюІ:NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы RRA LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMAAfя!NNNNNNNNNNNNNNNNЎЎЎю ‘5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR THEN ABORT ; OR A,A JR NZ,RW_RET ; ; NO ERROR/DIRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (BUF_MOD),A ; CўћятNNNNNNNNNNNNNNNNNЎЎЎю}ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD HL,LL_WRIT JP CPM_RW ;**************************************************************************** ; ; CPM_RD2 PERFOtMюrNNNNNNNNNNNNNNNNЎЎЎюЧ+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE PHYSICAL READ FROM THE DISK INTO CPM_DMA. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPябNNNNNNNNNNNNNNNNЎЎЎю8аNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************** ; RD_WR: LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; ; EXECUTE LOW LEVEL READ OR WRITE (s™я NNNNNNNNNNNNNNNNЎЎЎю"zNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыER DATA ; CALL BUF_WR ; ; RESTORE THE PTRS ; POP IY POP IX ; ; IF ERROR THEN RETURN IT ; OR A,A RET NZ ; жnядNNNNNNNNNNNNNNNNNЎЎЎю(с±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE HOST DISK INTO BLKBUF. ; ENTRY- (BUF_DSK)= DISK # TO READ FROM ; (BUF_TRK)= TRACK # TO READ FROM ; (BUF_SEC)= SECTOR #m5я^NNNNNNNNNNNNNNNNNЎЎЎю.[NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы A,C LD (CPM_DSK),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALLЁвюHNNNNNNNNNNNNNNNNNЎЎЎюЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ;GET/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WJязNNNNNNNNNNNNNNNNNЎЎЎюўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL BUF_WR ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SE яNNNNNNNNNNNNNNNNNЎЎЎюNјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TЫгяNNNNNNNNNNNNNNNNЎЎЎюдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: А я9NNNNNNNNNNNNNNNNЎЎЎюСNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыON STACK) ; RET ;**************************************************************************** ; ; BUF_FLSH FLUSHES THEIЌяВNNNNNNNNNNNNNNNNЎЎЎю#-KNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ELSE CLEAN BUFFER ; LD (BUF_MOD),A RET ;**************************************************************************љѕяИNNNNNNNNNNNNNNNNNЎЎЎю)ВЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TO READ FROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*********************************бaяHNNNNNNNNNNNNNNNNNЎЎЎю/h&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы RETDVRT ;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HL= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUЫEяrNNNNNNNNNNNNNNNNЎЎЎюФXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRITE OPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (BUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER ] ябNNNNNNNNNNNNNNNNЎЎЎю;“NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыT RESULT STATUS FLAG POP IY POP IX ; RET ;**************************************************************************РхяВNNNNNNNNNNNNNNNNЎЎЎюпNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR»lядNNNNNNNNNNNNNNNNNЎЎЎюф$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERROR ; ;**************************************************************************** ; CPM_RD: ; LD HL,LL_READ ; ; CКџюrNNNNNNNNNNNNNNNNЎЎЎю^‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BUFFER DATA IF MODIFIED ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_PSEC)= SECTOR # TO .ШяИNNNNNNNNNNNNNNNNNЎЎЎю$ґЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы** ; ; BUF_WR PERFORMS THE PHYSICAL WRITE FROM BLKBUF TO THE HOST DISK. ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)=щ8яђNNNNNNNNNNNNNNNNNЎЎЎю*—УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; BUF_RD: ; LD HL,LL_READ ; ; COMMON CODE ; BUF_RW: PUSH HL LD HL,BUF_TосядNNNNNNNNNNNNNNNNNЎЎЎю0{kNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR_DDT),HL ; ; FETCH FLAGS ; INC HL ;EXE +1 INC HL ;FLGS LD C,(HL) ; ; FETCH DISK PARAMETER BLOCK ADDRESS ; I;gю'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNэЂЛЃ™‚gѓ4„…Р…ћ†l‡:€‰Ф‰ЎЉo‹<Њ ЌЧЌ¦ЋtЏBђ‘Ю‘¬’y“G”•д•І–Ѓ—O™л™№љ‡›Uњ#ќсќѕћЌџ[ )ЎчЎЕў“Ј`¤.ҐьҐК¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюzяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNC HL ;DRV INC HL ;DPB_PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPB),DE ; ; FETCH DISK PARAMETER HEADER ADDRESS ;ЂЫяЙNNNNNNNNNNNNNNNNNЎЎЎюРYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ PB_ST2O) CP A,-1 ;-1:NONE, 0:JADE, 1:DESCRIPTOR, 2: EXTENDED, ; 3: PARTITIONED, ID JR Z,LGDEF ; ; ELSE IF OLD F‡тятNNNNNNNNNNNNNNNNЎЎЎю ?’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDT_HDS),A ; ; RETURN DRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDONE ; ; ; IF NOT HARD DISщdящNNNNNNNNNNNNNNNNЎЎЎюоNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************************************************ ; HOME: ; ; IF PENDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(BUF_MOљюBNNNNNNNNNNNNNNNNЎЎЎюр%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ;Ѕ(ядNNNNNNNNNNNNNNNNNЎЎЎюZѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,Ї ятNNNNNNNNNNNNNNNNЎЎЎю%°ЭNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы+++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, pµюBNNNNNNNNNNNNNNNNЎЎЎю+“ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO_ERR ; ; INHIBIT UPLOAD ; LD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A ; ; CALCULATE DOWNLOAD BYTE COUNT ; LD A,(IYV1ящNNNNNNNNNNNNNNNNЎЎЎю/¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы INC HL ;DPH PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPH),DE EX DE,HL ;PUT DPH PTR IN HL FOR RETURN ; ; IF NOT SъяђNNNNNNNNNNNNNNNNNЎЎЎюАgNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORMATS THEN PAD DPB DATA ; CP A,3 JR NC,IDOK ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITH 0S LD B,ID_FLGO - ID_PSHO ; PAСcю$NNNNNNNNNNNNNNNNЎЎЎюjБNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK THEN GO DO FLOPPY TEST ; LGDEF: BIT 4,(IX + DDT_FLG) JR Z,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; явяrNNNNNNNNNNNNNNNNЎЎЎю†yNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD) OR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HOME2: ; ; JUST SET TRACK TO 0 ; LD BC,0 ; oAятNNNNNNNNNNNNNNNNЎЎЎюҐvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EXIT - A= ? ; ;**************************************************************************** ; SETDMA: LD (CPM_DMA),BC ; м7ядNNNNNNNNNNNNNNNNNЎЎЎю O(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN:IЫю!NNNNNNNNNNNNNNNNЎЎЎю&еЋNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA= STATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_READ: ; ; ENABLE UPLOAD фѕю!NNNNNNNNNNNNNNNNЎЎЎю, ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы + DPB_PSH) ;USE SHIFT FACTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;START WITH 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE}{яNNNNNNNNNNNNNNNNЎЎЎюќNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыFIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) ;0: LOGON, 1:INHIBIT OR A,C ;0: NORMAL, 1: INHIBIT сюNNNNNNNNNNNNNNNNNNЎЎЎю уVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIDL: LD (HL),0 INC HL DJNZ PADIDL ; ; ELSE XFER ID SECTOR DATA TO TABLES ; IDOK: CALL TRNONE ;ASSUME NO TRANSLATION —шяОNNNNNNNNNNNNNNNNNЎЎЎюYрNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_DPB) ; USE DEFAULT TABLE LD BC,DPB_SZ LDIR ; LD ;ю NNNNNNNNNNNNNNNNЎЎЎюµHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; FALL INTO SET TRACK ; ;**************************************************************************** ; ; SET TRACK # ¤љюNNNNNNNNNNNNNNNNNNЎЎЎю–GNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLD A,(BUF_DMAB) ;FETCH BANK ADDRESS SET BY COLD START LD (CPM_DMAB),A ; ; DONE ; RET ;++++++++++++++++++++++++++++дTяОNNNNNNNNNNNNNNNNNЎЎЎю!|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ріязNNNNNNNNNNNNNNNNNЎЎЎю'ЦїNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; XOR A,A LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; ; PASS READ SECTOR COMѓЄяИNNNNNNNNNNNNNNNNЎЎЎю-9tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SECTORS ; JR Z,LL_WR2 ;IF SHIFT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HL ;DOUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2ЗЫяВNNNNNNNNNNNNNNNNЎЎЎю… NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; PUSH IX ;SAVE REGS PUSH IY ; LD IX,(CUR_DDT) ;SET REGS LD IY,(CUR_D·яњNNNNNNNNNNNNNNNNЎЎЎю ¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(BLKBUF + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HAR2ОюrNNNNNNNNNNNNNNNNNЎЎЎюJЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,(HL) ;HEADS VALUE JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERROR EXIЎйящNNNNNNNNNNNNNNNNЎЎЎюаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ENTRY- BC= TRACK # ; ;**************************************************************************** ; SETTRK: LD (CPM_TRуfяОNNNNNNNNNNNNNNNNNЎЎЎюРNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE IEюrNNNNNNNNNNNNNNNNЎЎЎю")JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++ъ7ядNNNNNNNNNNNNNNNNNЎЎЎю(ЖЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMAND ; LD A,PB_READC JP LL_RW ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW 'ля®NNNNNNNNNNNNNNNNNЎЎЎю.l'NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы: LD (IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ; ; FALL INTO COMMON CODE ; ;+++++++++++++++++ Ся!NNNNNNNNNNNNNNNNЎЎЎю¶;NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPB) ; ; ATTEMPT TO READ ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JR NZ,LOGERR ; CALL DISKLOG JR NZ,LOGERR ; ;·&юNNNNNNNNNNNNNNNNNNЎЎЎю•4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,BL•БядNNNNNNNNNNNNNNNNNЎЎЎюyЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT ; LOGERR: LD HL,0 ; ; DONE ; LGDONE: POP IY ;RESTORE REGS POP IX RET ;***************************************О‘яюNNNNNNNNNNNNNNNNNЎЎЎюУ*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыK),BC RET ;**************************************************************************** ; ; SET SECTOR ; ENTRY- BC= SE’pятNNNNNNNNNNNNNNNNЎЎЎю<бNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++®ёяВNNNNNNNNNNNNNNNNЎЎЎю#{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++ ; DISKLOG: ; ; SET UP READ IOPB ; LD A,(BUF_DMAB) LD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPBqIяИNNNNNNNNNNNNNNNNNЎЎЎю)х°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLEVEL WRITE ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;++++++++++++++++++++++++++++++++++++++юINNNNNNNNNNNNNNNNNЎЎЎю/_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON IOPB EXECUTER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE юrNNNNNNNNNNNNNNNNЎЎЎюгhNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF NO ID SECTOR THEN USE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR IN ALL CASES) ; LD A,(IOPB Я–юNNNNNNNNNNNNNNNNNNЎЎЎюЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыKBUF + ID_SPTO LD BC,DPB_SZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (IX + DєюBNNNNNNNNNNNNNNNNЎЎЎю,ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************* ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;****************************яЙNNNNNNNNNNNNNNNNNЎЎЎюГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR # ; ;**************************************************************************** ; SETSEC: LD (CPM_SEC),BC RET о—ятNNNNNNNNNNNNNNNNЎЎЎюiІNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IYlяИNNNNNNNNNNNNNNNNNЎЎЎю$ѓмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD DE,IOPB LD BC,PB_STATO LDIR ; ; EXECUTE WITHOUT COMPENSATION ; JR LL_DO ;+++++++++++++++++++++++++++++++++Н6яОNNNNNNNNNNNNNNNNNЎЎЎю* гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; LL_WRIT: ; ; IF STILL PROTECTED THEN ERROR ; LD A,(WR_PROT) OR A,A JR NZ,D‹Wя“NNNNNNNNNNNNNNNNNЎЎЎю0L[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR ; IY= DPB PTR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_RW: LD (IOPB + PB_CЊPяЙNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃОЃ›‚hѓ6„…С…ћ†k‡:€‰Ц‰ЈЉq‹>ЊЌЩЌ§ЋuЏBђ‘а‘®’{“I”•е•і–Ђ—M™й™ёљ†›Tњ"ќрќѕћЊџZ (ЎхЎГў’Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMDO),A ; ; OFFSET SECTOR ; LD HL,(IOPB + PB_SECO) LD A,L ADD A,(IX + DDT_SOF) LD L,A LD A,H ADC A,(IX + DDT_SOFѓЯядNNNNNNNNNNNNNNNNNЎЎЎю|µNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEB CALL EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALLядNNNNNNNNNNNNNNNNЎЎЎю “~NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************************* ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (CUR_DPH)= MUST BE PTR TO DPќRю9NNNNNNNNNNNNNNNNЎЎЎюіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM: ; ; EXECUTE THE PRIMITIVE IN ROM ; LD A,(B+‘юrNNNNNNNNNNNNNNNNЎЎЎю\ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++ЈяINNNNNNNNNNNNNNNNNЎЎЎюцoNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыT SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION›ядNNNNNNNNNNNNNNNNЎЎЎю%1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### ; ; BIOS FUNCTION TABLE ; ;##########################################################J я!NNNNNNNNNNNNNNNNЎЎЎю+?>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE REQUESTED (HL=0) ; A, B, C= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++W†юBNNNNNNNNNNNNNNNNЎЎЎюѓ@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы + 1) LD H,A LD (IOPB + PB_SECO),HL ; ; SET PHYSICAL DRIVE ; LL_DO: LD A,(IX + DDT_DRV) LD (IOPB + PB_DRVO),A ; ; hядNNNNNNNNNNNNNNNNNЎЎЎюl‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы COC CALL CRLF ;NEW LINE POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN TRY AGAIN ; CP A,'R' ;IF RETRYЏXяdNNNNNNNNNNNNNNNNЎЎЎюЖ-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH ; EXIT - DE, HL= ? ; ;**************************************************************************** ; TR8: LD DE,SDTRAN TєюBNNNNNNNNNNNNNNNNЎЎЎю*•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUF_DMAB) ;PRESET IOPB BANK LD E,A ; LD HL,IOPB CALL MR_XIOB ;EXECUTE THE FUNCTION ; OR A,A ;FUNCTION ERR? RET NZ \ ядNNNNNNNNNNNNNNNNЎЎЎю љNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++ ; FD8EXEC: ; ; IF HEADS == 1 THEN EXECUTE IOPB ; LD A,(IX + DDT_HDS) DEC A JP Z,XPRIM УцяINNNNNNNNNNNNNNNNNЎЎЎю гДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISPATCHER ; ENTRY- C= FUNCTION # ; EXIT - A= -1: ERROR, 0: OK ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++™ўяaNNNNNNNNNNNNNNNNЎЎЎю&IbNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################## ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR "ЙяВNNNNNNNNNNNNNNNNЎЎЎю,¦©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++ ; RETDVRTF: ; ; ADJUST REGISTER ; LD C,E ; ; FALL INTO LOCAL ENTRY ; ;++++++++++„ятNNNNNNNNNNNNNNNNЎЎЎю°qNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; LL_OPLP: LD HL,LL_OPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD L,(IX ИяњNNNNNNNNNNNNNNNNЎЎЎю _єNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THEN RETURN TO CALLER JR Z,LL_OPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; 3яОNNNNNNNNNNNNNNNNNЎЎЎюхNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SETTR: LD HL,(CUR_DPH) LD (HL),E INC HL LD (HL),D RET ;********************************************************АRящNNNNNNNNNNNNNNNNЎЎЎю¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET ;++++++++++++++++++++++++++++++++++++++9ИязNNNNNNNNNNNNNNNNNЎЎЎю:«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; ELSE SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) PUSH HL ;SAVE ORIGINAL DATA ; LD A,(IOPB + PB_SECO tю'NNNNNNNNNNNNNNNNNЎЎЎю!РхNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET Nк+яИNNNNNNNNNNNNNNNNNЎЎЎю'zSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN xюHNNNNNNNNNNNNNNNNЎЎЎю-•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # CWяBNNNNNNNNNNNNNNNNЎЎЎю)жNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ DDT_EXE) ;FETCH DRIVER ADDRESS FROM TABLE LD H,(IX + DDT_EXE + 1) JP (HL) ; ; DRIVER RETURNS HERE ; LL_OPRET: ; ; .юNNNNNNNNNNNNNNNNNNЎЎЎю йNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ELSE IF DEBUGGER THEN EXECUTE IT ; CP A,'M' JP Z,MR_BRK ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IriяВNNNNNNNNNNNNNNNNNЎЎЎюжQNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************** ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;****************************************,VятNNNNNNNNNNNNNNNNЎЎЎюLчNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IX= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ER»mяNNNNNNNNNNNNNNNNЎЎЎюЈ BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; L±ЃядNNNNNNNNNNNNNNNNЎЎЎю"…¦NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A X—ятNNNNNNNNNNNNNNNNNЎЎЎю(jmNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBIOS VERSION # FUNCTION #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++.яђNNNNNNNNNNNNNNNNNЎЎЎю.АЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EXIT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, C= ? ; ;+++++++++++++++++++++++++++++++++++++++++яИNNNNNNNNNNNNNNNNNЎЎЎюЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK ПУяNNNNNNNNNNNNNNNNNЎЎЎю9ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ; ; ;лядNNNNNNNNNNNNNNNNNЎЎЎюХ`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************ ; TRNONE: LD DE,0 JR SETTR SUBTTL HARD DISK ROUTINES ;++++++++++++++++++++++++++Ѕ.яюNNNNNNNNNNNNNNNNNЎЎЎюЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: EQU XPRIM SUBTTL JADE FLpQяВNNNNNNNNNNNNNNNNЎЎЎюђ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (IOPB + PB_TRKO),HL ;TRACK = RESIDUAL ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILLЦпяњNNNNNNNNNNNNNNNNЎЎЎю#¶—NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLEНуяHNNNNNNNNNNNNNNNNNЎЎЎю)Y\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;+++++++++++++++++++++++++++++I@яNNNNNNNNNNNNNNNNNЎЎЎю/уъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DRIVE ==U#я„NNNNNNNNNNNNNNNNЎЎЎюO„NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD E,A ; LD HL,IOPB LD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKJябNNNNNNNNNNNNNNNNЎЎЎю ONNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISPLAY WRITE PROTECT ERROR MESSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR JR IOPBDMP ;*******************************щ]яВNNNNNNNNNNNNNNNNЎЎЎюЂ3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;+++++++++`яЙNNNNNNNNNNNNNNNNNЎЎЎюoшNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOPPY DRIVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRбрятNNNNNNNNNNNNNNNNЎЎЎюЕ^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы WORK ; POP HL ;TRACK LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO +1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; REЭяИNNNNNNNNNNNNNNNNNЎЎЎю$/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;######################################нDюNNNNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION #1 ; ENTRY- E= DRIVE # ; EXIT - E:HL= DhПя$NNNNNNNNNNNNNNNNNЎЎЎю0а·NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2S)яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrNNNNNNэЂЛЃ™‚fѓ3„…Р…ћ†l‡:€‰Х‰ўЉp‹=ЊЌШЌ¦ЋtЏBђ‘Я‘’{“H”•д•±–Ђ—N™к™№љ‡›Uњ#ќрќЅћЊџZ (ЎцЎДў’Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюб#NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы ; LD HL,0 OR A,A ;SET NZ RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DDT_SIZ ; RETDVL: ADD HL,DEe\ядNNNNNNNNNNNNNNNNNЎЎЎюK…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*************************************************************************** ; ; SYSд{яЙNNNNNNNNNNNNNNNNЎЎЎю ¤NNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL|yя9NNNNNNNNNNNNNNNNЎЎЎю„2NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++ЛWяВNNNNNNNNNNNNNNNNЎЎЎюkщNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXECUTER ; ENTRY- A= FUNCTION # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMROM: EQUY(ядNNNNNNNNNNNNNNNNNЎЎЎюБ_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; COQЌю NNNNNNNNNNNNNNNNЎЎЎю%+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; LO: LD A,MF_LYню!NNNNNNNNNNNNNNNNЎЎЎю+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################## ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** Ґ я„NNNNNNNNNNNNNNNNЎЎЎюґpNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DJNZ RETDVL ; LD A,(BUF_DMAB) LD E,A ; ; RETURN NO ERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++++ГБяИNNNNNNNNNNNNNNNNNЎЎЎю[»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ;хяЙNNNNNNNNNNNNNNNNЎЎЎюсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;IF CALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BC ;SAVEКдятNNNNNNNNNNNNNNNNЎЎЎюҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; R+яdNNNNNNNNNNNNNNNNЎЎЎю>ЄNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы MR_FUN SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONS·KядNNNNNNNNNNNNNNNNNЎЎЎю ФфNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC: LD A,MF_CO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVEzkюBNNNNNNNNNNNNNNNNЎЎЎю&~RNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ihяоNNNNNNNNNNNNNNNNNЎЎЎю,‘™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;############################################################################ ; SDTRAN: GXLATE 26,6 ;################L§ятNNNNNNNNNNNNNNNNЎЎЎю‡ANNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;+++++++++++++++++++++++++++++RЧяОNNNNNNNNNNNNNNNNNЎЎЎю hЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SYSTEM CALLS FOR ASMB. ; ;*************************************************************************** INTCPT: LD A,C ;CHECP?язNNNNNNNNNNNNNNNNNЎЎЎюВ,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUT FUNCTION # ; POP BC5ятNNNNNNNNNNNNNNNNЎЎЎю.”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,MF_GCAL JP XMROM ;+++++ЬМяОNNNNNNNNNNNNNNNNNЎЎЎю ›NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LD A,MF_V–яОNNNNNNNNNNNNNNNNNЎЎЎю!зЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READER: LD AMSяОNNNNNNNNNNNNNNNNNЎЎЎю'McNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISTST: ќtязNNNNNNNNNNNNNNNNЎЎЎю-ўЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################ ; ; COMMON I/O PARAMETER BLOCK ; ;#############################CaюBNNNNNNNNNNNNNNNNЎЎЎюЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES ;*****'ю!NNNNNNNNNNNNNNNNЎЎЎю =ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; TQ?ятNNNNNNNNNNNNNNNNNЎЎЎюСaNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_PHXB CALL XMROM ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HL = A = 0 LD L,A6МюrNNNNNNNNNNNNNNNNЎЎЎю{ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; СяОNNNNNNNNNNNNNNNNNЎЎЎю”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCI JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; %]яyNNNNNNNNNNNNNNNNЎЎЎю"І–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,CTRLZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;**********************************************************************¬EюrNNNNNNNNNNNNNNNNNЎЎЎю(]]NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLD A,MF_LOS JP XMROM ;**************************************************************************** ; ; MESSAGE EDITOR №язNNNNNNNNNNNNNNNNNЎЎЎю.чыNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################### ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;################_юNNNNNNNNNNNNNNNNNNЎЎЎю-зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** ; ; NEWLINE PROCEDURE ; ;****************************…язNNNNNNNNNNNNNNNNNЎЎЎюиNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS N+µядNNNNNNNNNNNNNNNNNЎЎЎювPNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS іlяЗNNNNNNNNNNNNNNNNNЎЎЎюHцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB= MINUTES ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKTIM: LD A,MF_ЧvяrNNNNNNNNNNNNNNNNЎЎЎю§=NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ VµящNNNNNNNNNNNNNNNNЎЎЎю#Ѓ§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*********************************************************************"ЌяИNNNNNNNNNNNNNNNNNЎЎЎю)nlNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;************************************************************O[яЙNNNNNNNNNNNNNNNNNЎЎЎю/ДКNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы############################################################ ; ; DISK DRIVER TABLES (DDT) ; ;###############################Kя„NNNNNNNNNNNNNNNNЎЎЎюxґNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*********************************************** ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITk яОNNNNNNNNNNNNNNNNNЎЎЎю—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; пяВNNNNNNNNNNNNNNNNЎЎЎю·NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++[®юHNNNNNNNNNNNNNNNNNЎЎЎюXИNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыGTIM JP XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOR ROM EZ(юrNNNNNNNNNNNNNNNNЎЎЎютnNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; CNSCK: LD A,MF_CIS JP XMROM ;**************************************************************************** ; ; CON@‡юHNNNNNNNNNNNNNNNNNЎЎЎю$0NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******* ; PUNCH: RET ;**************************************************************************** ; ; PRINTER DRIVER }]яИNNNNNNNNNNNNNNNNNЎЎЎю*;?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZED DATA ;##################шqю$NNNNNNNNNNNNNNNNNЎЎЎю0Ч‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################# ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIVER DDT_FLG DS 1 ;FLAGS BIRФязNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNЃПЃњ‚iѓ6„…С…ћ†k‡9€‰У‰ Љn‹;Њ ЌЧЌҐЋrЏ@ђ‘Ь‘Є’w“E”•б•®–}—K™з™µљѓ›Qњќмќ№ћ‡џU "ЎсЎѕўЌЈZ¤(ҐцҐД¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю §NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT DEF. ; 0 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} ; 4 1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE #Сйя¬NNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR DB #FLG ;FLAGS DB #PD ;M-{ядNNNNNNNNNNNNNNNNЎЎЎю еКNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы6,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,6,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV HDEXEC,7,10H,D4DPB,D4DPH,4,0 j*яNNNNNNNNNNNNNNNNЎЎЎюЕ¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################## ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASKy±яВNNNNNNNNNNNNNNNNЎЎЎю*}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATIDяINNNNNNNNNNNNNNNNNЎЎЎюЂЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DІятNNNNNNNNNNNNNNNNЎЎЎю%j…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ; LOGIOPB: DB PB_LOGC ;COMMAND DB 0 ;DRIVE DW 0 ;TRACK DW ID_SlяњNNNNNNNNNNNNNNNNЎЎЎю+IЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 1 ;XFER BANK ; ; ; BUFFER IOPB OVERLAY ; BUF_DSK DS 1 ;BUFFER DISK NUMBER BUF_TRK DS 2 ;BUFFER TRACK NUMBER BUF_SEC DIяВNNNNNNNNNNNNNNNNЎЎЎюхфNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DDT_DPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DIїіюHNNNNNNNNNNNNNNNNNЎЎЎю?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыONITOR PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR DB #HDS ;HEADS DW #SOF ЏЪюHNNNNNNNNNNNNNNNNЎЎЎю°™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; F DDT_5: ALLDRV HDEXEC,7,12H,D5DPB,D5DPH,4,8000H ENDIF ;#########################################################Њ5ятNNNNNNNNNNNNNNNNЎЎЎю\!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZ1яNNNNNNNNNNNNNNNNЎЎЎю.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыON 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL REHвяNNNNNNNNNNNNNNNNNЎЎЎю •pNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DWж2яaNNNNNNNNNNNNNNNNЎЎЎю&?ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECT ;SECTOR DB 0 ;FLAGS DW BLKBUF ;DMA DB 0 ;BANK DW 0 ;COUNT ; WR_PROT DB -1 ;/0: WRITE PROTECTION ENABLED ; ; XяОNNNNNNNNNNNNNNNNNЎЎЎю,РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 2 ;BUFFER SECTOR NUMBER DS 1 ;FLAGS BUF_DMA DS 2 BUF_DMAB DS 1 ;BANK # ; ; ; BLOCKING BUFFER MAINTENANCE ; BUF_PSECњъю NNNNNNNNNNNNNNNNЎЎЎюЖЕNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSK DESCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DEFINE THE STRUCTURE SIZE ; s яNNNNNNNNNNNNNNNNNNЎЎЎю )NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;SECTOR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,6,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,6,1Н‘яNNNNNNNNNNNNNNNNЎЎЎюѓЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################### ; ; MESSAGES ; ;############################################################################ ; MSGLEfАятNNNNNNNNNNNNNNNNЎЎЎюoNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET(ДязNNNNNNNNNNNNNNNNNЎЎЎюLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SOF) ; ; ; DB 4 ;HEADS РяОNNNNNNNNNNNNNNNNNЎЎЎю!¦ANNNNNNNNNNNNNNNNNNNNNNЎЎЎы D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE=1язNNNNNNNNNNNNNNNNNЎЎЎю'зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;################################Џю'NNNNNNNNNNNNNNNNЎЎЎю-г,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DS 2 ;BUFFER PHYSICAL SECTOR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER BUF_MOD DS 1 ;0: BUFFER CLEAN, /0: BUFFER DItУящNNNNNNNNNNNNNNNNЎЎЎю_RNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыDDT_SIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THEYюNNNNNNNNNNNNNNNNNNЎЎЎю |]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы2H,D1DPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,7,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,7,12H,D3DPB,D3DPH,4,8000HыюBNNNNNNNNNNNNNNNNNЎЎЎюђеNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы: DM CR,LF,'LOAD ERROR: ' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WP_ERM: DM CR,LF,'W-PROT Error!' ; IF IФ±ю9NNNNNNNNNNNNNNNNЎЎЎю:CNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;##############################################################@юNNNNNNNNNNNNNNNNNNЎЎЎюХ€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRґmяNNNNNNNNNNNNNNNNЎЎЎю"уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF №©ятNNNNNNNNNNNNNNNNNЎЎЎю(ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################ ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;##•яNNNNNNNNNNNNNNNNNNЎЎЎю.¶NNNNNNNNNNNNNNNNNNNNN!цЎЎЎыRTY (MODIFIED) ; BUF_DDT DS 2 ;BUFFER DDT PTR BUF_DPB DS 2 ;BUFFER DPB PTR ; RSFLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREADBя'NNNNNNNNNNNNNNNNNЎЎЎюlcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FLG= DRIVE FLAGS ; #DPB= DPB ADDRESS ; #zяОNNNNNNNNNNNNNNNNNЎЎЎюOlNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; E DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0 ENDIF IF BOOT = 3 ЊWяINNNNNNNNNNNNNNNNNЎЎЎюЈФNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыNTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;###################################################################ђIяьNNNNNNNNNNNNNNNNЎЎЎю rNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############## ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;#################################################################‚ ятNNNNNNNNNNNNNNNNЎЎЎюж№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE ; ;############################################################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@—њяBNNNNNNNNNNNNNNNNЎЎЎю#А#NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;NјяИNNNNNNNNNNNNNNNNNЎЎЎю)/иNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################## ; ; CP/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL D„яINNNNNNNNNNNNNNNNNЎЎЎю/…NNNNNNNNNNNNNNNNNNNNNNNЎЎЎы REQ'D READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLЧ я9NNNNNNNNNNNNNNNNЎЎЎю90NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPH= DPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ЂЌюNNNNNNNNNNNNNNNNNNЎЎЎюЦыNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы; A DDT_0: ALLDRV FD8EXEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXEC,1,0,D1DPB,D1DPH,1,0 ; C DDT_2: ALLDRV HDEXEC,ОюBNNNNNNNNNNNNNNNNЎЎЎюц‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######### ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;##################################1шядNNNNNNNNNNNNNNNNNЎЎЎюLNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########### ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLMТбятNNNNNNNNNNNNNNNNЎЎЎюікNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HЕяgNNNNNNNNNNNNNNNNNЎЎЎю$YґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################################ ; ; LOGON IOPB OVERLAY ; ;#####################.АяОNNNNNNNNNNNNNNNNNЎЎЎю*z»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE CPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER DS 1 ;FLAGS CPM_DMA DS 2 ;XFER ADDR CPM_DMAB D"BяИNNNNNNNNNNNNNNNNNЎЎЎю0–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNюЂНЃљ‚hѓ5„…Р…ћ†l‡:€‰Х‰ўЉp‹=Њ ЌЧЌҐЋtЏAђ‘Э‘«’y“G”•д•±–—M™й™ёљ†›Tњ!ќпќјћ‹џY 'ЎхЎГў’Ј_¤-ҐыҐК¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю——NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PREREAD REQ'D) ; ; UNA_CNT: DS 1 ;# SECTORS REMAINING IN BLOCK (CLUSTER) UNA_DSK: DS 1 ;LAST UNALLOC DISK UNA_TRK: DS 2 фИяИNNNNNNNNNNNNNNNNNЎЎЎю=1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### ; ; DRIVE ALLOCATION AREAS ; ;################################ђљяЙNNNNNNNNNNNNNNNNЎЎЎю ТъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF 9„ятNNNNNNNNNNNNNNNNЎЎЎют†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPB_DRM DS 2 ;DRM- DIRECTORY SIZE -1 DPB_m|я„NNNNNNNNNNNNNNNNЎЎЎюMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UPPER BITS) ; DPB_SECOiядNNNNNNNNNNNNNNNNNЎЎЎю·лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END ]TюrNNNNNNNNNNNNNNNNЎЎЎю%]µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD DISK PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E2рябNNNNNNNNNNNNNNNNЎЎЎю+~єNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD DISK PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*********хятNNNNNNNNNNNNNNNNЎЎЎюВДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;LAST UNALLOC TRACK UNA_SEC: DS 2 ;LAST UNALLOC SECTOR ;##################################################################^Ќю$NNNNNNNNNNNNNNNNNЎЎЎю-NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ §АядNNNNNNNNNNNNNNNNЎЎЎю‡©NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы DD DL DD + 1 LIST ON ENDM ;############################################################################ ; ; RESERVЗµятNNNNNNNNNNNNNNNNЎЎЎюkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS- # DIRECTORY SECTORS CHECKEШљюdNNNNNNNNNNNNNNNNЎЎЎюHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@nяINNNNNNNNNNNNNNNNNЎЎЎю ў@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPBOFF ABOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UЗ5юBNNNNNNNNNNNNNNNNЎЎЎю&жNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JADE 8" FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICALhџю!NNNNNNNNNNNNNNNNЎЎЎю,з-NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************************************* ; ; REVISION HISTORY: ; ; 3.00 - 26 JAN 87 GRH ; Im4џятNNNNNNNNNNNNNNNNЎЎЎюсхNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы########## ; ; VARIABLES ; ;############################################################################ ; CUR_DPB DS 2 жюNNNNNNNNNNNNNNNNNNЎЎЎю >NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Џю'NNNNNNNNNNNNNNNNNЎЎЎюґNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыE DRIVE PARAMETER BLOCKS ; ;############################################################################ ; STRUCT 0 DPB_SPЙВящNNNNNNNNNNNNNNNNЎЎЎюX NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD ; (DRM +1) / 4 DPB_OFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY Cу%яђNNNNNNNNNNNNNNNNNЎЎЎю{/NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@x•яИNNNNNNNNNNNNNNNNNЎЎЎю!‘qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 10H ;10H: SA1004, 11H: PYX27, 3: 8" FLOPPY, 20H: 5" FLOPPY ;************“ЯяйNNNNNNNNNNNNNNNNNЎЎЎю';ЧNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DRIVE 0 ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK P„’юHNNNNNNNNNNNNNNNNЎЎЎю-ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыplemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to returЅ:юBNNNNNNNNNNNNNNNNЎЎЎюhbNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;DRIVE TABLE PTR CUR_DDT DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR CUR_DPH DS 2 ;DPH PTR ; LOGRQ: DS 1 ;LOG ON REQUEST REG. РѓяОNNNNNNNNNNNNNNNNNЎЎЎю KmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; CHK = DPB.CKS ; ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) = ST8FD) AND ((DD - 1) <= N^,юrNNNNNNNNNNNNNNNNNЎЎЎю”дNNNNNNNNNNNNNNNNNNNNNNЎЎЎы6K= 7 DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;EXM- EXTENT MASK ; DSM < –яaNNNNNNNNNNNNNNNNЎЎЎю>BNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DPB_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARTIV›юrNNNNNNNNNNNNNNNNЎЎЎюС‰NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD + 1АvяВNNNNNNNNNNNNNNNNЎЎЎю#чNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CUPERTINO, CA ; ;**************************************************************************** ; ; CONFIGURATION: ; ; CPM rWюHNNNNNNNNNNNNNNNNNЎЎЎю)ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BOOT = 20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAЙяЙNNNNNNNNNNNNNNNNNЎЎЎю/І~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Moved system down to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single funй±ящNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 ;NUMBER OF BOOT DIRECTORY SEGMENTS SECCNT DS 1 ;SEGMENT SECTOR COUNT LDRPTR DS 2 ;SYSTEM DATA PTR ;#################кѓюNNNNNNNNNNNNNNNNNNЎЎЎюбЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SU§яrNNNNNNNNNNNNNNNNЎЎЎюБ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSM- DRIVE STORAGE SIZE (’яИNNNNNNNNNNNNNNNNNЎЎЎю.|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF ABOVE. ; PARTITI^ятNNNNNNNNNNNNNNNNЎЎЎю„ЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ - 8000H) > 07700H) OR ($ < 8000H) ћОядNNNNNNNNNNNNNNNNNЎЎЎю$n„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DRIVE USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HЭщяNNNNNNNNNNNNNNNNNNЎЎЎю*M‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HЭая[NNNNNNNNNNNNNNNNNЎЎЎю0Ў3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыction to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sect,гюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃПЃќ‚jѓ8„…У…Ў†n‡<€ ‰Ч‰¤Љr‹@ЊЌЬЌЄЋxЏEђ‘в‘°’}“J”•ж•і–Ѓ—O™л™єљ€›Vњ#ќсќѕћЌџ[ )ЎцЎДў’Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюtINNNNNNNNNNNNNNNNNNNNNNЎЎЎыor & track. At same time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file ЩяdNNNNNNNNNNNNNNNNNЎЎЎюЮпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы than swapping Roms itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benig@fядNNNNNNNNNNNNNNNNЎЎЎю 1$NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыrom ; DCM8 to CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like cюBNNNNNNNNNNNNNNNNЎЎЎюXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыuffer for ; ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10-22-91 GRH Fix bugs ; 1ТлюBNNNNNNNNNNNNNNNNЎЎЎюю“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================= ; FALSE EQU 0 TRUE EQU NOT FALSE ;==============================================Ў!яNNNNNNNNNNNNNNNNNЎЎЎюT5NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы============================================ ; ; DISK OPERATING SYSTEM ADDRESSES ; ;======================================„Eю NNNNNNNNNNNNNNNNЎЎЎю%ѕkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRЂяњNNNNNNNNNNNNNNNNЎЎЎю+ќdNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыU 20H ;A DSK_1 EQU 20H ;B DSK_2 EQU 20H ;C DSK_3 EQU 20H ;D DSK_4 EQU 10H ;E DSK_5 EQU 10H ;F NDRVS: EQU 6 ENDIF I›SящNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыnames. ; Change hard disk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to failЫ,ю$NNNNNNNNNNNNNNNNNЎЎЎюОСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnly (at current level) ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytы·ю$NNNNNNNNNNNNNNNNЎЎЎюdwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыtrack ; offset. Disk partitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamiВљятNNNNNNNNNNNNNNNNЎЎЎю€ПNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы0-23-91 GRH Fix bugs ; 3.13 1-15-92 GRH ; Change hard disk translation to Monitor disks 4 & 5 from 6 & 7. ; 3.14 2-9-92 pаядNNNNNNNNNNNNNNNNЎЎЎю«АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================== ; ; CONDITIONAL ASSEMBLY FLAGS ; ;===========================================================ж‘яЙNNNNNNNNNNNNNNNNNЎЎЎю AћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы====================================== ; SYS EQU 2 ;CP/M VERSION {2,3} ; NKSYS: EQU 59 ;SYSTEM SIZE IN K BYTES KBYTE: EQUyвяОNNNNNNNNNNNNNNNNNЎЎЎю&л8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыST ;============================================================================ ; ; OTHER DECLARATIONS ; ;============т3яnNNNNNNNNNNNNNNNNNЎЎЎю,уNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF BOOT = 11H ; ; 5.25" PYX-27 BOOT ; DSK_0 EQU 11H ;A DSK_1 EQU 10H ;B DSK_2 EQU 10H ;C DSK_3 EQU 0H ;D DSK_4 EQU 0 ;EфяящNNNNNNNNNNNNNNNNЎЎЎю+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы. (sector remained ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routineйю!NNNNNNNNNNNNNNNNЎЎЎю эаNNNNNNNNNNNNNNNNNNNNNNЎЎЎыes). ; Implement data xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove зтяОNNNNNNNNNNNNNNNNNЎЎЎюWFNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыc. ; 3.10 5-20-91 GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 version controller firmwўOяВNNNNNNNNNNNNNNNNЎЎЎю»юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH ; Add additional floppy disk allocation size for 1.22Mb disks. ; ; 3.15 3-17-92 GRH ; Add dynamic sector skew table ®ѕязNNNNNNNNNNNNNNNNNЎЎЎюсNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы================= ; INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE ;============================================ШiяОNNNNNNNNNNNNNNNNNЎЎЎю!rЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: –ЄяОNNNNNNNNNNNNNNNNNЎЎЎю'Ш NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================================ ; SKTSZ EQU 26 ;SKEW TABLE SIZE IF BOOT = 10H ; ; 8" ЈЦюNNNNNNNNNNNNNNNNЎЎЎю-7ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NDRVS: EQU 5 ENDIF ;============================================================================ ; ; BDOS CO Њя„NNNNNNNNNNNNNNNNЎЎЎю‹јNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыes. ; 3.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; ImкаяОNNNNNNNNNNNNNNNNNЎЎЎю ЁіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыclock buffer set/read system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug wFbящNNNNNNNNNNNNNNNNNЎЎЎюDNNNNNNNNNNNNNNNNNNNNNNЎЎЎыare. ; 3.11 9-2-91 GRH ; Add redlines & change for M5ZMON v.2.00. ; 3.12 9-11-91 GRH ; Add deblocking code. ; 9-17-91 mЎящNNNNNNNNNNNNNNNNЎЎЎюоNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыselection to login code. ; ; 3.16 5-1-92 GRH ; Add bios functions to allow 'fix'ing the disk format. ; VERSN EQU 316 ; џяnNNNNNNNNNNNNNNNNNЎЎЎюfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================ ; ; INCLUDE COMIOPB3.DEF ; INCLUDE DISKS3.DEF ; INCLUDE BDIR.DEF ; INCLUDE ЅЅятNNNNNNNNNNNNNNNNЎЎЎю"'ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS¤я„NNNNNNNNNNNNNNNNNЎЎЎю(И7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHARD DISK BOOT DATA ; DSK_0 EQU 10H ;A DSK_1 EQU 10H ;B DSK_2 EQU 10H ;C DSK_3 EQU 10H ;D DSK_4 EQU 0 ;E DSK_5 EQU 0 ;F ·3яђNNNNNNNNNNNNNNNNNЎЎЎю.b‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNSTANTS ON ENTRY TO WRITE ; ;============================================================================ ; WRALL EQU 0 ;WRI{ряgNNNNNNNNNNNNNNNNNЎЎЎюёЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыplement CP/M 3.0 DPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAнЭяшNNNNNNNNNNNNNNNNNЎЎЎю›‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыhich corrupted PB_FLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-heP’яdNNNNNNNNNNNNNNNNNЎЎЎюw:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH Add r/ls & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! ; BUF_RD was writing. ; C®ясNNNNNNNNNNNNNNNNЎЎЎюЭњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;**************************************************************************** SUBTTL SYSTEM DECLARATIONS ;=================’ГящNNNNNNNNNNNNNNNNЎЎЎю2WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы M5ZF2.DEF ; ;============================================================================ ; LIST OFF *INCLUDE COMIOPB34hяyNNNNNNNNNNNNNNNNЎЎЎю#НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PAGE0: EQU 0 ;START OF CP/M RAM DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL E—ыяђNNNNNNNNNNNNNNNNNЎЎЎю)ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNDRVS: EQU 6 ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; DSK_0 EQU 0H ;A DSK_1 EQU 0H ;B DSK_2 EQU 10H ;C DSK_3ЪЭя“NNNNNNNNNNNNNNNNNЎЎЎю/Q NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2 ;WRITE TO UNALLOCATED ;======================================Y·ятNNNNNNNNNNNNNNNNЎЎЎюнЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT to new configuration. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; ratherѕSя!NNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыad shift factor to DPBs for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation fЎ?яВNNNNNNNNNNNNNNNNЎЎЎю"iNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы Patch problems with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON problem by using ROMBNK sector b&`яЙNNNNNNNNNNNNNNNNNЎЎЎюНўNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы=========================================================== ; ; ASSEMBLY PARAMETERS ; ;=====================================€ЫюBNNNNNNNNNNNNNNNNЎЎЎюgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE B:M5ZF2.DEF LIST ON ;================================T«яHNNNNNNNNNNNNNNNNNЎЎЎю$ЌZNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR DK_BDRV EQU 0041H ;BOOT DRIVE # FROM PROM DEFBFR EQU PAGE0 + 80H ;DEFЁяОNNNNNNNNNNNNNNNNNЎЎЎю*®UNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы EQU 10H ;D DSK_4 EQU 10H ;E DSK_5 EQU 10H ;F NDRVS: EQU 6 ENDIF IF BOOT = 20H ; ; 5.25" FLOPPY BOOT ; DSK_0 EQQЈяИNNNNNNNNNNNNNNNNNЎЎЎю0BнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы====================================== ; ; ASCII CHARS ; ;==================================================================ЌwяпNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNюЂНЃ›‚iѓ7„…У… †m‡;€‰Х‰ўЉq‹>ЊЌЪЌ©ЋxЏEђ‘в‘°’~“K”•ж•ґ–‚—O™м™»љ‰›Xњ&ќфќБћђџ^ +ЎщЎЗў•Јb¤0ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы========== ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(я“NNNNNNNNNNNNNNNNNЎЎЎюйЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS ¶‚юdNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR #віюBNNNNNNNNNNNNNNNNЎЎЎю&hNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ТяВNNNNNNNNNNNNNNNNЎЎЎюЙЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVEятNNNNNNNNNNNNNNNNNЎЎЎюcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; SIGN-ON MESSAGE ; ;#################N~ятNNNNNNNNNNNNNNNNЎЎЎю%‰[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------- ; WARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR LD (THIS_STK),SP EI ; ; INIT OUR STUFF ; X0ЏяВNNNNNNNNNNNNNNNNЎЎЎю+ЄTNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LJщю9NNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@№ЎюHNNNNNNNNNNNNNNNNNЎЎЎющбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DЎџяИNNNNNNNNNNNNNNNNЎЎЎюSGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATі‚юrNNNNNNNNNNNNNNNNЎЎЎюїяNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыON WITH INIT ; INIT1: JR INIT ;############################################################################ ; ; DIRECTOd0яdNNNNNNNNNNNNNNNNЎЎЎюњрNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(DK_BDRV) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; LD HL,MSGSO CALLёряЙNNNNNNNNNNNNNNNNNЎЎЎю v®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD ВяBNNNNNNNNNNNNNNNNЎЎЎю&ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A LD (BUF_ACT),A ;ASSUME NO DATA IN BUFFER ; LD (UNA_CNT),A ;CLEAR UNALLOCATED SECTOR COUNT ; LD (BUF_MOD),A ;CLEANy5яВNNNNNNNNNNNNNNNNЎЎЎю,3ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CALL SP[ядNNNNNNNNNNNNNNNNЎЎЎю%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST 93юNNNNNNNNNNNNNNNNNNЎЎЎю КРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS COD<яИNNNNNNNNNNNNNNNNNЎЎЎю`vNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL ;###################################################3юBNNNNNNNNNNNNNNNNЎЎЎюЊОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT бBю'NNNNNNNNNNNNNNNNNЎЎЎюЇБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GET< яОNNNNNNNNNNNNNNNNNЎЎЎю!EџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (…РюNNNNNNNNNNNNNNNNNNЎЎЎю'п9NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы BUFFER ; LD HL,BLKBUF ;INIT BUFFER PTR LD (BUF_DMA),HL ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_BDRV) AND A,3 ЫцязNNNNNNNNNNNNNNNNЎЎЎю-тNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,CPM_SEC IN¤zяВNNNNNNNNNNNNNNNNЎЎЎюјЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DLКю!NNNNNNNNNNNNNNNNЎЎЎю џѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE ORG BIOS ;---------------------------------------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;iЎю NNNNNNNNNNNNNNNNNЎЎЎюs;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################### ; ; THE FOLLOWING BOOT DATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND Mјiю NNNNNNNNNNNNNNNNЎЎЎюЩќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CHECK FOR DISK CHANGE. ; ;############################################################################ ; DIRBF: EQU $ ;иoюNNNNNNNNNNNNNNNNNNЎЎЎю6VNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBNK LD (BUF_DMAB),A ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROMоjяNNNNNNNNNNNNNNNNЎЎЎю"МNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDIRBF + 128) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF + 128 - $ ;FILL OUT DIRECTORP“юrNNNNNNNNNNNNNNNNNЎЎЎю(яNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; Д…язNNNNNNNNNNNNNNNNNЎЎЎю.UЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC (HL) ; LD DE,128 ;DMA += SECTOR SIZE LD HL,(CPM_DMA) ADD HL,DE LD (CPM_DMA),HL ; ; IF NOT INTO BDOS THEN READ NE‡$юNNNNNNNNNNNNNNNNNNЎЎЎюЏЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;;ю'NNNNNNNNNNNNNNNNNЎЎЎю¬ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------------------------------------------------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD9Ую NNNNNNNNNNNNNNNNNЎЎЎю@ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND ¤яюNNNNNNNNNNNNNNNNNЎЎЎюк¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBUFFER BEGINNING ;---------------------------------------------------------------------------- ; ; INIT - COLD START ткядNNNNNNNNNNNNNNNNЎЎЎюgNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOчюrNNNNNNNNNNNNNNNNЎЎЎю##эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY BUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------------------------- ; ; WARляОNNNNNNNNNNNNNNNNNЎЎЎю)М6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; Lv—яЙNNNNNNNNNNNNNNNNNЎЎЎю/fђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOREoяВNNNNNNNNNNNNNNNNЎЎЎюЪоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERт$юNNNNNNNNNNNNNNNNNNЎЎЎю5%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH zМюBNNNNNNNNNNNNNNNNЎЎЎюYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLENGTH OF THE BIOS. ; ;############################################################################ ; DB 0 ;Z80 CPU DB 0’кяINNNNNNNNNNNNNNNNNЎЎЎюъ’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;---------------------------------------------------------------------------- ; I7юBNNNNNNNNNNNNNNNNЎЎЎюP4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARMP0яЙNNNNNNNNNNNNNNNNNЎЎЎю$єjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & SETS UP VARIABLES ; ;---------------------------------------------------------------ґыя^NNNNNNNNNNNNNNNNNЎЎЎю*™eNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) Зhя“NNNNNNNNNNNNNNNNNЎЎЎю0uЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSEїю'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃњ‚iѓ6„…С…џ†m‡;€‰Ц‰ЈЉq‹>ЊЌЪЌ©ЋwЏEђ‘б‘Ї’}“J”•ж•і–Ѓ—O™к™№љ‡›Uњ"ќрќѕћЌџ[ )ЎчЎДў’Ј_¤-ҐьҐЛ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюэNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DONE READING SYSTEM ; JR WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORа+яЙNNNNNNNNNNNNNNNNNЎЎЎюЁ[NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VEZкюNNNNNNNNNNNNNNNNЎЎЎю GђNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTION ; XOR A,A LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRUE (1) ; INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FL„wяNNNNNNNNNNNNNNNNЎЎЎюgмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (WR_PROT),A ; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCsяBNNNNNNNNNNNNNNNNЎЎЎю€'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT) OR A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RE:ядNNNNNNNNNNNNNNNNNЎЎЎю"ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FюdNNNNNNNNNNNNNNNNЎЎЎю%ИЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIS 128 ; SECSHFLP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR L DEC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET :яВNNNNNNNNNNNNNNNNЎЎЎю+лРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; ; READ THE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOjјяОNNNNNNNNNNNNNNNNNЎЎЎюW®NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPU±ЎяЙNNNNNNNNNNNNNNNNNЎЎЎюёeNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A г юNNNNNNNNNNNNNNNNЎЎЎюГNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE ЂРятNNNNNNNNNNNNNNNNЎЎЎюю{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыKED THEN USE CPM WRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; X&ю NNNNNNNNNNNNNNNNЎЎЎюЭtNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыCORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SECTOR != UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSџяHNNNNNNNNNNNNNNNNNЎЎЎю 7*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALSE LD (RSFLAG),A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE ; DISKWRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNҐябNNNNNNNNNNNNNNNNЎЎЎю&ќЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBACK TO PHYSICAL SECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TO ACCESS ; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SRFяВNNNNNNNNNNNNNNNNЎЎЎю,rGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR = PHYSICAL SECTOR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_TRK),HL ; LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF RйядNNNNNNNNNNNNNNNNЎЎЎюdџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT MSG & GO TO DEBUGGER ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR CALL MR_BRK HALT ; ; ; BOOT OK, INIT TяОNNNNNNNNNNNNNNNNNЎЎЎю ‹TNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ЫияNNNNNNNNNNNNNNNNNNЎЎЎю!тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREAD ; ; ; NORMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD JP RW_RET ;*******************************************JРя NNNNNNNNNNNNNNNNЎЎЎюНJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLO«яИNNNNNNNNNNNNNNNNNЎЎЎюоENNNNNNNNNNNNNNNNNNNNN!юЎЎЎыK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,(UNA_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZЎЌяђNNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0 LD (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFA=яИNNNNNNNNNNNNNNNNNЎЎЎю'®ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыECTOR ; LD HL,BUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVE IN ANY CASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER Q†яИNNNNNNNNNNNNNNNNЎЎЎю-AvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEQUIRED TO READ THEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A CALL NZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; Xs•яВNNNNNNNNNNNNNNNNЎЎЎюэNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; DyюNNNNNNNNNNNNNNNNNNЎЎЎю ЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ҐљюrNNNNNNNNNNNNNNNNNЎЎЎю2їNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы********************************* ; ; WRITE DISK SECTOR FUNCTION ; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPҐю NNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOCK ; LD A,(IY + DPB_BLM) ;CUR_Dт юNNNNNNNNNNNNNNNNNNЎЎЎюwТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALLOC ; ; MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; EЂмяNNNNNNNNNNNNNNNNЎЎЎю"QHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPER: ; ; ASSUME NO ERRORS ; XOR A,A LD (IOPB + PB_STJйятNNNNNNNNNNNNNNNNNЎЎЎю(ѕѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыACTIVE, SAME AS SEEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAME DISK? CP A,(HL) JR NZ,NOMATCH ; LD HL,(BUF_TRK) ;S`ябNNNNNNNNNNNNNNNNЎЎЎю.%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A LD (BUF_MOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ; LD HL,(CPM_SEC) ;CALCULATE INDEX INTO BUFFER DEC HќlяHNNNNNNNNNNNNNNNNNЎЎЎюО9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PA©яNNNNNNNNNNNNNNNNNNЎЎЎюн6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++ ; DISKRD: ; ; SET UP DATA TABLE PTRS ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOTї‚юrNNNNNNNNNNNNNNNNNЎЎЎюЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDATE) ; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;***********'cяьNNNNNNNNNNNNNNNNЎЎЎю«(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET DISK TO SEEK ; LD A,(CPM_DSK) LD (UNA_DSK),A ; ; SE ящNNNNNNNNNNNNNNNNЎЎЎюDгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыX DE,HL ;UNASEC += 1 INC HL LD (UNA_SEC),HL ; ; IF PAST LAST SECTOR ON TRACK THEN USE 1ST SECTOR OF NEXT TRACK ; LD 9’яВNNNNNNNNNNNNNNNNЎЎЎю#byNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATO),A ; ; COMPUTE BUFFER SECTOR ; LD HL,(CPM_SEC) DEC HL ;CONVERT PHYSICAL SECTOR TO LOGICAL ; LD A,(IY + DPB_PSHйNюHNNNNNNNNNNNNNNNNNЎЎЎю)ЌІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,NOMATCH ; LD DE,(BUF_PSEC) ;SAME SECTOR? LD HL,(BUF_SEC) SBC HL,DE JR 6dюINNNNNNNNNNNNNNNNNЎЎЎю/'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL ;CONVERT TO LOGICAL SECTOR (0..N-1) LD A,L ; AND A,(IY + DPB_PHM) ;USE PHYSICAL RECORD MASK DATA (CP/M 3.X) ; RRA жmю NNNNNNNNNNNNNNNNЎЎЎю›jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMAcЩяњNNNNNNNNNNNNNNNNЎЎЎюtЎNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы BLOCKED THEN USE CPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCArая9NNNNNNNNNNNNNNNNЎЎЎюTЭNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы***************************************************************** ; DISKWR: ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A П,яЙNNNNNNNNNNNNNNNNNЎЎЎю»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT TRACK TO SEEK ; LD HL,(CPM_TRK) LD (UNA_TRK),HL ; ; SET SECTOR TO SEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; ~юBNNNNNNNNNNNNNNNNЎЎЎю°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE,(IY + DPB_SPT) LD D,(IY + DPB_SPT +1) SBC HL,DE JP C,NOOVF ; LD HL,0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TљяdNNNNNNNNNNNNNNNNNЎЎЎю$ыоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ;USE PHYSICAL SHIFT FACTOR (CP/M 3.X) AND A,3 ;LIMIT TO 1024 BYTE SECTORS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE PюNNNNNNNNNNNNNNNNNNЎЎЎю*ШбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ,MATCH ;SKIP IF MATCH ; NOMATCH: ; ; IF BUFFER == DIRTY THEN WRITE IT OUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLE¦Yя“NNNNNNNNNNNNNNNNNЎЎЎю04YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;BITS <7..1> -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ‚sяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNюЂМЃ™‚fѓ4„…П…ќ†j‡8€‰У‰ Љn‹<Њ ЌЧЌҐЋsЏ@ђ‘Э‘«’x“E”•а•–z—G™д™ІљЂ›Nњќйќ¶ћ…џS ЎнЎєў€ЈU¤#ҐсҐї¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю5НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; LD DE,BLKBUF ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMA) ;GET/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,?ЩяИNNNNNNNNNNNNNNNNNЎЎЎюџkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (BUF_MOD),A ; CALL BUF_WR ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETядNNNNNNNNNNNNNNNNЎЎЎю p NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************ ; ; CPM_RD2 PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUTBdя„NNNNNNNNNNNNNNNNЎЎЎюPЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ;,:яВNNNNNNNNNNNNNNNNЎЎЎюїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,PB_BCNTO - PB_TRKO LDIR ; ; EXECUTE LOW LEVEL READ OR WRITE (ON STACK) ; RET ;***********************************эюNNNNNNNNNNNNNNNNNЎЎЎю±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY POP IX ; ; IF ERROR THEN RETURN IT ; OR A,A RET NZ ; ; ELSE CLEAN BUFFER ; LD (BUF_MOD),A RET ;******†љятNNNNNNNNNNNNNNNNЎЎЎю%япNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыEAD FROM ; (BUF_TRK)= TRACK # TO READ FROM ; (BUF_SEC)= SECTOR # TO READ FROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPцЫюBNNNNNNNNNNNNNNNNЎЎЎю+ЬаNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERR7‡юBNNNNNNNNNNNNNNNNЎЎЎю`ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(READOP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFF‹ЌяЙNNNNNNNNNNNNNNNNNЎЎЎюЏUNNNNNNNNNNNNNNNNNNNNNNЎЎЎыURN ANY ERRORS ; ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SET RESULT STATUS FLAG POP IY POP IX ; RET ;******Є"яЙNNNNNNNNNNNNNNNNЎЎЎю%уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; d»юrNNNNNNNNNNNNNNNNЎЎЎюЙKNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*************************************************.|я¤NNNNNNNNNNNNNNNNЎЎЎюкDNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы***************************************** ; ; BUF_FLSH FLUSHES THE BUFFER DATA IF MODIFIED ; ENTRY- (BUF_DSK)= DISK # TO WRIT[ъяЙNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** ; ; BUF_WR PERFORMS THE PHYSICAL WRITE FROM BLKBUF TO T \юNNNNNNNNNNNNNNNNNNЎЎЎю&ЄјNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; BUF_RD: ; З}ящNNNNNNNNNNNNNNNNЎЎЎю,EwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR THEN RETURN (HL= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUR_DDT),HL ; ; FETCH FLAGS ; INC HL ;EXE +1 INC HL zЬятNNNNNNNNNNNNNNNNЎЎЎюSЇNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыER = DIRTY LD (BUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER FLUSHES ; LD (BUF_DDT),IX LD (BUF_DPB),IY ; EX DE,HLrтяОNNNNNNNNNNNNNNNNNЎЎЎю јdNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************************************************** ; ; CPM_WR PERFORMS THE PHYSICAL WRITE FROM CPM_DMA TO TялNNNNNNNNNNNNNNNNNЎЎЎюВNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;******************************************************›яВNNNNNNNNNNNNNNNNЎЎЎюъzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************** ; CPM_RD: ; LD HL,LL_READ ; ; COMMON CODE ; CPM_RW: PUSH HL LD HL,CPM_TRK ; ; FALL Т]яИNNNNNNNNNNNNNNNNNЎЎЎюЩuNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_PSEC)= SECTOR # TO WRITE TO ; (BUF_DDT)= DDT PTR ; (BUF_DPB)= DPB PTR ; EXgфяОNNNNNNNNNNNNNNNNNЎЎЎю!3+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE HOST DISK. ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_SEC)= SECTOR # TO WRITE TO ; |іюNNNNNNNNNNNNNNNNNNЎЎЎю'™ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,LL_READ ; ; COMMON CODE ; BUF_RW: PUSH HL LD HL,BUF_TRK JP RD_WR ;++++++++++++++++++++++++++++++++++++++++НќяИNNNNNNNNNNNNNNNNЎЎЎю-vFNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;FLGS LD C,(HL) ; ; FETCH DISK PARAMETER BLOCK ADDRESS ; INC HL ;DRV INC HL ;DPB_PTR LD E,(HL) INC HL LD D,(@яBNNNNNNNNNNNNNNNNЎЎЎюК8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SOURCE/DEST SWAP ; RWMOVE: ; ; BC INITIALLY 128, DE IS SOURCE, HL IS DEST ; LDIR ; ; DATA HAS BEEN MOVED TO/FROMРНяВNNNNNNNNNNNNNNNNЎЎЎю й7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHE DISK. ; ENTRY- (CPM_DSK)= DISK # TO WRITE TO ; (CPM_TRK)= TRACK # TO WRITE TO ; (CPM_SEC)= SECTOR # TO WRITE TO ; (CPЮ°ю NNNNNNNNNNNNNNNNNЎЎЎюЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; CPM_RD2: ; ; SET UP PTRS ; PUSH IX PUSH IY LD IX,(CUR_DDT) LD IY,(CUR_DPB) ; ; EXECUЙыю NNNNNNNNNNNNNNNNЎЎЎюЇ)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыINTO COMMON XFER CODE ; ;**************************************************************************** ; ; SET UP IOPB FOk:яњNNNNNNNNNNNNNNNNЎЎЎю@вNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; BUF‹ящNNNNNNNNNNNNNNNNЎЎЎю"fxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************jHятNNNNNNNNNNNNNNNNNЎЎЎю(‰іNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; Eb2яОNNNNNNNNNNNNNNNNNЎЎЎю.#NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыHL) LD (CUR_DPB),DE ; ; FETCH DISK PARAMETER HEADER ADDRESS ; INC HL ;DPH PTR LD E,(HL) INC HL LD D,(HL) LD (C„ю!NNNNNNNNNNNNNNNNЎЎЎющ NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы HOST BUFFER, IF NOT DIRECTORY THEN DELAY WRITE ; LD A,(WRTYPE) ;IF NOT DIRECTORY THEN DELAY WRITE CP A,WRDIR LD A,(IOPB9,япNNNNNNNNNNNNNNNNNЎЎЎюЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************‡вяrNNNNNNNNNNNNNNNNNЎЎЎю6ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTE READ SECTOR ; CALL CPM_RD ; ; RESTORE PTRS & RETURN ; POP IY POP IX RET ;*********************************E№яzNNNNNNNNNNNNNNNNNЎЎЎюњNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыR EXECUTION ; ENTRY- HL= PTR TO IOPB IMAGE TRACK DATA ; IX= DDT PTR ; IY= DPB PTR ; (SP)= ADDRESS {LL_READ, LLWRIT} OF EX”’юrNNNNNNNNNNNNNNNNЎЎЎюsУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_FLSH: ; ; IF UNMODIFIED THEN RETURN ; LD A,(BUF_MOD) OR A,A RET Z ; ; ELSE SET PTRS TO BUFFER DATA ; PUSH IX †ѕящNNNNNNNNNNNNNNNNЎЎЎю#UINNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************** ; BUF_WR: ; LD HL,LL_WRIT JP BUF_RW ;****************************************************йqязNNNNNNNNNNNNNNNNNЎЎЎю)є‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++‡†ядNNNNNNNNNNNNNNNNNЎЎЎю/$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUR_DPH),DE EX DE,HL ;PUT DPH PTR IN HL FOR RETURN ; ; IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; L}$я„NNNNNNNNNNNNNNNNЎЎЎю¬ZNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы + PB_STATO) ;RETURN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERROR THEN ABORT ; OR A,A JR NZ,RW_RET ; ; NO ERROR/DIX,яВNNNNNNNNNNNNNNNNЎЎЎюC‘NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************************************************** ; CPM_WR: ; LD HL,LL_WRIT JP CPM_RW ;****************************2Ея„NNNNNNNNNNNNNNNNЎЎЎюcнNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************* ; ; CPM_RD PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA. ; ENTRY- (CPM_DќядNNNNNNNNNNNNNNNNNЎЎЎюЊ&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыECUTOR ; ;**************************************************************************** ; RD_WR: LD DE,IOPB + PB_TRKO LD BCђяВNNNNNNNNNNNNNNNNЎЎЎю&ЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы PUSH IY LD IX,(BUF_DDT) LD IY,(BUF_DPB) ; ; WRITE THE BUFFER DATA ; CALL BUF_WR ; ; RESTORE THE PTRS ; POP Iіdя“NNNNNNNNNNNNNNNNNЎЎЎю$МЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************ ; ; RDBUF PERFORMS THE PHYSICAL READ FROM THE HOST DISK INTO BLKBUF. ; ENTRY- (BUF_DSK)= DISK # TO RХюHNNNNNNNNNNNNNNNNNЎЎЎю*пСNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++ ; SELDSK: ; ; STORE DRIVE # FOR FUTURE USE ; LD A,C LD (CPM_DSK),A ; ; SAVE LOGON REQUEST FLAG ; L™,ю$NNNNNNNNNNNNNNNNNЎЎЎю0iNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,(LOGRQ) ;0: LOGON, 1:INHIBIT OR A,C ;0: NORMAL, 1: INHIBIT CPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; PUSH IXhFюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃњ‚iѓ7„…Т…џ†l‡;€‰Ц‰ЈЉq‹?ЊЌЩЌ¦ЋtЏBђ‘Ю‘¬’y“F”•б•®–}—J™е™ґљ‚›Pњќмќ№ћ€џV $ЎсЎїўЌЈZ¤)ҐцҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю™!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SAVE REGS PUSH IY ; LD IX,(CUR_DDT) ;SET REGS LD IY,(CUR_DPB) ; LD (IY + DPB_SKT),0 ;ASSUME NO SKEW ; ; ATTEMPT®ѕя“NNNNNNNNNNNNNNNNNЎЎЎю3‡NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ASSUME NO TRANSLATION AS DEFAULT ; CALL TRNONE ; ; IF SINGLE-DENSITY FLOPPY THEN ASSUME 3740 TRANSLATION ; LD A,(BLKЃядNNNNNNNNNNNNNNNNЎЎЎю ЬLNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы XFER DISK PHYSICAL DATA TO TABLE ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (IX + DDT_HDS),A ; ; RETURN DRIVE TABLE PTR ; [VяBNNNNNNNNNNNNNNNNЎЎЎюь0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;**********************r`яBNNNNNNNNNNNNNNNNЎЎЎюыNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBC= SECTOR # ; ;**************************************************************************** ; SETSEC: LD (CPM_SEC),BC RыZяINNNNNNNNNNNNNNNNNЎЎЎю№]NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD «АяNNNNNNNNNNNNNNNNЎЎЎю%SNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPB LD DE,IOPB LD BC,PB_STATO LDIR ; ; EXECUTE WITHOUT COMPENSATION ; JR LчяBNNNNNNNNNNNNNNNNЎЎЎю+pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_WRIT: ; ; IF STILL PROTECTED THEN …3яВNNNNNNNNNNNNNNNNЎЎЎюМrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO READ ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JR NZ,LOGERR ; CALL DISKLOG JR NZ,LOGERR ; ; IF NO ID SECTOR *Mя“NNNNNNNNNNNNNNNNNЎЎЎю#№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBUF + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] CALL Z,TR8 ; ; IF NO DYNAMIC SKEW TABLE SPECIFIED THEN TRANSLATVряЙNNNNNNNNNNNNNNNNЎЎЎю‰NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDONE ; ; ; NO ID SECTOR, USE DEFAULT DATA ; LGDEF: ; ; IF NOT HA…ятNNNNNNNNNNNNNNNNЎЎЎюe§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************** ; HOME: ; ; IF PENDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(хњятNNNNNNNNNNNNNNNNЎЎЎюFЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET ;**************************************************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRЗ0ядNNNNNNNNNNNNNNNNNЎЎЎю ¬цNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL A~@яђNNNNNNNNNNNNNNNNNЎЎЎю&PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL_DO ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT Pѕ"яBNNNNNNNNNNNNNNNNЎЎЎю,й›NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERROR ; LD A,(WR_PROT) OR A,A JR NZ,DO_ERR ; ; INHIBIT UPLOAD ; LD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A ; ; I®ятNNNNNNNNNNNNNNNNЎЎЎюяCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHEN USE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR IN ALL CASES) ; ID SECTOR TYPES ARE: ; -1: NON#ЖябNNNNNNNNNNNNNNNNЎЎЎю €NNNNNNNNNNNNNNNNNNNNNNЎЎЎыION IS DONE ; LD A,(BLKBUF + ID_SKWO) LD (IY + DPB_SKT),A ;IF 0 THEN DISABLES SKEW ADDITION OR A,A JR Z,NO_SKW ; ; j~яNNNNNNNNNNNNNNNNNNЎЎЎює.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRD DISK THEN GO DO FLOPPY TEST ; BIT DDT_HDB,(IX + DDT_FLG) JR Z,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONMЃящNNNNNNNNNNNNNNNNЎЎЎюV–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBUF_MOD) OR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HOME2: ; ; JUST SET TRACK TO 0 ; LD BC,‚hяђNNNNNNNNNNNNNNNNNЎЎЎюu™NNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎыESS ; EXIT - A= ? ; ;**************************************************************************** ; SETDMA: LD (CPM_DMA),BCЊРяњNNNNNNNNNNNNNNNNЎЎЎю!џЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NНюHNNNNNNNNNNNNNNNNNЎЎЎю'5aNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++я“NNNNNNNNNNNNNNNNЎЎЎю-ЪЄNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CALCULATE DOWNLOAD BYTE COUNT ; LD A,(IY + DPB_PSH) ;USE SHIFT FACTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;START WITHо\яВNNNNNNNNNNNNNNNNЎЎЎюfФNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыE 0: OLD JADE DD ; 2: EXTENDED 3: PARTITIONED, 0-FILLED ; LD A,(IOPB + PB_ST2O) CP A,-1 JR Z,LGDEF ; ; ELSE IF TY8¦ябNNNNNNNNNNNNNNNNЎЎЎю EЫNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыELSE VALID SKEW TABLE ON DISK, TRANSFER TO SKEW BUFFER ; LD HL,BLKBUF ;CALCULATE PTR TO TABLE LD E,A LD D,0 ADD HL,DE 1я„NNNNNNNNNNNNNNNNNЎЎЎю©cNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_DPB) ; USE DEFAULT TABLE LD BC,DPB_SZ LDIR ;|YяrNNNNNNNNNNNNNNNNЎЎЎюЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ; ; FALL INTO SET TRACK ; ;**************************************************************************** ; ; SET TRксяNNNNNNNNNNNNNNNNNNЎЎЎюмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(BUF_DMAB) ;FETCH BANK ADDRESS SET BY COLD START LD (CPM_DMAB),A ; ; DONE ; RET ;++++++++++++++++++++++1XяВNNNNNNNNNNNNNNNNЎЎЎю"К”NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOTRAN: LD HL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++А+ядNNNNNNNNNNNNNNNNNЎЎЎю(%_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; LL_READ: ; ; ENABLE UPLOAD ; XOR A,A LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD HL,0 LD (IOPBqєюBNNNNNNNNNNNNNNNNЎЎЎю.ЏщNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE SECTORS ; JR Z,LL_WR2 ;IF SHIFT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HL ;DOИCяNNNNNNNNNNNNNNNNNNЎЎЎюUеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPE == 3 THEN OK ; CP A,3 JR NC,TYPE3_ID ; ; ELSE PAD UNINITIALIZED DATA TO 0 ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITp яђNNNNNNNNNNNNNNNNNЎЎЎюvкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EX DE,HL ;CALCULATE BUFFER PTR LD HL,(CUR_DPB) LD BC,DPB_SKT ADD HL,BC EX DE,HL ; LD BC,SKTSZ LDIR ; NO_SKW:ЈФя NNNNNNNNNNNNNNNNNЎЎЎюљRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,(HL) ;HEADS VALUE JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERRr+яюNNNNNNNNNNNNNNNNNЎЎЎю0фNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыACK # ; ENTRY- BC= TRACK # ; ;**************************************************************************** ; SETTRK: LD (КУя NNNNNNNNNNNNNNNNЎЎЎюЯ?NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO 2DюBNNNNNNNNNNNNNNNNЎЎЎю#щҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++ ; ; LOGON DISK FUNCTION ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++рядNNNNNNNNNNNNNNNNNЎЎЎю)nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы + PB_BCNTO),HL ; ; PASS READ SECTOR COMMAND ; LD A,PB_READC JP LL_RW ;+++++++++++++++++++++++++++++++++++++++++++ЂUядNNNNNNNNNNNNNNNNNЎЎЎю/јИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2: LD (IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ; ; FALL¬”ятNNNNNNNNNNNNNNNNЎЎЎю¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH 0S LD B,ID_FLGO - ID_PSHO ; PADIDL: LD (HL),0 INC HL DJNZ PADIDL ; ; PROCESS TYPE-3 ID SECTOR ; TYPE3_ID: ; ; ыябNNNNNNNNNNNNNNNNЎЎЎюп}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; XFER DISK DATA TO DPB ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,BLKBUF + ID_SPTO LD BC,DPB_SZ - 1 LDIR ; ; Яњя„NNNNNNNNNNNNNNNNЎЎЎюПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR EXIT ; LOGERR: LD HL,0 ; ; DONE ; LGDONE: POP IY ;RESTORE REGS POP IX RET ;*********************************я$NNNNNNNNNNNNNNNNNЎЎЎю КNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPM_TRK),BC RET ;**************************************************************************** ; ; SET SECTOR ; ENTRY- n!яNNNNNNNNNNNNNNNNЎЎЎюЉlNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXLATE TABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++VКя“NNNNNNNNNNNNNNNNNЎЎЎю$`2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKLOG: ; ; SET UP READ IOPB ; LD A,(BUF_DMAB) ’2ябNNNNNNNNNNNNNNNNЎЎЎю*C=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++ ; ; LOW LEVEL WRITE ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUSа{язNNNNNNNNNNNNNNNNNЎЎЎю0Ї…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы INTO COMMON CODE ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON IOPB EXECUT5 яHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNдNNNNNNюЂМЃљ‚gѓ5„…Р…ћ†k‡9€‰Х‰ўЉp‹>ЊЌШЌ¦ЋtЏBђ‘Ю‘¬’z“H”•д•І–Ђ—M™й™·љ…›Sњ!ќпќЅћЊџZ (ЎхЎГў‘Ј_¤-ҐыҐЙ¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE PTR ; IY= DPB PTR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $яИNNNNNNNNNNNNNNNNNЎЎЎю·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK LD E,A ; LD HL,IOPB LD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM fяNNNNNNNNNNNNNNNNЎЎЎю л|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;RETURN -1 TO BDOS OR A,A RET ; ; ; DISPLAY WRITE PROTECT ERROR MESSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR JR IМLюBNNNNNNNNNNNNNNNNЎЎЎюЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD DISK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE с®яBNNNNNNNNNNNNNNNNЎЎЎю$ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ ; HDEXEC: EQU XPRIM SUBTTL JADE FLOPPY DRIVER ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ЁPя“NNNNNNNNNNNNNNNNNЎЎЎюЋmNNNNNNNNNNNNNNNNNNNNNNЎЎЎыKEW ENABLED THEN TRANSLATE IT ; FD8SNGL: PUSH IY ;CALCULATE PTR TO TABLE POP HL LD DE,DPB_SKT ADD HL,DE ; LD DE,(IЫядNNNNNNNNNNNNNNNNЎЎЎю%d3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; ENTRY- A= FUNCTION # ; EXIT - vќяВNNNNNNNNNNNNNNNNЎЎЎю+GNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD HL,(IOPB + PB_TRKO) ;FETCH CURRENT TRACK PUSH HL ;SAVE CURRENT TRACK FOR RESTORATION ; LD A,(IX + DDT_HDS) ;IF HEADS =™§ю|NNNNNNNNNNNNNNNNЎЎЎю"э¤NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыANSLATED SECTOR # FROM TABLE LD (IOPB + PB_SECO),A ; NOSKEW: ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MOdя NNNNNNNNNNNNNNNNNЎЎЎю(oNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,-1 RET ; BF_OK: ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL ADD A,A ADD A,L |яОNNNNNNNNNNNNNNNNNЎЎЎю.ёЙNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # - FUNCTI-”я\NNNNNNNNNNNNNNNNЎЎЎюbХNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN ADDRESS ON STACK PUSH HL ; LD L,(IX + DDT_EXE) ;FETCH DRIVER ADDRESS FROM TABLE LD H,(IX + DDT_EXE + 1) JP (HL) ; ¤рязNNNNNNNNNNNNNNNNNЎЎЎюAЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF DEBUGGER THEN EXECUTE IT ; CP A,'M' JP Z,MR_BRK ; ; ELSE IF IGвюrNNNNNNNNNNNNNNNNNЎЎЎюbNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************** ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ґюNNNNNNNNNNNNNNNNNЎЎЎюДNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IX=3ХятNNNNNNNNNNNNNNNNЎЎЎюиNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= 1 THEN SKIP MODIFICATION DEC A JR Z,FD8SNGL ; LD A,(IOPB + PB_SECO + 1) ADD A,A ;BIT 15 -> BIT_BUCKET ; SRL H КІя„NNNNNNNNNNNNNNNNЎЎЎю#О•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIFIED IOPB SO RETRY WILL WORK ; POP HL ;RESTORE ORIGINAL SECTOR RES 7,H ;CLEAR SIDE BIT 1ST LD (IOPB + PB_SECO),HL ›ияHNNNNNNNNNNNNNNNNNЎЎЎю)!^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL z8яNNNNNNNNNNNNNNNNNЎЎЎю/‹шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ЖNю9NNNNNNNNNNNNNNNNЎЎЎю7†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DRIVER RETURNS HERE ; LL_OPRET: ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROй†яњNNNNNNNNNNNNNNNNЎЎЎюШMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; LD A,-1©{яВNNNNNNNNNNNNNNNNЎЎЎюш1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;**************************************************************************** ; TRNONE: LD DE,0 JR SETTR SUBTTL HARЭhяЇNNNNNNNNNNNNNNNNNЎЎЎюъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++JaяВNNNNNNNNNNNNNNNNЎЎЎюЅ\NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; LD (IOPB + PB_TRKO),HL ;TRACK = RESIDUAL ; ; IF Sь°я“NNNNNNNNNNNNNNNNNЎЎЎю$WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; POP HL ;RESTORE ORIGINAL TRACK LD (IOPB + PB_TRKO),HL ; ; DONE ; RET SUBTTL BIOS FUNCTION CALLS ;+++++++++НюNNNNNNNNNNNNNNNNNNЎЎЎю*t NNNNNNNNNNNNNNNNNNNNN!фЎЎЎы;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;############################v©ядNNNNNNNNNNNNNNNNNЎЎЎю0µNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++ ; BF_RVERS: ; ; RETURN VERSION ; LD HL,VERSN ; ; RETURN NO ERROR ; XOR A,A RET ;+++++++++++++++Ё–юHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃПЃќ‚kѓ9„…Ф…Ў†n‡<€ ‰Ч‰¤Љr‹?Њ ЌЪЌ©ЋwЏEђ‘в‘°’}“J”•е•І–Ђ—M™и™·љ…›Sњ!ќпќјћ‹џY 'ЎфЎБўЏЈ]¤,ҐъҐИ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюп•NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN MONITOR DRIVE # - FUNCTION #1 ; ENTRY- C= CP/M DRIVEµфяИNNNNNNNNNNNNNNNNNЎЎЎюE3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0: OK, /0: ERROR ; BC,DE,HL= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; BF_DLOG:‚gямNNNNNNNNNNNNNNNNЎЎЎю ЄшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ELSE ENABLE LOGON ; LD DE,DDT_FLG ;OFFSET TO FLAGS ADD HL,DE RES 0,(HL) ; ; RETURN NO ERROR ; XOR A,A RET .я„NNNNNNNNNNNNNNNNЎЎЎюЉ„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыF LOGON DID IT ; EX DE,HL ;HL=SRC LD DE,BLKBUF ;DEST LD BC,128 ;MUST BE IN 1ST 128 BYTES LDIR ; ; IF ID-TYPE NOT Pя„NNNNNNNNNNNNNNNNЎЎЎюeONNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADЦ$яЙNNNNNNNNNNNNNNNNNЎЎЎюПйNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************** ; ; NEWLINE PROCEDURE ; ;******************************************vю NNNNNNNNNNNNNNNNЎЎЎю%%·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; ыјяBNNNNNNNNNNNNNNNNЎЎЎю+ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERSIONТ8ябNNNNNNNNNNNNNNNNЎЎЎюєЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы # {0..15} ; EXIT - A= {0..253}: MONITOR DRIVE # ; -2: DRIVE ERROR ; BC,DE,HL= ? ; ;++++++++++++++++++++++++++++++++++[3яINNNNNNNNNNNNNNNNNЎЎЎюU NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; FETCH TABLE PTR ; CALL RETDVRT ; ; IF ILLEGAL DRIVE THEN RETURN ERROR ; JR NZ,ARGERR ; ; ELSE SET LOGON DђяNNNNNNNNNNNNNNNNЎЎЎюя«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SET DISK FORMAT - FUNCTION #4 ; ENTRY- CЋятNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы3 THEN ERROR ; LD A,(BLKBUF + 1FH) ;FETCH TYPE SUB A,'3' RET C ; ; SET DATA USING LOGON CODE ; LD HL,BF_SRET ;FAKED`я NNNNNNNNNNNNNNNNЎЎЎю0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; LD HL,0 .уяdNNNNNNNNNNNNNNNNNЎЎЎю ЪBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************* ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONtOябNNNNNNNNNNNNNNNNЎЎЎю&pдNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF;2яyNNNNNNNNNNNNNNNNЎЎЎю,џ/NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ bяNNNNNNNNNNNNNNNNЎЎЎю‰чNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; BF_RDRV: ; ; FETCH TABLE PTR ; CALL RETDVRT ; ; IF ILLEGAL DRIVE THEN gѓюNNNNNNNNNNNNNNNNNNЎЎЎю fя$NNNNNNNNNNNNNNNNNЎЎЎюшЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FLG= DRIVE FLAGS ; #DPB= DPB ADDRESS ; #DPH= D·ГядNNNNNNNNNNNNNNNNЎЎЎю%‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0 ENDIF IF BOOT = 11H ; дябNNNNNNNNNNNNNNNNЎЎЎю+1€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################## ; ; MESSAGES ; ;###############################################################{ю9NNNNNNNNNNNNNNNNЎЎЎюЌцNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOR ROM EXECUTER ; ENTTоя$NNNNNNNNNNNNNNNNNЎЎЎюb=NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,MF_CIS JP XMROM ;**************************************************************************** ; ; CONSOLE OUTPUT ;gQя$NNNNNNNNNNNNNNNNЎЎЎюИ›NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNCH: RET ;**************************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHЕWюrNNNNNNNNNNNNNNNNЎЎЎю$#NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZED DATA ;################################YdюrNNNNNNNNNNNNNNNNЎЎЎю,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################### ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIVER DDT_FLG DS 1 ;FLAGS BIT DEF. ; 0к®яdNNNNNNNNNNNNNNNNNЎЎЎю нrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@›6яОNNNNNNNNNNNNNNNNNЎЎЎю&GФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA DDT_0: ALLDRV HDEXEC,6,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,6,12H,D1DPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEБцяВNNNNNNNNNNNNNNNNЎЎЎю,ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WP_ERM: DM CR,LF,'W-PROгqяNNNNNNNNNNNNNNNNЎЎЎюѕЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY- A= FUNCTION # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMROM: EQU MR_FUN 3ўюBNNNNNNNNNNNNNNNNЎЎЎю QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; COC: LD A,MF_CЭЅяИNNNNNNNNNNNNNNNNNЎЎЎюыЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAR TO OUTPUT ; ;**************************************************************************** ; LO: LD A,MF_LO JP XMROM `%юBNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################ ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;#########J^юNNNNNNNNNNNNNNNNNNЎЎЎю4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} DDT_HDB EQU 4 ;1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE # DDT_їђюNNNNNNNNNNNNNNNNNNЎЎЎю!ЮCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR DB #FLG ;FLAGS DB #PD ;MONITOR#ФяОNNNNNNNNNNNNNNNNNЎЎЎю'tеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC,4,10H,D2DPB,D2DPH,4,0 ; D DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; E DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0 ¤9яHNNNNNNNNNNNNNNNNЎЎЎю-›.NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT Error!' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;##############################################ЉВяВNNNNNNNNNNNNNNNNЎЎЎю'PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; E·\яњNNNNNNNNNNNNNNNNЎЎЎю _NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; E:„ятNNNNNNNNNNNNNNNNNЎЎЎюизNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0п№ю NNNNNNNNNNNNNNNNЎЎЎюBANNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################### ; SDTRAN: GXLATE 26,6 ;##############################яGяоNNNNNNNNNNNNNNNNNЎЎЎюЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DES„яyNNNNNNNNNNNNNNNNЎЎЎю"‹NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR DB #HDS ;HEADS DW #SOF ;SECTOядNNNNNNNNNNNNNNNNNЎЎЎю(dЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыENDIF IF BOOT = 3 ; A DDT_0: ALLDRV FD8EXEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXEC,1,0,D1DPB,D1DPH,1,0 ; CшяaNNNNNNNNNNNNNNNNЎЎЎю.О}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################## ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;#############VІяњNNNNNNNNNNNNNNNNЎЎЎюaNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI JP XMROM яdю'NNNNNNNNNNNNNNNNNЎЎЎю7nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLZ ;FAKE 8ТюrNNNNNNNNNNNNNNNNNЎЎЎюЫЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS Ш,яюNNNNNNNNNNNNNNNNNЎЎЎюqpNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы############################################## ; ; COMMON I/O PARAMETER BLOCK ; ;###########################################jYятNNNNNNNNNNNNNNNNЎЎЎюћ»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DEFINE THE STRUCTURE SIZE ; DDT_SIёТяВNNNNNNNNNNNNNNNNЎЎЎю#ё!NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,4,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,4,12H,D1Dr ядNNNNNNNNNNNNNNNNNЎЎЎю)WкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DDT_2: ALLDRV HDEXEC,4,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,4,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV HDEXECядNNNNNNNNNNNNNNNNNЎЎЎю/эLNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################### ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOеїя„NNNNNNNNNNNNNNNNЎЎЎюA2NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: Nж¤ю9NNNNNNNNNNNNNNNNЎЎЎю®щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEOF ; ; FALL INTO PUNCH RETURN ; ;**************************************************************************** ; ; PРэю9NNNNNNNNNNNNNNNNЎЎЎюЋ…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP XMROM ;**************************************************************************** ; ; MESSAGE EDITOR ; ENTRY- HL= T]DянNNNNNNNNNNNNNNNNNЎЎЎюaNNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################# ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;##############################Gя9NNNNNNNNNNNNNNNNЎЎЎюЛиNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE~Pя'NNNNNNNNNNNNNNNNNЎЎЎю$!¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,5,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,5,12H,D3DPB,D3DPH,4,8000H ; ЄяњNNNNNNNNNNNNNNNNЎЎЎю*№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,5,10H,D4DPB,D4DPH,4,0 ; F DDT_5: ALLDRV HDEXEC,5,12H,D5DPB,D5DPH,4,8000H ENDIF ;##################################.iяИNNNNNNNNNNNNNNNNNЎЎЎю0оNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC ь¤я“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃќ‚jѓ8„…Ф…Ў†n‡<€ ‰Ц‰ЈЉq‹?Њ ЌЫЌЁЋvЏDђ‘а‘®’{“I”•е•І–Ѓ—N™й™ёљ‡›Vњ#ќсќїћЌџ[ (ЎхЎВўђЈ^¤,ҐщҐЗ¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюѕёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAПяИNNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTO@pяЙNNNNNNNNNNNNNNNNЎЎЎю ыХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF (DSK_#D(DD) AND 0F0H) = 10›яNNNNNNNNNNNNNNNNЎЎЎюЫ©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыB -1 ;/0: WRITE PROTECTION ENABLED ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DјnяrNNNNNNNNNNNNNNNNЎЎЎю4bNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BLOCKING BUFFER MAINTENANCE ; BUF_PSEC DS 2 ;BUFFER PHYSICAL SECTOR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER BяИNNNNNNNNNNNNNNNNNЎЎЎюћДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################### ; ; VARIABLES ; ;###################################################ЕOяЙNNNNNNNNNNNNNNNNЎЎЎю%tљNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИяNNNNNNNNNNNNNNNNЎЎЎю+W•NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVEЪrяВNNNNNNNNNNNNNNNNЎЎЎюллNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE SECTOR OFFSET DB 0 ;SKEW = 0 ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;#######################Ч3яЙNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR OFFSET (SOF) DB 0 ;SKEW = 0 ; ; ; DB 4 ;HEADS ;#################################################################Љ)яINNNNNNNNNNNNNNNNЎЎЎю®†NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыH DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE C‚ШяrNNNNNNNNNNNNNNNNЎЎЎюB>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыATA AREA ;############################################################################ ; ; THE FOLLOWING DATA MUST RESIDE IPМяrNNNNNNNNNNNNNNNNЎЎЎюa1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUF_MOD DS 1 ;0: BUFFER CLEAN, /0: BUFFER DIRTY (MODIFIED) ; BUF_DDT DS 2 ;BUFFER DDT PTR BUF_DPB DS 2 ;BUFFER DPB PTR ; RSFЃ&ятNNNNNNNNNNNNNNNNNЎЎЎю ‹oNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################### ; CUR_DPB DS 2 ;DRIVE TABLE PTR CUR_DDT DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR CUR_DPH DS 2 ;DPєРяђNNNNNNNNNNNNNNNNNЎЎЎю&!ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPP/яrNNNNNNNNNNNNNNNNЎЎЎю,ОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPYЁядNNNNNNNNNNNNNNNNЎЎЎюШЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################### ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;##########################VябNNNNNNNNNNNNNNNNЎЎЎю 7NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы########### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;##############################################################(язNNNNNNNNNNNNNNNNNЎЎЎюќ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789A/ЮяrNNNNNNNNNNNNNNNNЎЎЎюqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN THIS ORDER TO MATCH THE IOPB DATA ; ;############################################################################ ; ; CPaCябNNNNNNNNNNNNNNNNЎЎЎюRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERлeюBNNNNNNNNNNNNNNNNЎЎЎю!ё^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^яИNNNNNNNNNNNNNNNNNЎЎЎю'шNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыY, 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;******************************************яЙNNNNNNNNNNNNNNNNЎЎЎю-э3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 ЉуяОNNNNNNNNNNNNNNNNNЎЎЎюAMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################## ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FAЖяОNNNNNNNNNNNNNNNNNЎЎЎю bBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############## ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER Xя„NNNNNNNNNNNNNNNNNЎЎЎюЋъNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыBCDEF DD DL DD + 1 LIST ON ENDM ;############################################################################ ; ; LOчя„NNNNNNNNNNNNNNNNЎЎЎю$\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL DRIVE CPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER DS 1 Щ»яИNNNNNNNNNNNNNNNNNЎЎЎюЛ—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: ўЗятNNNNNNNNNNNNNNNNЎЎЎю"н NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7яNNNNNNNNNNNNNNNNNЎЎЎю(ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;********** џяBNNNNNNNNNNNNNNNNЎЎЎю.Ё`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы& 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOШxяИNNNNNNNNNNNNNNNNNЎЎЎюr|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRЊЗя'NNNNNNNNNNNNNNNNNЎЎЎюQsNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D$«ятNNNNNNNNNNNNNNNNNЎЎЎюЅЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGON IOPB OVERLAY ; ;############################################################################ ; LOGIOPB: DB PB_LOGC ;CO!]ясNNNNNNNNNNNNNNNNЎЎЎюmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;FLAGS CPM_DMA DS 2 ;XFER ADDR CPM_DMAB DS 1 ;XFER BANK ; ; ; BUFFER IOPB OVERLAY ; BUF_DSK DS 1 ;BUFFER DISK NUMBER BМятNNNNNNNNNNNNNNNNЎЎЎюш¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыWRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D) ; ; UNA_CNT: DS 1 ;# SECTORS REMAINING IN BLOCK (CLUSTER) UNA_Dю±ящNNNNNNNNNNNNNNNNЎЎЎю#Ю (DIRBF + SECSZ) CONMSG **** ‚яВNNNNNNNNNNNNNNNNЎЎЎю+!!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERRUPTS ; IN A,(M2_STAT) OR A,M2_IEN OUT (M2_STAT),A EI ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_BDRV©TяВNNNNNNNNNNNNNNNNЎЎЎюќ_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; MR_RNUM EQU 0 ;INTERIM DEFINITION FOR INTERRUPT ROM SWAP ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD7"я“NNNNNNNNNNNNNNNNNЎЎЎюr”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы==== ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ІЃя$NNNNNNNNNNNNNNNNЎЎЎюШ2NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL ятNNNNNNNNNNNNNNNNЎЎЎю4ЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEADER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP ®ЖядNNNNNNNNNNNNNNNNЎЎЎю…NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITяйяNNNNNNNNNNNNNNNNNЎЎЎю эЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # P‚¶яОNNNNNNNNNNNNNNNNNЎЎЎю&W}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыWARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ¬+яВNNNNNNNNNNNNNNNNЎЎЎю,ё¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIњWящNNNNNNNNNNNNNNNNЎЎЎю®nNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DISK BOOT DATA ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;SХяњNNNNNNNNNNNNNNNNЎЎЎю AҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ЮЇяHNNNNNNNNNNNNNNNNNЎЎЎюлNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 10”я9NNNNNNNNNNNNNNNNЎЎЎю»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS J5УяNNNNNNNNNNNNNNNNЎЎЎю$ґNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыH INIT ; INIT1: JR INIT ;############################################################################ ; ; DIRECTORY SECЕхяњNNNNNNNNNNNNNNNNЎЎЎю!ОкNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD S®ќяNNNNNNNNNNNNNNNNNNЎЎЎю'dLNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ENDIF ;---------------------------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SE4јюHNNNNNNNNNNNNNNNNЎЎЎю-‹‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL TЊящNNNNNNNNNNNNNNNNЎЎЎю7щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTART LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT ЛяNNNNNNNNNNNNNNNNЎЎЎю цNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON D‹ятNNNNNNNNNNNNNNNNNЎЎЎюшNNNNNNNNNNNNNNNNNNNNNNNЎЎЎы00 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORжѓяrNNNNNNNNNNNNNNNNЎЎЎюRиNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL ;#########################################################$‚яHNNNNNNNNNNNNNNNNNЎЎЎюЅ#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHФСящNNNNNNNNNNNNNNNNЎЎЎю"›№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTART VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;######################.ятNNNNNNNNNNNNNNNNNЎЎЎю(trNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTS UP VARIABLES ; ;---------------------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; LD SPUcюBNNNNNNNNNNNNNNNNЎЎЎю.ЮФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LDа-я'NNNNNNNNNNNNNNNNNЎЎЎюИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDATA ; STHD EQU 2 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAўШяИNNNNNNNNNNNNNNNNNЎЎЎю'ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEеяrNNNNNNNNNNNNNNNNNЎЎЎюЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыG BIOS ;---------------------------------------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;------{яюNNNNNNNNNNNNNNNNNЎЎЎюaЩNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################### ; ; THE FOLLOWING BOOT DATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE :яNNNNNNNNNNNNNNNNЎЎЎюЋNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыECK FOR DISK CHANGE. ; ;############################################################################ ; DIRBF: EQU $ ;BUFFERБTяrNNNNNNNNNNNNNNNNЎЎЎю#Ё€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################### ; ; SIGN-ON MESSAGE ; ;##############################################Э[янNNNNNNNNNNNNNNNNNЎЎЎю)GCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,DEFBFR IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; SET INTERRUPT MODE TO 2 ; „vя NNNNNNNNNNNNNNNNNЎЎЎю/неNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PdjяВNNNNNNNNNNNNNNNNЎЎЎюQ›NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;============================================Q!яВNNNNNNNNNNNNNNNNЎЎЎюѕPNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDЯњя„NNNNNNNNNNNNNNNNЎЎЎюћ,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------------------------------------------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/Bq^ядNNNNNNNNNNNNNNNNNЎЎЎюqзNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTHУ°я9NNNNNNNNNNNNNNNNЎЎЎюЫANNNNNNNNNNNNNNNNNNNNNNЎЎЎы BEGINNING ;---------------------------------------------------------------------------- ; ; INIT - COLD START ENTRY зVяИNNNNNNNNNNNNNNNNNЎЎЎю$1NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы############################## ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' ЗчяњNNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(M2_IMASK) AND A,7FH OUT (M2_IMASK),A ; ; FINALLY ENABLE VECTORED INT,ъя'NNNNNNNNNNNNNNNNNЎЎЎю0юЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BCI€юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNђNNNNNNюЂМЃ™‚gѓ4„…Р…ќ†j‡8€‰У‰ Љn‹<Њ ЌШЌ§ЋuЏCђ‘Я‘¬’z“G”•г•°–—L™й™·љ…›Sњ ќнќєћ‰џW $ЎсЎїўЌЈ[¤)ҐчҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюя 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 РяяИNNNNNNNNNNNNNNNNNЎЎЎю0ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*************************************************************************-@юHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNЃПЃњ‚iѓ7„…У… †m‡<€ ‰Ч‰¤Љr‹?Њ ЌЫЌ©ЋwЏEђ‘б‘Ї’}“J”•е•І–Ђ—M™и™¶љ„›Sњ ќоќјћ‹џY &ЎуЎБўЏЈ\¤*ҐчҐЕ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюSРNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*** ; SETTRK: LD (BTTRK),BC RET ;**************************************************************************** ; ; Sd§я“NNNNNNNNNNNNNNNNNЎЎЎющvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;+++++++++++++++++++++++++++++cядNNNNNNNNNNNNNNNNЎЎЎю ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++ ; DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PB_DMAO·НяNNNNNNNNNNNNNNNNЎЎЎю6БNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++ ; DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LяNNNNNNNNNNNNNNNNЎЎЎюЩ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC POP AF ; AND ¶яЙNNNNNNNNNNNNNNNNNЎЎЎюs¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; TR8: TR3740: LD DE,SDTRAN ; SETTR: LD HL,ћ]ядNNNNNNNNNNNNNNNNЎЎЎю%™тNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD E,(HL) ;FETCH DPB PTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;+++++++++++++++++++++++++++++++++++++++Ї·яВNNNNNNNNNNNNNNNNЎЎЎю+єэNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыLL XPRIM ; ; RESTORE SECTOR ; POP HL LD (IOPB + PB_SECO),HL ; ; DONE ; RET ;+++++++++++++++++++++++++++++†ФящNNNNNNNNNNNNNNNNЎЎЎюѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET SECTOR ; ENTRY- BC= SECTOR # ; ;**************************************************************************** ; SETSEC: C‡я“NNNNNNNNNNNNNNNNNЎЎЎюйHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLEЪ_яИNNNNNNNNNNNNNNNNЎЎЎюCоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы),HL CALL GETBNK LD (IOPB + PB_DMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,ID_SECT LD (IOPB + PB_SECO),HL ; ?OятNNNNNNNNNNNNNNNNЎЎЎюЇVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIR ; DISKOP2: LD (IOPB + PB_CMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD ЧLятNNNNNNNNNNNNNNNNЎЎЎюЊYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER JR Z,DKOPLP ;ZдюrNNNNNNNNNNNNNNNNNЎЎЎю fNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(DTPTR) LD (HL),E INC HL LD (HL),D RET ;***************************************************************************.љя!NNNNNNNNNNNNNNNNЎЎЎю&МЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERRHyябNNNNNNNNNNNNNNNNЎЎЎю,#jNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;++++++++++++7ЎяrNNNNNNNNNNNNNNNNЎЎЎю5ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (BTSEC),BC RET ;**************************************************************************** ; ; SET TRANSFER ADDR QяaNNNNNNNNNNNNNNNNЎЎЎю ЪyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD’УяHNNNNNNNNNNNNNNNNNЎЎЎюpЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SET DESCRIPTOR SECTOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + PB_TRKO),HL ; ; ENABLE UPLOADSпящNNNNNNNNNNNNNNNNЎЎЎюњgNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIY,(DVRTPTR) ;FETCH TABLE BASE ; LD HL,DKOPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRPnяВNNNNNNNNNNNNNNNNЎЎЎюїhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF IGNORE THEN RETURN NO ERROR¶бяВNNNNNNNNNNNNNNNNЎЎЎю!U6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы* ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;***********************************************************ѓњяОNNNNNNNNNNNNNNNNNЎЎЎю'яђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: ; ; CONVERT LOGICAL DRIVE TcжяИNNNNNNNNNNNNNNNNЎЎЎю-[NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM: ; ; SET BANK ADDRESS TO THIS BANK FOR NOW ; C¤$яВNNNNNNNNNNNNNNNNЎЎЎю¬%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ENTRY- BC= ADDRESS ; EXIT - A= ? ; ;**************************************************************************** ; SETDM]ЋябNNNNNNNNNNNNNNNNЎЎЎю Џ*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,ЊюrNNNNNNNNNNNNNNNNNЎЎЎюc’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,L ;L= 0 LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD (IOPB + PB_BCNTO),HL ; ; PASS COMMAND TO EXECUTbџящNNNNNNNNNNNNNNNNЎЎЎюЙ4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыESS PREFETCHED FROM TABLE JP (HL) ; ; DRIVER RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RETURN ZF ; R›гя“NNNNNNNNNNNNNNNNNЎЎЎю&яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSKER: LD HL,0 ;RETURN DPB_PTR 4»яBNNNNNNNNNNNNNNNNЎЎЎю"eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************** ; TRNONE: LD DE,0 JR SETTR ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++^>ядNNNNNNNNNNNNNNNNNЎЎЎю(п®NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PB_DRVO),A ; ; OFFSET LOGICAL ADDRESS WITH LO…№яВNNNNNNNNNNNNNNNNЎЎЎю.ENNNNNNNNNNNNNNNNNNNNN!фЎЎЎыALL GETBNK LD E,A ;PRESET IOPB BANK LD (IOPB + PB_DMAXO),A ; ; EXECUTE THE PRIMITIVE IN ROM ; LD HL,IOPB ;BANKED COЬЉяNNNNNNNNNNNNNNNNNNЎЎЎюџNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыA: LD (BTDMA),BC CALL GETBNK ;FETCH BANK ADDRESS FROM MONITOR LD (BTDMAX),A RET ;+++++++++++++++++++++++++++++++++++ёЈяNNNNNNNNNNNNNNNNNЎЎЎюјNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++•ІядNNNNNNNNNNNNNNNNNЎЎЎюPЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR ; LD A,PB_LOGC JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMOЉBяьNNNNNNNNNNNNNNNNЎЎЎюъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; CALL GETBNK ;SETUP BANK FOR FUTURE COMPATABILITY LD E,A LD HL,IOPB sядNNNNNNNNNNNNNNNNЎЎЎюОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= 0 FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;*****************************************************R¬я„NNNNNNNNNNNNNNNNЎЎЎю#3TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++ ; ; RETURN DRIVE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ; ;++++++++++++++++++++++++++++++++++++++*янNNNNNNNNNNNNNNNNNЎЎЎю)ЬџNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыGICAL DRIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD HL,(I;я¤NNNNNNNNNNNNNNNNNЎЎЎю/v9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыMPATABILITY LD DE,(THIS_BNK) LD A,MF_XIOB ;SET MONITOR FUNCTION # CALL XMROM ;EXECUTE THE FUNCTION ; OR A,A ;FUNCTION2.ящNNNNNNNNNNNNNNNNЎЎЎюКGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE /сяВNNNNNNNNNNNNNNNNЎЎЎю%ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ЅящNNNNNNNNNNNNNNNNЎЎЎюрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN DISK I/O CODE ; ENTRY- A= IOPB COMMAND ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++јQядNNNNNNNNNNNNNNNNNЎЎЎюк;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB CALL EDITOR ; ; uCяyNNNNNNNNNNNNNNNNЎЎЎю@ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXIT - DE, HL= ? ;—ђя'NNNNNNNNNNNNNNNNNЎЎЎю$ЄГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADD HL,DE gZяВNNNNNNNNNNNNNNNNЎЎЎю*‰МNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB + PB_SECO) ; PUSH HL ;SAVE SECTOR TO RESTORE LATER ; ADD HL,DE LD (IOPB + PB_SECO),HL ; ; EXECUTE IOPB ; CAИсяNNNNNNNNNNNNNNNNNЎЎЎю0etNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ERR? RET NZ ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET SUBTTL JADE FLOPPY DRIyрязNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNюЂМЃљ‚hѓ5„…С…ћ†k‡9€‰Ф‰ЎЉo‹=Њ ЌШЌ¦ЋtЏBђ‘Я‘¬’z“G”•г•°–~—K™з™µљѓ›Qњќлќёћ‡џU "ЎпЎЅў‹ЈX¤'ҐфҐВ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюdаNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNARюHNNNNNNNNNNNNNNNNNЎЎЎюОFNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTO SECTOR BIT 15 LD (IOPB + PB_SECO +1),A ; LD (IOPB + PB_TRKO),HL ;STORE SHIFTED TRACK ; ; EXECUTE THE IOPB ; CALL rюятNNNNNNNNNNNNNNNNЎЎЎю !ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,¶lяОNNNNNNNNNNNNNNNNNЎЎЎюсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN Nш яВNNNNNNNNNNNNNNNNЎЎЎюо:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO ERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++ЇrяHNNNNNNNNNNNNNNNNNЎЎЎюDњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++dcяЙNNNNNNNNNNNNNNNNЎЎЎю%®ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*************************************************************************** ; ; SYSTEM р@яBNNNNNNNNNNNNNNNNЎЎЎю+ЌНNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF~юBNNNNNNNNNNNNNNNNЎЎЎю1іNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++$яИNNNNNNNNNNNNNNNNNЎЎЎюЮxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORK ; POP HL ;TRACK LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SEЗ«яNNNNNNNNNNNNNNNNNЎЎЎюtЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;#########I1ядNNNNNNNNNNNNNNNNЎЎЎюfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR ГlюNNNNNNNNNNNNNNNNЎЎЎю»iNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- IX= IOPB PTR ; EXIT - A= 0: OK ; ;++++++++ОїятNNNNNNNNNNNNNNNNNЎЎЎю Q7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES ;**************************************м>яИNNNNNNNNNNNNNNNNNЎЎЎю&ы‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SY®>яњNNNNNNNNNNNNNNNNЎЎЎю,ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BC ;SAVE FUN°џяNNNNNNNNNNNNNNNNЎЎЎю‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++ ; FD8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) LD (IOPB + PB_DRVO)ЧюNNNNNNNNNNNNNNNNNNЎЎЎю нINNNNNNNNNNNNNNNNNNNNNNЎЎЎыCO +1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; RET SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++–июHNNNNNNNNNNNNNNNNNЎЎЎюGпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################################################################### ; ; BIOS FUNCTION TABLE ; ;#############################j±ящNNNNNNNNNNNNNNNNЎЎЎю«WNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DRIVER TABLE BASE PTR ; A, C= 0 ; ;+++++++++++++++++++++++§юNNNNNNNNNNNNNNNNNNЎЎЎю€XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; EXIOPB: ; ; SET UP FOR CALL ; CALL GETBNK ;E= IфЯюBNNNNNNNNNNNNNNNNЎЎЎю!bNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;**********ЌyяBNNNNNNNNNNNNNNNNЎЎЎю'И NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTEM CALLS FOR ASMB. ; ;*************************************************************************** INTCPT: LD A,C ;CHECK CAљрюHNNNNNNNNNNNNNNNNЎЎЎю-'kNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUT FUNCTION # ; POP HL LюяВNNNNNNNNNNNNNNNNЎЎЎю›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A ; ; IF HEADS == 1 THEN EXECUTE IOPB ; LD A,(IY + DVRHDS) DEC A JP Z,XPRIM ; ; ELSE SELECT SIDE FROM TRACK BIT ѓеяNNNNNNNNNNNNNNNNЎЎЎю ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; EXIT - A= -1: ERROR, 0: OK ; ;++++++++++++++++++++++++++++ЯятNNNNNNNNNNNNNNNNNЎЎЎюTўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################### ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSM=яNNNNNNNNNNNNNNNNЎЎЎююNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOS CALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RETDVRT: BМяИNNNNNNNNNNNNNNNNNЎЎЎюПNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOPB PTR IS IN THIS BANK LD E,A PUSH IX ;MAKE HL = IX FOR NOW POP HL ; LD A,MF_XIOB ;MONITOR FUNCTION # (DISK FUNCTION)#чяВNNNNNNNNNNNNNNNNЎЎЎю"7UNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы****************************************************************** ; PRHEX: LD C,A LD A,MF_PHXB JP XMROM ;********* ИядNNNNNNNNNNNNNNNNNЎЎЎю(ШћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOЎяОNNNNNNNNNNNNNNNNNЎЎЎю.r8NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыD A,L CALL PRHEX ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HL = A = 0 LD L,A LD H,A G>яОNNNNNNNNNNNNNNNNNЎЎЎюЁ$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ; LD HL,(IOPB + PB_TRKO) PUSH HL ;SAVE FOR ERROR RESTORE ; LD A,(IOPB + PB_SECO +1) ;FETCH SIDE SELECT BYTE ADD A,J‡яgNNNNNNNNNNNNNNNNNЎЎЎю‹+NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CPBbядNNNNNNNNNNNNNNNNNЎЎЎюg“NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB MAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++R”ящNNNNNNNNNNNNNNNNЎЎЎюН5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL D°vядNNNNNNNNNNNNNNNNЎЎЎю"юNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы CALL XMROM ;EXECUTE MONITOR FUNCTION ; OR A,A ;FUNCTION ERROR? RET NZ ; ; FETCH & RETURN RESULT STATUS ; LD A,(nьятNNNNNNNNNNNNNNNNЎЎЎю#dNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; NEWLINE PROCEDURE ; ;********************************Ц«юHNNNNNNNNNNNNNNNNNЎЎЎю)лЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT P 4яdNNNNNNNNNNNNNNNNNЎЎЎю/A NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERh яrNNNNNNNNNNNNNNNNЎЎЎюэwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ;SHIFT OUT BIT 7 ; SRL H ;SHIFT TRACK HIGH BYTE RR L ;ROTATE BIT 8 TO 7 AND 0 TO CF RRA ;ROTATE TRACK BIT 0 INУШяњNNNNNNNNNNNNNNNNЎЎЎюјNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C R+ябNNNNNNNNNNNNNNNNЎЎЎю2АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} K<я NNNNNNNNNNNNNNNNNЎЎЎюЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD¦ЅяњNNNNNNNNNNNNNNNNЎЎЎюwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIX + PB_STATO) OR A,A ;TEST RESULT FOR RETURN RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++‚lюHNNNNNNNNNNNNNNNNNЎЎЎю$ќуNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAл?ю!NNNNNNNNNNNNNNNNЎЎЎю*ѕьNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP cЭяИNNNNNNNNNNNNNNNNNЎЎЎю0RDNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Ж7яьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNЃПЃњ‚iѓ6„…Т… †m‡<€ ‰Ш‰ҐЉs‹AЊЌЭЌ¬Ћ{ЏIђ‘д‘І’“L”•з•ґ–‚—P™н™јљЉ›Yњ&ќфќВћ‘џ_ -ЎъЎИў–Јc¤1ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%dNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ыйяЙNNNNNNNNNNNNNNNNNЎЎЎюЏВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENTRY- A= FUNCTION # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMROM: ; ; SWITNЕяNNNNNNNNNNNNNNNNЎЎЎю ` NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ ; CNSCK: LD A,MF_CIS JR XMROM ;*************************************9ЅяВNNNNNNNNNNNNNNNNЎЎЎю@uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************** ; PUNCH: RET ;**************************************************ёhящNNNNNNNNNNNNNNNNЎЎЎюЇѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JR XMROM ь&ю$NNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL MR_FUN POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTjядNNNNNNNNNNNNNNNNЎЎЎю%пFNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; UNSUPPORTED INTERRUPT ; ;---------------------------------------------------------------------------- ; ILLINT: PUSH™WяyNNNNNNNNNNNNNNNNЎЎЎю+МINNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;############################################################################ ; ; DISK DRIVER TABLES ; ;##############qяВNNNNNNNNNNNNNNNNЎЎЎюp7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;++++++++µ8яHNNNNNNNNNNNNNNNNNЎЎЎюџьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCH TO LOCAL (LARGER) STACK ; LD (SPSAV),SP LD SP,LSTACK ; ; EXECUTE THE FUNCTION ; CALL MR_FUN ;EXECUTE MONITOR FUNряoNNNNNNNNNNNNNNNNЎЎЎю5ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;**********************************МятNNNNNNNNNNNNNNNNЎЎЎюЩвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;***********************************************¤юrNNNNNNNNNNNNNNNNЎЎЎюънNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF INTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------------------------------- ; ; USER INTЏEядNNNNNNNNNNNNNNNNNЎЎЎю іNNNNNNNNNNNNNNNNNNNNNNЎЎЎыION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RE{±яNNNNNNNNNNNNNNNNNNЎЎЎю&єNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC PUSH DE LD HL,ILLIM ;NOTIFY USER OF INT JR IQCONT SUBTTL INITIALIZED DAщЇящNNNNNNNNNNNNNNNNЎЎЎю,UЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################## ; STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DgЗяdNNNNNNNNNNNNNNNNЎЎЎюCNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,MF_GCAL JR XMROM ;+++++++++++++++»яNNNNNNNNNNNNNNNNNNЎЎЎю ¬НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION ; ; RESTORE THE STACK ; LD SP,(SPSAV) RET SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++ЃяИNNNNNNNNNNNNNNNNNЎЎЎюkNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы****************************************** ; COC: LD A,MF_CO JR XMROM ;++++++++++++++++++++++++++++++++++++++++++++++ЃҐящNNNNNNNNNNNNNNNNЎЎЎюкУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************** ; LO: LD A,MF_LO JR XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}ФяњNNNNNNNNNNNNNNNNЎЎЎюЙЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыERRUPT ; ;---------------------------------------------------------------------------- ; ITRAP: ; ; SAVE REGS FIRST ; И{яBNNNNNNNNNNNNNNNNЎЎЎю!#‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP DE POP BC ;RESTORE REGS 1ST POP HL POP AF JP 0038H ; ; ; IF OPTION I‚юNNNNNNNNNNNNNNNNNNЎЎЎю'‰$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTA ;############################################################################ ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP$\яЙNNNNNNNNNNNNNNNNЎЎЎю-fпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICAL DRIVE ;DVRLDRV DS 1 ;LOGICAL DRIVE {0..N-1} ; ; THE FOLLOWING ЉУябNNNNNNNNNNNNNNNNЎЎЎюЪ‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MINUTESЋFяВNNNNNNNNNNNNNNNNЎЎЎю щћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++юЇюrNNNNNNNNNNNNNNNNNЎЎЎю&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++`HюrNNNNNNNNNNNNNNNNЎЎЎюїЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++™я'NNNNNNNNNNNNNNNNNЎЎЎюPKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PUSH AF PUSH HL PUSH BC PUSH DE ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(M2_RSEL) LD (ROMSAV),A LD A,MR_ўsяrNNNNNNNNNNNNNNNNЎЎЎю"vСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS MONITOR THEN EXECUTE MONITOR BREAKPOINT ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP DE POP BC POP HL POP AF JP 0008H jhя$NNNNNNNNNNNNNNNNNЎЎЎю(™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы/M SINGLE DENSITY **** ; ;############################################################################ ; SDTRAN: GXLATE 26,6ҐящNNNNNNNNNNNNNNNNЎЎЎю.3јNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыMAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0В®язNNNNNNNNNNNNNNNNNЎЎЎюй NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKTIM: LD A,MF_GTIM JR HЏяИNNNNNNNNNNNNNNNNNЎЎЎюКЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI JR XMROM ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++©ядNNNNNNNNNNNNNNNNNЎЎЎю&NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;*********************\яДNNNNNNNNNNNNNNNNЎЎЎюЊ±NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS JR XMROM ;**************************************************ЧюdNNNNNNNNNNNNNNNNЎЎЎюczNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRNUM OUT (M2_RSEL),A ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: LD A,MF_PUTS CALL MR_FUN ; LD HL,IQMSG ;QUERY USER !%яyNNNNNNNNNNNNNNNNЎЎЎю#EаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (M2_RSEL),A ; POP DE POP BC POP HL¤янNNNNNNNNNNNNNNNNNЎЎЎю)Є+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; COMMON I/O PARAMETER BLOCK ; ;######2яNNNNNNNNNNNNNNNNNЎЎЎю/ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS 1 DVRDTYP DS 1 ;RESERVED FOR DISK TYPE DVRCYLS Ъя9NNNNNNNNNNNNNNNNЎЎЎюјуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOR ROM EXECUTER ;•ъябNNNNNNNNNNNNNNNNЎЎЎюS8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++;YюBNNNNNNNNNNNNNNNNЎЎЎюsDNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************************* ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;********************…›ядNNNNNNNNNNNNNNNNNЎЎЎюњЏNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;***********юBNNNNNNNNNNNNNNNNЎЎЎю6)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_PUTS CALL MR_FUN ; ; GET & ECHO USER INPUT ; LD A,MF_CI CALL MR_FUN ; PUSH AF LD C,A LD A,MF_CO CAB юHNNNNNNNNNNNNNNNNNЎЎЎю$ЬwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP AF EI ;RE-ENABLE INTERRUPTS RET ;---------------------------------------------------------------------------- ЪУяBNNNNNNNNNNNNNNNNЎЎЎю*яxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################################### ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDMQГюHNNNNNNNNNNNNNNNNNЎЎЎю0АNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDS 2 ;DISK CYLINDERS DVRHDS DS 1 ;HEADS ; ; DEFINE THE STRUCTURE SIZE ; DVRSIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@ яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNюЂМЃљ‚hѓ6„…Т… †m‡;€‰Ц‰ЈЉq‹?Њ ЌЫЌ©ЋwЏDђ‘Я‘’{“H”•г•°–~—L™з™µљѓ›Qњќлќёћ‡џU "ЎрЎЅў‹ЈX¤'ҐфҐВ¦^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюTNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRE&юHNNNNNNNNNNNNNNNNNЎЎЎюётNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST OFF ENDM IF BOOT = 10H DVR0: ;A ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR1: ;B ALLDRV HDEXEC,4,60H,3@пятNNNNNNNNNNNNNNNNЎЎЎю W9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################## ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGЋ!юNNNNNNNNNNNNNNNNNNЎЎЎюwENNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################# ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;##################################[™яВNNNNNNNNNNNNNNNNЎЎЎюЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 4 ;HEADS ;############################################################################ ; ; MODE 2 INTERRUPT VECTOR Tv юHNNNNNNNNNNNNNNNNNЎЎЎю2(NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDIF IF INTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort? (Y/N/I/M) - ' ENDIF ;#########ю=юINNNNNNNNNNNNNNNNЎЎЎю%ШvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHйґюBNNNNNNNNNNNNNNNNЎЎЎю+ыyNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы# BTFLG DS 1 ;RESERVED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;############################^юBNNNNNNNNNNNNNNNNЎЎЎюGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSS ; #PD= PHYSICAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; #Z0= TRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRє!юHNNNNNNNNNNNNNNNNNЎЎЎюЁМNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы2,1,32,1,32,1,10H,256,4 DVR2: ;C ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR3: ;D ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,‘ОязNNNNNNNNNNNNNNNNЎЎЎюjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLE DENSITY FORMAT ; ;############################################################################ ; SD8PBK: DW 26 ;SECTORS ¤¶ядNNNNNNNNNNNNNNNNЎЎЎюоТNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы########################################## ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (B•яятNNNNNNNNNNNNNNNNЎЎЎюНЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыABLE ; ;############################################################################ ; ; START ON AN EVEN PAGE BOUNDARY ;шMюrNNNNNNNNNNNNNNNNNЎЎЎю 'ѓNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;######!*язNNNNNNNNNNNNNNNNNЎЎЎю&Ќ%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEляњNNNNNNNNNNNNNNNNЎЎЎю,bоNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы################################################ ; ; VARIABLES ; ;########################################################ІЩюNNNNNNNNNNNNNNNNЎЎЎюt6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыK 1 SIZE ; #SD= DATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@О.яNNNNNNNNNNNNNNNNЎЎЎю ›эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы10H,256,4 DVR4: ;E ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR5: ;F ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ENDIF µюHNNNNNNNNNNNNNNNNNЎЎЎю1[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DЃHяrNNNNNNNNNNNNNNNNЎЎЎюЭгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MыяОNNNNNNNNNNNNNNNNNЎЎЎююмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT LIST ON E#VяњNNNNNNNNNNNNNNNNЎЎЎю!ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@±ГяњNNNNNNNNNNNNNNNNЎЎЎю'ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; LAST OF INIkсюHNNNNNNNNNNNNNNNNЎЎЎю-QЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################### ; DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE A:яўNNNNNNNNNNNNNNNNЎЎЎюнЎNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD,#DT,#CY,#HD LIST ON DW #DADD ;DRIVER EXECUTION ADDR DB 0vяВNNNNNNNNNNNNNNNNЎЎЎю О®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF BOOT = 3 DVR0: ;A ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR1: ;B ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 DVR2: ;VґятNNNNNNNNNNNNNNNNNЎЎЎю"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;У;я9NNNNNNNNNNNNNNNNЎЎЎю€°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSз+яИNNNNNNNNNNNNNNNNNЎЎЎюg{NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;#####################################################################цйю9NNNNNNNNNNNNNNNNЎЎЎю"AбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@љ\ядNNNNNNNNNNNNNNNNNЎЎЎю(®*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;############################################# №яBNNNNNNNNNNNNNNNNЎЎЎю.ЊNNNNNNNNNNNNNNNNNNNNN!аЎЎЎыDDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTION ADDRESS SECOFF DS 2 ;LOGICAL DRIVE SECTOR OFFSET (ADD TO SECTOR) ; ROMSAV EQ&язNNNNNNNNNNNNNNNNNЎЎЎюЮђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD ;MONITOR PHYSICAL DRIVE # DB #FG ;DISK FLAGS DB #S0,#Z0 ;T0 SECTORS, SIZE —фюHNNNNNNNNNNNNNNNNNЎЎЎюэџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR3: ;D ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR4: ;E ALLDRV HDEы2яNNNNNNNNNNNNNNNNNЎЎЎю'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS DB 26,0,2;¤явNNNNNNNNNNNNNNNNЎЎЎю»ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSETЊ*юNNNNNNNNNNNNNNNNЎЎЎюTJNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы####### ; ; MESSAGES ; ;############################################################################ ; MSGLE: DM CR,LF,'а/ящNNNNNNNNNNNNNNNNЎЎЎю#rРNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TяююHNNNNNNNNNNNNNNNNNЎЎЎю)ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################### ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;###############ѕ\юdNNNNNNNNNNNNNNNNNЎЎЎю/7ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыU 0048H ;DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM SPSAV DS 2 ;USER SP SAVE WHILE USING LOCAL STACK DS 64 ;LOCAL STACK (32 ENTRIES)EюrNNNNNNNNNNNNNNNNЎЎЎю‹ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB #S1,#Z1 ;T1 SECTORS, SIZE DB #SD,#ZD ;DATA TRKS SECTORS, SIZE DB #DT ;DISK TYPE DW #CY ;CYLS DB #HD ;HEADS ; иящNNNNNNNNNNNNNNNNЎЎЎюdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR5: ;F ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ENDIF LIST ON ;##########¤oяњNNNNNNNNNNNNNNNNЎЎЎюDtNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы6,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) DB 0 ;TYPE DW 77 ;CYLS DB 1 ;HEADS ;###############################IyятNNNNNNNNNNNNNNNNNЎЎЎю«їNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (SOF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 32,1,32,1,32,1 ;32 SPT, 256 BPS DB 10H ;TYPE DW 256 ;CYLS '’яBNNNNNNNNNNNNNNNNЎЎЎюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' EN:яgNNNNNNNNNNNNNNNNNЎЎЎю$лGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;D‹?яВNNNNNNNNNNNNNNNNЎЎЎю*ИHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################# ; BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR ЯFязNNNNNNNNNNNNNNNNNЎЎЎю0$рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LSTACK EQU $ ;############################################################################ ; ; DRIVE ALLOCATION AREAS™RюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃњ‚iѓ6„…Ф…ў†o‡=€‰Щ‰¦Љv‹DЊЌаЌ®Ћ|ЏJђ‘з‘µ’‚“O”•к•·–†—T"™п™ѕљЊ›Zњ'ќхќВћ‘џ_ -ЎъЎЗў•Јc¤2Ґ¦О¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю ЭcNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ;############################################################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@•я$NNNNNNNNNNNNNNNNNЎЎЎю wЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DD + 1 LIST ON ENDM ;############################################################################ ; ; RESERVE DRI№bядNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECTORY SECTORS CHECKED ; (DRM CгяBNNNNNNNNNNNNNNNNЎЎЎю ёrNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@g™я„NNNNNNNNNNNNNNNNЎЎЎю W№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################## ; ; DISK DRIVER TABLES (DDT) ; ;#############################################а>яNNNNNNNNNNNNNNNNNNЎЎЎю эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FLG= DRIVE FLAGS ; #DPB= DPB ADDRESS ; #DPH= D·Гя„NNNNNNNNNNNNNNNNNЎЎЎю %ANNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИяОNNNNNNNNNNNNNNNNNЎЎЎю +4NNNNNNNNNNNNNNNNNNNNNNNЎЎЎы C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVEЪrюBNNNNNNNNNNNNNNNNЎЎЎю €0NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@Ј[яИNNNNNNNNNNNNNNNNNЎЎЎю gыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE PARAMETER BLOCKS ; ;############################################################################ ; STRUCT 0 DPBSPT DS 2Ч%яИNNNNNNNNNNNNNNNNЎЎЎю Н]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCRаятNNNNNNNNNNNNNNNNЎЎЎю !еNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*яNNNNNNNNNNNNNNNNЎЎЎю кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################### ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIVER DDT_FLG DS 1 ;FLAGS BIT DEF. ; 0к®язNNNNNNNNNNNNNNNNNNNЎЎЎю иґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@›6язNNNNNNNNNNNNNNNNNЎЎЎю &BNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPP/ящNNNNNNNNNNNNNNNNЎЎЎю ,ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPYЁяNNNNNNNNNNNNNNNNЎЎЎю »NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHi{яaNNNNNNNNNNNNNNNNЎЎЎю TКNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 ЗЎяHNNNNNNNNNNNNNNNNNЎЎЎю юlNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыKING) ; DPBPSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPBPHM DS 1 ;xеящNNNNNNNNNNNNNNNNЎЎЎю ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIVE #D(DD) LIST OFF ENDОояBNNNNNNNNNNNNNNNNЎЎЎю 1ЫNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} DDT_HDB EQU 4 ;1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE # DDT_їђяNNNNNNNNNNNNNNNNNNNЎЎЎю !Ы…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^ящNNNNNNNNNNNNNNNNNЎЎЎю 'q#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY, 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;******************************************юINNNNNNNNNNNNNNNNЎЎЎю -ћиNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 Љуя!NNNNNNNNNNNNNNNNЎЎЎю "–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD)–4яNNNNNNNNNNNNNNNNЎЎЎю ™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K=%юrNNNNNNNNNNNNNNNNNЎЎЎю н!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARTITIONING DATA FORд·ятNNNNNNNNNNNNNNNNЎЎЎю G‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM “ яИNNNNNNNNNNNNNNNNNЎЎЎю ЁLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DES„яnNNNNNNNNNNNNNNNNNЎЎЎю "ЋЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7ятNNNNNNNNNNNNNNNNNЎЎЎю (aNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;********** џяВNNNNNNNNNNNNNNNNЎЎЎю .Л»NNNNNNNNNNNNNNNNNNNNNNЎЎЎы& 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOШxязNNNNNNNNNNNNNNNNNЎЎЎю §NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTORйЫяђNNNNNNNNNNNNNNNNNЎЎЎю 2ЁNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTER:)ядNNNNNNNNNNNNNNNNNЎЎЎю ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF ABOVE. ; PARTITIONING BY HEADS AЇBяNNNNNNNNNNNNNNNNЎЎЎю t¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF (($ - 8000H) > 07700H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END _9яINNNNNNNNNNNNNNNNЎЎЎю ›}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DEFINE THE STRUCTURE SIZE ; DDT_SIёТяBNNNNNNNNNNNNNNNNЎЎЎю #ЅзNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћяЙNNNNNNNNNNNNNNNNNЎЎЎю )R,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 1ФPядNNNNNNNNNNNNNNNNNЎЎЎю /шЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OFW~юrNNNNNNNNNNNNNNNNЎЎЎю DфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DзяВNNNNNNNNNNNNNNNNЎЎЎю «?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DIRECTORY SIZE -1 DPBAL0 DS 2 ;ALЎФяВNNNNNNNNNNNNNNNNЎЎЎю ‹CNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UPPER BITS) ; DPBSOF DS 2 ;SOF- SECTORc»яdNNNNNNNNNNNNNNNNNЎЎЎю d€NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы################################# ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;##############################GяњNNNNNNNNNNNNNNNNNЎЎЎю О.NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE~PяИNNNNNNNNNNNNNNNNNNЎЎЎю $$pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•яОNNNNNNNNNNNNNNNNNЎЎЎю *NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; Sя“NNNNNNNNNNNNNNNNNЎЎЎю 0лЗNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; ,ГяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNюЂНЃ›‚hѓ6„…С…џ†m‡;€‰Х‰ўЉp‹>ЊЌЩЌЁЋvЏDђ‘б‘Ї’}“K”•ж•і–Ѓ—O™л™№љ‡›Uњ#ќсќѕћЊџZ (ЎхЎГў‘Ј^¤,ҐщҐЗ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю кSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;***************************************ЊeяИNNNNNNNNNNNNNNNNNЎЎЎю @хNNNNNNNNNNNNNNNNNNNNNNЎЎЎыdid not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file names. ; Change hard disk system tracks direдTюrNNNNNNNNNNNNNNNNЎЎЎю Ї>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benignly (at current level) ; caused the drive tАјяњNNNNNNNNNNNNNNNNЎЎЎю ЏBNNNNNNNNNNNNNNNNNNNNNNЎЎЎыsing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like track ; offset. Disk partitioning will add ј°я„NNNNNNNNNNNNNNNNЎЎЎю `‰NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы00.DEF ; ;============================================================================ ; LIST OFF *INCLUDE JDDCONT3.DEF оюHNNNNNNNNNNNNNNNNNЎЎЎю К/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDwяdNNNNNNNNNNNNNNNNЎЎЎю % qNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыISK BOOT DATA ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;STAtФюNNNNNNNNNNNNNNNNNNЎЎЎю +~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ‘ юNNNNNNNNNNNNNNNNNNЎЎЎю їNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; ; REVISION HISTORY: ; ; 3.00 - 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy -џяИNNNNNNNNNNNNNNNNNЎЎЎю PЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыctory reference to new format. ; Correct bug in drivers which caused retry to fail. (sector remained ; corrupted) ; Stubbed“ЖязNNNNNNNNNNNNNNNNЎЎЎю ъmNNNNNNNNNNNNNNNNNNNNNNЎЎЎыable to have bad data (default table was missing ; the 2 deblocking extension bytes). ; Implement data xfer inhibit schemes wdаяdNNNNNNNNNNNNNNNNЎЎЎю ХNNNNNNNNNNNNNNNNNNNNNNЎЎЎыthis value to sector word. It ; will be stored in the ID sector data to be dynamic. ; ; 3.10 5-20-91 GRH ; Change LOGON tћБятNNNNNNNNNNNNNNNNЎЎЎю 5ЪNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы *INCLUDE COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE ISHA.DEF *INCLUDE B:M5ZF200.DEF LэядNNNNNNNNNNNNNNNNNЎЎЎю Я„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR DK_BDRV EQU 0041H ;BOOT DRIµрюNNNNNNNNNNNNNNNNNNЎЎЎю &u"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRT LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DAG я9NNNNNNNNNNNNNNNNЎЎЎю ,љйNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB J|яdNNNNNNNNNNNNNNNNЎЎЎю Њ1NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыfirmware support. ; Implemented disk drive driver tables and new function to return ; a ptr to a drive table. ; Removed initҐ!юNNNNNNNNNNNNNNNNNNЎЎЎю cъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routines. ; 3.04 6 AUG 88 GRH ; Remove floppy sЙяИNNNNNNNNNNNNNNNNNЎЎЎю Й\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыith PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove clock buffer set/read system calls. ; 12-5-9Я‰ящNNNNNNNNNNNNNNNNЎЎЎю %дNNNNNNNNNNNNNNNNNNNNNNЎЎЎыo attempt to recover from old disks better, using ; DCM8301 version controller firmware. ; ; 3.11 9-2-91 GRH ; Add redlinЗвяОNNNNNNNNNNNNNNNNNЎЎЎю лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDRESSEWНюNNNNNNNNNNNNNNNNNNЎЎЎю !мµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE # FROM PROM DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQ‰+юNNNNNNNNNNNNNNNNNNЎЎЎю 'FNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTA ; STHD EQU 2 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL ВюHNNNNNNNNNNNNNNNNЎЎЎю -©ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC џя„NNNNNNNNNNNNNNNNЎЎЎю ¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; Moved system down to 60k. ; 3.01 26 JUN [WяњNNNNNNNNNNNNNNNNЎЎЎю 6©NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыide select from BIOS & move to controller. ; Implement new ID sector format. ; Implement CP/M 3.0 DPB structure in preparationу_ятNNNNNNNNNNNNNNNNNЎЎЎю ЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug which corrupted PB_FLG. ; 3.08 2-22-91 GRH Rрю9NNNNNNNNNNNNNNNNЎЎЎю p·NNNNNNNNNNNNNNNNNNNNN!аЎЎЎыes & change for M5ZMON v.2.00. ; VERSN EQU 311 ; ;**************************************************************************шxяђNNNNNNNNNNNNNNNNNЎЎЎю џ|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS ; ;============================================================================ ; NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES PYятNNNNNNNNNNNNNNNNЎЎЎю "№жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;==========================================================п’яЙNNNNNNNNNNNNNNNNNЎЎЎю (V-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;==============================================ШkябNNNNNNNNNNNNNNNNЎЎЎю .ь‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы- #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM дю$NNNNNNNNNNNNNNNNNЎЎЎю &—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single function to return drive table ptr into a BIOS f»аяHNNNNNNNNNNNNNNNNNЎЎЎю NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAT to new configuration. ; 3.06 1-28-89 GRH9шядNNNNNNNNNNNNNNNNNЎЎЎю й NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-head shift factor to DPBs for future use. ; 3.’ФящNNNNNNNNNNNNNNNNЎЎЎю C†NNNNNNNNNNNNNNNNNNNNNNяЂЎЎЎы** SUBTTL SYSTEM DECLARATIONS ;============================================================================ ; ; INCLUDE^cяdNNNNNNNNNNNNNNNNЎЎЎю ¬MNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыKBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CC5EяВNNNNNNNNNNNNNNNNЎЎЎю #ЉЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================== ; ; OTHER DECLARATIONS ; ;============================================================================ ;рЌяЙNNNNNNNNNNNNNNNNNЎЎЎю )eNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================== ; ; ASCII CHARS ; ;==========================================================================l яNNNNNNNNNNNNNNNNNЎЎЎю /ПєNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEX–$юNNNNNNNNNNNNNNNNЎЎЎю sДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыunction ; call using restart instruction. ; Change LOGON to specify the ID sector & track. At same time, fix bug ; which `lяВNNNNNNNNNNNNNNNNЎЎЎю њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Revised primitive calling procedures to use the monitor rom function ; rather than swapping Roms itself. ; 3.07 11-25-90 bсяВNNNNNNNNNNNNNNNNЎЎЎю јsNNNNNNNNNNNNNNNNNNNNNNЎЎЎы09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation from ; DCM8 to CBIOS. ; Remove IOPB ptr paskЗятNNNNNNNNNNNNNNNNNЎЎЎю SёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JDDCONT3.DEF ; INCLUDE COMIOPB3.DEF ; INCLUDE DISKS3.DEF ; INCLUDE BDIR.DEF ; INCLUDE ISHA.DEF ; INCLUDE B:M5ZF2юBNNNNNNNNNNNNNNNNЎЎЎю щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOЦЦязNNNNNNNNNNNNNNNNNЎЎЎю $@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы MR_RNUM EQU 0 ;INTERIM DEFINITION FOR INTERRUPT ROM SWAP ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD D]fябNNNNNNNNNNNNNNNNЎЎЎю *0ONNNNNNNNNNNNNNNNNNNNNNЎЎЎы== ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@9ђя“NNNNNNNNNNNNNNNNNЎЎЎю 0ЬчNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VС^яЙNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃњ‚jѓ7„…Т… †m‡<€ ‰Ч‰¤Љr‹?ЊЌЩЌЁЋvЏDђ‘а‘Ї’}“K”•ж•ґ–‚—O™к™ёљ†›Tњ!ќпќЅћЊџZ 'ЎфЎБўЏЈ\¤*ҐчҐЕ¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю!«ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000УЭяЙNNNNNNNNNNNNNNNNNЎЎЎю!qNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP Т:яrNNNNNNNNNNNNNNNNЎЎЎю! оєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINIT ; INIT1: JR INIT ;############################################################################ ; ; DIRECTORY SECTOюМюBNNNNNNNNNNNNNNNNЎЎЎю!ОЖNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы A,(DK_BDRV) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL Ev¦яNNNNNNNNNNNNNNNNЎЎЎю!! NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------- ; ; WARM REBOOT ENTRY LOADSБ^ядNNNNNNNNNNNNNNNNNЎЎЎю!‹«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; ПятNNNNNNNNNNNNNNNNЎЎЎю!%aхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP C,WREAD ; ; ELSE DONE READING SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS T‚vюNNNNNNNNNNNNNNNNNNЎЎЎю!+BъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECд8юBNNNNNNNNNNNNNNNNЎЎЎю!ю„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG ЦіюNNNNNNNNNNNNNNNNNNЎЎЎю!ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL ;###########################################################…hюNNNNNNNNNNNNNNNNNЎЎЎю!»йNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHEC~tяNNNNNNNNNNNNNNNNЎЎЎю!WQNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM жвяІNNNNNNNNNNNNNNNNЎЎЎю!t^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;---------------------------------------------------------- ; WARM: ; ; SETWЉяrNNNNNNNNNNNNNNNNNЎЎЎю! ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CAL©яNNNNNNNNNNNNNNNNЎЎЎю!&4¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK/SECTOR FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; ©WяВNNNNNNNNNNNNNNNNЎЎЎю!,ЫmNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;Tќ—ядNNNNNNNNNNNNNNNNЎЎЎю!НµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBIOS ;---------------------------------------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;--------QяgNNNNNNNNNNNNNNNNNЎЎЎю! "~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################# ; ; THE FOLLOWING BOOT DATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IхЅяТNNNNNNNNNNNNNNNNNЎЎЎю!€ШNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK FOR DISK CHANGE. ; ;############################################################################ ; DIRBF: EQU $ ;BUFFER B»ящNNNNNNNNNNNNNNNNЎЎЎю!d`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; SIGN-ON MESSAGE ; ;###################›КяВNNNNNNNNNNNNNNNNЎЎЎю!GoNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TEMPORARY STACK ; DI LD SP,DEFBFR LD (THIS_STK),SP EI ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_BDRV) AND A,>ґюBNNNNNNNNNNNNNNNNЎЎЎю!!1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BTSEC I7lяОNNNNNNNNNNNNNNNNNЎЎЎю!'—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы WARM BOOT ERROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT P~<я“NNNNNNNNNNNNNNNNЎЎЎю!-и\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JRэя9NNNNNNNNNNNNNNNNЎЎЎю!T"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------------------------------------------------------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOZзяВNNNNNNNNNNNNNNNNЎЎЎю! w-NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH Oц\ядNNNNNNNNNNNNNNNNNЎЎЎю!›•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEGINNING ;---------------------------------------------------------------------------- ; ; INIT - COLD START ENTRY FR<яrNNNNNNNNNNNNNNNNЎЎЎю!13NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################################### ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (K€ЩяЙNNNNNNNNNNNNNNNNNЎЎЎю!ЮшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ;mіяBNNNNNNNNNNNNNNNNЎЎЎю!"шbNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNC (HL) ; LD DE,(IOPB + PB_BCNTO) ;SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT7єяdNNNNNNNNNNNNNNNNNЎЎЎю!(©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ;яNNNNNNNNNNNNNNNNЎЎЎю!.ЅNNNNNNNNNNNNNNNNNNNNN!цЎЎЎы Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ;„FязNNNNNNNNNNNNNNNNNЎЎЎю!gNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP REAHEяHNNNNNNNNNNNNNNNNNЎЎЎю!DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF THE BIOS. ; ;############################################################################ ; DB 0 ;Z80 CPU DB 0 ;SPAREвщяdNNNNNNNNNNNNNNNNNЎЎЎю!Ё¤NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOM BOOT MUST SET ALL BIOS PARAMS ; ;---------------------------------------------------------------------------- ; INIT: ; ¶BящNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIИ0яNNNNNNNNNNNNNNNNЎЎЎю!нЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; T{юrNNNNNNNNNNNNNNNNЎЎЎю!#ЛSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SEб“яЙNNNNNNNNNNNNNNNNNЎЎЎю!)$NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGj.я$NNNNNNNNNNNNNNNNNЎЎЎю!/Ћ>NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++Т«ятNNNNNNNNNNNNNNNNЎЎЎю!2@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SEцOя!NNNNNNNNNNNNNNNNЎЎЎю!Э‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH .ёябNNNNNNNNNNNNNNNNЎЎЎю!эчNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVE ; LDлюrNNNNNNNNNNNNNNNNNЎЎЎю! 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,“,ядNNNNNNNNNNNNNNNNNЎЎЎю! ©0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;**************************************************************************** ; А яђNNNNNNNNNNNNNNNNNЎЎЎю!&–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SѓvяВNNNNNNNNNNNNNNNNЎЎЎю!,м]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++№ЧяNNNNNNNNNNNNNNNNЎЎЎю!ъ…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PASS READ COMMAND ; LD A,PB_READC ;SELECT READ OP JP DISKOP ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++2ЅяИNNNNNNNNNNNNNNNNNЎЎЎю! NNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SELDSK: ; ; ASSUME ERROR ; LD HL,0 ; ; —вя“NNNNNNNNNNNNNNNNNЎЎЎю!їиNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) OR A,C CPL AND A,1 RET Z ; ; ELSE (Ця9NNNNNNNNNNNNNNNNЎЎЎю!SPNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFER ID SECTOR DATA TO TABLES ; IDOK: CALL TRNONE ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLЙ~я!NNNNNNNNNNNNNNNNЎЎЎю!p_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSuяBNNNNNNNNNNNNNNNNЎЎЎю!!љNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSETTRK: LD (BTTRK),BC RET ;**************************************************************************** ; ; SET SECTO™яNNNNNNNNNNNNNNNNNNЎЎЎю!'0§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;+++++++++++++++++++++++++++++++++++++NЗюHNNNNNNNNNNNNNNNNЎЎЎю!-ЯlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PB_DMAO),HL C1ящNNNNNNNNNNNNNNNNЎЎЎю!cNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++нЮяNNNNNNNNNNNNNNNNЎЎЎю! @NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF UNSUPPORTED DRIVE REQUESTED THEN RETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; 3їятNNNNNNNNNNNNNNNNNЎЎЎю!¬ҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOG ON DRIVE ; LD (DTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMБ_яВNNNNNNNNNNNNNNNNЎЎЎю!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыATION ; LD A,(DEFBFR + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ВпяИNNNNNNNNNNNNNNNNNЎЎЎю!йИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LD BC,DPBSZ LDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CAЈяrNNNNNNNNNNNNNNNNЎЎЎю!"ПRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; ENTRY- BC= SECTOR # ; ;**************************************************************************** ; SETSEC: LD (BTS*яINNNNNNNNNNNNNNNNNЎЎЎю!( ™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = jґябNNNNNNNNNNNNNNNNЎЎЎю!.Љ?NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALL GETBNK LD (IOPB + PB_DMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,ID_SECT LD (IOPB + PB_SECO),HL ; ; SETнязNNNNNNNNNNNNNNNNNЎЎЎю!P#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++ ; DISKWR: ; ; DISABLE UPLOAD (READ DATA) ; LD A,1 SHL PB_INHX LD (BTFLG),A ; ; ENюПюHNNNNNNNNNNNNNNNNNЎЎЎю!s,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (BTDRV),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVR»эяINNNNNNNNNNNNNNNNNЎЎЎю!џ”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыWARE REVISED LD (IOPB + PB_ST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULT DPB ; (NOTE: CON„jюdNNNNNNNNNNNNNNNNЎЎЎю!52NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы; XFER DISK DATA TO DPB ; NOX: CALL DPBAD ;GET ADDR OF DPB LD HL,DEFBFR + ID_SPTO LD BC,DPBSZ LDIR ; ; XFER DISKСяINNNNNNNNNNNNNNNNЎЎЎю!ЪщNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL TR8 LD HL,SD8PBK JR SEL2 ;**************************************************************************** ; ; HOME s‘яNNNNNNNNNNNNNNNNЎЎЎю!#ьcNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEC),BC RET ;**************************************************************************** ; ; SET TRANSFER ADDR ; ENTRY4’яЙNNNNNNNNNNNNNNNNNЎЎЎю!)ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) •Ґя NNNNNNNNNNNNNNNNNЎЎЎю!/№NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DESCRIPTOR SECTOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + PB_TRKO),HL ; ; ENABLE UPLOAD ; LDя›ятNNNNNNNNNNNNNNNNЎЎЎю!pNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыABLE DOWNLOAD (WRITE DATA) ; LD HL,SECSZ LD (IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ;SELECT WRIT,щяВNNNNNNNNNNNNNNNNЎЎЎю!к»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT ;DRIVE IS STILL IN C REGISTER LD (DVRTPTR),HL ; ; PREFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE AdDяОNNNNNNNNNNNNNNNNNЎЎЎю!КЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR IN ALL CASES) ; LD A,(IOPB + PB_ST2O) CP A,-1 ;-1:NONE, 0:JADE, 1:DESCRIPTOR,eFятNNNNNNNNNNNNNNNNNЎЎЎю!%NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + ID_FLGO ; SEL1: PUSH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL &ЄяВNNNNNNNNNNNNNNNNЎЎЎю!ЏЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;**************************************************************************** ;:@яОNNNNNNNNNNNNNNNNNЎЎЎю!$eфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- BC= ADDRESS ; EXIT - A= ? ; ;**************************************************************************** ; SETDMA: LD (BhbюBNNNNNNNNNNNNNNNNЎЎЎю!*FыNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD ‚xязNNNNNNNNNNNNNNNNNЎЎЎю!0ЄCNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы A,L ;L= 0 LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD (IOPB + PB_BCNTO),HL ; ; PASS COMMAND TO EXECUTOR ; ‚¦яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃњ‚iѓ7„…У…Ў†n‡=€ ‰Ш‰ҐЉs‹@Њ ЌЪЌ©ЋwЏDђ‘Ю‘¬’y“F”•б•®–|—I™д™іљЃ›Oњќйќ¶ћ…џS !ЎоЎ»ў‰ЈV¤$ҐтҐА¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю"0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,PB_LOGC JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON DISK IыИяЙNNNNNNNNNNNNNNNNNЎЎЎю"љNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF NO_ERROR THEN RETURN ; ; PRINT ERROR ; CALL GETBNK ;SETUP BANK FOR FUTURE COMPATABILITY LD E,A LD HL,IOPB LD A,mзятNNNNNNNNNNNNNNNNЎЎЎю" ufNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;*************************************************************ZяюBNNNNNNNNNNNNNNNNЎЎЎю"UNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы; RETURN DRIVE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++–RяdNNNNNNNNNNNNNNNNЎЎЎю"єСNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD HL,(IOPB + PBљяHNNNNNNNNNNNNNNNNNЎЎЎю"wNNNNNNNNNNNNNNNNNNNNNNЎЎЎыITY LD A,MF_XIOB ;SET MONITOR FUNCTION # CALL XMROM ;EXECUTE THE FUNCTION ; OR A,A ;FUNCTION ERR? RET NZ ; ; RETUЕ”яЙNNNNNNNNNNNNNNNNЎЎЎю"%ъ)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO) PUSH HL ;SAVE FOR ERROR RESTORE ; LD A,(IOPB + PB_SECO +1) ;FETCH SIDE SELECT BYTE ADD A,A ;SHIFT OUT BIT 7 ; S‚<яNNNNNNNNNNNNNNNNЎЎЎю"+Щ&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,ююBNNNNNNNNNNNNNNNNЎЎЎю"eXNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы/O CODE ; ENTRY- A= IOPB COMMAND ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++~¬яИNNNNNNNNNNNNNNNNNЎЎЎю"Љ“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыMF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB CALL EDITOR ; ; GET USmXяHNNNNNNNNNNNNNNNNЎЎЎю" 5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXIT - DE, HL= ? ; ;*****±ЋятNNNNNNNNNNNNNNNNЎЎЎю"МЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADD HL,DE LD E,(эИя9NNNNNNNNNNNNNNNNЎЎЎю"п‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SECO) ; PUSH HL ;SAVE SECTOR TO RESTORE LATER ; ADD HL,DE LD (IOPB + PB_SECO),HL ; ; EXECUTE IOPB ; CALL XPRIMS юrNNNNNNNNNNNNNNNNNЎЎЎю" ЬNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET SUBTTL JADE FLOPPY DRIVER ROUTINES ;++++++++++++ЮnябNNNNNNNNNNNNNNNNЎЎЎю"&ЇzNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRL H ;SHIFT TRACK HIGH BYTE RR L ;ROTATE BIT 8 TO 7 AND 0 TO CF RRA ;ROTATE TRACK BIT 0 INTO SECTOR BIT 15 LD (IOPBЉ“ящNNNNNNNNNNNNNNNNЎЎЎю",@±NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыMAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD‹ґяdNNNNNNNNNNNNNNNNЎЎЎю"ViNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ ; DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; $ЦюNNNNNNNNNNNNNNNNNNЎЎЎю" №ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC POP AF ; AND A,5FH ;—7яИNNNNNNNNNNNNNNNNNЎЎЎю"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************************** ; TR8: TR3740: LD DE,SDTRAN ; SETTR: LD HL,(DTPTR) RятNNNNNNNNNNNNNNNNЎЎЎю"яјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL) ;FETCH DPB PTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++ўVюBNNNNNNNNNNNNNNNNЎЎЎю"ЬіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; RESTORE SECTOR ; POP HL LD (IOPB + PB_SECO),HL ; ; DONE ; RET ;+++++++++++++++++++++++++++++++++++++ё6яњNNNNNNNNNNNNNNNNЎЎЎю"!6нNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER IюHNNNNNNNNNNNNNNNNNЎЎЎю"'њKNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы + PB_SECO +1),A ; LD (IOPB + PB_TRKO),HL ;STORE SHIFTED TRACK ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MляЙNNNNNNNNNNNNNNNNЎЎЎю"-sЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A m1я!NNNNNNNNNNNNNNNNЎЎЎю"ПюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDISKOP2: LD (IOPB + PB_CMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRT€UябNNNNNNNNNNNNNNNNЎЎЎю" мсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER JR Z,DKOPLP ; ; ELґФя NNNNNNNNNNNNNNNNNЎЎЎю"INNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LD (HL),E INC HL LD (HL),D RET ;**************************************************************************** ; ; ЪеятNNNNNNNNNNNNNNNNЎЎЎю"ЄпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;ь/яNNNNNNNNNNNNNNNNNЎЎЎю"E$NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;++++++++++++++++++++xqюrNNNNNNNNNNNNNNNNЎЎЎю""cѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; FDn)я$NNNNNNNNNNNNNNNNNЎЎЎю"(ЊuNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODIFIED IOPB SO RETRY WILL WORK ; POP HL ;TRACK LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO +1 ;CLEAR BIT 15 RES 7–яBNNNNNNNNNNNNNNNNЎЎЎю".&УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;############ Gя'NNNNNNNNNNNNNNNNNЎЎЎю"ьПNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPTR) ;FETCH TABLE BASE ; LD HL,DKOPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRESS PREF”яNNNNNNNNNNNNNNNNNNЎЎЎю"ЯАNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SU„ яdNNNNNNNNNNNNNNNNNЎЎЎю"3xNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;*******************************************************************TіявNNNNNNNNNNNNNNNNЎЎЎю"™ЮNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSIC8„яrNNNNNNNNNNNNNNNNЎЎЎю"vNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM: ; ; SET BANK ADDRESS TO THIS BANK FOR NOW ; CALL GETBјщяBNNNNNNNNNNNNNNNNЎЎЎю"#PЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) LD (IOPB + PB_DRVO),A ; ; IF HEADS == 1 THgЙянNNNNNNNNNNNNNNNNNЎЎЎю")їDNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,(HL) ; ; DONE ; RET SUBTTL BIOS FUNCTION CALLS ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++µяINNNNNNNNNNNNNNNNNЎЎЎю"/вNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################ ; ; BIOS FUNCTION TABLE ; ;################################ФfятNNNNNNNNNNNNNNNNЎЎЎю"©њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETCHED FROM TABLE JP (HL) ; ; DRIVER RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;r`яВNNNNNNNNNNNNNNNNЎЎЎю"FWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSKER: LD HL,0 ;RETURN DPB_PTR = 0 FOR хяyNNNNNNNNNNNNNNNNЎЎЎю"f+NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********* ; TRNONE: LD DE,0 JR SETTR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ґЏяЙNNNNNNNNNNNNNNNNNЎЎЎю"‰аNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PB_DRVO),A ; ; OFFSET LOGICAL ADDRESS WITH LOGICAL DRр[ятNNNNNNNNNNNNNNNNЎЎЎю"#FNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNK LD E,A ;PRESET IOPB BANK LD (IOPB + PB_DMAXO),A ; ; EXECUTE THE PRIMITIVE IN ROM ; LD HL,IOPB ;BANKED COMPATABILЕEюNNNNNNNNNNNNNNNNNЎЎЎю"$ЙNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEN EXECUTE IOPB ; LD A,(IY + DVRHDS) DEC A JP Z,XPRIM ; ; ELSE SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKDJяоNNNNNNNNNNNNNNNNNЎЎЎю"*кNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++ ; ; FUNCTION DISPATCHER ; ENTRY- C= FUNCTION # ; EXIT - A= -1: ERROR, 0: OK ; ;+++++++++++++++++++++++++++++++\ я$NNNNNNNNNNNNNNNNNЎЎЎю"0ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################ ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICA’Ўя“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNюЂМЃ™‚gѓ5„…Р…џ†m‡;€ ‰Ч‰¤Љs‹AЊЌЫЌЄЋxЏFђ‘г‘±’“M”•и•µ–„—Q™о™Ѕљ‹›Yњ&ќфќБћђџ^ ,ЎщЎЖў”Јa¤/ҐьҐЛ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю";NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB MAXFUNCS EQU ($ - BFUNTBL) / 2 ;+++++++++++++++++++++++++++++++(AяИNNNNNNNNNNNNNNNNNЎЎЎю"ќNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыSTART AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETUOџятNNNNNNNNNNNNNNNNЎЎЎю" BVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION # (DISK FUNCTION) CALL XMROM ;EXECUTE MONITOR FUNCTION POP HL ; OR A,A ;FUNCTION ERROR? RET NZ ; ; FETCH & 5яВNNNNNNNNNNNNNNNNЎЎЎю"b*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; PRHEX: LD C,A LD A,MF_PHXB JP XMROM ;************************************7яrNNNNNNNNNNNNNNNNЎЎЎю"ЌбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы<= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IщҐяИNNNNNNNNNNNNNNNNNЎЎЎю"'GNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ЗҐюNNNNNNNNNNNNNNNNЎЎЎю"%НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MINUTES ; C= HOURS ; ;++++++++(YюNNNNNNNNNNNNNNNNNNЎЎЎю"+оNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHйЫюBNNNNNNNNNNNNNNNNЎЎЎю"RhNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; яИNNNNNNNNNNNNNNNNNЎЎЎю"ЅЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DVRSIZ ; ЦяђNNNNNNNNNNNNNNNNЎЎЎю"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRETURN RESULT STATUS ; LD A,PB_STATO ;FETCH STATUS ADD A,L LD L,A LD A,0 ADC A,H LD H,A LD A,(HL) ; OR A,A ;T3юNNNNNNNNNNNNNNNNЎЎЎю"ыЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************** ; ; NEWLINE PROCEDURE ; ;***********************************************************,РятNNNNNNNNNNNNNNNNЎЎЎю"ШІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED,»*ятNNNNNNNNNNNNNNNNNЎЎЎю" 2мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLO#eяNNNNNNNNNNNNNNNNNNЎЎЎю"&JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKTIM: LD A,MF_GTIM JP XMROM ENDIF ;+++++o ятNNNNNNNNNNNNNNNNЎЎЎю",wЃNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAR READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CNSCK: LD A,MF_CIS JP XMROM xя¤NNNNNNNNNNNNNNNNЎЎЎю"aYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN NO E~язNNNNNNNNNNNNNNNNNЎЎЎю" Ћ’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы RETDVL: ADD HL,DE DJNZ RETDVL ; PUSH HL CALL GETBNK LD E,A POP HL ; ; RETURN NO ERROR ; XOR A,A RET ;+люHNNNNNNNNNNNNNNNNNЎЎЎю"$4NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEST RESULT FOR RETURN RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUЎyятNNNNNNNNNNNNNNNNЎЎЎю"ИЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************** ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOSз\юNNNNNNNNNNNNNNNNNNЎЎЎю"лѓNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION Tв,юNNNNNNNNNNNNNNNNNNЎЎЎю"!ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETCVER: ЭлюNNNNNNNNNNNNNNNNNNЎЎЎю"'«{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOR ROM EXECUTER ; ENTRY- A= FUNCTION # ; ;†янNNNNNNNNNNNNNNNNЎЎЎю"-D°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTP'rю9NNNNNNNNNNNNNNNNЎЎЎю"шОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUN ђяВNNNNNNNNNNNNNNNNЎЎЎю" ЫБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- HL= IOPB PTR $я NNNNNNNNNNNNNNNNNЎЎЎю"7yNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMBER FUNCTION ; EXIT - A= BANK # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: Ћ#ящNNNNNNNNNNNNNNNNЎЎЎю"ќЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PROGRAMS ;*************************************************************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHEC#oязNNNNNNNNNNNNNNNNNЎЎЎю"rNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; ;ЩяьNNNNNNNNNNNNNNNNЎЎЎю""TЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; REd‰яЙNNNNNNNNNNNNNNNNNЎЎЎю"(»ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMROM: EQU MR_FUN SUBTTL CHAR I/O ROUTINESЌяоNNNNNNNNNNNNNNNNNЎЎЎю".гNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUT ; ;**************************************************************************** ; COC: LD A,MF_CO JP XMROM ;++++S'юHNNNNNNNNNNNNNNNNNЎЎЎю"ЛяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION ; ENTRY- E= DRIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; A, C= 0 ; B= ? ; ;+++++++++++++++++++++++++++++++++++++мюHNNNNNNNNNNNNNNNNNЎЎЎю"ирNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EXIT - A= 0: OK ; HL= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; EXIOPB: ; ; QятNNNNNNNNNNNNNNNNNЎЎЎю"HNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES ;*****************************************************************У{явNNNNNNNNNNNNNNNNЎЎЎю"®оNNNNNNNNNNNNNNNNNNNNNNЎЎЎыKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;*iяЙNNNNNNNNNNNNNNNNЎЎЎю"A%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BC ;SAVE FUNCTION # ; ; OUTPUT WARNњQюBNNNNNNNNNNNNNNNNЎЎЎю"#gїNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;+++++++++++++++++++++++++++++++++++‘=яЙNNNNNNNNNNNNNNNNNЎЎЎю")€tNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++(—юINNNNNNNNNNNNNNNNNЎЎЎю"/"ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++?вятNNNNNNNNNNNNNNNNЎЎЎю"ћ¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; ; BIOS CALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RETDVRT: LD HL,DVR0 ;щїящNNNNNNNNNNNNNNNNЎЎЎю"qgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET UP FOR CALL ; PUSH HL ;SAVE PTR ; CALL GETBNK ;E= IOPB PTR IS IN THIS BANK LD E,A ; LD A,MF_XIOB ;MONITOR FUNҐбяВNNNNNNNNNNNNNNNNЎЎЎю"QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;*************************************_mяNNNNNNNNNNNNNNNNNЎЎЎю"ѕРNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************************** INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF щМяBNNNNNNNNNNNNNNNNЎЎЎю"vNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUT FUNCTION # ; POP HL LD A,L CALL PRHEX ; ; #аяNNNNNNNNNNNNNNNNNЎЎЎю"$ю(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,MF_GCAL JP XMROM ;++++++++++++++++++++++++++++++++++++++++++McябNNNNNNNNNNNNNNNNЎЎЎю"*Э'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI JP XMROM ;+++++++++++++++++ОјяИNNNNNNNNNNNNNNNNNЎЎЎю"01џNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PИ яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNNNNNЃПЃњ‚iѓ7„…У… †m‡<€ ‰Ш‰¦Љt‹BЊЌЭЌ¬Ћ{ЏHђ‘г‘±’~“L”•з•ґ–ѓ—P™н™»љ‰›Wњ$ќтќїћЌџ[ (ЎхЎВўђЈ]¤+ҐшҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю#FїNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыUNCH RETURN ; ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRY- Cш яNNNNNNNNNNNNNNNNNЎЎЎю#мNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMqкяrNNNNNNNNNNNNNNNNЎЎЎю# ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;#####################################################1ДяyNNNNNNNNNNNNNNNNЎЎЎю##®NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRS DVRHDS DS 1 ;HEADS ; ; DEFINE THE STRUCTURE SIZE ; DVRSIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@!Бя¤NNNNNNNNNNNNNNNNЎЎЎю#МeNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTORS, SIZE DB #SD,#ZD ;DATA TRKS SECTORS, SIZE DB #DT ;DISK TYPE DW #CY ;CYLS DB #HD ;HEADS ; LIST OFF ENDM яИNNNNNNNNNNNNNNNNNЎЎЎю#fГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1,32,1,10H,256,4 DVR5: ;F ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ENDIF LIST ON ;############################кHядNNNNNNNNNNNNNNNNЎЎЎю#%ЊќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ’вяњNNNNNNNNNNNNNNNNЎЎЎю#+Ї’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы15 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCAT†5ящNNNNNNNNNNNNNNNNЎЎЎю#мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= CHAR TO OUTPUT ; ;**************************************************************************** ; PUNCH: RET ;********›яИNNNNNNNNNNNNNNNNNЎЎЎю#ь'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыINATOR) ; EXIT - REGS= ? ; ;**************************************************************************** ; EDITOR: CALL GзъюHNNNNNNNNNNNNNNNNЎЎЎю#VЃNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы####################### ; ; DISK DRIVER TABLES ; ;##########################################################################UйятNNNNNNNNNNNNNNNNЎЎЎю#є9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICНЄя„NNNNNNNNNNNNNNNNЎЎЎю#™6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF BOOT = 10H DVR0: ;A ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR1: ;B ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,шятNNNNNNNNNNNNNNNNNЎЎЎю# shNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################ ; ; MESSAGES ; ;#########################################################‹‘юNNNNNNNNNNNNNNNNNЎЎЎю#&ЩОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; D·ЮящNNNNNNNNNNNNNNNNЎЎЎю#,6NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYЃ,ядNNNNNNNNNNNNNNNNЎЎЎю# ЭNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*****fKяђNNNNNNNNNNNNNNNNNЎЎЎю# ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZED DATA ;#######################################################чРяИNNNNNNNNNNNNNNNNNЎЎЎю#e°NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы## ; STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICALQHящNNNNNNNNNNNNNNNNЎЎЎю#‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; #Z0= TRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= ґюBNNNNNNNNNNNNNNNNЎЎЎю#ЄNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы256,4 DVR2: ;C ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR3: ;D ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR4: ;k¬ю!NNNNNNNNNNNNNNNNЎЎЎю#!@YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################### ; MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISoяуNNNNNNNNNNNNNNNNNЎЎЎю#'кяNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS DB 26,0,26,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) DB 0 ;TYPE DW 73яINNNNNNNNNNNNNNNNЎЎЎю#-4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SOF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 32,1к»яњNNNNNNNNNNNNNNNNЎЎЎю#№JNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*********************************************************************** ; LO: LD A,MF_LO JP XMROM ;++++++++++++++++++а(яВNNNNNNNNNNNNNNNNЎЎЎю# љENNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################### ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;################################ЈяdNNNNNNNNNNNNNNNNNЎЎЎю#vэNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVE # ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS8oятNNNNNNNNNNNNNNNNЎЎЎю#Ь[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLD—9язNNNNNNNNNNNNNNNNNЎЎЎю#3ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR5: ;F ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ENDIF IF BOOT = 3 DVRPюrNNNNNNNNNNNNNNNNЎЎЎю#" NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;############################################################################ PІяЙNNNNNNNNNNNNNNNNNЎЎЎю#(ъБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы7 ;CYLS DB 1 ;HEADS ;############################################################################ ; ; DEFAULT 8" HARDГЮяВNNNNNNNNNNNNNNNNЎЎЎю#.PgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,32,1,32,1 ;32 SPT, 256 BPS DB 10H ;TYPE DW 256 ;CYLS DB 4 ;HEADS ;###############################################GBязNNNNNNNNNNNNNNNNNЎЎЎю#Љ{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;—ЛюHNNNNNNNNNNNNNNNNNЎЎЎю#©tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################ ; SDTRAN: GXLATE 26,6 ;#####################################################±“ядNNNNNNNNNNNNNNNNNЎЎЎю#EМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 ;TRK 1 SECTORS PER TRK DVR1SZ DS 1 ;TRK 1 SECTOR SIZE їdящNNNNNNNNNNNNNNNNЎЎЎю#пjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD,#DT,#CY,#HD LIST ON DW #DADD ;DRIVER EXECUTION ADDR DB 0 ;LOGON INHIBIT FъшятNNNNNNNNNNNNNNNNЎЎЎю#ЎNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы0: ;A ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR1: ;B ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 DVR2: ;C ALLDRV HDEXEC,9cяBNNNNNNNNNNNNNNNNЎЎЎю##&;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;############################################лSяЙNNNNNNNNNNNNNNNNNЎЎЎю#)ЙрNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DISK PARAMETER BLOCK ; ;############################################################################ ; HDPBK: DW 128 ;SECTПУюINNNNNNNNNNNNNNNNNЎЎЎю#/cVNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы############################# ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;############################################ПCятNNNNNNNNNNNNNNNNЎЎЎю#Я(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS JP XMROM ;********qПюBNNNNNNNNNNNNNNNNЎЎЎю#0гNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы####################### ; ; COMMON I/O PARAMETER BLOCK ; ;##################################################################lfюBNNNNNNNNNNNNNNNNЎЎЎю#џNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDVRDSPT DS 1 ;DATA TRKS SECTORS PER TRK DVRDSZ DS 1 ;DATA TRKS SECTOR SIZE DVRDTYP DS 1 ;DISK TYPE DVRCYLS DS 2 ;DISK CYLINDETяЙNNNNNNNNNNNNNNNNNЎЎЎю#яTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLAG (LOGON ENABLED) DB #PD ;MONITOR PHYSICAL DRIVE # DB #FG ;DISK FLAGS DB #S0,#Z0 ;T0 SECTORS, SIZE DB #S1,#Z1 ;T1 ъњятNNNNNNNNNNNNNNNNЎЎЎю#UтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы4,60H,32,1,32,1,32,1,10H,256,4 DVR3: ;D ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR4: ;E ALLDRV HDEXEC,5,60H,32,1,32,vЗюNNNNNNNNNNNNNNNNNNЎЎЎю#$ї¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################ ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;*яNNNNNNNNNNNNNNNNЎЎЎю#*њЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 10“БяЙNNNNNNNNNNNNNNNNNЎЎЎю#0pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATm>яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNюЂМЃљ‚gѓ5„…Р…ќ†k‡9€‰Ф‰ЎЉo‹=ЊЌЩЌ§ЋuЏBђ‘Я‘’|“J”•ж•і–Ѓ—N™к™№љ‡›Uњ"ќрќЅћЊџZ )ЎцЎДў’Ј_¤-ҐъҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю#qЏNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACЩяЙNNNNNNNNNNNNNNNNNЎЎЎю#Ы)NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыD EQU $ SUBTTL UNINITIALIZED DATA AREA ;############################################################################ ; ; ±ятNNNNNNNNNNNNNNNNЎЎЎю# 4вNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EXECUTION ADDRESS SECOFF DS 2 ;LOGICAL DRIVE SECTOR OFFSET (ADD TO SECTOR) ;#############################################ПёюBNNNNNNNNNNNNNNNNЎЎЎю#ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DfюrNNNNNNNNNNNNNNNNЎЎЎю#ыUNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK= 3, 16K= 7 DPBDSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER юязNNNNNNNNNNNNNNNNNЎЎЎю#QуNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыENTED THRU BDOS USING DPBOFF ABOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE IN ЅюINNNNNNNNNNNNNNNNЎЎЎю#%»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END вЗяaNNNNNNNNNNNNNNNNЎЎЎю#+ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыERRUPT ; ;---------------------------------------------------------------------------- ; ITRAP: ; ; SAVE REGS FIRST ; И{ящNNNNNNNNNNNNNNNNNЎЎЎю#$ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;S|мяИNNNNNNNNNNNNNNNNNЎЎЎю#ЛNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;#####################################################иMяИNNNNNNNNNNNNNNNNЎЎЎю#a±NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы############################### ; ; DRIVE ALLOCATION AREAS ; ;############################################################ЪИюrNNNNNNNNNNNNNNNNЎЎЎю#Ќ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;##################################‹VюrNNNNNNNNNNNNNNNNЎЎЎю#®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSIZE) -1 DPBDRM DS 2 ;DRM- DIRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCAeятNNNNNNNNNNNNNNNNNЎЎЎю# DXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCLUDED IN SECTOR WORD UPPER BITS) ; DPBSOF DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPBSZ.MяОNNNNNNNNNNNNNNNNNЎЎЎю#&оюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++™я®NNNNNNNNNNNNNNNNNNЎЎЎю#,5NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PUSH AF PUSH HL PUSH BC PUSH DE ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(M2_RSEL) LD (ROMSAV),A LD A,MR_ўsяNNNNNNNNNNNNNNNNЎЎЎю#нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1хюNNNNNNNNNNNNNNNNNNЎЎЎю# ш&NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы####################### ; BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESERVED FOR FLAGS BTD:CюNNNNNNNNNNNNNNNNNNЎЎЎю#RЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIm0я NNNNNNNNNNNNNNNNЎЎЎю#ѕ8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################## ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;#########################################wюBNNNNNNNNNNNNNNNNЎЎЎю#ќ7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTED DPBCKS DS 2 ;CKS- # DIRECTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; A jяОNNNNNNNNNNNNNNNNNЎЎЎю#!wiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIтыяNNNNNNNNNNNNNNNNNЎЎЎю#'ЭПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS JR XMROM ;**************************************************ЧяЙNNNNNNNNNNNNNNNNNЎЎЎю#-2NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRNUM OUT (M2_RSEL),A ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: LD A,MF_PUTS CALL MR_FUN ; LD HL,IQMSG ;QUERY USER !%ятNNNNNNNNNNNNNNNNNЎЎЎю#ЋzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR NъяBNNNNNNNNNNNNNNNNЎЎЎю# uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;##################################################################}ЂяNNNNNNNNNNNNNNNNNЎЎЎю#AНNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDAL: MAC^яВNNNNNNNNNNNNNNNNЎЎЎю#лkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMI9КязNNNNNNNNNNNNNNNNNЎЎЎю# NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPBPSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON xятNNNNNNNNNNNNNNNNЎЎЎю#"":NNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DscяHNNNNNNNNNNNNNNNNNЎЎЎю#(НсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;***********яОNNNNNNNNNNNNNNNNNЎЎЎю#.gWNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,MF_PUTS CALL MR_FUN ; ; GET & ECHO USER INPUT ; LD A,MF_CI CALL MR_FUN ; PUSH AF LD C,A LD A,MF_CO CAB яrNNNNNNNNNNNNNNNNNNЎЎЎю#ЅKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS»µюHNNNNNNNNNNNNNNNNNЎЎЎю#ћDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## ; ; VARIABLES ; ;############################################################################ ; DTPTR: DS 2 ;*·юINNNNNNNNNNNNNNNNNЎЎЎю#rьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD;їяьNNNNNNNNNNNNNNNNЎЎЎю#ШZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63,&Чю NNNNNNNNNNNNNNNNЎЎЎю#7‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPBPHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256,ПlябNNNNNNNNNNNNNNNNЎЎЎю##NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыD)DPB: DS DPBSZ ;ALLOCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST Oi±юINNNNNNNNNNNNNNNNNЎЎЎю#)юАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JR XMROM ь&яЙNNNNNNNNNNNNNNNNNЎЎЎю#/TfNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLL MR_FUN POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTjяrNNNNNNNNNNNNNNNNNЎЎЎю#иNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSN9ЏяNNNNNNNNNNNNNNNNЎЎЎю#УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVERљ;юBNNNNNNNNNNNNNNNNЎЎЎю#'ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DУядNNNNNNNNNNNNNNNNNЎЎЎю#ИdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 16K= 127 DPBEXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8OОятNNNNNNNNNNNNNNNNЎЎЎю#bВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIM/+юNNNNNNNNNNNNNNNNNNЎЎЎю#$€њNNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎыFF ALLDPB 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM IF (($ - 8000H) > 07700H) OR ($ < 8000H) CONMSG **** BIOS нюBNNNNNNNNNNNNNNNNЎЎЎю#*«“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF INTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------------------------------- ; ; USER INTЏEяОNNNNNNNNNNNNNNNNNNЎЎЎю#0G+NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RE{±яВNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNМNNNNNNNNNЃСЃћ‚kѓ8„…У…Ў†n‡<€ ‰Ш‰ҐЉs‹@Њ ЌЪЌ©ЋwЏDђ‘Я‘’z“G”•в•Ї–~—K™з™¶љ„›Rњ ќоќ»ћЉџX &ЎфЎБўЏЈ\¤*ҐшҐЗ¦ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^ядNNNNNNNNNNNNNNNNNЎЎЎю$Ѕ4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;********************************************а/юrNNNNNNNNNNNNNNNNЎЎЎю$ RяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & ГвябNNNNNNNNNNNNNNNNЎЎЎю$rѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARGER BIOS ALLOCATION ON THE DISK. ; ; 2.2.4 - ADDED NAKED TERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. ALњяNNNNNNNNNNNNNNNNЎЎЎю$ќHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 83 GRH ; Move clock-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separatЩCяЙNNNNNNNNNNNNNNNNNЎЎЎю$7оNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы5 GRH ; Implemented hard disk drive 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user fr?ҐяrNNNNNNNNNNNNNNNNЎЎЎю$%Э°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыON to specify the ID sector & track. At same time, fix bug ; which did not specify the logon track. ; ; 3.02 7 JUL 88 GRH^язNNNNNNNNNNNNNNNNNЎЎЎю$+юїNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************** SUBTTL SYSTEM DECLARATIONS ;============================================================гябNNNNNNNNNNNNNNNNЎЎЎю$BБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7яђNNNNNNNNNNNNNNNNNЎЎЎю$ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;************QУяNNNNNNNNNNNNNNNNЎЎЎю$¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOPP±ядNNNNNNNNNNNNNNNNЎЎЎю$лNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.2. °юrNNNNNNNNNNNNNNNNЎЎЎю$ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыe CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard disk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to refleхчятNNNNNNNNNNNNNNNNNЎЎЎю$ "ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыiendly disk error options: Abort, Retry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; ; 3.00 -h=яњNNNNNNNNNNNNNNNNЎЎЎю$&€гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; Add '?' to include file names. ; Change hard disk system tracks directory reference to new format. ; Correct bug in driver чя9NNNNNNNNNNNNNNNNЎЎЎю$,g(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================ ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE DISKS.DEF ; INCLUDE MONBOARD.DEF ; INCLUDE ZMONRO/ПяNNNNNNNNNNNNNNNNЎЎЎю$qрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћюHNNNNNNNNNNNNNNNNNЎЎЎю$ ћ;NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 10H±ядNNNNNNNNNNNNNNNNNЎЎЎю$4ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HЯУящNNNNNNNNNNNNNNNNЎЎЎю$Ш%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRIVEряњNNNNNNNNNNNNNNNNЎЎЎю$ы*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыct half size directory, but keep ; allocation for 1k directory ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to relhmябNNNNNNNNNNNNNNNNЎЎЎю$!tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables andдяNNNNNNNNNNNNNNNNNЎЎЎю$'»ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыs which caused retry to fail. (sector remained ; corrupted) ; Stubbed out new Clock routines for present. ; ; 3.03 31 JUL б7я“NNNNNNNNNNNNNNNNЎЎЎю$-TNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM.DEF ; INCLUDE DKBTROM.DEF ; INCLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOKROM.DEF ; ;=============================ttяyNNNNNNNNNNNNNNNNЎЎЎю$иgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•юBNNNNNNNNNNNNNNNNЎЎЎю$ ЛhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; CЗ9я NNNNNNNNNNNNNNNNNЎЎЎю$'РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; G¤юrNNNNNNNNNNNNNNNNЎЎЎю$ЌvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MODUЎ>яNNNNNNNNNNNNNNNNNЎЎЎю$bЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыate to ISASI control of JADE ; FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value (0c№ятNNNNNNNNNNNNNNNNЎЎЎю$"D'NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы new function to return ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented us•ядNNNNNNNNNNNNNNNNNЎЎЎю$(«мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы88 GRH ; Unstub Clock routines. ; ; 3.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; ImpLцюNNNNNNNNNNNNNNNNNNЎЎЎю$.JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=============================================== LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB.DEF *INCLUDE DISKS.DEF *INCrняЙNNNNNNNNNNNNNNNNNЎЎЎю$ЫVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИюHNNNNNNNNNNNNNNNNNЎЎЎю$шYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVE 0рЅяЙNNNNNNNNNNNNNNNNNЎЎЎю$бNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*****************************************±.ящNNNNNNNNNNNNNNNNЎЎЎю$ѕGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 SEЙ¦ятNNNNNNNNNNNNNNNNЎЎЎю$QЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы..n-1). This maintains more uniformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routines {КяВNNNNNNNNNNNNNNNNЎЎЎю$#wNNNNNNNNNNNNNNNNNNNNNNЎЎЎыse of ROM primitives. ; Moved system down to 60k. ; ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 B7@юHNNNNNNNNNNNNNNNNNЎЎЎю$)ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыlement new ID sector format. ; Implement CP/M 3.0 DPB structure in preparation for deblocking. ; ; 3.05 11-3-88 GRH ; ChanядNNNNNNNNNNNNNNNNNЎЎЎю$/2{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLUDE MONBOARD.DEF *INCLUDE ZMONROM.DEF *INCLUDE DKBTROM.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INCLUDE CLOKROM.DEF LI—«ядNNNNNNNNNNNNNNNNЎЎЎю$ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 3 ;10H: HARD DISK, 3: 8" FLOPPY,ЇяОNNNNNNNNNNNNNNNNNЎЎЎю$aОNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPY PШХяЬNNNNNNNNNNNNNNNNЎЎЎю$AІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************** ; REVISIONS: ; ; 2.2.0 - RELEASE ; ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; LІя NNNNNNNNNNNNNNNNNЎЎЎю$®yNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SEP(¤яВNNNNNNNNNNNNNNNNЎЎЎю$ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыto monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR 8m|яHNNNNNNNNNNNNNNNNNЎЎЎю$$оЃNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIOS. ; Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGQіюNNNNNNNNNNNNNNNNNNЎЎЎю$*НЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыge included data to update IOPB.PBSTAT to new configuration. ; VERSN EQU 305 ; ;********************************************W·я“NNNNNNNNNNNNNNNNNЎЎЎю$0!6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDRESSESґ%ямNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNжNNNNNюЂМЃ™‚gѓ4„…П…ќ†j‡9€‰Ф‰ЎЉo‹<Њ ЌЧЌ¦ЋtЏAђ‘Ь‘Є’w“E”•а•–{—H™г™±љ›MњќиќµћѓџQ ЎнЎ»ў‰ЈV¤$ҐтҐА¦^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю$ ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;============================================================================ NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES KBYT†YюINNNNNNNNNNNNNNNNNЎЎЎю$ЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы=============================================== ; ; OTHER DECLARATIONS ; ;==================================================б#ятNNNNNNNNNNNNNNNNЎЎЎю$ eПNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ASCII CHARS ; ;============================================================================ LF: EQU 0AH CR: EQU 0DH CTRLZ:Ь“яОNNNNNNNNNNNNNNNNNЎЎЎю$EіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@ЭKящNNNNNNNNNNNNNNNNЎЎЎю$ЄxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK 5€ядNNNNNNNNNNNNNNNNNЎЎЎю$ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################## BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR—ятNNNNNNNNNNNNNNNNЎЎЎю$%кЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы----------------- INIT: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS ENABLED ;ю"язNNNNNNNNNNNNNNNNNЎЎЎю$+ЙЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER ***E*юBNNNNNNNNNNNNNNNNЎЎЎю$uсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BrэюNNNNNNNNNNNNNNNNNNЎЎЎю$љ:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================== SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;STARTТЎюNNNNNNNNNNNNNNNNNЎЎЎю$0њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE\МядNNNNNNNNNNNNNNNNЎЎЎю$Ь$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' ятNNNNNNNNNNNNNNNNЎЎЎю$я+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM D;^ядNNNNNNNNNNNNNNNNNЎЎЎю$ uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;################################################################ЩҐяВNNNNNNNNNNNNNNNNЎЎЎю$&їУNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CALL GETMON ; ; INIT DEFAULT DRIVE ; LD A,(DK_PROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; jюrNNNNNNNNNNNNNNNNЎЎЎю$,PNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы* ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;--------------------------------------м7ятNNNNNNNNNNNNNNNNЎЎЎю$FАNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIn юHNNNNNNNNNNNNNNNNNЎЎЎю$ ©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD…юHNNNNNNNNNNNNNNNNNЎЎЎю$NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LIST OF"¤ятNNNNNNNNNNNNNNNNЎЎЎю$пNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DN6яВNNNNNNNNNNNNNNNNЎЎЎю$МNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTEѓязNNNNNNNNNNNNNNNNNЎЎЎю$!&DNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############ ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRE:GяИNNNNNNNNNNNNNNNNNЎЎЎю$'ЊвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) ІjяЙNNNNNNNNNNNNNNNNЎЎЎю$-c)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;------------------------------ЁѕяNNNNNNNNNNNNNNNNЎЎЎю$ЯWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BГ“юrNNNNNNNNNNNNNNNNЎЎЎю$ ьXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRћятNNNNNNNNNNNNNNNNNЎЎЎю$аNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEBОящNNNNNNNNNNNNNNNNЎЎЎю$єFNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;--------------------------------------яОNNNNNNNNNNNNNNNNNЎЎЎю$UЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FUNCTION CALL ;############################################################################ ; ; THESE BOOT PARAMS MUST R&ятNNNNNNNNNNNNNNNNЎЎЎю$"sNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;######################################################################яЙNNNNNNNNNNNNNNNNNЎЎЎю$(њЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;######################################################################ѓщяNNNNNNNNNNNNNNNNЎЎЎю$.6zNNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------- WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; ДВюHNNNNNNNNNNNNNNNNNЎЎЎю$мfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ;3ядNNNNNNNNNNNNNNNNNЎЎЎю$ПiNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAрїяЙNNNNNNNNNNNNNNNNNЎЎЎю$#СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CH•ZюNNNNNNNNNNNNNNNNЎЎЎю$‰wNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы-------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;-----------------------------------------------------ЅмяЙNNNNNNNNNNNNNNNNЎЎЎю$fјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыESIDE AS DEFINED RIGHT BEFORE THE COLD INIT ; ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE REFERENCED ; BY*QюBNNNNNNNNNNNNNNNNЎЎЎю$#@&NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###### DIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------------------------------------------------- ; ;яяЙNNNNNNNNNNNNNNNNNЎЎЎю$)ЇнNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###### ; ; SIGN-ON MESSAGE ; ;############################################################################ MSGSO: DB CR,LF blяlNNNNNNNNNNNNNNNNNЎЎЎю$/KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET INTERRUPT MODE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(M2_IMASK) AND A,7FH OUT (M2_IMASK),A ; ; )цю NNNNNNNNNNNNNNNNЎЎЎю$№5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;=============================з€юBNNNNNNNNNNNNNNNNЎЎЎю$VюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;============================================================================ ; ;I'юNNNNNNNNNNNNNNNNNNЎЎЎю$v‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@ЯЈя¤NNNNNNNNNNNNNNNNNЎЎЎю$™INNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSYтюBNNNNNNNNNNNNNNNNЎЎЎю$3пNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE BOOT CODE IN ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S ; LENGTH. ; ;##########################################ТюHNNNNNNNNNNNNNNNNNЎЎЎю$$Щ±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;-----------------------------------------------------------ЎДяОNNNNNNNNNNNNNNNNNЎЎЎю$*ъѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS {Kя$NNNNNNNNNNNNNNNNNЎЎЎю$0NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы FINALLY ENABLE VECTORED INTERRUPTS ; IN A,(M2_STAT) OR A,M2_IEN OUT (M2_STAT),A EI ENDIF ; ; SET TEMPORARY STACwKя“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃПЃќ‚kѓ9„…Х…¤†q‡?€‰Ъ‰§Љu‹BЊЌЬЌ«ЋyЏFђ‘б‘Ї’|“J”•е•І–Ђ—M™и™¶љ„›Sњ ќоќјћ‹џY 'ЎфЎБўЏЈ\¤+ҐшҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%a&NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK ; LD SP,DEFBFR ; ; INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST ISHA HOST ADAPTER F9?ю NNNNNNNNNNNNNNNNNЎЎЎю%ЛЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSщµя NNNNNNNNNNNNNNNNЎЎЎю% $KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; ELSE DONE READING SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FтяВNNNNNNNNNNNNNNNNЎЎЎю%7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BD.6ятNNNNNNNNNNNNNNNNЎЎЎю%льNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKRD: LD A,PB_READC ;SELECT READ OP JP DISKOP ;++ИюHNNNNNNNNNNNNNNNNNЎЎЎю%AZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPORTED DRIVE REQUESTED THEN RETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (BTDyятNNNNNNNNNNNNNNNNЎЎЎю%%«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE ; LD (DTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVIнАяNNNNNNNNNNNNNNNNNNЎЎЎю%+€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SEL1: PUSH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETURN1ЌяВNNNNNNNNNNNNNNNNЎЎЎю%4uNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOR A HUNG CONDITION AND CLEAR IF TRUE ; IN A,(ISH_STATUS) ;IF HOST ADAPTER BUSY THEN BIT ISH_BSYB,A JR Z,NTHUNG ; LD A`bязNNNNNNNNNNNNNNNNNЎЎЎю%ЫѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CдюязNNNNNNNNNNNNNNNNЎЎЎю%qNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOT –GятNNNNNNNNNNNNNNNNЎЎЎю%ќ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD C,CLK_F7 ;TEST FOR BOAR*Зя„NNNNNNNNNNNNNNNNЎЎЎю%ѕЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: ERR:зяdNNNNNNNNNNNNNNNNNЎЎЎю% TсNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRV),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVEЃZяњNNNNNNNNNNNNNNNNЎЎЎю%&юWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSED LD (IOPB + PB_ST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + PB_ST2O?rя9NNNNNNNNNNNNNNNNЎЎЎю%,њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVE TABLE PTR ; LD HL,(DTPTR) XOR A,A RET ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BTDRV) ВятNNNNNNNNNNNNNNNNЎЎЎю%DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,PB_CLRC LD (IOPB + PB_CMDO),A CALL XPRIM ; NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_PROM + 1) qEяђNNNNNNNNNNNNNNNNNЎЎЎю% иЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BЪјяHNNNNNNNNNNNNNNNNNЎЎЎю%B)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT PAGE 0 ; WЇ„я„NNNNNNNNNNNNNNNNЎЎЎю%®‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD PRESENT CALL CLK1 ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR NZ,CLKON ; оябNNNNNNNNNNNNNNNNЎЎЎю%ЌћNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKWR: LD A,PB_WRITC ;SELECT WRITE OP <4язNNNNNNNNNNNNNNNNNЎЎЎю%!gАNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IS STILL IN C REGISTER LD (DVRTPTR),HL ; ; PREFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE ADDRESS Ш—язNNNNNNNNNNNNNNNNNЎЎЎю%'НfNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы) CP A,-2 ;0: NO ID, -1: JADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; ELSE XFER ID SECTOR DATA TO TABLES ; CALL TRNONE Ё%яИNNNNNNNNNNNNNNNNЎЎЎю%-"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF STHD <> 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALLХ5юBNNNNNNNNNNNNNNNNЎЎЎю%ћУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIREЊяВNNNNNNNNNNNNNNNNЎЎЎю% ЅЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTSEC INC (HL) ; LD DE,SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOS oйяdNNNNNNNNNNNNNNNNNЎЎЎю%QdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOІГятNNNNNNNNNNNNNNNNЎЎЎю%ыВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF ;О2яNNNNNNNNNNNNNNNNNЎЎЎю% NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP DISKOP ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOGµядNNNNNNNNNNNNNNNNЎЎЎю%"2“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыINC HL LD D,(HL) INC HL LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TABLE ADDRESS ;яNNNNNNNNNNNNNNNNNЎЎЎю%(ЭXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + ID_FLGO) AND A,[1 SHL DF§ТябNNNNNNNNNNNNNNNNЎЎЎю%.wюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LпюHNNNNNNNNNNNNNNNNNЎЎЎю%вNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SE0µя“NNNNNNNNNNNNNNNNNЎЎЎю%ЋнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TR4ЙяЙNNNNNNNNNNNNNNNNNЎЎЎю%bUNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LDN"яюNNNNNNNNNNNNNNNNЎЎЎю%ИуNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++++™ЮятNNNNNNNNNNNNNNNNЎЎЎю%'8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;++++++++„яNNNNNNNNNNNNNNNNNNЎЎЎю%#ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(BTDRV) LD H,0 ADD HL,HL ;DISK # * 16 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,D0DPH ADD HL,DE ; ; IF NOTнЕяdNNNNNNNNNNNNNNNNNЎЎЎю%)оiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_DTDB] OR [1 SHL DF_HARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; NOX: CALL DPBAD ;GET)ямNNNNNNNNNNNNNNNNNЎЎЎю%/DПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD BC,DPBSZ LDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ;**************ФАятNNNNNNNNNNNNNNNNЎЎЎю%ш±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD AKТя9NNNNNNNNNNNNNNNNЎЎЎю%zNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ќFюBNNNNNNNNNNNNNNNNЎЎЎю%7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INџядNNNNNNNNNNNNNNNNNЎЎЎю%ШНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++NЎя„NNNNNNNNNNNNNNNNЎЎЎю%rkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SELDSK: ; ; ASSUME ERROR ; LD HL,0 ; ; IF UNSUPЉђю'NNNNNNNNNNNNNNNNNЎЎЎю%$5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) OR A,C CPL AND A,1 RET Z ; ; ELSE LOG ON DRгяВNNNNNNNNNNNNNNNNЎЎЎю%*»:NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ADDR OF DPB LD HL,DEFBFR + ID_SPTO LD BC,DPBSZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + ID_FLGO IюHNNNNNNNNNNNNNNNNNЎЎЎю%0W‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;***Чвя“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNюЂМЃ™‚fѓ4„…Р…ћ†k‡9€‰Ф‰ЎЉo‹<Њ ЌЧЌҐЋsЏAђ‘Э‘«’x“F”•б•®–|—I™д™іљ‚›Pњќмќ№ћ‡џV $ЎсЎѕўЊЈY¤(ҐцҐД¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю%VNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************************* HOME: LD BC,0 ;*********************************§mяINNNNNNNNNNNNNNNNNЎЎЎю%ь°NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы****************** SETDMA: LD (BTDMA),BC XOR A,A LD (BTDMAX),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++д[ятNNNNNNNNNNNNNNNNЎЎЎю% {NNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOъ?яВNNNNNNNNNNNNNNNNЎЎЎю%3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE ; ENTRY- A= IOPB COMMAND ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++; юrNNNNNNNNNNNNNNNNЎЎЎю%ЬМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,(DE) ;FETCH BYTE PUSH DE ;SAVE REGS PUSH BC CALL PRHEX ;OUTPUT ERROR CODE ; LD C,' ' CALL COC ; POP BC ;RESTzБя$NNNNNNNNNNNNNNNNNЎЎЎю%vjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETURN DPB_PTR = 0 FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;*************************************** –юrNNNNNNNNNNNNNNNNЎЎЎю%%њ4NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++ ; ; RETURN DRIVE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ; ;++++++++++++++++++++++++++++++KцюNNNNNNNNNNNNNNNNNNЎЎЎю%+ї;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOGICAL DRIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD HL,a=яВNNNNNNNNNNNNNNNNЎЎЎю%ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;***************************************ЯвяђNNNNNNNNNNNNNNNNNЎЎЎю%мЋNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTORw®я®NNNNNNNNNNNNNNNNЎЎЎю%F(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++{Cя„NNNNNNNNNNNNNNNNЎЎЎю%ЄђNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++ DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; DISKOP2A_юrNNNNNNNNNNNNNNNNЎЎЎю%‰џNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыORE REGS POP DE INC DE ;NEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,DSKEB ;OUTPUT ERROR MESSAGE CALLО9ядNNNNNNNNNNNNNNNNNЎЎЎю% cБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************* ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXIT mKюBNNNNNNNNNNNNNNNNЎЎЎю%&ЙgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADD H¶яrNNNNNNNNNNNNNNNNЎЎЎю%,&¬NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы(IOPB + PB_SECO) ; PUSH HL ;SAVE SECTOR TO RESTORE LATER ; ADD HL,DE LD (IOPB + PB_SECO),HL ; ; EXECUTE IOPB ; knятNNNNNNNNNNNNNNNNЎЎЎю%0tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************* SETTRK: LD (BTTRK),BC RET ;*****************************************************ЖJюHNNNNNNNNNNNNNNNNNЎЎЎю% ЯїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы # TO XLATE ; EXIT - HL= XLATED SECTOR OR (BC) + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++++>cяgNNNNNNNNNNNNNNNNNЎЎЎю%uNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+ DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PB_DMAO),HL XOR A,A ґядNNNNNNNNNNNNNNNNЎЎЎю%™ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: LD (IOPB + PB_CMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ;F82яњNNNNNNNNNNNNNNNNЎЎЎю%є®NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC PO‰ЂюNNNNNNNNNNNNNNNNNNЎЎЎю%!PрNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- DE, HL= ? ; ;**************************************************************************** TR8: TR3740: LD DE,SDTRAN ; SE7‰ящNNNNNNNNNNNNNNNNNЎЎЎю%'ъVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL,DE LD E,(HL) ;FETCH DPB PTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;++++++++++++++++++++++++++++++++++T>яЙNNNNNNNNNNNNNNNNЎЎЎю%-ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL XPRIM ; ; RESTORE SECTOR ; POP HL LD (IOPB + PB_SECO),HL ; ; DONE ; RET ;+++++++++++++++++++++++++++µ¶яrNNNNNNNNNNNNNNNNЎЎЎю%©гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;***********************************************************ПяВNNNNNNNNNNNNNNNNЎЎЎю% ЉмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++ SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THENйЅюrNNNNNNNNNNNNNNNNNЎЎЎю%fTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (IOPB + PB_DMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,ID_SECT LD (IOPB + PB_SECO),HL ; ; SET DESCRIPTOR SГЕюBNNNNNNNNNNNNNNNNЎЎЎю%МтNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETCH TABLE BASE ; LD HL,DKOPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRESS PREFETCHED x<яђNNNNNNNNNNNNNNNNNЎЎЎю%#9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER -кятNNNNNNNNNNNNNNNNЎЎЎю%"ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTTR: LD HL,(DTPTR) LD (HL),E INC HL LD (HL),D RET ;****************************************************************hя“NNNNNNNNNNNNNNNNNЎЎЎю%(кhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0±я!NNNNNNNNNNNNNNNNЎЎЎю%.@ОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;++++++++++AцяИNNNNNNNNNNNNNNNNNЎЎЎю%љТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************** SETSEC: LD (BTSEC),BC RET ;*************************************************************************ФbязNNNNNNNNNNNNNNNNNЎЎЎю%№ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; L Aя$NNNNNNNNNNNNNNNNNЎЎЎю%UeNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + PB_TRKO),HL ; ; PASS COMMAND TO EXECUTOR ; LD A4…ятNNNNNNNNNNNNNNNNЎЎЎю%яГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFROM TABLE JP (HL) ; ; DRIVER RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_EЮнюNNNNNNNNNNNNNNNNЎЎЎю%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыJR Z,DKOPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF IGNORE THEN RaPяВNNNNNNNNNNNNNNNNЎЎЎю%#6’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************ ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;************************************************†оюHNNNNNNNNNNNNNNNNNЎЎЎю%)ЩYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HDEXEC: ; ; CONVERT LOGICAL DRIVETёядNNNNNNNNNNNNNNNNNЎЎЎю%/sяNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ XPRIM: ; ; SET FLAGS TO NONE FOR NOW ; XOR A,A LD (ґ3ятNNNNNNNNNNNNNNNNЎЎЎю%ПЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= 0 ; ;**********************************************************ь"юBNNNNNNNNNNNNNNNNЎЎЎю% JNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC ѕкяNNNNNNNNNNNNNNNNЎЎЎю%6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,PB_LOGC JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON DISK I/O C#МяЙNNNNNNNNNNNNNNNNNЎЎЎю%пэNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRROR THEN RETURN ; ; PRINT ERROR ; LD HL,DSKEM ;OUTPUT PREFIX CALL EDITOR ; LD DE,IOPB LD B,PB_SIZE DSKER1: LD хгюrNNNNNNNNNNNNNNNNЎЎЎю%E[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSKER: LD HL,0 ;RIЭяОNNNNNNNNNNNNNNNNNЎЎЎю%$ЇNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы**************************** TRNONE: LD DE,0 JR SETTR ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++‘џяОNNNNNNNNNNNNNNNNNЎЎЎю%*Њ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PB_DRVO),A ; ; OFFSET LOGICAL ADDRESS WITH зѕяЙNNNNNNNNNNNNNNNNNЎЎЎю%0`ІNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIOPB + PB_FLGO),A ; ; SET XFER COUNT ; LD HL,SECSZ LD (IOPB + PB_BCNTO),HL ; ; EXECUTE THE PRIMITIVE IN ROM ; PUаѓюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNЃРЃќ‚jѓ7„…Т… †m‡;€‰Х‰ўЉq‹>ЊЌШЌ¦ЋtЏBђ‘Я‘’{“I”•д•±–Ђ—N™л™єљ€›Wњ$ќтќАћЋџ] +ЎшЎЕў“Ј`¤.ҐьҐК¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&ъъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSH IX LD IX,IOPB ;PASS PTR TO IOPB LD HL,DK_DSKX ;PRIMITIVE ENTRY LD A,(DK_PROM) ;FETCH PROM # CALL EXROM ;EXECUTE THEсПяЙNNNNNNNNNNNNNNNNNЎЎЎю&P\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL XPRIM ; ; RESTORE THE MODIFIED SECTOR SO RETRY WILL WORK ; POP HL LD (IOPB + PB_SECO),HL ; ; DONE ; RET °юятNNNNNNNNNNNNNNNNЎЎЎю& ї—NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;######################################################################V¦я9NNNNNNNNNNNNNNNNЎЎЎю&џлNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DFя NNNNNNNNNNNNNNNNЎЎЎю&p NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION ; ENTRY- IX= IOPB PTR ; EXIT - A= 0: OK ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++оХяHNNNNNNNNNNNNNNNNNЎЎЎю&Ъ†NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыO ASCII USING DAA TRICK ; AND A,0FH ADD A,90H DAA ADC A,40H DAA ; ; OUTPUT CHAR TO CONSOLE ; LD C,A CALL COCQAюrNNNNNNNNNNNNNNNNЎЎЎю&%0ШNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************ INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11UІяИNNNNNNNNNNNNNNNNNЎЎЎю&+ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ILLEGC: PUSH BC ;SAVE FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUTњЋябNNNNNNNNNNNNNNNNЎЎЎю&Ї©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PRIMITIVE POP IX ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET SUBTTL JADE FLOPPoяОNNNNNNNNNNNNNNNNNЎЎЎю&@bNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISP*:язNNNNNNNNNNNNNNNNЎЎЎю&кДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###### ; ; BIOS FUNCTION TABLE ; ;############################################################################ BFUNTBL: DР0юrNNNNNNNNNNNNNNNNЎЎЎю&|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVER TABLE BASE PTR ; A, C= 0 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOS нятNNNNNNNNNNNNNNNNЎЎЎю&%sNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ EXIOPB: ; ; SET UP FOR CALL ; LD HL,DK_DSKX LD A,(DK_PROM) CALL EXROM ; ; FETCH & RETURN RESULT STATUS ; LD<яЙNNNNNNNNNNNNNNNNNЎЎЎю& П-NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; RETURN DATA ; POP AF RET ;*************************************************************************** ; ; N?еяВNNNNNNNNNNNNNNNNЎЎЎю&&e‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WAR®єюrNNNNNNNNNNNNNNNNЎЎЎю&,Љ@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FUNCTION # ; POP HL LD A,L CALL PRHEX ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HLxятNNNNNNNNNNNNNNNNЎЎЎю&њNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыY DRIVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVEѕяИNNNNNNNNNNNNNNNNNЎЎЎю& sSNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATCHER ; EXIT - A= -1: ERROR, 0: OK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BIOFUNC:М…яdNNNNNNNNNNNNNNNNNЎЎЎю&ЩхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB M)6яrNNNNNNNNNNNNNNNNЎЎЎю&5MNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RETDVRT: LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADYЬ"яОNNNNNNNNNNNNNNNNNЎЎЎю&BNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,(IX + PB_STATO) OR A,A ;TEST RESULT FOR RETURN RET SUBTTL NON-DISK PROCEDURES ;*********************************3uяОNNNNNNNNNNNNNNNNNЎЎЎю&!ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEWLINE PROCEDURE ; ;*************************************************************************** CRLF: LD C,CR CALL COC LDњ"юHNNNNNNNNNNNNNNNNNЎЎЎю&'VєNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,‹яИNNNNNNNNNNNNNNNNЎЎЎю&-№qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!rящNNNNNNNNNNNNNNNNЎЎЎю&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++ЕVяВNNNNNNNNNNNNNNNNЎЎЎю& &NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENT-°я NNNNNNNNNNNNNNNNNЎЎЎю&КёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIcЖя„NNNNNNNNNNNNNNNNЎЎЎю&`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A ~ЕяОNNNNNNNNNNNNNNNNNЎЎЎю&ЏХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;*****јюNNNNNNNNNNNNNNNNЎЎЎю&"©ONNNNNNNNNNNNNNNNNNNNNNЎЎЎы C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;**************************************ПWяlNNNNNNNNNNNNNNNNNЎЎЎю&(F„NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOµдязNNNNNNNNNNNNNNNNNЎЎЎю&.м"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++\ХяINNNNNNNNNNNNNNNNNЎЎЎю&6>NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++ FD8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) LD (IOPB + PB_DRVѕYяNNNNNNNNNNNNNNNNNЎЎЎю&1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; BлядNNNNNNNNNNNNNNNNNЎЎЎю&щ‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++я%яyNNNNNNNNNNNNNNNNЎЎЎю&S/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO ER"я NNNNNNNNNNNNNNNNЎЎЎю&јдNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************************** PRHEX: ; ; PROCESS HIGH NIBBLE 1ST ; CALL PRDIG P5яNNNNNNNNNNNNNNNNNNЎЎЎю&#љ~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************* ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF sMяHNNNNNNNNNNNNNNNNNЎЎЎю&)uµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION THEN SET C№яюHNNNNNNNNNNNNNNNNNЎЎЎю&/ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++WяЙNNNNNNNNNNNNNNNNЎЎЎю&cmNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO),A ; ; FETCH SECTOR DATA ; LD HL,(IOPB + PB_SECO) PUSH HL ;SAVE FOR XPRIM RESTORE ; ; ; EXECUTE THE IOPB ; h»яВNNNNNNNNNNNNNNNNЎЎЎю&Њ¦NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ONк>юBNNNNNNNNNNNNNNNNЎЎЎю&¬ЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++сЎюrNNNNNNNNNNNNNNNNNЎЎЎю&CNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNИЇятNNNNNNNNNNNNNNNNЎЎЎю&й·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; SWAP HIGH & LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ; ; CONVERT T‡.я'NNNNNNNNNNNNNNNNNЎЎЎю&$йNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;***************************************************KюязNNNNNNNNNNNNNNNNNЎЎЎю&* жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ‡ДядNNNNNNNNNNNNNNNNNЎЎЎю&0М^NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= Dн ядNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNюЂМЃ™‚fѓ4„…Р…џ†l‡:€‰Ц‰ЈЉq‹>ЊЌЩЌ§ЋuЏBђ‘Ю‘¬’z“H”•г•°–—L™и™·љ…›Sњ ќоќ»ћ‰џW %ЎтЎАўЋЈ[¤)ҐчҐЕ¦ЮNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю&НКNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKCAL: LD HL,CLK_CAL ;ROM ENTRYPvямNNNNNNNNNNNNNNNNNЎЎЎю&glNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMAGE BUFR PTR (13 BYTES LONG) ; ;*******************r‘яdNNNNNNNNNNNNNNNNЎЎЎю& €§NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыM ; ; ROM PROCEDURE RETURNS HERE ; EXROMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECT MONITOR ROM ; POP AF ;жdяrNNNNNNNNNNNNNNNNЎЎЎю&ЁЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++ CNSCK: IF USEMON CALL GETMON JP MR_CONSTS ELSE IN A,(NT_STAT) ;IF DAT&YядNNNNNNNNNNNNNNNNЎЎЎю&GNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NTOST: IN A,(NT_STAT) CPL ;REVERSE SENSE AND A,1 SHL NT…юINNNNNNNNNNNNNNNNNЎЎЎю&н¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************* LO: IF USEMON CALL GETMON JP MR_LSTOUT ELSE Ш(юrNNNNNNNNNNNNNNNNЎЎЎю&%иNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;********'0яОNNNNNNNNNNNNNNNNNЎЎЎю&+$зNNNNNNNNNNNNNNNNNNNNNNЎЎЎыV),A CALL GETMON ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSG ;QUERY USER CALL EDITOR ; ; Я·яВNNNNNNNNNNNNNNNNЎЎЎю&™NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы POINT JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 9<язNNNNNNNNNNNNNNNNNЎЎЎю&wRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************* CLKSET: LD C,CLK_F2 ; CLK1: LD HL,CLK_FUN ; CLK2: LD A,CLK_ROM ыяИNNNNNNNNNNNNNNNNЎЎЎю&ЭфNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыRETURN VALUE RET SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2$ятNNNNNNNNNNNNNNNNЎЎЎю&1LNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA NOT READY THEN RETURN 0 AND A,1 SHL NT_READY TTOST1: RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;***************’CятNNNNNNNNNNNNNNNNЎЎЎю&CNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_BUSY JR TTOST1 ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVeю$NNNNNNNNNNNNNNNNNЎЎЎю& шNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATU¬Јя„NNNNNNNNNNNNNNNNЎЎЎю&&R»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************************************** EDITOR: LD C,(HL) ;MESSAGE EDIT LOOP PUSH HL ;SAVE PTR юrNNNNNNNNNNNNNNNNЎЎЎю&,ЅpNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GET & ECHO USER INPUT ; CALL CI ; PUSH AF LD C,A CALL COC POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CPФuятNNNNNNNNNNNNNNNNЎЎЎю&«ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2H ; EXIT - A= SECONDS ; B= MINITS ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Z/яИNNNNNNNNNNNNNNNNNЎЎЎю& DcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; FALL INTO ROM EXECUTER ; ENDIF ;**************************************************************************** єЗядNNNNNNNNNNNNNNNNNЎЎЎю&оЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CI: LdятNNNNNNNNNNNNNNNNЎЎЎю&}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************* ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;************FюNNNNNNNNNNNNNNNNNNЎЎЎю&!rNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READER: LD A,CиCяИNNNNNNNNNNNNNNNNNЎЎЎю&!Л,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ LISTST: !ZядNNNNNNNNNNNNNNNNNЎЎЎю&'aЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RES 7,C ;CLEAR BIT 7 FOR OUTPUT CALL COC ; POP HL BIT 7,(HL) ;IF BIT 7 SET THEN RETURN RET NZ ; INC HL ;ELSE P©я“NNNNNNNNNNNNNNNNЎЎЎю&-ЋANNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' TiятNNNNNNNNNNNNNNNNЎЎЎю&2?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++ CLKTIM: LD HL,CLK_TIM JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; оящNNNNNNNNNNNNNNNNЎЎЎю& 0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTRY ADDRESS ; A= ROM # ; EXIT - ? ; ;*********************************************@FяЙNNNNNNNNNNNNNNNNNЎЎЎю&э€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF USEMON CALL GETMON ;SWITCH IN MONITOR ROM JP MR_CONIN ;USE MONITOR ELSE CALL CNSCK ;IF NO CHAR RDY THEN WAIT J‡oяrNNNNNNNNNNNNNNNNЎЎЎю&W.NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************************************** COC: IF USEMON CALL GETMON JP MR_CONOUT ELSE CALйюNNNNNNNNNNNNNNNNNNЎЎЎю&ёеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRLZ ;FAKE EOF ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRY- юrNNNNNNNNNNNNNNNNЎЎЎю&"ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF USEMON CALL GETMON JP MR_LSTSTS ELSE LD A,-1 RET ENDIF ;***********************************************ФпядNNNNNNNNNNNNNNNNNЎЎЎю&(qґNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRINT NEXT CHAR JR EDITOR IF INTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------------------“њяђNNNNNNNNNNNNNNNNNЎЎЎю&.ЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP BC ;RESTORE REGS 1ST ґэяИNNNNNNNNNNNNNNNNNЎЎЎю&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; READ CLOCK TIME FUNCTION 93H ; ENTRY- DE= PTR TO 13 BYTE BUFFER FOR CLOCK DATA ; ;+++++++++++++++++++++++++++++++++++++++++ яЙNNNNNNNNNNNNNNNNNЎЎЎю&"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* EXROM: AND A,M2_RSMK ;MASK OUT UNUSED BITS OUT (M2_RSEL),A ; PUSH HL ;SAVE ROM ENTRY VEф+ятNNNNNNNNNNNNNNNNNЎЎЎю&О№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR Z,CI IN A,(NT_DATA) ;ELSE RETURN CHAR RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ж9ю9NNNNNNNNNNNNNNNNЎЎЎю&dNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL NTOST ;IF BUSY THEN WAIT OR A,A JR Z,COC LD A,C OUT (NT_DATA),A RET ;+++++++++++++++++++++++++++++++++++++++ѕљюrNNNNNNNNNNNNNNNNЎЎЎю&‹ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC= CHAR TO OUTPUT ; ;**************************************************************************** PUNCH: RET ;**********•ЬюBNNNNNNNNNNNNNNNNЎЎЎю&#NNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы***************************** ; ; GET MONITOR PROM SUBR ; EXIT - A= ? ; ;**************************************************ъгюHNNNNNNNNNNNNNNNNNЎЎЎю&)B…NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы------------- ; ; USER INTERRUPT ; ;---------------------------------------------------------------------------- ITRAP: ; ЖxяИNNNNNNNNNNNNNNNNNЎЎЎю&/и#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP HL POP AF JP 0038H ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR TRAP ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP ћmядNNNNNNNNNNNNNNNNЎЎЎю&T]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ CLKRDC: LD C,CLK_F1 JR CLK1 ;*****************************************************hµяВNNNNNNNNNNNNNNNNЎЎЎю&»–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR ; LD HL,EXROMR ;PUT RETURN ADDR ON STACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY VECTOR JP (HL) ;EXECUTE ROXчящNNNNNNNNNNNNNNNNЎЎЎю&›кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;+++++++++++++++++++++++++++++++++nюINNNNNNNNNNNNNNNNNЎЎЎю&t!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE OUTPUT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;+++++++++++ЙbюNNNNNNNNNNNNNNNNЎЎЎю&Ю‡NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы****************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*******fШя“NNNNNNNNNNNNNNNNNЎЎЎю&$4ЩNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************************** GETMON: LD A,MR_RNUM OUT (M2_RSEL),A RET ;***********************************************П#язNNNNNNNNNNNNNNNNNЎЎЎю&*ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SAVE REGS FIRST ; PUSH AF PUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(M2_RSEL) LD (ROMSA«яNNNNNNNNNNNNNNNNNЎЎЎю&0ыnNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBC POP HL POP AF JP 0F824H ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (M2_RSEL),AуGядNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNЃРЃќ‚jѓ8„…У…Ў†n‡<€ ‰Ш‰ҐЉs‹@ЊЌЫЌ©ЋxЏFђ‘б‘Ї’}“K”•ж•і–Ѓ—N™к™ёљ†›Uњ"ќрќЅћ‹џY 'ЎфЎВўђЈ]¤+ҐщҐЗ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю'ЊNNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; POP BC POP HL POP AF EI ;RE-ENABLE INTERRUPTS RET ;--------------------------------------------------------u+юINNNNNNNNNNNNNNNNNЎЎЎю'&иNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы################################################# ; ; COMMON I/O PARAMETER BLOCK ; ;########################################w€ю NNNNNNNNNNNNNNNNЎЎЎю' Й#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 DVRDTYP DS 1 ;RESERVED FOR DISK TYPE DVRCYLS DS 2 ;DISK CYLINDERS DVRHDS DS 1 ;HEADS ; ; DEFINE THE STRUCTURE SIZE ; @яВNNNNNNNNNNNNNNNNЎЎЎю'й_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE DW #CY ;;CYLS DB #HD ;;HEADS LIST OFF ENDM DVR0: IF BOOT = 10H ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 яdNNNNNNNNNNNNNNNNЎЎЎю'”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;#######################################################АядNNNNNNNNNNNNNNNNNЎЎЎю'¬2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################### HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FAC—‹ятNNNNNNNNNNNNNNNNЎЎЎю'%FlNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT U№яNNNNNNNNNNNNNNNNNЎЎЎю'+ecNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;#####################;яњNNNNNNNNNNNNNNNNЎЎЎю'ЩNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы-------------------- ; ; UNSUPPORTED INTERRUPT ; ;--------------------------------------------------------------------------_эязNNNNNNNNNNNNNNNNNЎЎЎю'6ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################### IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;##############################™язNNNNNNNNNNNNNNNNЎЎЎю'њpNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDVRSIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRЃћяrNNNNNNNNNNNNNNNNЎЎЎю'pИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,32,nПю NNNNNNNNNNNNNNNNЎЎЎю'SЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################### SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW‡єяINNNNNNNNNNNNNNNNNЎЎЎю' №™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRE|ЛябNNNNNNNNNNNNNNNNЎЎЎю'&?NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;##########################################################±ЌяNNNNNNNNNNNNNNNNЎЎЎю',ьфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ниятNNNNNNNNNNNNNNNNЎЎЎю'к,NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы-- ILLINT: PUSH AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC LD HL,ILLIM ;NOTIFY USER OF INT JR IQCONT SUBTTL INITIAх№яИNNNNNNNNNNNNNNNNNЎЎЎю' зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################## ; ; DISK DRIVER TABLES ; ;###################################################ћ€яgNNNNNNNNNNNNNNNNNЎЎЎю'ЇANNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; ГІяrNNNNNNNNNNNNNNNNЎЎЎю'CщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1,10H,256,4 ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ENDIF IF BOOT = 3 AL%ябNNNNNNNNNNNNNNNNЎЎЎю'`цNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET №ГяОNNNNNNNNNNNNNNNNNЎЎЎю'!ЉЁNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRAОЁяNNNNNNNNNNNNNNNNNЎЎЎю'' NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################## ; ; MESSAGES ; ;############################################################################ MSGLE: DMЧLяИNNNNNNNNNNNNNNNNЎЎЎю'-ПЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ж—яВNNNNNNNNNNNNNNNNЎЎЎю's»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLIZED DATA ;############################################################################ ; ; 3740 SECTOR TRANSLATION TABLE ;Д®яВNNNNNNNNNNNNNNNNЎЎЎю' PґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################### STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) DVҐ/яrNNNNNNNNNNNNNNNNNЎЎЎю'јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы #Z0= TRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= DATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@(фюNNNNNNNNNNNNNNNNЎЎЎю'ЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0,0,77,1 ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4'яaNNNNNNNNNNNNNNNNЎЎЎю'щaNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS э¤ю NNNNNNNNNNNNNNNNЎЎЎю'"ЯыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK OFFSET (OFF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 32,1,32,1,32,1 ;32 SPT, 256 BPS DB 10H ;TYPE DW 2±іядNNNNNNNNNNNNNNNNNЎЎЎю'(00NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CR,LF,'LOAD ERROR' ; DSKEM: DB CR,LF,'Disk Error Status:' DM CR,LF,'CM DR TL TH SL SH FG AL AH AX CL CH ST S1 S2 S3',CR,LF +VюNNNNNNNNNNNNNNNNNNЎЎЎю'.љ–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@ ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NRюHNNNNNNNNNNNNNNNNNЎЎЎю'@ЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы **** CP/M SINGLE DENSITY **** ; ;############################################################################ SDTRAN: GXLATEWю§NNNNNNNNNNNNNNNNNЎЎЎю'c…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRPDRV DS 1 ;PHYSICAL DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISKЭя$NNNNNNNNNNNNNNNNNЎЎЎю'Џ=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD,#DT,#CY,#HD LIS‰явNNNNNNNNNNNNNNNNЎЎЎю'%›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 ALLDRV HDEXEC,5,60H,32,1,32,1,3ЗЬятNNNNNNNNNNNNNNNNЎЎЎю'КPNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 26,0,26,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) DB 0 ;TYPE DW 77 ;CYLS DB 1 ;HEADS ;#####################3ябNNNNNNNNNNNNNNNNЎЎЎю'#мКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы56 ;CYLS DB 4 ;HEADS ;############################################################################ ; ; MODE 2 INTERRUжМя“NNNNNNNNNNNNNNNNNЎЎЎю')NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF IF INTRIiяHNNNNNNNNNNNNNNNNNЎЎЎю'/©§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLKt’ядNNNNNNNNNNNNNNNNЎЎЎю'ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 26,6 ; DB 1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,22 ;###########################фiюBNNNNNNNNNNNNNNNNЎЎЎю'ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FLAGS DVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS %яњNNNNNNNNNNNNNNNNЎЎЎю'ЪnNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT ON DW #DADD DB 0 ;;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD DB #FG DB #S0,#Z0,#S1,#Z1,#SD,#ZD DB #DT ;;DISK TYPќ©я¤NNNNNNNNNNNNNNNNNЎЎЎю'5ҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2,1,10H,256,4 ENDIF LIST ON ;############################################################################ ; ; DEFAU9ОюrNNNNNNNNNNNNNNNNЎЎЎю'џNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;########################pюNNNNNNNNNNNNNNNNNNЎЎЎю'$u]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPT VECTOR TABLE ; ;############################################################################ ; ; START ON AN EVEN PAGE ”‘юNNNNNNNNNNNNNNNNNNЎЎЎю'*VRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort? (Y/N/I/M) - ' ENDIF ;########################yяЙNNNNNNNNNNNNNNNNNЎЎЎю'0єкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHEѕ™яИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNюЂМЃљ‚gѓ5„…У… †m‡;€‰Ц‰ЈЉq‹?Њ ЌЪЌ©ЋwЏEђ‘а‘®’{“I”•д•±–—L™и™·љ…›Sњ ќоќ»ћЉџX &ЎуЎБўЏЈ\¤*ҐшҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю'»~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; ВOяЙNNNNNNNNNNNNNNNNNЎЎЎю'ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################### ; ; VARIABLES ; ;############################################################################ ;iюdNNNNNNNNNNNNNNNNЎЎЎю' юNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) kящNNNNNNNNNNNNNNNNЎЎЎю'ЮoNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 1д«ю NNNNNNNNNNNNNNNNЎЎЎю'1¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPBPHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 5125ќя“NNNNNNNNNNNNNNNNNЎЎЎю'›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы## ; STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICALQHя9NNNNNNNNNNNNNNNNNЎЎЎю'%q\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF ЂўябNNNNNNNNNNNNNNNNЎЎЎю'+RSNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL8ю NNNNNNNNNNNNNNNNЎЎЎю'о-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READіъязNNNNNNNNNNNNNNNNNЎЎЎю'жNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2>·яHNNNNNNNNNNNNNNNNЎЎЎю'«@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHz7ящNNNNNNNNNNNNNNNNЎЎЎю'GшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы27 DPBEXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 1їИящNNNNNNNNNNNNNNNNЎЎЎю'dчNNNNNNNNNNNNNNNNNNNNNNЎЎЎы, 7: 1024 DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATEгзяINNNNNNNNNNNNNNNNNЎЎЎю' Ћ©NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DRIVE # ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS8oяОNNNNNNNNNNNNNNNNNЎЎЎю'&$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT =ХВюBNNNNNNNNNNNNNNNNЎЎЎю',ЛДNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DRIVE 1 ENDIF ; ;************************************************************* ; ; REVISION HISTORY: ; ; 3.00 - 26 м§юrNNNNNNNNNNNNNNNNЎЎЎю'ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;###############################################################-sяИNNNNNNNNNNNNNNNNNЎЎЎю' 2ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;DRIVE DRIVER EXECUTION ADDRESS ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM ;#############################################ЗюHNNNNNNNNNNNNNNNNNЎЎЎю'qNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL:/ю NNNNNNNNNNNNNNNNЎЎЎю'tЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы6K= 7 DPBDSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -ЋяњNNNNNNNNNNNNNNNNЎЎЎю'WЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LЋLюNNNNNNNNNNNNNNNNNNЎЎЎю'!ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 3H ;10H: HARD DISK, 3: 8" FLOPPY, 20H: 5" FLOPPY ;*********************ряяуNNNNNNNNNNNNNNNNNЎЎЎю''>NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0Й›юHNNNNNNNNNNNNNNNNЎЎЎю'-шхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new' юBNNNNNNNNNNNNNNNNЎЎЎю'D‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;#################################П-юBNNNNNNNNNNNNNNNNЎЎЎю' g„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################### ; ; DRIVE ALLOCATION AREAS ; ;############################################################ЪИюrNNNNNNNNNNNNNNNNNЎЎЎю'‹ 07800H) OR ($ < 8000H) CONMy;юBNNNNNNNNNNNNNNNNЎЎЎю'#ЫъNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыprises, SUNNYVALE, CA ; ; AUTHOR: Girvin Herr ; ;***************************************************************************'Њя$NNNNNNNNNNNNNNNNNЎЎЎю')41NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; юINNNNNNNNNNNNNNNNNЎЎЎю'/ћ—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыf ROM primitives. ; Moved system down to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ;:юrNNNNNNNNNNNNNNNNЎЎЎю'"йNNNNNNNNNNNNNNNNNNNNNNЎЎЎыED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;#################################################hюBNNNNNNNNNNNNNNNNЎЎЎю'Н"NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #ґoяВNNNNNNNNNNNNNNNNЎЎЎю'н^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################### STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY Vя$NNNNNNNNNNNNNNNNNЎЎЎю'•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPBPSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/S’±ятNNNNNNNNNNNNNNNNЎЎЎю'Ё3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END kюHNNNNNNNNNNNNNNNNNЎЎЎю'$BmNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы* ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICдщяNNNNNNNNNNNNNNNNNЎЎЎю'*abNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыC SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICTЇюINNNNNNNNNNNNNNNNNЎЎЎю'0ЌЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to s• язNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNђNNNNNNNNNЃРЃќ‚jѓ7„…Т… †m‡;€‰Ц‰ЈЉq‹>ЊЌЩЌЁЋvЏDђ‘б‘®’{“I”•д•±–—L™и™¶љ„›Rњќнќєћ€џV #ЎсЎїўЌЈZ¤)ҐчҐЕ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю(X NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыpecify the ID sector & track. At same time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?TjяINNNNNNNNNNNNNNNNNЎЎЎю(тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыunction ; rather than swapping Roms itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk@џю NNNNNNNNNNNNNNNNЎЎЎю( НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMove calculation from ; DCM8 to CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to SЦЃяВNNNNNNNNNNNNNNNNЎЎЎю(=±NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыem by using ROMBNK sector buffer for ; ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10“щятNNNNNNNNNNNNNNNNЎЎЎю(ТzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================================== ; INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE МСя$NNNNNNNNNNNNNNNNNЎЎЎю(xЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSYS: EQU 59 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VAєЂюrNNNNNNNNNNNNNNNNЎЎЎю(%’‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBFUNRST ;============================================================================ ; ; OTHER DECLARATIONS ; ;=======„ГяNNNNNNNNNNNNNNNNNNЎЎЎю(+±ЌNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы======================================== ; ; BDOS CONSTANTS ON ENTRY TO WRITE ; ;====================================фЇя„NNNNNNNNNNNNNNNNЎЎЎю( уNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы' to include file names. ; Change hard disk system tracks directory reference to new format. ; Correct bug in drivers which ca5АяИNNNNNNNNNNNNNNNNNЎЎЎю(в8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы table which benignly (at current level) ; caused the drive table to have bad data (default table was missing ; the 2 deblocЧяИNNNNNNNNNNNNNNNNЎЎЎю(HћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыector Offset like track ; offset. Disk partitioning will add this value to sector word. It ; will be stored in the ID sectora¤яВNNNNNNNNNNNNNNNNЎЎЎю(¤&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-22-91 GRH Fix bugs ; 10-23-91 GRH Fix bugs ; 10-24-91 GRH Fix bugs ; ; 3.13 1-4-92 GRH ; Change boot code to usИЎятNNNNNNNNNNNNNNNNЎЎЎю(‡)NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;============================================================================ ; ; INCLUDE COMIOPB3.DEF ; INCLUDE DIчЬяNNNNNNNNNNNNNNNNNЎЎЎю( mwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS «DяњNNNNNNNNNNNNNNNNЎЎЎю(&ЗСNNNNNNNNNNNNNNNNNNNNNNЎЎЎы===================================================================== ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; lяВNNNNNNNNNNNNNNNNЎЎЎю(,(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================== ; WRALL EQU 0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2 ;WRITМЅятNNNNNNNNNNNNNNNNЎЎЎю(>ВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыused retry to fail. (sector remained ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; U«ъюNNNNNNNNNNNNNNNNNNЎЎЎю( С NNNNNNNNNNNNNNNNNNNNNNЎЎЎыking extension bytes). ; Implement data xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopbѕяИNNNNNNNNNNNNNNNNNЎЎЎю({ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы data to be dynamic. ; ; 3.10 5-20-91 GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 verћящNNNNNNNNNNNNNNNNЎЎЎю(—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыe type 0 boot directories. ; VERSN EQU 312 ; ;**************************************************************************** 4 яNNNNNNNNNNNNNNNNЎЎЎю(ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSKS3.DEF ; INCLUDE BDIR.DEF ; INCLUDE M5ZF2.DEF ; ;==============================================================WяОNNNNNNNNNNNNNNNNNЎЎЎю(!^FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARіяNNNNNNNNNNNNNNNNЎЎЎю('фаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 8" HARD DISK BOOT DATA ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD E%рю'NNNNNNNNNNNNNNNNЎЎЎю(-+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO UNALLOCATED ;============================================================================ ; ; ASCII CHARS ; ;=====ОЁюrNNNNNNNNNNNNNNNNЎЎЎю(§UNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnstub Clock routines. ; 3.04 6 AUG 88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID se ябNNNNNNNNNNNNNNNNЎЎЎю( „ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы cases. ; Remove clock buffer set/read system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 aёяВNNNNNNNNNNNNNNNNNЎЎЎю(hвNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыsion controller firmware. ; ; 3.11 9-2-91 GRH ; Add redlines & change for M5ZMON v.2.00. ; ; 3.12 9-11-91 GRH ; Add deщРятNNNNNNNNNNNNNNNNЎЎЎю(ВDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL SYSTEM DECLARATIONS ;============================================================================ ; ; ASSEMBLY PARA®юNNNNNNNNNNNNNNNNNЎЎЎю(-ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============== ; LIST OFF *INCLUDE COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE M5ZF2.DEFµЇятNNNNNNNNNNNNNNNNЎЎЎю("NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR ; ; BIOS DATA ; ‰€ятNNNNNNNNNNNNNNNNNЎЎЎю((дЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPйcязNNNNNNNNNNNNNNNNNЎЎЎю(.NxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================================================= ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@0SядNNNNNNNNNNNNNNNNNЎЎЎю(”dNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыctor format. ; Implement CP/M 3.0 DPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data toюNNNNNNNNNNNNNNNNNNЎЎЎю(·kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH ; Fix bug which corrupted PB_FLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 insteaqWя“NNNNNNNNNNNNNNNNNЎЎЎю([УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыblocking code. ; 9-17-91 GRH Add r/ls & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! №Wя NNNNNNNNNNNNNNNNЎЎЎю(сuNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMETERS ; ;============================================================================ ; FALSE EQU 0 TRUE EQU NOT FALSE rбю9NNNNNNNNNNNNNNNNЎЎЎю(ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDR®яaNNNNNNNNNNNNNNNNЎЎЎю(#8$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыORG PAGE0 + 40H BTARG DS 2 ;BOOT ARGUMENT SYSPTR DS 2 ;BOOT DIRECTORY SYSTEM LOAD DATA OFFSET PTR ; DEFBFR EQU PAGE0 + 80HСqяИNNNNNNNNNNNNNNNNNЎЎЎю()ЧпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;STAR¤яИNNNNNNNNNNNNNNNNNЎЎЎю(/}INNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@iядNNNNNNNNNNNNNNNNЎЎЎю(Б7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы update IOPB.PBSTAT to new configuration. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom fНЋяОNNNNNNNNNNNNNNNNNЎЎЎю(.ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыd. ; Add track-head shift factor to DPBs for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. µуяњNNNNNNNNNNNNNNNNЎЎЎю(ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; BUF_RD was writing. ; Patch problems with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON probliляdNNNNNNNNNNNNNNNNNЎЎЎю(бKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;==========‹юrNNNNNNNNNNNNNNNNЎЎЎю(KнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыESSES ; ;============================================================================ ; SYS EQU 2 ;CP/M VERSION {2,3} ; NK2uюNNNNNNNNNNNNNNNNNNЎЎЎю($ЎіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + LеюNNNNNNNNNNNNNNNNNNЎЎЎю(*‚јNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;====================================Юыя$NNNNNNNNNNNNNNNNNЎЎЎю(0nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;yяђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNИNNNNNюЂНЃ›‚hѓ6„…Т…џ†l‡:€‰Х‰ўЉq‹>ЊЌЩЌ§ЋuЏCђ‘Ю‘¬’y“F”•в•Ї–}—J™ж™ґљ‚›Pњќкќ·ћ…џS ЎоЎ»ў‰ЈV¤%ҐуҐБ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю(oђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOЗEяЙNNNNNNNNNNNNNNNNNЎЎЎю(Е6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы/ 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;----------------------------------------------------ЫядNNNNNNNNNNNNNNNNЎЎЎю( *эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL ;############################################################################ ; ; THE FOLLOWING BOOT DATA MUST RESIDE¦›юBNNNNNNNNNNNNNNNNЎЎЎю( ЃNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;########################lџюrNNNNNNNNNNNNNNNNЎЎЎю(еJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFAULT DRIVE ; LD A,(BTARG) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; LD HL,MSGуяЙNNNNNNNNNNNNNNNNNЎЎЎю(OмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################################### ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CЇ°юrNNNNNNNNNNNNNNNNЎЎЎю(%ҐІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;ASSUME NO DATA IN BUFFER ; LD (UNA_CNT),A ;CLEAR UNALLOCATED SECTOR COUNT ; LD (BUF_MOD),A ;CLEAN BUFFER ; LD HL,BLKBU<я!NNNNNNNNNNNNNNNNЎЎЎю(+†ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOP OF SEGMENT LOOP ; W_NXTSEG: LD E,(HL) ;FETCH TRACK INC HL LD D,(HL) LD (IOPB + PB_TRKO),DE ; INC HL ;FETCH гhюrNNNNNNNNNNNNNNNNЎЎЎю(:ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NфяОNNNNNNNNNNNNNNNNNЎЎЎю(ХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------ ; ; BIOS JUMP VECTOR TABLE ; ;-------------------------------------------------------------------#'юHNNNNNNNNNNNNNNNNЎЎЎю(®NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFERENCED BY THE BOЎOя„NNNNNNNNNNNNNNNNЎЎЎю(“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------fLя„NNNNNNNNNNNNNNNNЎЎЎю(°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; Ё@яЙNNNNNNNNNNNNNNNNNЎЎЎю( ZGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF ЉФяВNNNNNNNNNNNNNNNNЎЎЎю(&рбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ;INIT BUFFER PTR LD (BUF_DMA),HL ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(BTARG) AND A,3 ;MODULO 4 LD C,A LD E,y‹юBNNNNNNNNNNNNNNNNЎЎЎю(,*NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыSECTOR LD E,(HL) INC HL LD D,(HL) LD (IOPB + PB_SECO),DE ; INC HL ;FETCH SEGMENT SECTOR COUNT LD A,(HL) LD (SEC)ятNNNNNNNNNNNNNNNNЎЎЎю( тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)®яHNNNNNNNNNNNNNNNNNЎЎЎю( ж9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT 36язNNNNNNNNNNNNNNNNNЎЎЎю(LџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;##########################################rюrNNNNNNNNNNNNNNNNЎЎЎю( 'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;----------mяВNNNNNNNNNNNNNNNNЎЎЎю(ѓ(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL GETBNK LD (BUF_DMAB),A ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CXОяўNNNNNNNNNNNNNNNNЎЎЎю(!ivNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT`яяђNNNNNNNNNNNNNNNNNЎЎЎю('ГРNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,W_EROR ; ; SETUP IOPB ; LD A,PB_READC LD (IOPB + PB_CMDO€†ю'NNNNNNNNNNNNNNNNЎЎЎю(-,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCNT),A ; INC HL ;SAVE CURRENT DATA PTR LD (LDRPTR),HL ; ; READ SYSTEM ; W_READ: CALL XPRIM LD A,2 JR NZ,W_EROR q[ятNNNNNNNNNNNNNNNNЎЎЎю(ђeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@r<яВNNNNNNNNNNNNNNNNЎЎЎю( іjNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DIQ¦я„NNNNNNNNNNNNNNNNNЎЎЎю(_ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################## ; DB 0 ;CPU TYPE (Z80 CPU) DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN ( яВNNNNNNNNNNNNNNNNЎЎЎю(хtNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы------------------------------------------------------------------ ; INIT: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR ;уязNNNNNNNNNNNNNNNNNЎЎЎю(їNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TUR;«ятNNNNNNNNNNNNNNNNЎЎЎю("<%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------- ; ; WARM REBOOT ў`ятNNNNNNNNNNNNNNNNNЎЎЎю((УоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы),A ; LD A,(BTARG) LD (IOPB + PB_DRVO),A ; XOR A,A LD (IOPB +PB_FLGO),A ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; LDнфю§NNNNNNNNNNNNNNNNNЎЎЎю(.yHNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,(IOPB + PB_SECO) INC HL LD (IOPB + PB_SECO),HL ; LD DE,(IOPB + PB_BCNTX"я'NNNNNNNNNNNNNNNNNЎЎЎю(ЈTNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10ДДяђNNNNNNNNNNNNNNNNNЎЎЎю(Ђ[NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ ЫюHNNNNNNNNNNNNNNNNNЎЎЎю(lгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;##################цЧяьNNNNNNNNNNNNNNNNЎЎЎю(ЖENNNNNNNNNNNNNNNNNNNNNNЎЎЎы;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; UPLOAD BOOT DIRECTORY DATA FOR WARM BOOT ; LD DE,(SYSPTR) LD HL,0080HіLядNNNNNNNNNNNNNNNNЎЎЎю()ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; №—яNNNNNNNNNNNNNNNNЎЎЎю(#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;---------------------------------------------------------- ; WARM: ЖяИNNNNNNNNNNNNNNNNNЎЎЎю()аЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,CCP LD (IOPB + PB_DMAO),HL ; ; IF NO SYSTEM THEN ERROR ; LD HL,BT_DATA LD A,(HL) ;FETCH SEGMENT COUNT OR A,A ’]ядNNNNNNNNNNNNNNNNNЎЎЎю(/JyNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыO) ;DMA += SECTOR SIZE LD HL,(IOPB + PB_DMAO) ADD HL,DE LD (IOPB + PB_DMAO),HL ; ; IF INTO BIOS THEN EXIT ; LD A,HPJя„NNNNNNNNNNNNNNNNЎЎЎю(цNNNNNNNNNNNNNNNNNNNNNNЎЎЎы000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) ©аябNNNNNNNNNNNNNNNNЎЎЎю(МNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыJP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION C&ЌяNNNNNNNNNNNNNNNNЎЎЎю(9°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################## ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ПWядNNNNNNNNNNNNNNNNNЎЎЎю(Ц{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADD HL,DE LD A,(HL) ;IF > MAX THEN ERROR CP A,6 JP NC,W_EROR ; LD DE,BT_DATA LD BC,BD_SIZE LDIR ; ; INIT DEa?яВNNNNNNNNNNNNNNNNЎЎЎю(|ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR WARM ;############################################################################ ; ; SIGN-ON MESSAGE ; ;########aяИNNNNNNNNNNNNNNNNNЎЎЎю($–ѓNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; SET TEMPORARY STACK ; DI LD SP,DEFBFR LD (THIS_STK),SP EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_ACT),A ’вюNNNNNNNNNNNNNNNNNЎЎЎю(*µЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,1 JR Z,W_EROR ; ; ELSE USE DATA TO LOAD SYSTEM ; LD A,(HL) LD (SEGCNT),A ; INC HL ;POINT TO TRACK ; ; ѕ#ю$NNNNNNNNNNNNNNNNNЎЎЎю(0Y4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CP A,HIGH BIOS JR NC,WZRPG ; ; ELSE IF SEGMENT_SECTOR_COUNT != EXHAUSTED THEN READ_NEXT_SECTOR ; LD A,(SECCNT) DEC@юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃПЃњ‚jѓ8„…Ф…ў†o‡>€‰Ъ‰§Љu‹BЊЌЮЌЋ{ЏHђ‘г‘±’~“K”•з•ґ–‚—O™л™№љ‡›Uњ"ќрќѕћЊџZ (ЎцЎДў’Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю).NNNNNNNNNNNNNNNNNNNNNNЎЎЎы A LD (SECCNT),A JR NZ,W_READ ; ; ELSE IF SEGMENTS == COMPLETE THEN DONE ; LD A,(SEGCNT) DEC A LD (SEGCNT),A JP-ўяЙNNNNNNNNNNNNNNNNNЎЎЎю)„ІNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы ; LD A,H CP A,HIGH BIOS JR C,W_LOK ; LD A,L CP A,LOW BIOS LD A,3 JR NZ,W_EROR ; W_LOK: ; ; INIT BIOS WARMцlядNNNNNNNNNNNNNNNNЎЎЎю) kyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0:їъюNNNNNNNNNNNNNNNNЎЎЎю)KNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; DISKRDN: CALL CPM_RD JP RW_RET ;**************************************************************************** ; ; (]яNNNNNNNNNNNNNNNNЎЎЎю)¤ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL V+юHNNNNNNNNNNNNNNNNNЎЎЎю)hNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL) JR NZ,ALLOC ; LD HL,(UNA_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA,kю NNNNNNNNNNNNNNNNЎЎЎю)%д6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALLOC: XOR A,A ;COUNT = 0 LD (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR REAq”яОNNNNNNNNNNNNNNNNNЎЎЎю)+З9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (HL),1 ;BUFFER = ACTIVE IN ANY CASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(PчяВNNNNNNNNNNNNNNNNЎЎЎю){GNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Z,WZRPG ; ; ELSE DO NEXT SEGMENT ; LD HL,(LDRPTR) JR W_NXTSEG ; ; ; WARM BOOT ERROR, OUTPUT MSG & GO TO DEBUGGER ѓєюNNNNNNNNNNNNNNNNNNЎЎЎю)”ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; уДяИNNNNNNNNNNNNNNNNЎЎЎю)>*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; SET UP DATA9Dя„NNNNNNNNNNNNNNNNЎЎЎю)Т’NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыWRITE DISK SECTOR FUNCTION ; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITE TO DIRECTORY BLOCK (w¶ятNNNNNNNNNNNNNNNNЎЎЎю)сќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOCK ; LD A,(IY + DPB_BLM) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A ѓ1ядNNNNNNNNNNNNNNNNNЎЎЎю) ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SEC) SBC HL,DE JR NZ,ALLOC ; ; MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; EX DE,HL ;UNASEC += 1 INC HL LD (UNAябNNNNNNNNNNNNNNNNЎЎЎю)&±eNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD AND WRITE FOLLOWS ; RWOPER: ; ; ASSUME NO ERRORS ; XOR A,A LD (IOPB + PB_STATO),A ; ; COMPUTE BUFFER SECTOR ; =AюBNNNNNNNNNNNNNNNNЎЎЎю),^®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPM_DSK) LD HL,BUF_DSK ;SAME DISK? CP A,(HL) JR NZ,NOMATCH ; LD HL,(BUF_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DEС‡яdNNNNNNNNNNNNNNNNЎЎЎю)HvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ENTRY- A= ERROR CODE: ; 0: SELECT DISK ERROR ; 1: NO SYSTEM SEGMENTS IN BOOT DIRECTORY ; 2: READ ERROR ; 3: BIOS ПЉюNNNNNNNNNNNNNNNNNNЎЎЎю) §ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),AnюNNNNNNNNNNNNNNNNNЎЎЎю) NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы TABLE PTRS ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM READ ; LD A,(IY± юrNNNNNNNNNNNNNNNNЎЎЎю)бЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;***************************************************¤*яNNNNNNNNNNNNNNNNЎЎЎю)В¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (UNA_CNT),A ; ; SET DISK TO SEEK ; LD A,(CPM_DSK) LD (UNA_DSK),A ; ; SET TRACK TO SEEK ; LD HL,(CPM_TRK) L`юNNNNNNNNNNNNNNNNNNЎЎЎю)!(тNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SEC),HL ; ; IF PAST LAST SECTOR ON TRACK THEN USE 1ST SECTOR OF NEXT TRACK ; LD E,(IY + DPB_SPT) LD D,(IY + DPB_SPT +1?њю0NNNNNNNNNNNNNNNNNЎЎЎю)'‚TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(CPM_SEC) DEC HL ;CONVERT PHYSICAL SECTOR TO LOGICAL ; LD A,(IY + DPB_PSH) ;USE PHYSICAL SHIFT FACTOR (CP/M 3.X) Ж+юHNNNNNNNNNNNNNNNNЎЎЎю)-mџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR NZ,NOMATCH ; LD DE,(BUF_PSEC) ;SAME SECTOR? LD HL,(BUF_SEC) SBC HL,DE JR Z,MATCH ;SKIP IF MATCH ; NOMATCH: ; ГћяВNNNNNNNNNNNNNNNNЎЎЎю)СбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOVERWRITTEN ; 4,5: SPARES ; 6..255: SEGMENT COUNT (TOO MANY SEGMENTS) ; W_EROR: PUSH AF ;SAVE ERROR CODE ; LD HL,MSGeNюNNNNNNNNNNNNNNNNNNЎЎЎю) тоNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTO3жюBNNNNNNNNNNNNNNNNNЎЎЎю)VNNNNNNNNNNNNNNNNNNNNNNЎЎЎы + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A LD (UNA_CNT),A ; ;#QятNNNNNNNNNNNNNNNNЎЎЎю)ґрNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; DISKWR: ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A ; ; SET PTRS TO DISoЕязNNNNNNNNNNNNNNNNNЎЎЎю)[;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (UNA_TRK),HL ; ; SET SECTOR TO SEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PN[ятNNNNNNNNNNNNNNNNЎЎЎю)"}ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) SBC HL,DE JP C,NOOVF ; LD HL,0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL uґядNNNNNNNNNNNNNNNNNЎЎЎю)(’jNNNNNNNNNNNNNNNNNNNNNNЎЎЎы AND A,3 ;LIMIT TO 1024 BYTE SECTORS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLP: SRL H ;ELSE SHIK”ябNNNNNNNNNNNNNNNNЎЎЎю).8МNNNNNNNNNNNNNNNNNNNNN!цЎЎЎы ; IF BUFFER == DIRTY THEN WRITE IT OUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR4 яђNNNNNNNNNNNNNNNNNЎЎЎю)вРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLE ;OUTPUT ERROR MESSAGE CALL EDITOR ; ; DISPLAY ERROR CODE ; POP AF LD C,A LD A,MF_PHXB CALL MR_FUN ; ; EXEC{ ю!NNNNNNNNNNNNNNNNЎЎЎю)БЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT ‹PюHNNNNNNNNNNNNNNNNNЎЎЎю)-gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы READ_OPERATION_FLAG = TRUE (1) ; INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TRE/рящNNNNNNNNNNNNNNNNЎЎЎю)‡БNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK DATA ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WRITE ; LD A,(IY + DящNNNNNNNNNNNNNNNNЎЎЎю)h NNNNNNNNNNNNNNNNNNNNNNЎЎЎыREREAD ; CHKUNA: LD A,(UNA_CNT) OR A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UШБябNNNNNNNNNNNNNNNNЎЎЎю)#NђNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; yNянNNNNNNNNNNNNNNNNNЎЎЎю))Ў[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFT OVER TO PHYSICAL SECTOR RR L DEC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL SECTOR LD (BUF_PSEC),5µя NNNNNNNNNNNNNNNNNЎЎЎю)/эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THEN ABORT ; FILHST: ; ; READ THE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (BUF_DSK),A ; lFятNNNNNNNNNNNNNNNNЎЎЎю)·ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUTE DEBUGGER ; CALL MR_BRK HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; IF FRONT OF BIOS OVERWRITTEN THEN ERROR яNNNNNNNNNNNNNNNNNNЎЎЎю)XHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (BDOS + 7),HL ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION яBNNNNNNNNNNNNNNNNЎЎЎю)x4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE READ ; ; ; NORMAL NON-BLOCKED READ &цюNNNNNNNNNNNNNNNNNЎЎЎю)—яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITЈ‡ятNNNNNNNNNNNNNNNNЎЎЎю)=YNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNA_CNT),A ; ; IF REQUESTED SECTOR != UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HSюNNNNNNNNNNNNNNNNNNЎЎЎю)$ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; NORMAL NON-BLOCKED WRITE ; DISKWRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; к4юNNNNNNNNNNNNNNNNNЎЎЎю)*фNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHL ;BUFFER PHYSICAL SECTOR TO ACCESS ; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BUF_ACT LD A,(HL) ; '2яИNNNNNNNNNNNNNNNNNЎЎЎю)0°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(CPM_TRK) LD (BUF_TRK),HL ; LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RSFвюgNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNдNNNNNюЂМЃљ‚hѓ6„…Т…џ†l‡:€‰Х‰ўЉp‹>ЊЌЩЌЁЋvЏDђ‘б‘Ї’|“I”•е•І–Ђ—N™к™№љ‡›Uњ"ќрќЅћЊџZ 'ЎфЎВўђЈ]¤,ҐъҐИ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю)$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLAG) ;NEED TO READ? OR A,A CALL NZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_MOD),A ; MATCH: ; ;ЩAяЙNNNNNNNNNNNNNNNNNЎЎЎю)і‚NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы BUFFER DATA PTRS FOR LATER FLUSHES ; LD (BUF_DDT),IX LD (BUF_DPB),IY ; EX DE,HL ;SOURCE/DEST SWAP ; RWMOVE: ; ; jhяЙNNNNNNNNNNNNNNNNЎЎЎю) \INNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************** ; ; CPM_WR PERFORMS THE PHYSICAL WRITE FROM CPM_DMA TO THE DISK. ; ENTRY- (CPM_DSK)= DISK # TOa!ятNNNNNNNNNNNNNNNNЎЎЎю)|5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; CPM_RD2: ; †yятNNNNNNNNNNNNNNNNЎЎЎю)“юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD HL,LL_READ ; ; COMMON CODE ; CPM_RW: PUSH HL LD HL,CPM_TRK ; ; FALL INTO COMMON XFER CODE ; ;*********IядNNNNNNNNNNNNNNNNNЎЎЎю)9XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; (BUF_PSEC)= SECTOR # TO WRITE TO ; (BUF_DDT)= DDT PTR ; (BUF_DPB)= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR EЇятNNNNNNNNNNNNNNNNЎЎЎю)%УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы# TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_SEC)= SECTOR # TO WRITE TO ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (шпюBNNNNNNNNNNNNNNNNЎЎЎю)+р NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыUF_RW: PUSH HL LD HL,BUF_TRK JP RD_WR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ыЄюrNNNNNNNNNNNNNNNNЎЎЎю)LwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы COPY DATA TO OR FROM BUFFER ; LD HL,(CPM_SEC) ;CALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOGICAL SECTOR (0..N-1) язNNNNNNNNNNNNNNNNNЎЎЎю)ЈјNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыBC INITIALLY 128, DE IS SOURCE, HL IS DEST ; LDIR ; ; DATA HAS BEEN MOVED TO/FROM HOST BUFFER, IF NOT DIRECTORY THEN DELAQљяЙNNNNNNNNNNNNNNNNЎЎЎю) NNNNNNNNNNNNNNNNNNNNNNЎЎЎы WRITE TO ; (CPM_TRK)= TRACK # TO WRITE TO ; (CPM_SEC)= SECTOR # TO WRITE TO ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; ПHюBNNNNNNNNNNNNNNNNЎЎЎю)еўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; SET UP PTRS ; PUSH IX PUSH IY LD IX,(CUR_DDT) LD IY,(CUR_DPB) ; ; EXECUTE READ SECTOR ; CALL CPM_RD ; ; ‹ря„NNNNNNNNNNNNNNNNЎЎЎю)ЖNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************************************* ; ; SET UP IOPB FOR EXECUTION ; ENTRY- HL= PTR TO IOPB IMь|яINNNNNNNNNNNNNNNNNЎЎЎю) ,уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;**************************************************************************** ; BUF_FLSH: ; ; IF UNMODIFIED THEN RETURNX№юNNNNNNNNNNNNNNNNNЎЎЎю)&†UNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; BUF_WR: эю!NNNNNNNNNNNNNNNNЎЎЎю),iћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO D'жяNNNNNNNNNNNNNNNNЎЎЎю)FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,L ; AND A,(IY + DPB_PHM) ;USE PHYSICAL RECORD MASK DATA (CP/M 3.X) ; RRA ;BITS <7..1> -> BITS <14..8> LD H,A 6 яОNNNNNNNNNNNNNNNNNЎЎЎю) ђЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY WRITE ; LD A,(WRTYPE) ;IF NOT DIRECTORY THEN DELAY WRITE CP A,WRDIR LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ANYWAY хCяОNNNNNNNNNNNNNNNNNЎЎЎю):+NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;******************************************************************ЎnядNNNNNNNNNNNNNNNNЎЎЎю)Ц“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRESTORE PTRS & RETURN ; POP IY POP IX RET ;*************************************************************************3љяњNNNNNNNNNNNNNNNNЎЎЎю)хњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAGE TRACK DATA ; IX= DDT PTR ; IY= DPB PTR ; (SP)= ADDRESS {LL_READ, LLWRIT} OF EXECUTOR ; ;****************************ЋяяОNNNNNNNNNNNNNNNNNЎЎЎю)!ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(BUF_MOD) OR A,A RET Z ; ; ELSE SET PTRS TO BUFFER DATA ; PUSH IX PUSH IY LD IX,(BUF_DDT) LD IY,(BUFѕHяђNNNNNNNNNNNNNNNNNЎЎЎю)'µdNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы; LD HL,LL_WRIT JP BUF_RW ;**************************************************************************** ; ; RDBUF PER?ќяИNNNNNNNNNNNNNNNNЎЎЎю)-ZЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPT OR 0 FOR ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SELDSK: ; ; STORE DRе3яNNNNNNNNNNNNNNNNЎЎЎю)жСNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF ADD HL,DE ;HL = HOSTЫ·юNNNNNNNNNNNNNNNNNNЎЎЎю) ЕЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JR NZ,RW_RET ; ; IF ERROR THEN ABORT ; OR A,A JR NZ,RW_RET ; ; NO ERROR/DIRECTORY WRITE ; XOR A,A ;BUFFER = CТ&ю9NNNNNNNNNNNNNNNNNЎЎЎю))fNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********** ; CPM_WR: ; LD HL,LL_WRIT JP CPM_RW ;********************************************************************СpяNNNNNNNNNNNNNNNNЎЎЎю)ѓАNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*** ; ; CPM_RD PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= сяОNNNNNNNNNNNNNNNNNЎЎЎю)lNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************ ; RD_WR: LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; ; EXECUвяІNNNNNNNNNNNNNNNNЎЎЎю)"J‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_DPB) ; ; WRITE THE BUFFER DATA ; CALL BUF_WR ; ; RESTORE THE PTRS ; POP IY POP IX ; ; IF ERROR THEN RETURN ФяNNNNNNNNNNNNNNNNNЎЎЎю)(ҐZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFORMS THE PHYSICAL READ FROM THE HOST DISK INTO BLKBUF. ; ENTRY- (BUF_DSK)= DISK # TO READ FROM ; (BUF_TRK)= TRACK # TO READ YляОNNNNNNNNNNNNNNNNNЎЎЎю).ьNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIVE # FOR FUTURE USE ; LD A,C LD (CPM_DSK),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISщЕюNNNNNNNNNNNNNNNNNNЎЎЎю)ХаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADDRESS ; LD DE,(CPM_DMA) ;GET/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? OR A,A JP NZ,RWЧSяђNNNNNNNNNNNNNNNNNЎЎЎю)цпNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыLEAN LD (BUF_MOD),A ; CALL BUF_WR ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; ; DONE, RESTORE & RШЃюINNNNNNNNNNNNNNNNNЎЎЎю)WNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******** ; ; CPM_RD2 PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TАMяьNNNNNNNNNNNNNNNNЎЎЎю)°сNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - »яятNNNNNNNNNNNNNNNNЎЎЎю)_:NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTE LOW LEVEL READ OR WRITE (ON STACK) ; RET ;***************************************************************************„ТяВNNNNNNNNNNNNNNNNЎЎЎю)#y NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIT ; OR A,A RET NZ ; ; ELSE CLEAN BUFFER ; LD (BUF_MOD),A RET ;**********************************************"я“NNNNNNNNNNNNNNNNNЎЎЎю))–kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFROM ; (BUF_SEC)= SECTOR # TO READ FROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*****`ядNNNNNNNNNNNNNNNNNЎЎЎю)/<НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HL= 0) ; RET NZ ; ;ъўяNNNNNNNNNNNNNNNNЎЎЎю)ЂіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (BUF_MOD),A ; ; SAVEдXяњNNNNNNNNNNNNNNNNЎЎЎю)oxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETURN ; RW_RET: OR A,A ;SET RESULT STATUS FLAG POP IY POP IX ; RET ;**********************************************X'юBNNNNNNNNNNNNNNNNЎЎЎю)ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPBєyя“NNNNNNNNNNNNNNNNNЎЎЎю) ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; CPM_RD: XGю NNNNNNNNNNNNNNNNЎЎЎю) iNNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ; ; BUF_FLSH FLUSHES THE BUFFER DATA IF MODIFIED ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO "8яNNNNNNNNNNNNNNNNNЎЎЎю)$а7NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы****************************** ; ; BUF_WR PERFORMS THE PHYSICAL WRITE FROM BLKBUF TO THE HOST DISK. ; ENTRY- (BUF_DSK)= DISK vЇяОNNNNNNNNNNNNNNNNNЎЎЎю)*Г8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************************** ; BUF_RD: ; LD HL,LL_READ ; ; COMMON CODE ; BЗЌяINNNNNNNNNNNNNNNNNЎЎЎю)0/ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ELSE SAVE PTR ; LD (CUR_DDT),HL ; ; FETCH FLAGS ; INC HL ;EXE +1 INC HL ;FLGS LD C,(HL) ; ; FETCH DISK PAыJюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNNЃРЃќ‚jѓ7„…Т… †m‡;€ ‰Ц‰ЈЉq‹>ЊЌЪЌЁЋvЏCђ‘Я‘’{“H”•д•±–Ђ—M™к™№љ‡›Uњ"ќрќЅћ‹џY &ЎуЎАўЋЈ\¤+ҐщҐЗ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю*µИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRAMETER BLOCK ADDRESS ; INC HL ;DRV INC HL ;DPB_PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPB),DE ; ; FETCH DISK8[ядNNNNNNNNNNNNNNNNNЎЎЎю*nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALL CASES) ; LD A,(IOPB + PB_ST2O) CP A,-1 ;-1:NONE, 0:JADE, 1:DESCRIPTOR, 2: EXTENDED, ; 3: PARTITIONED, ID JR Zё„яЙNNNNNNNNNNNNNNNNЎЎЎю* рҐNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы_HEADS) ; SEL1: LD (IX + DDT_HDS),A ; ; RETURN DRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDON<№юrNNNNNNNNNNNNNNNNЎЎЎю*РЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************************** ; HOME: ; ; IF PENDING WRITE (BUFFER DIRTY) T]хюrNNNNNNNNNNNNNNNNЎЎЎю*?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (CPM_SEC),BC RET ;**************************************************************************** ; ; SET TRANSFER A“8яlNNNNNNNNNNNNNNNNNЎЎЎю*•ґNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TAяятNNNNNNNNNNNNNNNNЎЎЎю*%кNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT PTR ; IY= DPB Pо‡юNNNNNNNNNNNNNNNNNNЎЎЎю*+\еNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы(WR_PROT) OR A,A JR NZ,DO_ERR ; ; INHIBIT UPLOAD ; LD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A ; ; CALCULATE DOWNLІOящNNNNNNNNNNNNNNNNЎЎЎю*а›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PARAMETER HEADER ADDRESS ; INC HL ;DPH PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPH),DE EX DE,HL ;PUT DPH PTR IN HЂXя“NNNNNNNNNNNNNNNNNЎЎЎю*PNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,LGDEF ; ; ELSE IF OLD FORMATS THEN PAD DPB DATA ; CP A,3 JR NC,IDOK ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITH 0S LБкя“NNNNNNNNNNNNNNNNЎЎЎю*ҐцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: BIT 4,(IX + DDT_FLG) JR Z,LGCKFD ; ; ELSE USE HARD DISK DEящNNNNNNNNNNNNNNNNЎЎЎю*INNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHEN IGNORE ; LD A,(BUF_MOD) OR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HOME2: ; ; JUST SET ґятNNNNNNNNNNNNNNNNЎЎЎю*jANNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDDR ; ENTRY- BC= ADDRESS ; EXIT - A= ? ; ;**************************************************************************** ; S€яЙNNNNNNNNNNNNNNNNNЎЎЎю* ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL чУяBNNNNNNNNNNNNNNNNЎЎЎю*&*№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_R3ляњNNNNNNNNNNNNNNNNЎЎЎю*,ЕrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOAD BYTE COUNT ; LD A,(IY + DPB_PSH) ;USE SHIFT FACTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;START WITH 128 BYTES ; кятNNNNNNNNNNNNNNNNЎЎЎю*УЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL FOR RETURN ; ; IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) ;0: LOGON, 1:INHIBIT OR A,Я{яBNNNNNNNNNNNNNNNNЎЎЎю* BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (пMяrNNNNNNNNNNNNNNNNЎЎЎю*"СMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C A_ћятNNNNNNNNNNNNNNNNNЎЎЎю*(>†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++ ; ; RETURN BIOS VERSION # FUNCTION #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++И3яОNNNNNNNNNNNNNNNNNЎЎЎю*.” NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION ; ENTRY- C= DRIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, C= ? ; ;+++++++++++++‘;я®NNNNNNNNNNNNNNNNNЎЎЎю*NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUTPUT FUNCTION # ; POP BC LD A,MF_PHXB CALL XMROM ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,°!ятNNNNNNNNNNNNNNNNЎЎЎю+YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_GCAL JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 9іОябNNNNNNNNNNNNNNNNЎЎЎю+¶SNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++ ; CI: LD A,MF_CI JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; —"юNNNNNNNNNNNNNNNNЎЎЎю+"ђЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++ ; READER: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;******************************************…љядNNNNNNNNNNNNNNNNNЎЎЎю+(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++ ; LISTST: LD A,MF_LOS JP XMROM ;***********************************************************************яNNNNNNNNNNNNNNNNNNЎЎЎю+.Х¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ХЃяИNNNNNNNNNNNNNNNNNЎЎЎю+ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NON-DISK PROCEDURES ;*************************************************************************** ; ; NEWLINE PROCEDURE ; ;Rdя'NNNNNNNNNNNNNNNNNЎЎЎю+,·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF TЯзяNNNNNNNNNNNNNNNNNЎЎЎю+АNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++А\юlNNNNNNNNNNNNNNNNЎЎЎю+j©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы2H ; EXIT - A= SECONDS ; B= MINUTES ; C= HOURS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++`=юrNNNNNNNNNNNNNNNNЎЎЎю+…bNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;+++++++++++++++++++++++++++++++++++++++++++++++++ юBNNNNNNNNNNNNNNNNЎЎЎю+#ЈшNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*****************************************љ‚яNNNNNNNNNNNNNNNNNЎЎЎю+)L3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;********************************QсюHNNNNNNNNNNNNNNNNNЎЎЎю+/ж•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDM ;############################################################################ ; ; DISK DRIVER TABLES (DDT) ; ;###ЫјятNNNNNNNNNNNNNNNNЎЎЎю+ZлNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************************************** ; CRLF: LD C,CR CALL COC LD C,LF JP COC *сяњNNNNNNNNNNNNNNNNЎЎЎю+µ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW C-щюrNNNNNNNNNNNNNNNNЎЎЎю+•\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++++ДЃюINNNNNNNNNNNNNNNNNЎЎЎю+z—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++ ; CLKTIM: LD A,MF_GTIM JP XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++‡Ия„NNNNNNNNNNNNNNNNЎЎЎю+Р1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++ ; CNSCK: LD A,MF_CIS JP XMROM ;**********************************************************eнюHNNNNNNNNNNNNNNNNNЎЎЎю+$:oNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************** ; PUNCH: RET ;***********************************************************************PyяИNNNNNNNNNNNNNNNNNЎЎЎю+*`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZю‰я$NNNNNNNNNNNNNNNNNЎЎЎю+0хШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################################### ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIDOяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNђNNNNNюЂМЃљ‚gѓ5„…С…џ†l‡:€‰Х‰ўЉp‹=ЊЌШЌ§ЋuЏCђ‘а‘®’|“I”•е•І–Ђ—M™й™ёљ†›Uњ#ќсќїћЌџ[ (ЎхЎВўђЈ]¤+ҐщҐЗ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю+фLNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыVER DDT_FLG DS 1 ;FLAGS BIT DEF. ; 0 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} ; 4 1: HARD DISK DRIVE ; DDЦ¤ядNNNNNNNNNNNNNNNNNЎЎЎю+^кNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR K;ю$NNNNNNNNNNNNNNNNЎЎЎю+ ±!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; C DDT_2: ALLDRV HDEXEC,6,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,6,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV HUятNNNNNNNNNNNNNNNNЎЎЎю+‘]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################################### ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFъbядNNNNNNNNNNNNNNNNЎЎЎю+~–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX В—юINNNNNNNNNNNNNNNNNЎЎЎю+Ф0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER€ЮятNNNNNNNNNNNNNNNNЎЎЎю+%>nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY ; ;############################################################################ ; LOGIOPB: DB PB_LOGC ;COMMAND DB 0 ;D·ябNNNNNNNNNNNNNNNNЎЎЎю++aNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DS 2 ;XFER ADDR CPM_DMAB DS 1 ;XFER BANK ; ; ; BUFFER IOPB OVERLAY ; BUF_DSK DS 1 ;BUFFER DISK NUMBER BUF_TRK DS 2 ;BUm?юrNNNNNNNNNNNNNNNNЎЎЎю+ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT_DRV DS 1 ;PHYSICAL DRIVE # DDT_DPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLЦйюHNNNNNNNNNNNNNNNNNЎЎЎю+NФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDB #FLG ;FLAGS DB #PD ;MONITOR PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR ЗляЙNNNNNNNNNNNNNNNNЎЎЎю+дrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDEXEC,7,10H,D4DPB,D4DPH,4,0 ; F DDT_5: ALLDRV HDEXEC,7,12H,D5DPB,D5DPH,4,8000H ENDIF ;#############################aя„NNNNNNNNNNNNNNNNЎЎЎю+КNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 aЅю NNNNNNNNNNNNNNNNЎЎЎю++ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET ?’яЙNNNNNNNNNNNNNNNNNЎЎЎю+ Б›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF %»яВNNNNNNNNNNNNNNNNЎЎЎю+&k=NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRIVE DW 0 ;TRACK DW ID_SECT ;SECTOR DB 0 ;FLAGS DW BLKBUF ;DMA DB 0 ;BANK DW 0 ;COUNT ; WR_PROT DB -1 ;/0: WRITE*»яNNNNNNNNNNNNNNNNЎЎЎю+,„цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFFER TRACK NUMBER BUF_SEC DS 2 ;BUFFER SECTOR NUMBER DS 1 ;FLAGS BUF_DMA DS 2 BUF_DMAB DS 1 ;BANK # ; ; ; BLOCKING BUFе6яrNNNNNNNNNNNNNNNNЎЎЎю+’.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DE)ѓяОNNNNNNNNNNNNNNNNNЎЎЎю+ }еNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DB #HDS ;HEADS DW #SOF ;SECTOR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,6,10H,D0DPB,D0DPH,4,0 ; bdяgNNNNNNNNNNNNNNNNNЎЎЎю+ЧCNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################### ; ; MESSAGES ; ;##########################################################†‡я„NNNNNNNNNNNNNNNNЎЎЎю+;ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 яЩюNNNNNNNNNNNNNNNNNNЎЎЎю+фNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SжюNNNNNNNNNNNNNNNNNNЎЎЎю+!тЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO N@юNNNNNNNNNNNNNNNNNNЎЎЎю+'XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PROTECTION ENABLED ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;####ХГяИNNNNNNNNNNNNNNNNЎЎЎю+-·ЗNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыFER MAINTENANCE ; BUF_PSEC DS 2 ;BUFFER PHYSICAL SECTOR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER BUF_MOD DS 1 ;0:чЮяВNNNNNNNNNNNNNNNNЎЎЎю+№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFINE THE STRUCTURE SIZE ; DDT_SIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@к0юNNNNNNNNNNNNNNNNNNЎЎЎю+ (¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы B DDT_1: ALLDRV HDEXEC,6,12H,D1DPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,7,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEX§Љя NNNNNNNNNNNNNNNNNЎЎЎю+ДNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы################## ; MSGLE: DM CR,LF,'LOAD ERROR: ' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WP_ERM: DM CR,LF|ядNNNNNNNNNNNNNNNNЎЎЎю+nЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;LOGICAL DRIVE SECTOR OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;##################################fяВNNNNNNNNNNNNNNNNЎЎЎю+ЃcNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOF) ; ; ; DB 4 ;HEADS ;############################################################################ ; ; DRIVE PARAMл0яdNNNNNNNNNNNNNNNNЎЎЎю+"§щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATI©ятNNNNNNNNNNNNNNNNNЎЎЎю+(H2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################################## ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO„›яОNNNNNNNNNNNNNNNNNЎЎЎю+.в”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BUFFER CLEAN, /0: BUFFER DIRTY (MODIFIED) ; BUF_DDT DS 2 ;BUFFER DDT PTR BUF_DPB DS 2 ;BUFFER DPB PTR ; RSFLAG: DS 1 ;0: NВ яОNNNNNNNNNNNNNNNNNЎЎЎю+8€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@ ; ; MACRO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FLG= DRIVE FLAGS”9яђNNNNNNNNNNNNNNNNNЎЎЎю+‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEC,7,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXEC,1,0,D5DPB,D5DPH,1,0ю NNNNNNNNNNNNNNNNNЎЎЎю+ч?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,'W-PROT Error!' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;#######################################ЉVюNNNNNNNNNNNNNNNNNЎЎЎю+]™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################## ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;#####################################©јюrNNNNNNNNNNNNNNNNЎЎЎю+ІRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETER HEADER AREA ; 1 PER DRIVE ; ;############################################################################ ; ;@@@@@@@@@pОюrNNNNNNNNNNNNNNNNЎЎЎю+#”ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DDм¬яИNNNNNNNNNNNNNNNNNЎЎЎю+){NNNNNNNNNNNNNNNNNNNNNNЎЎЎы MATCH THE IOPB DATA ; ;############################################################################ ; ; CP/M IOPB OVERLAYўюHNNNNNNNNNNNNNNNNNЎЎЎю+/СҐNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERATION TYPE FROMWя„NNNNNNNNNNNNNNNNЎЎЎю+mЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; #DPB= DPB ADDRESS ; #DPH= DPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BяВNNNNNNNNNNNNNNNNЎЎЎю+‚NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ENDIF IF BOOT = 3 ; A DDT_0: ALLDRV FD8EXEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXEC,1,0,D1DPB,D1DPH,1,0 ЄКю9NNNNNNNNNNNNNNNNЎЎЎю+ўlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################### ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;######L|юHNNNNNNNNNNNNNNNNNЎЎЎю+M§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################### ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH)›TядNNNNNNNNNNNNNNNNЎЎЎю+зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@S6юHNNNNNNNNNNNNNNNNNЎЎЎю+$ _NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы + 1 LIST ON ENDM ;############################################################################ ; ; LOGON IOPB OVERLAШsюHNNNNNNNNNNNNNNNNNЎЎЎю+*.PNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; CPM_DSK DS 1 ;LOGICAL DRIVE CPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER DS 1 ;FLAGS CPM_DMAvШюнNNNNNNNNNNNNNNNNNЎЎЎю+0ВиNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOЂ…яОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃРЃќ‚jѓ7„…Т… †m‡;€‰Ц‰ЈЉq‹?Њ ЌЫЌЁЋvЏDђ‘б‘Ї’}“J”•ж•і–Ѓ—O™к™№љ€›Wњ$ќтќАћЌџ[ *ЎшЎЖў”Јa¤0ҐюҐЛ¦ЋNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю,’QNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D) ; ; UNA_CNT: DS 1 ;# SECTORS REMAINING IN BLOCK (CLUSTER) UNA_DSK: DS 1 ;LAST „mю“NNNNNNNNNNNNNNNNNЎЎЎю,8чNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы PTR ;############################################################################ ; ; DRIVE ALLOCATION AREAS ; ;####СдяЙNNNNNNNNNNNNNNNNЎЎЎю, Ч 07700H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END Гсю NNNNNNNNNNNNNNNNЎЎЎю,%XsNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FUNCTION DEFINITIONS Thе M5в BIOУ functionу alloч programу tп modifщ BIOУ privatе Ќ datб withouф knowinз wherЪПюбNNNNNNNNNNNNNNNNNЎЎЎю,+{|NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы -1¬ thе Ќ functioо iу noф implementeд (illegal© Iж thе erroт codе iу -І Ќ theо onе oт morе argumentу arе iо error. ішюNNNNNNNNNNNNNNNNЎЎЎю,ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNALLOC DISK UNA_TRK: DS 2 ;LAST UNALLOC TRACK UNA_SEC: DS 2 ;LAST UNALLOC SECTOR ;###################################### ЙяИNNNNNNNNNNNNNNNNNЎЎЎю,(ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################################## ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ґ¬ю$NNNNNNNNNNNNNNNNЎЎЎю,‚oNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;###############################################################Я ю9NNNNNNNNNNNNNNNNЎЎЎю,nЧNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDRM- DIRECTORY SIZE -1 DPB_AL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS+юNNNNNNNNNNNNNNNNЎЎЎю,MШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORD UPPER BITS) ; DPB_SECO DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SZ DS 0 ENDM ;(VядNNNNNNNNNNNNNNNNNЎЎЎю, §†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;######################################оИю'NNNNNNNNNNNNNNNNNЎЎЎю,& NNNNNNNNNNNNNNNNNNNNNNЎЎЎые thе datб iу locateд withiо thе BIOS® Ќ Thesе functionу arе accesseд viб thе RESTARФ 28И vectoт iо loч Ќ memorщ (0028H)® T,GюNNNNNNNNNNNNNNNNNЎЎЎю,,влNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNo. Description 0 Return BIOS Version Number Entry- A= 0 Exit - HL= Version Number in hundredth«Жю NNNNNNNNNNNNNNNNЎЎЎю,ф3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### ; ; VARIABLES ; ;##################################################################\2ю!NNNNNNNNNNNNNNNNЎЎЎю, шNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$dюњNNNNNNNNNNNNNNNNЎЎЎю,±^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;######################################################################П†ятNNNNNNNNNNNNNNNNЎЎЎю,]жNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- # DIRECTORY SECTORS CHECKED ; (DRM +1) / 4 DPB_OFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DйняОNNNNNNNNNNNNNNNNNЎЎЎю,~йNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@™“яОNNNNNNNNNNNNNNNNNЎЎЎю,!”·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы M5b BIOS v3.16 FUNCTIONS INTERFACE SPECIFICA…zязNNNNNNNNNNNNNNNNЎЎЎю,'>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыhiу vectoт iу initializeд tп б Jumр instructioо Ќ bщ thе BIOУ Warн Booф code® Thе functionу arе useд bщ puttinз thе Ќ functioо Q4юNNNNNNNNNNNNNNNNNЎЎЎю,-СЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыs {0.00 to 655.35} 1 Return Monitor Drive Number for CP/M Drive Number Entry- A= 1 C= CP/M driv}юBNNNNNNNNNNNNNNNNЎЎЎю,m¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## ; CUR_DPB DS 2 ;DRIVE TABLE PTR CUR_DDT DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR CUR_DPH DS 2 ;DPH PTR ; LOGRQ`4юNNNNNNNNNNNNNNNNNNЎЎЎю, N«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; CHK = DPB.CKS ; ALLDAL: MACRO #D LIST ON IF ((DD -UояВNNNNNNNNNNNNNNNNNЎЎЎю,ўNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы###### ; STRUCT 0 DPB_SPT DS 2 ;SPT- SECTORS/TRACK DPB_BSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1кюNNNNNNNNNNNNNNNNЎЎЎю,µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPB_PSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: AяОNNNNNNNNNNNNNNNNNЎЎЎю,з~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPB_SQюrNNNNNNNNNNNNNNNNЎЎЎю,"БдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION May 1,1992 REV. NC л юNNNNNNNNNNNNNNNNNЎЎЎю,(./NNNNNNNNNNNNNNNNNNNNNNЎЎЎыnumbeт iо thе A-register¬ anщ otheт requireд argumentу Ќ iо thе specifieд registers¬ anд executinз eitheт б RESTARФ 28И Ќ in4…юњNNNNNNNNNNNNNNNNЎЎЎю,.„‰NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыe number {0..15} Exit - A= {0..254}: Monitor drive number -2: Drive error BC,DE,HLн7юNNNNNNNNNNNNNNNNNNЎЎЎю,^•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы: DS 1 ;LOG ON REQUEST REG. ; ; BOOT DATA ; BD_SIZE EQU 16 ;MAX SIZE OF SYSTEM BOOT DATA BT_DATA DS BD_SIZE ;BOOT DIRECІАюNNNNNNNNNNNNNNNNNNЎЎЎю,}љNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 128 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) RРяЙNNNNNNNNNNNNNNNNNЎЎЎю,‘"NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыK= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;E1БюЩNNNNNNNNNNNNNNNNЎЎЎю,;„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы128, 1: 256, 2: 512, 3: 1024 DPB_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 $ЮюrNNNNNNNNNNNNNNNNЎЎЎю,ФONNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ ;ALLOCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 01”ю„NNNNNNNNNNNNNNNNЎЎЎю,#тХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GRH Enterprises 1129 Stonylake Ct Sunnyvale, CA .PA Љ.Jђю NNNNNNNNNNNNNNNNЎЎЎю,)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыstructioо oт Callinз (executing© thе locatioо aф 0028H® Alм Ќ functionу returо б valuе iо thе A-registeт anд flags® Iж thе ZкюњNNNNNNNNNNNNNNNNЎЎЎю,/·ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ? 2 Disable Logon Entry- A= 2 C= CP/M drive number {0..15} Exit - A= 0: Ok, /0: Ille·`яяЋNNNNNNNNNNNNNNNNNЎЎЎю,ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORY SYSTEM DATA SEGCNT DS 1 ;NUMBER OF BOOT DIRECTORY SEGMENTS SECCNT DS 1 ;SEGMENT SECTOR COUNT LDRPTR DS 2 ;SYSTEM DATA#QюNNNNNNNNNNNNNNNNNNЎЎЎю,д NNNNNNNNNNNNNNNNNNNNNNЎЎЎы>= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHEюятNNNNNNNNNNNNNNNNЎЎЎю,ДqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS ##юNNNNNNNNNNNNNNNNNЎЎЎю,+єNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ADDITIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USQ@юNNNNNNNNNNNNNNNNЎЎЎю,ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы23456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ - 8000H)пщюHNNNNNNNNNNNNNNNNNЎЎЎю,$kBNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE REVISION HISTORY REV DATE COMMENT NC 5-1-92 Initial release. .PA Љ.HE k›яуNNNNNNNNNNNNNNNNNЎЎЎю,*HMNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыerп Ќ flaз iу set¬ theо nп erroт haу occured» iж cleared¬ theо thе A-Ќ registeт containу aо erroт code® Iж thе erroт codе iуIжяИNNNNNNNNNNNNNNNNЎЎЎю,0¤хNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыgal drive BC,DE,HL= ? 3 Enable Logon Entry- A= 3 C= CP/M drive number {0..15} РјюйNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNюЂМЃ™‚gѓ5„…Р…ћ†k‡8€‰Ф‰ЎЉo‹<Њ ЌЧЌҐЋsЏAђ‘Э‘«’y“F”•в•Ї–}—K™з™µљ‚›Qњќлќёћ‡џU "ЎрЎЅўЊЈY¤'ҐхҐГ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю,ҐaNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Exit - A= 0: Ok, /0: Illegal drive BC,DE,HL= ? 4 Set Disk Format Entry- A= 4 ?џюHNNNNNNNNNNNNNNNNNЎЎЎю,ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 SEЙ¦ю$NNNNNNNNNNNNNNNNЎЎЎю, аNNNNNNNNNNNNNNNNNNNNNNЎЎЎы..n-1). This maintains more uniformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routines {Кю NNNNNNNNNNNNNNNNЎЎЎю,АpNNNNNNNNNNNNNNNNNNNNNNЎЎЎыse of ROM primitives. ; Moved system down to 60k. ; ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 B7@ю NNNNNNNNNNNNNNNNЎЎЎю,/»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIR.DEF ; ;============================================================================ LIST OFF *INCLUDE JDDCONT.DEF *INC·ЩюЙNNNNNNNNNNNNNNNNNЎЎЎю,…NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: Eю„NNNNNNNNNNNNNNNNЎЎЎю,%oCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE XюNNNNNNNNNNNNNNNNNNЎЎЎю,+LLNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы CALENDAR ENTRY TIMENT EQU RDBENT + 9 ;RETURN TIME ENTRY DKPENT EQU RDBENT + 0CH ;DISK PRIMITIVES ENTRY ;================#юBNNNNNNNNNNNNNNNNЎЎЎю,р2NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы C= CP/M drive number {0..15} E:HL= Disk descriptor sector image ptr Exit - A= 0: Ok, /0: Illegal 'ю“NNNNNNNNNNNNNNNNЎЎЎю,щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SEP(¤юNNNNNNNNNNNNNNNNЎЎЎю,µ_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыto monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR 8m|яВNNNNNNNNNNNNNNNNЎЎЎю,YзNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOS. ; Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGQію NNNNNNNNNNNNNNNNЎЎЎю,zиNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLUDE COMIOPB.DEF *INCLUDE JDDDISK.DEF *INCLUDE MONBOARD.DEF *INCLUDE IOBOARD.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INиююNNNNNNNNNNNNNNNNNЎЎЎю, ђ¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR DKPROM EQU PAGE0 + 40H ;DISK PRIMITIVES PROM # (STORED BY DKBOOT) DEFBFR EQU PAGE0 + 80qНюBNNNNNNNNNNNNNNNNЎЎЎю,&:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; LASTSEC EQU 45 ;LAST BOOT SECTOR ; STHD EQU 0 ;START ±7яDNNNNNNNNNNNNNNNNЎЎЎю,,ХЫNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы============================================================ ; ; ASCII CHARS ; ;============================================Бµю NNNNNNNNNNNNNNNNЎЎЎю,ГNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыdrive BC,DE,HL= ? )MяОNNNNNNNNNNNNNNNNNЎЎЎю, ,ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 83 GRH ; Move clock-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separatЩCюђNNNNNNNNNNNNNNNNNЎЎЎю,†nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы5 GRH ; Implemented hard disk drive 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user fr?ҐюNNNNNNNNNNNNNNNNЎЎЎю,jЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON to specify the ID sector & track. At same time, fix bug ; which did not specify the logon track. ; VERSN EQU '01' ; ;*–!я!NNNNNNNNNNNNNNNNЎЎЎю,IЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCLUDE CLOCK.DEF *INCLUDE SYSDIR.DEF LIST ON ;===========================================================================Г7юђNNNNNNNNNNNNNNNNNЎЎЎю,!Ј‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H +zёяОNNNNNNNNNNNNNNNNNЎЎЎю,' !NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD +lюHNNNNNNNNNNNNNNNNЎЎЎю,-жкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================ LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ яВNNNNNNNNNNNNNNNNЎЎЎю,Z”NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.2. °юђNNNNNNNNNNNNNNNNNЎЎЎю, y›NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыe CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard disk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to refleхчюrNNNNNNNNNNNNNNNNNЎЎЎю,•#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыiendly disk error options: Abort, Retry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; ; 3.00 -h=ятNNNNNNNNNNNNNNNNЎЎЎю,?…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************************************** SUBTTL SYSTEM DECLARATIONS ;=================CЗюBNNNNNNNNNNNNNNNNЎЎЎю,РNNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ; ; DISK OPERATING SYSTEM ADDRESSES ; ;============================================================================ NKS яdNNNNNNNNNNNNNNNNЎЎЎю,"цФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BFUNRST ; TPA: EQU 100H ;============================================================================ ; ; OTHER DECLARщ?ю NNNNNNNNNNNNNNNNNЎЎЎю,(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;========================================================================]ЇюNNNNNNNNNNNNNNNNNЎЎЎю,.і№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/nюђNNNNNNNNNNNNNNNNNЎЎЎю,iҐNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRIVEряNNNNNNNNNNNNNNNNЎЎЎю,JЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыct half size directory, but keep ; allocation for 1k directory ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to relhmяЙNNNNNNNNNNNNNNNNNЎЎЎю,¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables andдюNNNNNNNNNNNNNNNNЎЎЎю,ґNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы=========================================================== ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE JDDDISK.фяВNNNNNNNNNNNNNNNNЎЎЎю,гNNNNNNNNNNNNNNNNNNNNNNЎЎЎыYS: EQU 60 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALU]ю9NNNNNNNNNNNNNNNNЎЎЎю,#ЕеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATIONS ; ;============================================================================ SECSZ: EQU 128 NDRVS: EQU 6 IF BOГњяИNNNNNNNNNNNNNNNNNЎЎЎю,)*.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы==== ; ; ADDRESSES ; ;============================================================================ CALROM EQU 7 ;CALENDAR 'я'NNNNNNNNNNNNNNNNNЎЎЎю,/Ђ€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT ю NNNNNNNNNNNNNNNNЎЎЎю,<цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MODUЎ>ю!NNNNNNNNNNNNNNNNЎЎЎю,У=NNNNNNNNNNNNNNNNNNNNNNЎЎЎыate to ISASI control of JADE ; FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value (0c№юBNNNNNNNNNNNNNNNNЎЎЎю,уANNNNNNNNNNNNNNNNNNNNNNЎЎЎы new function to return ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented us•ю“NNNNNNNNNNNNNNNNNЎЎЎю,ЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDEF ; INCLUDE MONBOARD.DEF ; INCLUDE IOBOARD.DEF ; INCLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOCK.DEF ; INCLUDE SYSNхюrNNNNNNNNNNNNNNNNЎЎЎю,¶,NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSлЅюHNNNNNNNNNNNNNNNNNЎЎЎю,$\rNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT = 10H ; ; 8" HARD DISK BOOT DATA ; LASTSEC EQU 47 ;LAST BOOT SECTOR ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK юђNNNNNNNNNNNNNNNNNЎЎЎю,*}NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыROM SELECT # RDBENT EQU 0F800H ;READ CLOCK BUFFER ENTRY SETENT EQU RDBENT + 3 ;SET CLOCK ENTRY CALENT EQU RDBENT + 6 ;RETURN§яЙNNNNNNNNNNNNNNNNNЎЎЎю,0“ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVEєяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNЃРЃћ‚kѓ8„…У…Ў†n‡=€‰Ш‰ҐЉs‹@ЊЌЬЌ«ЋyЏFђ‘в‘Ї’}“J”•ж•і–‚—O™л™єљ€›Vњ#ќсќїћЋџ\ )ЎцЎГў‘Ј^¤,ҐъҐИ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю-деNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDјю·NNNNNNNNNNNNNNNNNЎЎЎю-NCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL \‘ю$NNNNNNNNNNNNNNNNЎЎЎю- Ў€NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANG`юBNNNNNNNNNNNNNNNNЎЎЎю-ЃфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM»яВNNNNNNNNNNNNNNNNЎЎЎю-n?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;---------------------------------------------------------- WARM: II¤ю NNNNNNNNNNNNNNNNNЎЎЎю-Д™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DKPROM + 1) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK L©ю„NNNNNNNNNNNNNNNNЎЎЎю-%.ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BTSEC INC (HL) ; LD DE,SECSZ ;DMA := DMA + SECTOR:fюNNNNNNNNNNNNNNNNNNЎЎЎю-+ ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LЁюBNNNNNNNNNNNNNNNNЎЎЎю-±¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF ENDIF ;; ENDM LIST ON ENDM SUBTTL BIOS CODE ORG BIOS ;-----------------------------------------------------чcю'NNNNNNNNNNNNNNNNNЎЎЎю-^}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; THESE BOOT PARAMS MUST RESIDE AS DEFINED tюNNNNNNNNNNNNNNNNЎЎЎю-фЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE. ; ;############################################################################ DIRBF: EQU $ ;BUFFER BEGINNING ;----+Pю„NNNNNNNNNNNNNNNNЎЎЎю-cNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;############################################################################ ; ; SIGN-ON MESSAGE ; ;#################N~юЙNNNNNNNNNNNNNNNNЎЎЎю-;lNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; SET INTERRUPT MODE TO 2 ; IM 2 ; ;[ю“NNNNNNNNNNNNNNNNNЎЎЎю- С2NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULTRоюNNNNNNNNNNNNNNNNЎЎЎю-&{”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBCХАюњNNNNNNNNNNNNNNNNЎЎЎю-,”_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (PAGE0 + 5),A LD (PAGE0 + 6),HL ; ; INIThюNNNNNNNNNNNNNNNNЎЎЎю-‚‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------- ; ; BIOS JUMP VECTOR TABLE ; ;--------------------------------------------------------------------фHюNNNNNNNNNNNNNNNNNЎЎЎю- mLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. ; THESE 2 WORDS ARE REFERENCED BY THE BOOT CODE IN_ЂюNNNNNNNNNNNNNNNNNЎЎЎю-ЗкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------------------------------------ ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALг%яВNNNNNNNNNNNNNNNNЎЎЎю-+RNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBcdюђNNNNNNNNNNNNNNNNNЎЎЎю-]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENABLE INTERRUPT VECTOR 7 ; IN A,(INTMSK) AND A,7FH OUT (INTMSK),A ; ; FINALLY ENABLE VECTORED INTERRUPTS ; IN ?юђNNNNNNNNNNNNNNNNNЎЎЎю-!вNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы BUFFER) CALL SETDMA ; LD BC,?DIRSEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CeюNNNNNNNNNNNNNNNNЎЎЎю-'HҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF AT BIOSsMяОNNNNNNNNNNNNNNNNЎЎЎю--§nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD ‹CятNNNNNNNNNNNNNNNNЎЎЎю-NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы-------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;CONSOLE INPUT JP ж\юBNNNNNNNNNNNNNNNNЎЎЎю- 8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S LENGTH. ; ;###########################################################3жятNNNNNNNNNNNNNNNNNЎЎЎю-Ф§NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL BIOS PARAMS ; ;---------------------------------------------------------------------------- INIT: ; ; SET TEMPORARY STAц8ю NNNNNNNNNNNNNNNNЎЎЎю-~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers 3.' DM HIGH VERSN , LOW VERSN,CR,LF +юNNNNNNNNNNNNNNNNNNЎЎЎю-‘КNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,(MONSTS) OR A,MONIE OUT (MONSTS),A EI ENDIF ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ; ; INSURE MONITOR ROM Ґ!ю„NNNNNNNNNNNNNNNNЎЎЎю-"·PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) CP A,?NEWDIR JR C,WEROR ; ; SET UP TOЦю NNNNNNNNNNNNNNNNNЎЎЎю-(X›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы THEN DONE ; LD DE,BIOS - BDOS SBC HL,DE JR NC,WZRPG ; ; ELSE READ NEXT SECTOR ; JP WREAD ; ; ELSE SET UP & REэќюNNNNNNNNNNNNNNNNNЎЎЎю-.т=NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ;Ђ§юHNNNNNNNNNNNNNNNNNЎЎЎю-(!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCOC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELDSK ;SELECT DISK DгюђNNNNNNNNNNNNNNNNNЎЎЎю-.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################# BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD INIT1: 6°ядNNNNNNNNNNNNNNNNNЎЎЎю-з–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS ENABLED ; CALL GETMON ; ; INIT DEFAULT DRIVE ; LD 4ћюaNNNNNNNNNNNNNNNNЎЎЎю-M0NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT П¬ятNNNNNNNNNNNNNNNNЎЎЎю-ўыNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSTILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST ISHA HOST ADAPTER FOR A HUNG CONDITION AND CLEAR IF TRUE ; IN A †ятNNNNNNNNNNNNNNNNЎЎЎю-#„aNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOAD CCP/BDOS ; LD HL,(DEFBFR + ?DSBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + ?DSCCPS) ;FETCH CCP TRK/SEюNNNNNNNNNNNNNNNNNNЎЎЎю-)kЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAD BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,A CALL SETSEC ; LD C,H CALL SETTRK ;ю$NNNNNNNNNNNNNNNNNЎЎЎю-/БNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALµАятNNNNNNNNNNNNNNNNЎЎЎю-}rNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP D€юNNNNNNNNNNNNNNNNЎЎЎю-’№NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыJR INIT ;############################################################################ ; ; DIRECTORY SECTOR BUFFER STARTS wю9NNNNNNNNNNNNNNNNЎЎЎю-ІЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,(DKPROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL[юNNNNNNNNNNNNNNNNNЎЎЎю-]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;---------------------------------------------------------- ; ; WARM REBOOT E•ЎюBNNNNNNNNNNNNNNNNЎЎЎю-чЁNNNNNNNNNNNNNNNNNNNNN!фЎЎЎы,(HSTATUS) ;IF HOST ADAPTER BUSY THEN BIT HBUSYB,A JR Z,NTHUNG ; LD A,DDCLR LD (IOPB + PBCMDO),A CALL XPRIM ; NTHUNRnюЙNNNNNNNNNNNNNNNNNЎЎЎю-$цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CAL3яОNNNNNNNNNNNNNNNNNЎЎЎю-*>щNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; = ю'NNNNNNNNNNNNNNNNNЎЎЎю-0ТANNNNNNNNNNNNNNNNNNNNNNЎЎЎыLED ; IN A,(CLKDAT) ;IF CLOCK NOT PRESENT THEN TURN OFF CLOCK DRIVE AND A,11000000B ;TEST UNUSED BUT DRIVEN BITS (1S IF NOTц§юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNюЂНЃ›‚iѓ7„…Т…џ†l‡:€‰Х‰ўЉp‹=ЊЌЩЌЁЋvЏDђ‘а‘’{“H”•д•±–—L™и™¶љ„›Rњ ќнќєћ‰џW $ЎсЎѕўЊЈY¤'ҐхҐД¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю-УХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THERE) LD A,38H ;COND. JR (ON) JR Z,CLKON ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK)®CюHNNNNNNNNNNNNNNNNNЎЎЎю-ysNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCT WRITE OP JP DISKOP ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUiЦяЙNNNNNNNNNNNNNNNNЎЎЎю- –ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRE ADDRESS INC HL LD D,(HL) INC HL LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TAB]ЋятNNNNNNNNNNNNNNNNЎЎЎю-¶ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL TRNONE ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + IDFLGO) AND Aю7ю„NNNNNNNNNNNNNNNNЎЎЎю-YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP ЄґюNNNNNNNNNNNNNNNNNЎЎЎю-у©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;*****************************************************б^юдNNNNNNNNNNNNNNNNЎЎЎю-%чNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++ SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = ЕYюBNNNNNNNNNNNNNNNNЎЎЎю-+:шNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A LD (IOPB + PBDMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,2 LD (IOPB + PBSECO),HL ; ; SET DESCRIPTOR SECTg7ю„NNNNNNNNNNNNNNNNЎЎЎю-††NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A ; ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++"юяИNNNNNNNNNNNNNNNNNЎЎЎю-iMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR л/яИNNNNNNNNNNNNNNNNЎЎЎю-ГлNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLE ADDRESS ; LD HL,(BTDRV) LD H,0 ADD HL,HL ;DISK # * 16 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,D0DPH ADD HL,DE X^ю NNNNNNNNNNNNNNNNЎЎЎю-/SNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,[1 SHL DFDTDB] OR [1 SHL DFHARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; NOX: CALL DPBA№ЪятNNNNNNNNNNNNNNNNЎЎЎю-\NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL LD BC,DPBSZ LDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ;********ИзядNNNNNNNNNNNNNNNNNЎЎЎю- жNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** SETSEC: LD (BTSEC),BC RET ;*******************************************************************+[юNNNNNNNNNNNNNNNNЎЎЎю-&L¤NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) •ҐяВNNNNNNNNNNNNNNNNЎЎЎю-,ЈoNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + PBTRKO),HL ; ; PASS COMMAND TO EXECUTOR ; LD A,DDL¤Їю NNNNNNNNNNNNNNNNЎЎЎю-µ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROb,яОNNNNNNNNNNNNNNNNNЎЎЎю- Z|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SELDSK: ; ; ASSUME ERROR ; LD HL,0 ; ?юdNNNNNNNNNNNNNNNNNЎЎЎю-рЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) CPL OR A,C AND A,1 RET Z ; ; EGzяВNNNNNNNNNNNNNNNNЎЎЎю-bNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD ;GET ADDR OF DPB LD HL,DEFBFR + IDSPTO LD BC,DPBSZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + IPюNNNNNNNNNNNNNNNNNNЎЎЎю-?mNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ;T3ю!NNNNNNNNNNNNNNNNЎЎЎю-!Х3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********* ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= 0 ; ;****************************************************jЖюњNNNNNNNNNNNNNNNNЎЎЎю-'•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD ‚xю'NNNNNNNNNNNNNNNNЎЎЎю--ђ^NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOG JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON DISK I/O CODE =mюNNNNNNNNNNNNNNNNЎЎЎю-, NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKRD: LD A,DDRDS ;SELECT READ OP JP \…яВNNNNNNNNNNNNNNNNЎЎЎю- /NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; IF UNSUPPORTED DRIVE REQUESTED THEN RETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USEµeюЙNNNNNNNNNNNNNNNNNЎЎЎю-г—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLSE LOG ON DRIVE ; LD (DTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL 3ћюdNNNNNNNNNNNNNNNNЎЎЎю-I1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDFLGO ; SEL1: PUSH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; j«я\NNNNNNNNNNNNNNNNЎЎЎю-¦ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** HOME: LD BC,0 ;***************************А]яВNNNNNNNNNNNNNNNNЎЎЎю-"Ђ`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************ SETDMA: LD (BTDMA),BC XOR A,A LD (BTDMAX),A RET ;++++++++++++++++++++++++++++++++++++++++++©hю„NNNNNNNNNNNNNNNNNЎЎЎю-(o«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL,BC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;F¤юNNNNNNNNNNNNNNNNNNЎЎЎю-.Е NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKOP: ; ; cГюNNNNNNNNNNNNNNNNNNЎЎЎю-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDISKOP ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A=є]ю'NNNNNNNNNNNNNNNNNЎЎЎю-<NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; LD (BTDRV),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL REІГядNNNNNNNNNNNNNNNNNЎЎЎю-Р¦NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыFIRMWARE REVISED LD (IOPB + PBST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOхјяаNNNNNNNNNNNNNNNNNЎЎЎю-zNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыRETURN DRIVE TABLE PTR ; LD HL,(DTPTR) XOR A,A RET ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BT™юrNNNNNNNNNNNNNNNNЎЎЎю-•ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*********************************ю9NNNNNNNNNNNNNNNNЎЎЎю-#іQNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= уІюђNNNNNNNNNNNNNNNNNЎЎЎю-)\љNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++№Чю$NNNNNNNNNNNNNNNNNЎЎЎю-/цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRV) IF STHD <> 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; Х ю„NNNNNNNNNNNNNNNNЎЎЎю-АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* SETTRK: LD (BTTRK),BC RET ;***********************************************^Ћю“NNNNNNNNNNNNNNNNNЎЎЎю-$*ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR (BC) + 1 ; BC= UNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++ЩuюNNNNNNNNNNNNNNNNNNЎЎЎю-* ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PBDMAO),HL XOR AKЌяИNNNNNNNNNNNNNNNNNЎЎЎю-0еqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ;FETCH TABLE BASE ; LD HL,DKOPRETP-юђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNЃРЃќ‚jѓ8„…Ф…Ў†n‡<€ ‰Ш‰ҐЉs‹AЊЌЮЌЋ{ЏIђ‘з‘ґ’‚“O”•л•ё–†—T"™с™їљЌ›\њ)ќчќДћ“џa .ЎыЎИў—Јe¤3Ґ¦Р¦ЋNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю.9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRESS PREFETCHED FROM TABLE JP (HL) ; ; DRIVEkЯяИNNNNNNNNNNNNNNNNNЎЎЎю.ХџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER JR Z,DKOPLP ; ; ELSE IF AюЙNNNNNNNNNNNNNNNNЎЎЎю. :TNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE INC HL LD (HL),D RET ;**************************************************************************** ; ; SET NO SECе‹юBNNNNNNNNNNNNNNNNЎЎЎю.(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++О я9NNNNNNNNNNNNNNNNЎЎЎю.хгNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,DKPENT ;PRIMITIVE ENTRY LD A,(DKPROM) ;FETCH PROM # CALL EXROM ;EXECUTE THE PRIMITIVE POP IX ; ; RETURN THE ‹юINNNNNNNNNNNNNNNNNЎЎЎю._ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы + PBTRKO) CP A,1 LD A,(IOPB + PBSECO) JR C,FD8X20 JR Z,FD8X21 ; ; DATA TRACKS ; LD C,(IY + DVRDSPT) ; ; COMMЇ¬юNNNNNNNNNNNNNNNNЎЎЎю.%µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTION # NOT IN TABLE THEN RETURN -1 ; LD HL,BFUNTBL LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENЂйюBNNNNNNNNNNNNNNNNЎЎЎю.+–NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - Hy&юrNNNNNNNNNNNNNNNNЎЎЎю.*jNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыR RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERRm?яИNNNNNNNNNNNNNNNNNЎЎЎю.ЕЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I'І5яИNNNNNNNNNNNNNNNNЎЎЎю.oNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;**************************************************************************** јою NNNNNNNNNNNNNNNNЎЎЎю.ѓїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HDEXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,e…юдNNNNNNNNNNNNNNNNЎЎЎю. °NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCOMMAND RESULTS STATUS ; LD A,(IOPB + PBSTATO) OR A,A RET SUBTTL JADE FLOPPY DRIVER ROUTINES ;++++++++++++++++++++‹3юNNNNNNNNNNNNNNNNNЎЎЎю. JоNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON SIDE SELECT CODE ; FD8X2: INC C SUB A,C JR C,SPTOK ; INC A ;MUST START AT 1 LD (IOPB + PBSECO),A ; ; SELECT SUЂюNNNNNNNNNNNNNNNNNЎЎЎю.&аHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ;ѕяОNNNNNNNNNNNNNNNNNЎЎЎю.,ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETVERгRютNNNNNNNNNNNNNNNNЎЎЎю.[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR ; LD HL,DSKEM ;OUTPUT PREFIX CALL EDITOR ; LD DE,IOPB LD B,IOPBSZ DSKER1: LD A,(DE) ;FETCH ERROR BYTE PUSH DEЬРяОNNNNNNNNNNNNNNNNNЎЎЎю. цђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSKER: LD HL,0 ;RETURN DPB_PTR = 0 FOR SELECT бюNNNNNNNNNNNNNNNNNNЎЎЎю.\6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRNONE: LD DE,0 JR SETTR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIV‘:ю9NNNNNNNNNNNNNNNNЎЎЎю.°ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PBDRVO),A ; ; OFFSET LOGICAL ADDRESS WITH LOGICAL DRIVE ; LD A,(BTDRV—юяОNNNNNNNNNNNNNNNNNЎЎЎю.“ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PT†ZяОNNNNNNNNNNNNNNNNNЎЎЎю.!yЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIDE 1 ; LD A,80H FD8X1: LD (IOPB + PBSECO + 1),A ; ; EXECUTE THE IOPB ; JP XPRIM ; ; ; TRACK 0 ; FD8X20: LD C,j1ю!NNNNNNNNNNNNNNNNЎЎЎю.'УyNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR OСаюNNNNNNNNNNNNNNNNNЎЎЎю.-<ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS: LD HL,300 + (LOW VERSN) + ((HIGH VERSN) * 10) XOR A,A ;RETURN NO ERROR RET ;++++++++++++++++++++++++++++++++++++ЭJю9NNNNNNNNNNNNNNNNЎЎЎю.ЂМNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;SAVE REGS PUSH BC CALL PRHEX ;OUTPUT ERROR CODE ; LD C,' ' CALL COC ; POP BC ;RESTORE REGS POP DE INC DE ;люNNNNNNNNNNNNNNNNNЎЎЎю. ЈГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;********************************************************************™ятNNNNNNNNNNNNNNNNNЎЎЎю.O{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ПFюrNNNNNNNNNNNNNNNNЎЎЎю.еЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;COMPUTE SECTOR LD D,0 LD HL,(IOPB + PBSECO) ADD HL,DE ІЬяОNNNNNNNNNNNNNNNNNЎЎЎю. NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ FD8EXEC: ; ФятNNNNNNNNNNNNNNNNЎЎЎю.",ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(IY + DVR0SPT) JP FD8X2 ; ; ; TRACK 1 ; FD8X21: LD C,(IY + DVR1SPT) JP FD8X2 ; ; ; SECTORS OK ; SPTOK: XOR A,AџЁятNNNNNNNNNNNNNNNNNЎЎЎю.(ГGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;#####################################################################‹юNNNNNNNNNNNNNNNNNNЎЎЎю..iбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # ; EXIT - HL= DRIVER TABLE юђNNNNNNNNNNNNNNNNNЎЎЎю.іэNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,DSKEB ;OUTPUT ERROR MESSAGE CALL EDITOR ; ; GET USER RESP»«яОNNNNNNNNNNNNNNNNNЎЎЎю.ђтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXIT - DE, HL= ? ; ;************VПюNNNNNNNNNNNNNNNNNЎЎЎю.|JNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADD HL,DE LD E,(HL) ;FETCH DPB y юNNNNNNNNNNNNNNNNЎЎЎю.ЦмNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (IOPB + PBSECO),HL ; ; FINISH SETTING UP THE IOPB ; XPRIM: XOR A,A LD (IOPB + PBFLGO),A ;NO FLAGS FOR NOW ; LD HL,rщятNNNNNNNNNNNNNNNNЎЎЎю.9'NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) LD (IOPB + PBDRVO),A ; ; IF LOGON THEN SKIP SIDE SELE#ўю„NNNNNNNNNNNNNNNNЎЎЎю.#ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы JP FD8X1 SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; •|яИNNNNNNNNNNNNNNNNNЎЎЎю.)рvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы####### ; ; BIOS FUNCTION TABLE ; ;############################################################################ BFUNTBL: ѕЅюNNNNNNNNNNNNNNNNNЎЎЎю./ZРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBASE PTR ; A, C= 0 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETDVRT: LD HL,DVR0 ;2ю„NNNNNNNNNNNNNNNNЎЎЎю.ж®NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC POP AF ; AND A,5FH ;INSURE ®•ю!NNNNNNNNNNNNNNNNЎЎЎю. eNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы**************************************************************** TR8: TR3740: LD DE,SDTRAN ; SETTR: LD HL,(DTPTR) LD (HL),Л™ю„NNNNNNNNNNNNNNNNЎЎЎю.)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Uвю$NNNNNNNNNNNNNNNNNЎЎЎю.ЖТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECSZ ;SET XFER COUNT LD (IOPB + PBST4O),HL ; ; EXECUTE THE PRIMITIVE IN ROM ; PUSH IX LD IX,IOPB ;PASS PTR TO IOPBO§ю„NNNNNNNNNNNNNNNNЎЎЎю.ltNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыCT BECAUSE SECTOR DATA MAY NOT BE VALID ; LD A,(IOPB + PBCMDO) SUB A,DDLOG JR Z,FD8X1 ; ; SELECT SIDE ; LD A,(IOPB±УюHNNNNNNNNNNNNNNNNNЎЎЎю.$†*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; FUNCTION DISPATCHER ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BIOFUNC: ; ; IF FUNђёяОNNNNNNNNNNNNNNNNNЎЎЎю.*Ґ%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDW RETVERS ;RETURN VERSION # DW RETDVRT ;RETURN DISK PHYSICAL CONFIGURATION TABLE PTR DW EXIOPB MAXFUNCS EQU ($ - BFUNTBLР…юђNNNNNNNNNNNNNNNNNЎЎЎю.0IќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTART AT 1ST TABLE ; ; TEST FOR DONE ; RETDVL: LD A,C OR A,A RET Z ; ; COMPUTE NEXT TABLE ENTRY ; LD A,DVRSIZ ®7юњNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNюЂМЃ™‚fѓ4„…П…ќ†j‡9€‰Ф‰ЎЉo‹<Њ ЌЧЌҐЋtЏAђ‘Ю‘¬’z“G”•г•°–~—K™ж™µљѓ›Qњќлќёћ‡џU "ЎпЎЅў‹ЈX¤&ҐфҐВ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю.H NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADD A,L LD L,A LD A,0 ADC A,H LD H,A DEC C JP RETDVL ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++uSюINNNNNNNNNNNNNNNNNЎЎЎю.вЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************** PRHEX: ; ; PROCESS HIGH NIBBLE 1ST ; CALL PRDIG ; ; SWAP HIGH t'ю NNNNNNNNNNNNNNNNЎЎЎю. dNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************** INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDO:¬ятNNNNNNNNNNNNNNNNЎЎЎю.-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL ; ILLEGC: LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR XOR A,A ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ИЬю9NNNNNNNNNNNNNNNNЎЎЎю.ВУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= Sё:юINNNNNNNNNNNNNNNNNЎЎЎю.huNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;**************************************************************************** CLKSET: LD C,E ;SET UP PARAMETERS LD B,D Lі/юдNNNNNNNNNNNNNNNNЎЎЎю.%‚+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN VALUE RET SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ;§1юNNNNNNNNNNNNNNNNЎЎЎю.+Ў$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN RETURN 0 AND A,1 SHL NTRDY TTOST1: RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;*********************************§2яВNNNNNNNNNNNNNNNNЎЎЎю.ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- DE= IOPB PTR ; EXIT - A= 0: OK ; ;++++++++++++++++++++++++++++++++ђЦюђNNNNNNNNNNNNNNNNNЎЎЎю.т‘NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы& LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ; ; CONVERT TO ASCII USING DAA юwяИNNNNNNNNNNNNNNNNЎЎЎю.X7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; T—Cю NNNNNNNNNNNNNNNNЎЎЎю.ґЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES GядNNNNNNNNNNNNNNNNЎЎЎю.—ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECONDS ; B= MINITS ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKTIM: L#°яINNNNNNNNNNNNNNNNNЎЎЎю. }ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,SETENT CLK2: LD A,CALROM ENDIF ;**************************************************************************** ; Ѕ"я\NNNNNNNNNNNNNNNNЎЎЎю.&ЧxNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CI: IF UЎhюBNNNNNNNNNNNNNNNNЎЎЎю.,8іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;*******************************¦юdNNNNNNNNNNNNNNNNЎЎЎю..kNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ EXIOPB: ; ; SAVE REG ; PUSH IX ; ; SET UP FOR CALL ; PUSH DE POP IтяОNNNNNNNNNNNNNNNNNЎЎЎю. Б NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRICK ; AND A,0FH ADD A,90H DAA ADC A,40H DAA ; ; OUTPUT CHAR TO CONSOLE ; LD C,A CALL COC ; ; RETURN DAdCюђNNNNNNNNNNNNNNNNNЎЎЎю.kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK:€ ю9NNNNNNNNNNNNNNNNЎЎЎю.‡ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETCVER: VяОNNNNNNNNNNNNNNNNNЎЎЎю.¤±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,TIMENT JR CLK1 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ CLOCK TIME F”СяОNNNNNNNNNNNNNNNNNЎЎЎю.!NпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTRY ADDRESS ; A= ROM # ; EXIT - ? ; ;************************************************ЉЧюњNNNNNNNNNNNNNNNNЎЎЎю.'дINNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEMON CALL GETMON ;SWITCH IN MONITOR ROM JP 0F803H ;USE MONITOR ELSE CALL CNSCK ;IF NO CHAR RDY THEN WAIT JR Z,CI;ю'NNNNNNNNNNNNNNNNЎЎЎю.-‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************************** COC: IF USEMON CALL GETMON JP 0F809H ELSE CALL NTOST ;IF BUSY THET4юњNNNNNNNNNNNNNNNNЎЎЎю.·ьNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыX LD HL,DKPENT LD A,(DKPROM) CALL EXROM ; ; FETCH & RETURN RESULT STATUS ; LD A,(IX+PBSTATO) POP IX ;RESTORE REGіEю!NNNNNNNNNNNNNNNNЎЎЎю. ”уNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTA ; POP AF RET IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;********************************”Fю„NNNNNNNNNNNNNNNNNЎЎЎю.xKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H gюrNNNNNNNNNNNNNNNNЎЎЎю.ТнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; REd‰яОNNNNNNNNNNNNNNNNNЎЎЎю.=&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCTION 93H ; ENTRY- DE= PTR TO 13 BYTE BUFFER FOR CLOCK DATA ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++И‹юBNNNNNNNNNNNNNNNNЎЎЎю."јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************** EXROM: AND A,ROMSMK ;MASK OUT UNUSED BITS OUT (ROMSEL),A ; PUSH HL ;SAVE ROM ENTRY VECTOR ѓдятNNNNNNNNNNNNNNNNNЎЎЎю.(фwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IN A,(NTD) ;ELSE RETURN CHAR RET ENDIF ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++“ю!NNNNNNNNNNNNNNNNЎЎЎю..^СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN WAIT OR A,A JR Z,COC LD A,C OUT (NTD),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++,ќяОNNNNNNNNNNNNNNNNNЎЎЎю.„НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы OR A,A ;TEST RESULT FOR RETURN RET SUBTTL NON-DISK PROCEDURES ;***************************************************ДшюNNNNNNNNNNNNNNNNNNЎЎЎю.§ВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************* ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSA-Sю$NNNNNNNNNNNNNNNNNЎЎЎю.KzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION THENЪђюBNNNNNNNNNNNNNNNNЎЎЎю.бЬNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;+++++++++++++++++++++++++++++++++++‘=ю NNNNNNNNNNNNNNNNЎЎЎю.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++ CLKRDC: LD C,E ;SET UP PARAMETERS LD B,D LD HL,RDBENT JR CLK2 ;*********************************њжю„NNNNNNNNNNNNNNNNЎЎЎю.#(ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD HL,EXROMR ;PUT RETURN ADDR ON STACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY VECTOR JP (HL) ;EXECUTE ROM ; 'юђNNNNNNNNNNNNNNNNNЎЎЎю.)ЗFNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++++++++++++++++к¬ю$NNNNNNNNNNNNNNNNNЎЎЎю./mаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++ ; ; RETURN CONSOLE OUTPUT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;++++++++++++++++++++++++++++++++++++3>ятNNNNNNNNNNNNNNNNЎЎЎю.СћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;***********************c@ю!NNNNNNNNNNNNNNNNЎЎЎю.>UNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;*********************************************#юњNNNNNNNNNNNNNNNNЎЎЎю.)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET CLOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEM CA„®юЙNNNNNNNNNNNNNNNNNЎЎЎю.свNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++ CLKCAL: LD HL,CALENT ;ROM ENTRY POINT ; CLK1: LD BC,CLKBFR ;READ CLOCK JR CLK2 юNNNNNNNNNNNNNNNNЎЎЎю.[DNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************* ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMAGE BUFR PTR (13 BYTES LONG) ; ИяИNNNNNNNNNNNNNNNNNЎЎЎю.$±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ROM PROCEDURE RETURNS HERE ; EXROMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECT MONITOR ROM ; POP AF ;RETURЎҐюNNNNNNNNNNNNNNNNNNЎЎЎю.*’NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++ CNSCK: IF USEMON CALL GETMON JP 0F812H ELSE IN A,(NTS) ;IF DATA NOT READY THE"яИNNNNNNNNNNNNNNNNNЎЎЎю.0~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ NTOST: IN A,(NTS) CPL ;REVERSE SENSE AND A,1 SHL NTBSY JR TTOST1 ENDIF ТAяьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNЃСЃћ‚kѓ8„…Ф…Ў†n‡=€ ‰Ш‰ҐЉs‹AЊЌЬЌ«ЋyЏGђ‘д‘І’Ђ“M”•й•¶–„—R!™п™ѕљЊ›[њ(ќцќГћ’џ` -ЎыЎЙў—Јd¤3Ґ¦П¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю/ ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z @юoNNNNNNNNNNNNNNNNNЎЎЎю/Ј+NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JR Z,LO ; LD A,C ;OUTPUT CHAR SET 7,A OUT (CENTOUT),A ; RES 7,A ;OUTPUT LOW TRUE STROBE OUT (CENTOUT),A SET 7,Aю®юЙNNNNNNNNNNNNNNNNЎЎЎю/ LаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************** GETMON: LD A,XMONROM OUT (ROMSEL),A RET ;********************************************lвяВNNNNNNNNNNNNNNNNЎЎЎю/lњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; SAVE REGS FIRST ; PUSH AF PUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(ROMSEL) LD (ROM›EюBNNNNNNNNNNNNNNNNЎЎЎю/ѓWNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (ROMSEL),A ; POP BC POP HL POP AF EI ;RE-ENABLE INTEЂяЙNNNNNNNNNNNNNNNNNЎЎЎю/)сNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,22 ;############################################################################ ; C>ю NNNNNNNNNNNNNNNNЎЎЎю/%ГЇNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDISK TYPE DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS¶юBNNNNNNNNNNNNNNNNЎЎЎю/+а NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;;DISK TYPE DB #FG DB #S0,#Z0,#S1,#Z1,#SD,#ZD LIST OFF ENDM DVR0: IF BOOT = 10H ALLDRV HDEXEC,4,60H,64,1,64,1,6h†ю„NNNNNNNNNNNNNNNNЎЎЎю/\ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READER: LD A,CTRLZ ;FAKE EOF ;*********ІиюNNNNNNNNNNNNNNNNNЎЎЎю/іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы OUT (CENTOUT),A RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETU НюNNNNNNNNNNNNNNNNЎЎЎю/іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;***** ™ятNNNNNNNNNNNNNNNNЎЎЎю/хNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSAV),A CALL GETMON ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSG ;QUERY USER CALL EDITOR ; ]OюNNNNNNNNNNNNNNNNЎЎЎю/ЦNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRRUPTS RET ;---------------------------------------------------------------------------- ; ; UNSUPPORTED INTERRUPT ; ‚юNNNNNNNNNNNNNNNNNЎЎЎю/ ‰яВNNNNNNNNNNNNNNNNЎЎЎю/СNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************* ; ; GET MONITOR PROM SUBR ; EXIT - A= ? ; ;**********************************************’бюrNNNNNNNNNNNNNNNNЎЎЎю/_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------- ; ; USER INTERRUPT ; ;---------------------------------------------------------------------------- ITRAP: ‘ ю$NNNNNNNNNNNNNNNNNЎЎЎю/°fNNNNNNNNNNNNNNNNNNNNNNЎЎЎыITOR THEN EXECUTE MONITOR TRAP ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP BC POP HL POP AF JP 0F824H ; ; ELSE RESTORDЯю9NNNNNNNNNNNNNNNNЎЎЎю/АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### SDTRAN: GXLATE 26,6 ; DB 1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21€aю“NNNNNNNNNNNNNNNNNЎЎЎю/$рћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;PHYSICAL DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRDTYP DS 1 ;RESERVED FOR ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################################## SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 Y~яИNNNNNNNNNNNNNNNNNЎЎЎю/”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATIONѕядNNNNNNNNNNNNNNNNЎЎЎю/ {РNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################### ; ; MESSAGES ; ;############################################################################ MSGLEVБюrNNNNNNNNNNNNNNNNЎЎЎю/[¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVEС!юrNNNNNNNNNNNNNNNNЎЎЎю/ґgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORАOяЙNNNNNNNNNNNNNNNNNЎЎЎю/БNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTCPTS ; ; CLOCK BUFFER ; CLKBFR DS 13 ENDIF ;####################################################################°БюrNNNNNNNNNNNNNNNNЎЎЎю/%фџNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST hTю!NNNNNNNNNNNNNNNNЎЎЎю/+ЧђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DI%-юBNNNNNNNNNNNNNNNNЎЎЎю/kоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 #nюHNNNNNNNNNNNNNNNNNЎЎЎю/„%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 64,GЃюNNNNNNNNNNNNNNNNЎЎЎю/.ѓNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы: DM CR,LF,'LOAD ERROR' DSKEM: DM CR,LF,'Disk Error Status:',CR,LF DSKEB: DB 'H',CR,LF DM 'Abort, Ignore, Retry, (BDOS) - ' Б=ятNNNNNNNNNNNNNNNNЎЎЎю/В;NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;SCRATCH AREA DW 0 ;" DW 0 ;" DW [№ятNNNNNNNNNNNNNNNNЎЎЎю/б4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDER ; ;############################################################################ BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK #‚¤юNNNNNNNNNNNNNNNNNЎЎЎю/ jNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## ; ; DRIVE ALLOCATION AREAS ; ;############################################################################ ;@@©юњNNNNNNNNNNNNNNNNЎЎЎю/&ЎМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;#############################################################{Ею„NNNNNNNNNNNNNNNNЎЎЎю/,NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECПtядNNNNNNNNNNNNNNNNЎЎЎю/XЯNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;CHECK SIZE DW 2 ;TRACK OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS DB 26,0,26,0,26,0 ;SECTORS PER T¬яВNNNNNNNNNNNNNNNNЎЎЎю/ ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы1,64,1,64,1 ;64 SPT, 256 BPS ;############################################################################ ; ; MODE 2 INTxђюNNNNNNNNNNNNNNNNNЎЎЎю/ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL',CR,LF ENDIF IF INTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQ?Эю9NNNNNNNNNNNNNNNNЎЎЎю/с NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыDIRBF ;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 Н*юђNNNNNNNNNNNNNNNNNЎЎЎю/ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESERVED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;#######‚›яОNNNNNNNNNNNNNNNNNЎЎЎю/!8[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUM"уяaNNNNNNNNNNNNNNNNЎЎЎю/'’эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############### ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;####################################################################ў юHNNNNNNNNNNNNNNNNЎЎЎю/-}6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@ёґюNNNNNNNNNNNNNNNNЎЎЎю/БHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACK, SECTOR SIZE (128) ;############################################################################ ; ; DEFAULT 8" HARDйоюњNNNNNNNNNNNNNNNNЎЎЎю/ вGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыERRUPT VECTOR TABLE ; ;############################################################################ ; ; START ON AN EVEN PAyю NNNNNNNNNNNNNNNNNЎЎЎю/яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMSG DM ' Int. Abort? (Y/N) - ' ENDIF ;############################################################################ ; МрюrNNNNNNNNNNNNNNNNЎЎЎю/¤YNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;DRIVE CLUSTER ALLO ИюњNNNNNNNNNNNNNNNNЎЎЎю/K’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################################### ; ; VARIABLES ; ;###################################цю NNNNNNNNNNNNNNNNЎЎЎю/"mNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DDfятNNNNNNNNNNNNNNNNNЎЎЎю/(‚ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= k¦юњNNNNNNNNNNNNNNNNЎЎЎю/.(eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@юNNNNNNNNNNNNNNNNNNЎЎЎю/тyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISK PARAMETER BLOCK ; ;############################################################################ HDPBK: DW 128 ;SECTORSBXюNNNNNNNNNNNNNNNNNЎЎЎю/СvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAGE BOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINЯщюЙNNNNNNNNNNNNNNNNNЎЎЎю/=ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;############################################################################ люЃNNNNNNNNNNNNNNNNЎЎЎю/—hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DМюrNNNNNNNNNNNNNNNNЎЎЎю/xЈNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################### DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE D» ю„NNNNNNNNNNNNNNNNЎЎЎю/#^9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1щБюHNNNNNNNNNNNNNNNNNЎЎЎю/)±тNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EЈРю$NNNNNNNNNNNNNNNNNЎЎЎю//TNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIЄRятNNNNNNNNNNNNNNNNЎЎЎю/§*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 €HяВNNNNNNNNNNNNNNNNЎЎЎю/HбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT LIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;######################################################ааю9NNNNNNNNNNNNNNNNЎЎЎю/hќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; }Gю$NNNNNNNNNNNNNNNNNЎЎЎю/‡VNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA :Mю„NNNNNNNNNNNNNNNNЎЎЎю/-рNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTION ADDRESS ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM IF IN±еюNNNNNNNNNNNNNNNNNЎЎЎю/$З®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CdяОNNNNNNNNNNNNNNNNNЎЎЎю/*дЎNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSMМјю$NNNNNNNNNNNNNNNNNЎЎЎю/0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL EюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNNNЃРЃћ‚lѓ:„ …Ц…Ј†p‡>€‰Ъ‰§Љu‹CЊЌЮЌЋ{ЏJђ‘ж‘ґ’‚“O”•м•є–€—V$™с™їљЌ›\њ)ќчќДћ“џa .ЎьЎКўЈe¤4Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю0ЖДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD + 1 LIST ON ENDM IF (($ - 8000H) > 07800H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! ***Ђ{юHNNNNNNNNNNNNNNNNNЎЎЎю0lbNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++№яВNNNNNNNNNNNNNNNNNЎЎЎю0 ѓ©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 26,6 ;############################################################################ ; ; COMMON I/O PARAMETER BLOCK ; ;#—Хю'NNNNNNNNNNNNNNNNNЎЎЎю0ЈХNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNO, CA ; ;**************************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE„ю9NNNNNNNNNNNNNNNNЎЎЎю0LNNNNNNNNNNNNNNNNNNNNNNЎЎЎы20H ; A JADE 5" FLOPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE ‰ню$NNNNNNNNNNNNNNNNNЎЎЎю0жёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single function to return drive tа1ю NNNNNNNNNNNNNNNNЎЎЎю0%жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыructure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAT to new configuration.чЛяВNNNNNNNNNNNNNNNNЎЎЎю0+/йNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-head shift factor to DPBsќШяВNNNNNNNNNNNNNNNNЎЎЎю0“—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ENDIF END :yю$NNNNNNNNNNNNNNNNNЎЎЎю0|\NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++ ; LISTST: LD A,MF_LOS JP XMROM ;***********************************************************************ящNNNNNNNNNNNNNNNNЎЎЎю0ЦъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ХЃюNNNNNNNNNNNNNNNNNNЎЎЎю0:BNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы USAGE IF BOOT = 10H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISKфvю NNNNNNNNNNNNNNNNЎЎЎю0MNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK;CюдNNNNNNNNNNNNNNNNNЎЎЎю0 уNNNNNNNNNNNNNNNNNNNNNNЎЎЎыable ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sector & track. At same timBяОNNNNNNNNNNNNNNNNNЎЎЎю0&YµNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; rather than swapping Roms itsаoяВNNNNNNNNNNNNNNNNЎЎЎю0,¶~NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы for future use. ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation from ; DCM8 to CBIOS. Зню NNNNNNNNNNNNNNNNЎЎЎю0 ¦NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*****************************************љ‚яЙNNNNNNNNNNNNNNNNNNЎЎЎю0 OmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;********************************QсядNNNNNNNNNNNNNNNNNЎЎЎю0еЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ENDM ;############################################################################ ; ; DISK DRIVER TABLES (DDT) ; ;###ЫјятNNNNNNNNNNNNNNNNNNЎЎЎю0 sNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы PHYSICAL DRIVE 0 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8"йјюNNNNNNNNNNNNNNNNNNЎЎЎю0*|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ; G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*****************u9юNNNNNNNNNNNNNNNNЎЎЎю0!А"NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыe, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file names. ; Change hard dюЃюNNNNNNNNNNNNNNNNNЎЎЎю0'j„NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыelf. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benignly (at current level) µюHNNNNNNNNNNNNNNNNЎЎЎю0-…ONNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like track ; offset. Disk 0.ю!NNNNNNNNNNNNNNNNЎЎЎю091NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*********************************** ; PUNCH: RET ;***********************************************************************PyюNNNNNNNNNNNNNNNNNЎЎЎю0 >NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM SUBTTL INITIALIZю‰ядNNNNNNNNNNNNNNNNNNЎЎЎю0ц†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################################### ; STRUCT 0 DDT_EXE DS 2 ;START ADDRESS OF DISK DRIDOяОNNNNNNNNNNNNNNNNNЎЎЎю0\ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FLOPPY PHYSICAL DRIVE 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0А„ю'NNNNNNNNNNNNNNNNNЎЎЎю0ілNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************** ; ; REVISION HISTORY: ; ; 3.00 - 26 JAN 87 GRH ; Implemented new common IO‚юNNNNNNNNNNNNNNNNЎЎЎю0"•qNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыisk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to fail. (sector remained ; ЛаюNNNNNNNNNNNNNNNNNЎЎЎю0(zєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytes). ; Implement data ‡wюBNNNNNNNNNNNNNNNNЎЎЎю0.РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыpartitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamic. ; ; 3.10 5-20-91 OюNNNNNNNNNNNNNNNNЎЎЎю0 NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;********************************************************************РюNNNNNNNNNNNNNNNNNЎЎЎю0)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыED DATA ;############################################################################ ; ; 3740 SECTOR TRANSLATION TABLE ; **)ядNNNNNNNNNNNNNNNNNNЎЎЎю0Е·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPPY, 20H: 5" FLOPPY ;********************R[ю!NNNNNNNNNNNNNNNNЎЎЎю0oNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; B JADE 8" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL ЌPю NNNNNNNNNNNNNNNNЎЎЎю0ЂЪNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to return ; a ptr to a drive ГюBNNNNNNNNNNNNNNNNЎЎЎю0#¦@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routines. ; 3.04 6 AUG 88 ґ,ю$NNNNNNNNNNNNNNNNNЎЎЎю0)I‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыxfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove clock buffer set/read sJ«юNNNNNNNNNNNNNNNNNЎЎЎю0/г-NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы GRH ; Change LOGON to attempt to recover from old disks better, using ; DCM8301 version controller firmware. ; ; 3.11 9-2-‡¶яВNNNNNNNNNNNNNNNNЎЎЎю0_SNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******** ; LO: LD A,MF_LO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; З~яОNNNNNNNNNNNNNNNNNЎЎЎю0°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы** CP/M SINGLE DENSITY **** ; ;############################################################################ ; SDTRAN: GXLATEjятNNNNNNNNNNNNNNNNNЎЎЎю0ђдNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTIЕ5ю“NNNNNNNNNNNNNNNNNЎЎЎю0/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = oєюBNNNNNNNNNNNNNNNNЎЎЎю0Х‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыtable. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; Moved system down toщuюHNNNNNNNNNNNNNNNNNЎЎЎю0$?ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; Implement CP/M 3.0 DPB st$ю!NNNNNNNNNNNNNNNNЎЎЎю0*ШNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыystem calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug which corrupted PB_FLG. †„юNNNNNNNNNNNNNNNNNЎЎЎю00р`NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы91 GRH ; Add redlines & change for M5ZMON v.2.00. ; ; 3.12 9-11-91 GRH ; Add deblocking code. ; 9-17-91 GRH Add r/ls\нюђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNюЂМЃљ‚gѓ5„…Р…ћ†k‡9€‰Ф‰ЎЉo‹=Њ ЌЧЌҐЋsЏAђ‘Ь‘Є’x“E”•б•®–|—I™д™ІљЂ›Oњќкќ·ћ†џT !ЎоЎјўЉЈW¤&ҐуҐВ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю0сфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы & move to 59k system. ; 9-19-91 GRH Fix bug which destroyed my root directories! ; BUF_RD was writing. ; Patch probleяИNNNNNNNNNNNNNNNNNЎЎЎю0[RNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================== ; ; CONDITIONAL ASSEMBLY FLAGS ; ;===========================3юNNNNNNNNNNNNNNNNЎЎЎю0 ґ™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы====================================================================== ; SYS EQU 2 ;CP/M VERSION {2,3} ; NKSYS: EQU 59 ;SY‘ю9NNNNNNNNNNNNNNNNЎЎЎю0”еNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNRST BFUNRSI EQU 0C7H + BFUNRST ;============================================================================ ; ; OTHEЖhятNNNNNNNNNNNNNNNNЎЎЎю0{.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================================================== ; ; BDOS CONSTANTS ON ENTRY TO WRITE ; ;=========ЮXяИNNNNNNNNNNNNNNNNNЎЎЎю0С€NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTЁюNNNNNNNNNNNNNNNNЎЎЎю0%;ЦNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;-------------------------КяВNNNNNNNNNNNNNNNNЎЎЎю0+ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOFUNC ;EXECUTE FUNCTION CALL ;############################################################################ ; ; THE FOLL@ю„NNNNNNNNNNNNNNNNЎЎЎю0¤§NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыms with partitioning until 20MB drive installed. ; Fix TPA corruption by LOGON problem by using ROMBNK sector buffer for ; ‘юNNNNNNNNNNNNNNNNNЎЎЎю0KlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================= ; INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE ;============Yю“NNNNNNNNNNNNNNNNЎЎЎю0бКNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ;CP/M BIAS VALUE CCP: EQU CPMЫятNNNNNNNNNNNNNNNNЎЎЎю0 rNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR DECLARATIONS ; ;============================================================================ ; SECSZ: EQU 128 NDRVS: EQU <ю NNNNNNNNNNNNNNNNЎЎЎю0.}NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы=================================================================== ; WRALL EQU 0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DaЂюdNNNNNNNNNNNNNNNNNЎЎЎю0 Д#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= ‰дюђNNNNNNNNNNNNNNNNNЎЎЎю0&n…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;----------------------------------------ЫєюњNNNNNNNNNNNNNNNNЎЎЎю0,ЃNNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOWING BOOT DATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS BХю NNNNNNNNNNNNNNNNЎЎЎю0—–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ID sector read. ; 9-20-91 GRH Fold in redlines. ; 10-21-91 GRH Fix bugs ; 10-22-91 GRH Fix bugs ; 10-23-91 GRH јюBNNNNNNNNNNNNNNNNЎЎЎю0 x]NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы================================================================ ; ; INCLUDE COMIOPB3.DEF ; INCLUDE DISKS3.DEF ; INCLU4‚юNNNNNNNNNNNNNNNNNNЎЎЎю0ТыNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000HОлюrNNNNNNNNNNNNNNNNЎЎЎю0>CNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL V›яОNNNNNNNNNNNNNNNNNЎЎЎю0LNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIRECTORY WRUAL EQU 2 ;WRITE TO UNALLOCATED ;============================================================================ пяюњNNNNNNNNNNNNNNNNЎЎЎю0!чNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@nЦюNNNNNNNNNNNNNNNNNЎЎЎю0']ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------ ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATU№yяЮNNNNNNNNNNNNNNNNЎЎЎю0-ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARE ; REFERENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;###############ц—юNNNNNNNNNNNNNNNNЎЎЎю0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы Fix bugs ; VERSN EQU 312 ; ;**************************************************************************** SUBTTL SYSTEM А юNNNNNNNNNNNNNNNNNЎЎЎю0 -NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDE BDIR.DEF ; INCLUDE M5ZF2.DEF ; ;============================================================================ ;€Ўю NNNNNNNNNNNNNNNNNЎЎЎю0Б¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV E#UятNNNNNNNNNNNNNNNNЎЎЎю0kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF цяОNNNNNNNNNNNNNNNNNЎЎЎю0„ЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; ; ASCII CHARS ; ;============================================================================ ; LF: EQU 0AH CR: EQU 0DH –‹ю9NNNNNNNNNNNNNNNNЎЎЎю0"ўANNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@AЇядNNNNNNNNNNNNNNNNNЎЎЎю0(MЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS JP CI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRУSюњNNNNNNNNNNNNNNNNЎЎЎю0.з,NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################################# ; DB 0 ;Z80 CPU DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOSт6юNNNNNNNNNNNNNNNNNNЎЎЎю0=0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDECLARATIONS ;============================================================================ ; ; ASSEMBLY PARAMETERS ; ;=====ъ“юђNNNNNNNNNNNNNNNNNЎЎЎю0?NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LIST OFF *INCLUDE COMIOPB3.DEF *INCLUDE DISKS3.DEF *INCLUDE BDIR.DEF *INCLUDE M5ZF2.DEF LIST ON ;FюNNNNNNNNNNNNNNNNNЎЎЎю0т‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY THIS_STK EQU PAGE0 + 1CH ;CURRENT STACK FRAME PTR DK_BDRV EQU 0041H ;BOOT DRIVE # FROM P[фюNNNNNNNNNNNNNNNNЎЎЎю0X!NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HA6“юдNNNNNNNNNNNNNNNNЎЎЎю0·кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATIOЂсяВNNNNNNNNNNNNNNNNЎЎЎю0#‘pNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / Ашю“NNNNNNNNNNNNNNNNNЎЎЎю0)~»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE JP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DIМюдNNNNNNNNNNNNNNNNNЎЎЎю0/ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;##Jѓю9NNNNNNNNNNNNNNNNЎЎЎю0hcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================================================= ; FALSE EQU 0 TRUE EQU NOT FALSE ;==============qћяВNNNNNNNNNNNNNNNNЎЎЎю0‡ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ ; ; DISK OPERATING SYSTEM ADDRESSES ; ;======юDNNNNNNNNNNNNNNNNЎЎЎю0§ФNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыROM DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BЄТюіNNNNNNNNNNNNNNNNNЎЎЎю0HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;=========Й€ю9NNNNNNNNNNNNNNNNЎЎЎю0в№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыN TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEWDРю'NNNNNNNNNNNNNNNNNЎЎЎю0$зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы10000) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0'µМю!NNNNNNNNNNNNNNNNЎЎЎю0*+иNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSKRD ;PERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP B 6юNNNNNNNNNNNNNNNNNЎЎЎю00ЗPNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################## ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNC“кюђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNNNNЃРЃћ‚kѓ9„…Ц…¤†q‡?€ ‰Ы‰ЁЉv‹CЊЌЭЌЄЋxЏFђ‘в‘°’}“J”•е•І–Ђ—M™и™¶љ„›Rњќнќєћ€џV #ЎсЎѕўЊЈY¤(ҐцҐД¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю1°pNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;########ґЮю“NNNNNNNNNNNNNNNNNЎЎЎю1ЦNNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎы TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GETBNK LD (BUF_DMAB),A ; ; INITIALIZElюHNNNNNNNNNNNNNNNNЎЎЎю1 хNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! C[ню9NNNNNNNNNNNNNNNNЎЎЎю1ХaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON DRIVE TO INIT TABLES ; LD A,(DK_BDRV) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT »ятNNNNNNNNNNNNNNNNЎЎЎю1:ЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR THEN EXIT ; ; NEXT SECTOR ; LD HL,CPM_SEC INC (HL) ; LD DE,128 ;DMA += SECTOR SIZE LD HL,(CPM_DMA) ADD HL,DE RЧюINNNNNNNNNNNNNNNNNЎЎЎю1ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL EDITOR CALL MR_BRK HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H ”тюNNNNNNNNNNNNNNNNЎЎЎю1%zRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++M8юNNNNNNNNNNNNNNNNЎЎЎю1+Y]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыW_RET ;**************************************************************************** ; ; WRITE DISK SECTOR FUNCTION ; ENTТ§юNNNNNNNNNNNNNNNNЎЎЎю1е#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;-----------------h•юNNNNNNNNNNNNNNNNNЎЎЎю1 иNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CяDю$NNNNNNNNNNNNNNNNЎЎЎю1 NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ¶юrNNNNNNNNNNNNNNNNЎЎЎю1LцNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; мвюrNNNNNNNNNNNNNNNNЎЎЎю1oщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (CPM_DMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE¶кю NNNNNNNNNNNNNNNNNЎЎЎю1 …§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A Фђю!NNNNNNNNNNNNNNNNЎЎЎю1&/NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; SET UP DATA TABLE PTRS ; PUSH IX LD IX,z%ю„NNNNNNNNNNNNNNNNЎЎЎю1,АКNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO U@}юdNNNNNNNNNNNNNNNNЎЎЎю1ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------------------------------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS(‹я\NNNNNNNNNNNNNNNNЎЎЎю1 9ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFFЭtюNNNNNNNNNNNNNNNNNNЎЎЎю1“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;---------------------------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIAю9NNNNNNNNNNNNNNNNЎЎЎю1ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; YQюNNNNNNNNNNNNNNNNNNЎЎЎю1\ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; ХTюNNNNNNNNNNNNNNNNЎЎЎю1!¶–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SEpђюђNNNNNNNNNNNNNNNNNЎЎЎю1'0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS љю$NNNNNNNNNNNNNNNNЎЎЎю1-уыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;**************************************************************************** ; DISћюBNNNNNNNNNNNNNNNNЎЎЎю1O…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;---------------------------------------------------------------------------- ; INIT: ; ; SET TEMPORARY STACK ; DIўію!NNNNNNNNNNNNNNNNЎЎЎю1 lЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARM ;#################################2¦ю NNNNNNNNNNNNNNNNNЎЎЎю1Ђ2NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBLES ; ;---------------------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBF$ю NNNNNNNNNNNNNNNNЎЎЎю1*”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFRуgюNNNNNNNNNNNNNNNNNNЎЎЎю1Е_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSE DONE READING SYSTEM ; JR WZRPG ; ; ; ELSE SET UP & READ BDOS ; ]oю„NNNNNNNNNNNNNNNNЎЎЎю1"гЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,ѓЂядNNNNNNNNNNNNNNNNNЎЎЎю1(NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы OR A,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRUE (1)6DяВNNNNNNNNNNNNNNNNЎЎЎю1.¦ЁNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыKWR: ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A ; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,(CUR_ pюNNNNNNNNNNNNNNNNNNЎЎЎю1|ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD SP,DEFBFR ;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # PASSEDPюNNNNNNNNNNNNNNNNNЎЎЎю1_»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы########################################### ; ; SIGN-ON MESSAGE ; ;#########################################################Б?юrNNNNNNNNNNNNNNNNNЎЎЎю1іNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR LD (THIS_STK),SP EI ; ; INIT OUR STUFF ; XOR A,A LD (BUF_ACT),A ;ASSUME NO DATA IN BUFFER ; LD (UNA_CNT),A ;CLe'ю,NNNNNNNNNNNNNNNNЎЎЎю1ҐNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SX@юrNNNNNNNNNNNNNNNNЎЎЎю1цnNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL~АяВNNNNNNNNNNNNNNNNЎЎЎю1#РфNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ; ; ‘ю“NNNNNNNNNNNNNNNNNЎЎЎю1)??NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD AыВюдNNNNNNNNNNNNNNNNNЎЎЎю1/•™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS ORп™юrNNNNNNNNNNNNNNNNЎЎЎю1)зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTORoKюBNNNNNNNNNNNNNNNNЎЎЎю1Ж,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################### ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/MЗю NNNNNNNNNNNNNNNNЎЎЎю1жPNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEAR UNALLOCATED SECTOR COUNT ; LD (BUF_MOD),A ;CLEAN BUFFER ; LD HL,BLKBUF ;INIT BUFFER PTR LD (BUF_DMA),HL ; ; LOG •5ю$NNNNNNNNNNNNNNNNNЎЎЎю1 ›NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROl}яВNNNNNNNNNNNNNNNNЎЎЎю1Ј=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SETTRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & GO TO DEBUGGER ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALs™ю$NNNNNNNNNNNNNNNNNЎЎЎю1$IcNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++я,юNNNNNNNNNNNNNNNNNNЎЎЎю1*jlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE READ ; ; ; NORMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD JP R‹фю'NNNNNNNNNNNNNNNNNЎЎЎю10†ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,A JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),bюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNюЂМЃљ‚gѓ5„…Р…ќ†k‡9€‰У‰ Љn‹;ЊЌХЌЈЋqЏ>ђ‘Щ‘§’t“A”•Э•Є–x—E™б™Їљ}›KњќжќіћЃџO ЎкЎ·ў…ЈS¤!ҐоҐј¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю1‡@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMўюNNNNNNNNNNNNNNNNNЎЎЎю1-жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALLOC ъuюNNNNNNNNNNNNNNNNЎЎЎю1 В-NNNNNNNNNNNNNNNNNNNNNNЎЎЎы (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPER: ЄятNNNNNNNNNNNNNNNNЎЎЎю1вQNNNNNNNNNNNNNNNNNNNNNNЎЎЎыANY CASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAME DIAҐюдNNNNNNNNNNNNNNNNЎЎЎю1 љNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALL NZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_MOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ;R;юHNNNNNNNNNNNNNNNNNЎЎЎю1§ -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA'Kю!NNNNNNNNNNNNNNNNЎЎЎю1!Ѓ¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT DIRECTORY THEN DELAY WRITE CP A,WRDIR LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERROR THHlюNNNNNNNNNNNNNNNNNNЎЎЎю1'+NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыTATO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; CPM_WR: ; LD HLРЂю“NNNNNNNNNNNNNNNNЎЎЎю1-ДЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы POP IX RET ;**************************************************************************** ; ; CPM_RD PERFORMS THE PHYЈЌю!NNNNNNNNNNNNNNNNЎЎЎю1xµNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO SEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT)ќюNNNNNNNNNNNNNNNNNNЎЎЎю1 [єNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, M« юдNNNNNNNNNNNNNNNNNЎЎЎю1·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTORS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR LИАюNNNNNNNNNNNNNNNNЎЎЎю1¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE IT OUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; JR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; ; RЕnюNNNNNNNNNNNNNNNNЎЎЎю1тoNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMA) ;GE„pядNNNNNNNNNNNNNNNNЎЎЎю1"ФхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEN ABORT ; OR A,A JR NZ,RW_RET ; ; NO ERROR/DIRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (BUF_MOD),A ; CALL B9“я[NNNNNNNNNNNNNNNNNЎЎЎю1(;>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,LL_WRIT JP CPM_RW ;**************************************************************************** ; ; CPM_RD2 PERFORMS TЇїю!NNNNNNNNNNNNNNNNЎЎЎю1.‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSICAL READ FROM THE DISK INTO CPM_DMA. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SECr#яОNNNNNNNNNNNNNNNNNЎЎЎю1K„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы OR A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SE§юgNNNNNNNNNNNNNNNNNЎЎЎю1h‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыARK AS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE ; ђю NNNNNNNNNNNNNNNNNЎЎЎю1„3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DEC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL SECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TO ACC9нюьNNNNNNNNNNNNNNNNЎЎЎю1.•NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыEAD THE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_TRK),Ж®ятNNNNNNNNNNNNNNNNЎЎЎю1Б^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE tVюњNNNNNNNNNNNNNNNNЎЎЎю1#зДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUF_WR ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SET RES'NяЙNNNNNNNNNNNNNNNNNЎЎЎю1)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE PHYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTRY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK в>яЙNNNNNNNNNNNNNNNNNЎЎЎю1/ў©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERRORDЗю NNNNNNNNNNNNNNNNЎЎЎю1ЧNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCTOR != UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,(UNA_•dю№NNNNNNNNNNNNNNNNЎЎЎю1сNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDISKWRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0 LD» ю9NNNNNNNNNNNNNNNNЎЎЎю1С`NNNNNNNNNNNNNNNNNNNNNNЎЎЎыESS ; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVE IN 2дю$NNNNNNNNNNNNNNNNNЎЎЎю1>«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL ; LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A C/ятNNNNNNNNNNNNNNNNЎЎЎю1” NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (BUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER FLUSHљ`юHNNNNNNNNNNNNNNNNNЎЎЎю1$~SNNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎыULT STATUS FLAG POP IY POP IX ; RET ;**************************************************************************** ;ЇЛюBNNNNNNNNNNNNNNNNЎЎЎю1*]\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы# TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ›эю“NNNNNNNNNNNNNNNNNЎЎЎю10±дNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;**************************************************************************** ; CPM_RD: ; LD HL,LL_READ ; ; COMMONGю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNNNNNЃРЃћ‚lѓ9„…Ф…ў†o‡=€‰Ш‰ҐЉs‹AЊЌЬЌ«ЋyЏGђ‘в‘°’~“K”•ж•і–Ѓ—N™й™·љ…›Sњ!ќпќЅћ‹џY 'ЎфЎБўЏЈ\¤*ҐчҐЕ¦ЋNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю2+¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CODE ; CPM_RW: PUSH HL LD HL,CPM_TRK ; ; FALL INTO COMMON XFER CODE ; ;******************************************<юђNNNNNNNNNNNNNNNNNЎЎЎю2Ѓ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO ; (BUF_DDT)= DDT PTR ; (BUF_DPB)= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*****************************—яИNNNNNNNNNNNNNNNNЎЎЎю2 nБNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK # TO WRITE TO ; (BUF_SEC)= SECTOR # TO WRITE TO ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR >mю„NNNNNNNNNNNNNNNNЎЎЎю2NЅNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыJP RD_WR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-O€“яВNNNNNNNNNNNNNNNNЎЎЎю2ЎvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;DRV INC HL ;DPB_PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPB),DE ; ; FETCH DISK PARAMETER HEADER ADDRESS ; IN*юЙNNNNNNNNNNNNNNNNNЎЎЎю2РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыST2O) CP A,-1 ;-1:NONE, 0:JADE, 1:DESCRIPTOR, 2: EXTENDED, ; 3: PARTITIONED, ID JR Z,LGDEF ; ; ELSE IF OLD FORMAT±hюNNNNNNNNNNNNNNNNЎЎЎю2%бЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS),A ; ; RETURN DRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETURN NO-ERROR JR LGDONE ; ; ; IF NOT HARD DISK THE¶зю9NNNNNNNNNNNNNNNNЎЎЎю2+ВЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; HOME: ; ; IF PENDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(BUF_MOD) Ы7юBNNNNNNNNNNNNNNNNЎЎЎю2~яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; SET UP IOPB FOR EXECUTION ; ENTRY- HL= PTR TO IOPB IMAGE TRACK DATA ; IX= DDT PTR ;тю“NNNNNNNNNNNNNNNNNЎЎЎю2‘4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************** ; BUF_FLSH: ; ; IF UNMODIFIED THEN RETURN ; LD A,(BUF_MOD) OR A,A REРяИNNNNNNNNNNNNNNNNЎЎЎю2;’NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ;**************************************************************************** ; BUF_WR: ; LD HL,LL_WRIT JP BUF_RW яdNNNNNNNNNNNNNNNNЎЎЎю2Ч*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;++++++++++е5ю NNNNNNNNNNNNNNNNЎЎЎю2ф%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыC HL ;DPH PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPH),DE EX DE,HL ;PUT DPH PTR IN HL FOR RETURN ; ; IF NOT FIRST:њюNNNNNNNNNNNNNNNNNЎЎЎю2 {NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыS THEN PAD DPB DATA ; CP A,3 JR NC,IDOK ; LD HL,BLKBUF + ID_PSHO ;FILL DATA WITH 0S LD B,ID_FLGO - ID_PSHO ; PADIDL:ґЎяОNNNNNNNNNNNNNNNNNЎЎЎю2&ґЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN GO DO FLOPPY TEST ; LGDEF: BIT 4,(IX + DDT_FLG) JR Z,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XL§\юBNNNNNNNNNNNNNNNNЎЎЎю2,[NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HOME2: ; ; JUST SET TRACK TO 0 ; LD BC,0 ; ; F&ГюNNNNNNNNNNNNNNNNЎЎЎю2MОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IY= DPB PTR ; (SP)= ADDRESS {LL_READ, LLWRIT} OF EXECUTOR ; ;*************************************************************€юNNNNNNNNNNNNNNNNNNЎЎЎю2 ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET Z ; ; ELSE SET PTRS TO BUFFER DATA ; PUSH IX PUSH IY LD IX,(BUF_DDT) LD IY,(BUF_DPB) ; ; WRITE THE BUFFER DA*‰юNNNNNNNNNNNNNNNNNЎЎЎю2ЈNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;**************************************************************************** ; ; RDBUF PERFORMS THE PHYSICAL READ FROM THE OFю9NNNNNNNNNNNNNNNNЎЎЎю2дNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SELDSK: ; ; STORE DRIVE # FOR FUTURE USE ; LD A,C ьљяОNNNNNNNNNNNNNNNNNЎЎЎю2ЗNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) ;0: LOGON, 1:INHIBIT OR A,C ;0: NORMAL, 1: INHIBIT CPL 0Pю!NNNNNNNNNNNNNNNNЎЎЎю2!-JNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LD (HL),0 INC HL DJNZ PADIDL ; ; ELSE XFER ID SECTOR DATA TO TABLES ; IDOK: CALL TRNONE ;ASSUME NO TRANSLATION ; ;¬юNNNNNNNNNNNNNNNNNЎЎЎю2'‡мNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_DPB) ; USE DEFAULT TABLE LD BC,DPB_SZ LDIR ; LD A,(HLtюHNNNNNNNNNNNNNNNNЎЎЎю2-h'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL INTO SET TRACK ; ;**************************************************************************** ; ; SET TRACK # ; EN-~юNNNNNNNNNNNNNNNNЎЎЎю2ФYNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы*************** ; RD_WR: LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; ; EXECUTE LOW LEVEL READ OR WRITE (ON STЏю9NNNNNNNNNNNNNNNNЎЎЎю2 чVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTA ; CALL BUF_WR ; ; RESTORE THE PTRS ; POP IY POP IX ; ; IF ERROR THEN RETURN IT ; OR A,A RET NZ ; ; EOНю NNNNNNNNNNNNNNNNNЎЎЎю2оNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHOST DISK INTO BLKBUF. ; ENTRY- (BUF_DSK)= DISK # TO READ FROM ; (BUF_TRK)= TRACK # TO READ FROM ; (BUF_SEC)= SECTOR # TO R6lю NNNNNNNNNNNNNNNNЎЎЎю2±HNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (CPM_DSK),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETD7:яОNNNNNNNNNNNNNNNNNЎЎЎю2^ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; PUSH IX ;SAVE REGS PUSH IY ; LD IX,(CUR_DDT) ;SET REGS LD IY,(CUR_DPB) bQяВNNNNNNNNNNNNNNNNЎЎЎю2"xNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(BLKBUF + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] «ю NNNNNNNNNNNNNNNNNЎЎЎю2(—ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ;HEADS VALUE JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERROR EXIT ; E®яВNNNNNNNNNNNNNNNNЎЎЎю2.=tNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRY- BC= TRACK # ; ;**************************************************************************** ; SETTRK: LD (CPM_TRK),BCбюNNNNNNNNNNNNNNNNNЎЎЎю2зhNNNNNNNNNNNNNNNNNNNNNNЎЎЎыACK) ; RET ;**************************************************************************** ; ; BUF_FLSH FLUSHES THE BUFFПbюNNNNNNNNNNNNNNNNNЎЎЎю2ДgNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLSE CLEAN BUFFER ; LD (BUF_MOD),A RET ;**************************************************************************** ;В-ятNNNNNNNNNNNNNNNNNЎЎЎю2(ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEAD FROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;**************************************Й”юNNNNNNNNNNNNNNNNNЎЎЎю2‚yNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVRT ;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HL= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUR_DDTуЃю NNNNNNNNNNNNNNNNЎЎЎю2mІNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ; ATTEMPT TO READ ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JR NZ,LOGERR ; CALL DISKLOG JR NZ,LOGERR ; ; IF_PюrNNNNNNNNNNNNNNNNЎЎЎю2#K(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,BLKBUF ;"юHNNNNNNNNNNNNNNNNNЎЎЎю2)¤гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOGERR: LD HL,0 ; ; DONE ; LGDONE: POP IY ;RESTORE REGS POP IX RET ;********************************************}ю NNNNNNNNNNNNNNNNNЎЎЎю2/ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ;**************************************************************************** ; ; SET SECTOR ; ENTRY- BC= SECTOR пCятNNNNNNNNNNNNNNNNЎЎЎю2І;NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыER DATA IF MODIFIED ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_PSEC)= SECTOR # TO WRITE4БюBNNNNNNNNNNNNNNNNЎЎЎю2]рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; BUF_WR PERFORMS THE PHYSICAL WRITE FROM BLKBUF TO THE HOST DISK. ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRAC}®ю NNNNNNNNNNNNNNNNЎЎЎю2}ЊNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************************** ; BUF_RD: ; LD HL,LL_READ ; ; COMMON CODE ; BUF_RW: PUSH HL LD HL,BUF_TRK 6lюNNNNNNNNNNNNNNNNNЎЎЎю2’GNNNNNNNNNNNNNNNNNNNNNNЎЎЎы),HL ; ; FETCH FLAGS ; INC HL ;EXE +1 INC HL ;FLGS LD C,(HL) ; ; FETCH DISK PARAMETER BLOCK ADDRESS ; INC HLYBюrNNNNNNNNNNNNNNNNЎЎЎю28бNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NO ID SECTOR THEN USE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISK DEFAULTS IN DEFBFR IN ALL CASES) ; LD A,(IOPB + PB_Њ©юNNNNNNNNNNNNNNNNNЎЎЎю2$ТїNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+ ID_SPTO LD BC,DPB_SZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (IX + DDT_HDъю!NNNNNNNNNNNNNNNNЎЎЎю2*с°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;*********************************=#ю'NNNNNNNNNNNNNNNNNЎЎЎю20NNNNNNNNNNNNNNNNNNNNNNЎЎЎы# ; ;**************************************************************************** ; SETSEC: LD (CPM_SEC),BC RET ;**ѕ6юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNюЂМЃ™‚fѓ3„…О…›†h‡6€‰Р‰ќЉk‹9ЊЌФЌўЋpЏ=ђ‘Ш‘¦’t“A”•Ь•©–x—E™а™Їљ}›KњќеќІћЃџO ЎкЎёў†ЈS¤!ҐоҐј¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю2њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXITєbяИNNNNNNNNNNNNNNNNNЎЎЎю2¶:NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC oю NNNNNNNNNNNNNNNNЎЎЎю2 YсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STЕkяВNNNNNNNNNNNNNNNNЎЎЎю2yЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; INHIBIT UPLOAD ; LD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A ; ; CALCULATE DOWNLOAD BYTE COUNT ; LD A,(IY + DPuиятNNNNNNNNNNNNNNNNЎЎЎю2–FNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; ; OFFSET SECTOR ; LD HL,(IOPB + PB_SECO) LD A,L ADD A,(IX + DDT_SOF) LD L,A LD A,H ADC A,(IX + DDT_SOF + 1)!›юNNNNNNNNNNNNNNNNNЎЎЎю2<аNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC пµюNNNNNNNNNNNNNNNNЎЎЎю2%ЦѕNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (CUR_DPH)= MUST BE PTR TO DPH ; WюNNNNNNNNNNNNNNNNЎЎЎю2+х±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM: ; ; EXECUTE THE PRIMITIVE IN ROM ; LD A,(BUF_DMэкюњNNNNNNNNNNNNNNNNЎЎЎю2IПNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы - A= ? ; ;**************************************************************************** ; SETDMA: LD (CPM_DMA),BC ; LD A,·юHNNNNNNNNNNNNNNNNNЎЎЎю2¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD H€юNNNNNNNNNNNNNNNNЎЎЎю2ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_READ: ; ; ENABLE UPLOAD ; Xh–юдNNNNNNNNNNNNNNNNЎЎЎю2аNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыB_PSH) ;USE SHIFT FACTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;START WITH 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE SECTзМю NNNNNNNNNNNNNNNNЎЎЎю2ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD H,A LD (IOPB + PB_SECO),HL ; ; SET PHYSICAL DRIVE ; LL_DO: LD A,(IX + DDT_DRV) LD (IOPB + PB_DRVO),A ; ; FETЧ4юdNNNNNNNNNNNNNNNNNЎЎЎю2 )KNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы CALL CRLF ;NEW LINE POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN TRY AGAIN ; CP A,'R' ;IF RETRY THEN‹ќяОNNNNNNNNNNNNNNNNNЎЎЎю2&ѓнNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыEXIT - DE, HL= ? ; ;**************************************************************************** ; TR8: LD DE,SDTRAN ; SXэюNNNNNNNNNNNNNNNNЎЎЎю2,l&NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAB) ;PRESET IOPB BANK LD E,A ; LD HL,IOPB CALL MR_XIOB ;EXECUTE THE FUNCTION ; OR A,A ;FUNCTION ERR? RET NZ ; ; џЩюNNNNNNNNNNNNNNNNЎЎЎю2zюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(BUF_DMAB) ;FETCH BANK ADDRESS SET BY COLD START LD (CPM_DMAB),A ; ; DONE ; RET ;+++++++++++++++++++++++++++++++++Й,юјNNNNNNNNNNNNNNNNЎЎЎю2 •5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++°аю'NNNNNNNNNNNNNNNNNЎЎЎю2?“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD HL,0 LD (IOPB + PB_BCNTO),HL ; ; PASS READ SECTOR COMMAND ‘ ятNNNNNNNNNNNNNNNNЎЎЎю2У+NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыORS ; JR Z,LL_WR2 ;IF SHIFT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HL ;DOUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2: LD hЁяОNNNNNNNNNNNNNNNNNЎЎЎю2р$NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCH DRIVER VECTOR & EXECUTE DISK DRIVER ; LL_OPLP: LD HL,LL_OPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD L,(IX + DDT¦ЊюњNNNNNNNNNNNNNNNNЎЎЎю2!zNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RETURN TO CALLER JR Z,LL_OPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; еЯяВNNNNNNNNNNNNNNNNЎЎЎю2'°ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETTR: LD HL,(CUR_DPH) LD (HL),E INC HL LD (HL),D RET ;*************************************************************В¶ю“NNNNNNNNNNNNNNNNЎЎЎю2-_NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A RET ;+++++++++++++++++++++++++++++++++++++++++++lпюњNNNNNNNNNNNNNNNNЎЎЎю2гiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE0Ёю!NNNNNNNNNNNNNNNNЎЎЎю2 АfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++pюrNNNNNNNNNNNNNNNNNЎЎЎю2,ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,PB_READC JP LL_RW ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVELЕятNNNNNNNNNNNNNNNNЎЎЎю2†xNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ; ; FALL INTO COMMON CODE ; ;++++++++++++++++++++++b7юNNNNNNNNNNNNNNNNNЎЎЎю2iіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_EXE) ;FETCH DRIVER ADDRESS FROM TABLE LD H,(IX + DDT_EXE + 1) JP (HL) ; ; DRIVER RETURNS HERE ; LL_OPRET: ; ; IF ЇятNNNNNNNNNNNNNNNNЎЎЎю2"O)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыELSE IF DEBUGGER THEN EXECUTE IT ; CP A,'M' JP Z,MR_BRK ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGN…юЙNNNNNNNNNNNNNNNNNЎЎЎю2( вNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************** ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;*********************************************Ыpю!NNNNNNNNNNNNNNNNЎЎЎю2. DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IX= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR RљяОNNNNNNNNNNNNNNNNNЎЎЎю2РXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= UNCHANGED ; A, DE= ? ; ;+++++++++++++++++++++++++++oPю'NNNNNNNNNNNNNNNNNЎЎЎю2уWNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ ; DISKLOG: ; ; SET UP READ IOPB ; LD A,(BUF_DMAB) LD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPB LDAйюNNNNNNNNNNNNNNNNNЎЎЎю2пNNNNNNNNNNNNNNNNNNNNNNЎЎЎы WRITE ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;+++++++++++++++++++++++++++++++++++++++++++… юBNNNNNNNNNNNNNNNNЎЎЎю2µINNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON IOPB EXECUTER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE PTR 78юдNNNNNNNNNNNNNNNNЎЎЎю2Z‚NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыNO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK LD EЎЯю9NNNNNNNNNNNNNNNNЎЎЎю2#|NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ; ; ; DIЙ)юNNNNNNNNNNNNNNNNNЎЎЎю2)“УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* ; TRNONE: LD DE,0 JR SETTR SUBTTL HARD DISK ROUTINES ;+++++++++++++++++++++++++++++++XШю$NNNNNNNNNNNNNNNNNЎЎЎю2/9uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; HDEXEC: EQU XPRIM SUBTTL JADE FLOPPY Hрю NNNNNNNNNNNNNNNNЎЎЎю2…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABhюNNNNNNNNNNNNNNNNЎЎЎю2jАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DE,IOPB LD BC,PB_STATO LDIR ; ; EXECUTE WITHOUT COMPENSATION ; JR LL_DO ;++++++++++++++++++++++++++++++++++++++©юBNNNNNNNNNNNNNNNNЎЎЎю2JјNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++ ; LL_WRIT: ; ; IF STILL PROTECTED THEN ERROR ; LD A,(WR_PROT) OR A,A JR NZ,DO_ERR'>юNNNNNNNNNNNNNNNNNЎЎЎю2ҐwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; IY= DPB PTR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_RW: LD (IOPB + PB_CMDO),уpяВNNNNNNNNNNNNNNNNЎЎЎю2СNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,A ; LD HL,IOPB LD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL XMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB ЉюHNNNNNNNNNNNNNNNNNЎЎЎю2$еЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSPLAY WRITE PROTECT ERROR MESSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR JR IOPBDMP ;************************************µ7ю!NNNNNNNNNNNNNNNNЎЎЎю2*ЖЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;++++++++++++++їLюHNNNNNNNNNNNNNNNNNЎЎЎю20*8NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDRIVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER ДОю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNЃСЃџ‚lѓ9„…Ф…Ј†p‡?€‰Щ‰¦Љt‹BЊЌЭЌ¬ЋzЏHђ‘г‘І’Ђ“M”•и•µ–„—Q™н™»љ‰›Wњ$ќтќїћЌџ[ (ЎхЎВўђЈ]¤+ҐшҐЗ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю3]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++@юHNNNNNNNNNNNNNNNNNЎЎЎю3чѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISP*:яЙNNNNNNNNNNNNNNNNЎЎЎю3 uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################# ; ; BIOS FUNCTION TABLE ; ;###############################################################xМяВNNNNNNNNNNNNNNNNЎЎЎю38 NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы TABLE BASE PTR ; NZ= ILLEGAL DRIVE REQUESTED (HL=0) ; A, B, C= ? ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++л<ю9NNNNNNNNNNNNNNNNЎЎЎю3ЧВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,0 OR A,A ;SET NZ RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DDT_SIZ ; RETDVL: ADD HL,DE DJзяЙNNNNNNNNNNNNNNNNNЎЎЎю3}dNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*************************************************************************** ; ; SYSTEM CюЙNNNNNNNNNNNNNNNNЎЎЎю3%—:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF ¤ьюNNNNNNNNNNNNNNNNNЎЎЎю3+ґ5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++уюNNNNNNNNNNNNNNNNЎЎЎю3KNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++ ; FD8EXEC: ; ; IF HEADS == 1 THEN EXECUTE IOPB ; LD A,(IX + DDT_HDS) DEC A JP Z,XPRIM ; ;Гjю“NNNNNNNNNNNNNNNNNЎЎЎю3зЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATCHER ; ENTRY- C= FUNCTION # ; EXIT - A= -1: ERROR, 0: OK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++рЦюgNNNNNNNNNNNNNNNNЎЎЎю3M&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR MAXFRKюдNNNNNNNNNNNNNNNNЎЎЎю3ЎћNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++ ; RETDVRTF: ; ; ADJUST REGISTER ; LD C,E ; ; FALL INTO LOCAL ENTRY ; ;+++++++++++++++~&ю NNNNNNNNNNNNNNNNЎЎЎю3‚‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNZ RETDVL ; LD A,(BUF_DMAB) LD E,A ; ; RETURN NO ERROR ; XOR A,A RET ;+++++++++++++++++++++++++++++++++++++++6ЏюЙNNNNNNNNNNNNNNNNNЎЎЎю3 hПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSуюNNNNNNNNNNNNNNNNNNЎЎЎю3&ВiNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыCALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BC ;SAVE FUNC8ю„NNNNNNNNNNNNNNNNЎЎЎю3,-ўNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;+++ЙоюdNNNNNNNNNNNNNNNNЎЎЎю3;zNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ELSE SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) PUSH HL ;SAVE ORIGINAL DATA ; LD A,(IOPB + PB_SECO + 1) «|юNNNNNNNNNNNNNNNNNNЎЎЎю3 Ф±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ЎёяИNNNNNNNNNNNNNNNNNЎЎЎю3~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS ЋюBNNNNNNNNNNNNNNNNЎЎЎю3’ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # ; EXIњяОNNNNNNNNNNNNNNNNNЎЎЎю3± NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;++++++++++++++++++++++++++++++++++ УяNNNNNNNNNNNNNNNNЎЎЎю3![юNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTEM CALLS FOR ASMB. ; ;*************************************************************************** INTCPT: LD A,C ;CHECK CALчЖяОNNNNNNNNNNNNNNNNNЎЎЎю3'сXNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ; OUTPUT FUNCTION # ; POP BC LDСrю$NNNNNNNNNNNNNNNNЎЎЎю3-“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,MF_GCAL JP XMROM ;++++++++++HHюњNNNNNNNNNNNNNNNNЎЎЎю3ўнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADD A,A ;BIT 15 -> BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; LD (IOшюBNNNNNNNNNNNNNNNNЎЎЎю3 ЃвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,!зю NNNNNNNNNNNNNNNNNЎЎЎю3mZNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыVERSION # FUNCTION #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++э‹ю NNNNNNNNNNNNNNNNЎЎЎю3ЗьNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, C= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++љ™юNNNNNNNNNNNNNNNNNЎЎЎю3(7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES ;**********вiюNNNNNNNNNNNNNNNNЎЎЎю3"NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOu¶ю NNNNNNNNNNNNNNNNNЎЎЎю3(бfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,MF_PHXB CALL XMROM ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A ;BC = HL = A = 0 LD L,A LD]ю9NNNNNNNNNNNNNNNNЎЎЎю3.KАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MI‹yюNNNNNNNNNNNNNNNNNNЎЎЎю3‘ЬNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPB + PB_TRKO),HL ;TRACK = RESIDUAL ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORKn юђNNNNNNNNNNNNNNNNNЎЎЎю3ІУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DmятNNNNNNNNNNNNNNNNNЎЎЎю3^kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;++++++++++++++++++++++++++++++++++ЯДяьNNNNNNNNNNNNNNNNЎЎЎю3фНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THПЇятNNNNNNNNNNNNNNNNЎЎЎю3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************** ; ; NEWLINE PROCEDURE ; ;*********************************7фю9NNNNNNNNNNNNNNNNЎЎЎю3#=њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRP%юINNNNNNNNNNNNNNNNNЎЎЎю3)ТWNNNNNNNNNNNNNNNNNNNNNNЎЎЎы H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETUR«ґю NNNNNNNNNNNNNNNNNЎЎЎю3/xсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNUTES ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKTIM: LD A,MF_GTIM ‚‘ятNNNNNNNNNNNNNNNNЎЎЎю3ДЏNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; POP HL ;TRACK LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO +1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; RET сOюњNNNNNNNNNNNNNNNNЎЎЎю3+DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;###########################################і ятNNNNNNNNNNNNNNNNЎЎЎю38NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION #1 ; ENTRY- E= DRIVE # ; EXIT - E:HL= DRIVER(uю$NNNNNNNNNNNNNNNNNЎЎЎю3дуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; є}ю„NNNNNNNNNNNNNNNNЎЎЎю3NUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************** ; CRLF: LD C,CR CALL COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONALHjюHNNNNNNNNNNNNNNNNNЎЎЎю3$¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP AC¦ю!NNNNNNNNNNNNNNNNЎЎЎю3*‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ АяИNNNNNNNNNNNNNNNNNЎЎЎю30kјNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JP XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; MONITOR ROM EXECUTгъюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNюЂНЃљ‚hѓ6„…С…ћ†k‡9€‰Х‰ўЉp‹>ЊЌШЌҐЋsЏAђ‘Ь‘Є’x“E”•а•–|—J™е™іљЃ›Pњќлќёћ†џT !ЎпЎјўЉЈW¤%ҐтҐА¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю3j(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыER ; ENTRY- A= FUNCTION # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XMROM: EQU MR_FиЅюNNNNNNNNNNNNNNNNNЎЎЎю3АЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; COC: ьаюNNNNNNNNNNNNNNNNЎЎЎю3 /ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY- C= CHAR TO OUTPUT ; ;**************************************************************************** ; LO: LD A,MF_LO J®=ю„NNNNNNNNNNNNNNNNЎЎЎю39NNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################### ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;w-ю NNNNNNNNNNNNNNNNЎЎЎю3атNNNNNNNNNNNNNNNNNNNNNNЎЎЎы. ; 0 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} ; 4 1: HARD DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE # DDT%aюђNNNNNNNNNNNNNNNNNЎЎЎю3JTNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DRIVER EXECUTION ADDR DB #FLG ;FLAGS DB #PD ;MONITOМйю$NNNNNNNNNNNNNNNNЎЎЎю3% NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,4,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV HDEXEC,7,10H,D4DPB,D4DPH,4,0 ; `ью9NNNNNNNNNNNNNNNNЎЎЎю3+ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0†ѕю!NNNNNNNNNNNNNNNNЎЎЎю3?{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUN SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE IJ_ю“NNNNNNNNNNNNNNNNNЎЎЎю3Р°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,MF_CO JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - D-IяИNNNNNNNNNNNNNNNNЎЎЎю3zNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXэ'ядNNNNNNNNNNNNNNNNЎЎЎю3–®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################################ ; SDTRAN: GXLATE 26,6 ;#####################С\ятNNNNNNNNNNNNNNNNЎЎЎю3µЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_DPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THIS DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DE9ю NNNNNNNNNNNNNNNNNЎЎЎю3 _яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK PARAMETER HEADER PTR DB #HDS ;HEADS DW #SOF ;SECT»-юNNNNNNNNNNNNNNNNNЎЎЎю3&хYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF DDT_5: ALLDRV HDEXEC,7,12H,D5DPB,D5DPH,4,8000H ENDIF ;##############################################################Июю9NNNNNNNNNNNNNNNNЎЎЎю3,’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW rОюNNNNNNNNNNNNNNNNЎЎЎю3JNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI Ц,юњNNNNNNNNNNNNNNNNЎЎЎю3 гЃNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLi<ю'NNNNNNNNNNNNNNNNNЎЎЎю3I'NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISTST: LD A,?ю9NNNNNNNNNNNNNNNNЎЎЎю3ҐџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ; ; COMMON I/O PARAMETER BLOCK ; ;##################################Ию!NNNNNNNNNNNNNNNNЎЎЎю3†ђNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыSCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SECTOR OFFSET ; ; DEFINE THE STRUCTURE SIZE ; DDT_Sню9NNNNNNNNNNNNNNNNЎЎЎю3!lОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,6,10H,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,6,12H,D1lшяОNNNNNNNNNNNNNNNNNЎЎЎю3'ЖhNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############## ; ; MESSAGES ; ;############################################################################ ; MSGLE: DM ?ЊюHNNNNNNNNNNNNNNNNЎЎЎю3-)ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; КЯю!NNNNNNNNNNNNNNNNЎЎЎю3•ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT юNNNNNNNNNNNNNNNNЎЎЎю3 ¶ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;***************************************************************************кKю NNNNNNNNNNNNNNNNNЎЎЎю3ZjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMF_LOS JP XMROM ;**************************************************************************** ; ; MESSAGE EDITOR ; ENTА¬ятNNNNNNNNNNNNNNNNЎЎЎю3рМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################## ; IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;#####################уSяОNNNNNNNNNNNNNNNNNЎЎЎю3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIV™MятNNNNNNNNNNNNNNNNЎЎЎю3"9ќNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,7,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,7,12H,D3DPB,D3DPH,4,8000H ; [юINNNNNNNNNNNNNNNNNЎЎЎю3(ЦVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; WP_ERM: DM CR,LF,'W-PROT Error!' ; IF INTCPTS яВNNNNNNNNNNNNNNNNЎЎЎю3.|рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;#####################################################################іШяОNNNNNNNNNNNNNNNNNЎЎЎю3¦мNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; C .юHNNNNNNNNNNNNNNNNNЎЎЎю3…гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;**************************************************************************ўДюNNNNNNNNNNNNNNNNNЎЎЎю3i[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;*****************************************************************T—ю= STHD)јШю!NNNNNNNNNNNNNNNNЎЎЎю4&“DNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыSTRUCT 0 DPB_SPT DS 2 ;SPT- SECTORS/TRACK DPB_BSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4,‹µюrNNNNNNNNNNNNNNNNЎЎЎю4,|ЏNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPB_PSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256,¤ію NNNNNNNNNNNNNNNNЎЎЎю4jWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SOF) ; ; ; DB 4 ;HEADS ;#шЧяОNNNNNNNNNNNNNNNNNЎЎЎю4 …њNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW Dxmю'NNNNNNNNNNNNNNNNNЎЎЎю4/:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;#######################################џBюNNNNNNNNNNNNNNNNЎЎЎю4Г‚NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBUFFER PHYSICAL SECTOR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER BUF_MOD DS 1 ;0: BUFFER CLEAN, /0: BUFFER DIRTY (MOx?юњNNNNNNNNNNNNNNNNЎЎЎю4аЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы### ; ; VARIABLES ; ;############################################################################ ; CUR_DPB DS 2 ;DRIVE |юњNNNNNNNNNNNNNNNNЎЎЎю4! УNNNNNNNNNNNNNNNNNNNNNNЎЎЎы AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 128 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AN ґюNNNNNNNNNNNNNNNNNЎЎЎю4' uNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 4K= 5, 8K= 6, 16K= 7 DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;EXM- EXTENT M°ЃюHNNNNNNNNNNNNNNNNЎЎЎю4-OѕNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 2: 512, 3: 1024 DPB_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDIT‰tюBNNNNNNNNNNNNNNNNЎЎЎю4уАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; р¦яВNNNNNNNNNNNNNNNNЎЎЎю4 РПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ;·UюNNNNNNNNNNNNNNNNNЎЎЎю4 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSM- DRIVv\яNNNNNNNNNNNNNNNNЎЎЎю4.нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF A”*яОNNNNNNNNNNNNNNNNNЎЎЎю4АсNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@5;юHNNNNNNNNNNNNNNNNNЎЎЎю4гюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;#######9&ятNNNNNNNNNNNNNNNNNЎЎЎю4FNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################### ; ; CP/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL DRIVE CTюNNNNNNNNNNNNNNNNЎЎЎю4ҐаNNNNNNNNNNNNNNNNNNNNNNЎЎЎы READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED ¬юNNNNNNNNNNNNNNNNЎЎЎю4J+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; ; DRIVE ALLOCATION AREAS ; ;################‡`юrNNNNNNNNNNNNNNNNЎЎЎю4#l±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0Йаю'NNNNNNNNNNNNNNNNNЎЎЎю4)ѓzNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPB_DRM DS 2 ;DRM- DIRECTO"OяЙNNNNNNNNNNNNNNNNNЎЎЎю4/)ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UPPER BI~єятNNNNNNNNNNNNNNNNЎЎЎю4•ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@«”юrNNNNNNNNNNNNNNNNЎЎЎю4ziNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################################### ; ; LOGON IOPB OVERLAY ; ;############################uю NNNNNNNNNNNNNNNNЎЎЎю4ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER DS 1 ;FLAGS CPM_DMA DS 2 ;XFER ADDR CPM_DMAB DS 1 ;XF*юNNNNNNNNNNNNNNNNNЎЎЎю4µЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; PRERЭЏяВNNNNNNNNNNNNNNNNЎЎЎю4xNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################ ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4ю“NNNNNNNNNNNNNNNNNЎЎЎю4$х&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;###########################################################################‹|юNNNNNNNNNNNNNNNNNЎЎЎю4*Ц)NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRY SIZE -1 DPB_AL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS- # DIRECTORрю$NNNNNNNNNNNNNNNNNЎЎЎю40:‘NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTS) ; DPB_SECO DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SZ DS 0 ENDM ; ; ;@@@@@@ЁBяИNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNюЂМЃ›‚iѓ6„…У… †m‡<€ ‰Ш‰ҐЉs‹AЊЌЬЌ«ЋyЏIђ‘г‘°’~“K”•и•¶–„—Q™м™єљ€›Wњ$ќтќАћЋџ\ )ЎчЎЕў“Ј`¤.ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю4;NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@™юђNNNNNNNNNNNNNNNNNЎЎЎю4‘ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############### ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;####################################################################ў юђNNNNNNNNNNNNNNNNNNЎЎЎю4 ~hNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@ёґяЙNNNNNNNNNNNNNNNNNЎЎЎю4^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; REVISIONS: ; ; 1.0 - ; ORIGINAL ; ; 1.1 - 3 MAR 87 GRH ; CP/M 2.X deblocking based on CP/M 3.'"ю№NNNNNNNNNNNNNNNNЎЎЎю4±ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK ; CALCULATE FROM: ; ;HSTBLK EQU HSTSIZ/128 ;CP/M SECTORS IN SECTOR BUFFER ; CALCULATE FROM: CUR_DPB.DPBPHM + 1 ; ;CPMSяИNNNNNNNNNNNNNNNNNЎЎЎю4yNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************ ;* * ;* THE BDOS ENTRY POINTS GIVEN BELOW SHOW THE 4$юЙNNNNNNNNNNNNNNNNЎЎЎю4%с'NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы= DISK # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SELDSK: ; ; SAVE DISK # AS REQUE’@ю9NNNNNNNNNNNNNNNNЎЎЎю4+Т(NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+ ; ; HOME THE SELECTED DISK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HOME: ; ; ЪюњNNNNNNNNNNNNNNNNЎЎЎю4nVNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPB_SZ ;ALLOCATIј~юHNNNNNNNNNNNNNNNNNЎЎЎю4ЃќNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы######## STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= k¦яЙNNNNNNNNNNNNNNNNЎЎЎю4+;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@я„NNNNNNNNNNNNNNNNNЎЎЎю4ЗѓNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыx Data structures (dynamic). ; ;**************************************************************************** ;===========ѕятNNNNNNNNNNNNNNNNЎЎЎю4дЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPT EQU HSTBLK * HSTSPT ;CP/M SECTORS/TRACK ; CALCULATE FROM: CUR_DPB.DPBSPT ; ;SECMSK EQU HSTBLK-1 ;SECTOR MASK ; CALCULATE №ятNNNNNNNNNNNNNNNNNЎЎЎю4 ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы * ;* CODE WHICH IS RELEVANT TO DEBLOCKING ONLY. * ;* * ;**********B©юNNNNNNNNNNNNNNNNNNЎЎЎю4&¤tNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTED DISK ; LD A,C LD (SEKDSK),A ; ; LOOK UP DISK PTR IN TABLE ; LD HL,DRV_TBL ;BASE ADD A,A ;WORD PTRS ADD A,L&яВNNNNNNNNNNNNNNNNЎЎЎю4,KїNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IF PENDING WRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(HSTWRT) OR A,A RET NZ ; ; ELSE PURGE BUFFER ; LD (HSTACT),A $юdNNNNNNNNNNNNNNNNЎЎЎю4]gNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыON FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCD1}юNNNNNNNNNNNNNNNNNNЎЎЎю4 І¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EЈРятNNNNNNNNNNNNNNNNNЎЎЎю4 NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIЄRю NNNNNNNNNNNNNNNNNNЎЎЎю4фІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================================== ;* * ;* CP/M TO HOST DISKчяВNNNNNNNNNNNNNNNNЎЎЎю4ЧЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFROM: CUR_DPB.DPBPHM ; ;SECSHF EQU @X ;LOG2(HSTBLK) ; CALCULATE FROM: CUR_DPB.DPBPSH ;=================================С\юBNNNNNNNNNNNNNNNNЎЎЎю4!=гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ xЭю!NNNNNNNNNNNNNNNNЎЎЎю4'—ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD L,A LD A,0 ADC A,H LD H,A LD A,(HL) ;FETCH PTR INC HL LD H,(HL) LD L,A LD (CUR_DPH),HL ; ; FETCH DPB тоя[NNNNNNNNNNNNNNNNЎЎЎю4-xЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;A= 0 AT THIS POINT RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SET TRACK GrяВNNNNNNNNNNNNNNNNЎЎЎю4ДрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEF DD DL DD + 1 LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ - 8000H) > 07700H) O>WятNNNNNNNNNNNNNNNNЎЎЎю4 зяNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSMМјяИNNNNNNNNNNNNNNNNNNЎЎЎю4GNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL EяИNNNNNNNNNNNNNNNNNЎЎЎю4ЎбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CONSTANTS * ;* * ;===========================================ОѕяИNNNNNNNNNNNNNNNNNЎЎЎю4N*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы==================== ;* * ;* BDOS CONSTANTS ON ENTRY TO WRITE ¦ХяВNNNNNNNNNNNNNNNNЎЎЎю4"h°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ENTER HERE ON SYSTEM BOOT TO INITIALIZE ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)nюNNNNNNNNNNNNNNNNNЎЎЎю4(‡{NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPTR ; PUSH IX ;SAVE IX 1ST PUSH HL POP IX ; LD L,(IX+DPHDPBO) LD H,(IX+DPHDPBO + 1) LD (CUR_DPB),HL ; ; FETCHДUюBNNNNNNNNNNNNNNNNЎЎЎю4.-ЭNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIVEN BY REGISTERS BC ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SETTRK: ; ; STORE TR°‡юNNNNNNNNNNNNNNNNNNЎЎЎю4чБNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END єSяHNNNNNNNNNNNNNNNNNЎЎЎю4ФОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DI%-яЙNNNNNNNNNNNNNNNNNNЎЎЎю48vNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;***************************************************** ;* * ;* SECTOR DдњюNNNNNNNNNNNNNNNNЎЎЎю4’РNNNNNNNNNNNNNNNNNNNNNNЎЎЎы========== ;BLKSIZ ;CP/M ALLOCATION BLOCK SIZE (IN BYTES, 1K,2K,4K,8K,16K) ; CALCULATE FROM: 0400H SHL (CUR_DPB.DPBBSH - 3) pЯюЙNNNNNNNNNNNNNNNNЎЎЎю4}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы * ;* * ;===================================================== WRALL EQU Kпю9NNNNNNNNNNNNNNNNЎЎЎю4#[ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BOOT: WBOOT: ; ; ASSUME NO DATA IN BUFFER ; XOR A,A LD (HSTACT),A ; ; CLEAR UNALLOCATED SECTOR COUNT ; LD (UNљ„юNNNNNNNNNNNNNNNNNЎЎЎю4)ґJNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CURRENT BUFFER CONTROL BLOCK PTR ; LD L,(IX+ DPHDTABO) LD H,(IX+ DPHDTABO + 1) LD (CUR_BCB),HL ; ; RESTORE & RETURN •Їю[NNNNNNNNNNNNNNNNNЎЎЎю4/мNNNNNNNNNNNNNNNNNNNNNNЎЎЎыACK # ; LD (SEKTRK),BC RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SET SC5юrNNNNNNNNNNNNNNNNЎЎЎю4ў’NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;#############################################################{ЕяОNNNNNNNNNNNNNNNNNЎЎЎю4MYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECПtю9NNNNNNNNNNNNNNNNNЎЎЎю4m%NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEBLOCKING ALGORITHMS FOR CP/M 2.0 * ;* * ;*******************************c^юдNNNNNNNNNNNNNNNNNЎЎЎю4‚оNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;HSTSIZ ;PHYSICAL DISK SECTOR SIZE ; CALCULATE FROM: 0080H SHL CUR_DPB.DPBPSH ; ;HSTSPT EQU 64 ;PHYSICAL DISK SECTORS/TЌюBNNNNNNNNNNNNNNNNЎЎЎю4(HNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ;WRITE TO ALLOCATED WRDIR EQU 1 ;WRITE TO DIRECTORY WRUAL EQU 2 ;WRITE TO UNALLOCATED ;*****************************C±юђNNNNNNNNNNNNNNNNNЎЎЎю4$ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎыACNT),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DISK ; ENTRY- Cэ1юBNNNNNNNNNNNNNNNNЎЎЎю4*бNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDPH PTR ; POP IX ; LD HL,(CUR_DPH) RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Эя^NNNNNNNNNNNNNNNNNЎЎЎю40 ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR GIVEN BY REGISTER BC ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SETSEC: LD (SEKс.ю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNЃРЃќ‚jѓ7„…Т…Ў†n‡<€ ‰Ч‰¤Љr‹?Њ ЌЪЌ©ЋwЏDђ‘Я‘’z“G”•в•Ї–~—K™ж™ґљ‚›Qњќнќєћ‰џW $ЎсЎѕўЊЈY¤(ҐцҐД¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю5zЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEC),BC ;SECTOR TO SEEK RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SET DM:«яИNNNNNNNNNNNNNNNNNЎЎЎю5Р'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTAKES THE PLACE OF * ;* THE PREVIOUS BIOS DEFINTION FOR READ. * ;* ®†юINNNNNNNNNNNNNNNNЎЎЎю5 ?мNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;******************I юњNNNNNNNNNNNNNNNNЎЎЎю5ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (UNASEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNACNT) OR A,A JP Z,ALLOC ; ; ФяВNNNNNNNNNNNNNNNNЎЎЎю5р[NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD HL,(UNATRK) ;TRACK++ INC HL LD (UNATRK),HL ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECESSARY READ ; XOR A,A ;PREЌю$NNNNNNNNNNNNNNNNNЎЎЎю5ZэNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOSECSHF: INC BC ;SET BACK TO PHYSICAL SECTOR LD (SEKHST),BC ;BUFFER SECTOR TO SEEK ; ; IF BUFFER EMPTY THEN READ THE PHV)юNNNNNNNNNNNNNNNNЎЎЎю5%°ЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL SECTOR LD (HSTDSK),A ; LD HL,(SEKTRK) LD (HSTTRK),HL ; LD HL,(SEKHST) LD (HSTSEC),HL ; ; IF REQUIRED TO READ TlяОNNNNNNNNNNNNNNNNNЎЎЎю5+“¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (HSTWRTG4ю!NNNNNNNNNNNNNNNNЎЎЎю5/ТNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA ADDRESS GIVEN BY BC ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SETDMA: LD (DMAADR),BфЈю“NNNNNNNNNNNNNNNNNЎЎЎю5АNNNNNNNNNNNNNNNNNNNNNNЎЎЎы * ;* READ THE SELECTED CP/M SECTOR * ;***************************************************** READ: ; ; SET UP D,>юHNNNNNNNNNNNNNNNNЎЎЎю5jїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************** WRITE: ; ; SET PTR TO DISK DATA ; PUSH IX LD IX,(CUR_DPB) †Ґю NNNNNNNNNNNNNNNNЎЎЎю5†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNACNT),A ; ; IF REQUESTED SECTOR != UNALLOCATED SECTOR THEN ’NюrNNNNNNNNNNNNNNNNЎЎЎю5ҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREAD FLAG = FALSE LD (RSFLAG),A JP RWOPER ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ ; ALLOC: XOR A,A ;COU‹Ґю NNNNNNNNNNNNNNNNNЎЎЎю5 OVNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыYSICAL SECTOR ; LD HL,HSTACT LD A,(HL) ; LD (HL),1 ;BUFFER FULL IN ANY CASE ; OR A,A JP Z,FILHST ; ; HOST BUFFєђюњNNNNNNNNNNNNNNNNЎЎЎю5&ерNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A CALL NZ,READHST ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (HST»ю„NNNNNNNNNNNNNNNNЎЎЎю5, ;NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы),A ; EX DE,HL ;SOURCE/DEST SWAP ; RWMOVE: ; ; BC INITIALLY 128, DE IS SOURCE, HL IS DEST ; LDIR ; ; DATA HAS Bm”юNNNNNNNNNNNNNNNNЎЎЎю5гNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC ; ; ASSUME BANK 0 FOR NOW ; XOR A,A LD (DMABNK),A RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++Љ·юNNNNNNNNNNNNNNNNNNЎЎЎю5 у(NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыATA TABLE PTR ; PUSH IX LD IX,(CUR_DPB) ; ; READ_OPERATION_FLAG = TRUE (1) ; LD A,1 LD (READOP),A ; ; PRE-READВ:юHNNNNNNNNNNNNNNNNNЎЎЎю5YЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRIT±‰ю9NNNNNNNNNNNNNNNNЎЎЎю5µ6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPURGE ; LD A,(SEKDSK) ;SAME DISK? LD HL,UNADSK CP A,(HL) JP NZ,ALLOC ; LD HL,(UNATRK) ;SAME TRACK? LD DE,(SECTRK) ЧeюNNNNNNNNNNNNNNNNNNЎЎЎю5–9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNT = 0 LD (UNACNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ; COMMON CODE FOR READ AND WRITE FOLLOWS ; MяВNNNNNNNNNNNNNNNNЎЎЎю5!|gNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(SEKDSK) LD HL,HSTDSK ;SAME DISK? CP A,(HL) JP NZ,NOMATCH ; LD HL,(HSTTRK) ;SыюNNNNNNNNNNNNNNNNNNЎЎЎю5'ЦБNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыWRT),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ; LD HL,(SEKSEC) ;CALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOG4ю$NNNNNNNNNNNNNNNNЎЎЎю5-9 NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEEN MOVED TO/FROM HOST BUFFER, IF NOT DIRECTORY THEN DELAY WRITE ; LD A,(WRTYPE) ;IF NOT DIRECTORY THEN DELAY WRITE CP A,WRBюBNNNNNNNNNNNNNNNNЎЎЎю5…tNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++ ; ; TRANSLATE SECTOR NUMBER BC ; ENTRY- BC= LOGICAL SECTOR ; EXIT - HL= PHYSICAL SECTOR ; ;+++++++ЁSюBNNNNNNNNNNNNNNNNЎЎЎю5 ¦{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PнeяINNNNNNNNNNNNNNNNNЎЎЎю5JГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOЉбятNNNNNNNNNNNNNNNNЎЎЎю5аeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SBC HL,DE JP NZ,ALLOC ; LD HL,(SEKSEC) LD DE,(UNASEC) SBC HL,DE JP NZ,ALLOC ; ; MATCH, MOVE TO NEXT SECTOR FOR ™ю'NNNNNNNNNNNNNNNNNЎЎЎю5®NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы RWOPER: ; ; ASSUME NO ERRORS ; XOR A,A LD (ERFLAG),A ; ; COMPUTE BUFFER SECTOR ; LD BC,(SEKSEC) DEC BC ;CON>UятNNNNNNNNNNNNNNNNЎЎЎю5")4NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAME TRACK? LD DE,(SEKTRK) SBC HL,DE JP NZ,NOMATCH ; LD DE,(SEKHST) ;SAME SECTOR? LD HL,(HSTSEC) SBC HL,DE JP Z,MAд2ядNNNNNNNNNNNNNNNNNЎЎЎю5(ЖяNNNNNNNNNNNNNNNNNNNNNNЎЎЎыICAL SECTOR (0..N-1) LD A,L ; AND A,(IX+ DPBPHM) ;USE PHYSICAL RECORD MASK DATA (CP/M 3.X) ; RRA ;BITS <7..1> -> BITS k}яNNNNNNNNNNNNNNNNЎЎЎю5.lYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDIR LD A,(ERFLAG) ;RETURN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERROR THEN ABORT ; OR A,A RET NZ ; ; NO ERROR/DuaюHNNNNNNNNNNNNNNNNNЎЎЎю5¶ENNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SECTRAN: LD H,B LD L,C INC HL RET ;*******йYяИNNNNNNNNNNNNNNNNNЎЎЎю5•JNNNNNNNNNNNNNNNNNNNNNNЎЎЎыERFORM THE READ ;**************************************************************************** ; ; THE WRITE ENTRY POINT T§ю NNNNNNNNNNNNNNNNNЎЎЎю5yтNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK ; LD A,(IX+ DPBBLM) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNACNT),A ; ; SET DISK TO SEEK ; LD A,(SEKDS`юNNNNNNNNNNNNNNNNЎЎЎю5УTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUTURE REF ; INC HL ;UNASEC = UNASEC+1 LD (UNASEC),HL ; ; IF PAST LAST SECTOR ON TRACK THEN USE 1ST SECTOR OF NEXT TRAЫ!юдNNNNNNNNNNNNNNNNЎЎЎю5<џNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыVERT PHYSICAL SECTOR TO LOGICAL ; LD A,(IX+ DPBPSH) ;USE PHYSICAL SHIFT FACTOR (CP/M 3.X) OR A,A ;IF ALREADY 0 THEN SECTQ4ю9NNNNNNNNNNNNNNNNЎЎЎю5#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTCH ;SKIP IF MATCH ; NOMATCH: ; ; IF CURRENT BUFFER DIRTY THEN WRITE IT OUT BEFORE READING NEW ONE ; LD A,(HSTWRT) O™®яИNNNNNNNNNNNNNNNNNЎЎЎю5)хОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы<14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,HSTBUF ADD]юЙNNNNNNNNNNNNNNNNNЎЎЎю5/_hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (HSTWRT),A ; CALL WRITEHST ;WRITE TO DISK ; LD A,(ERFLAG) ;RETURN ANY ERЂ юдNNNNNNNNNNNNNNNNЎЎЎю5гNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы********************************************** ;* * ;* THE READ ENTRY POINT [ыю9NNNNNNNNNNNNNNNNЎЎЎю5ЭNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAKES THE PLACE OF THE PREVIOUS BIOS DEFINTION ; FOR WRITE. ; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) Eую9NNNNNNNNNNNNNNNNЎЎЎю5,ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK) LD (UNADSK),A ; ; SET TRACK TO SEEK ; LD HL,(SEKTRK) LD (UNATRK),HL ; ; SET SECTOR TO SEEK ; LD HL,(SEKSEC)иHю NNNNNNNNNNNNNNNNNЎЎЎю5ГjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK ; LD E,(IX+ DPBSPT) LD D,(IX+ DPBSPT +1) INC DE SBC HL,DE JP C,NOOVF ; LD HL,1 ;SECTOR = 1 LD (UNASEC),HL ;!яюNNNNNNNNNNNNNNNNЎЎЎю5iМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR SIZE IS 128 JR Z,NOSECSHF ; SECSHFLP: SRL B ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR C DEC A JR NZ,SECSHFLP ; NђЃюHNNNNNNNNNNNNNNNNNЎЎЎю5$ѓ’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR A,A CALL NZ,WRITEHST ;CLEAR HOST BUFF ; FILHST: ; ; READ THE SECTOR BUFFER ; LD A,(SEKDSK) ;BUFFER SECTOR = PHYSICAХІяОNNNNNNNNNNNNNNNNNЎЎЎю5* ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,DE ;HL = HOST ADDRESS ; LD DE,(DMAADR) ;GET/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WAY? ю“NNNNNNNNNNNNNNNNNЎЎЎю50L%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRORS ; ; DONE, RESTORE & RETURN ; RW_RET: POP IX ; RET ;********************************************************·kю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNюЂМЃљ‚gѓ5„…Т… †n‡<€ ‰Ч‰ҐЉt‹BЊЌЮЌ¬ЋzЏHђ‘ж‘ґ’‚“P”•л•ё–†—T"™п™Ѕљ‹›Yњ&ќфќВћ‘џ^ ,ЎщЎЗў–Јe¤4Ґ¦Р¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю5M±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************** ; ; WRITEHST PERFORMS THE PHYSICAL WRITE FROM HSTBUF TO THE HOST DISK. ; ENTRY- (HSTDSK)= DISK # TO WRITO•юђNNNNNNNNNNNNNNNNNЎЎЎю5зNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************ ; ; UNITIALIZED RAM DATA AREAS ; ;*****************************фЬюдNNNNNNNNNNNNNNNNЎЎЎю5 ЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыINING IN BLOCK (CLUSTER) UNADSK: DS 1 ;LAST UNALLOC DISK UNATRK: DS 2 ;LAST UNALLOC TRACK UNASEC: DS 2 ;LAST UNALLOC SECTOxtяВNNNNNNNNNNNNNNNNЎЎЎю5( NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы----------------------------------------------------------- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS(‹я„NNNNNNNNNNNNNNNNNЎЎЎю5ЗkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOCK DRIVE ; OR A,A LD A,38H ;COND. JR (ON) JR Z,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFFЭtяьNNNNNNNNNNNNNNNNNЎЎЎю5mНNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;---------------------------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIAюдNNNNNNNNNNNNNNNNNЎЎЎю5%‡“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИюNNNNNNNNNNNNNNNNNЎЎЎю5+¤њNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVEЪrю°NNNNNNNNNNNNNNNNNЎЎЎю5вNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO ; (HSTTRK)= TRACK # TO WRITE TO ; (HSTSEC)= SECTOR # TO WRITE TO ; EXIT - (ERFLAG)= 0: OK, /0: ERROR ; ;************›ІюHNNNNNNNNNNNNNNNNNЎЎЎю5ч)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************** ; ; THE FOLLOWING ITEMS ARE SET BY THE BIOS FUNCTIONS ; SEKDSK: DS 1 ;LOG•¶ю'NNNNNNNNNNNNNNNNЎЎЎю5]ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; ; ERFLAG: DS 1 ;ERROR REPORTING 0: OK, /0: ERROR RSFLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;‹@юNNNNNNNNNNNNNNNNЎЎЎю5±7NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; ;---------------------------------------------------------------------------- ; INIT: ; ; SET TEMPORARY STACK ; DIўіяОNNNNNNNNNNNNNNNNNЎЎЎю5’8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ; BOOT CCP & BDOS ; JR WARM ;#################################2¦ю!NNNNNNNNNNNNNNNNNNЎЎЎю5 xfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBLES ; ;---------------------------------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; DI LD SP,DEFBF$юNNNNNNNNNNNNNNNNNNЎЎЎю5&ТАNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPP/юNNNNNNNNNNNNNNNNNЎЎЎю5,=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPYЁюцNNNNNNNNNNNNNNNNNЎЎЎю5+УNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы**************************************************************** WRITEHST: ; RET ;*************************************•}юђNNNNNNNNNNNNNNNNNЎЎЎю5 ДNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыICAL DRIVE SEKTRK: DS 2 ;LOGICAL TRACK NUMBER SEKSEC: DS 2 ;LOGICAL SECTOR NUMBER ; ; THE FOLLOWING ARE SET BY THE BUFFEГЮю$NNNNNNNNNNNNNNNNNЎЎЎю5nѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK ётю„NNNNNNNNNNNNNNNNЎЎЎю5‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD SP,DEFBFR ;USE PAGE 0 FOR STACK LD (THIS_STK),SP EI ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # PASSEDPю NNNNNNNNNNNNNNNNNЎЎЎю5Ў NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################### ; ; SIGN-ON MESSAGE ; ;#########################################################Б?юHNNNNNNNNNNNNNNNNNNЎЎЎю5!KWNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^юдNNNNNNNNNNNNNNNNЎЎЎю5'бсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY, 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;******************************************юBNNNNNNNNNNNNNNNNЎЎЎю5-:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 ЉуюNNNNNNNNNNNNNNNNNЎЎЎю5ІDNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*************************************** ; ; READHST PERFORMS THE PHYSICAL READ FROM THE HOST DISK INTO HSTBUF. ; ENTRY- (HSTDдю„NNNNNNNNNNNNNNNNЎЎЎю5 ‘KNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR READ/WRITE ; HSTDSK: DS 1 ;BUFFER DISK NUMBER HSTTRK: DS 2 ;BUFFER TRACK NUMBER HSTSEC: DS 2 ;BUFFER SECTOR NUMBER ; y¶ядNNNNNNNNNNNNNNNNNЎЎЎю5}уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D)¦6юrNNNNNNNNNNNNNNNNЎЎЎю5ЧUNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN-ON ; LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTORoKятNNNNNNNNNNNNNNNNNЎЎЎю58ћNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################### ; MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/MЗяdNNNNNNNNNNNNNNNNЎЎЎю5"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7ю NNNNNNNNNNNNNNNNЎЎЎю5(сПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;********** џю“NNNNNNNNNNNNNNNNЎЎЎю5.[iNNNNNNNNNNNNNNNNNNNNNNЎЎЎы& 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOШxюBNNNNNNNNNNNNNNNNNЎЎЎю5ЃuNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSK)= DISK # TO READ FROM ; (HSTTRK)= TRACK # TO READ FROM ; (HSTSEC)= SECTOR # TO READ FROM ; EXIT - (ERFLAG)= 0: OK, /0: Eі"юHNNNNNNNNNNNNNNNNNЎЎЎю5ўzNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; SEKHST: DS 2 ;PHYSICAL SECTOR TO XFER ; HSTACT: DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFFER HSTWRT: DS 1 ;0: BUFFER CLEИсюдNNNNNNNNNNNNNNNNNЎЎЎю5NВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DMAADR: DS 2 ;LAST DMA ADDRESS DMABNK DS 1 ;LAST DMA BANK ; HSTBUF: DS 1024 ;HOST BUFFER }юNNNNNNNNNNNNNNNNЎЎЎю5дdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; ; INIT OUR STUFF ; CALL GETBNK LD (BUF_DMAB),A ; ; INITIALIZElюњNNNNNNNNNNNNNNNNNЎЎЎю5ЇNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы-80 Vers 2.2',CR,LF DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! C[нюђNNNNNNNNNNNNNNNNNЎЎЎю5#-5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћюђNNNNNNNNNNNNNNNNNNЎЎЎю5)ВюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 1ФPю°NNNNNNNNNNNNNNNNЎЎЎю5/hXNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OFW~юњNNNNNNNNNNNNNNNNЎЎЎю5Ф&NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRROR ; ;**************************************************************************** READHST: ; RET ;****************ORятNNNNNNNNNNNNNNNNЎЎЎю5;нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAN, /0: BUFFER DIRTY (MODIFIED) ; ; THE FOLLOWING USED BY THE UNALLOCATED BLOCK ALGORITHMS ; UNACNT: DS 1 ;# SECTORS REMA*єяВNNNNNNNNNNNNNNNNЎЎЎю5‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;-----------------h•ю>NNNNNNNNNNNNNNNNNNЎЎЎю5фZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM ; ; IF CLOCK PRESENT THEN TURN ON CяDяВNNNNNNNNNNNNNNNNNЎЎЎю5^ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ¶юNNNNNNNNNNNNNNNNNNЎЎЎю5$ґўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•яИNNNNNNNNNNNNNNNNNЎЎЎю5*—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; SюђNNNNNNNNNNNNNNNNNЎЎЎю50{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; ,ГюmNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃ ‚nѓ<„ …Ч…Ґ†s‡@€‰Ы‰©Љw‹DЊЌаЌ®Ћ|ЏKђ‘з‘ґ’‚“P”•м•№–€—V$™с™АљЋ›\њ)ќчќЕћ“џ` /ЎэЎЛў™Јg¤5Ґ¦С¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю6б]NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;***************************************ЊeюNNNNNNNNNNNNNNNNЎЎЎю6KыNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы- 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; 2.29 - 3 SEP 83 GRH ; ChangАjяОNNNNNNNNNNNNNNNNNЎЎЎю6 ¤0NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routines to monitor rom routines. ; 2.0ы°юNNNNNNNNNNNNNNNNNЎЎЎю6„LNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыwn to 60k. ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 BIOS. ; Change single function to return drЖ+юЙNNNNNNNNNNNNNNNNNЎЎЎю6k‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB structure in preparation for deblocking. ; 3.05 11-3-88 GRH ; Change included data to update IOPB.PBSTAT to new configuraЏ?юNNNNNNNNNNNNNNNNЎЎЎю6Б!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFLG. ; 3.08 2-22-91 GRH ; Remove references to THIS_BNK & use monitor function #7 instead. ; Add track-head shift factor toM(юNNNNNNNNNNNNNNNNNЎЎЎю6%+NNNNNNNNNNNNNNNNNNNNN!фЎЎЎы INCLUDE DISKS3.DEF ; INCLUDE MONBOARD.DEF ; INCLUDE ISHA.DEF ; INCLUDE B:M5ZF101.DEF ; ;============================7‰юrNNNNNNNNNNNNNNNNNЎЎЎю6+pNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IO©ШяИNNNNNNNNNNNNNNNNNЎЎЎю6ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; REVISIONS: ; ; 2.2.0 - RELEASE ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; LA‹ћю!NNNNNNNNNNNNNNNNЎЎЎю6[ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; 1.10 - 23 SEP 83 GRH ; Move clocxю$NNNNNNNNNNNNNNNNЎЎЎю6сcNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы3 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; 2.04 - 30 MAR 85 GRH ; Implemented hard disk drivмЪюBNNNNNNNNNNNNNNNNЎЎЎю6ЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыive table ptr into a BIOS function ; call using restart instruction. ; Change LOGON to specify the ID sector & track. At sam*ТюNNNNNNNNNNNNNNNNNЎЎЎю6>ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыtion. ; 3.06 1-28-89 GRH ; Revised primitive calling procedures to use the monitor rom function ; rather than swapping RomФюXNNNNNNNNNNNNNNNNNЎЎЎю6 ФЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DPBs for future use. ; ; 3.09 5-15-91 GRH ; Change 8" floppy side select to track bit 0. Move calculation from ; DCM8 toюBNNNNNNNNNNNNNNNЎЎЎю6&~,NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы================================================ ; LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB3.DEF *INCLUDE DISKДю NNNNNNNNNNNNNNNNNЎЎЎю6,‘зNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY HюNNNNNNNNNNNNNNNNNЎЎЎю6‡?NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRGER BIOS ALLOCATION ON THE DISK. ; 2.2.4 - ADDED NAKED TERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. ALSO, Дю'NNNNNNNNNNNNNNNNNЎЎЎю6 hфNNNNNNNNNNNNNNNNNNNNNNЎЎЎыk-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separate CBIOS rev). ; 2.00 xЭюNNNNNNNNNNNNNNNNЎЎЎю6ВRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыe 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user friendly disk error options: Abort, RetўzюNNNNNNNNNNNNNNNNNNNЎЎЎю6.кNNNNNNNNNNNNNNNNNNNNNNЎЎЎыe time, fix bug ; which did not specify the logon track. ; 3.02 7 JUL 88 GRH ; Add '?' to include file names. ; Change h юNNNNNNNNNNNNNNNNNЎЎЎю6 еNNNNNNNNNNNNNNNNNNNNNNЎЎЎыs itself. ; 3.07 11-25-90 GRH ; Modify for Ver. 1.22 Monitor. ; Fix bug in 8" Hard Disk table which benignly (at current leф¬яINNNNNNNNNNNNNNNNNЎЎЎю6!з»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CBIOS. ; Remove IOPB ptr passing in IX redundancy. ; Change DPB track-head shift factor to Sector Offset like track ; offseюю NNNNNNNNNNNNNNNNЎЎЎю6'MNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS3.DEF *INCLUDE MONBOARD.DEF *INCLUDE ISHA.DEF *INCLUDE B:M5ZF101.DEF LIST ON ;===================================йюrNNNNNNNNNNNNNNNNЎЎЎю6-ўЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THIS_BNK EQU PAGE0 + 001BH ;BANK # OF THE CURRENT BANK DK_BDRV EQU 0041H ;BOOT DRIVE # FROM PROM DEFBFR EQU PAGE0 + 80H ;DEF·jю'NNNNNNNNNNNNNNNNNЎЎЎю6ЁNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; 2.2.6 - 20 FEB‘[юrNNNNNNNNNNNNNNNNNЎЎЎю6 =§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы- 24 MAR 84 GRH ; Modify for hard disk ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to reflect half size directory, but Ћ4юNNNNNNNNNNNNNNNNЎЎЎю6СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; 3.00 - 26 JAN 87 GRH ; Implemented new commљю“NNNNNNNNNNNNNNNNЎЎЎю6{№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыard disk system tracks directory reference to new format. ; Correct bug in drivers which caused retry to fail. (sector remained['юNNNNNNNNNNNNNNNNNNNЎЎЎю6”rNNNNNNNNNNNNNNNNNNNNNNЎЎЎыvel) ; caused the drive table to have bad data (default table was missing ; the 2 deblocking extension bytes). ; Implement ™юNNNNNNNNNNNNNNNNNЎЎЎю6"ІиNNNNNNNNNNNNNNNNNNNNNNЎЎЎыt. Disk partitioning will add this value to sector word. It ; will be stored in the ID sector data to be dynamic. ; VERSN EQ#hю„NNNNNNNNNNNNNNNNЎЎЎю6(]#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================================= ; ; DISK OPERATING SYSTEM ADDRESSES ; ;=========================================фюдNNNNNNNNNNNNNNNNЎЎЎю6.ч…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRЂюNNNNNNNNNNNNNNNNNNЎЎЎю6-™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRIVER, SYSTEM CAL СюNNNNNNNNNNNNNNNNNNЎЎЎю6–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыkeep ; allocation for 1k directory ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to relate to ISASI control of JADE ;AятNNNNNNNNNNNNNNNNNЎЎЎю6в.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыon IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables and new function to return ; a ptr to a dmю'NNNNNNNNNNNNNNNNЎЎЎю6H€NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; corrupted) ; Stubbed out new Clock routines for present. ; 3.03 31 JUL 88 GRH ; Unstub Clock routines. ; 3.04 6 AUG ћ¬юNNNNNNNNNNNNNNNNЎЎЎю6§CNNNNNNNNNNNNNNNNNNNNNNЎЎЎыdata xfer inhibit schemes with PB_FLG & PB_BCNT. ; Add pick-up of THIS_BNK data in all iopb cases. ; Remove clock buffer set/rwию“NNNNNNNNNNNNNNNNNЎЎЎю6#ЃЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыU 309 ; ;**************************************************************************** SUBTTL SYSTEM DECLARATIONS ;=====§вюњNNNNNNNNNNNNNNNNNЎЎЎю6)nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================== ; NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBSЈќюNNNNNNNNNNNNNNNЎЎЎю6/ДґNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыST ; TPA: EQU 100H ;============================================================================ ; ; OTHER DECLARATIONSrрюNNNNNNNNNNNNNNNNNЎЎЎю6xКNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MODULES. ; 2.28 kню}NNNNNNNNNNNNNNNNNЎЎЎю6—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value (0..n-1). This maintains more uniЕ°яИNNNNNNNNNNNNNNNNNЎЎЎю6·}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыrive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented use of ROM primitives. ; Moved system doЧ4юrNNNNNNNNNNNNNNNNЎЎЎю6X¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы88 GRH ; Remove floppy side select from BIOS & move to controller. ; Implement new ID sector format. ; Implement CP/M 3.0 DyрюNNNNNNNNNNNNNNNNNЎЎЎю6тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыead system calls. ; 12-5-90 GRH ; Remove IX IOPB ptr passing to disk drivers. ; 1-13-91 GRH ; Fix bug which corrupted PB_9ѕюNNNNNNNNNNNNNNNNNЎЎЎю6$NNNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================================================= ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB3.DEF ;ќТюINNNNNNNNNNNNNNNNNЎЎЎю6*;ANNNNNNNNNNNNNNNNNNNNN!фЎЎЎы: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOvкюNNNNNNNNNNNNNNNNNЎЎЎю60ЧщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;============================================================================ ; MR_RNUM EQU 0 ;INTERIM DEFINITION FOR IN0…юINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNюЂЛЃљ‚hѓ6„…С…џ†m‡;€‰Ц‰¤Љr‹>ЊЌЪЌЁЋvЏDђ‘б‘®’|“J”•е•і–‚—P™к™№љ‡›Uњ!ќпќЅћЌџZ (ЎцЎДў‘Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю6ЦmNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTERRUPT ROM SWAP ; SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;START LOGICAйRюNNNNNNNNNNNNNNNNЎЎЎю6|ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACµLюђNNNNNNNNNNNNNNNNNЎЎЎю6 “NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0dюмNNNNNNNNNNNNNNNNNЎЎЎю6і|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERF'3ю$NNNNNNNNNNNNNNNNNЎЎЎю6\·NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;#############ЎАюдNNNNNNNNNNNNNNNNЎЎЎю6цNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;USE PAGE 0 FOR STACK ; ; INIT DEFAULT DRIVE ; LD A,(DK_BDRV) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ЄЎяИNNNNNNNNNNNNNNNNNЎЎЎю6%ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;--------------------------------дщюNNNNNNNNNNNNNNNNNЎЎЎю6+?@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESSНХюHNNNNNNNNNNNNNNNNNЎЎЎю6ѓ>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 5 ЦюNNNNNNNNNNNNNNNNЎЎЎю6lхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; GXLATE MACRO #SECTORS, #SKEW LIST OFFЗію·NNNNNNNNNNNNNNNNЎЎЎю6ЖSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' :aюјNNNNNNNNNNNNNNNNЎЎЎю6*лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EX8нюзNNNNNNNNNNNNNNNNNЎЎЎю6 дNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################### ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD S’Ъю“NNNNNNNNNNNNNNNNNЎЎЎю6 гєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) Jю!NNNNNNNNNNNNNNNЎЎЎю6&INNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;------------------------твю„NNNNNNNNNNNNNNNNNЎЎЎю6,¦ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SЂ'ююNNNNNNNNNNNNNNNNNЎЎЎю6°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAL DRIVE OF §sюђNNNNNNNNNNNNNNNNNЎЎЎю6 _ДNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW’-ю$NNNNNNNNNNNNNNNNЎЎЎю6хbNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;------------------------------------«ю9NNNNNNNNNNNNNNNNNЎЎЎю6ЪNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыECUTE FUNCTION CALL ;############################################################################ ; ; THE FOLLOWING BOOT QюHNNNNNNNNNNNNNNNNNЎЎЎю6:ХNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTART ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;###################ћqю$NNNNNNNNNNNNNNNNNЎЎЎю6!Р‹NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;###################################################################Н-юrNNNNNNNNNNNNNNNNЎЎЎю6'z-NNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------- ; WARM: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR IF INTRPTS ; ; SET INTERRUPT V„ юдNNNNNNNNNNNNNNNNЎЎЎю6-•жNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WEROR ; ; S1ШюNNNNNNNNNNNNNNNNNNЎЎЎю6)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGIAqю„NNNNNNNNNNNNNNNNNЎЎЎю6 —NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHEжмюЙNNNNNNNNNNNNNNNNЎЎЎю6ж/NNNNNNNNNNNNNNNNNNNNNNЎЎЎы---------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;---------------------------------------------------тюNNNNNNNNNNNNNNNNЎЎЎю6L‰NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDATA MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD ; INIT ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE ; REFETWюИNNNNNNNNNNNNNNNNNNЎЎЎю6ЈBNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################################### ; DIRBF: EQU $ ;BUFFER BEGINNING ;----------------------------чюЂNNNNNNNNNNNNNNNNNЎЎЎю6"…ШNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######### ; ; SIGN-ON MESSAGE ; ;############################################################################ ; MSGSO: DB Ќ}юдNNNNNNNNNNNNNNNNЎЎЎю6(jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; SET INTERRUPT MODE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; –юдNNNNNNNNNNNNNNNNЎЎЎю6.АµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH рю'NNNNNNNNNNNNNNNNNNЎЎЎю6©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCAL DRIVE OF 8" FLOPPY ENDIF ;============================================================================ ; ; ASCII цдю·NNNNNNNNNNNNNNNNNЎЎЎю69¦NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@”вюNNNNNNNNNNNNNNNNNЎЎЎю6ХNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы------------------------- ; JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI лlюaNNNNNNNNNNNNNNNЎЎЎю6ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRENCED BY THE BOOT LOADER CODE IN ORDER TO DETERMINE THE LOAD ADDRESS ; AND LENGTH OF THE BIOS. ; ;##########################п\ю9NNNNNNNNNNNNNNNNЎЎЎю6ђsNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы------------------------------------------------ ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;-----–ЄюУNNNNNNNNNNNNNNNNNЎЎЎю6#¶йNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIaюNNNNNNNNNNNNNNNNNNЎЎЎю6)Y"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IN A,(M2_IMASK) AND A,7FH OUT (M2_IMASK),A ; ; FINALLY ENABLE VECTORED INTERRUPTS ; IN A,(M2_STAT) OR A,M2_IEN OЂю!NNNNNNNNNNNNNNNЎЎЎю6/у„NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыCCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; ”zюNNNNNNNNNNNNNNNNЎЎЎю6OъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCHARS ; ;============================================================================ ; LF: EQU 0AH CR: EQU 0DH CTRLZ: EQU<ю“NNNNNNNNNNNNNNNNNЎЎЎю6 1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@±·ю'NNNNNNNNNNNNNNNNNЎЎЎю6ЂMNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SEEOюNNNNNNNNNNNNNNNNЎЎЎю6o†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################## ; DB 0 ;Z80 CPU DB 0 ;SPARE BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZ [юдNNNNNNNNNNNNNNNNNЎЎЎю6Е NNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------------------------------------------------------- ; INIT: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ЬjюдNNNNNNNNNNNNNNNNNЎЎЎю6$/~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFкяИNNNNNNNNNNNNNNNNNЎЎЎю6*qNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыUT (M2_STAT),A EI ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DK_BDRV) AND A,3 ;MODULO 4 LD C,A LD E,0 CA1юђNNNNNNNNNNNNNNNNNЎЎЎю60аЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыWREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BTSEC INC (HL) ; LD DE,(IOPB + PB_BCNTOОюіNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN†NNNNNNNNЃРЃџ‚mѓ;„ …Ч…Ґ†s‡@€ ‰Ы‰©Љw‹DЊЌаЌЇЋ}ЏLђ‘й‘·’„“R” •н•є–‰—W$™с™АљЋ›\њ)ќчќЖћ”џb 1ЎяЎНў›Јj¤8Ґ¦Ф¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю7—йNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ;SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ;Ї?юHNNNNNNNNNNNNNNNNЎЎЎю7=ONNNNNNNNNNNNNNNNNNNNNNЎЎЎыWARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 e¶яЙNNNNNNNNNNNNNNNNNЎЎЎю7 Т„NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF ; ; PASS DEFAULT DISK€&я~NNNNNNNNNNNNNNNNNЎЎЎю7тшNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DхюNNNNNNNNNNNNNNNNNЎЎЎю73NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (BTDRV),A ; ; SAVE LOGON REQхю NNNNNNNNNNNNNNNNЎЎЎю7·•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVISED LD (IOPB + PB_ST2O),A z?язNNNNNNNNNNNNNNNNNЎЎЎю7%]ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETURN DRIVE TABLE PTR ; LD HL,џ•ю$NNNNNNNNNNNNNNNNNЎЎЎю7+~ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************* ; HOME: LD BC,0 ; ; FALL INTO SET TRACK ; ;***************************чюNNNNNNNNNNNNNNNNNNЎЎЎю7ВєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,R яВNNNNNNNNNNNNNNNNЎЎЎю7-qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRS*%ю®NNNNNNNNNNNNNNNNЎЎЎю7‡ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++++++++++++++++++++++ЈwюNNNNNNNNNNNNNNNNЎЎЎю7koNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISKWR: ; ; DISABLE UPLOAD (READ DATA) ; LD A,1 SHL PB_INHX LD (BTFLG),A ; ; ENABLE DOWNLOAD (WRITE DATA) ; LD HL_Ою“NNNNNNNNNNNNNNNNNЎЎЎю7H`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER LDT€юINNNNNNNNNNNNNNNNNЎЎЎю7 ў>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + PB_ST2O) CP A,-2 ;0: NO ID, -1: Аэю!NNNNNNNNNNNNNNNЎЎЎю7&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(DTPTR) XOR A,A RET ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BTDRV) IF STHD <> 0 CP A,STHD PюNNNNNNNNNNNNNNNNNЎЎЎю7,зSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*********************************юyNNNNNNNNNNNNNNNNNЎЎЎю7с‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSE DONE READIN4ЎюђNNNNNNNNNNNNNNNNNЎЎЎю7 @NNNNNNNNNNNNNNNNNNNNNNЎЎЎыV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS V†5юINNNNNNNNNNNNNNNNЎЎЎю7ґжNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++ІюNNNNNNNNNNNNNNNNNNЎЎЎю7X^NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,SECSZ LD (IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ;SELECT WRITE OP JP DISKOP ;++++++++++++++ВџюNNNNNNNNNNNNNNNNNЎЎЎю7{QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (DVRTPTR),HL ; ; PREFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE ADDRESS INC HL LD D,(HL) INC HL €‚юHNNNNNNNNNNNNNNNNNЎЎЎю7!‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыJADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; ELSE XFER ID SECTOR DATA TO TABLES ; CALL TRNONE ;ASSUME NO TRANSLATION ; ;YbюNNNNNNNNNNNNNNNNЎЎЎю7';©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HLњю NNNNNNNNNNNNNNNNЎЎЎю7-ФbNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************* ; SETTRK: LD (BTTRK),BC RET ;********************************************аFюNNNNNNNNNNNNNNNNNЎЎЎю7hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыG SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L р2юBNNNNNNNNNNNNNNNNNЎЎЎю7 KNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPеюdNNNNNNNNNNNNNNNNЎЎЎю7§«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++ ; DISKRD: ; ; ENABLE UPLOAD (READ DATA) ; XOR A,A LD (BTFLG),A ; ; DI2§юINNNNNNNNNNNNNNNNЎЎЎю7 NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ЄuюЧNNNNNNNNNNNNNNNNNNЎЎЎю7вЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TABLE ADDRESS ; LD HL,(BTDRV) LD H,0 ОИюNNNNNNNNNNNNNNNNNЎЎЎю7"Д\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] мюNNNNNNNNNNNNNNNNЎЎЎю7(+—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LD BC,DPBSZ LDIR JR SEL1 АXятNNNNNNNNNNNNNNNNЎЎЎю7.Ѓ1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;**************************************************R$юNNNNNNNNNNNNNNNNNNNЎЎЎю7[-NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & HALT юNNNNNNNNNNNNNNNNNЎЎЎю7x"NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; LD A,MF_CSYN ;TEST FOR BOARD PRESENT CALL XMROM PZюNNNNNNNNNNNNNNNNNЎЎЎю7”љNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыSABLE DOWNLOAD (WRITE DATA) ; LD (IOPB + PB_BCNTO),A LD (IOPB + PB_BCNTO + 1),A ; ; PASS READ COMMAND ; LD A,PB_READћюђNNNNNNNNNNNNNNNNЎЎЎю7>ѕю$NNNNNNNNNNNNNNNNNЎЎЎю7_,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDE= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF NO TRANSLATION TH>ЩюдNNNNNNNNNNNNNNNNNЎЎЎю7 |#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; LD HL,DEFBFR LD (IOPB + PB_DMAO),HL CALL GETBNK LD (IOPB + PB_DMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LDJНю NNNNNNNNNNNNNNNNЎЎЎю7ђ›NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы+ PB_TRKO LD BC,PB_BCNTO - PB_TRKO LDIR ; DISKOP2: LD (IOPB + PB_CMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVџ?ю NNNNNNNNNNNNNNNNЎЎЎю7:=NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;ECHO CHAR CALL COC POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;IF RETRњюДNNNNNNNNNNNNNNNNNNЎЎЎю7ХцNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TR3740: LD DE,SDTRAN ; SETTR: LD HL,(DTPTR) LD (HL),E INC HL LD (HL),D RET ;***********************************•ясNNNNNNNNNNNNNNNNNЎЎЎю7"уlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVЪrю NNNNNNNNNNNNNNNNЎЎЎю7(§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIMITIVE ; EXITcPюЙNNNNNNNNNNNNNNNNЎЎЎю7.¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++tзю№NNNNNNNNNNNNNNNNNЎЎЎю7lNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR F§bюNNNNNNNNNNNNNNNNNЎЎЎю7ONNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL,ID_SECT LD (IOPB + PB_SECO),HL ; ; SET DESCRIPTOR SECTOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (ѕXюдNNNNNNNNNNNNNNNNNЎЎЎю7ЈЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ;FETCH TABLE BASE ; LD HL,DKOPRET ;PUT RETURN ADDRESS ON STACK PUSH HLЂсюNNNNNNNNNNNNNNNЎЎЎю7 NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY THEN RETURN TO CALLER JR Z,DKOPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; A«ю9NNNNNNNNNNNNNNNNЎЎЎю7жЗNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы***************************************** ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;*******************&ШяуNNNNNNNNNNNNNNNNNЎЎЎю7#А]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; BЖюNNNNNNNNNNNNNNNNNNЎЎЎю7)/–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы - A= 0: OK, /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM: ; ; SET Ѓю'NNNNNNNNNNNNNNNNЎЎЎю7/…0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; FD8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; Lщ–юNNNNNNNNNNNNNNNNNNЎЎЎю79NNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYS™зюЙNNNNNNNNNNNNNNNNNЎЎЎю7Ц…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOPB + PB_TRKO),HL ; ; ENABLE UPLOAD ; LD A,L ;L= 0 LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD (IOPB + PB_їюNNNNNNNNNNNNNNNNNЎЎЎю7цщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD HL,(DVRXADR) ;FETCH DRIVER ADDRESS PREFETCHED FROM TABLE JP (HL) ; ; DRIVER RETURNS HERE ; DKOPRET: POP IY ;MюNNNNNNNNNNNNNNNNЎЎЎю72NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BD@ЮюЙNNNNNNNNNNNNNNNNNЎЎЎю7і”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************* ; TRNONE: LD DE,0 JR SETTR ;+++++++++++++++++++++++++++++++++ЬыюNNNNNNNNNNNNNNNNNЎЎЎю7$YКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HDEXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PB_DRVO),eSюђNNNNNNNNNNNNNNNNNЎЎЎю7*zЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBANK ADDRESS TO THIS BANK FOR NOW ; CALL GETBNK LD E,A ;PRESET IOPB BANK LD (IOPB + PB_DMAXO),A ; ; EXECUTE THE PRIMлЪю!NNNNNNNNNNNNNNNNЎЎЎю70–}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,(IY + DVRPDRV) LD (IOPB + PB_DRVO),A ; ; IF HEADS == 1 THEN EXECUTE IOPB ; LD A,(IY + DVRHDS) DEC A JP Z,XPRIM xую$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃ ‚nѓ<„ …Ч…Ґ†s‡A€‰Э‰«Љy‹GЊЌгЌ±Ћ~ЏLђ‘и‘µ’ѓ“Q” •н•є–‰—V#™р™ѕљ‹›Yњ&ќфќВћ‘џ^ ,ЎъЎИў•Јc¤1ҐяҐН¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю8CNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; ELSE SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) PUSH HL ;SAVE FOR ERROR RESTORE ; LD A,(IOPB + PB_S§юNNNNNNNNNNNNNNNNЎЎЎю8йЎNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы 0: OK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT RъюHNNNNNNNNNNNNNNNNNЎЎЎю8 jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSION # DW RETDVRTF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB MAXFUNCS EQU ($ - BFUNTBLц юrNNNNNNNNNNNNNNNNNЎЎЎю8&NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы#) ; RETDVRTF: LD C,E ; RETDVRT: LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C I¶юNNNNNNNNNNNNNNNNNЎЎЎю8ЙЭNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыXIOB ;MONITOR FUNCTION # (DISK FUNCTION) CALL XMROM ;EXECUTE MONITOR FUNCTION ; OR A,A ;FUNCTION ERROR? RET NZ ; ; µ•юINNNNNNNNNNNNNNNNЎЎЎю8c{NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы LD A,MF_PHXB JP XMROM ;*************************************************************************** ; ; NEWLINE PROCEDUdюNNNNNNNNNNNNNNNNNЎЎЎю8%‰%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTaИюHNNNNNNNNNNNNNNNNNЎЎЎю8+Є*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA,A ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'uюHNNNNNNNNNNNNNNNNNЎЎЎю8TNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыECO +1) ;FETCH SIDE SELECT BYTE ADD A,A ;SHIFT OUT BIT 7 ; SRL H ;SHIFT TRACK HIGH BYTE RR L ;ROTATE BIT 8 TO 7 ANDЇЈюNNNNNNNNNNNNNNNNNNЎЎЎю8щџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIN TABLE THEN RETURN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSy™юЇNNNNNNNNNNNNNNNNЎЎЎю8S9NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) / 2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - Hy&яИNNNNNNNNNNNNNNNNNЎЎЎю8їЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR A,A RET Z ; ; ELSE IF ILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A RET ; ; ; ELSE C©|юdNNNNNNNNNNNNNNNNNЎЎЎю8њЋNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыFETCH & RETURN RESULT STATUS ; LD A,(IX + PB_STATO) OR A,A ;TEST RESULT FOR RETURN RET ;+++++++++++++++++++++++++++‹ю NNNNNNNNNNNNNNNNNЎЎЎю8 vРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRE ; ;*************************************************************************** ; CRLF: LD C,CR CALL COC LD C,LF JP xШюђNNNNNNNNNNNNNNNNЎЎЎю8&ЬvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ·<яВNNNNNNNNNNNNNNNNNЎЎЎю8,3ЅNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++W¦юNNNNNNNNNNNNNNNNNЎЎЎю8%eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 TO CF RRA ;ROTATE TRACK BIT 0 INTO SECTOR BIT 15 LD (IOPB + PB_SECO +1),A ; LD (IOPB + PB_TRKO),HL ;STORE SHIFTED TvюNNNNNNNNNNNNNNNNNЎЎЎю8 К®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIBLE DATA ; LD HL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; љюINNNNNNNNNNNNNNNNЎЎЎю8`NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL= VERSION # IN BINARY {0.00,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETЊЉяВNNNNNNNNNNNNNNNNNЎЎЎю8Њ°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOMPUTE TABLE PTR ; RETDV2: LD B,C LD DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO ERROR ; XOR A,A REt|юHNNNNNNNNNNNNNNNNNЎЎЎю8ЇїNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; EXIT - A= BANK # ; ;++++++++++++++++++++++µ‚юNNNNNNNNNNNNNNNNNЎЎЎю8!EбNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыCOC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*************************************************`}юдNNNNNNNNNNNNNNNNЎЎЎю8'пGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THE†Wю9NNNNNNNNNNNNNNNNЎЎЎю8-ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++єфюdNNNNNNNNNNNNNNNNNЎЎЎю8јтNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACK ; ; EXECUTE THE IOPB ; CALL XPRIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORK ; POP HL ;TRACK LD (IO}ґяюNNNNNNNNNNNNNNNNNNЎЎЎю8 џэNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD A,(HL) INC HL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FУятNNNNNNNNNNNNNNNNЎЎЎю8sENNNNNNNNNNNNNNNNNNNNNNЎЎЎыVERS: LD HL,VERSN XOR A,A ;RETURN NO ERROR RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++vRюNNNNNNNNNNNNNNNNЎЎЎю8ЩгNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- IX= I~бюNNNNNNNNNNNNNNNNNNЎЎЎю86(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JP MR_FUN SUBTTL NON-DISK PROCEDURES xgюЃNNNNNNNNNNNNNNNNЎЎЎю8"ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALЛюNNNNNNNNNNNNNNNNЎЎЎю8(яyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ; ILLEGAL SY=•ю NNNNNNNNNNNNNNNNЎЎЎю8.UЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; Ї…юdNNNNNNNNNNNNNNNNNЎЎЎю8ЏГNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO +1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; RET SUBTTL BIOS FUNCTION CALLS rю!NNNNNNNNNNNNNNNNЎЎЎю8¬МNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCTION ADDRESS ON STACK ;############################################################################ ; ; BIOS FUNCTION .юNNNNNNNNNNNNNNNNNЎЎЎю8@tNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++ ; ; RETURN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DRIVER TABLE BASE PTR ®юNNNNNNNNNNNNNNNNЎЎЎю8кТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB PTR ; EXIT - A= 0: OK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; EXIOPB: ; ; zчю'NNNNNNNNNNNNNNNNNЎЎЎю8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- Aї"яюNNNNNNNNNNNNNNNNNЎЎЎю8##ѓNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;**************************************************************oюHNNNNNNNNNNNNNNNNNNЎЎЎю8)МHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTEM CALL ; ILLEGC: PUSH BC ;SAVE FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR 8юNNNNNNNNNNNNNNNNЎЎЎю8/fоNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыC= YEAR ; L= DAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CLKCAL: LD A,KДю!NNNNNNNNNNNNNNNNЎЎЎю8ЪђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; EXIT - A= -1: ERROR,еYюNNNNNNNNNNNNNNNNNЎЎЎю85[NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTABLE ; ;############################################################################ ; BFUNTBL: DW RETVERS ;0:RETURN VER}вюNNNNNNNNNNNNNNNNNЎЎЎю8'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; A, C= 0 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOS CALL ENTRY (E= DRIVE ЁюNNNNNNNNNNNNNNNNЎЎЎю8ъмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET UP FOR CALL ; CALL GETBNK ;E= IOPB PTR IS IN THIS BANK LD E,A PUSH IX ;MAKE HL = IX FOR NOW POP HL ; LD A,MF_±µюHNNNNNNNNNNNNNNNNNЎЎЎю8PJNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= DATA ; EXIT - A, C= ? ; ;**************************************************************************** ; PRHEX: LD C,A ¤ЉюЇNNNNNNNNNNNNNNNNNЎЎЎю8$єNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************* INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDcOю'NNNNNNNNNNNNNNNNNЎЎЎю8*™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; OUTPUT FUNCTION # ; POP HL LD A,L CALL PRHEX ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR ' юHNNNNNNNNNNNNNNNNNЎЎЎю80uЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMF_GCAL JR XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FUNCTION4‡юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNюЂМЃ›‚iѓ7„…У…Ў†o‡<€ ‰Ш‰¦Љt‹AЊЌЮЌ¬ЋzЏHђ‘е‘і’Ѓ“O”•к•ё–‡—U#™р™ѕљЊ›Zњ(ќцќДћ’џ_ -ЎыЎЙў–Јd¤2Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю8t7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 92H ; EXIT - A= SECONDS ; B= MINUTES ; C= HOURS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++°ю'NNNNNNNNNNNNNNNNЎЎЎю8Ю‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI JR XMROM ;+++++++++++++++++++ЮюNNNNNNNNNNNNNNNNNЎЎЎю8 1ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PUNЇgюЊNNNNNNNNNNNNNNNNNЎЎЎю8&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS JR XMROM ;**********ШXюЙNNNNNNNNNNNNNNNNNЎЎЎю8юнNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыN A,(M2_RSEL) LD (ROMSAV),A LD A,MR_RNUM OUT (M2_RSEL),A ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: LD A,MF_PUTS CєМюЙNNNNNNNNNNNNNNNNЎЎЎю8TKNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE POP BC POP HL POP AF JP 0008H ; ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (ўюNNNNNNNNNNNNNNNNNЎЎЎю8%ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################ ; SDTRAN: GXLATE 26,6 ;############################################################################ ; лKюNNNNNNNNNNNNNNNNNЎЎЎю8+ќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS 1 DVRDTYc™юNNNNNNNNNNNNNNNNNЎЎЎю8!dNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++ ; CLKTIM: LD A,MF_GTIM JR XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++і#юNNNNNNNNNNNNNNNNЎЎЎю8ОЇNNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR]жюNNNNNNNNNNNNNNNNЎЎЎю8d NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCH RETURN ; ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRY- C= „љюјNNNNNNNNNNNNNNNNЎЎЎю8€±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMIN+¬юNNNNNNNNNNNNNNNNNNЎЎЎю8«ѕNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыALL MR_FUN ; LD HL,IQMSG ;QUERY USER LD A,MF_PUTS CALL MR_FUN ; ; GET & ECHO USER INPUT ; LD A,MF_CI CALL MR_FUNQPюNNNNNNNNNNNNNNNNNЎЎЎю8 AаNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM2_RSEL),A ; POP DE POP BC POP HL POP AF EI ;RE-ENABLE INTERRUPTS RET ;-------------------------------------љЖюњNNNNNNNNNNNNNNNЎЎЎю8&лFNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы; COMMON I/O PARAMETER BLOCK ; ;############################################################################ ; IOPB: REPT PB«’юrNNNNNNNNNNNNNNNNNЎЎЎю8,ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP DS 1 ;RESERVED FOR DISK TYPE DVRCYLS DS 2 ;DISK CYLINDERS DVRHDS DS 1 ;HEADS ; ; DEFINE THE STRUCTURE SIZE ; DVRSIZ DSџyюяNNNNNNNNNNNNNNNNNЎЎЎю8UNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++ ; ; MONITOR ROM EXECUTER ; ENTRY- A= FUNCTION # ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++SЅюNNNNNNNNNNNNNNNNNЎЎЎю8 эћNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; CNSCK: LD A,MF_CIS JR XMROM ДsюЙNNNNNNNNNNNNNNNNЎЎЎю8W8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCHAR TO OUTPUT ; ;**************************************************************************** ; PUNCH: RET ;**********€ЄюњNNNNNNNNNNNNNNNNNЎЎЎю8»ЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыATOR) ; EXIT - REGS= ? ; ;**************************************************************************** ; EDITOR: CALL GETђюNNNNNNNNNNNNNNNNNЎЎЎю8ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; PUSH AF LD C,A LD A,MF_CO CALL MR_FUN POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THёюNNNNNNNNNNNNNNNNNЎЎЎю8!rСNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------------------- ; ; UNSUPPORTED INTERRUPT ; ;-------------------------------------------------------|юдNNNNNNNNNNNNNNNNЎЎЎю8'ШwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SIZE LIST OFF DB 0 LIST ON ENDM ;############################################################################ ; ™`юrNNNNNNNNNNNNNNNNЎЎЎю8-7јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TAґ)юgNNNNNNNNNNNNNNNNNЎЎЎю8‹ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++ ; XMROM: ; ; SWITCH TO LOCAL (LARGER) STACK ; LD (SPSAV),SP LD SP,LSTACK ; ; EXECUTE THE FUNCTIOaЩю NNNNNNNNNNNNNNNNNЎЎЎю8 ЁНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUTG{юЙNNNNNNNNNNNNNNNNЎЎЎю8DuNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*******fШюNNNNNNNNNNNNNNNNЎЎЎю8оУNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBNK LD E,A LD A,MF_PUTS JR XMROM IF INTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------sюNNNNNNNNNNNNNNNNNNЎЎЎю8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; $ЏюдNNNNNNNNNNNNNNNNNЎЎЎю8"'‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------- ; ILLINT: PUSH AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC PUSH DE LD HL,ILLIM ;NOTIFY USER OF INT юNNNNNNNNNNNNNNNNЎЎЎю8(ИINNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DISK DRIVER TABLES ; ;############################################################################ ; STRUCT 0 DVRADD DS ‚·ю NNNNNNNNNNNNNNNNЎЎЎю8.bпNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыBLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; #Z0= TтљюBNNNNNNNNNNNNNNNNNЎЎЎю8ёуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN ; CALL MR_FUN ;EXECUTE MONITOR FUNCTION ; ; RESTORE THE STACK ; LD SP,(SPSAV) RET SUBTTL CHAR I/O ROUTINES 5ѓю·NNNNNNNNNNNNNNNNNЎЎЎю8›ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;**************************************************************************** ; COC: LD A,MF_CO JR XMROM ;++++++УэюNNNNNNNNNNNNNNNNNЎЎЎю8wDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************* ; LO: LD A,MF_LO JR XMROM ;++++++++++++++++++++ЂXюNNNNNNNNNNNNNNNNЎЎЎю8ЭвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------- ; ; USER INTERRUPT ; ;----------------------------------------------------------------------------ы\юјNNNNNNNNNNNNNNNNЎЎЎю82)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP DE POP BC ;RESTORE REGS 1ST POP HL Т&юHNNNNNNNNNNNNNNNNNЎЎЎю8#іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR IQCONT SUBTTL INITIALIZED DATA ;############################################################################ ; ; "ХюјNNNNNNNNNNNNNNNNNЎЎЎю8)ыxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (BIT 0= 1: INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICAL DRIVE ;DVRLDRV DS 1 ;LOGIC."ю!NNNNNNNNNNNNNNNЎЎЎю8/QЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= DATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@P.юВNNNNNNNNNNNNNNNNЎЎЎю8н NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++·BюуNNNNNNNNNNNNNNNNNЎЎЎю8kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++NBюHNNNNNNNNNNNNNNNNNЎЎЎю8"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++oЮю NNNNNNNNNNNNNNNNЎЎЎю8НЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ITRAP: ; ; SAVE REGS FIRST ; PUSH AF PUSH HL PUSH BC PUSH DE ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IжњюNNNNNNNNNNNNNNNNNЎЎЎю8gzNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыPOP AF JP 0038H ; ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR BREAKPOINT ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP DеюдNNNNNNNNNNNNNNNNNЎЎЎю8$Ќ$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;############################################################PюNNNNNNNNNNNNNNNNNЎЎЎю8*®+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL DRIVE {0..N-1} ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS Dѓ]юNNNNNNNNNNNNNNNNNЎЎЎю80B“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD,#DT,#CY,#HD LIST ON ѓvюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNЃСЃџ‚mѓ;„…Ц…¤†r‡?€‰Ъ‰ЁЉv‹BЊЌЮЌЋ{ЏIђ‘е‘і’Ђ“O”•к•ё–‡—V#™с™АљЌ›[њ)ќшќЖћ•џb 1ЎяЎНў›Јi¤7Ґ¦У¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю95іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DW #DADD ;DRIVER EXECUTION ADDR DB 0 ;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD ;MONITOR PHYSICAL DRIVE # DB #FG ;DIS®юINNNNNNNNNNNNNNNNЎЎЎю9џNNNNNNNNNNNNNNNNNNNNNNЎЎЎы8EXEC,1,0,26,0,26,0,26,0,0,77,1 DVR2: ;C ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR3: ;D ALLDRV HDEXEC,4,60H,32,1,32g™ю'NNNNNNNNNNNNNNNNNЎЎЎю9 pЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; DEFAULT DISK PHYSICAL МСюNNNNNNNNNNNNNNNNNЎЎЎю9PўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (Pxю“NNNNNNNNNNNNNNNNNЎЎЎю9їiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################### ; ; MESSAGES ; ;##########################################################†‡юNNNNNNNNNNNNNNNNЎЎЎю9ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEђюNNNNNNNNNNNNNNNNNЎЎЎю9%я‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################################### ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER TO MюNNNNNNNNNNNNNNNNNЎЎЎю9+ЬћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR OFFSET (ADD TO SECTOR) ; ROMSAV EQU 0048H ;DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM SPSAV DS 2 ;USER SP SAVE WHILE USING LOCALЂ›юNNNNNNNNNNNNNNNNNЎЎЎю9`аNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK FLAGS DB #S0,#Z0 ;T0 SECTORS, SIZE DB #S1,#Z1 ;T1 SECTORS, SIZE DB #SD,#ZD ;DATA TRKS SECTORS, SIZE DB #DT ;DISK TwqюNNNNNNNNNNNNNNNNЎЎЎю9Џ+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,1,32,1,10H,256,4 DVR4: ;E ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR5: ;F ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,25~hюgNNNNNNNNNNNNNNNNЎЎЎю9%ЌNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPARAMETERS ; DB 0 ;FLAGS DB 26,0,26,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) DB 0 ;TYPE DW 77 ;CYLS DB 1 ;HEAЬrяИNNNNNNNNNNNNNNNNNЎЎЎю9Й5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRM) DW 0 ;LOGICAL DRIVE SECTOR OFFSET (SOF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 32,1,32,1,32,1 ;32 SPT, 2?AюHNNNNNNNNNNNNNNNNNЎЎЎю9к:NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################## ; MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCЖ‹юNNNNNNNNNNNNNNNNNЎЎЎю9 dNNNNNNNNNNNNNNNNNNNNNNЎЎЎыADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;нюBNNNNNNNNNNNNNNNЎЎЎю9&ЄВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыMATCH THE IOPB DATA ; ;############################################################################ ; BTDRV: DS 1 ;DRIVE # Њ·юNNNNNNNNNNNNNNNNNЎЎЎю9,E NNNNNNNNNNNNNNNNNNNNNNЎЎЎы STACK DS 64 ;LOCAL STACK (32 ENTRIES) LSTACK EQU $ ;###################################################################оюяNNNNNNNNNNNNNNNNNЎЎЎю9SСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыYPE DW #CY ;CYLS DB #HD ;HEADS ; LIST OFF ENDM IF BOOT = 10H DVR0: ;A ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10HGюNNNNNNNNNNNNNNNNNЎЎЎю9 јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы6,4 ENDIF LIST ON ;############################################################################ ; ; DEFAULT 8" FLOP№юINNNNNNNNNNNNNNNNЎЎЎю9јNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыDS ;############################################################################ ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK]ЩюNNNNNNNNNNNNNNNNNЎЎЎю9ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы56 BPS DB 10H ;TYPE DW 256 ;CYLS DB 4 ;HEADS ;####################################################################C№юNNNNNNNNNNNNNNNNNЎЎЎю9ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF IF INTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort?ёNюINNNNNNNNNNNNNNNNNЎЎЎю9!3UNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHEЃюNNNNNNNNNNNNNNNNЎЎЎю9'™уNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыBTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESERVED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADVrюrNNNNNNNNNNNNNNNNЎЎЎю9-v8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######### ; ; DRIVE ALLOCATION AREAS ; ;############################################################################ ; ;]юђNNNNNNNNNNNNNNNNNЎЎЎю9КFNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,256,4 DVR1: ;B ALLDRV HDEXEC,4,60H,32,1,32,1,32,1,10H,256,4 DVR2: ;C ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR3: Кeю9NNNNNNNNNNNNNNNNNЎЎЎю9 йINNNNNNNNNNNNNNNNNNNNNNЎЎЎыPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;#################################################################ыИюdNNNNNNNNNNNNNNNNЎЎЎю9сNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;############################################################################ ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICABяЙNNNNNNNNNNNNNNNNЎЎЎю9ЇWNNNNNNNNNNNNNNNNNNNNN!фЎЎЎы######## ; ; MODE 2 INTERRUPT VECTOR TABLE ; ;############################################################################ яОNNNNNNNNNNNNNNNNNNЎЎЎю9@њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (Y/N/I/M) - ' ENDIF ;############################################################################ ; ; DRIVE PARAMETEwўюNNNNNNNNNNNNNNNNNЎЎЎю9"fNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION {7юNNNNNNNNNNNNNNNNЎЎЎю9(‰НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRESS ;############################################################################ ; ; VARIABLES ; ;################іџюNNNNNNNNNNNNNNNNЎЎЎю9.#kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKS€юNNNNNNNNNNNNNNNNNNNЎЎЎю9щwNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;D ALLDRV HDEXEC,5,60H,32,1,32,1,32,1,10H,256,4 DVR4: ;E ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR5: ;F ALLDRV FD8EXEєћю!NNNNNNNNNNNNNNNNЎЎЎю9ЪxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########### ; SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;9ЊюNNNNNNNNNNNNNNNNNЎЎЎю96АNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTўКюNNNNNNNNNNNNNNNNЎЎЎю9њfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; START ON AN EVEN PAGE BOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORy]юHNNNNNNNNNNNNNNNNNЎЎЎю9sNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR HEADER AREA ; 1 PER DRIVE ; ;############################################################################ ; ;@@@@@@@@@@@@њКяHNNNNNNNNNNNNNNNNNЎЎЎю9#U7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + жwюNNNNNNNNNNNNNNNNNNNЎЎЎю9)єьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################ ; DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. н’юBNNNNNNNNNNNNNNNЎЎЎю9/ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDAL: MACRO #D LIST ON IFЖюNNNNNNNNNNNNNNNNNЎЎЎю9¬$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыC,1,0,26,0,26,0,26,0,0,77,1 ENDIF IF BOOT = 3 DVR0: ;A ALLDRV FD8EXEC,0,0,26,0,26,0,26,0,0,77,1 DVR1: ;B ALLDRV FDґююNNNNNNNNNNNNNNNNNЎЎЎю9CпNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 }1юNNNNNNNNNNNNNNNNNЎЎЎю9c“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ^ю NNNNNNNNNNNNNNNNЎЎЎю9ЊXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTED LIST OFF DW ILLINT LIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;#############################*юNNNNNNNNNNNNNNNNNЎЎЎю9&юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@Юю NNNNNNNNNNNNNNNNNЎЎЎю9$М NNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;#####юHNNNNNNNNNNNNNNNNNЎЎЎю9*пЇNNNNNNNNNNNNNNNNNNNNN!фЎЎЎы DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTION ADDRESS SECOFF DS 2 ;LOGICAL DRIVE SECъ@юHNNNNNNNNNNNNNNNNNЎЎЎю90NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DўЩюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNюЂМЃ›‚iѓ7„…Ф…Ў†p‡=€‰Щ‰§Љv‹CЊЌЮЌ¬ЋyЏHђ‘ж‘ґ’‚“P”•л•ё–†—T"™п™Ѕљ‹›Yњ&ќхќГћ‘џ` /ЎэЎЛў™Јg¤6Ґ¦Р¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю9ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTѓюNNNNNNNNNNNNNNNNЎЎЎю9Ё%NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DоюNNNNNNNNNNNNNNNNNЎЎЎю9 GоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADDITIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING ?ЏюNNNNNNNNNNNNNNNNNЎЎЎю9g’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыABCDEF DD DL DD + 1 LIST ON ENDM IF (($ - 8000H) > 07700H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & Ую“NNNNNNNNNNNNNNNNNЎЎЎю9€YNNNNNNNNNNNNNNNNNNNNNNЎЎЎыATA TABLE PTR ; PUSH IX LD IX,(CUR_DPB) ; ; READ_OPERATION_FLAG = TRUE (1) ; LD A,1 LD (READOP),A ; ; PRE-READВ:яжNNNNNNNNNNNNNNNNNNЎЎЎю9"яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READOP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRIT±‰яВNNNNNNNNNNNNNNNNNЎЎЎю9%ИЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы GET MONITOR PROM SUBR ; EXIT - A= ? ; ;**************************************************************************** GETMON:Alю!NNNNNNNNNNNNNNNNЎЎЎю9+л®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;---------------------------------------------------------------------------- ITRAP: ; ; SAVE REGS FIRST ; PUSH AF f‹юђNNNNNNNNNNNNNNNNNЎЎЎю9WРNNNNNNNNNNNNNNNNNNNNN!фЎЎЎыORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS шЖюNNNNNNNNNNNNNNNNЎЎЎю9ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 0кю·NNNNNNNNNNNNNNNNЎЎЎю9ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDPBOFF ABOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD lю'NNNNNNNNNNNNNNNNNЎЎЎю9юNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRE-ADJUST! **** ENDIF END Ћю§NNNNNNNNNNNNNNNNNЎЎЎю9Э NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_OF_DATA_FLAG = TRUE ; LD (RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PнeятNNNNNNNNNNNNNNNNNNЎЎЎю9 7TNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOЉбяВNNNNNNNNNNNNNNNNЎЎЎю9&ќтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,XMONROM OUT (ROMSEL),A RET ;**************************************************************************** ; ; ‘=юNNNNNNNNNNNNNNNNNNЎЎЎю9,r9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(ROMSEL) LD (ROMSAV),A CALL GETMON ; ; PRINT PROMяІюNNNNNNNNNNNNNNNЎЎЎю9dбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;########################################################ЋxюNNNNNNNNNNNNNNNNNЎЎЎю9 ‹*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;DRM- DIRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS-'юNNNNNNNNNNNNNNNNЎЎЎю9!ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUPPER BITS) ; DPBSOF DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPBSZ DS 0 ENDM ; ; ;@АќюNNNNNNNNNNNNNNNNNЎЎЎю9Н4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SECTRAN: LD H,B LD L,C INC HL RET ;*******йYюNNNNNNNNNNNNNNNNNЎЎЎю9о;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыERFORM THE READ ;**************************************************************************** ; ; THE WRITE ENTRY POINT T§ядNNNNNNNNNNNNNNNNNNЎЎЎю9!eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BђєюNNNNNNNNNNNNNNNNЎЎЎю9'®ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;********************************************”}юrNNNNNNNNNNNNNNNNNЎЎЎю9-ANNNNNNNNNNNNNNNNNNNNNNЎЎЎыPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSG ;QUERY USER CALL EDITOR ; CALL CI ;GET USER OPTION ; ; IF OPїVюNNNNNNNNNNNNNNNNNЎЎЎю9эvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы#################### ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;###############################################################nщюNNNNNNNNNNNNNNNNNЎЎЎю9 ЮyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы # DIRECTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATЛ®юNNNNNNNNNNNNNNNNЎЎЎю92БNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@‹уюдNNNNNNNNNNNNNNNNЎЎЎю9gNNNNNNNNNNNNNNNNNNNNN!фЎЎЎы********************************************** ;* * ;* THE READ ENTRY POINT [ыюrNNNNNNNNNNNNNNNNNЎЎЎю9w¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAKES THE PLACE OF THE PREVIOUS BIOS DEFINTION ; FOR WRITE. ; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) Eую NNNNNNNNNNNNNNNNЎЎЎю9"Q6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ LISTST: IF USEMON CALL GЈOю$NNNNNNNNNNNNNNNNNЎЎЎю9(ѕэNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы******************************** EDITOR: LD C,(HL) ;MESSAGE EDIT LOOP PUSH HL ;SAVE PTR RES 7,C ;CLEAR BIT 7 FOR OUTPUT O^ю!NNNNNNNNNNNNNNNNЎЎЎю9.[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; AХLюNNNNNNNNNNNNNNNNNЎЎЎю9ОGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############# ; STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE 4Рю$NNNNNNNNNNNNNNNNNЎЎЎю9нHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPBPSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128A»юіNNNNNNNNNNNNNNNNNЎЎЎю9рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLO%ђюNNNNNNNNNNNNNNNЎЎЎю9«VNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTAKES THE PLACE OF * ;* THE PREVIOUS BIOS DEFINTION FOR READ. * ;* ®†я!NNNNNNNNNNNNNNNNNЎЎЎю9DќNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; 1: WRITE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;******************I ю'NNNNNNNNNNNNNNNNNЎЎЎю9#bNNNNNNNNNNNNNNNNNNNNNNЎЎЎыETMON JP 0F827H ELSE IN A,(CENTS) ;IF BUSY THEN RETURN 0 CPL ;INVERT THE SENSE AND A,1 SHL CENTBSY RET Z LD 2юBNNNNNNNNNNNNNNNNЎЎЎю9)ЌМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL COC ; POP HL BIT 7,(HL) ;IF BIT 7 SET THEN RETURN RET NZ ; INC HL ;ELSE PRINT NEXT CHAR JR EDITOR IF I#`ю“NNNNNNNNNNNNNNNNNЎЎЎю9/'jNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITMхючNNNNNNNNNNNNNNNNNNЎЎЎю9›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1РДюNNNNNNNNNNNNNNNNNЎЎЎю9tЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы, 1: 256, 2: 512, 3: 1024 DPBPHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ;SfюNNNNNNNNNNNNNNNNNЎЎЎю9TЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789Ўю NNNNNNNNNNNNNNNNЎЎЎю9»hNNNNNNNNNNNNNNNNNNNNNNЎЎЎы * ;* READ THE SELECTED CP/M SECTOR * ;***************************************************** READ: ; ; SET UP D,>яВNNNNNNNNNNNNNNNNNЎЎЎю9ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************** WRITE: ; ; SET PTR TO DISK DATA ; PUSH IX LD IX,(CUR_DPB) †ҐяуNNNNNNNNNNNNNNNNNNЎЎЎю9$ыђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,0FFH ;ELSE RETURN -1 RET ENDIF ;**************************************************************************** ; ;љ¶юњNNNNNNNNNNNNNNNNЎЎЎю9*ШџNNNNNNNNNNNNNNNNNNNNN!цЎЎЎыNTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------------------------------- ; ; USER INTERRUPT `pюNNNNNNNNNNNNNNNNЎЎЎю904'NNNNNNNNNNNNNNNNNNNNNNрЎЎЎыRAP1 ; POP BC ;RESTORE REGS 1ST POP HL POP AF JP 0038H ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR TRAP ; ITRA‹¦юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNЃПЃћ‚lѓ:„…Ц…¤†s‡A€‰Ь‰ЄЉx‹FЊЌгЌ±ЋЏNђ‘й‘·’†“T”"•р•ѕ–Њ—Y'™ф™Вљ‘›_њ-ќыќИћ–џd 2ЎяЎМўљЈh¤5Ґ¦С¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю:®oNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыP1: CP A,'M' JR NZ,ITRAPR ; POP BC POP HL POP AF JP 0F824H ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROM·ЏюNNNNNNNNNNNNNNNNЎЎЎю:ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################### SDTRAN: GXLATE 26,6 ; DB 1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,]DюNNNNNNNNNNNNNNNNNNЎЎЎю: лNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS 1 DVRSIZ DS 0 bюNNNNNNNNNNNNNNNNЎЎЎю:Л~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV FD5EXEC,8,0,16,0,16,0,16,0 ALLDRV FD5EXEэrюNNNNNNNNNNNNNNNNЎЎЎю:$µNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B °5ю№NNNNNNNNNNNNNNNNЎЎЎю:ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DW 3 ;TRACK OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS DB 16,0,16,0,16,0 ;SECTORS PER TRACK, SECTORѓ«юNNNNNNNNNNNNNNNNNЎЎЎю:%dMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;64 SPT, 256 BPS ;############################################################################ ; ; MODE 2 INTERRUPT VECTOv7юINNNNNNNNNNNNNNNNNЎЎЎю:+GBNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSCMSG: DM CR,LF,'ILL SYS CALL',CR,LF ENDIF IF INTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abo%юNNNNNNNNNNNNNNNNNNЎЎЎю:ы§ю9NNNNNNNNNNNNNNNNЎЎЎю;RNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы0) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DjэюINNNNNNNNNNNNNNNNNЎЎЎю;ш§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC хю„NNNNNNNNNNNNNNNNЎЎЎю;%щNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################### ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE ОoюHNNNNNNNNNNNNNNNNNЎЎЎю;+1цNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A ; ; INIT DEBLOCKING DATA ; XOR A,A ;ASSUME NO DATA IN BUFFER LD (HST_ACT),A ; LD (UNA_CNT),A ;CLEAR UNALLOCATED WдюNNNNNNNNNNNNNNNNЎЎЎю;Ќ€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================== LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB.DEF *INCLUDE DISKS.DEF *INCLUDE MONBOARD.DEF *INC¶3ю$NNNNNNNNNNNNNNNNNЎЎЎю;bCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAІю“NNNNNNNNNNNNNNNNЎЎЎю;ИеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START L„ююNNNNNNNNNNNNNNNNЎЎЎю;$]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSјIюњNNNNNNNNNNNNNNNNЎЎЎю;RNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;-----------------------------К„юrNNNNNNNNNNNNNNNNNЎЎЎю; нNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;EXECUTE FUNCTION CALL ;############################################################################ ; ; THESE BOOT PARA =яОNNNNNNNNNNNNNNNNNЎЎЎю;&GЄNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCP/M DIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;#############################################################љ+яВNNNNNNNNNNNNNNNNЎЎЎю;,ЁaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR COUNT ; ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; 4мяВNNNNNNNNNNNNNNNNЎЎЎю;ѕ№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLUDE ZMONROM.DEF *INCLUDE DKBTROM.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INCLUDE CLOKROM.DEF LIST ON ;===========Ю&ю NNNNNNNNNNNNNNNNNЎЎЎю; QrNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART f‹ю'NNNNNNNNNNNNNNNNNЎЎЎю;ыФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOGICAL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD E·юBNNNNNNNNNNNNNNNNЎЎЎю;lNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEC + #SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LБ”юNNNNNNNNNNNNNNNNNNЎЎЎю;4cNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы----------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;--------------------------------------------кЭю'NNNNNNNNNNNNNNNNNЎЎЎю;!Ю=NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыMS MUST RESIDE AS DEFINED RIGHT BEFORE THE COLD INIT ; ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE REFERENC=ІюNNNNNNNNNNNNNNNNNЎЎЎю;'t›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############### DIRBF: EQU $ ;BUFFER BEGINNING ;-------------------------------------------------------------------------у‡ю“NNNNNNNNNNNNNNNNЎЎЎю;-›PNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(BIOS+4) LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;###################################################ґзю9NNNNNNNNNNNNNNNNЎЎЎю;'.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================================= ; ; DISK OPERATING SYSTEM ADDRESSES ; ;=================ЄaюњNNNNNNNNNNNNNNNNЎЎЎю; !NNNNNNNNNNNNNNNNNNNNNNЎЎЎыVECTOR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;====================-ҐяВNNNNNNNNNNNNNNNNNЎЎЎю;и™NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;=========================================================================pЊяВNNNNNNNNNNNNNNNNЎЎЎю;B?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOWEST ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@Зю“NNNNNNNNNNNNNNNNNЎЎЎю;фNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------------------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP >еюNNNNNNNNNNNNNNNNЎЎЎю;"‹nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыED ; BY THE BOOT CODE IN ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S ; LENGTH. ; ;#################################bЫю NNNNNNNNNNNNNNNNNЎЎЎю;(dҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--- ; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;--------------------------------------------------5 юNNNNNNNNNNNNNNNNNЎЎЎю;.ОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################### ; ; SIGN-ON MESSAGE ; ;###########################################################################GюЙNNNNNNNNNNNNNNNNNЎЎЎю;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=========================================================== OP_SYS EQU 2 ;CP/M VERSION ; NKSYS: EQU 60 ;SYSTEM SIZE IN K BY8ШяИNNNNNNNNNNNNNNNNNЎЎЎю;7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы======================================================== ; ; OTHER DECLARATIONS ; ;=========================================p„ю NNNNNNNNNNNNNNNNNЎЎЎю;ЫЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=== ; ; ASCII CHARS ; ;============================================================================ LF: EQU 0AH CR: EQU 0Dш?юњNNNNNNNNNNNNNNNNЎЎЎю;qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@‚ю9NNNNNNNNNNNNNNNNЎЎЎю;ћЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE Jf|юNNNNNNNNNNNNNNNNNNЎЎЎю;#ё_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################### BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE юЙNNNNNNNNNNNNNNNNNЎЎЎю;)W”NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы-------------------------- INIT: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS EbхяINNNNNNNNNNNNNNNNNЎЎЎю;/э2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы# MSGSO: DB CR,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF yюNNNNNNNNNNNNNNNNЎЎЎю;ALNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR њю!NNNNNNNNNNNNNNNNЎЎЎю;®‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================== SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU OЁюNNNNNNNNNNNNNNNNNNЎЎЎю;ЋыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH CTRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLAT7!юNNNNNNNNNNNNNNNNNЎЎЎю;a0NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 1000.›ятNNNNNNNNNNNNNNNNЎЎЎю;Л–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;оjюNNNNNNNNNNNNNNNNNЎЎЎю;$!ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOAD ADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;#######################################################O…яОNNNNNNNNNNNNNNNNNЎЎЎю;*ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNABLED ; CALL GETMON ; ; INIT DEFAULT DRIVE ; LD A,(DK_PROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV)Jю NNNNNNNNNNNNNNNNNЎЎЎю;0оNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 'M5b CBIOS Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER j€юINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNюЂМЃ™‚gѓ5„…С…џ†m‡;€‰Х‰ўЉp‹=ЊЌЩЌ¦ЋtЏBђ‘Я‘’{“H”•д•±–—M™й™·љ…›Sњ ќнќєћ€џV #ЎсЎАўЋЈ[¤)ҐчҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю;плNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHAN DIR BUFFER **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;-------------------"°юNNNNNNNNNNNNNNNNNЎЎЎю;EMNNNNNNNNNNNNNNNNNNNNNNЎЎЎыISHA HOST ADAPTER FOR A HUNG CONDITION AND CLEAR IF TRUE ; IN A,(ISH_STATUS) ;IF HOST ADAPTER BUSY THEN BIT ISH_BSYB,A JRM§юNNNNNNNNNNNNNNNNЎЎЎю; Є†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + BD_SCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL ОґюBNNNNNNNNNNNNNNNNЎЎЎю;ЉъNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL~Аю„NNNNNNNNNNNNNNNNЎЎЎю;e1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOC#ОядNNNNNNNNNNNNNNNNNЎЎЎю;П—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++^мюњNNNNNNNNNNNNNNNNЎЎЎю;%%ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCUR_WR),HL ; LD L,(IX+ DPHRDO) LD H,(IX+ DPHRDO +1) LD (CUR_RD),HL ; LD L,(IX+ DPHSOFO) LD H,(IX+ DPHSOFO +1) LD (уюHNNNNNNNNNNNNNNNNNЎЎЎю;+ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFER ID SECTOR DATA TO TABLES ; LD HL,DEFBFR + ID_SPTO ; ; XFER DISK DATA TO DPB ; LG_XDPB: LD DE,(CUR_DPB) ;GET ADDт—юNNNNNNNNNNNNNNNNЎЎЎю;єёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------------------- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;-----------™Вю'NNNNNNNNNNNNNNNNNЎЎЎю;UsNNNNNNNNNNNNNNNNNNNNNNЎЎЎы Z,NTHUNG ; LD A,PB_CLRC LD (IOPB + PB_CMDO),A CALL XPRIM ; NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; WюNNNNNNNNNNNNNNNNЎЎЎю;яХNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSETTRK ; LD BC,CCP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT AюDNNNNNNNNNNNNNNNNЎЎЎю;mNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы SETTRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR ЧVю9NNNNNNNNNNNNNNNNЎЎЎю;0bNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыK INSTALLED ; LD C,CLK_F7 ;TEST FOR BOARD PRESENT CALL CLK1 ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; OR A,A ЉyюdNNNNNNNNNNNNNNNNNЎЎЎю; Ъ 3 THEN SET TO 0 (NO DEBLOCK) ; DEC HL ;SKEW DEC HL ;PHM DEC HL ;PSH L±ѓюNNNNNNNNNNNNNNNNЎЎЎю;‰‰NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы----------------------------------------------- WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTAЄшю!NNNNNNNNNNNNNNNNЎЎЎю; fBNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,(DK_PROM + 1) AND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; єvю NNNNNNNNNNNNNNNNNЎЎЎю;МдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSECTOR ; LD HL,(SEK_SEC) INC HL LD (SEK_SEC),HL ; LD DE,SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(DMA_ADR) ADD HL,DE ‚UюNNNNNNNNNNNNNNNNЎЎЎю; \NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PA¦tюђNNNNNNNNNNNNNNNNNЎЎЎю;SNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,38H ;COND. JR (ON) JR NZ,CLKON ; ; ELSE TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEG#Дю'NNNNNNNNNNNNNNNNNЎЎЎю;!й NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (SEK_DSK),A ; ; LOOK UP DRIVE IN TABLES ; ADD A,A LЦ\яИNNNNNNNNNNNNNNNNNЎЎЎю;'C«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,E LD (LOGRQ),A ; ; FETCH DISK PARAMETER HEADER TABLE ADDRESS ; LD HL,(CUR_DPH) ; ; IF NOT FIRST SELECT ORбjюINNNNNNNNNNNNNNNNЎЎЎю;-¬`NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,(HL) CP A,4 JR C,PSHOK ; LD (HL),0 ;PSH = 0 INC HL ;PHM = 0 LD (HL),0 INC HL ;SKEW = 0 LD (HL),0 JR DPBS']яВNNNNNNNNNNNNNNNNЎЎЎю;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBL LD I,A ; ; SET INTERRUPT MODE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(M2_IMASK) AND A,7FH OUT (КЭюNNNNNNNNNNNNNNNNNNЎЎЎю; 3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,BD_SEC ;SET DIRECTO"яВNNNNNNNNNNNNNNNNNЎЎЎю;Я©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (DMA_ADR),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSEЭюBNNNNNNNNNNNNNNNNЎЎЎю;uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; nЭяИNNNNNNNNNNNNNNNNNЎЎЎю;љДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL) ; CLKON: LD (INHCLK),A ; ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP IF P_DISKЅ€юrNNNNNNNNNNNNNNNNЎЎЎю;"ј^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,DRV_PTRS ADD A,L LD L,A LD A,0 ADC A,H LD H,A LD A,(HL) INC HL LD H,(HL) LD L,A LD (CUR_DPH),HL ; ; іOюNNNNNNNNNNNNNNNNNЎЎЎю;(S•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LOGON INHIBITED THEN RETURN TABLE PTR ; CPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; ; ATTEMPT TO READ ID SECTOR ;УЅюђNNNNNNNNNNNNNNNNNЎЎЎю;.щ3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыET ; PSHOK: ; FETCH SKEW INDEX ; INC HL ;PHM INC HL ;SKEW ; DPBSET: LD A,(HL) ; ; CALCULATE SKEW TABLE TO USE Х?юHNNNNNNNNNNNNNNNNNЎЎЎю;#/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыM2_IMASK),A ; ; FINALLY ENABLE VECTORED INTERRUPTS ; IN A,(M2_STAT) OR A,M2_IEN OUT (M2_STAT),A EI ENDIF ; ; Я¶ю“NNNNNNNNNNNNNNNNNЎЎЎю; NNNNNNNNNNNNNNNNNNNNN!цЎЎЎыRY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT CЌядNNNNNNNNNNNNNNNNNЎЎЎю;мNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; ХTяВNNNNNNNNNNNNNNNNЎЎЎю;F>NNNNNNNNNNNNNNNNNNNNNNрЎЎЎы; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ЎятNNNNNNNNNNNNNNNNЎЎЎю;©хNNNNNNNNNNNNNNNNNNNNNNЎЎЎы OR P_ALL LIST ON ELSE LIST OFF ENDIF SUBTTL BIOS DISK FUNCTION ROUTINES ;+++++++++++++++++++++++++++++++++++++++_<юњNNNNNNNNNNNNNNNNЎЎЎю;#ЏoNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы FETCH OTHER PTRS ; PUSH IX ;SAVE CURRENT IX PUSH HL POP IX ; LD L,(IX+ DPHDPBO) LD H,(IX+ DPHDPBO +1) LD (CUR_DPЮ0юNNNNNNNNNNNNNNNNNЎЎЎю;)`¤NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVISED LD (IOPB + PB_ST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECP›юINNNNNNNNNNNNNNNNNЎЎЎю;/КNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; OR A,A ;IF 0 THEN NO XLATION JR NZ,LG_X1 ; LG_NOX: LD HL,0 ; LG_X: LD (CUR_XLAT),HL JR LG_DONE ; ; ; IF SKEW ЮWю„NNNNNNNNNNNNNNNNЎЎЎю;v|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SET TEMPORARY STACK ; LD SP,DEFBFR ; ; INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST wяОNNNNNNNNNNNNNNNNNЎЎЎю;™·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIRECTORY ; LD A,(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + BD_SBDSS) ;PREFETCH BD-aюNNNNNNNNNNNNNNNNNЎЎЎю;№ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD DE,BIOS - BDOS SBC HL,DE JP C,WREAD ; ; ELSE DONE READING SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; јю NNNNNNNNNNNNNNNNNЎЎЎю;VNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),Ю™ю„NNNNNNNNNNNNNNNNЎЎЎю;ь¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; -яИNNNNNNNNNNNNNNNNNЎЎЎю;$шNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыB),HL ; LD L,(IX+ DPHDTABO) LD H,(IX+ DPHDTABO +1) LD (CUR_BCB),HL ; LD L,(IX+ DPHWRTO) LD H,(IX+ DPHWRTO +1) LD (щя'NNNNNNNNNNNNNNNNNЎЎЎю;*5чNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR THEN USE DEFAULTS ; LD A,(IOPB + PB_ST2O) CP A,-2 ;0: NO ID, -1: JADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; ELSE XФюЙNNNNNNNNNNNNNNNNNЎЎЎю;0ЩONNNNNNNNNNNNNNNNNNNNNNЎЎЎы> LAST THEN NONE ; LG_X1: CP A,4 JR C,LG_NOX ; ; ELSE IF SKEW == 1 THEN IBM 3740 FORMAT ; LD HL,X3740 CP A,2 JR Cцю“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNЃСЃџ‚lѓ:„…Х…¤†r‡@€‰Ь‰©Љx‹EЊЌаЌЇЋ}ЏKђ‘з‘µ’‚“P”•л•ё–†—S!™п™Ѕљ‹›Zњ'ќхќГћ‘џ_ -ЎыЎКўЈe¤3Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю<‰цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC,LG_X ; ; ELSE IF SKEW == 2 THEN IBM 3740 DOUBLE SIDED ; LD HL,X3740D JR Z,LG_X ; ; ELSE IF SKEW == 3 THEN CCS SIN13юNNNNNNNNNNNNNNNNNЎЎЎю<#PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK 0 ; EXIT - BC= 0 ; ;**************************************************************************** HOME: ; ; IF PENDING 04ятNNNNNNNNNNNNNNNNЎЎЎю< М›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= 0 ; ;********************(±юњNNNNNNNNNNNNNNNNЎЎЎю<мзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* DISKRD: ; ; IF SECTOR SIZE == 128 THEN USE UNBLOCKED ROUTINES & SAVE BUFFER ; ЖЉю„NNNNNNNNNNNNNNNNЎЎЎю<,NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TO DIRECTORY BLOCK (ALLWAYS WRITE) WR_UAL EQU 2 ;WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;***********************‡qюЙNNNNNNNNNNNNNNNNNЎЎЎю<©ЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(SEK_DSK) LD (UNA_DSK),A ; ; SET TRACK TO SEEK ; LD HL,(SEK_TRK) LD (UNA_TRK),HL ; ; SET SECTOR TO SEE=ю9NNNNNNNNNNNNNNNNЎЎЎю<%CФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы THEN USE 1ST SECTOR OF NEXT TRACK ; LD E,(IX+ DPBSPTO) LD D,(IX+ DPBSPTO +1) SBC HL,DE JP C,NOOVF ; LD HL,0 ;SECTOcbяИNNNNNNNNNNNNNNNNNЎЎЎю<+`ЫNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы28 JR Z,NOSECSHF ; SECSHFLP: SRL B ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR C DEC A JR NZ,SECSHFLP ; NOSECSHF: Lк-юNNNNNNNNNNNNNNNNNNЎЎЎю<ЬҐNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыGLE SIDED ; LD HL,XCCS CP A,4 JR C,LG_X ; ; ELSE IF SKEW == 4 THEN CCS DOUBLE SIDED ; LD HL,XCCSD JR LG_X ; ; M‡ю“NNNNNNNNNNNNNNNNNЎЎЎю<3nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыWRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(HST_WRT) OR A,A RET NZ ; ; ELSE PURGE BUFFER ; LD (HST_ACT),A RET *·ю·NNNNNNNNNNNNNNNNЎЎЎю<™ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************** SETDMA: LD (DMA_ADR),BC XOR A,A LD (DMA_BNK),A RET ;+++++++UаюNNNNNNNNNNNNNNNNЎЎЎю<upNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(CUR_DPB) LD DE,DPBPSHO ADD HL,DE LD A,(HL) OR A,A JP Z,UB_READ ; ; SET UP DATA TABLE PTR ; PUSH IX LЭящNNNNNNNNNNNNNNNNЎЎЎю<VNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************** DISKWR: ; ; IF SECTOR SIZE == 128 THEN USE UNBLOCKED ROUTINES ; LDп1ядNNNNNNNNNNNNNNNNNЎЎЎю< ј!NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK ; LD HL,(SEK_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATED SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT) OR AMжю!NNNNNNNNNNNNNNNNЎЎЎю<&‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR = #1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INC HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECEшАюBNNNNNNNNNNNNNNNNЎЎЎю<,щLNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD (SEK_HST),BC ;BUFFER SECTOR TO SEEK ; ; IF BUFFER EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,HST_ACT LD A,(HL) ; рkятNNNNNNNNNNNNNNNNЎЎЎю<п”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; RETURN DRIVE TABLE PTR ; LG_DONE: LD HL,(CUR_DPH) XOR A,A RET ; ; ; SELECT DEFAULT DPB FROM TABLES BASED ON DR— ю$NNNNNNNNNNNNNNNNNЎЎЎю< _NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;**************************************************************************** ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;***** ЖюNNNNNNNNNNNNNNNNNЎЎЎю<ЄщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION BDOS FUNCTION DOES NOTHING IN DEBґ4ю9NNNNNNNNNNNNNNNNЎЎЎю<FANNNNNNNNNNNNNNNNNNNNNNЎЎЎыD IX,(CUR_DPB) ; ; READ_OPERATION_FLAG = TRUE (1) ; LD A,1 LD (READ_OP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD хpюHNNNNNNNNNNNNNNNNNЎЎЎю<eNNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы HL,(CUR_DPB) LD DE,DPBPSHO ADD HL,DE LD A,(HL) OR A,A JP Z,UB_WRITE ; ; SET PTR TO DISK DATA ; PUSH IX LD IXЁбюNNNNNNNNNNNNNNNNNЎЎЎю<!ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUNT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SECTOR !=–nюINNNNNNNNNNNNNNNNNЎЎЎю<'%¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RS_FLAG),A JP RWOPER ; ; ; NOT AN UNALLOCATED RECORD, REQUIRES PRE-Rх±яИNNNNNNNNNNNNNNNNЎЎЎю<-К}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD (HL),1 ;BUFFER FULL IN ANY CASE ; OR A,A JP Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? ; LD A,(SEK_DS%эю9NNNNNNNNNNNNNNNNЎЎЎю<vNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIVE TYPE ; LGDEF: LD HL,(CUR_DPH) DEC HL ;POINT TO DRIVE TYPE BYTE ; ; IF HARD DISK THEN USE HARD DISK TABLE ; LD A,ONюњNNNNNNNNNNNNNNNNЎЎЎю< UNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************************** SETTRK: LD (SEK_TRK),BC RET ;*****************j¤яВNNNNNNNNNNNNNNNNNЎЎЎю<№ґNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLOCKING MODE ; ENTRY- BC= SECTOR # TO XLATE ; EXIT - HL= BC ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++а.юBNNNNNNNNNNNNNNNNЎЎЎю<NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(RS_FLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WR_UAL LD (WR_TYPE),A ; JP RWOPER ;TO PERFORM THE READ ;****oҐюNNNNNNNNNNNNNNNNNЎЎЎю<ьЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(CUR_DPB) ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READ_OP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WR_TYPE),A ; ;†wюdNNNNNNNNNNNNNNNNЎЎЎю<"ЪCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы UNALLOCATED SECTOR THEN PURGE ; LD A,(SEK_DSK) ;SAME DISK? LD HL,UNA_DSK CP A,(HL) JP NZ,ALLOC ; LD HL,(UNA_TRK) ;SdµюNNNNNNNNNNNNNNNNNЎЎЎю<(5€NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEAD ; ALLOC: XOR A,A ;COUNT = 0 LD (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RS_FLAG),A ; ; ; ; COMMON CODё|яИNNNNNNNNNNNNNNNNNЎЎЎю<.џ.NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK) LD HL,HST_DSK ;SAME DISK? CP A,(HL) JP NZ,NOMATCH ; LD HL,(HST_TRK) ;SAME TRACK? LD DE,(SEK_TRK) SBC HL,DE JP ќЯю NNNNNNNNNNNNNNNNNЎЎЎю<E2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(HL) CP A,10H JR C,LG_DEFF ; LD HL,HDPBK JR LG_XDPB ; ; ; USE 8" FLOPPY DEFAULTS ; LG_DEFF: LD HL,SD8PBK JR ±яИNNNNNNNNNNNNNNNNNЎЎЎю<f=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;***********************TъюdNNNNNNNNNNNNNNNNNЎЎЎю<Љ…NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++ SECTRN: LD H,B LD L,C RET ;*************************************************************************Х›юNNNNNNNNNNNNNNNNЎЎЎю< #NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************************ ; ; THE WRITE ENTRY POINT TAKES THE PLACE OF THE PREV—Kю9NNNNNNNNNNNNNNNNЎЎЎю<ПиNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMETERS ; CP A,WR_UAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OFFюNNNNNNNNNNNNNNNNNNЎЎЎю<#йrNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAME TRACK? LD DE,(SEK_TRK) SBC HL,DE JP NZ,ALLOC ; LD HL,(SEK_SEC) LD DE,(UNA_SEC) SBC HL,DE JP NZ,ALLOC ; ; а–юЙNNNNNNNNNNNNNNNNNЎЎЎю<)№NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE FOR READ AND WRITE FOLLOWS ; RWOPER: ; ; ASSUME NO ERRORS ; XOR A,A LD (ER_FLAG),A ; ; COMPUTE BUFFER SECTOR ;сЫюЙNNNNNNNNNNNNNNNNNЎЎЎю</¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыNZ,NOMATCH ; LD DE,(SEK_HST) ;SAME SECTOR? LD HL,(HST_SEC) SBC HL,DE JP Z,MATCH ;SKIP IF MATCH ; NOMATCH: ; ; IFЌюNNNNNNNNNNNNNNNNЎЎЎю<aNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLG_XDPB ;**************************************************************************** ; ; HOME DRIVE - TREAT AS SEEK TRL°яОNNNNNNNNNNNNNNNNNЎЎЎю<яЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************** SETSEC: LD (SEK_SEC),BC RET ;***********************************p0юNNNNNNNNNNNNNNNNNNЎЎЎю<ЯЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*** ; ; THE READ FUNCTION READS THE REQUESTED SECTOR ; EXIT - A= 0: OK, /0: ERROR CODE ; ;*********************************(MюNNNNNNNNNNNNNNNNNЎЎЎю<0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOUS BIOS DEFINTION ; FOR WRITE. ; ENTRY- C= WRITE TYPE: WR_ALL EQU 0 ;WRITE TO ALLOCATED BLOCK (UPDATE) WR_DIR EQU 1 ;WRITEг;ю„NNNNNNNNNNNNNNNNЎЎЎю<љ»NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_SECTORS_IN_BLOCK ; LD A,(IX+ DPBBLMO) ;CUR_DPB.DPBBLM + 1 ::= (BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET DISK TO SEEKУ.юHNNNNNNNNNNNNNNNNNЎЎЎю<$pеNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыMATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; INC HL ;UNASEC = UNASEC+1 LD (UNA_SEC),HL ; ; IF PAST LAST SECTOR ON TRACKµсяИNNNNNNNNNNNNNNNNNЎЎЎю<*SкNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD BC,(SEK_SEC) ; LD A,(IX+ DPBPSHO) ;USE PHYSICAL SHIFT FACTOR (CP/M 3.X) OR A,A ;IF ALREADY 0 THEN SECTOR SIZE IS 1=Щю NNNNNNNNNNNNNNNNNЎЎЎю<0їRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CURRENT BUFFER DIRTY THEN WRITE IT OUT BEFORE READING NEW ONE ; LD A,(HST_WRT) OR A,A CALL NZ,WRITEHST ;CLEAR HOST BUFF dюINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNяЂОЃ›‚hѓ5„…Р…ћ†k‡9€‰У‰ Љn‹;ЊЌЦЌ¤ЋrЏ@ђ‘Ь‘Є’x“E”•а•–{—H™д™ІљЂ›Nњќйќ·ћ†џT "ЎрЎЅў‹ЈX¤'ҐхҐГ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю<ѕЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; FILHST: ; ; READ THE SECTOR BUFFER ; LD A,(SEK_DSK) ;BUFFER SECTOR = PHYSICAL SECTOR LD (HST_DSK),A ; LD HL,(SEK_Ню$NNNNNNNNNNNNNNNNNЎЎЎю<`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы8 ;LENGTH OF MOVE ; LD A,(READ_OP) ;WHICH WAY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SWITC±юrNNNNNNNNNNNNNNNNЎЎЎю< ы«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; UNBLOCKED R+Џю9NNNNNNNNNNNNNNNNЎЎЎю<ЫЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXFER ADDRESS TO DATA ; LD HL,(DMA_ADR) LD (IOPB + PB_DMAO),HL LD A,(DMA_BNK) LD (IOPB + PB_DMAXO),A ; ; EXECUTE THEUKю„NNNNNNNNNNNNNNNNЎЎЎю<4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(IOPB + PB_DMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,ID_SECT LD (IOPB + PB_SECO),HL ; ; SET DESCRIPTOR SECTksюNNNNNNNNNNNNNNNNNЎЎЎю<ћєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_DMAXO),A ; LD A,PB_READC ;SELECT READ OP JP DISKOP ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!ыюBNNNNNNNNNNNNNNNNЎЎЎю<%tдNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKOP: ; ; SДюHNNNNNNNNNNNNNNNNNЎЎЎю<+WлNNNNNNNNNNNNNNNNNNNNNNЎЎЎыWR: H8_RD: H8_WR: EX_IOPB ; ; EXECUTE DISK DRIVER ; DKOPLP: ; ; EXECUTE THE PRIMITIVE IN ROM ; PUSH IX LD IX,IпюјNNNNNNNNNNNNNNNNЎЎЎю<л•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_TRK) LD (HST_TRK),HL ; LD HL,(SEK_HST) LD (HST_SEC),HL ; ; IF REQUIRED TO READ THEN READ ; LD A,(RS_FLAG) ;NEED ПLюHNNNNNNNNNNNNNNNNNЎЎЎю<^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (HST_WRT),A ; EX DE,HL ;SOURCE/DEST SWAP ; RWMOVE: ; ; BC INITIALLY 128,МвюNNNNNNNNNNNNNNNNЎЎЎю<®шNNNNNNNNNNNNNNNNNNNNN!цЎЎЎыEAD FUNCTION ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ UB_READ: ; ; SET COMMAND TO †ю!NNNNNNNNNNNNNNNNЎЎЎю<B@NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IOPB ; JP EX_IOPB ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; UNBLOCKED WRITE FДЭюNNNNNNNNNNNNNNNNЎЎЎю<aONNNNNNNNNNNNNNNNNNNNNNЎЎЎыOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + PB_TRKO),HL ; ; PASS COMMAND TO EXECUTOR ; LD A,PB ю NNNNNNNNNNNNNNNNNЎЎЎю< ‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++ ; ; WRITE A DISK SECTOR FROM SECTOR DEBLOCKING BUFFER FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++E?юњNNNNNNNNNNNNNNNNЎЎЎю<&!·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыET IOPB COMMAND ; LD (IOPB + PB_CMDO),A ; ; DRIVE ; LD A,(CUR_DRV) LD (IOPB + PB_DRVO),A ; ; TRACK ; LD HL,(H•Ђю9NNNNNNNNNNNNNNNNЎЎЎю<,О|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB ;PASS PTR TO IOPB LD HL,DK_DSKX ;PRIMITIVE ENTRY LD A,(DK_PROM) ;FETCH PROM # CALL EXROM ;EXECUTE THE PRIMITIVE PO«”юrNNNNNNNNNNNNNNNNЎЎЎю<Ш¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTO READ? OR A,A CALL NZ,READHST ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (HST_WRT),A ; MATCH: ; ; COPY DAT’Yю$NNNNNNNNNNNNNNNNNЎЎЎю< 7oNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DE IS SOURCE, HL IS DEST ; LDIR ; ; DATA HAS BEEN MOVED TO/FROM HOST BUFFER, IF NOT DIRECTORY THEN DELAY WRITE ; LD A\ю NNNNNNNNNNNNNNNNNЎЎЎю<ќЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREAD ; LD A,PB_READC ; ; COMMON UNBUFFERED R/W ; UB_COMM: LD (IOPB + PB_CMDO),A ; ; SET DRIVE ; LD A,(CUR_DRV) юNNNNNNNNNNNNNNNNЎЎЎю<qqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCTION ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ UB_WRITE: ; ; SET COMMAND TO WRITБ’яОNNNNNNNNNNNNNNNNNЎЎЎю<R~NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы_LOGC LD (IOPB + PB_CMDO),A ; ; EXECUTE THE IOPB ; JP EX_IOPB ;+++++++++++++++++++++++++++++++++++++++++++++++++++ЩюHNNNNNNNNNNNNNNNNNЎЎЎю -> BITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL HAS RE“6яЙNNNNNNNNNNNNNNNNNЎЎЎю<Q NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ERROR THEN ABORT ; OR A,A RET NZ ; ; NO ERROR/DIRECTORY WRITE ; XOR A,A ;BUFFER = CLEAN LD (HST_WRT),A ; CALLъ‰ю NNNNNNNNNNNNNNNNNЎЎЎю<ЅµNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR SECTOR SECTOR ; LD BC,(SEK_SEC) ;MUST TRANSLATE LD DE,(CUR_XLAT) CALL SEC_TRN LD (IOPB + PB_SECO),HL ; ; NO FLAGюўNNNNNNNNNNNNNNNNЎЎЎю<NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ T©юBNNNNNNNNNNNNNNNNЎЎЎю<шШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READHST: ; ; SET PTR TO EXECUTION ROUTINE ; LDђюNNNNNNNNNNNNNNNNNЎЎЎю<#ЮBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD A,PB_WRITC ;SELECT WRITE OP ; ; FALL INTO COMMON DISK I/O ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++wњюNNNNNNNNNNNNNNNNNЎЎЎю<)1‰NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- IOPB ALL SETI\юNNNNNNNNNNNNNNNNNЎЎЎю€‰Ш‰ҐЉs‹AЊЌЮЌ¬ЋzЏHђ‘е‘і’Ѓ“N”•й•·–…—S!™п™Ѕљ‹›Yњ&ќфќВћђџ^ ,ЎщЎЖў”Јa¤/ҐэҐЛ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю=яBNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CALL CI ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRР№юЙNNNNNNNNNNNNNNNNNЎЎЎю=UдNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ SEC_TRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO Tъ¶ю NNNNNNNNNNNNNNNNЎЎЎю= є/NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыC CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUNTBL LD ЦМюњNNNNNNNNNNNNNNNNЎЎЎю=љSNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35$пю№NNNNNNNNNNNNNNNNЎЎЎю=uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBASE OF TABLE LD D,0 ;ADD OFFSET TWICE FOR WORD PTRS ADD HL,DE ADD HL,DE ; LD E,(HL) ;FETCH DPH PTR INC HL LD D,(ѕядNNNNNNNNNNNNNNNNNЎЎЎю=Я>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? ; ;**********************************************************************Л0юNNNNNNNNNNNNNNNNЎЎЎю=%5`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыN ELSE LIST OFF ENDIF SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;***************************************рРюHNNNNNNNNNNNNNNNNNЎЎЎю=+oNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IF NOT0®ю!NNNNNNNNNNNNNNNNЎЎЎю=ЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY THEN RETURN TO CALLER ; CP A,'R' JR Z,DKOPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' JP Z,0 ; ; ELSE Г]ю$NNNNNNNNNNNNNNNNNЎЎЎю=EЪNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0КЂю“NNNNNNNNNNNNNNNNЎЎЎю=п|NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыA,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD H,(HL) UяВNNNNNNNNNNNNNNNNЎЎЎю=ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETVERS: LD HL,VERSN XOR A,A ;RETURN NБ\юNNNNNNNNNNNNNNNNЎЎЎю= ЛNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHL) ; EX DE,HL ;RETURN IN HL ; ; RETURN NO ERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++Є7юNNNNNNNNNNNNNNNNNЎЎЎю= К•NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****** PRHEX: ; ; PROCESS HIGH NIBBLE 1ST ; CALL PRDIG ; ; SWAP HIGH & LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RИюNNNNNNNNNNNNNNNNNЎЎЎю=&`3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************ ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE IF Ih~юNNNNNNNNNNNNNNNNNЎЎЎю=,ЏшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION THEN SET CLl&ятNNNNNNNNNNNNNNNNЎЎЎю=™ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF IGNORE THEN RETURN NO ERROR ; SUB A,'I' RET Z ; ; ELSE RETURN ERROR TO BDOS ; FDSKER: LD HL,0 ;RETURN DPB_PTR = 0юЬюNNNNNNNNNNNNNNNNNЎЎЎю= vлNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RETЖ4юHNNNNNNNNNNNNNNNNNЎЎЎю=ЬMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK ;###Ѕ«юBNNNNNNNNNNNNNNNNЎЎЎю=0хNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR ГlяОNNNNNNNNNNNNNNNNNЎЎЎю=ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- IX= IOPB PTR ; EXIT - A= 0: OK ; ;++++++++++++++++++++++вю'NNNNNNNNNNNNNNNNNЎЎЎю=!щ¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ; ; CONVERT TO ASCII USING DAA TRICK ; AND A,0FH ADD A,90H DAA ADC A,&xяИNNNNNNNNNNNNNNNNNЎЎЎю='SNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;****************************************************»&яИNNNNNNNNNNNNNNNNЎЎЎю=-јЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEM CALL ; P“ю„NNNNNNNNNNNNNNNNЎЎЎю=·NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++ўюњNNNNNNNNNNNNNNNNЎЎЎю= #ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF P_BFUN OR P_ALL LIST ON ELSE LIST OFF ENDIF SUBTTL BIOS FUNCTION CALLS ;+++++++++++++++++++++++++++++6kятNNNNNNNNNNNNNNNNNЎЎЎю=ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################################### ; ; BIOS FUNCTION TABLE ; ;####################### 0юINNNNNNNNNNNNNNNNNЎЎЎю=e¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DRIVER TABLE BASE PTR ; A, C= 0 ; ;+++++++++++++++++++++++§ю“NNNNNNNNNNNNNNNNNЎЎЎю=ЉmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++ EXIOPB: ; ; SET UP FOR CALL ; LD HL,DK_DSKX LD A,(DK_PROM) CAОюNNNNNNNNNNNNNNNNЎЎЎю="¬чNNNNNNNNNNNNNNNNNNNNNNЎЎЎы40H DAA ; ; OUTPUT CHAR TO CONSOLE ; LD C,A CALL COC ; ; RETURN DATA ; POP AF RET ;********************ятNNNNNNNNNNNNNNNNNЎЎЎю=(CdћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD C,A CALL COC POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; и"ю NNNNNNNNNNNNNNNNNЎЎЎю>О8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;---------------------------------------------------------------------------- ILLINT: PUSH AF ;SAVE ALL 8080 REGS PUSH H]ЎюNNNNNNNNNNNNNNNNЎЎЎю> !уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################ IOPB: REPT PB_SIZE LIST OFF DB 0 LIST ON ENDM ;##################################################БfюBNNNNNNNNNNNNNNNNЎЎЎю>ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;############################################################################ HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT)Cею„NNNNNNNNNNNNNNNNЎЎЎю>оDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################# ; ; START ON AN EVEN PAGE BOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABLTю$NNNNNNNNNNNNNNNNNЎЎЎю>DвNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort? (Y/N/I/M) - ' ENDIF IF P_DISK OR P_ALL LIST Ox'ю9NNNNNNNNNNNNNNNNЎЎЎю>%®јNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################## ; ; DPH STRUCTURE ; STRUCT -12 ; ; EXTENDED DPH DATA ; DPHSOFO DS 2 ;SECTOR OFFSET FOR THIсБюHNNNNNNNNNNNNNNNNNЎЎЎю>+ЌіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF OP_SYS = 3 DS 3 ;ADDITIONAL SCRATCH DPHMFO DS 1 ;MEDIA FLAG DPHDPBO DS 2 ;ADDRESS OF DPB DPHCSVO DS 2 ;ADDRESS OF DIRECTO5юNNNNNNNNNNNNNNNNЎЎЎю>1НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF OPTION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXю$NNNNNNNNNNNNNNNNNЎЎЎю>ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL PUSH BC LD HL,ILLIM ;NOTIFY USER OF INT JR IQCONT SUBTTL INITIALIZED DATA IF P_DISK OR P_ALL LIST ON ELSQXюNNNNNNNNNNNNNNNNЎЎЎю>t NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы########################## ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;#################аюњNNNNNNNNNNNNNNNNЎЎЎю>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) pсюBNNNNNNNNNNNNNNNNЎЎЎю>»NNNNNNNNNNNNNNNNNNNNNNЎЎЎы: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT LIST ON ENDM IF P_INT OR P_ALL LIST ON ELSE LIST OFF фзядNNNNNNNNNNNNNNNNNЎЎЎю> QINNNNNNNNNNNNNNNNNNNNNNЎЎЎыN ELSE LIST OFF ENDIF ;############################################################################ ; ; DRIVE DATA кёю!NNNNNNNNNNNNNNNNЎЎЎю>&ыпNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS DRIVE DPHWRTO DS 2 ;ADDRESS OF SECTOR WRITE DRIVER DPHRDO DS 2 ;ADDRESS OF SECTOR READ DRIVER DPHLOGO DS 2 ;ADDRESS OF LOGI·ШяВNNNNNNNNNNNNNNNNЎЎЎю>,$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY CHECKSUMS BUFFER DPHALVO DS 2 ;ADDRESS OF CLUSTER ALLOCATION BIT MAP BUFFER DPHDIRBO DS 2 ;ADDRESS OF DIRECTORY BUFFER DPHLљятNNNNNNNNNNNNNNNNЎЎЎю>ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP BC ;RESTORE REGS 1ST POP HL POP AF JP 0038H ; ; IF OPTION IS MOЗ'яИNNNNNNNNNNNNNNNNNЎЎЎю> н7NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыE LIST OFF ENDIF ;############################################################################ ; ; 3740 SECTOR TRANSLATҐФюHNNNNNNNNNNNNNNNNNЎЎЎю>G‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB ьию9NNNNNNNNNNNNNNNNЎЎЎю>«)NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы(DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK єhюNNNNNNNNNNNNNNNNNЎЎЎю>€&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF ; DW ITRAP ;INT 8 IS USER INTERRUPT LIST ON ;###############################################################'ЕяИNNNNNNNNNNNNNNNNNЎЎЎю>!bxNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSTRUCTURES POINTER TABLE ; ;############################################################################ DRV_PTRS: ; ALL_DPХяИNNNNNNNNNNNNNNNNNЎЎЎю>'ИЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN DRIVER (NOT USED AT THIS TIME) DPHINO DS 2 ;ADDRESS OF INIT DRIVER DPHDRVO DS 1 ;PHYSICAL DRIVE # ASSOCIATED WITH THIS LOGICЎ}юHNNNNNNNNNNNNNNNNЎЎЎю>-'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDTABO DS 2 ;ADDRESS OF DATA BUFFER CONTROL BLOCK DPHHSHO DS 2 ;ADDRESS OF DIRECTORY HASH TABLE BUFFER DPHHBNKO DS 1 ;BANK # OFVRюњNNNNNNNNNNNNNNNNЎЎЎю>›kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNITOR THEN EXECUTE MONITOR TRAP ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP BC POP HL POP AF JP 0F824H ; ; ELSE RESTO*юNNNNNNNNNNNNNNNNNЎЎЎю> ёdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыION TABLE ; **** CP/M SINGLE DENSITY **** ; ;############################################################################ X3НЉюBNNNNNNNNNNNNNNNNNЎЎЎю>TЬNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW -eюBNNNNNNNNNNNNNNNNЎЎЎю>юzNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSIZE (CKS) DW 2 ;TRACK OFFSET (OFF) DB 0 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 0 ;PHYSICAL RECORD MASK (PHM) DB>ью^NNNNNNNNNNNNNNNNNЎЎЎю>±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; ; MESSAGES ; ;############################################################################ MSGLE: DM CR,L[юNNNNNNNNNNNNNNNNЎЎЎю>"7+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHP MACRO #D LIST ON DW D#D(DD)DPH LIST OFF ENDM ; DD DL 1 ; REPT NDRVS ALL_DPHP 0123456789ABCDEF DD DL DD +1 E“ю NNNNNNNNNNNNNNNNNЎЎЎю>(ШаNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыAL DRIVE DPHTYPO DS 1 ;DRIVE TYPE BYTE ; ; REQUIRED (NORMAL) DPH DATA ; DPHXLTO DS 2 ;ADDRESS OF SECTOR TRANSLATION TABLEЗю'NNNNNNNNNNNNNNNNNЎЎЎю>.rFNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DIRECTORY HASH TABLE BUFFER ENDIF ; DPHSIZE EQU -DPHSOFO + $ ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@н$ю“NNNNNNNNNNNNNNNNNЎЎЎю>ЁZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (M2_RSEL),A ; POP BC POP HL POP AF EI ;RE-ENABLE INТoюNNNNNNNNNNNNNNNNNЎЎЎю>‹UNNNNNNNNNNNNNNNNNNNNNNЎЎЎы740: GXLATE 26,6 X3740D: GXLATE 26,6 XCCS: GXLATE 8,3 XCCSD: GXLATE 8,3 ;###############################################№ЇюNNNNNNNNNNNNNNNNNЎЎЎю>gнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL RECORD MASK DB 1 ;SKEW INDEX яЪюNNNNNNNNNNNNNNNNNЎЎЎю>НKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ;SKEW INDEX (NONE) IF P_INT OR P_ALL LIST ON ELSE LIST OFF ENDIF ;#####################################УuюNNNNNNNNNNNNNNNNЎЎЎю>"ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF,'LOAD ERROR' ; DSKEM: DB CR,LF,'Disk Error Status:' DM CR,LF,'CM DR TL TH SL SH FG AL AH AX CL CH ST S1 S2 S3',CR,LF DSKEршюNNNNNNNNNNNNNNNNNЎЎЎю>#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNDM IF P_DISK OR P_ALL LIST ON ELSE LIST OFF ENDIF ;#######################################################ЃSюINNNNNNNNNNNNNNNNNЎЎЎю>)лСNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (0 FOR DEBLOCKING) DS 6 ;SCRATCH IF OP_SYS = 2 DPHDIRBO DS 2 ;ADDRESS OF DIRECTORY BUFFER DPHDPBO DS 2 ;ADDRESS OF DPB aГятNNNNNNNNNNNNNNNNNЎЎЎю>/AwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@пшю„NNNNNNNNNNNNNNNNЎЎЎю>э NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTERRUPTS RET ;---------------------------------------------------------------------------- ; ; UNSUPPORTED INTERRUPT ;#яОNNNNNNNNNNNNNNNNNЎЎЎю>ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################# ; ; COMMON I/O PARAMETER BLOCK ; ;############################################################’юNNNNNNNNNNNNNNNNNNЎЎЎю>2ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; NIятNNNNNNNNNNNNNNNNNЎЎЎю>ЭuNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################### ; ; MODE 2 INTERRUPT VECTOR TABLE ; ;###############################################HюNNNNNNNNNNNNNNNNЎЎЎю>wУNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF IF INTRPTS "ЖюNNNNNNNNNNNNNNNNNЎЎЎю>$ќЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;####################################################YЗюNNNNNNNNNNNNNNNNNЎЎЎю>*ѕ‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DPHCSVO DS 2 ;ADDRESS OF DIRECTORY CHECKSUMS BUFFER DPHALVO DS 2 ;ADDRESS OF CLUSTER ALLOCATION BIT MAP BUFFER ENDIF IЃ|юЙNNNNNNNNNNNNNNNNNЎЎЎю>0R:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPH: MACRO #N,#SOFF,#WD,#RD,#LD,#ID,#PD,#DT,#CKS LIST ON DW #SOFF ;;SECTOR OFFSET DW #WD -ю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNBNNNNюЂМЃљ‚gѓ5„…С…џ†l‡:€‰Ц‰ЈЉq‹>ЊЌЪЌЁЋvЏDђ‘а‘®’{“I”•д•±–—L™и™¶љ„›Rњ ќоќ»ћ‰џW $ЎуЎБўЏЈ\¤*ҐшҐЖ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю>S®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;;WRITE DRVR DW #RD ;;READ DRVR DW #LD ;;LOGIN DRVR DW #ID ;;INIT DRVR DB #PD ;;PHYSICAL DRIVE # DB #DT D#NDPH: „чюINNNNNNNNNNNNNNNNNЎЎЎю>щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALLDPH 0,0,H8_WR,H8_RD,0,0,4,10H,0 ALLDPH 1,80H,H8_WR,H8_RD,0,0,4,10H,0 ALLDPH 2,0,H8_WR,H8_RD,0,0,5,10H,0 ALLDPH 3,80H,H8Э}ю NNNNNNNNNNNNNNNNЎЎЎю> ГNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###################################################### ; ; THE FOLLOWING ITEMS ARE SET BY THE BIOS FUNCTIONS ; SEK_DSK: DSrћю„NNNNNNNNNNNNNNNNЎЎЎю>6їNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACK UNA_SEC: DS 2 ;LAST UNALLOC SECTOR ; ; ER_FLAG: DS 1 ;ERROR REPORTING 0: OK, /0: ERROR RS_FLAG: DS 1 ;0: NO PREREXюятNNNNNNNNNNNNNNNNЎЎЎю>ЩtNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR CUR_XLAT DS 2 ;XLATION TABLE PTR (0: NONE) CUR_SOFF DS 2 ;SECTOR OFFSET FOR DRIVE CUR_DRV DS 1 ;CURRENT PHYSICAL DRIVE # ГЌюNNNNNNNNNNNNNNNNNЎЎЎю>sТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST nхю№NNNNNNNNNNNNNNNNЎЎЎю>%™ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSMO DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TО6юNNNNNNNNNNNNNNNNNЎЎЎю>+єѓNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEED THIS BYTE ; DPBSKWO DS 1 ;SKW- SKEW INDEX ; 0: NONE, 1:3740, 2:DS3740, 3:CCS1K, 4:DSCCS1K ; DPBSZ DS 0 ENDM ; ; Кею!NNNNNNNNNNNNNNNNЎЎЎю>эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0,0,0 ;;SCRATCH AREA DW DIRBF xюHNNNNNNNNNNNNNNNNNЎЎЎю>й6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы_WR,H8_RD,0,0,5,10H,0 ALLDPH 4,0,F8_WR,F8_RD,0,0,0,0,D4CHK ALLDPH 5,0,F8_WR,F8_RD,0,0,1,0,D5CHK ELSE IF BOOT < 30H 2=юNNNNNNNNNNNNNNNNЎЎЎю>CђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 ;LOGICAL DRIVE SEK_TRK: DS 2 ;LOGICAL TRACK NUMBER SEK_SEC: DS 2 ;LOGICAL SECTOR NUMBER ; ; THE FOLLOWING ARE SET CЪюјNNNNNNNNNNNNNNNNЎЎЎю>Ї(NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAD REQ'D, /0: PREREAD REQ'D READ_OP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WR_TYPE: DS 1 ;WRITE OPERATION TYPE FROM BDO€ю„NNNNNNNNNNNNNNNNЎЎЎю>Њ'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; DRIVE ALLOCATION AREAS ; ;#########ІфюЙNNNNNNNNNNNNNNNNNЎЎЎю> fyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON _юњNNNNNNNNNNNNNNNNЎЎЎю>&МЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRMO DS 2 ;DRM- DIRECTORY SIZE -1 DPBAL0O DS 2 ;AL0,1- DIRECTORY ?ИюњNNNNNNNNNNNNNNNNЎЎЎю>,#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@ZRю9NNNNNNNNNNNNNNNNЎЎЎю>5МNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;;DIRECTORY BUFFER PTR DW D#DDPB ;;DRIVE PARAMETER BLK PTR DW #CKS ;;NO CHECKS ON HARD DISK DW D#DALL ;;DRIVE CLUSTER /ю$NNNNNNNNNNNNNNNNNЎЎЎю> ЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;5" FLOPPY BOOT ALLDPH 0,0,F8_WR,F8_RD,0,0,0,0,D0CHK ALLDPH 1,0,F8_WR,F8_RD,0,0,1,0,D1CHK ALLDPH 2,0,H8_WR,H8_RD,0,0,4,10H4›яуNNNNNNNNNNNNNNNNNЎЎЎю>pЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBY THE BUFFER READ/WRITE ; HST_DSK: DS 1 ;BUFFER DISK NUMBER HST_TRK: DS 2 ;BUFFER TRACK NUMBER HST_SEC: DS 2 ;BUFFER SECШkюNNNNNNNNNNNNNNNNЎЎЎю>њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; 2: WRITE TO UNALLOО3яОNNNNNNNNNNNNNNNNNЎЎЎю>їNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################### ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ќ¶юHNNNNNNNNNNNNNNNNNЎЎЎю>!UHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDM ;############################################################################ ; ; RESERVE DRIVE PARAMETER BLOCKS=ю^NNNNNNNNNNNNNNNNNЎЎЎю>'яоNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKSO DS 2 ;CKS- # DIRECTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOF}ю$NNNNNNNNNNNNNNNNЎЎЎю>-%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOГAю9NNNNNNNNNNNNNNNNЎЎЎю>¬[NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; IF BOOT < 10H ;8" FLOPPY BOOT ALLDPH 0,0,F8_WR,F8_RNюNNNNNNNNNNNNNNNNЎЎЎю> ЏTNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,0 ALLDPH 3,80H,H8_WR,H8_RD,0,0,4,10H,0 ALLDPH 4,0,H8_WR,H8_RD,0,0,5,10H,0 ALLDPH 5,80H,H8_WR,H8_RD,0,0,5,10H,0 ENDIF ЄнятNNNNNNNNNNNNNNNNNЎЎЎю>cмNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTOR NUMBER ; ; SEK_HST: DS 2 ;PHYSICAL SECTOR TO XFER ; ; FLAGS ; HST_ACT: DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUF2юNNNNNNNNNNNNNNNNЎЎЎю>ЙJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATED (UNUSED) BLOCK (NO ; PREREAD REQ'D) DMA_ADR: DS 2 ;LAST DMA ADDRESS DMA_BNK DS 1 ;LAST DMA BANK ; HST_BUF: DS 1UїюђNNNNNNNNNNNNNNNNNЎЎЎю>&ЃNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N§юBNNNNNNNNNNNNNNNNЎЎЎю>"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;############################################################################ STRUCT 0 DPBSPTO DS 2 ;SPT- SECTORS/TRACK а№ю NNNNNNNNNNNNNNNNNЎЎЎю>(пРNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыFO DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPBHќюNNNNNNNNNNNNNNNNNЎЎЎю>.EvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789Ўю'NNNNNNNNNNNNNNNNNЎЎЎю>џjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD,0,0,0,0,D0CHK ALLDPH 1,0,F8_WR,F8_RD,0,0,1,0,D1CHK ALLDPH 2,0,H8_WR,H8_RD,0,0,4,10H,0 ALLDPH 3,80H,H8_WR,H8_RD,0,0,4,10Hv~яИNNNNNNNNNNNNNNNNNЎЎЎю>јeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF ENDIF LIST ON ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA A"©юNNNNNNNNNNNNNNNNNЎЎЎю>PЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFER HST_WRT: DS 1 ;0: BUFFER CLEAN, /0: BUFFER DIRTY (MODIFIED) ; ; THE FOLLOWING USED BY THE UNALLOCATED BLOCK ALGORITHЛFю!NNNNNNNNNNNNNNNNЎЎЎю>ъ{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы024 ;HOST BUFFER LOGRQ: DS 1 ;LOG ON REQUEST REG. ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM ; ; CURRENT DRIVE DATA ўЏюBNNNNNNNNNNNNNNNNЎЎЎю>°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS кµюњNNNNNNNNNNNNNNNNЎЎЎю>#3*NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DPBBSHO DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLMO DS 1 ;BLM- B¶ю“NNNNNNNNNNNNNNNNNЎЎЎю>)ЬбNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPSHO DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPBPHMO DS 1 ;PHM- PHYSIC9ядNNNNNNNNNNNNNNNNNЎЎЎю>/vGNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыABCDEF DD DL DD + 1 LIST ON ENDM IF $ >= 0F800H CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF fhюBNNNNNNNNNNNNNNNNЎЎЎю>К9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,0 ALLDPH 4,0,H8_WR,H8_RD,0,0,5,10H,0 ALLDPH 5,80H,H8_WR,H8_RD,0,0,5,10H,0 ELSE IF BOOT < 20H ;8" HARD DISK BOOT лэюNNNNNNNNNNNNNNNNNNЎЎЎю>%тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREA ;############################################################################ ; ; VARIABLES ; ;######################гМюNNNNNNNNNNNNNNNNNNЎЎЎю>ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыMS ; UNA_CNT: DS 1 ;# SECTORS REMAINING IN BLOCK (CLUSTER) UNA_DSK: DS 1 ;LAST UNALLOC DISK UNA_TRK: DS 2 ;LAST UNALLOC T·Љю NNNNNNNNNNNNNNNNNЎЎЎю>кENNNNNNNNNNNNNNNNNNNNNNЎЎЎы; CUR_DPH DS 2 ;DPH PTR CUR_DPB DS 2 ;DPB PTR CUR_BCB DS 2 ;BCB PTR CUR_RD DS 2 ;READ DRIVER PTR CUR_WR DS 2 ;WRITE DRIVER Hю„NNNNNNNNNNNNNNNNЎЎЎю>@гNNNNNNNNNNNNNNNNNNNNNNЎЎЎы127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57kюHNNNNNNNNNNNNNNNNNЎЎЎю>$ЄЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXMO DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, ГSюNNNNNNNNNNNNNNNNNЎЎЎю>*‰ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL UNIQUE DATA. HOPE CP/M 4.X DOES NOT NLюNNNNNNNNNNNNNNNNNЎЎЎю>0e NNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎы END НЁюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNЃСЃџ‚lѓ9„…Х…Ј†q‡@€‰Ы‰ЁЉv‹DЊЌЯЌ®Ћ|ЏIђ‘ж‘ґ’Ѓ“N”•к•·–…—S!™п™Ѕљ‹›Yњ&ќфќГћ’џ` -ЎыЎЙў—Јd¤2Ґ¦О¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю?*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы/**************************************************************************** M5b BIOS Function Call Utility ************_ЂящNNNNNNNNNNNNNNNNNЎЎЎю?ёЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыfdptr, *bytptr, *temp_p, /* Temporary ptr */ *cbptr; /* Ptr to command block array elements */ char *gets(), /* TeШJятNNNNNNNNNNNNNNNNЎЎЎю? WGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы */ BYTE pb_dmax;/* Unused dma extended address */ /* Argument in, Return value out */ WORD pb_bcnt; /* Xfer count */ /* RРю!NNNNNNNNNNNNNNNNЎЎЎю?w;NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы/ WORD fov_fmt; /* Format table ptr */ WORD fov_fsz; /* Format section byte count */ WORD fov_prt; /* Controller port # */»@юNNNNNNNNNNNNNNNNЎЎЎю?рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***********************************************************************/ main () { /* Display signon */ printf(signon); “‘юNNNNNNNNNNNNNNNNNЎЎЎю?2VNNNNNNNNNNNNNNNNNNNNNNЎЎЎы("\n\n\ Command Options:\n\ 0 Display BIOS Version\n\ 1 Display monitor drive number assigned to CP/M drive\n\ 2 DisabДЇюNNNNNNNNNNNNNNNNЎЎЎю?%ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎы break; case '2': /* disable logon */ if ( (cpui.BC = get_drv()) < 0) break; cpui.AF = 2 << 8; bf_exec(~ўяОNNNNNNNNNNNNNNNNNЎЎЎю?+ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы fcb_ptr = srch_fst(); if (fcb_ptr == -1) { printf("\nNo Format Overlays Found... Aborting!"); M—ю9NNNNNNNNNNNNNNNNЎЎЎю?GyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************** Known bugs: ***************************************’UюNNNNNNNNNNNNNNNNNЎЎЎю?ЁІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыll cc that this is a char ptr */ *toupper(), *cptr, /* User command text ptr */ tbuf[80]; /* Input buffer */ WORD ЅНю“NNNNNNNNNNNNNNNNЎЎЎю?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыeturn values */ BYTE pb_sts; /* Command result status */ BYTE pb_st1; /* fdc status if pb_mod == 0x1f */ BYTE pb_st2; /* r’юњNNNNNNNNNNNNNNNNЎЎЎю?о¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы } *fmt_buf, /* Ptr to the structure */ *fov_p; /* Format overlay file data ptrs */ struct { BYTE fil_name[11]; bЬю9NNNNNNNNNNNNNNNNЎЎЎю?НЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы /* Initialize data */ cpui.AF = (MF_GBNK) << 8; /* get current bank # */ farcall( (WORD) MR_FUN, 0, &cpui, &cpui); люNNNNNNNNNNNNNNNNNЎЎЎю? 'эNNNNNNNNNNNNNNNNNNNNNNЎЎЎыle dynamic format selection (LOGON)\n\ 3 Enable dynamic format selection\n\ 4 Set disk format\n\ \n\ ^C Exit to DOS\n\ юNNNNNNNNNNNNNNNNNЎЎЎю?&Ќ[NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы); break; case '3': /* enable logon */ if ( (cpui.BC = get_drv()) < 0) break; cpui.AF = 3 << 8; "юNNNNNNNNNNNNNNNNNNЎЎЎю?,bђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы exit(1); } for (i = 0; i < 64 && fcb_ptr != -1; i++, file_bp += 11) { movmem( (txюyNNNNNNNNNNNNNNNNЎЎЎю?tHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************** Revision History: 0.0 - 10-31-90 grh First cut. Extracted from Format.c v2.01b.ИбяИNNNNNNNNNNNNNNNNNЎЎЎю? ›ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы a, n_ents, /* Number of format track table entries */ *fmt_tblp, /* Format table ptr */ *trk_fmtp, /* Track format data QЙюgNNNNNNNNNNNNNNNNNЎЎЎю?1%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыeturned value #1 */ BYTE pb_st3; /* returned value #2 */ } cmd_blk, liopb; #define pb_fnskb 0x01 /* Inhibit implied seek flЗдю„NNNNNNNNNNNNNNNNЎЎЎю?ЭќNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы/* FCB filename */ char fil_txt[]; /* File text description */ } *fov_file, /* Base ptr to array */ *fov_ptr[64]; /* PojяОNNNNNNNNNNNNNNNNNЎЎЎю?ю’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы this_bnk = cpui.AF >> 8; /* drive = -1; Assume no controller */ cmd_blk.pb_sts = -1; /* Force error if not access_¶юNNNNNNNNNNNNNNNNNNЎЎЎю?!МNNNNNNNNNNNNNNNNNNNNNNЎЎЎы \n\ Enter Command # - "); /**** Fetch command */ gets(tbuf); switch (tbuf[0]) { case '0': /* disж&юђNNNNNNNNNNNNNNNNNЎЎЎю?'ѕjNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы bf_exec(); break; case '4': /* set disk format */ /******* Request drive for overlays */ f_cюђNNNNNNNNNNNNNNNNЎЎЎю?-QЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(BYTE *) fcb_ptr) + 1, file_bp, 11); fov_ptr[i] = file_bp; fcb_ptr = srch_nxt(); } XФюBNNNNNNNNNNNNNNNNЎЎЎю?нЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы */ #define signon "\nM5b BIOS Function Test Utility Vers. 0.0\n" /*************************************************НцяОNNNNNNNNNNNNNNNNNЎЎЎю? ОРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыptr */ fmt_len; /* Length of format table */ int i, d, j, temp, c; unsigned int utemp, cnt; FILE *iс*яВNNNNNNNNNNNNNNNNNЎЎЎю?"hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыag mask */ #define pb_fmtd 0x20 /* Format drive option */ #define pb_inhx 0x40 /* Inhibit data xfer to host flag mask */ #def#юњNNNNNNNNNNNNNNNNЎЎЎю?€ОNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыtrs to each file data */ BYTE *file_bp; /* Ptr into array */ unsigned int max_files; /* max files found */ /* CP/M љю$NNNNNNNNNNNNNNNNNЎЎЎю?gNNNNNNNNNNNNNNNNNNNNNNЎЎЎыed */ /* Allocate heap buffer */ file_bp = fov_file = malloc(7000); /* Allocate Filename buffer */ if (fov_file == 0)IюNNNNNNNNNNNNNNNNЎЎЎю?"AџNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыplay BIOS version */ cpui.AF = 0; if (bf_exec() < 0) break; printf("\nBIOS Version = %d.%2d\n", cpui.HL / 100, cpui.HН9ятNNNNNNNNNNNNNNNNNЎЎЎю?(®TNNNNNNNNNNNNNNNNNNNNNNЎЎЎыb.f_driv = 0; /* assume default */ printf("\n\ Enter drive letter containing format database files {A..P} - "); ю'NNNNNNNNNNNNNNNNNЎЎЎю?.тNNNNNNNNNNNNNNNNNNNNNNЎЎЎы max_files = i; if (i < 63) fov_ptr[i] = -1; for (i = 0; i < max_files; i++ ) { if ( get_,ю“NNNNNNNNNNNNNNNNNЎЎЎю?ЮоNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы***************************/ #include stdio.h #include ctype.h #include io.h #include farcall.h #include b:m5zf200.h г™яИNNNNNNNNNNNNNNNNNЎЎЎю?эбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnfile, *fopen(); /* IOPB definitions */ struct cb { /* Arguments */ BYTE pb_cmd; /* command */ BYTE pb_drv; /* d…ДюNNNNNNNNNNNNNNNNNЎЎЎю?YNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыine pb_fnrb 0x80 /* Inhibit retries flag mask */ /* Format overlay header data */ struct { WORD fov_txt; /* Text ptrnюњNNNNNNNNNNNNNNNNЎЎЎю?»яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFile Control Block */ struct fcb *srch_fst(), *srch_nxt(), f_cb, *fcb_ptr; /* farcall registers */ struct regs љяВNNNNNNNNNNNNNNNNЎЎЎю?T4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы { puts("\nInsufficient Memory...Aborting!"); exit(1); } (BYTE *) fmt_buf = ((BYTE *) fov_file) + 5976)ќюNNNNNNNNNNNNNNNNNNЎЎЎю?#r®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL % 100); break; case '1': /* display monitor drive # */ if ( (cpui.BC = get_drv()) < 0) break; c(\ю“NNNNNNNNNNNNNNNNNЎЎЎю?)ќeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы gets(tbuf); if ( *tbuf != '\0') f_cb.f_driv = ( toupper( *tbuf) - 'A' + 1); /******* Read directory */ D„ю NNNNNNNNNNNNNNNNNЎЎЎю?/7ГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыfov( &f_cb, fov_ptr[i] ) != 0) { printf("\nOverlay read error... aborting!"); exit(1); } /********¬°ю„NNNNNNNNNNNNNNNNЎЎЎю?‹ЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BYTE this_bnk, /* Location of our memory bank */ fbuf[1024], /* Format data buffer */ sbuf[1024], /* Sector buffer */ *€Ґю'NNNNNNNNNNNNNNNNNЎЎЎю?dvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыrive */ WORD pb_trk; /* track */ WORD pb_sec; /* sector */ BYTE pb_flags; /* flags */ WORD pb_dma; /* Unused dma addressЦюNNNNNNNNNNNNNNNNNNЎЎЎю?D NNNNNNNNNNNNNNNNNNNNNNЎЎЎы */ WORD fov_tsz; /* Byte count of text */ WORD fov_idp; /* ID Sector image ptr */ WORD fov_ids; /* ID Sector byte count *uRюNNNNNNNNNNNNNNNNNЎЎЎю?«БNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы cpui, cpuo; /**************************************************************************** main program *****љйюrNNNNNNNNNNNNNNNNЎЎЎю?gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; /* Allocate format overlay buffer */ /* Top of command loop */ while (TRUE) { /**** Display Options */ printfяИNNNNNNNNNNNNNNNNNЎЎЎю?$л9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыpui.AF = 1 << 8; if (bf_exec() < 0 ) break; printf("\nMonitor Drive for this CP/M drive = %u\n", cpui.AF >> 8); o†юNNNNNNNNNNNNNNNNNЎЎЎю?*И6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы for (i = 0, cptr = &f_cb.f_name[0]; i < 8; i++) *cptr++ = '?'; *cptr++ = 'F'; *cptr++ = 'O'; *cptr = 'V'; дMюNNNNNNNNNNNNNNNNNЎЎЎю?0$ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы** Insert text */ cnt = fmt_buf -> fov_tsz; file_bp = ((BYTE *) fov_ptr[i]) + 11; movmem(†XюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNюЂМЃ™‚fѓ3„…О…њ†i‡7€‰С‰џЉm‹:ЊЌХЌ¤ЋrЏ@ђ‘Ь‘Є’x“F”•б•®–}—K™з™µљѓ›Qњќмќ№ћ‡џV $ЎтЎАўЋЈ[¤)ҐчҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю?%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы file_bp, &file_bp[cnt], 5975 - cnt - (file_bp - ((BYTE *) fov_file) ) ); bytptr = fmt_buf; mo†юNNNNNNNNNNNNNNNNNЎЎЎю?ЏјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSet changed flag */ } } } /******* Display formats */ for (i = j = 0; i < max_filH7ю NNNNNNNNNNNNNNNNЎЎЎю? `wNNNNNNNNNNNNNNNNNNNNNNЎЎЎыif (*cptr == '\0') putchar(' '); else putchar(*cptr); } printf(" - %s", &fov_ptr[i] -> fil_txЎью„NNNNNNNNNNNNNNNNЎЎЎю?@NNNNNNNNNNNNNNNNNNNNNNЎЎЎыfunction arguments */ cpui.BC = get_drv(); /* drive # */ cpui.DE = this_bnk; cpui.HL = &sbuf; /* ID sectВYюrNNNNNNNNNNNNNNNNЎЎЎю?ЇАNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************/ int get_fov(f_cb, fnp) struct fcb *f_cb; BYTE *fnp; { int i, rv; BYTE *bp; /* InsertpoюдNNNNNNNNNNNNNNNNNЎЎЎю?fNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***********************************/ get_drv() { /* Stay in loop until valid data given */ while (TRUE) { /**** RequeљfюNNNNNNNNNNNNNNNNЎЎЎю?%п8NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*****************************************************/ dmp_fcb(f_cb) struct fcb *f_cb; { int i; char *cp; printf(ЛРюNNNNNNNNNNNNNNNNNNЎЎЎю?+М7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыffer ptr to directory segment */ bdos( SETDMA, Wrkbuf); /* Search the directory */ r = bdos( SRCHFL, &f_cb); reAВюњNNNNNNNNNNNNNNNNЎЎЎю?pINNNNNNNNNNNNNNNNNNNNN!рЎЎЎыvmem( &bytptr[fmt_buf -> fov_txt], file_bp, cnt); /********** Adjust ptrs */ for (j = i + 1; j < max_files; j++)ЙJюђNNNNNNNNNNNNNNNNNЎЎЎю?џ‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыes; i++, j++) { if (j == 0) printf("\n\033E\ -------------------------- Format Directory -----------------------твюNNNNNNNNNNNNNNNNЎЎЎю?5$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыt ); } printf("\nEnter selection - "); gets(tbuf); temp = atoi(tbuf); /******* GotcTюBNNNNNNNNNNNNNNNNЎЎЎю?ЩњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыor buffer */ cpui.AF = 4 << 8; printf("\nID at %04x", &sbuf); temp = bf_exec(); if (temp != 0 && temp > IЎюrNNNNNNNNNNNNNNNNЎЎЎю?ъ“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы file name */ movmem(fnp, f_cb -> f_name, 11); /* Init fcb */ f_cb->f_ext = f_cb->f_resv[0] = f_cb->f_resv[1] = f_cb->f9}юINNNNNNNNNNNNNNNNNЎЎЎю? НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыst drive data */ printf("\nEnter CP/M Drive {A..P} (X: abort) - "); gets(tbuf); tbuf[0] = toupper(tbuf[0]);[љюNNNNNNNNNNNNNNNNЎЎЎю?&єkNNNNNNNNNNNNNNNNNNNNNNЎЎЎы"\n%2x ", f_cb -> f_driv ); for (i = 0, cp = &f_cb -> f_name; i < 8; i++, cp++ ) { if (*cp == '\0') putchar(' '); Щ›юњNNNNNNNNNNNNNNNNЎЎЎю?,U NNNNNNNNNNNNNNNNNNNNNNюЂЎЎЎыturn (r < 4) ? (Wrkbuf + (r << 5 )) : -1; } /**************************************************************************Hцю9NNNNNNNNNNNNNNNNЎЎЎю?CxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы { fov_ptr[j] = ((BYTE *) fov_ptr[j]) + cnt; } } /******* Sort the files */ for (d =ЉEяИNNNNNNNNNNNNNNNNNЎЎЎю? ¬іNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-----"); if (j == 20) { printf("\n\n\ Space for additional, '-' to back up, # to select - "); 4kяИNNNNNNNNNNNNNNNNNЎЎЎю?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы selection, read format overlay */ if (get_fov(&f_cb, fov_ptr[temp - 1 ]) != 0) { printf("Cannot read overlay...[ЎятNNNNNNNNNNNNNNNNЎЎЎю?кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0) printf("\nError - %x", temp); break; /******* Unrecognized command */ default: printf("ComтYяОNNNNNNNNNNNNNNNNNЎЎЎю?ЙўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы_rc = f_cb->f_cr = 0; /* Open the fcb */ rv = bdos(OPNFIL, f_cb); if (rv == 0xff) return rv; /* Read the file */ €–юHNNNNNNNNNNNNNNNNNЎЎЎю?!#ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы /**** If abort requested then return -1 */ if (tbuf[0] == 'X') return -1; /**** Else if valid drive letter then dюgNNNNNNNNNNNNNNNNNЎЎЎю?'‰ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы else putchar(*cp); } putchar('.'); for ( ; i < 11; i++, cp++ ) { if (*cp == '\0') putchar(' '); прюNNNNNNNNNNNNNNNNЎЎЎю?-f‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы** Search for next directory match Assumes f_cb has proper search name Returns ptr to directory fcb data (-1 = not found@†юNNNNNNNNNNNNNNNNЎЎЎю?ЪпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRUE; d == TRUE; ) { d = FALSE; /* Assume sorted */ for (i = 0; i < (max_files - 1); i++) { Г5ю!NNNNNNNNNNNNNNNNЎЎЎю? щаNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы c = getchar(); if (c == '-') { j -= 20; i -= 20; } else if (c == ' ')iЭяВNNNNNNNNNNNNNNNNNЎЎЎю?XNNNNNNNNNNNNNNNNNNNNNNЎЎЎыaborting!"); exit(1); } /******* Transfer ID sector data to sector buffer */ setmem(&sbuf, 1024, 0); fdptr ECюNNNNNNNNNNNNNNNNЎЎЎю?їюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыmand Not Implemented! Try again."); break; } } /* Done. */ exit(0); } /************ю'NNNNNNNNNNNNNNNNNЎЎЎю?P5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы for (bp = fmt_buf, rv = 0, i = 1024; i > 0 && rv == 0; i -= 128, bp += 128 ) { bdos( SETDMA, bp); rv = bdosыаяВNNNNNNNNNNNNNNNNЎЎЎю?"vЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыreturn it's numeric value */ if (tbuf[0] >= 'A' && tbuf[0] <= 'P') return tbuf[0] - 'A'; /**** Else display error meжАятNNNNNNNNNNNNNNNNNЎЎЎю?(™dNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы else putchar(*cp); } } /**************************************************************************** §щяИNNNNNNNNNNNNNNNNNЎЎЎю?.3ВNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) ****************************************************************************/ struct fcb *srch_nxt() { int r; /* ц_ю$NNNNNNNNNNNNNNNNNЎЎЎю?йЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыtemp = strncmp( fov_ptr[i], fov_ptr[i+1], 8); /* Test for sort */ if (temp > 0) { /* If larger first then swap */ Ѕю^NNNNNNNNNNNNNNNNNЎЎЎю?КСNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы { j = 0; } else { ungetc( c, "stdin"); break; } }DkюNNNNNNNNNNNNNNNNNЎЎЎю?&iNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= fmt_buf; cnt = fmt_buf -> fov_idp; if ((fmt_buf -> fov_ids) > 1024) { printf("\nFormat ID sector data size error:( Ою fil_name; d < 8; d++, cptr++) { юNNNNNNNNNNNNNNNNNЎЎЎю?s:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы%d)! Aborting!", fmt_buf -> fov_ids); break; } movmem(&fdptr[cnt], sbuf, fmt_buf -> fov_ids); /******* Set •Aю NNNNNNNNNNNNNNNNNЎЎЎю?њсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыo use arg2= ptr to filename from directory Returns 0: ok, /0: error ****************************************************ZЌю„NNNNNNNNNNNNNNNNЎЎЎю?6WNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы Get the CP/M drive from user exit - -1: abort 0..15: drive number = A..P *****************************************М юHNNNNNNNNNNNNNNNNNЎЎЎю?$Ь NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* Dump the fcb file data Assumes f_cb has proper name ***********************—™юNNNNNNNNNNNNNNNNNЎЎЎю?*яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************************/ struct fcb *srch_fst() { int r; /* Set bu9юNNNNNNNNNNNNNNNNNЎЎЎю?0ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы return (r < 4) ? (Wrkbuf + (r << 5 )) : -1; } /********************************************************************sЄю“NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNpNNNNNNNNЃТЃ ‚nѓ<„ …Ч…Ґ†s‡A€‰Э‰ЄЉx‹EЊЌбЌЇЋ}ЏLђ‘и‘¶’„“Q”•о•ј–Љ—W%™у™Вљђ›_њ-ќыќЙћ—џe 3ЎўРўћЈk¤:Ґ¦Ц¦ѕNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю@„±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******** Execute the BIOS function exit - TRUE: abort FALSE: no error any_other: error **************************ЖЙюNNNNNNNNNNNNNNNNNЎЎЎю@.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы***/ dmp_cdb() { cpui.AF = (MF_DIOB) << 8; cpui.DE = this_bnk; cpui.HL = &cmd_blk; farcall( (WORDШ4юNNNNNNNNNNNNNNNNЎЎЎю@ БЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCI ;CONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE Jf|юЫNNNNNNNNNNNNNNNNNЎЎЎю@б NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTCPTS Ѓeю9NNNNNNNNNNNNNNNNЎЎЎю@kNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPM READ ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKRDN ; ; READS DON'T NEED ALLOCATION ; XOR A,A ю NNNNNNNNNNNNNNNNNЎЎЎю@¤НNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************** ; DISKWR: ; ; REMOVE BOOT WRITE PROTECTION ; XOR A,A LD (WR_PROT),A кю„NNNNNNNNNNNNNNNNЎЎЎю@%N“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,(CPM_TRK) LD (UNA_TRK),HL ; ; SET SECTOR TO SEEK ; LD HL,(CPM_SEC) LD (UNA_SEC),HL ; ; IF NO UNALLOCATEDґРюђNNNNNNNNNNNNNNNNNЎЎЎю@+mњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD D,(IY + DPB_SPT +1) SBC HL,DE JP C,NOOVF ; LD HL,0 ;SECTOR = 1 LD (UNA_SEC),HL ; LD HL,(UNA_TRK) ;TRACK++ INCюNNNNNNNNNNNNNNNNЎЎЎю@СвNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************************/ int bf_exec() { int i; /* Execute the command */ farcall( (WORD)ЙДюNNNNNNNNNNNNNNNNNЎЎЎю@>)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы) MR_FUN, this_bnk, &cpui, &cpui); } пЕюNNNNNNNNNNNNNNNNЎЎЎю@”ЏNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыP SELDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;оjюNNNNNNNNNNNNNNNNNNЎЎЎю@x7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODoюrNNNNNNNNNNNNNNNNЎЎЎю@[8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD (UNA_CNT),A ; ; READ_OPERATION_FLAG = TRUE (1) ; INC A LD (READOP),A ; ; PRE-READ_OF_DATA_FLAG = TRUE ; LD §{юЙNNNNNNNNNNNNNNNNNЎЎЎю@ ±fNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; ; SET PTRS TO DISK DATA ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE CPM WDCюњNNNNNNNNNNNNNNNNЎЎЎю@&АNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы SECTORS REMAIN THEN PREREAD ; CHKUNA: LD A,(UNA_CNT) OR A,A JP Z,ALLOC ; ; ELSE MORE UNALLOCATED RECORDS REMAIN, COUN›ЃюNNNNNNNNNNNNNNNNNЎЎЎю@,фNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL LD (UNA_TRK),HL ; NOOVF: ; ; MATCH FOUND, MARK AS UNNECESSARY READ ; XOR A,A ;PREREAD FLAG = FALSE LD (RSFLAG)Д-ю‚NNNNNNNNNNNNNNNNЎЎЎю@вУNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы 0x0028, this_bnk, &cpui, &cpui); /* if error then display it */ switch (cpui.AF >> 8) { case 255: printfШРю^NNNNNNNNNNNNNNNNNЎЎЎю@ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0) + '0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' Djэю$NNNNNNNNNNNNNNNNNЎЎЎю@§ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPERFORM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC хюdNNNNNNNNNNNNNNNNNNЎЎЎю@KNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE ; LD HL,INTCPT LD (BDOS + 7),HL ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTa€юHNNNNNNNNNNNNNNNNNЎЎЎю@h NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(RSFLAG),A ; ; TREAT AS UNALLOCATED BLOCK ; LD A,WRUAL LD (WRTYPE),A ; JP RWOPER ;TO PERFORM THE READ ; ; ; NO@@юHNNNNNNNNNNNNNNNNNЎЎЎю@!‚WNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRITE ; LD A,(IY + DPB_PSH) ;0= 128-BYTE SECTORS OR A,A JP Z,DISKWRN ; ; READ_OP_FLAG = FALSE ; XOR A,A LD (READO НюNNNNNNNNNNNNNNNNNЎЎЎю@'(сNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT-- ; DEC A LD (UNA_CNT),A ; ; IF REQUESTED SECTOR != UNALLOCATED SECTOR THEN PURGE ; LD A,(CPM_DSK) ;SAME DISK? LfюHNNNNNNNNNNNNNNNNЎЎЎю@-З:NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,A JP RWOPER ; ; ; NORMAL NON-BLOCKED WRITE ; DISKWRN: CALL CPM_WR JP RW_RET ; ; ; NOT AN UNALLOCATED RECORD, Uю9NNNNNNNNNNNNNNNNЎЎЎю@{DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы("Illegal Function!"); return -1; case 254: printf("Argument Out of Range Error!"); return -2; fЁю!NNNNNNNNNNNNNNNNЎЎЎю@ XKNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыB '.' DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;-----------------------------К„ятNNNNNNNNNNNNNNNNNNЎЎЎю@ґуNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;EXECUTE FUNCTION CALL ;############################################################################ ; ; THESE BOOT PARA =юINNNNNNNNNNNNNNNNNЎЎЎю@UNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK jяяОNNNNNNNNNNNNNNNNNЎЎЎю@сћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRMAL NON-BLOCKED READ ; DISKRDN: CALL CPM_RD JP RW_RET ;*************************************************************rЇюNNNNNNNNNNNNNNNNЎЎЎю@"ЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP),A ; ; SAVE WRITE TYPE ; LD A,C LD (WRTYPE),A ; ; IF 1ST WRITE TO UNALLOCATED (NEW, UNUSED) BLOCK THEN SET PARAMEюNNNNNNNNNNNNNNNNNЎЎЎю@(8ПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,UNA_DSK CP A,(HL) JR NZ,ALLOC ; LD HL,(UNA_TRK) ;SAME TRACK? LD DE,(CPM_TRK) SBC HL,DE JR NZ,ALLOC ; LD HL,zЕюNNNNNNNNNNNNNNNNNЎЎЎю@.’iNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREQUIRES PRE-READ ; ALLOC: XOR A,A ;COUNT = 0 LD (UNA_CNT),A ; INC A ;PREREAD FLAG = TRUE LD (RSFLAG),A ; ; ; ;Бю“NNNNNNNNNNNNNNNNNЎЎЎю@HuNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы default: return cpui.AF >> 8; break; } } /**************************************************ґSюNNNNNNNNNNNNNNNNNЎЎЎю@kzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы----------------------------------------------- ; ; BIOS JUMP VECTOR TABLE ; ;--------------------------------------------кЭяИNNNNNNNNNNNNNNNNNNЎЎЎю@‡ВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALLBюїNNNNNNNNNNNNNNNNNЎЎЎю@-dNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKR:юBNNNNNNNNNNNNNNNNЎЎЎю@ВЇNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*************** ; ; WRITE DISK SECTOR FUNCTION ; ENTRY- C= WRITE TYPE: ; 0: WRITE TO ALLOCATED BLOCK (UPDATE) ; 1: WRITШ^юNNNNNNNNNNNNNNNNNNЎЎЎю@#д5NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTERS ; CP A,WRUAL JP NZ,CHKUNA ; ; COUNT = NUMBER_OF_SECTORS_IN_BLOCK ; LD A,(IY + DPB_BLM) ;CUR_DPB.DPBBLM + 1 ::= ©RюNNNNNNNNNNNNNNNNNЎЎЎю@)юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(CPM_SEC) LD DE,(UNA_SEC) SBC HL,DE JR NZ,ALLOC ; ; MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF ; EX DE,HL ;UNASEC +џюNNNNNNNNNNNNNNNNNЎЎЎю@/ЎXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы COMMON CODE FOR READ AND WRITE FOLLOWS ; RWOPER: ; ; ASSUME NO ERRORS ; XOR A,A LD (IOPB + PB_STATO),A ; ; COMИюyNNNNNNNNNNNNNNNNЎЎЎю@&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************** Dump command block *************************************************************************‡hюNNNNNNNNNNNNNNNNNNЎЎЎю@тнNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------------------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP >еяОNNNNNNNNNNNNNNNNNNЎЎЎю@Т‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BI?ЊюNNNNNNNNNNNNNNNNNЎЎЎю@=ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD: ; ; SET UP DATA TABLE PTRS ; PUSH IX LD IX,(CUR_DDT) ; PUSH IY LD IY,(CUR_DPB) ; ; IF NOT BLOCKED THEN USE эtюBNNNNNNNNNNNNNNNNЎЎЎю@—ьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO DIRECTORY BLOCK (ALLWAYS WRITE) ; 2: WRITE TO UNALLOCATED BLOCK (NO NEED TO PRE-READ) ; ;*****************************u{ю“NNNNNNNNNNNNNNNNNЎЎЎю@$}ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(BLKSIZ/128) INC A LD (UNA_CNT),A ; ; SET DISK TO SEEK ; LD A,(CPM_DSK) LD (UNA_DSK),A ; ; SET TRACK TO SEEK ;‘юHNNNNNNNNNNNNNNNNNЎЎЎю@*^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы= 1 INC HL LD (UNA_SEC),HL ; ; IF PAST LAST SECTOR ON TRACK THEN USE 1ST SECTOR OF NEXT TRACK ; LD E,(IY + DPB_SPT) эґю$NNNNNNNNNNNNNNNNNЎЎЎю@0ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPUTE BUFFER SECTOR ; LD HL,(CPM_SEC) DEC HL ;CONVERT PHYSICAL SECTOR TO LOGICAL ; LD A,(IY + DPB_PSH) ;USE PHYSICAL SHЦ%юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNюЂМЃ™‚fѓ4„…П…ќ†j‡8€‰Т‰џЉm‹:ЊЌФЌўЋpЏ>ђ‘Ъ‘Ё’v“D”•Я•¬–z—G™г™ІљЂ›Nњќйќ¶ћ„џR ЎнЎ»ў‰ЈV¤$ҐтҐА¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎю@іЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIFT FACTOR (CP/M 3.X) AND A,3 ;LIMIT TO 1024 BYTE SECTORS JP Z,NOSECSHF ;IF ALREADY 0 THEN SECTOR SIZE IS 128 ; SECSHFLqФюdNNNNNNNNNNNNNNNNNЎЎЎю@'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыMATCH ; NOMATCH: ; ; IF BUFFER == DIRTY THEN WRITE IT OUT BEFORE READING NEW ONE ; CALL BUF_FLSH ;CLEAR HOST BUFF ; Ою NNNNNNNNNNNNNNNNЎЎЎю@ цмNNNNNNNNNNNNNNNNNNNNNNЎЎЎыITS <14..8> LD H,A ; LD A,0 ;BIT 0 -> BIT 7 RRA LD L,A ; ; HL HAS RELATIVE HOST BUFFER ADDRESS ; LD DE,BLKBUF †ѕюNNNNNNNNNNNNNNNNЎЎЎю@ЦђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRN ANY ERRORS ANYWAY JR NZ,RW_RET ; ; IF ERROR THEN ABORT ; OR A,A JR NZ,RW_RET ; ; NO ERROR/DIRECTORY WRITE ; ;±ю9NNNNNNNNNNNNNNNNЎЎЎю@9[NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; CPM_WR: ; LD HL,LL_WRIT JP CPM_RW ;**********************************************dЙюNNNNNNNNNNNNNNNNNЎЎЎю@“эNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; ; CPM_RD PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA. ; ENTRY- (CPM_DSK)= DISK # TO REA%яВNNNNNNNNNNNNNNNNЎЎЎю@%yЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** ; RD_WR: LD DE,IOPB + PB_TRKO LD BC,PB_BCNTO - PB_TRK[ю'NNNNNNNNNNNNNNNNNЎЎЎю@+Z¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(BUF_DDT) LD IY,(BUF_DPB) ; ; WRITE THE BUFFER DATA ; CALL BUF_WR ; ; RESTORE THE PTRS ; POP IY POP IX ; ; егюNNNNNNNNNNNNNNNNЎЎЎю@жТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP: SRL H ;ELSE SHIFT OVER TO PHYSICAL SECTOR RR L DEC A JP NZ,SECSHFLP ; NOSECSHF: INC HL ;SET BACK TO PHYSICAL ShгюHNNNNNNNNNNNNNNNNNЎЎЎю@ NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыJR NZ,RW_RET ;IF ERROR THEN ABORT ; FILHST: ; ; READ THE SECTOR BUFFER ; LD A,(CPM_DSK) ;BUFFER SECTOR = PHYSICAL SECTOи)юNNNNNNNNNNNNNNNNЎЎЎю@ЈїNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ADD HL,DE ;HL = HOST ADDRESS ; LD DE,(CPM_DMA) ;GET/PUT CP/M DATA LD BC,128 ;LENGTH OF MOVE ; LD A,(READOP) ;WHICH WA вю„NNNNNNNNNNNNNNNNЎЎЎю@ONNNNNNNNNNNNNNNNNNNNN!юЎЎЎы XOR A,A ;BUFFER = CLEAN LD (BUF_MOD),A ; CALL BUF_WR ;WRITE TO DISK ; LD A,(IOPB + PB_STATO) ;RETURN ANY ERRORS ; юNNNNNNNNNNNNNNNNЎЎЎю@lNNNNNNNNNNNNNNNNNNNNN!цЎЎЎы****************************** ; ; CPM_RD2 PERFORMS THE PHYSICAL READ FROM THE DISK INTO CPM_DMA, ; WITHOUT BLOCKING. ; ENTR9ю$NNNNNNNNNNNNNNNNNЎЎЎю@ †VNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыD FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER ADDRESS ; IX= DDT PTR ; Fзю!NNNNNNNNNNNNNNNNЎЎЎю@&,рNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO LDIR ; ; EXECUTE LOW LEVEL READ OR WRITE (ON STACK) ; RET ;*****************************************************Q ю!NNNNNNNNNNNNNNNNЎЎЎю@,Г;NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IF ERROR THEN RETURN IT ; OR A,A RET NZ ; ; ELSE CLEAN BUFFER ; LD (BUF_MOD),A RET ;************************•тюNNNNNNNNNNNNNNNNЎЎЎю@ХгNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыECTOR LD (BUF_PSEC),HL ;BUFFER PHYSICAL SECTOR TO ACCESS ; ; IF BUFFER == EMPTY THEN READ THE PHYSICAL SECTOR ; LD HL,BL†юNNNNNNNNNNNNNNNNNЎЎЎю@ :(NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR LD (BUF_DSK),A ; LD HL,(CPM_TRK) LD (BUF_TRK),HL ; LD HL,(BUF_PSEC) LD (BUF_SEC),HL ; ; IF REQUIRED TO READ TH—ю$NNNNNNNNNNNNNNNNNЎЎЎю@ђЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY? OR A,A JP NZ,RWMOVE ;SKIP IF READ ; ; WRITE OPERATION, MARK AND SWITCH DIRECTION ; LD A,1 ;BUFFER = DIRTY LD (B=>юNNNNNNNNNNNNNNNNЎЎЎю@|6NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; DONE, RESTORE & RETURN ; RW_RET: OR A,A ;SET RESULT STATUS FLAG POP IY POP IX ; RET ;************************–юNNNNNNNNNNNNNNNNNЎЎЎю@_9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY- (CPM_DSK)= DISK # TO READ FROM ; (CPM_TRK)= TRACK # TO READ FROM ; (CPM_SEC)= SECTOR # TO READ FROM ; (CPM_DMA)= XFER AЎ‰юNNNNNNNNNNNNNNNNNЎЎЎю@!µgNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;*******************************************************************/юNNNNNNNNNNNNNNNNNЎЎЎю@'БNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************** ; ; BUF_FLSH FLUSHES THE BUFFER DATA IF MODIFIED ; ENTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)©ЂюNNNNNNNNNNNNNNNNЎЎЎю@-р NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************** ; ; BUF_WR PERFORMS THE PHYSICAL WRITE FROM BLKBUF TO THE HOST DISK. ; E'ЁюNNNNNNNNNNNNNNNNЎЎЎю@LtNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыUF_ACT LD A,(HL) ; LD (HL),1 ;BUFFER = ACTIVE IN ANY CASE ; OR A,A JR Z,FILHST ; ; HOST BUFFER ACTIVE, SAME AS SEєЃюNNNNNNNNNNNNNNNNЎЎЎю@ o{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEN READ ; LD A,(RSFLAG) ;NEED TO READ? OR A,A CALL NZ,BUF_RD ;YES, IF 1 ; ; BUFFER = CLEAN ; XOR A,A LD (BUF_M)Xю9NNNNNNNNNNNNNNNNNЎЎЎю@ѓГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUF_MOD),A ; ; SAVE BUFFER DATA PTRS FOR LATER FLUSHES ; LD (BUF_DDT),IX LD (BUF_DPB),IY ; EX DE,HL ;SOURCE/DEST SWAt*юNNNNNNNNNNNNNNNNЎЎЎю@)eNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************************** ; ; CPM_WR PERFORMS THE PHYSICAL WRITE FROM CPM_DMA TO THE DISK. ; ENTRY?WюNNNNNNNNNNNNNNNNNNЎЎЎю@Ж®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDDRESS ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;************************************************************************PСюBNNNNNNNNNNNNNNNNЎЎЎю@"а4NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********* ; CPM_RD: ; LD HL,LL_READ ; ; COMMON CODE ; CPM_RW: PUSH HL LD HL,CPM_TRK ; ; FALL INTO COMMON XFER Cvю„NNNNNNNNNNNNNNNNNЎЎЎю@(яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= TRACK # TO WRITE TO ; (BUF_PSEC)= SECTOR # TO WRITE TO ; (BUF_DDT)= DDT PTR ; (BUF_DPB)= DPB PTR ; EXIT - (IOPB.PB_STATЄ«ю^NNNNNNNNNNNNNNNNNЎЎЎю@.ҐYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTRY- (BUF_DSK)= DISK # TO WRITE TO ; (BUF_TRK)= TRACK # TO WRITE TO ; (BUF_SEC)= SECTOR # TO WRITE TO ; IX= DDT PTR ; I±MяИNNNNNNNNNNNNNNNNNЎЎЎю@ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыEK BUFFER? ; LD A,(CPM_DSK) LD HL,BUF_DSK ;SAME DISK? CP A,(HL) JR NZ,NOMATCH ; LD HL,(BUF_TRK) ;SAME TRACK? LD DEвшяИNNNNNNNNNNNNNNNNNЎЎЎю@\JNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыOD),A ; MATCH: ; ; COPY DATA TO OR FROM BUFFER ; LD HL,(CPM_SEC) ;CALCULATE INDEX INTO BUFFER DEC HL ;CONVERT TO LOGЈ!юдNNNNNNNNNNNNNNNNNЎЎЎю@°тNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP ; RWMOVE: ; ; BC INITIALLY 128, DE IS SOURCE, HL IS DEST ; LDIR ; ; DATA HAS BEEN MOVED TO/FROM HOST BUFFER, IF N ¬яьNNNNNNNNNNNNNNNNЎЎЎю@TNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы- (CPM_DSK)= DISK # TO WRITE TO ; (CPM_TRK)= TRACK # TO WRITE TO ; (CPM_SEC)= SECTOR # TO WRITE TO ; (CPM_DMA)= XFER ADDRE€eюNNNNNNNNNNNNNNNNЎЎЎю@хџNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**** ; CPM_RD2: ; ; SET UP PTRS ; PUSH IX PUSH IY LD IX,(CUR_DDT) LD IY,(CUR_DPB) ; ; EXECUTE READ SECTOR ; :ююyNNNNNNNNNNNNNNNNЎЎЎю@#УNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE ; ;**************************************************************************** ; ; SET UP IOPB FOR EXECUTION ; ENT¬ю·NNNNNNNNNNNNNNNNNЎЎЎю@)<ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO)= 0: OK, /0: ERROR ; ;**************************************************************************** ; BUF_FLSH: ; ; IF Д$юЙNNNNNNNNNNNNNNNNNЎЎЎю@/–hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;********************************************************************°юBNNNNNNNNNNNNNNNNЎЎЎю@*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,(CPM_TRK) SBC HL,DE JR NZ,NOMATCH ; LD DE,(BUF_PSEC) ;SAME SECTOR? LD HL,(BUF_SEC) SBC HL,DE JR Z,MATCH ;SKIP IF `eюNNNNNNNNNNNNNNNNNЎЎЎю@ЕЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎыICAL SECTOR (0..N-1) LD A,L ; AND A,(IY + DPB_PHM) ;USE PHYSICAL RECORD MASK DATA (CP/M 3.X) ; RRA ;BITS <7..1> -> BђБюђNNNNNNNNNNNNNNNNNЎЎЎю@еЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT DIRECTORY THEN DELAY WRITE ; LD A,(WRTYPE) ;IF NOT DIRECTORY THEN DELAY WRITE CP A,WRDIR LD A,(IOPB + PB_STATO) ;RETU 1ю NNNNNNNNNNNNNNNNNЎЎЎю@ jNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSS ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK, /0: ERROR ; ;********************************************&hюBNNNNNNNNNNNNNNNNЎЎЎю@ МNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL CPM_RD ; ; RESTORE PTRS & RETURN ; POP IY POP IX RET ;***************************************************X®ю$NNNNNNNNNNNNNNNNNЎЎЎю@$J’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRY- HL= PTR TO IOPB IMAGE TRACK DATA ; IX= DDT PTR ; IY= DPB PTR ; (SP)= ADDRESS {LL_READ, LLWRIT} OF EXECUTOR ; ;******uЗю'NNNNNNNNNNNNNNNNNЎЎЎю@*iќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNMODIFIED THEN RETURN ; LD A,(BUF_MOD) OR A,A RET Z ; ; ELSE SET PTRS TO BUFFER DATA ; PUSH IX PUSH IY LD IX,?uю$NNNNNNNNNNNNNNNNNЎЎЎю@0…%NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******** ; BUF_WR: ; LD HL,LL_WRIT JP BUF_RW ;**********************************************************************к(ю^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN†NNNNNNNNЃСЃџ‚lѓ:„…Х…Ј†p‡>€‰Щ‰§Љu‹CЊЌЮЌЋ{ЏHђ‘д‘І’“M”•й•¶–„—Q™н™јљЉ›Yњ'ќхќВћђџ^ +ЎщЎЗў•Јb¤1ҐяҐН¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюAтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****** ; ; RDBUF PERFORMS THE PHYSICAL READ FROM THE HOST DISK INTO BLKBUF. ; ENTRY- (BUF_DSK)= DISK # TO READ FROM ; (BUF_щюNNNNNNNNNNNNNNNNNЎЎЎюAXЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDSK: ; ; STORE DRIVE # FOR FUTURE USE ; LD A,C LD (CPM_DSK),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ):юNNNNNNNNNNNNNNNNЎЎЎюA ·hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGON, 1:INHIBIT OR A,C ;0: NORMAL, 1: INHIBIT CPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; PUSH IX ;SAVE REGS PUS уюNNNNNNNNNNNNNNNNЎЎЎюA—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLES ; IDOK: CALL TRNONE ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(BLKBUF +ЯАю9NNNNNNNNNNNNNNNNЎЎЎюAxЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы USE DEFAULT TABLE LD BC,DPB_SZ LDIR ; LD A,(HL) ;HEADS VALUE JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: C ‚юNNNNNNNNNNNNNNNNNЎЎЎюAТyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************* ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;*************************************************** ю9NNNNNNNNNNNNNNNNЎЎЎюA%8'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DONE ; RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCњюNNNNNNNNNNNNNNNNNЎЎЎюA+(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++lыюњNNNNNNNNNNNNNNNNЎЎЎюA§VNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRK)= TRACK # TO READ FROM ; (BUF_SEC)= SECTOR # TO READ FROM ; IX= DDT PTR ; IY= DPB PTR ; EXIT - (IOPB.PB_STATO)= 0: OK}ЮюgNNNNNNNNNNNNNNNNNЎЎЎюAHќNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы,A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER ; ; IF DRIVE ERROR THEN RETURN (HLяЈюNNNNNNNNNNNNNNNNЎЎЎюAв;NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH IY ; LD IX,(CUR_DDT) ;SET REGS LD IY,(CUR_DPB) ; ; ATTEMPT TO READ ID SECTOR ; CALL BUF_FLSH ;FLUSH BUFFER 1ST JЪvюNNNNNNNNNNNNNNNNЎЎЎюAѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ID_FLGO) AND A,[1 SHL DF_DTDB] OR [1 SHL DF_HARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPBў‹юдNNNNNNNNNNNNNNNNЎЎЎюA-ЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL TR8 LD HL,SD8PBK JR SEL2 ; ; ERROR EXIT ; LOGERR: LD HL,0 ; ; DONE ; LGDONE: POP IY ;RESTORE REGS POP IX rDюNNNNNNNNNNNNNNNNNЎЎЎюA ЗТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; SETTRK: LD (CPM_TRK),BC RET ;************************************************************ўJюNNNNNNNNNNNNNNNNЎЎЎюA&mtNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR BC + 1 ; BC= |wюNNNNNNNNNNNNNNNNNNЎЎЎюA,‚їNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; DISKLOG: ; ; SET UP READ IOPB ; LD A,(BUF_DM№кюNNNNNNNNNNNNNNNNЎЎЎюA”gNNNNNNNNNNNNNNNNNNNNNNЎЎЎы, /0: ERROR ; ;**************************************************************************** ; BUF_RD: ; LD HL,LL_READ ; WюNNNNNNNNNNNNNNNNNЎЎЎюA {¬NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы= 0) ; RET NZ ; ; ELSE SAVE PTR ; LD (CUR_DDT),HL ; ; FETCH FLAGS ; INC HL ;EXE +1 INC HL ;FLGS LD C,(HL)+ю'NNNNNNNNNNNNNNNNNЎЎЎюAС NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR NZ,LOGERR ; CALL DISKLOG JR NZ,LOGERR ; ; IF NO ID SECTOR THEN USE DEFAULT DPB ; (NOTE: CONTROLLER HAS SET IT'S DISKe)юNNNNNNNNNNNNNNNNЎЎЎюA=ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD DE,(CUR_DPB) ;GET ADDR OF DPB LD HL,BLKBUF + ID_SPTO LD BC,DPB_SZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE \рю'NNNNNNNNNNNNNNNNNЎЎЎюAЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ;**************************************************************************** ; ; HOME DRIVE - TREAT AS SEEK TRK 0т,ю'NNNNNNNNNNNNNNNNNЎЎЎюA!фгNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;******************************************************************|дюHNNNNNNNNNNNNNNNNNЎЎЎюA'^ENNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SECTRN: ; ; IF ІЧюHNNNNNNNNNNNNNNNNЎЎЎюA-±ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыAB) LD (LOGIOPB + PB_DMAXO),A ; LD HL,LOGIOPB LD DE,IOPB LD BC,PB_STATO LDIR ; ; EXECUTE WITHOUT COMPENSATION ; Ewю„NNNNNNNNNNNNNNNNЎЎЎюA рNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; COMMON CODE ; BUF_RW: PUSH HL LD HL,BUF_TRK JP RD_WR ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ы]юNNNNNNNNNNNNNNNNNNЎЎЎюA .яNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; FETCH DISK PARAMETER BLOCK ADDRESS ; INC HL ;DRV INC HL ;DPB_PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPB)ы юBNNNNNNNNNNNNNNNNNЎЎЎюAВGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DEFAULTS IN DEFBFR IN ALL CASES) ; LD A,(IOPB + PB_ST2O) CP A,-1 ;-1:NONE, 0:JADE, 1:DESCRIPTOR, 2: EXTENDED, ; 3: tЪю9NNNNNNNNNNNNNNNNЎЎЎюAhбNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LD A,(BLKBUF + ID_HEADS) ; SEL1: LD (IX + DDT_HDS),A ; ; RETURN DRIVE TABLE PTR ; LD HL,(CUR_DPH) XOR A,A ;RETU5шяИNNNNNNNNNNNNNNNNNЎЎЎюA‡*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; EXIT - BC= 0 ; ;**************************************************************************** ; HOME: ; ; IF PENDING ;фюNNNNNNNNNNNNNNNNЎЎЎюA"Ў°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********** ; SETSEC: LD (CPM_SEC),BC RET ;***************************************************************************~€юrNNNNNNNNNNNNNNNNNЎЎЎюA(N{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCU“юNNNNNNNNNNNNNNNNNЎЎЎюA.дЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR LL_DO ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL READ ; ENTRY- IX=“•юHNNNNNNNNNNNNNNNNNЎЎЎюA>БNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT оЪюђNNNNNNNNNNNNNNNNNЎЎЎюAОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,DE ; ; FETCH DISK PARAMETER HEADER ADDRESS ; INC HL ;DPH PTR LD E,(HL) INC HL LD D,(HL) LD (CUR_DPH),DE EX DEЪюNNNNNNNNNNNNNNNNNЎЎЎюAсvNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPARTITIONED, ID JR Z,LGDEF ; ; ELSE IF OLD FORMATS THEN PAD DPB DATA ; CP A,3 JR NC,IDOK ; LD HL,BLKBUF + ID_PSHO 6gюNNNNNNNNNNNNNNNNNЎЎЎюA[РNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRN NO-ERROR JR LGDONE ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: BIT 4,(IX + DDT_FLG) JR Z,LGCKFD ; ; џІяrNNNNNNNNNNNNNNNNЎЎЎюAґNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыWRITE (BUFFER DIRTY) THEN IGNORE ; LD A,(BUF_MOD) OR A,A JR NZ,HOME2 ; ; ELSE PURGE BUFFER ; LD (BUF_ACT),A ; HO‘ЧюNNNNNNNNNNNNNNNNЎЎЎюA#’ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= ? ; ;************************************************************ЅПю·NNNNNNNNNNNNNNNNNЎЎЎюA)}JNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTORз“юNNNNNNNNNNNNNNNNNЎЎЎюA/ЧмNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= STATUS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Зeю9NNNNNNNNNNNNNNNNЎЎЎюAk’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SE+юNNNNNNNNNNNNNNNNNЎЎЎюA„YNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,HL ;PUT DPH PTR IN HL FOR RETURN ; ; IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) ;0: LOТюNNNNNNNNNNNNNNNNЎЎЎюA¤%NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;FILL DATA WITH 0S LD B,ID_FLGO - ID_PSHO ; PADIDL: LD (HL),0 INC HL DJNZ PADIDL ; ; ELSE XFER ID SECTOR DATA TO TABвVюNNNNNNNNNNNNNNNNNЎЎЎюAKоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: LD DE,(CUR_DPB) ;тЈюBNNNNNNNNNNNNNNNNЎЎЎюAбHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыME2: ; ; JUST SET TRACK TO 0 ; LD BC,0 ; ; FALL INTO SET TRACK ; ;*********************************************2пюNNNNNNNNNNNNNNNNNЎЎЎюA$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************** ; SETDMA: LD (CPM_DMA),BC ; LD A,(BUF_DMAB) ;FETCH BANK ADDRESS SET BY COLD START LD (CPM_DMAB),A ; ; ~ЫюNNNNNNNNNNNNNNNNNЎЎЎюA*(NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;++++++++++++++`юNNNNNNNNNNNNNNNNNЎЎЎюA0ДЎNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++ ; LL_READ: ; ; ENABLE UPLOAD ; XOR A,A LD (IOPB + PB_FLGO),A ; ; DISABLE DOWNLOAD ; LD HL,0 LDНлюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNNюЂМЃ™‚fѓ4„…Р…ќ†k‡9€‰Х‰ўЉq‹?Њ ЌЪЌЁЋvЏCђ‘Я‘’{“I”•е•і–Ѓ—N™л™єљ€›Vњ$ќтќАћЋџ\ )ЎчЎДў’Ј_¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюAЕ5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы (IOPB + PB_BCNTO),HL ; ; PASS READ SECTOR COMMAND ; LD A,PB_READC JP LL_RW ;+++++++++++++++++++++++++++++++++++++©gю NNNNNNNNNNNNNNNNNЎЎЎюAo“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL ;DOUBLE COUNT DEC A JP NZ,LL_WR3 ; LL_WR2: LD (IOPB + PB_BCNTO),HL ; ; PASS WRITE COMMAND ; LD A,PB_WRITC ; ; '#юNNNNNNNNNNNNNNNNЎЎЎюA ЂXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT RETURN ADDRESS ON STACK PUSH HL ; LD L,(IX + DDT_EXE) ;FETCH DRIVER ADDRESS FROM TABLE LD H,(IX + DDT_EXE + 1) JP (HLЗ,ю„NNNNNNNNNNNNNNNNЎЎЎюA $NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CP A,'A' ;IF ABORT THEN RE-BOOT JP Z,0 ; ; ELSE IF DEBUGGER THEN EXECUTE IT ; CP A,'M' JP Z,MR_BRK ; ; ELSEщ1юNNNNNNNNNNNNNNNNЎЎЎюAOпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DюNNNNNNNNNNNNNNNNNЎЎЎюAеINNNNNNNNNNNNNNNNNNNNNNЎЎЎы RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRo!ю„NNNNNNNNNNNNNNNNЎЎЎюA%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыL ;SAVE ORIGINAL DATA ; LD A,(IOPB + PB_SECO + 1) ADD A,A ;BIT 15 -> BIT_BUCKET ; SRL H RR L RRA ;TRK BIT 0 -лlю!NNNNNNNNNNNNNNNNЎЎЎюA+,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыN -1 ; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HЁ6юNNNNNNNNNNNNNNNNЎЎЎюAђfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; ; LOW LEVEL WRITE ; ENTRY- IX= DDT PTR ; IY= DPB PTR ; EXIT - IOPB.PB_STATO, A= )љю$NNNNNNNNNNNNNNNNNЎЎЎюANNNNNNNNNNNNNNNNNNNNNNЎЎЎы FALL INTO COMMON CODE ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON IOPB 7ЯюINNNNNNNNNNNNNNNNЎЎЎюAХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) ; ; DRIVER RETURNS HERE ; LL_OPRET: ; ; IF NO ERRORS THEN RETURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINPяВNNNNNNNNNNNNNNNNЎЎЎюA9іNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROR TO BDOS ; L\,ятNNNNNNNNNNNNNNNNЎЎЎюAјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE= ? ; ;**************************************************************************** ; TRNONE: LD DE,0 JR SETTR SUBTµ§юNNNNNNNNNNNNNNNNNЎЎЎюA рвNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY- IX= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ВюHNNNNNNNNNNNNNNNNNЎЎЎюA&ZDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы> SECTOR BIT 15 LD (IOPB + PB_SECO + 1),A ; LD (IOPB + PB_TRKO),HL ;TRACK = RESIDUAL ; ; EXECUTE THE IOPB ; CALL XPR]RюNNNNNNNNNNNNNNNNNЎЎЎюA,µЏNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыL,BFUNTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HѕCюrNNNNNNNNNNNNNNNNЎЎЎюAЈWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTATUS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; LL_WRIT: ; ; IF STILL PROTECTED1юNNNNNNNNNNNNNNNNNЎЎЎюA LњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEXECUTER ; ENTRY- A= COMMAND ; IX= DRIVE TABLE PTR ; IY= DPB PTR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++ =юHNNNNNNNNNNNNNNNNNЎЎЎюAж:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT ERROR ; IOPBDMP: LD A,(BUF_DMAB) ;SET BANK LD E,A ; LD HL,IOPB LD A,MF_DIOB ;USE DISPLAY IOPB DATA FUNCTION CALL §<юNNNNNNNNNNNNNNNNЎЎЎюA ‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD A,-1 ;RETURN -1 TO BDOS OR A,A RET ; ; ; DISPLAY WRITE PROTECT ERROR MESSAGE ; DO_ERR: LD HL,WP_ERM CALL EDITOR )юNNNNNNNNNNNNNNNNNNЎЎЎюA)ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTL HARD DISK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE THE IOPB PRIM“юNNNNNNNNNNNNNNNNNЎЎЎюA!ГУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++ ; HDEXEC: EQU XPRIM SUBTTL JADE FLOPPY DRIVER ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++цєюNNNNNNNNNNNNNNNNNNЎЎЎюA'iuNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIM ; ; RESTORE THE MODIFIED IOPB SO RETRY WILL WORK ; POP HL ;TRACK LD (IOPB + PB_TRKO),HL ; LD HL,IOPB + PB_SECO dою'NNNNNNNNNNNNNNNNЎЎЎюA-†ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL LD H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON VяВNNNNNNNNNNNNNNNNЎЎЎюA:АNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы THEN ERROR ; LD A,(WR_PROT) OR A,A JR NZ,DO_ERR ; ; INHIBIT UPLOAD ; LD A,1 SHL PB_INHX LD (IOPB + PB_FLGO),A CрюNNNNNNNNNNNNNNNNNЎЎЎюA ПNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++ ; LL_RW: LD (IOPB + PB_CMDO),A ; ; OFFSET SECTOR ; LD HL,(IOPB + PB_SECO) LD A,L ADD A,(IX –юNNNNNNNNNNNNNNNNNЎЎЎюAхwNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXMROM ; ; QUERY USER FOR OPTION ; LD HL,DSKEB CALL EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ;DюrNNNNNNNNNNNNNNNNЎЎЎюA_СNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы JR IOPBDMP ;**************************************************************************** ; ; SET 3740 SECTOR TRANSLATIO™`юNNNNNNNNNNNNNNNNNЎЎЎюA°NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыITIVE ; EXIT - A= 0: OK, /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; XPRIM:Х0юDNNNNNNNNNNNNNNNNЎЎЎюA"–ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; з…юrNNNNNNNNNNNNNNNNNЎЎЎюA(yKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+1 ;CLEAR BIT 15 RES 7,(HL) ; ; DONE ; RET SUBTTL BIOS FUNCTION CALLS ;+++++++++++++++++++++++++++++++++++++++++ЫюNNNNNNNNNNNNNNNNNЎЎЎюA.УнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTACK ;############################################################################ ; ; BIOS FUNCTION TABLE ; ;########Ґ5юNNNNNNNNNNNNNNNNNЎЎЎюA сNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; CALCULATE DOWNLOAD BYTE COUNT ; LD A,(IY + DPB_PSH) ;USE SHIFT FACTOR {0:128, 1:256, 2:512, 3:1024} LD HL,128 ;STARї[юNNNNNNNNNNNNNNNNNЎЎЎюA*юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ DDT_SOF) LD L,A LD A,H ADC A,(IX + DDT_SOF + 1) LD H,A LD (IOPB + PB_SECO),HL ; ; SET PHYSICAL DRIVE ; LL_DO: Чwю NNNNNNNNNNNNNNNNNЎЎЎюAЖFNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC CALL CRLF ;NEW LINE POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; ©vюNNNNNNNNNNNNNNNNNЎЎЎюAlаNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыN PROCEDURE ; ENTRY- (CUR_DPH)= MUST BE PTR TO DPH ; EXIT - DE, HL= ? ; ;***************************************************)Пю„NNNNNNNNNNNNNNNNЎЎЎюAѓ+NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; EXECUTE THE PRIMITIVE IN ROM ; LD A,(BUF_DMAB) ;PRESET IOPB BANK LD E,A ; LD HL,IOPB CALL MR_XIOB ;EXECUTE TmюBNNNNNNNNNNNNNNNNЎЎЎюA#Ґ±NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; FD8EXEC: ; ; IF HEADS == 1 THEN EXECUTE I“MюNNNNNNNNNNNNNNNNNЎЎЎюA)JzNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; ENTRY- C= FUNCTION # ; EXIT - A= -1: ERROR, 0: OK ; ;+++++++иґюNNNNNNNNNNNNNNNNNЎЎЎюA/аЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################################### ; BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTћ ю!NNNNNNNNNNNNNNNNЎЎЎюA\ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT WITH 128 BYTES ; AND A,3 ;LIMIT TO 1024-BYTE SECTORS ; JR Z,LL_WR2 ;IF SHIFT_FACTOR == 0 THEN DONE ; LL_WR3: ADD HL,HћХяОNNNNNNNNNNNNNNNNNЎЎЎюAіiNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLD A,(IX + DDT_DRV) LD (IOPB + PB_DRVO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; LL_OPLP: LD HL,LL_OPRET ;PUж\юњNNNNNNNNNNNNNNNNЎЎЎюA“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF RETRY THEN TRY AGAIN ; CP A,'R' ;IF RETRY THEN RETURN TO CALLER JR Z,LL_OPLP ; ; ELSE IF ABORT THEN DO WARM BOOT %жюINNNNNNNNNNNNNNNNNЎЎЎюA|ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************* ; TR8: LD DE,SDTRAN ; SETTR: LD HL,(CUR_DPH) LD (HL),E INC HL LD (HL),D RET ;******љ*ю„NNNNNNNNNNNNNNNNЎЎЎюAЦxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHE FUNCTION ; OR A,A ;FUNCTION ERR? RET NZ ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PB_STATO) OR A,A (юHNNNNNNNNNNNNNNNNNЎЎЎюA$<&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыOPB ; LD A,(IX + DDT_HDS) DEC A JP Z,XPRIM ; ; ELSE SELECT SIDE FROM TRACK BIT 0 ; LD HL,(IOPB + PB_TRKO) PUSH HђюNNNNNNNNNNNNNNNNNЎЎЎюA*)NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURФ1ю“NNNNNNNNNNNNNNNNNЎЎЎюA0у‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ;1:RETURN DISK PHYSICAL CONFIGURATION TABLE PTR MAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++++++++++++++++++++++++++пTю'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃћ‚kѓ8„…У…ў†o‡=€ ‰Ч‰¤Љr‹@ЊЌЫЌ©ЋwЏEђ‘б‘Ї’|“J”•ж•і–Ѓ—O™м™»љ‰›Xњ&ќфќБћЏџ] *ЎшЎЖў•Јb¤0ҐюҐМ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюBiЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # FUNCTION #0 ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35} ЎюNNNNNNNNNNNNNNNNNЎЎЎюBГNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыN DRIVER TABLE PTR FUNCTION ; ENTRY- C= DRIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE (HL= 0) ; A, B, CзПюNNNNNNNNNNNNNNNNЎЎЎюB ,ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXIT - A= BANK # ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; GETBNK: LD A,MF_GBNK JлюNNNNNNNNNNNNNNNNЎЎЎюBИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************** INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,BDOS +шЦюBNNNNNNNNNNNNNNNNЎЎЎюBгNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CALL EDITOR ; ; OUTPUT FUNCTION # ; POP BC LD A,MF_PHXB CALL XMROM ; ; OUTPUT NEW LINE ; CALL CRLF ; ; REЊKю NNNNNNNNNNNNNNNNNЎЎЎюBIҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CLKCAL: LD A,MF_GCAL JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; ЩюNNNNNNNNNNNNNNNNЎЎЎюB%ЈыNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++ ; CI: LD A,MF_CI JP XMROM ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++тНюNNNNNNNNNNNNNNNNNNЎЎЎюB+ЂфNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++ ; READER: LD A,CTRLZ ;FAKE EOF ; ; FALL INTO PUNCH RETURN ; ;********************K¤ю!NNNNNNNNNNNNNNNNЎЎЎюB<ЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETVERS: LD HL,VERSN XOR A,A ;RETURN Nш ю$NNNNNNNNNNNNNNNNNЎЎЎюBУANNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETDVRT: ; ; ASSUME DRIVE 0 ; LпUюNNNNNNNNNNNNNNNNЎЎЎюByзNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыP MR_FUN SUBTTL NON-DISK PROCEDURES ;*************************************************************************** ; ; NЗюBNNNNNNNNNNNNNNNNЎЎЎюB•_NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ; THE #KятNNNNNNNNNNNNNNNNЎЎЎюB¶PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTURN NULLS ; XOR A,A ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++й8юNNNNNNNNNNNNNNNNNЎЎЎюB \NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRETURN TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MINUTES ; C= HOURS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++КъюNNNNNNNNNNNNNNNNNЎЎЎюB&цЁNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;+++++++++++++++++++++++++++HгюNNNNNNNNNNNNNNNNNNЎЎЎюB,cNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы******************************************************** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*******************QшюrNNNNNNNNNNNNNNNNЎЎЎюB»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR Гlю'NNNNNNNNNNNNNNNNNЎЎЎюB аpNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD HL,DDT_0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL DRIђЪюNNNNNNNNNNNNNNNNNЎЎЎюBJЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEWLINE PROCEDURE ; ;*************************************************************************** ; CRLF: LD C,CR CALL COC ЯVю„NNNNNNNNNNNNNNNNЎЎЎюB¦nNNNNNNNNNNNNNNNNNNNNNNЎЎЎыWARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCLK: JRКюNNNNNNNNNNNNNNNNNЎЎЎюB…aNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы++++++++++++++++++++++++++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++MFю'NNNNNNNNNNNNNNNNNЎЎЎюB!o?NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++ ; CLKTIM: LD A,MF_GTIM JP XMROM ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++Hю^NNNNNNNNNNNNNNNNNЎЎЎюB'Е™NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ ; CNSCK: LD A,MF_CIS JP XMROM ;************************************AюNNNNNNNNNNNNNNNNЎЎЎюB-*RNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************* ; PUNCH: RET ;*************************************************ЛзюBNNNNNNNNNNNNNNNNЎЎЎюB–,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION #1 ; ENTRY- E= DRIVE # ; EXIT - E:HL= DRIVER TABLE BASE PTR ; NZ= ILLEGAL DRIVE REQUESTED (HL=0) ; A, B, C= ? ; ьЬюNNNNNNNNNNNNNNNNNЎЎЎюB µ#NNNNNNNNNNNNNNNNNNNNN!фЎЎЎыVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; LD HL,0 OR A,A ;SET NZ RET ; ; ; ELSE COMPUTE TABLE PTR ; REEюNNNNNNNNNNNNNNNNNЎЎЎюBY›NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;***********************************B2ю9NNNNNNNNNNNNNNNNЎЎЎюBу=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90H ;IFV—юђNNNNNNNNNNNNNNNNNЎЎЎюBцNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES DшюrNNNNNNNNNNNNNNNNЎЎЎюB":lNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; ; MONITOR ROM EXECUTER ; ENTRY- A= FUNCTION # ; ;+++++++++++++++++++++++++++++++++++++++++Њю NNNNNNNNNNNNNNNNNЎЎЎюB(Х§NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;*********************************н юNNNNNNNNNNNNNNNNNЎЎЎюB.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;**********************************************ѓ;ю^NNNNNNNNNNNNNNNNNЎЎЎюBҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; RETDVRTF: ; ; ADJUST REGISTER ; LD C,EXЙюђNNNNNNNNNNNNNNNNNЎЎЎюB†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTDV2: LD B,C LD DE,DDT_SIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; LD A,(BUF_DMAB) LD E,A ; ; RETURN NO ERROR ; XOR bUюNNNNNNNNNNNNNNNNNЎЎЎюBjЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MESSAGE зНю>NNNNNNNNNNNNNNNNNЎЎЎюBАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR Z,CLKTIM ;IF TIME THEN GET IT ; ›ю„NNNNNNNNNNNNNNNNЎЎЎюB/ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= Dф;ю!NNNNNNNNNNNNNNNNЎЎЎюB# ]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ ; XMROM: EQU MR_FUN SUBTTL CHAR I/O ROUTINES ;+++++++++++++++++++++++++++++++++++++XLюNNNNNNNNNNNNNNNNNЎЎЎюB)ж–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************* ; COC: LD A,MF_CO JP XMROM ;+++++++++++++++++++++++++++++++++++++++++++++ыћюдNNNNNNNNNNNNNNNNNЎЎЎюB/L0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************** ; LO: LD A,MF_LO JP XMROM ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++н„юNNNNNNNNNNNNNNNNЎЎЎюBрNNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; FALL INTO LOCAL ENTRY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURoyюNNNNNNNNNNNNNNNNNNЎЎЎюB…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; GET BANK NUMBER FUNCTION ; ExЭю9NNNNNNNNNNNNNNNNЎЎЎюB?щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;************************************************№NюNNNNNNNNNNNNNNNNNЎЎЎюBР2NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ILLEGAL SYSTEM CALL ; ILLEGC: PUSH BC ;SAVE FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING Љю9NNNNNNNNNNNNNNNNЎЎЎюBz”NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Y†юNNNNNNNNNNNNNNNNNЎЎЎюB$ђКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;+++++++++++++++++++++++++++++++++++++++++++++}@ю'NNNNNNNNNNNNNNNNNЎЎЎюB*іЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY ; EXIT - A= CTRL-Z ; ;+++++++++++++++++++++++++++++++++++++++++++z®юINNNNNNNNNNNNNNNNNЎЎЎюB0_}NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;+++++++++++++++++++++++++++++++++++++++++„ЫюHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNяЂНЃ›‚hѓ5„…Р…ћ†l‡:€‰Х‰ўЉp‹>ЊЌШЌ¦ЋtЏAђ‘Э‘«’y“F”•г•°–~—K™з™¶љ„›Rњ ќнќєћ‰џW %ЎуЎАўЋЈ[¤*ҐшҐЖ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюB^йNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++ ; LISTST: LD A,MF_LOS JP XMROM ;*************************************************щюNNNNNNNNNNNNNNNNNЎЎЎюBфONNNNNNNNNNNNNNNNNNNNNNЎЎЎыPARAMETER BLOCK ; ;############################################################################ ; IOPB: REPT PB_SIZE LIST 8юNNNNNNNNNNNNNNNNЎЎЎюB „NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCTOR OFFSET ; ; DEFINE THE STRUCTURE SIZE ; DDT_SIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ъЩюNNNNNNNNNNNNNNNNЎЎЎюB;шNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH,D0DPB,D0DPH,4,0 ; B DDT_1: ALLDRV HDEXEC,4,12H,D1DPB,D1DPH,4,8000H ; C DDT_2: ALLDRV HDEXEC,5,10H,D2DPB,D2DPH,4,0 ; ѓ}юBNNNNNNNNNNNNNNNNЎЎЎюBФ3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################## ; MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ПѕюNNNNNNNNNNNNNNNNNЎЎЎюB~•NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRECORD MASK DW 0 ;LOGICAL DRIVE SECTOR OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 1 ;HEADS ;##############бюBNNNNNNNNNNNNNNNNЎЎЎюB%”ЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIVE SECTOR OFFSET (SOF) ; ; ; DB 4 ;HEADS ;##########################################################################ћ-юNNNNNNNNNNNNNNNNNNЎЎЎюB+·ДNNNNNNNNNNNNNNNNNNNNNNЎЎЎы STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DR§яВNNNNNNNNNNNNNNNNЎЎЎюBєNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;**********—Щю$NNNNNNNNNNNNNNNNNЎЎЎюBдqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF DB 0 LIST ON ENDM ;############################################################################ ; ; DISK DRIVERкю$NNNNNNNNNNNNNNNNЎЎЎюBNЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE #†юNNNNNNNNNNNNNNNNЎЎЎюBўoNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы D DDT_3: ALLDRV HDEXEC,5,12H,D3DPB,D3DPH,4,8000H ; E DDT_4: ALLDRV FD8EXEC,0,0,D4DPB,D4DPH,1,0 ; F DDT_5: ALLDRV FD8EXYюrNNNNNNNNNNNNNNNNЎЎЎюBЃ`NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; WP_ERM: DM CR,LF,'W-PROT Error!' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF ;###################NДюNNNNNNNNNNNNNNNNNЎЎЎюB k>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################## ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;#################6ЛяОNNNNNNNNNNNNNNNNNЎЎЎюB&БNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы## ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;#######################################################################Я"юњNNNNNNNNNNNNNNNNЎЎЎюB,.SNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 012345ґфюrNNNNNNNNNNNNNNNNЎЎЎюB8‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; EDITOR: CALL GETBNK LD E,A LD A,MF_PUTS JP XMROM вфюaNNNNNNNNNNNNNNNNЎЎЎюB Ч@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TABLES (DDT) ; ;############################################################################ ; STRUCT 0 DDT_EXE DS 2 ;STAd7юNNNNNNNNNNNNNNNNNЎЎЎюB}жNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; #FLG= DRIVE FLAGS ; #DPB= DPB ADDRESS ; #DPH= DPH ADDRESS ; #HDS= HEADS ; #SOF= SECTOR OFFSET ; ;@@@@@@@@@@@@@@@@б^юBNNNNNNNNNNNNNNNNЎЎЎюB‘^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыEC,1,0,D5DPB,D5DPH,1,0 ENDIF IF BOOT = 3 ; A DDT_0: ALLDRV FD8EXEC,0,0,D0DPB,D0DPH,1,0 ; B DDT_1: ALLDRV FD8EXECLЌюNNNNNNNNNNNNNNNNNЎЎЎюBІQNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################################### ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSIT)юђNNNNNNNNNNNNNNNNNЎЎЎюB!XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################### ; HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCKldюNNNNNNNNNNNNNNNNNЎЎЎюB'т©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы##### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MAZAюHNNNNNNNNNNNNNNNNЎЎЎюB-bNNNNNNNNNNNNNNNNNNNNNNЎЎЎы6789ABCDEF DD DL DD + 1 LIST ON ENDM ;############################################################################ ; ;ЯюyNNNNNNNNNNNNNNNNЎЎЎюBЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL INITIALIZED DATA ;############################################################################ ; ; 3740 SECTOR T8НюNNNNNNNNNNNNNNNNNNЎЎЎюB ‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRT ADDRESS OF DISK DRIVER DDT_FLG DS 1 ;FLAGS BIT DEF. ; 0 1: INHIBIT LOGON ; 1..3 PARTITION # {0,..7} ; 4 1: HARDпЯюrNNNNNNNNNNNNNNNNNЎЎЎюBn«NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDRV MACRO #DADD,#PD,#FLG,#DPB,#DPH,#HDS,#SOF DW #DADD ;DR/eюrNNNNNNNNNNNNNNNNЎЎЎюBД NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,1,0,D1DPB,D1DPH,1,0 ; C DDT_2: ALLDRV HDEXEC,4,10H,D2DPB,D2DPH,4,0 ; D DDT_3: ALLDRV HDEXEC,4,12H,D3DPB,D3DPH,4,8000H №юNNNNNNNNNNNNNNNNNЎЎЎюB+ЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY FORMAT ; ;############################################################################ ; SD8PBK: DW 26 ;SECTORS PER TRACKTХяВNNNNNNNNNNNNNNNNЎЎЎюB" \NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152Cю„NNNNNNNNNNNNNNNNNЎЎЎюB(в—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPH: MACRO #D LIST ON D#D(DD)DPHL’юђNNNNNNNNNNNNNNNNNЎЎЎюB.H1NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; LOGON IOPB OVERLAY ; ;############################################################################ ; LOGIOPB: DB PB_LOGШФюNNNNNNNNNNNNNNNNNЎЎЎюB’-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;#########################################################################tзюgNNNNNNNNNNNNNNNNNЎЎЎюB±"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISK DRIVE ; DDT_DRV DS 1 ;PHYSICAL DRIVE # DDT_DPB DS 2 ;DPB ADDRESS FOR THIS DRIVE DDT_DPH DS 2 ;DPH ADDRESS FOR THISЛCюrNNNNNNNNNNNNNNNNNЎЎЎюB]љNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVER EXECUTION ADDR DB #FLG ;FLAGS DB #PD ;MONITOR PHYSICAL DRIVE # DW #DPB ;DISK PARAMETER BLOCK PTR DW #DPH ;DISK юNNNNNNNNNNNNNNNNNЎЎЎюBчmNNNNNNNNNNNNNNNNNNNNNNЎЎЎы / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) Ч4юNNNNNNNNNNNNNNNNNЎЎЎюB)С¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" D…юNNNNNNNNNNNNNNNNNЎЎЎюB/{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыC ;COMMAND DB 0 ;DRIVE DW 0 ;TRACK DW ID_SECT ;SECTOR DB 0 ;FLAGS DW BLKBUF ;DMA DB 0 ;BANK DW 0 ;COUNT ; WR_PЂю„NNNNNNNNNNNNNNNNЎЎЎюBЗ~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы### ; SDTRAN: GXLATE 26,6 ;############################################################################ ; ; COMMON I/O дюNNNNNNNNNNNNNNNNNЎЎЎюB(µNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DDT_HDS DS 1 ;HEADS DDT_SOF DS 2 ;SE:‘юNNNNNNNNNNNNNNNNЎЎЎюBЙNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыPARAMETER HEADER PTR DB #HDS ;HEADS DW #SOF ;SECTOR OFFSET ; ENDM IF BOOT = 10H ; A DDT_0: ALLDRV HDEXEC,4,10‘5ю NNNNNNNNNNNNNNNNNЎЎЎюBзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##################################################################### ; ; MESSAGES ; ;####################################йюNNNNNNNNNNNNNNNNЎЎЎюBM¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET DB 0 ;PHYSICAL RECORD SHIFT FACTOR DB 0 ;PHYSICAL Чью·NNNNNNNNNNNNNNNNNЎЎЎюB$§ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDW 2 ;TRACK OFFSET (OFF) DB 1 ;PHYSICAL RECORD SHIFT FACTOR (PSH) DB 1 ;PHYSICAL RECORD MASK (PRM) DW 0 ;LOGICAL DRГ`ю“NNNNNNNNNNNNNNNNNЎЎЎюB*„хNNNNNNNNNNNNNNNNNNNNNNЎЎЎыW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >=(±юINNNNNNNNNNNNNNNNNЎЎЎюB0hMNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыROT DB -1 ;/0: WRITE PROTECTION ENABLED ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALI ю$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃћ‚kѓ8„…У… †n‡<€ ‰Ч‰¤Љr‹@ЊЌЫЌ©ЋwЏDђ‘а‘®’{“I”•е•І–Ђ—M™й™ёљ†›Tњ"ќрќЅћЊџZ )ЎцЎГў‘Ј^¤,ҐъҐИ¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCmNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыZED DATA AREA ;############################################################################ ; ; THE FOLLOWING DATA MUST RESЃ+юNNNNNNNNNNNNNNNNNЎЎЎюCµЛNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыER BUF_MOD DS 1 ;0: BUFFER CLEAN, /0: BUFFER DIRTY (MODIFIED) ; BUF_DDT DS 2 ;BUFFER DDT PTR BUF_DPB DS 2 ;BUFFER DPB PTR ;‚ЦюINNNNNNNNNNNNNNNNЎЎЎюC ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################## ; CUR_DPB DS 2 ;DRIVE TABLE PTR CUR_DDT DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR CUR_DPH DS HюBNNNNNNNNNNNNNNNNЎЎЎюCz|NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 75 ;ALLOCATION BIT MAP FOR 8" DRIVEВ·юњNNNNNNNNNNNNNNNNЎЎЎюC•·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;EXM- EXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255wЅю NNNNNNNNNNNNNNNNNЎЎЎюC?NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIO%ЬюrNNNNNNNNNNNNNNNNЎЎЎюC%ХONNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS1юBNNNNNNNNNNNNNNNNЎЎЎюC+ц@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF ENDIF LIST ON ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA A"©юrNNNNNNNNNNNNNNNNNЎЎЎюCJ>NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIDE IN THIS ORDER TO MATCH THE IOPB DATA ; ;############################################################################ ; ;XTяЙNNNNNNNNNNNNNNNNNЎЎЎюCҐхNNNNNNNNNNNNNNNNNNNNNNЎЎЎы RSFLAG: DS 1 ;0: NO PREREAD REQ'D, /0: PREREAD REQ'D READOP: DS 1 ;0: WRITE OPERATION, 1: READ OPERATION WRTYPE: DS 1 ;WRITE}юNNNNNNNNNNNNNNNNЎЎЎюCSNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы2 ;DPH PTR ; LOGRQ: DS 1 ;LOG ON REQUEST REG. ;##########################################################################wћю„NNNNNNNNNNNNNNNNЎЎЎюCглNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DA;OюNNNNNNNNNNNNNNNNЎЎЎюCАдNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSM- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PERрЈюNNNNNNNNNNNNNNNNNЎЎЎюC *єNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF ABOVE. ; PARTITIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATФуюNNNNNNNNNNNNNNNNNNЎЎЎюC&ЂNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 1024 ;HOST BUFFER IF (($ - 8000H) > 07700H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** гЧюNNNNNNNNNNNNNNNNNЎЎЎюC,oЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREA ;############################################################################ ; ; VARIABLES ; ;######################гМюrNNNNNNNNNNNNNNNNЎЎЎюCyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CP/M IOPB OVERLAY ; CPM_DSK DS 1 ;LOGICAL DRIVE CPM_TRK DS 2 ;LOGICAL TRACK NUMBER CPM_SEC DS 2 ;LOGICAL SECTOR NUMBER ЄlюNNNNNNNNNNNNNNNNNЎЎЎюC –ДNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы OPERATION TYPE FROM BDOS: ; 0: WRITE TO ALLOCATED (USED) BLOCK (PREREAD) ; 1: WRITE TO DIRECTORY (PREREAD & WRITE) ; хэюHNNNNNNNNNNNNNNNNNЎЎЎюCюNNNNNNNNNNNNNNNNNЎЎЎюC(ЈNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы_WR,H8_RD,0,0,5,10H,0 ALLDPH 4,0,F8_WR,F8_RD,0,0,0,0,D4CHK ALLDPH 5,0,F8_WR,F8_RD,0,0,1,0,D5CHK ELSE IF BOOT < 30H 2=юNNNNNNNNNNNNNNNNNNЎЎЎюC. µNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 ;LOGICAL DRIVE SEK_TRK: DS 2 ;LOGICAL TRACK NUMBER SEK_SEC: DS 2 ;LOGICAL SECTOR NUMBER ; ; THE FOLLOWING ARE SET CЪюdNNNNNNNNNNNNNNNNNNЎЎЎюCУ©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыER BUF_TRK DS 2 ;BUFFER TRACK NUMBER BUF_SEC DS 2 ;BUFFER SECTOR NUMBER DS 1 ;FLAGS BUF_DMA DS 2 BUF_DMAB DS 1 ;BANK # ; [ЊюNNNNNNNNNNNNNNNNNЎЎЎюCр¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNA_DSK: DS 1 ;LAST UNALLOC DISK UNA_TRK: DS 2 ;LAST UNALLOC TRACK UNA_SEC: DS 2 ;LAST UNALLOC SECTOR ;##################кEю NNNNNNNNNNNNNNNNNЎЎЎюCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; CHK = DPB.CKS ъ8юNNNNNNNNNNNNNNNNNNЎЎЎюC¶ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################# ; STRUCT 0 DPB_SPT DS 2 ;SPT- SECTORS/TRACK DPB_BSH DS 1 ;BSH- BLOCK SHIFC\ю9NNNNNNNNNNNNNNNNЎЎЎюCYsNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY CP/M 2.2 DEBLOCKING) ; DPB_PSH DS 1 ;PSH- PHYSICAL RECOR#яВNNNNNNNNNNNNNNNNЎЎЎюC#йNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDP‡ђю$NNNNNNNNNNNNNNNNNЎЎЎюC)ђ"NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;5" FLOPPY BOOT ALLDPH 0,0,F8_WR,F8_RD,0,0,0,0,D0CHK ALLDPH 1,0,F8_WR,F8_RD,0,0,1,0,D1CHK ALLDPH 2,0,H8_WR,H8_RD,0,0,4,10H4›ю NNNNNNNNNNNNNNNNNЎЎЎюC/:„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBY THE BUFFER READ/WRITE ; HST_DSK: DS 1 ;BUFFER DISK NUMBER HST_TRK: DS 2 ;BUFFER TRACK NUMBER HST_SEC: DS 2 ;BUFFER SECШkяОNNNNNNNNNNNNNNNNNNЎЎЎюC†ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; BLOCKING BUFFER MAINTENANCE ; BUF_PSEC DS 2 ;BUFFER PHYSICAL SECTOR BUF_ACT DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUFF’;ю!NNNNNNNNNNNNNNNNЎЎЎюCi1NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы########################################################## ; ; VARIABLES ; ;##############################################э‹юNNNNNNNNNNNNNNNNЎЎЎюCIMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 128 ;ALLOCATION BIT MAP FOR 8" HA‰юNNNNNNNNNNNNNNNNNЎЎЎюC¦†NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15)ЛюBNNNNNNNNNNNNNNNNЎЎЎюC NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 1024 DPB_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/&»юINNNNNNNNNNNNNNNNNЎЎЎюC$ж~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыB: MACRO #D LIST ON D#D(DD)DPB: DS DPB_SZ ;ALLOCATION FOR DRIVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; 4юђNNNNNNNNNNNNNNNNNЎЎЎюC*ЕqNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,0 ALLDPH 3,80H,H8_WR,H8_RD,0,0,4,10H,0 ALLDPH 4,0,H8_WR,H8_RD,0,0,5,10H,0 ALLDPH 5,80H,H8_WR,H8_RD,0,0,5,10H,0 ENDIF ЄнюNNNNNNNNNNNNNNNNNЎЎЎюC0)ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR NUMBER ; ; SEK_HST: DS 2 ;PHYSICAL SECTOR TO XFER ; ; FLAGS ; HST_ACT: DS 1 ;0: BUFFER FLUSHED, /0: DATA IN BUF2ятNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNяЂНЃ›‚iѓ6„…Т…џ†l‡:€‰Ц‰ЈЉq‹?Њ ЌЫЌ©ЋwЏFђ‘в‘°’}“K”•и•¶–„—Q™н™»љ‰›Xњ&ќуќАћЋџ\ *ЎшЎЗў–Јc¤1ҐяҐН¦ЮNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюC(]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPPER BITS) ; DPB_SECO DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SKT DS 1 ;SKEW TABLE SЯGюNNNNNNNNNNNNNNNNNЎЎЎюC‚ыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыH) > 075FFH) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END З«юNNNNNNNNNNNNNNNNЎЎЎюC m0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS кµяИNNNNNNNNNNNNNNNNNЎЎЎюCMLNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; zю9NNNNNNNNNNNNNNNNЎЎЎюCў‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыF DD DL DD + 1 LIST ON ENDM ;############################################################################ ; ; RESEW.юINNNNNNNNNNNNNNNNNЎЎЎюC!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыB_AL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPB_CKS DS 2 ;CKS- # DIRECTORY SECTORS CHEC@€юдNNNNNNNNNNNNNNNNЎЎЎюC%вNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыCO DS 2 ;SOF- SECTOR OFFSET (FOR LOGICAL DRIVE) ; 0: NONE, 1..65535: OFFSET DPB_SKT DS 1 ;SKEW TABLE STARTS HERE, IF USED, CЏюBNNNNNNNNNNNNNNNNЎЎЎюC+БpNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** ENDIF END йію!NNNNNNNNNNNNNNNNЎЎЎюC}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTARTS HERE, IF USED, ELSE 0 ; DPB_SZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@µ‹юHNNNNNNNNNNNNNNNNNЎЎЎюC’ЕNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; CUR_DPH DS 2 ;DPH PTR CUR_DPB DS 2 ;DPB PTR CUR_BCB DS 2 ;BCB PTR CUR_RD DS 2 ;READ DRIVER PTR CUR_WR DS 2 ;WRITE DRIVER Hю„NNNNNNNNNNNNNNNNЎЎЎюC8cNNNNNNNNNNNNNNNNNNNNNNЎЎЎы127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57kяИNNNNNNNNNNNNNNNNNNЎЎЎюCФЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; ALL = (DSM / 8) + 1 ; CHK = DPB.CKS ; AL’qюrNNNNNNNNNNNNNNNNЎЎЎюCчФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRVE DRIVE PARAMETER BLOCKS ; ;############################################################################ ; STRUCT 0 DPB_§Зю NNNNNNNNNNNNNNNNNЎЎЎюC ЉNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыKED ; (DRM +1) / 4 DPB_OFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) ; ; ADDITIONAL CP/M 3.0 DATA (ALSO COULD BE USED BY'ЭюNNNNNNNNNNNNNNNNNNЎЎЎюC&·,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыELSE 0 ; DPB_SZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATCЧюBNNNNNNNNNNNNNNNNЎЎЎюC,XзNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCN?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@eKюNNNNNNNNNNNNNNNNNЎЎЎюC ЎфNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR CUR_XLAT DS 2 ;XLATION TABLE PTR (0: NONE) CUR_SOFF DS 2 ;SECTOR OFFSET FOR DRIVE CUR_DRV DS 1 ;CURRENT PHYSICAL DRIVE # ГЌю$NNNNNNNNNNNNNNNNNЎЎЎюCRNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST nхюдNNNNNNNNNNNNNNNNNNЎЎЎюCзкNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDAL: MACRO #D LIST ON IF DSK_#D(DD) = 10H D#D(DD)ALL: DS 128 ;ALLOCATION BIT MAP FOR 4MB HARD DRIVE #D(DD) ENDIF ѓЬюNNNNNNNNNNNNNNNNNЎЎЎюCДеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSPT DS 2 ;SPT- SECTORS/TRACK DPB_BSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2K= 4, 4K= 5, 8K= 6,џtю!NNNNNNNNNNNNNNNNЎЎЎюC!.»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы CP/M 2.2 DEBLOCKING) ; DPB_PSH DS 1 ;PSH- PHYSICAL RECORD SHIFT FACTOR BASED ON BYTES/SEC ; 0: 128, 1: 256, 2: 512, 3: 10?юNNNNNNNNNNNNNNNNNNЎЎЎюC'„NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ALLDPB: MACRO #D_уюHNNNNNNNNNNNNNNNNЎЎЎюC-kЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCЧЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPB_SZ ;ALLOCATION FOR DRIVE #D(DD) IF (DSK_#D(DD) < 10H) OR (DSK_#D(DD) >iЙюNNNNNNNNNNNNNNNNNNЎЎЎюC ф§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; DRIVE ALLOCATION AREAS ; ;#########ІфюЙNNNNNNNNNNNNNNNNNNЎЎЎюCNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON _яИNNNNNNNNNNNNNNNNNЎЎЎюCІ№NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF DSK_#D(DD) = 11H D#D(DD)ALL: DS 256 ;ALLOCATION BIT MAP FOR 8MB HARD DISK #D(DD) ENDIF IF (DSK_#D(DD) AND 0F0H) = 0Єю\NNNNNNNNNNNNNNNNЎЎЎюC]rNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 16K= 7 DPB_BLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPB_EXM DS 1 ;EXM- EXTENT MASK ; DSM ©њю9NNNNNNNNNNNNNNNNЎЎЎюC"{иNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы24 DPB_PHM DS 1 ;PHM- PHYSICAL RECORD MASK BASED ON BYTES/SEC ; 0: 128, 1: 256, 3: 512, 7: 1024 ; ; ADDITIONAL DISK PARґ¶ятNNNNNNNNNNNNNNNNNЎЎЎюC(”#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON D#D(DD)DPB: DS DPB_SZ ;ALLOCATION FOR DRIVE #D(DD) IF (DSK_#D(DD) < 10H) OR (DSK_#D(DD) >= 20H) DS SKTSZ - 1ц–юNNNNNNNNNNNNNNNNNNЎЎЎюC.>…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюCд™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы= 20H) DS SKTSZ - 1 ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 01ыюNNNNNNNNNNNNNNNNNNЎЎЎюCЗ–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################### ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ќ¶юNNNNNNNNNNNNNNNNNNЎЎЎюC+.NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH PTR ; LOGRQ: DS 1 ;LOG ON REQUEST REG. ;############################################################################ ;/юNNNNNNNNNNNNNNNNNЎЎЎюCЃ€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы D#D(DD)ALL: DS 75 ;ALLOCATION BIT MAP FOR 8" FLOPPY DRIVE #D(DD) D#D(DD)CHK DS 64 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER,ю9NNNNNNNNNNNNNNNNЎЎЎюCnCNNNNNNNNNNNNNNNNNNNNNNЎЎЎы< 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPB_DSM DS 2 ;DSM- DRIVE STORAGE SIZEш€юNNNNNNNNNNNNNNNNЎЎЎюC#HЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTITIONING DATA FOR THE LOGICAL DRIVE SELECTION. ; PARTITIONING BY TRACKS ARE IMPLIMENTED THRU BDOS USING DPBOFF ABOVE. ; PARTI;жюNNNNNNNNNNNNNNNNNЎЎЎюC)§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DLѕ•ю$NNNNNNNNNNNNNNNNNЎЎЎюC/ ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюC±КNNNNNNNNNNNNNNNNNNNNNNЎЎЎы23456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ AND 07FFFT™юNNNNNNNNNNNNNNNNNЎЎЎюC^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N§юNNNNNNNNNNNNNNNNNЎЎЎюC~}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; DRIVE ALLOCATION AREAS ; ;############################################################################ ; ;@@@@@@@@@@@@9юHNNNNNNNNNNNNNNNNNЎЎЎюC‘¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDAL 0123456789ABCDEыЧюNNNNNNNNNNNNNNNNЎЎЎюC;NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPB_DRM DS 2 ;DRM- DIRECTORY SIZE -1 DP'RюNNNNNNNNNNNNNNNNNЎЎЎюC$СNNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTIONING BY HEADS ARE IMPLIMENTED BY USING THE FOLLOWING DATA. ; (HEAD BITS ARE INCLUDED IN SECTOR WORD UPPER BITS) ; DPB_SEgЩю\NNNNNNNNNNNNNNNNЎЎЎюC*тANNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DD + 1 LIST ON ENDM ; ; BLOCKING BUFFER ; BLKBUF: DS 1024 ;HOST BUFFER IF (($ AND 07FFFH) > 075FFH) CONMSGxю“NNNNNNNNNNNNNNNNNЎЎЎюC0щNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃ ‚mѓ;„ …Ш…¦†s‡@€‰Э‰ЄЉx‹FЊЌвЌ°Ћ~ЏLђ‘и‘µ’ѓ“Q”•л•є–€—T"™с™їљЊ›Zњ'ќцќДћ‘џ` .ЎыЎИў–Јd¤1ҐяҐН¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюDN@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BUFFER PTR DW D#D(DD)DPB ;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;NO CHECKS ON HARірюNNNNNNNNNNNNNNNNNNЎЎЎюDджNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTION ADDRESS IF INTCPTS ;##l“юdNNNNNNNNNNNNNNNNNNЎЎЎюD -NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DD - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATюINNNNNNNNNNNNNNNNЎЎЎюD+QNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########### ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;########################################################################вфюNNNNNNNNNNNNNNNNNЎЎЎюDДљNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@@ўюHNNNNNNNNNNNNNNNNNЎЎЎюDn= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION9юNNNNNNNNNNNNNNNNNNЎЎЎюDІЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#### STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, 2 юINNNNNNNNNNNNNNNNЎЎЎюD‘ЙNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@W=юHNNNNNNNNNNNNNNNNЎЎЎюD {—NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF LD A,(DEFDRV) ;PASS IN DEFAULT DISK TO CCP LD C,A JP CCP SUBTTL DISK ROUTINES ;+++++++++++++++++++++++++++++@юњNNNNNNNNNNNNNNNNNЎЎЎюD&С1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 10H ;10H: HARD DISK, 3: 8" FLOPP/юђNNNNNNNNNNNNNNNNNNЎЎЎюD,>ъNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPYЁюNNNNNNNNNNNNNNNNЎЎЎюD("NNNNNNNNNNNNNNNNNNNNNNЎЎЎыR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST OсЎюHNNNNNNNNNNNNNNNNNЎЎЎюD ЗйNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы############################################### CLKBFR DS 13 ENDIF ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM ;######гZюNNNNNNNNNNNNNNNNNЎЎЎюDmONNNNNNNNNNNNNNNNNNNNN!рЎЎЎы BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF IF ((DD - 1) >=уШю NNNNNNNNNNNNNNNNNЎЎЎюDЃчNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EXTENљюrNNNNNNNNNNNNNNNNЎЎЎюDўшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIVE #vdюdNNNNNNNNNNNNNNNNNЎЎЎюD!H¦NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^юrNNNNNNNNNNNNNNNNЎЎЎюD'вNNNNNNNNNNNNNNNNNNNNNNЎЎЎыY, 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;******************************************юйNNNNNNNNNNNNNNNNNЎЎЎюD- ЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 ЉуюNNNNNNNNNNNNNNNNNЎЎЎюD±µNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыN ENDM ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ; ; THE REMAINIkю'NNNNNNNNNNNNNNNNЎЎЎюD ’єNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################################################### ; ; DRIVE ALLOCATION AREAS ; ;#####################’юrNNNNNNNNNNNNNNNNЎЎЎюD~NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ST5FD) AND ((DD - 1) <= ND5FD) D#D(DD)ALL: DS 35 ;ALLOCATION BIT MAP FOR 5" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHECKq№юNNNNNNNNNNNNNNNNNNЎЎЎюDФ¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSM- DRЇиюNNNNNNNNNNNNNNNNNЎЎЎюD;oNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD +Aю9NNNNNNNNNNNNNNNЎЎЎюD"хNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7ю'NNNNNNNNNNNNNNNNNЎЎЎюD(т>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;********** џю'NNNNNNNNNNNNNNNNNЎЎЎюD.XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы& 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOШxюrNNNNNNNNNNNNNNNNNЎЎЎюD‚„NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNG AREA DOES NOT HAVE TO ; BELONG ON THE DISK. ; BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR # BTFLG DSэ юBNNNNNNNNNNNNNNNNЎЎЎюDЎ‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@uюgNNNNNNNNNNNNNNNNNЎЎЎюDM3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF АЇю$NNNNNNNNNNNNNNNNЎЎЎюDз•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DIRECTЋ«ю'NNNNNNNNNNNNNNNNNNЎЎЎюD^NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 1 LIST ON ENDM IF (($ - 8000H) > 07800H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** HTюNNNNNNNNNNNNNNNNNЎЎЎюD#.ДNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћюBNNNNNNNNNNNNNNNNЎЎЎюD)БNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 1ФPюNNNNNNNNNNNNNNNNNЎЎЎюD/k©NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPPY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OFW~юaNNNNNNNNNNNNNNNNNЎЎЎюDЧЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 1 ;FLAG BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ; DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEойюNNNNNNNNNNNNNNNNЎЎЎюD8NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QрюrNNNNNNNNNNNNNNNNЎЎЎюD`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;#################################################################ЎюNNNNNNNNNNNNNNNNNЎЎЎюDч«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECTORY•ю$NNNNNNNNNNNNNNNNNЎЎЎюD] NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF END ‰чюNNNNNNNNNNNNNNNNЎЎЎюD$·SNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•юNNNNNNNNNNNNNNNNNЎЎЎюD*”\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0H ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; SюNNNNNNNNNNNNNNNNNЎЎЎюD0xдNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; ,Гю!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNяЂОЃќ‚jѓ8„…Ф…ў†o‡<€ ‰Ш‰ҐЉr‹AЊЌЭЌ¬ЋzЏHђ‘д‘І’Ѓ“O”•й•ё–†—S"™р™ѕљ‹›Yњ'ќцќДћ‘џ_ .ЎыЎЙў—Јe¤2Ґ¦О¦ЮNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюDypNNNNNNNNNNNNNNNNNNNNNNЎЎЎы G JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;***************************************ЊeюNNNNNNNNNNNNNNNNNЎЎЎюDУЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDULES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 КЛю„NNNNNNNNNNNNNNNNNNЎЎЎюD <NNNNNNNNNNNNNNNNNNNNNNЎЎЎы(0..n-1). This maintains more uniformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routineGЭюЙNNNNNNNNNNNNNNNNЎЎЎюDaNNNNNNNNNNNNNNNNNNNNNNЎЎЎы use of ROM primitives. ; Moved system down to 60k. ; ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86vюђNNNNNNNNNNNNNNNNЎЎЎюDуЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы==================== ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE DISKS.DEF ; INCLUDE MONBOARD.DEF ; INCLUDE ZMЛ;ю“NNNNNNNNNNNNNNNNNЎЎЎюDYNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыKBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUE CCP: EQU CPMBS + 3400H ;ADDR OF CC5EюNNNNNNNNNNNNNNNNNЎЎЎюD%іRNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================== SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; STHD EQU 0 ;SЖ·юHNNNNNNNNNNNNNNNNNЎЎЎюD+ђ]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRLZ: EQU 1AH ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION Tг@ю NNNNNNNNNNNNNNNNЎЎЎюD,#NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************** ; REVISIONS: ; ; 2.2.0 - RELEASE ; ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; Ф#ю„NNNNNNNNNNNNNNNNЎЎЎюDГиNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSEP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SЗюBNNNNNNNNNNNNNNNNЎЎЎюDiNNNNNNNNNNNNNNNNNNNNNNNЎЎЎыs to monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR=uюNNNNNNNNNNNNNNNNNNЎЎЎюD…цNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BIOS. ; Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LЮ€ю$NNNNNNNNNNNNNNNNЎЎЎюD¦щNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыONROM.DEF ; INCLUDE DKBTROM.DEF ; INCLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOKROM.DEF ; ;=========================5юNNNNNNNNNNNNNNNNЎЎЎюD L§NNNNNNNNNNNNNNNNNNNNNNЎЎЎыP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSR: EQU 1000H - BIOS ; ; PAGE 0 LOЦЦю“NNNNNNNNNNNNNNNNNЎЎЎюD&жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTART LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OF 8" FLOPPY N6(юNNNNNNNNNNNNNNNNNNЎЎЎюD, КNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LISЇ6юNNNNNNNNNNNNNNNNЎЎЎюDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LARGER BIOS ALLOCATION ON THE DISK. ; ; 2.2.4 - ADDED NAKED TERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. bLюNNNNNNNNNNNNNNNNNЎЎЎюD рЩNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыEP 83 GRH ; Move clock-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separЛsюNNNNNNNNNNNNNNNNNЎЎЎюDZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 85 GRH ; Implemented hard disk drive 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user %uю NNNNNNNNNNNNNNNNNЎЎЎюD¶ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOGON to specify the ID sector & track. At same time, fix bug ; which did not specify the logon track. ; ; 3.02 7 JUL 88 Gю!NNNNNNNNNNNNNNNNЎЎЎюD•ИNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================================== LIST OFF *INCLUDE JDDCONT.DEF *INCLUDE COMIOPB.DEF *INCLUDE DISKS.DEF шюINNNNNNNNNNNNNNNNNЎЎЎюD!–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDwюrNNNNNNNNNNNNNNNNЎЎЎюD'Х0NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; STHD EQU 2 ;START LOGICAпtюNNNNNNNNNNNNNNNNNЎЎЎюD-:ыNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыT OFF NXTSEC DL 1 ;;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + ¤Цю“NNNNNNNNNNNNNNNNNЎЎЎюD†…NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыALSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.л юЙNNNNNNNNNNNNNNNNЎЎЎюD ҐЉNNNNNNNNNNNNNNNNNNNNN!цЎЎЎыate CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard disk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to ref‡cю„NNNNNNNNNNNNNNNNЎЎЎюDI2NNNNNNNNNNNNNNNNNNNNNNЎЎЎыfriendly disk error options: Abort, Retry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; ; 3.00lюNNNNNNNNNNNNNNNNNNЎЎЎюDг”NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRH ; Add '?' to include file names. ; Change hard disk system tracks directory reference to new format. ; Correct bug in driv’zюЙNNNNNNNNNNNNNNNNNЎЎЎюD_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы*INCLUDE MONBOARD.DEF *INCLUDE ZMONROM.DEF *INCLUDE DKBTROM.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INCLUDE CLOKROM.DEF "юњNNNNNNNNNNNNNNNЎЎЎюD"*ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY DEFBFR EQU PAGE0 + 80H ;DEFAULT BUFFER ; ; BIOS FUNCTION CALL RESTART VECTOuKюNNNNNNNNNNNNNNNNNЎЎЎюD(ЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL DRIVE OF HARD DISK NDHD EQU 5 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 б5юNNNNNNNNNNNNNNNNNЎЎЎюD.oЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#SKEW ;ADD SKEW FACTOR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST_oю NNNNNNNNNNNNNNNNNЎЎЎюDµґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2.6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRI»9юNNNNNNNNNNNNNNNNЎЎЎюD–»NNNNNNNNNNNNNNNNNNNNNNЎЎЎыlect half size directory, but keep ; allocation for 1k directory ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to r ‰юNNNNNNNNNNNNNNNNNЎЎЎюDzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы - 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables a:&юrNNNNNNNNNNNNNNNNЎЎЎюDРҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыers which caused retry to fail. (sector remained ; corrupted) ; VERSN EQU 302 ; ;****************************************”Bю'NNNNNNNNNNNNNNNNNNЎЎЎюD?nNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LIST ON ;============================================================================ ; ; DISK OPERATING SYSTEM ADDREєIюОNNNNNNNNNNNNNNNNNЎЎЎюD#фNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; BFUNRST EQU 28H BFUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;=========================Р0юдNNNNNNNNNNNNNNNNЎЎЎюD)ц?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;============================================================================ W4юNNNNNNNNNNNNNNNNЎЎЎюD/\™NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;CHECK FOR REPEAT NXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@A7юNNNNNNNNNNNNNNNNNNЎЎЎюDазNNNNNNNNNNNNNNNNNNNNNNЎЎЎыVER, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MOћёюyNNNNNNNNNNNNNNNNЎЎЎюD,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыelate to ISASI control of JADE ; FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value ЬдюњNNNNNNNNNNNNNNNNЎЎЎюD/PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыnd new function to return ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implementedbию$NNNNNNNNNNNNNNNNNЎЎЎюDА›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************ SUBTTL SYSTEM DECLARATIONS ;======================================================== ю°NNNNNNNNNNNNNNNNNЎЎЎюDj=NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSSES ; ;============================================================================ NKSYS: EQU 60 ;SYSTEM SIZE IN K BYTES p{ю!NNNNNNNNNNNNNNNNЎЎЎюD$ЂcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================================================== ; ; OTHER DECLARATIONS ; ;==============================================.юNNNNNNNNNNNNNNNNNЎЎЎюD*ЈlNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; ASCII CHARS ; ;============================================================================ LF: EQU 0AH CR: EQU 0DH CTЌHюgNNNNNNNNNNNNNNNNNЎЎЎюD0OФNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; INITIALIZE VERSION TEXT IN RAM MACRO ; ;@@@@@@@@@@@@@@@@@@Ќщю9NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃџ‚lѓ:„…Ц…Ј†q‡>€‰Ы‰©Љw‹FЊЌбЌЇЋ}ЏKђ‘з‘µ’ѓ“Q”•м•є–€—V$™т™АљЋ›\њ)ќшќЕћ’џ` /ЎьЎКўЈf¤4Ґ¦П¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюE8фNNNNNNNNNNNNNNNNNNNNN!цЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + V…ю'NNNNNNNNNNNNNNNNNЎЎЎюE’RNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDSK ;SELECT DISK DRIVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFO юNNNNNNNNNNNNNNNNNЎЎЎюE }™NNNNNNNNNNNNNNNNNNNNNNЎЎЎыADDR FOR SBD ; ; CONTINUE ON WITH INIT ; INIT1: JR INIT ;############################################################ҐЋюNNNNNNNNNNNNNNNNЎЎЎюE]еNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD ; CALL GETMON ; ; INIT DEFAULT DRIVE ; LD A,(?DKPROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ;awюNNNNNNNNNNNNNNNNЎЎЎюEІ.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы **** ELSE DS DIRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;----------------------------------ТюdNNNNNNNNNNNNNNNNNЎЎЎюE€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FOR A HUNG CONDITION AND CLEAR IF TRUE ; IN A,(?HSTATUS) ;IF HOST ADAPTER BUSY THEN BIT ?HBUSYB,A JR Z,NTHUNG ; LD A,–юNNNNNNNNNNNNNNNNNЎЎЎюE%тЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы HL ; LD HL,(DEFBFR + ?BDSCCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCµ8юdNNNNNNNNNNNNNNNNЎЎЎюE+СЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOM DIRECTORY LD C,L LD B,A ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOT E&юNNNNNNNNNNNNNNNNЎЎЎюEm§NNNNNNNNNNNNNNNNNNNNNNЎЎЎы'0' DD DL DD % 10000 ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.'Ж юNNNNNNNNNNNNNNNNЎЎЎюE‚lNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRM DISK READ JP DISKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXEНЃю·NNNNNNNNNNNNNNNNNЎЎЎюE(КNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################ ; ; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M Д:юNNNNNNNNNNNNNNNNNNЎЎЎюEДrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SEND SYSTEM SIGN-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4!юNNNNNNNNNNNNNNNNNЎЎЎюEз}NNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------ ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;--------------------------Џ-юNNNNNNNNNNNNNNNNЎЎЎюE #NNNNNNNNNNNNNNNNNNNNNNЎЎЎы?DDCLR LD (IOPB + ?PBCMDO),A CALL XPRIM ; NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(?DKPROM + 1) gоюNNNNNNNNNNNNNNNNNЎЎЎюE&§…NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыP CALL SETDMA ; ; READ CCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BT?июrNNNNNNNNNNNNNNNNNNЎЎЎюE,HNNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRROR, OUTPUT MSG & HALT ; WEROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZ~ю!NNNNNNNNNNNNNNNЎЎЎюE^–NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DB ((DD % 100) / 10) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;----------------------------------|ю„NNNNNNNNNNNNNNNNЎЎЎюE ±]NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCUTE FUNCTION CALL ;############################################################################ ; ; THESE BOOT PARAMS MU>¬юNNNNNNNNNNNNNNNNЎЎЎюEыNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDIRECTORY CHECK ROUTINES THAT ; CHECK FOR DISK CHANGE. ; ;##################################################################Я&юNNNNNNNNNNNNNNNNNЎЎЎюEчCNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы) LD (BIOS+1),HL ; ; BOOT CCP & BDOS ; JR WARM ;##################################################################Ћ@юXNNNNNNNNNNNNNNNNNЎЎЎюEФLNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-------------------------------- WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; нюHNNNNNNNNNNNNNNNNNЎЎЎюE!>NNNNNNNNNNNNNNNNNNNNNNяЎЎЎыAND A,3 ;MODULO 4 LD C,A LD E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECT«•ю¤NNNNNNNNNNNNNNNNЎЎЎюE'”ґNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSEC INC (HL) ; LD DE,SECSZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOS TB¤ю NNNNNNNNNNNNNNNNNЎЎЎюE-{NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRPG: ; ; INIT BIOS WARM START IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOSpюrNNNNNNNNNNNNNNNNNЎЎЎюEЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------ ; ; BIOS JUMP VECTOR TABLE ; ;-------------------------------------------------иmю NNNNNNNNNNNNNNNNЎЎЎюE дNNNNNNNNNNNNNNNNNNNNNNЎЎЎыST RESIDE AS DEFINED RIGHT BEFORE THE COLD INIT ; ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE REFERENCED ;люNNNNNNNNNNNNNNNNNNЎЎЎюE¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## DIRBF: EQU $ ;BUFFER BEGINNING ;---------------------------------------------------------------------------- Ј„юrNNNNNNNNNNNNNNNNNЎЎЎюEўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########## ; ; SIGN-ON MESSAGE ; ;############################################################################ MSGSO: DB CR€юgNNNNNNNNNNNNNNNNNЎЎЎюEMЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; SET INTERRUPT MODE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(?INTMSK) AND A,7FH OUT (?INTMSK),A ; ;мbюNNNNNNNNNNNNNNNNЎЎЎюE"kANNNNNNNNNNNNNNNNNNNNNNЎЎЎыORY ; LD BC,DEFBFR ;SET XFER ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,?BTDIRS ;SET DIRECTORY SECTOR CALL SET,iю NNNNNNNNNNNNNNNNNЎЎЎюE(„ЉNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHEN READ NEXT SECTOR ; LD DE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRAЛ®юNNNNNNNNNNNNNNNNNЎЎЎюE..,NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL VECTOR IN PAGE 0 ; LD HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD ¶^юHNNNNNNNNNNNNNNNNNЎЎЎюEф0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------------- JP INIT1 ;COLD START ENTRY JP WARM ;RELOAD CCP/BDOS JP CNSCK ;GET CONSOLE STATUS JP CI ;X'юINNNNNNNNNNNNNNNNЎЎЎюEЧ?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы BY THE BOOT CODE IN ORDER TO FIND THE LOAD ADDRESS FOR THE BIOS & IT'S ; LENGTH. ; ;######################################Чќю“NNNNNNNNNNNNNNNNNЎЎЎюE;‡NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ; INIT - COLD START ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;-------------------------------------------------------Њ+юNNNNNNNNNNNNNNNNЎЎЎюE‘!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы,LF DB CPMSZ / (KBYTE * 10) + '0' DB (CPMSZ MOD (KBYTE * 10)) / KBYTE + '0' DB 'K CP/M-80 Vers 2.2',CR,LF DB 'M5b CBIOSЖSюNNNNNNNNNNNNNNNNNNЎЎЎюE~кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FINALLY ENABLE VECTORED INTERRUPTS ; IN A,(?MONSTS) OR A,?MONIE OUT (?MONSTS),A EI ENDIF ; ; SET TEMPORARY ST;ю NNNNNNNNNNNNNNNNЎЎЎюE#XpNNNNNNNNNNNNNNNNNNNNNNрЎЎЎыSEC ; LD BC,0 ;SET TRACK TO 0 CALL SETTRK ; CALL DISKRD JR NZ,WEROR ; ; CHECK FOR VALID BOOT DIRECTORY ; LD A,вЭюNNNNNNNNNNNNNNNNЎЎЎюE)·»NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCK & SECTOR ; JR Z,RDBDOS ; ; ELSE IF NOT AT BIOS THEN READ NEXT SECTOR ; LD DE,BIOS - BDOS SBC HL,DE JP C,WREAD +юINNNNNNNNNNNNNNNNNЎЎЎюE/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыHL,BIOFUNC LD (BFUNRSV),A LD (BFUNRSV + 1),HL ; ; SET DEFAULT SECTOR BUFFER ; LD BC,DEFBFR CALL SETDMA ; IF INTспюdNNNNNNNNNNNNNNNNNNЎЎЎюEЎcNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCONSOLE INPUT JP COC ;CONSOLE OUTPUT JP LO ;PRINTER OUTPUT JP PUNCH JP READER JP HOME ;HOME SELECTED DRIVE JP SELfю!NNNNNNNNNNNNNNNNЎЎЎюENЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### BIOSSZ: DW BIOSND - BIOS ;BIOS MODULE SIZE IN BYTES BIOSST: DW BIOS ;BIOS MODULE LOAD заю NNNNNNNNNNNNNNNNЎЎЎюEnФNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------- INIT: ; ; SET TEMPORARY STACK ; LD SP,DEFBFR ;USE PAGE 0 FOR STACK ; ; MAKE SURE ROM IS ENABLEщюNNNNNNNNNNNNNNNNЎЎЎюEЃNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы Vers ' PVERS VERSN DM CR,LF IF $ > (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER`+юNNNNNNNNNNNNNNNNNЎЎЎюE+№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыACK ; LD SP,DEFBFR ; ; INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST ISHA HOST ADAPTER5 юNNNNNNNNNNNNNNNNNЎЎЎюE$БзNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(DEFBFR) CP A,86H JR C,WEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + ?BDSBDSS) ;PREFETCH BDOS TRK/SECTOR PUSHEХюNNNNNNNNNNNNNNNNNЎЎЎюE*виNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ; ELSE DONE READING SYSTEM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FRЄ+юNNNNNNNNNNNNNNNNЎЎЎюE0PNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCPTS ; ; PUT BDOS VECTOR INTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOfюrNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNяЂНЃ›‚hѓ6„…Т… †n‡<€ ‰Ш‰ҐЉs‹AЊЌЭЌ«ЋzЏIђ‘д‘±’“M”•и•¶–„—Q™н™»љ‰›Wњ%ќуќБћЋџ\ +ЎшЎЕў“Јa¤.ҐьҐК¦ЮNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюEДNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS CODE ; LD HL,INTCPT LD (BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; ; LD C,?CLKF7 ;TEST FOR BOARлю„NNNNNNNNNNNNNNNNЎЎЎюEҐbNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++·Gю№NNNNNNNNNNNNNNNNNЎЎЎюE J©NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы SAVE LOGON REQUEST FLAG ; LD A,E LD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN КЏюrNNNNNNNNNNNNNNNNЎЎЎюEjХNNNNNNNNNNNNNNNNNNNNNNяЎЎЎыB + ?PBST2O),A ; CALL DISKLOG JP NZ,FDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + ?PBST2O) CP A,-2 €љюNNNNNNNNNNNNNNNNЎЎЎюE…NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR ; LD HL,(DTPTR) XOR A,A RET ; ; ; IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BTDRV) IF STHD <>~юHNNNNNNNNNNNNNNNNNЎЎЎюE/ёNNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************** ; ; SET TRACK # ; ENTRY- BC= TRACK # ; ;****************************************************&$юNNNNNNNNNNNNNNNNNЎЎЎюE%ЕжNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++ ; ; SECTOR TRANSLATION FUNCTION ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO XLATE NYю·NNNNNNNNNNNNNNNNNЎЎЎюE+жйNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTION ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKLOG: CєюrNNNNNNNNNNNNNNNNЎЎЎюEZ—NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD PRESENT ; CALL CLK1 ; ; IF CLOCK PRESENT THEN TURN ON CLOCK DRIVE ; ; LD A,38H ;COND. JR (ON) ; JR CLKON ; ; ELSE((ю·NNNNNNNNNNNNNNNNNЎЎЎюEµ\NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKWR: LD A,?DDWRS ;SELECT WRITE OP JP DISKOP њ,юјNNNNNNNNNNNNNNNNЎЎЎюEъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC REGISTER LD (DVRTPTR),HL ; ; PREFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE ADDRESS INC HL LD DЬыю NNNNNNNNNNNNNNNNNЎЎЎюEуBNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы;0: NO ID, -1: JADE ID, -2: EXTENDED ID JR NZ,LGDEF ; ; ELSE XFER ID SECTOR DATA TO TABLES ; CALL TRNONE ;ASSUME NO TR‰ўю NNNNNNNNNNNNNNNNЎЎЎюEРMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NЈqюдNNNNNNNNNNNNNNNNЎЎЎюE :NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************************ SETTRK: LD (BTTRK),BC RET ;******************************************************************ЎюNNNNNNNNNNNNNNNNNЎЎЎюE&ђµNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; EXIT - HL= XLATED SECTOR OR (BC) + 1 ; BC= UNCHANGED ; A, DE= ? ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++mюNNNNNNNNNNNNNNNNNNЎЎЎюE,~NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + ?PBDMAO),HL XOR A,A LD (IOPB + ?PыюHNNNNNNNNNNNNNNNNЎЎЎюEi¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TURN OFF CLOCK DRIVE ; LD A,18H ;UNCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF ; ; PAS©ПюдNNNNNNNNNNNNNNNNЎЎЎюE †mNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISою$NNNNNNNNNNNNNNNNNЎЎЎюE,ЛNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,(HL) INC HL LD (DVRXADR),DE ; ; FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TABLE ADDRESS ; LD HL,(BTDъГю“NNNNNNNNNNNNNNNNNNЎЎЎюEАsNNNNNNNNNNNNNNNNNNNNNNЎЎЎыANSLATION ; ; IF HARD DISK OR DOUBLE DENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + ?IDFLGO) AND A,[1 SHL ?DFDTDB] OR [1 tјю„NNNNNNNNNNNNNNNNЎЎЎюEг|NNNNNNNNNNNNNNNNNNNNNNЎЎЎыO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LD BC,DPBSZ Ш"юNNNNNNNNNNNNNNNNNЎЎЎюE! "NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********** ; ; SET SECTOR ; ENTRY- BC= SECTOR # ; ;************************************************************************'pю„NNNNNNNNNNNNNNNNЎЎЎюE'Ј„NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++ SECTRN: ; ; IF NO TRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATIЫ—юHNNNNNNNNNNNNNNNNNЎЎЎюE-LONNNNNNNNNNNNNNNNNNNNN!фЎЎЎыBDMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ; LD HL,?IDSECT LD (IOPB + ?PBSECO),HL ; ; SET DESCRIPTOR SECTOR TRACK T_ю“NNNNNNNNNNNNNNNNNЎЎЎюEр1NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS DEFAULT DISK TO CCP ; LD A,(DEFDRV) LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++++++++П†юдNNNNNNNNNNNNNNNNЎЎЎюE У>NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыK PARAMETER BLOCK ; ENTRY- C= DRIVE # ; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++++++++++++++++++©ўю NNNNNNNNNNNNNNNNЎЎЎюE?†NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRV) LD H,0 ADD HL,HL ;DISK # * 16 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,D0DPH ADD HL,DE ; ; IF NOT FIRST SELECTx0ю$NNNNNNNNNNNNNNNNNЎЎЎюE• NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSHL ?DFHARDB] ; ; ELSE SET TRANSLATION ; CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; NOX: CALL DPBAD ;GET ADDR OF DPB dю„NNNNNNNNNNNNNNNNNЎЎЎюEzлNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ;***************************ђљюВNNNNNNNNNNNNNNNЎЎЎюE"\qNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**** SETSEC: LD (BTSEC),BC RET ;**************************************************************************** ; ; SET2бюИNNNNNNNNNNNNNNNNNЎЎЎюE(ієNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыON OR A,E JP Z,NOTRAN ; ; ELSE CALCULATE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ю NNNNNNNNNNNNNNNNNЎЎЎюE.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IOPB + ?PBTRKO),HL ; ; PASS COMMAND TO EXECUTOR ; LD A,?DDLOG JR њ±ю‰NNNNNNNNNNNNNNNNNЎЎЎюEГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READ A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++ц юNNNNNNNNNNNNNNNNЎЎЎюEаNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++ SELDSK: ; ; ASSUME ERROR ; LD HL,0 ; ; IF UNSUPPORTED DRIVE гўюrNNNNNNNNNNNNNNNNNЎЎЎюE·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы OR LOGON INHIBITED THEN RETURN TABLE PTR ; LD A,(LOGRQ) OR A,C CPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; LD (uгюЙNNNNNNNNNNNNNNNNЎЎЎюE¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,DEFBFR + ?IDSPTO LD BC,DPBSZ LDIR ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + ?IDFLGO ; SEL1: PUS›мю!NNNNNNNNNNNNNNNNNЎЎЎюEIЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************* ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;****************-~юNNNNNNNNNNNNNNNNNЎЎЎюE#o@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - A= 0 ; ;***********************************************************************+ютNNNNNNNNNNNNNNNNЎЎЎюE)Ђ‹NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RET Sx/юNNNNNNNNNNNNNNNNЎЎЎюE/*-NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; COMMON DISK I/O CODE ; ENTRY- mёю“NNNNNNNNNNNNNNNNNNЎЎЎюE–SNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKRD: LD A,?DDRDS ;SELECT READ OP JP DISKOP ;+++++++++++++Ф-юNNNNNNNNNNNNNNNNЎЎЎюEyNNNNNNNNNNNNNNNNNNNNNNЎЎЎыREQUESTED THEN RETURN 0 (ERROR) ; LD A,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (BTDRV),A ; ; zђю“NNNNNNNNNNNNNNNNЎЎЎюEYдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVISED LD (IOP6ю NNNNNNNNNNNNNNNNNЎЎЎюE¶/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,DE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETURN DRIVE TABLE ћ•юNNNNNNNNNNNNNNNNNЎЎЎюE‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************ HOME: LD BC,0 ;**********************************************х0юNNNNNNNNNNNNNNNNЎЎЎюE$цЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***** SETDMA: LD (BTDMA),BC XOR A,A LD (BTDMAX),A RET ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Zeю¤NNNNNNNNNNNNNNNNNЎЎЎюE*ХШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUBTTL DISK SUPPORT ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DISK FUNC·юgNNNNNNNNNNNNNNNNNЎЎЎюE09`NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA= IOPB COMMAND ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ з–ю„NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃТЃЎ‚oѓ=„…Щ…¦†s‡@€‰Э‰ЄЉw‹FЊЌвЌ±Ћ~ЏLђ‘й‘·’…“S”!•п•Ѕ–‹—Y'™х™Гљ‘›_њ-ќьќЙћ—џf 5ЎўРўќЈk¤9Ґ¦Ф¦жNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюFЈ(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + ?PBTRKO LD BC,?PBSTATO - ?PBTRKO LDIR ; DISKOP2: LD (IOPB +ю“NNNNNNNNNNNNNNNNNЎЎЎюF ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы POP DE INC DE ;NEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,DSKEB ;OUTPUT ERROR MESSAGE CALL EDITOR кщюNNNNNNNNNNNNNNNNNNNЎЎЎюF жENNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTPTR)= MUST BE PTR TO DTP ; EXIT - DE, HL№ю^NNNNNNNNNNNNNNNNЎЎЎюFЖ9NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,10 ;ADD OFFSET OF DPB PTR ADD HL,DE L‹џю NNNNNNNNNNNNNNNNЎЎЎюF)тNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы?PBSECO) ; PUSH HL ;SAVE SECTOR TO RESTORE LATER ; ADD HL,DE LD (IOPB + ?PBSECO),HL ; ; EXECUTE IOPB ; CALL XPRъюNNNNNNNNNNNNNNNNNЎЎЎюFѓTNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы POP IX ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + ?PBSTATO) OR A,A RET SUBTTL JADE FLOPPY DRIVER RO§зюINNNNNNNNNNNNNNNNNЎЎЎюF%i NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; BREAK; DEFAULT: /* DATA TRACKS */ } ; LD C,(IY + DVRDSPT) ; ; IF SECTOR < SECTORS_PER_TRACK THEN SIDE = 0 ; FD(юrNNNNNNNNNNNNNNNNЎЎЎюF+JNNNNNNNNNNNNNNNNNNNNNNрЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; EXIT - A= -1: ERROR, 0: OK ; ;+++++++++++++++++++zюrNNNNNNNNNNNNNNNNЎЎЎюFц{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ?PBCMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;SAVE IY LD IY,(DVRTPTR) ;FETCH TABLE BAS©—юNNNNNNNNNNNNNNNNЎЎЎюF°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR LD C,A ;ECHO CHAR CALL COC POP AF ; №юNNNNNNNNNNNNNNNNNЎЎЎюFіNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ? ; ;**************************************************************************** TR8: TR3740: LD DE,SDTRAN ; SETTR: LD №мюNNNNNNNNNNNNNNNNNNЎЎЎюF_®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD E,(HL) ;FETCH DPB PTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++ІЎюNNNNNNNNNNNNNNNNЎЎЎюF|ЎNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыIM ; ; RESTORE SECTOR ; POP HL LD (IOPB + ?PBSECO),HL ; ; DONE ; RET ;+++++++++++++++++++++++++++++++++++\мюNNNNNNNNNNNNNNNNЎЎЎюF –яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADE 8" FLOPPY DISK DRIVER FUNCTION &Єю NNNNNNNNNNNNNNNNNЎЎЎюF&ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOS CALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RETDVRT: BМюNNNNNNNNNNNNNNNNNЎЎЎюF СuNNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL ; PUSH DE POP IX LD HL,?DSKX LD A,(?DKPROM) CALL EXROM ; ; FETCH & RETURN RESULT STATUS ; LD A,(IX + ?PBSTн®юNNNNNNNNNNNNNNNNЎЎЎюFс NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL COC ; ; RETURN DATA ; POP AF RET ;**************************************************************************.}ю„NNNNNNNNNNNNNNNNЎЎЎюFВNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED TO AN UNCONDITIONAL JUMP BY ;µтюNNNNNNNNNNNNNNNNNЎЎЎюFґdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы OUTPUT FUNCTION # ; POP HL LD A,L CALL PRHEX ; ; OUTPUT NEW LINE ; CALL CRLF ; ; RETURN NULLS ; XOR A,A п*ю'NNNNNNNNNNNNNNNNNЎЎЎюF%^:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыROM ENTRY POINT JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN TIME FаJюњNNNNNNNNNNNNNNNNЎЎЎюF+}5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** CLKSET: LD C,?CLKF2 ; CLK1: LD HL,?CLKFUN ; CLK2: LD AfjюNNNNNNNNNNNNNNNNNЎЎЎюFБKNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHYSICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB MAXFUNCS EQU ($ - BFUNTBL) / 2 ;+++++++++++++++++++++++++xбю·NNNNNNNNNNNNNNNNNЎЎЎюF.ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ILLEGAL D°vюNNNNNNNNNNNNNNNNNNЎЎЎюF„&NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыATO) POP IX ;RESTORE REG OR A,A ;TEST RESULT FOR RETURN RET SUBTTL NON-DISK PROCEDURES ;************************єэю NNNNNNNNNNNNNNNNNЎЎЎюFhћNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы* ; ; NEWLINE PROCEDURE ; ;*************************************************************************** CRLF: LD C,CR CALLьГюњNNNNNNNNNNNNNNNЎЎЎюFK‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS ALLWAYS FALSE (NOP). ; INHCњюNNNNNNNNNNNNNNNNЎЎЎюF ЎПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;BC = HL = A = 0 LD L,A LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++®ѓюBNNNNNNNNNNNNNNNNNЎЎЎюF&iNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCTION 92H ; EXIT - A= SECONDS ; B= MINITS ; C= HOURS ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ЪJю·NNNNNNNNNNNNNNNNNNЎЎЎюF,дўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,?CLKROM ; ; FALL INTO ROM EXECUTER ; ENDIF ;*********************************************************************ь}юNNNNNNNNNNNNNNNЎЎЎюFтzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00,..655.35$пюNNNNNNNNNNNNNNNNЎЎЎюF ±NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LD B,C LD¦Ѕю$NNNNNNNNNNNNNNNNNЎЎЎюF·NNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, C= ? )]ю·NNNNNNNNNNNNNNNNNNЎЎЎюF[ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎы COC LD C,LF JP COC IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS ;*****************************Ю&юNNNNNNNNNNNNNNNNNЎЎЎюFx NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN IT JR Z,RETCVER ; CP A,90_ю„NNNNNNNNNNNNNNNNЎЎЎюF!’юNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++ ; ; CDOS RETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;+++++++++++++++++++++++++++ЭјюHNNNNNNNNNNNNNNNNЎЎЎюF'8XNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++ CLKTIM: LD HL,?CLKTIM JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Ќюю9NNNNNNNNNNNNNNNNNЎЎЎюF-Ч“NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******* ; ; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTRY ADDRESS ; A= ROM # ; EXIT - ? ; ;************************************б/ю!NNNNNNNNNNNNNNNNNЎЎЎюFkнNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETVERS: LD HL,VERSN XOR A,A ;RETURN NБ\юNNNNNNNNNNNNNNNNЎЎЎюF HвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO ERROR ; XOR A,A RET ;++++++++++++++++++++++++++++++++ЇrюдNNNNNNNNNNNNNNNNЎЎЎюF¤ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ;**************************************************************************** PRHEX: ; ; PROCESS HIGH NIBBLE 1ST ; CAЫЎюNNNNNNNNNNNNNNNNNЎЎЎюFьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEGAL BDOS CALLS & ; PRINTS MEUйюдNNNNNNNNNNNNNNNNNЎЎЎюFб7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H JR C,CLKSET ;IF SET FUNCTION TяiюЙNNNNNNNNNNNNNNNNЎЎЎюF"ЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;+++++++++++++++++++++++++щКюЙNNNNNNNNNNNNNNNNNЎЎЎюF((fNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++ ; ; READ CLOCK TIME FUNCTION 93H ; ENTRY- DE= PTR TO 13 BYTE BUFFER FOR CLOCK DATA ; ;++++++++++++++++++++++++++++++++1uюNNNNNNNNNNNNNNNNЎЎЎюF.‚АNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы**************************************** EXROM: AND A,?ROMSMK ;MASK OUT UNUSED BITS OUT (?ROMSEL),A ; PUSH HL ;SAVE ROM‚€юИNNNNNNNNNNNNNNNNNЎЎЎюFXЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER TABLE PTR ГlюyNNNNNNNNNNNNNNNNЎЎЎюF{УNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- DE= IOPB PTR ; EXIT - A= 0: OK ; ;++++++++Т¶юNNNNNNNNNNNNNNNNNЎЎЎюF—kNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыLL PRDIG ; ; SWAP HIGH & LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ; ; r™юyNNNNNNNNNNNNNNNNЎЎЎюF=НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;******************************************"ДюNNNNNNNNNNNNNNNNNЎЎЎюFТNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыHEN SET CLOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEN GET IT ; ; ILLEGAL SYSTEMkWюNNNNNNNNNNNNNNNNЎЎЎюF#фњNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR!¦юNNNNNNNNNNNNNNNNЎЎЎюF)WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ CLKRDC: LD C,?CLKF1 JR CLK1 ;********************************************1цюNNNNNNNNNNNNNNNNNЎЎЎюF/±сNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ENTRY VECTOR ; LD HL,EXROMR ;PUT RETURN ADDR ON STACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY VECTOR JP (HL) ;EІ(ю“NNNNNNNNNNNNNNNNNNЎЎЎюF ЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DRIVER TABLE BASE PTR ; A, C= 0 ; ;+++++++++++++++++++++++§юNNNNNNNNNNNNNNNNЎЎЎюFвDNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ EXIOPB: ; ; SAVE REG ; PUSH IX ; ; SET UP FOR CЖ1ю'NNNNNNNNNNNNNNNNЎЎЎюFВ8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCONVERT TO ASCII USING DAA TRICK ; AND A,0FH ADD A,90H DAA ADC A,40H DAA ; ; OUTPUT CHAR TO CONSOLE ; LD C,A jЧю“NNNNNNNNNNNNNNNNNЎЎЎюF-уNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************* INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN OK ; BDOSV EQU $ + 1 JP C,•Gю№NNNNNNNNNNNNNNNNNЎЎЎюF‡UNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL ; ILLEGC: PUSH BC ;SAVE FUNCTION # ; ; OUTPUT WARNING MESSAGE ; LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR ; ;™Њю“NNNNNNNNNNNNNNNNNЎЎЎюF$mNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; L= DAY OF WEEK ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKCAL: LD HL,?CLKCAL ;кўю№NNNNNNNNNNNNNNNNЎЎЎюF*NNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMAGE BUFR PTR (13 BYTES LONG) ; ;**********ь/юNNNNNNNNNNNNNNNNЎЎЎюF0ўјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXECUTE ROM ; ; ROM PROCEDURE RETURNS HERE ; EXROMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECT MONITOR ROM ; jXюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃ ‚mѓ;„…Ц…¤†r‡@€‰Ь‰©Љv‹DЊЌаЌЋ{ЏJђ‘е‘І’Ђ“N”•и•¶–„—Q™л™№љ‡›Uњ#ќсќїћЌџ\ +ЎшЎЖў”Јb¤0ҐэҐЛ¦'ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюGХњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPOP AF ;RETURN VALUE RET SUBTTL CHAR I/O ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Y®юNNNNNNNNNNNNNNNNЎЎЎюG:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA NOT READY THEN RETURN 0 AND A,1 SHL ?NTRDY TTOST1: RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;*****************«ЌюNNNNNNNNNNNNNNNNNNЎЎЎюG ђсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTTOST1 ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRIVER - DUMMY °эю!NNNNNNNNNNNNNNNNЎЎЎюG°ЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - ALію NNNNNNNNNNNNNNNNЎЎЎюG_FNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы****************************************************** EDITOR: LD C,(HL) ;MESSAGE EDIT LOOP PUSH HL ;SAVE PTR RES 7,C ;Cґю!NNNNNNNNNNNNNNNNЎЎЎюGхаNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER INPUT ; CALL CI ; PUSH AF LD C,A CALL COC POP AF ; ; IF OPTION IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL>юђNNNNNNNNNNNNNNNNNЎЎЎюG%ѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------ ; ; UNSUPPORTED INTERRUPT ; ;---------------------------------------------------------------------------- ILLINT: ФюHNNNNNNNNNNNNNNNNNЎЎЎюG+<±NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###################### IOPB: REPT ?IOPBSZ LIST OFF DB 0 LIST ON ENDM ;############################################SфюNNNNNNNNNNNNNNNNNЎЎЎюGЂПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++OҐюHNNNNNNNNNNNNNNNNNЎЎЎюGoNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********************************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ; ;************** ЁюrNNNNNNNNNNNNNNNNЎЎЎюGЕўNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READER: LD A,CTRLZ ;FAKEОuюNNNNNNNNNNNNNNNNNЎЎЎюG)NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ LISTST: IF USEMON СЎюNNNNNNNNNNNNNNNNЎЎЎюG NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLEAR BIT 7 FOR OUTPUT CALL COC ; POP HL BIT 7,(HL) ;IF BIT 7 SET THEN RETURN RET NZ ; INC HL ;ELSE PRINT NEXT CHARЦxюBNNNNNNNNNNNNNNNNЎЎЎюG аKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; AND A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 oюrNNNNNNNNNNNNNNNNNЎЎЎюG&JнNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPUSH AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC LD HL,ILLIM ;NOTIFY USER OF INT JR IQCONT SUBTTL INITIALIZED DATA ;#i-юNNNNNNNNNNNNNNNNNNNЎЎЎюG,Ґ&NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################ ; ; DISK DRIVER TABLES ; ;#################################################################1бюNNNNNNNNNNNNNNNЎЎЎюGіюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CI: IF USEMON CALL GETMON ;SWITCH IN MONITOR ROM JP ?CONIN ;USE MONITOR ELSE CALL CNSCK ;IF NO CHAR RDY THEN Х1юNNNNNNNNNNNNNNNNЎЎЎюG \5NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы************************************************************** COC: IF USEMON CALL GETMON JP ?CONOUT ELSE CALL NTХ‚юrNNNNNNNNNNNNNNNNNЎЎЎюGц“NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы EOF ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRY- C= CHAR TO (qюNNNNNNNNNNNNNNNNNNNЎЎЎюG+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL GETMON JP ?LSTSTS ELSE LD A,-1 RET ENDIF ;**************************************************************юNNNNNNNNNNNNNNNNЎЎЎюG9$NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JR EDITOR IF INTRPTS SUBTTL INTERRUPTS ;---------------------------------------------------------------------------- xіюNNNNNNNNNNNNNNNNЎЎЎюG!УzNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; ; IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAP1 ; POP BC ;RESTORE REGS 1ST POP HL POP “юdNNNNNNNNNNNNNNNNЎЎЎюG'yЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; ; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINюBNNNNNNNNNNNNNNNNNЎЎЎюG-–NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########### STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER DVRFG DS 1 ;FLAGS (B0= INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICALЇюdNNNNNNNNNNNNNNNNNЎЎЎюG*iNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыWAIT JR Z,CI IN A,(?NTD) ;ELSE RETURN CHAR RET ENDIF ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Ґ/ю NNNNNNNNNNNNNNNNЎЎЎюG fNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыOST ;IF BUSY THEN WAIT OR A,A JR Z,COC LD A,C OUT (?NTD),A RET ;++++++++++++++++++++++++++++++++++++++++++++++КyюнNNNNNNNNNNNNNNNNЎЎЎюGеЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOUTPUT ; ;**************************************************************************** PUNCH: RET ;********************* „юrNNNNNNNNNNNNNNNNNЎЎЎюGOxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************** ; ; GET MONITOR PROM SUBR ; EXIT - A= ? ; ;*****************************************************************%fю!NNNNNNNNNNNNNNNNNЎЎЎюG іNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ; ; USER INTERRUPT ; ;---------------------------------------------------------------------------- ITRAP: ; ; SAVE REGSЙчю[NNNNNNNNNNNNNNNNЎЎЎюG"†)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAF JP 0038H ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR TRAP ; ITRAP1: CP A,'M' JR NZ,ITRAPR ; POP BC POP HL |xюBNNNNNNNNNNNNNNNNЎЎЎюG(iвNNNNNNNNNNNNNNNNNNNNNNЎЎЎыGLE DENSITY **** ; ;############################################################################ SDTRAN: GXLATE 26,6 ; DB Ї^юNNNNNNNNNNNNNNNNЎЎЎюG.ГDNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR FROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS 1^тюINNNNNNNNNNNNNNNNNЎЎЎюGXNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;++++++++++++++++++++++++++++;Yю!NNNNNNNNNNNNNNNNЎЎЎюG:WNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE OUTPUT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;++++++++++++++++++еюrNNNNNNNNNNNNNNNNNЎЎЎюGЦпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************* ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;******************:ЅюdNNNNNNNNNNNNNNNNЎЎЎюG|INNNNNNNNNNNNNNNNNNNNNNЎЎЎы*********** GETMON: LD A,?XMONROM OUT (?ROMSEL),A RET ;*************************************************************}юdNNNNNNNNNNNNNNNNNЎЎЎюG“‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FIRST ; PUSH AF PUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITOR ROM ; IN A,(?ROMSEL) LD (ROMSAV),A CALL GEюrNNNNNNNNNNNNNNNNЎЎЎюG#µNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыPOP AF JP 0F824H ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSAV) ;RESTORE ROM # OUT (?ROMSEL),A ; POP BC /хю'NNNNNNNNNNNNNNNNNЎЎЎюG)ZУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,22 ;#########################################WжюNNNNNNNNNNNNNNNNNЎЎЎюG/рuNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DS 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS 1 DVRDTYP DS 1 ;RESj2юHNNNNNNNNNNNNNNNNNNЎЎЎюGLNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++ CNSCK: IF USEMON CALL GETMON JP ?CONSTS ELSE IN A,(?NTS) ;IF DATЋТюINNNNNNNNNNNNNNNNЎЎЎюGЈАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NTOST: IN A,(?NTS) CPL ;REVERSE SENSE AND A,1 SHL ?NTBSY JR П(ю$NNNNNNNNNNNNNNNNЎЎЎюGѓјNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы********************************************************** LO: IF USEMON CALL GETMON JP ?LSTOUT ELSE RET ENDIююINNNNNNNNNNNNNNNNNЎЎЎюGlwNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINATOR) ; EXIT - REGS= ? ; ;**********************и{юNNNNNNNNNNNNNNNNNЎЎЎюGЖСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTMON ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSG ;QUERY USER CALL EDITOR ; ; GET & ECHO US¤юNNNNNNNNNNNNNNNNNЎЎЎюG$,ЏNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы POP HL POP AF EI ;RE-ENABLE INTERRUPTS RET ;----------------------------------------------------------------------7fюrNNNNNNNNNNNNNNNNЎЎЎюG*ЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; ; COMMON I/O PARAMETER BLOCK ; ;######################################################@еюNNNNNNNNNNNNNNNNNNЎЎЎюG0г8NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыERVED FOR DISK TYPE ; ; DEFINE THE STRUCTURE SIZE ; DVRSIZ DS 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@юNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNяЂНЃњ‚iѓ7„…У…Ў†n‡;€‰Ц‰ЈЉp‹?ЊЌЫЌ©ЋwЏEђ‘б‘Ї’}“K”•е•ґ–‚—N™к™ёљ†›Tњ"ќрќѕћЊџZ )ЎцЎДў’Ј`¤-ҐыҐЙ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюGв¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TABLE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRО‡юњNNNNNNNNNNNNNNNNЎЎЎюGH NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы0,0,26,0,26,0,26,0 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0 ENDIF IF BOOT = 3 ALLDRV FD8EXEC,0,0,26,0,26,0,26,0 ALLDRV FDтџю NNNNNNNNNNNNNNNNNNЎЎЎюG §БNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECK SIZE DW 2 ;TRACK OFFSET ; ; DEFAULT DISK PHYSICAL PARAMETERS ; DB 0 ;FLAGS DB 26,0,26,0,26,0 ;SECTORS PER TRACK№tю9NNNNNNNNNNNNNNNNЎЎЎюG‡ЅNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы,1,64,1 ;64 SPT, 256 BPS ;############################################################################ ; ; MODE 2 INTERRUлЫю·NNNNNNNNNNNNNNNNЎЎЎюGhvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPTS ISCMSG: DM CR,LF,'ILL SYS CALL, #= ' ENDIF IF INTRIiюОNNNNNNNNNNNNNNNNNЎЎЎюGВРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBF ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLKt’ю9NNNNNNNNNNNNNNNNNЎЎЎюG%(ЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################### BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # BTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESERVED FOR FLAGS BTDMA DS фюNNNNNNNNNNNNNNNNNЎЎЎюG+ЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUM"уюњNNNNNNNNNNNNNNNNЎЎЎюG·яNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; #Z0= TRK 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= DATA HтюNNNNNNNNNNNNNNNNЎЎЎюGX4NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы8EXEC,1,0,26,0,26,0,26,0 ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64:№ю NNNNNNNNNNNNNNNNЎЎЎюGт’NNNNNNNNNNNNNNNNNNNNNNЎЎЎы, SECTOR SIZE (128) ;############################################################################ ; ; DEFAULT 8" HARD DIS,ёюњNNNNNNNNNNNNNNNNNЎЎЎюG*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPT VECTOR TABLE ; ;############################################################################ ; ; START ON AN EVEN PAGE ”‘юЙNNNNNNNNNNNNNNNNЎЎЎюG=%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int. Abort? (Y/N/I/M) - ' ENDIF ;########################yютNNNNNNNNNNNNNNNNЎЎЎюG Ч{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHEѕ™юИNNNNNNNNNNNNNNNNNЎЎЎюG&}ЭNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;########################################################################їТюNNNNNNNNNNNNNNNNNNЎЎЎюG,’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS AREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DDfю“NNNNNNNNNNNNNNNNЎЎЎюG„ОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDRV MACK юђNNNNNNNNNNNNNNNNNЎЎЎюG kNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ENDIF LIST ON ;#########################################################э.юNNNNNNNNNNNNNNNNNЎЎЎюGБЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыK PARAMETER BLOCK ; ;############################################################################ HDPBK: DW 128 ;SECTORS PER(™юNNNNNNNNNNNNNNNNNЎЎЎюG-NNNNNNNNNNNNNNNNNNNNNNЎЎЎыBOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT U№юNNNNNNNNNNNNNNNNЎЎЎюGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#################################################### ; ; DRIVE PARAMETER HEADER AREA ; 1 PER DRIVE ; ;#####################;юNNNNNNNNNNNNNNNNNЎЎЎюG!дJNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCATION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; ВOюrNNNNNNNNNNNNNNNNЎЎЎюG'NмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#### ; ; VARIABLES ; ;############################################################################ DTPTR: DS 2 ;DRIVE TABАвюNNNNNNNNNNNNNNNNNЎЎЎюG-Ў'NNNNNNNNNNNNNNNNNNNNNNЎЎЎы - 1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1щБюNNNNNNNNNNNNNNNNNЎЎЎюGYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD LIST ON DW #DADD DB 0 ;;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD DB #FG DюМюђNNNNNNNNNNNNNNNNЎЎЎюG >VNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################### ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ; IBM 3740 SINGLE DENSITY FORMAT ; ;########################МюдNNNNNNNNNNNNNNNNЎЎЎюGТоNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 ;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DI=юNNNNNNNNNNNNNNNNNNЎЎЎюGxHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF ;##########################################################±Ќю„NNNNNNNNNNNNNNNNNЎЎЎюG—ѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы####################################################### ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ниюњNNNNNNNNNNNNNNNЎЎЎюG"±NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READіъюNNNNNNNNNNNNNNNNNЎЎЎюG(^ТNNNNNNNNNNNNNNNNNNNNNNЎЎЎыLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIVER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTIOй‘ю NNNNNNNNNNNNNNNNNЎЎЎюG.фtNNNNNNNNNNNNNNNNNNNNNNЎЎЎы) >= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CdюВNNNNNNNNNNNNNNNNNЎЎЎюG.hNNNNNNNNNNNNNNNNNNNNNNЎЎЎыB #S0,#Z0,#S1,#Z1,#SD,#ZD DB 0 ;;DISK TYPE LIST OFF ENDM DVR0: IF BOOT = 10H ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 a‹юђNNNNNNNNNNNNNNNNNЎЎЎюG gNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы#################################################### SD8PBK: DW 26 ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOгoю·NNNNNNNNNNNNNNNNNЎЎЎюGбЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) DB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 gю$NNNNNNNNNNNNNNNNЎЎЎюGKyNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы################## ; ; MESSAGES ; ;############################################################################ MSGLE: DMЧLюњNNNNNNNNNNNNNNNNNЎЎЎюG¤ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ж—юNNNNNNNNNNNNNNNNNЎЎЎюG#‚(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;###############################################################-sюВNNNNNNNNNNNNNNNNЎЎЎюG)mгNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN ADDRESS ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM ;#####################################################################ю„NNNNNNNNNNNNNNNNЎЎЎюG/ЗENNNNNNNNNNNNNNNNNNNNNNЎЎЎыHECKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST hTюNNNNNNNNNNNNNNNNNNЎЎЎюG{;NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV FD8EXEC,gрюNNNNNNNNNNNNNNNNЎЎЎюG”рNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHў¬ю NNNNNNNNNNNNNNNNЎЎЎюGґЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) ; ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 64,1,64h–юNNNNNNNNNNNNNNNNNЎЎЎюG[GNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CR,LF,'LOAD ERROR' ; DSKEM: DB CR,LF,'Disk Error Status:' DM CR,LF,'CM DR TL TH SL SH FG AL AH AX ST S1 S2 S3 S4 S5',CR,LF ххюNNNNNNNNNNNNNNNNNЎЎЎюGсбNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы@@@@@@@ ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETER HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NRюВNNNNNNNNNNNNNNNNЎЎЎюG$їNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############# ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDER ; ;########################################################И`юјNNNNNNNNNNNNNNNNЎЎЎюG*8°NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## ; ; DRIVE ALLOCATION AREAS ; ;############################################################################ ;@@©ю'NNNNNNNNNNNNNNNNNЎЎЎюG0ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOFF ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;#############################################################{ЕюњNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃТЃЎ‚oѓ=„…Щ…¦†s‡@€‰Ь‰ЁЉu‹CЊЌЯЌЋ{ЏIђ‘е‘і’‚“P”•л•№–‡—U#™р™ѕљ‹›Yњ&ќфќБћЋџ] ,ЎщЎЗў”Јb¤0ҐюҐЛ¦ОNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюHrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############### ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;####################################################################ў юHNNNNNNNNNNNNNNNNNЎЎЎюH«ФNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@ёґюHNNNNNNNNNNNNNNNNNNЎЎЎюH DNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюHdcNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOT FALSE ;============================================================================ ; ; CONDITIONAL ASSEMBLY FLAGS ; ;ћю NNNNNNNNNNNNNNNNЎЎЎюH‹ЁNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************** ; ; CONFIGURATION: ; ; CPM ; DRIVE USAGE IF BOOT = 10H±юdNNNNNNNNNNNNNNNNNЎЎЎюH!NNNNNNNNNNNNNNNNNNNNNNЎЎЎыY PHYSICAL DRIVE 0 ; B JADE 5" FLOPPY PHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HЯУю$NNNNNNNNNNNNNNNNNЎЎЎюH%ЛPNNNNNNNNNNNNNNNNNNNNNNЎЎЎы6 - 20 FEB 83 ; DOUBLE D REV C UPGRADE. CHANGE BOARD STATUS PORT BITS. ; ; 2.2.7 - 8 MAR 83 GRH ; ADDED CLOCK/CALENDAR DRIVEрюrNNNNNNNNNNNNNNNNЎЎЎюH+и_NNNNNNNNNNNNNNNNNNNNNNЎЎЎыct half size directory, but keep ; allocation for 1k directory ; ; 2.02 - 2 JUN 84 GRH ; Change floppy disk drivers to relhmю\NNNNNNNNNNNNNNNNЎЎЎюHT!NNNNNNNNNNNNNNNNNNNNNNЎЎЎы######## STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= k¦юNNNNNNNNNNNNNNNNЎЎЎюH»кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@юNNNNNNNNNNNNNNNNNЎЎЎюHLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюHэфNNNNNNNNNNNNNNNNNNNNNNЎЎЎы============================================================================ SHORT EQU FALSE ;SHORT BIOS (REMOVES UNESENTIAL C‘•юBNNNNNNNNNNNNNNNЎЎЎюHЮыNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;HARD DISK BOOT CONFIG. ; A SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; B SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; CЗ9юNNNNNNNNNNNNNNNNЎЎЎюH 4ҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; G¤юNNNNNNNNNNNNNNNNNЎЎЎюH&ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR, SYSTEM CALL INTERCEPT, ; ILLEGAL SYSTEM CALL MESSAGE, CHANGED BIOS SIZE TO END ; OF INITIALIZED DATA AREA. RESTRUCTURE MODUЎ>юNNNNNNNNNNNNNNNNNNЎЎЎюH,qИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыate to ISASI control of JADE ; FDC. ; Change IOPB sector value from physical sector (1..n) to logical ; sector value (0c№юNNNNNNNNNNNNNNNЎЎЎюHgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы3, 2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EЈРюNNNNNNNNNNNNNNNNNЎЎЎюH €ЫNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIЄRюNNNNNNNNNNNNNNNNNЎЎЎюH"}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюHОЕNNNNNNNNNNNNNNNNNNNNNNЎЎЎыODE) LSTINC EQU FALSE ;LIST INCLUDE FILES USEMON EQU TRUE ;USE MONITOR ROM I/O ROUTINES IF TRUE INTRPTS EQU TRUE ;ENABLE IЭИю'NNNNNNNNNNNNNNNNNЎЎЎюHнКNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 1 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ; E JADE 8" FLOPPY PHYSICAL DRIVE 0рЅюNNNNNNNNNNNNNNNNNЎЎЎюH!”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы JADE 8" FLOPPY PHYSICAL DRIVE 0 ; H JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF ; ;*****************************************±.юNNNNNNNNNNNNNNNNЎЎЎюH'2NNNNNNNNNNNNNNNNNNNNNNЎЎЎыLES. ; ; 2.28 - 22 APR 83 GRH ; CHANGED DEFINITIONS TO ALLOW BIG DIRECTORIES. ; DISALLOWED DRIVES C & D. ; ; 2.29 - 3 SEЙ¦юNNNNNNNNNNNNNNNNNЎЎЎюH-BщNNNNNNNNNNNNNNNNNNNNNNЎЎЎы..n-1). This maintains more uniformity in ; parameter passing between hard disk & JADE floppy IOPBs. ; Vector I/O routines {КюBNNNNNNNNNNNNNNNNNЎЎЎюHю‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTENT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSMМјюINNNNNNNNNNNNNNNNЎЎЎюH Э€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE #D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL EюNNNNNNNNNNNNNNNNNNЎЎЎюH10NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюH›–NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTERRUPT PROCESSING WHISTLE INTCPTS EQU TRUE ;ENABLE SYSTEM CALL INTERCEPT WHISTLE BOOT EQU 3 ;10H: HARD DISK, 3: 8" FLOPPY,ЇюNNNNNNNNNNNNNNNNNЎЎЎюHt]NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; F JADE 8" FLOPPY PHYSICAL DRIVE 1 ENDIF IF BOOT = 3 ; A JADE 8" FLOPPY PHYSICAL DRIVE 0 ; B JADE 8" FLOPPY PШХюHNNNNNNNNNNNNNNNNЎЎЎюH"RЗNNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************** ; REVISIONS: ; ; 2.2.0 - RELEASE ; ; 2.2.3 - SWAPPED DCM & BIOS SECTORS ON DISK, ALLOWING A ; LІюrNNNNNNNNNNNNNNNNNЎЎЎюH(ЅNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыP 83 GRH ; Changed Rev # for blocked DCM. Enables IBM system 34 ; 256 bytes per sector disks to be read. ; ; 1.10 - 23 SEP(¤ю!NNNNNNNNNNNNNNNNЎЎЎюH.ЄNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыto monitor rom routines. ; ; 2.03 - 4 JUN 84 GRH ; Add bells & whistles again. ; Move to 61k system. ; ; 2.04 - 30 MAR 8m|юNNNNNNNNNNNNNNNNNЎЎЎюHН¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎы- DRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DI%-юNNNNNNNNNNNNNNNNЎЎЎюHо№NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDD + 1 LIST ON ENDM IF (($ - 8000H) > 07800H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! ***Ђ{юNNNNNNNNNNNNNNNNNNЎЎЎюHNNNNNNNNNNNNNNNNNNNNNNЎЎЎы TITLE CUSTOMIZED BIOS FOR M5B LIST NOCOND ;============================================================================ ; ю^юBNNNNNNNNNNNNNNNNЎЎЎюHЁ§NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 20H: 5" FLOPPY DEBUG EQU FALSE ;TRUE TO DUMP THE IOPB DATA TO PRINTER FORM ;********************************************а/ю!NNNNNNNNNNNNNNNNNЎЎЎюHGlNNNNNNNNNNNNNNNNNNNNNNЎЎЎыHYSICAL DRIVE 1 ; C SIDE 0 & 1 OF HARD DISK PHYSICAL DRIVE 0 ; D SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 0 ; E SIDE 0 & ГвюNNNNNNNNNNNNNNNNЎЎЎюH#aцNNNNNNNNNNNNNNNNNNNNNNЎЎЎыARGER BIOS ALLOCATION ON THE DISK. ; ; 2.2.4 - ADDED NAKED TERMINAL DRIVERS & IOBYTE IN ; ANTICIPATION OF THE MONITOR. ALњюrNNNNNNNNNNNNNNNNЎЎЎюH)Ћ=NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 83 GRH ; Move clock-calendar routines to ROM. Add Interrupt handler ; (Mode 2). Change Revision display of sign-on (separatЩCю$NNNNNNNNNNNNNNNNNЎЎЎюH/$›NNNNNNNNNNNNNNNNNNNNNNЎЎЎы5 GRH ; Implemented hard disk drive 1 as C: & D:. ; Implemented the Logon function for the hard disk. ; Implemented user fr?Ґю NNNNNNNNNNNNNNNNNNЎЎЎюHеNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRECTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECПtюBNNNNNNNNNNNNNNNNЎЎЎюHw.NNNNNNNNNNNNNNNNNNNNNNЎЎЎы* ENDIF END :yюNNNNNNNNNNNNNNNNЎЎЎюHWRNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; ASSEMBLY PARAMETERS ; ;============================================================================ FALSE EQU 0 TRUE EQU NЇ7ю!NNNNNNNNNNNNNNNNЎЎЎюHё™NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************** ; ; CUSTOMIZED BIOS FOR M5B ; (c) 1981 GRH Electronics, CUPERTINO, CA ; ;************QУю9NNNNNNNNNNNNNNNNNЎЎЎюH?NNNNNNNNNNNNNNNNNNNNNNЎЎЎы1 OF HARD DISK PHYSICAL DRIVE 1 ; F SIDE 2 & 3 OF HARD DISK PHYSICAL DRIVE 1 ENDIF IF BOOT = 20H ; A JADE 5" FLOPP±юdNNNNNNNNNNNNNNNNNЎЎЎюH$шaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSO, ALL REFERENCES ; REQUIRING THE I/O PROMS TO BOOT HAS BEEN REMOVED. ; ; 2.2.5 - RECONFIGURE FOR 62K SYSTEM. ; ; 2.2. °юNNNNNNNNNNNNNNNNNNЎЎЎюH*ЫnNNNNNNNNNNNNNNNNNNNNNNЎЎЎыe CBIOS rev). ; ; 2.00 - 24 MAR 84 GRH ; Modify for hard disk ; ; 2.01 - 28 APR 84 GRH ; Change hard disk DPB to refleхчюNNNNNNNNNNNNNNNNЎЎЎюH07ЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎыiendly disk error options: Abort, Retry, Ignore. ; Solved warm boot hang problem by reseting host adapter if busy. ; ; 3.00 -h=ю9NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNяЂМЃљ‚gѓ4„…Р…ќ†k‡9€‰Ф‰ЎЉn‹<ЊЌШЌҐЋsЏBђ‘Э‘Є’x“F”•б•Ї–}—J™е™іљЂ›Nњќйќ¶ћ…џS "ЎпЎЅў‹ЈY¤'ҐхҐВ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюH6BNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 26 JAN 87 GRH ; Implemented new common IOPB code & Jade floppy firmware support. ; Implemented disk drive driver tables andдюNNNNNNNNNNNNNNNNЎЎЎюHњдNNNNNNNNNNNNNNNNNNNNNNЎЎЎы========================================================== ; ; INCLUDE JDDCONT.DEF ; INCLUDE COMIOPB.DEF ; INCLUDE JDDDISK.DУЃюNNNNNNNNNNNNNNNNNЎЎЎюH s/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыS: EQU 60 ;SYSTEM SIZE IN K BYTES KBYTE: EQU 1024 CPMSZ: EQU KBYTE * NKSYS CPMBS: EQU CPMSZ - (20 * KBYTE) ; CP/M BIAS VALUEаKюNNNNNNNNNNNNNNNNЎЎЎюHSSNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы========================== ; ; OTHER DECLARATIONS ; ;=======================================================================иuютNNNNNNNNNNNNNNNNЎЎЎюHјNNNNNNNNNNNNNNNNNNNNNNЎЎЎы================================================= ; ; ADDRESSES ; ;=========================================================вшюNNNNNNNNNNNNNNNNNЎЎЎюH>NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GXLATE MACRO #SECTORS, #SKEW LIST OFF NXTSEC DL 1 ;KЁюОNNNNNNNNNNNNNNNNNЎЎЎюH%ь`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF IF DD > 999 DB (DD / 1000) + '0' DD DL DD % 1000 ENDIF DB (DD / 100) + '0' DB '.' DB ((DD % 100) / 1ш#юњNNNNNNNNNNNNNNNNЎЎЎюH+ЯoNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыKWR ;PERFORM DISK WRITE JP LISTST ;RETURN LIST STATUS JP SECTRN ;TRANSLATE SECTOR JP BIOFUNC ;EXECUTE FUNCTION CALL L+юHNNNNNNNNNNNNNNNNNЎЎЎюHcNNNNNNNNNNNNNNNNNNNNNNЎЎЎы new function to return ; a ptr to a drive table. ; Removed init of IOBYTE. ; Implemented 5" floppy driver. ; Implemented us•юNNNNNNNNNNNNNNNNNЎЎЎюHЊЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыEF ; INCLUDE MONBOARD.DEF ; INCLUDE IOBOARD.DEF ; INCLUDE NAKEDT.DEF ; INCLUDE ISHA.DEF ; INCLUDE CLOCK.DEF ; INCLUDE SYSD'юњNNNNNNNNNNNNNNNNЎЎЎюH&|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CCP: EQU CPMBS + 3400H ;ADDR OF CCP BDOS: EQU CPMBS + 3C00H ;ADDRESS OF BDOS BIOS: EQU CPMBS + 4A00H ;ADDRESS OF BDOS BIOSRОFю$NNNNNNNNNNNNNNNNNЎЎЎюHКДNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы===== SECSZ: EQU 128 NDRVS: EQU 6 IF BOOT = 10H ; ; 8" HARD DISK BOOT DATA ; LASTSEC EQU 47 ;LAST BOOT SECTOR ; SЗfюNNNNNNNNNNNNNNNNЎЎЎюHйЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы=================== CALROM EQU 7 ;CALENDAR ROM SELECT # RDBENT EQU 0F800H ;READ CLOCK BUFFER ENTRY SETENT EQU RDBENT + 3 ;SоXюBNNNNNNNNNNNNNNNNЎЎЎюH •NNNNNNNNNNNNNNNNNNNNNNЎЎЎы;START WITH SECTOR 1 LOWEST DL 1 ;; REPT #SECTORS LIST ON DB NXTSEC LIST OFF NXTSEC DL NXTSEC + #SKEW ;ADD SKEW FACTOЗEю№NNNNNNNNNNNNNNNNNЎЎЎюH&©3NNNNNNNNNNNNNNNNNNNNNNЎЎЎы0) + '0' DB (DD % 10) + '0' ENDM SUBTTL BIOS CODE ORG BIOS ;-------------------------------------------------------‘;юNNNNNNNNNNNNNNNNNNЎЎЎюH,FшNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; THESE BOOT PARAMS MUST RESIDE AS DEFINED tюrNNNNNNNNNNNNNNNЎЎЎюHP NNNNNNNNNNNNNNNNNNNNNNЎЎЎыse of ROM primitives. ; Moved system down to 60k. ; ; 3.01 26 JUN 88 GRH ; Remove 5" floppy support. Implement in CP/M-86 B7@ю„NNNNNNNNNNNNNNNNЎЎЎюH їлNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIR.DEF ; ;============================================================================ LIST OFF *INCLUDE JDDCONT.DEF *INCLф;ю NNNNNNNNNNNNNNNNNЎЎЎюHMNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: EQU 1000H - BIOS ; ; PAGE 0 LOCATIONS ; PAGE0: EQU 0 ;START OF CP/M RAM IOBYTE: EQU PAGE0 + 3 ;IOBYTE ADDR DEFDRV: EQюNNNNNNNNNNNNNNNNNNЎЎЎюHщхNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTHD EQU 0 ;START LOGICAL DRIVE OF HARD DISK NDHD EQU 3 ;LAST LOGICAL DRIVE OF HARD DISK ST8FD EQU 4 ;START LOGICAL DRIVE OFл юNNNNNNNNNNNNNNNNЎЎЎюHЪъNNNNNNNNNNNNNNNNNNNNNNЎЎЎыET CLOCK ENTRY CALENT EQU RDBENT + 6 ;RETURN CALENDAR ENTRY TIMENT EQU RDBENT + 9 ;RETURN TIME ENTRY DKPENT EQU RDBENT + 0CH Wю№NNNNNNNNNNNNNNNNЎЎЎюH!0¤NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR ;; IF NXTSEC > #SECTORS ;CHECK FOR OVERFLOW NXTSEC DL NXTSEC - #SECTORS ;; IF NXTSEC <= LOWEST ;CHECK FOR REPEAT Nфю“NNNNNNNNNNNNNNNNЎЎЎюH'љNNNNNNNNNNNNNNNNNNNNNNЎЎЎы--------------------- ; ; BIOS JUMP VECTOR TABLE ; ;----------------------------------------------------------------------1+юNNNNNNNNNNNNNNNNNЎЎЎюH-uЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIGHT BEFORE THE COLD INIT ; ROUTINE START AND MUST BE IN THE 1ST SECTOR. THESE 2 WORDS ARE REFERENCED ; BY THE BOOT CODE INЈчюNNNNNNNNNNNNNNNNNЎЎЎюHЙ·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыIOS. ; Change single function to return drive table ptr into a BIOS function ; call using restart instruction. ; Change LOGQіюдNNNNNNNNNNNNNNNNЎЎЎюH кёNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUDE COMIOPB.DEF *INCLUDE JDDDISK.DEF *INCLUDE MONBOARD.DEF *INCLUDE IOBOARD.DEF *INCLUDE NAKEDT.DEF *INCLUDE ISHA.DEF *INC.7юNNNNNNNNNNNNNNNNЎЎЎюHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыU PAGE0 + 4 ;DEFAULT DRIVE PARAM ADDR BDOSJV EQU PAGE0 + 5 ;BDOS SYSTEM CALL ENTRY DKPROM EQU PAGE0 + 40H ;DISK PRIMITIVES PROД-юдNNNNNNNNNNNNNNNNNЎЎЎюH¬¦NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 8" FLOPPY ND8FD EQU 5 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF IF BOOT = 3 ; ; 8" FLOPPY BOOT DATA ; LASTSEC EQU кџю„NNNNNNNNNNNNNNNNNЎЎЎюHCmNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы;DISK PRIMITIVES ENTRY ;============================================================================ ; ; ASCII CHARS ; >юЙNNNNNNNNNNNNNNNNЎЎЎюH"eчNNNNNNNNNNNNNNNNNNNNNNЎЎЎыXTSEC DL LOWEST + 1 LOWEST DL NXTSEC ENDIF ENDIF ;; ENDM LIST ON ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)®юNNNNNNNNNNNNNNNNNЎЎЎюH(ЉюЙNNNNNNNNNNNNNNNNЎЎЎюH@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; DISK OPERATING SYSTEM ADDRESSES ; ;============================================================================ NKSYГюoNNNNNNNNNNNNNNNNЎЎЎюH`bNNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNRSV EQU PAGE0 + BFUNRST BFUNRSI EQU 0C7H + BFUNRST ; TPA: EQU 100H ;==================================================JоюNNNNNNNNNNNNNNNNNЎЎЎюHЏ©NNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ;START LOGICAL DRIVE OF 8" FLOPPY ND8FD EQU 1 ;LAST LOGICAL DRIVE OF 8" FLOPPY ENDIF ;===========================џеюNNNNNNNNNNNNNNNNNЎЎЎюH%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE TRANSLATION TABLE MACRO ; ;@@@@@JЩюNNNNNNNNNNNNNNNNNЎЎЎюH$ПQNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PVERS MACRO #VERS DD DL #VERS IF DD > 9999 DB (DD / 10000) + '0' DD DL DD % 10000ґМю NNNNNNNNNNNNNNNNЎЎЎюH*м^NNNNNNNNNNNNNNNNNNNNNNЎЎЎыVE JP SETTRK ;SET TRACK # JP SETSEC ;SET SECTOR # JP SETDMA ;SET TRANSFER ADDR JP DISKRD ;PERFORM DISK READ JP DISюNNNNNNNNNNNNNNNNЎЎЎюH0жNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCONTINUE ON WITH INIT ; INIT1: JR INIT ;############################################################################ ; кеюђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЃСЃ ‚mѓ:„…Х…Ј†p‡>€‰Ъ‰§Љt‹BЊЌЯЌ®Ћ|ЏJђ‘е‘І’Ђ“N”•и•¶–„—R ™о™јљ‰›Wњ$ќтќАћЋџ[ )ЎцЎГў‘Ј_¤,ҐъҐИ¦ћNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюIwЖNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; DIRECTORY SECTOR BUFFER STARTS HERE AFTER CRUNCHING COLD START ; CODE. THIS BUFFER IS USED BY THE CP/M DIRECTORY CHECK ROUTIь„юBNNNNNNNNNNNNNNNNЎЎЎюIЭ`NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-ON ; CLOGO: LD HL,MSGSO CALL EDITOR ; ; MODIFY COLD START VECTOR TO WARM START ; LD HL,(BIOS+4) LD (BIOS+1),HL ; IюNNNNNNNNNNNNNNNNNNЎЎЎюI 2«NNNNNNNNNNNNNNNNNNNNNNЎЎЎы-- ; ; WARM REBOOT ENTRY LOADS CCP,BDOS FROM DISK & ; SETS UP VARIABLES ; ;------------------------------------------------“юNNNNNNNNNNNNNNNNЎЎЎюIЧNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL XPRIM ; NTHUNG: ENDIF ; ; LOG ON DRIVE TO INIT TABLES ; LD A,(DKPROM + 1) AND A,3 ;MODULO 4 LD C,A LDА(ю$NNNNNNNNNNNNNNNNЎЎЎюIэNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCP/BDOS ; WREAD: CALL DISKRD JR NZ,WEROR ;IF ERROR THEN EXIT ; ; NEXT SECTOR ; LD HL,BTSEC INC (HL) ; LD DE,SECS?ю!NNNNNNNNNNNNNNNNЎЎЎюIWєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыROR: LD HL,MSGLE ;OUTPUT ERROR MESSAGE CALL EDITOR HALT ; ; ; BOOT OK, INIT PAGE 0 ; WZRPG: ; ; INIT BIOS WARM ST5!юdNNNNNNNNNNNNNNNNNЎЎЎюI%ЅдNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRIVE AND A,11000000B ;TEST UNUSED BUT DRIVEN BITS (1S IF NOT THERE) LD A,38H ;COND. JR (ON) JR Z,CLKON ; LD A,18H ;UNАюHNNNNNNNNNNNNNNNNNЎЎЎюI+ћлNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++ DISKWR: LD A,DDWRS ;SELECT WRITE OP JP DISKOP ;++++++++++++++++++++++++++++++++++++Ѓю!NNNNNNNNNNNNNNNNЎЎЎюI"•NNNNNNNNNNNNNNNNNNNNNNЎЎЎыNES THAT ; CHECK FOR DISK CHANGE. ; ;############################################################################ DIRBF: EQ]ЗюNNNNNNNNNNNNNNNNNNЎЎЎюIН^NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; BOOT CCP & BDOS ; JR WARM ;############################################################################ ; ; SIGN-З@юNNNNNNNNNNNNNNNNЎЎЎюIgшNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы---------- WARM: IF INTRPTS ; ; SET INTERRUPT VECTOR TABLE BASE ; LD A,HIGH INTABL LD I,A ; ; SET INTERRUPT MODЈяюrNNNNNNNNNNNNNNNNNЎЎЎюI‹@NNNNNNNNNNNNNNNNNNNNNNЎЎЎы E,0 CALL SELDSK LD A,L ;IF ERROR THEN ABORT OR A,H JR Z,WEROR ; ; READ BOOT DIRECTORY ; LD BC,DEFBFR ;SET XFE§юINNNNNNNNNNNNNNNNЎЎЎюIЁONNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ ;DMA := DMA + SECTOR SIZE LD HL,(BTDMA) ADD HL,DE LD (BTDMA),HL ; ; IF NOT INTO BDOS THEN READ NEXT SECTOR ; LD Drђю9NNNNNNNNNNNNNNNNЎЎЎюI BNNNNNNNNNNNNNNNNNNNNNNЎЎЎыART IN PAGE 0 ; LD A,0C3H LD HL,BIOS + 3 LD (PAGE0),A LD (PAGE0 + 1),HL ; ; INIT BDOS CALL VECTOR IN PAGE 0 ; LDчFюHNNNNNNNNNNNNNNNNNЎЎЎюI&и·NNNNNNNNNNNNNNNNNNNNNNЎЎЎыCOND. JR (OFF) (CAUSES JUMP TO ILLEGAL) ; CLKON: LD (INHCLK),A ; ENDIF ; ; PASS DEFAULT DISK TO CCP ; LD A,(DEFDRV)ЭюNNNNNNNNNNNNNNNNNNЎЎЎюI,|NNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ ; ; SELECT DRIVE FUNCTION ; LOG-ON - SET DISK PARAMETER BLOCK ; ENTRY- C= DRIVE # jоюNNNNNNNNNNNNNNNNЎЎЎюI¤NNNNNNNNNNNNNNNNNNNNNNЎЎЎыU $ ;BUFFER BEGINNING ;---------------------------------------------------------------------------- ; ; INIT - COLD ©пюNNNNNNNNNNNNNNNNNЎЎЎюI юoNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыON MESSAGE ; ;############################################################################ MSGSO: DB CR,LF DB CPMSZ / (KBYTЙ¤юNNNNNNNNNNNNNNNNNЎЎЎюITЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE TO 2 ; IM 2 ; ; ENABLE INTERRUPT VECTOR 7 ; IN A,(INTMSK) AND A,7FH OUT (INTMSK),A ; ; FINALLY ENABLE VECTORиьюBNNNNNNNNNNNNNNNNNЎЎЎюIёqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ADDRESS (USE DEFAULT BUFFER) CALL SETDMA ; LD BC,?DIRSEC ;SET DIRECTORY SECTOR CALL SETSEC ; LD BC,0 ;SET TRACK TO bVюrNNNNNNNNNNNNNNNNЎЎЎюI›~NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE,BDOS XOR A,A SBC HL,DE JR C,WREAD ; ; ELSE IF AT BEGINNING OF BDOS THEN SET UP NEW TRACK & SECTOR ; JR Z,RDBDOS сsюNNNNNNNNNNNNNNNNNNЎЎЎюI!q NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы HL,BDOS + 6 LD (BDOSJV),A LD (BDOSJV + 1),HL ; ; INIT BIOS CALL VECTOR IN PAGE 0 ; LD HL,BIOFUNC LD (BFUNRSV),A ;юNNNNNNNNNNNNNNNNЎЎЎюI'Ы†NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD C,A JP CCP SUBTTL BIOS DISK FUNCTION ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++PфюrNNNNNNNNNNNNNNNNNЎЎЎюI-4MNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; E= 0 IF NEW SELECT ; EXIT - HL= PTR TO DPT OR 0 FOR ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#ЅюNNNNNNNNNNNNNNNNNЎЎЎюI€3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыSTART ENTRY FROM BOOT MUST SET ALL BIOS PARAMS ; ;----------------------------------------------------------------------------±юHNNNNNNNNNNNNNNNNЎЎЎюI « (DIRBF + SECSZ) CONMSG **** WARNING! COLD INIT CODE BIGGER THAN DIR BUFFER **** ELSE DS DI‹юINNNNNNNNNNNNNNNNNЎЎЎюItµNNNNNNNNNNNNNNNNNNNNNNЎЎЎы INSURE MONITOR ROM STILL ENABLED ; CALL GETMON ; IF BOOT = 10H ; TEST ISHA HOST ADAPTER FOR A HUNG CONDITION AND C°Йю[NNNNNNNNNNNNNNNNЎЎЎюIЮNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEROR ; ; SET UP TO LOAD CCP/BDOS ; LD HL,(DEFBFR + ?DSBDSS) ;PREFETCH BDOS TRK/SECTOR PUSH HL ; LD HL,(DEFBFR + ?DSCљQю9NNNNNNNNNNNNNNNNNЎЎЎюI1ШNNNNNNNNNNNNNNNNNNNNNNЎЎЎыM ; JP WZRPG ; ; ; ELSE SET UP & READ BDOS ; RDBDOS: POP HL ;RESTORE BDOS TRK/SECTOR FROM DIRECTORY LD C,L LD B,AЯTюоNNNNNNNNNNNNNNNNNЎЎЎюI#BNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNTO INTERCEPT CODE ; LD HL,(BDOS + 7) LD (BDOSV),HL ; ; NOW PUT INTERCEPT VECTOR INTO BDOS CODE ; LD HL,INTCPT LD U©юNNNNNNNNNNNNNNNNNNЎЎЎюI)ш‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++ DISKRD: LD A,DDRDS ;SELECT READ OP JP DISKOP ;+++++++++++++++++++++++++++++++++++++++++++++++++++++XюNNNNNNNNNNNNNNNNЎЎЎюI/R/NNNNNNNNNNNNNNNNNNNNNNЎЎЎыA,C CP A,NDRVS RET NC ; ; STORE DRIVE # FOR FUTURE USE ; LD (BTDRV),A ; ; SAVE LOGON REQUEST FLAG ; LD A,E Lѓ%юNNNNNNNNNNNNNNNNNЎЎЎюIоQNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; INIT DEFAULT DRIVE ; LD A,(DKPROM + 1) ;USE DRIVE # PASSED IN PAGE 0 AND A,3 LD (DEFDRV),A ; ; SEND SYSTEM SIGN`ю$NNNNNNNNNNNNNNNNЎЎЎюIљNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRBF+SECSZ-$ ;FILL OUT DIRECTORY BUFFER TO 1 SECTOR SIZE ENDIF ;--------------------------------------------------------&ўюNNNNNNNNNNNNNNNNЎЎЎюI!жNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыLEAR IF TRUE ; IN A,(HSTATUS) ;IF HOST ADAPTER BUSY THEN BIT HBUSYB,A JR Z,NTHUNG ; LD A,DDCLR LD (IOPB + PBCMDO),A 9ГюNNNNNNNNNNNNNNNNNЎЎЎюIО-NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыCPS) ;FETCH CCP TRK/SECTOR LD C,L LD B,0 CALL SETSEC ; LD C,H CALL SETTRK ; LD BC,CCP CALL SETDMA ; ; READ C9юINNNNNNNNNNNNNNNNNЎЎЎюId‹NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;A STILL CONTAINS 0 CALL SETSEC ; LD C,H CALL SETTRK ; JR WREAD ; ; ; WARM BOOT ERROR, OUTPUT MSG & HALT ; WEЎПюNNNNNNNNNNNNNNNNЎЎЎюI$ЋХNNNNNNNNNNNNNNNNNNNNNNЎЎЎы(BDOS + 7),HL ; ; INITIALIZE CLOCK VECTORS IF CLOCK INSTALLED ; IN A,(CLKDAT) ;IF CLOCK NOT PRESENT THEN TURN OFF CLOCK D-”юBNNNNNNNNNNNNNNNNЎЎЎюI*ЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++ ; ; WRITE A DISK SECTOR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++++++++++++++YуюмNNNNNNNNNNNNNNNNNЎЎЎюI0AbNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD (LOGRQ),A ; ; COMPUTE DISK DRIVER TABLE PTR ; CALL RETDVRT ;DRIVE IS STILL IN C REGISTER LD (DVRTPTR),HL ; ; PRE)CюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNОNNяЂМЃ›‚hѓ5„…Р…ћ†l‡:€‰Х‰ўЉo‹=ЊЌЩЌ§ЋuЏDђ‘Ю‘¬’z“H”•г•±–—M™и™¶љ„›Rњќнќєћ€џV %ЎтЎАўЋЈ\¤*ҐчҐЕ¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюI@цNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFETCH DRIVER EXECUTION ADDRESS FROM TABLE ; LD E,(HL) ;STORE ADDRESS INC HL LD D,(HL) INC HL LD (DVRXADR),DE ; ; Ќmю№NNNNNNNNNNNNNNNNЎЎЎюIкPNNNNNNNNNNNNNNNNNNNNNNЎЎЎыJR NZ,LGDEF ; ; ELSE XFER ID SECTOR DATA TO TABLES ; CALL TRNONE ;ASSUME NO TRANSLATION ; ; IF HARD DISK OR DOUBLE D,LюNNNNNNNNNNNNNNNNNNЎЎЎюI ›NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDHD + 1 JR NC,LGCKFD ; ; ELSE USE HARD DISK DEFAULTS ; CALL TRNONE ; NO XLATE LD HL,HDPBK ; ; XFER DATA TO TABLь}юNNNNNNNNNNNNNNNNЎЎЎюI%зNNNNNNNNNNNNNNNNNNNNNNЎЎЎыBC RET ;**************************************************************************** ; ; SET SECTOR ; ENTRY- BC= SECTOЛѕюNNNNNNNNNNNNNNNNЎЎЎюIК,NNNNNNNNNNNNNNNNNNNNNNЎЎЎыUNCHANGED ; A, DE= ? ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SECTRN: ; ; IF NO ~ҐюNNNNNNNNNNNNNNNNNNЎЎЎюI`ЉNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFAULT BUFFER ; LD HL,DEFBFR LD (IOPB + PBDMAO),HL XOR A,A LD (IOPB + PBDMAXO),A ; ; SET DESCRIPTOR SECTOR SECTOR ;]юјNNNNNNNNNNNNNNNNЎЎЎюI%ЉФNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыSAVE IY LD IY,(DVRTPTR) ;FETCH TABLE BASE ; LD HL,DKOPRET ;PUT RETURN ADDRESS ON STACK PUSH HL ; LD HL,(DVRXADR) ;FETCЅЂюђNNNNNNNNNNNNNNNNNЎЎЎюI+©ЫNNNNNNNNNNNNNNNNNNNNNNЎЎЎыD C,A ;ECHO CHAR CALL COC POP AF ; AND A,5FH ;INSURE UPPER CASE ; ; IF RETRY THEN RETURN TO CALLER ; CP A,'R' ;…юNNNNNNNNNNNNNNNNNЎЎЎюIҐNNNNNNNNNNNNNNNNNNNNNNЎЎЎы FETCH FLAGS ; LD C,(HL) ; ; COMPUTE DISK PARAMETER TABLE ADDRESS ; LD HL,(BTDRV) LD H,0 ADD HL,HL ;DISK # * 16 лю“NNNNNNNNNNNNNNNNNЎЎЎюIъnNNNNNNNNNNNNNNNNNNNNNNЎЎЎыENSITY THEN NO TRANSLATION ; LD A,(DEFBFR + IDFLGO) AND A,[1 SHL DFDTDB] OR [1 SHL DFHARDB] ; ; ELSE SET TRANSLATION ;±7юNNNNNNNNNNNNNNNNЎЎЎюIPИNNNNNNNNNNNNNNNNNNNNNNЎЎЎыES ; SEL2: PUSH HL CALL DPBAD ; USE DEFAULT TABLE POP HL LD BC,DPBSZ LDIR JR SEL1 ; ; ; USE 8" FLOPPY DEFAULTІюдNNNNNNNNNNNNNNNNNЎЎЎюIјpNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыR # ; ;**************************************************************************** SETSEC: LD (BTSEC),BC RET ;*****§fюОNNNNNNNNNNNNNNNNЎЎЎюIџNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTRANSLATION THEN RETURN SECTOR++ ; LD A,D ;IF TABLE ADDR = 0 THEN NO TRANSLATION OR A,E JP Z,NOTRAN ; ; ELSE CALCULATw$юNNNNNNNNNNNNNNNNЎЎЎюI u!NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы LD HL,2 LD (IOPB + PBSECO),HL ; ; SET DESCRIPTOR SECTOR TRACK ; LD L,H ;H == 0 FROM LAST OPERATION (HL= 0) LD (IO6ю„NNNNNNNNNNNNNNNNNЎЎЎюI&Я‡NNNNNNNNNNNNNNNNNNNNNNЎЎЎыH DRIVER ADDRESS PREFETCHED FROM TABLE JP (HL) ; ; DRIVER RETURNS HERE ; DKOPRET: POP IY ; ; IF NO ERRORS THEN RET‘]ю°NNNNNNNNNNNNNNNNNNЎЎЎюI,0LNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIF RETRY THEN RETURN TO CALLER JR Z,DKOPLP ; ; ELSE IF ABORT THEN DO WARM BOOT ; CP A,'A' ;IF ABORT THEN RE-BOOT JP ОRюNNNNNNNNNNNNNNNЎЎЎюI&”NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ADD HL,HL ADD HL,HL ADD HL,HL LD DE,D0DPH ADD HL,DE ; ; IF NOT FIRST SELECT OR LOGON INHIBITED THEN RETURN TABLE PTч~ю9NNNNNNNNNNNNNNNNЎЎЎюI Й_NNNNNNNNNNNNNNNNNNNNNNЎЎЎы CALL Z,TR8 ; ; XFER DISK DATA TO DPB ; NOX: CALL DPBAD ;GET ADDR OF DPB LD HL,DEFBFR + IDSPTO LD BC,DPBSZ LDIR бЇю NNNNNNNNNNNNNNNNNЎЎЎюIcщNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS ; LGCKFD: CALL TR8 LD HL,SD8PBK JR SEL2 ;**************************************************************************XґюNNNNNNNNNNNNNNNNNNЎЎЎюIЏANNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*********************************************************************** ; ; SET TRANSFER ADDR ; ENTRY- BC= ADDRESS ; EXIT - ую!NNNNNNNNNNNNNNNNЎЎЎюI¬NNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыE NEW SECTOR FROM TABLE ; EX DE,HL ADD HL,BC LD L,(HL) ; LD H,0 RET ; ; ; CONVERT FROM CP/M'S LOGICAL SECTOR {0:юyNNNNNNNNNNNNNNNNЎЎЎюI!FNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPB + PBTRKO),HL ; ; PASS COMMAND TO EXECUTOR ; LD A,DDLOG JR DISKOP2 ;++++++++++++++++++++++++++++++++++++++++++++›юNNNNNNNNNNNNNNNNЎЎЎюI'м¶NNNNNNNNNNNNNNNNNNNNNNЎЎЎыURN ZF ; RET Z ;IF NO_ERROR THEN RETURN ; ; PRINT ERROR ; LD HL,DSKEM ;OUTPUT PREFIX CALL EDITOR ; LD DE,IOPB NYюNNNNNNNNNNNNNNNNNЎЎЎюI-}NNNNNNNNNNNNNNNNNNNNNNЎЎЎыZ,0 ; ; ELSE IF IGNORE THEN RETURN NO ERROR ; SUB A,'I' ;IF IGNORE THEN RETURN NO ERROR RET Z ; ; ELSE RETURN ERROИЪю NNNNNNNNNNNNNNNNNЎЎЎюIїNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR ; LD A,(LOGRQ) OR A,C CPL AND A,1 RET Z ; ; ELSE LOG ON DRIVE ; LD (DTPTR),HL ;SAVE DRIVE TABLE PTR ; ; ї ю NNNNNNNNNNNNNNNNЎЎЎюI њNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ; XFER DISK PHYSICAL DATA TO TABLE ; LD HL,DEFBFR + IDFLGO ; SEL1: PUSH HL LD HL,(DVRTPTR) LD DE,DVRFLG ADD HL,ЩцюдNNNNNNNNNNNNNNNNЎЎЎюIpґNNNNNNNNNNNNNNNNNNNNNNЎЎЎы** ; ; HOME DRIVE - TREAT AS SEEK TRK 0 ; EXIT - BC= 0 ; ;***************************************************************N„ю„NNNNNNNNNNNNNNNNNЎЎЎюIЪNNNNNNNNNNNNNNNNNNNNNNЎЎЎыA= 0 ; ;**************************************************************************** SETDMA: LD (BTDMA),BC XOR A,A LD (BTо!юNNNNNNNNNNNNNNNNNЎЎЎюI5ЩNNNNNNNNNNNNNNNNNNNNNNЎЎЎы..N-1} TO PHYSICAL SECTOR {1..N} ; NOTRAN: LD HL,1 ADD HL,BC RET SUBTTL DISK SUPPORT ROUTINES ;+++++++++++++++++m*ю·NNNNNNNNNNNNNNNNЎЎЎюI"CNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++ ; ; COMMON DISK I/O CODE ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++++…ЎюNNNNNNNNNNNNNNNNNЎЎЎюI(ь€NNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD B,IOPBSZ DSKER1: LD A,(DE) ;FETCH ERROR BYTE PUSH DE ;SAVE REGS PUSH BC CALL PRHEX ;OUTPUT ERROR CODE ; LD C,+єюNNNNNNNNNNNNNNNNЎЎЎюI.V.NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыR TO BDOS ; FDSKER: LD HL,0 ;RETURN DPB_PTR = 0 FOR SELECT FUNCTION LD A,-1 ;RETURN -1 TO BDOS OR A,A RET ;******X®юNNNNNNNNNNNNNNNNNЎЎЎюIЊ2NNNNNNNNNNNNNNNNNNNNNNЎЎЎыATTEMPT TO READ ID SECTOR ; XOR A,A ;INIT FLAG BYTE UNTIL FIRMWARE REVISED LD (IOPB + PBST2O),A ; CALL DISKLOG JP NZ,{•ю„NNNNNNNNNNNNNNNNЎЎЎюIЇ=NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDE EX DE,HL POP HL LD BC,DVRSIZ - DVRFLG LDIR ; ; RETURN DRIVE TABLE PTR ; LD HL,(DTPTR) XOR A,A RET ; ; ;ЊНю„NNNNNNNNNNNNNNNNNЎЎЎюIC…NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы************* HOME: LD BC,0 ;**************************************************************************** ; ; SET TRACK ;ЛюNNNNNNNNNNNNNNNNЎЎЎюIй#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыDMAX),A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; SECTOR TRANSLATION FUNCTI*юдNNNNNNNNNNNNNNNNNЎЎЎюIиNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; LOGON DISK FUNCTION ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++DкюЙNNNNNNNNNNNNNNNNЎЎЎюI# rNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ DISKOP: ; ; SET UP IOPB ; LD HL,BTTRK LD DE,IOPB + PBTRKO LD BC,PBSTATw„юNNNNNNNNNNNNNNNNЎЎЎюI)П№NNNNNNNNNNNNNNNNNNNNNNЎЎЎы' ' CALL COC ; POP BC ;RESTORE REGS POP DE INC DE ;NEXT ERROR BYTE DJNZ DSKER1 ;IF NOT DONE THEN LOOP ; LD HL,Dќгю“NNNNNNNNNNNNNNNNNЎЎЎюI/eNNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************************** ; ; SET 3740 SECTOR TRANSLATION PROCEDURE ; ENTRY- (DTЫ)юђNNNNNNNNNNNNNNNNNNЎЎЎюIЩaNNNNNNNNNNNNNNNNNNNNNNЎЎЎыFDSKER ; ; IF NO ID SECTOR THEN USE DEFAULTS ; LD A,(IOPB + PBST2O) CP A,-2 ;0: NO ID, -1: JADE ID, -2: EXTENDED ID чюlNNNNNNNNNNNNNNNNЎЎЎюI6ЄNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы IF NOT HARD DISK THEN GO DO FLOPPY TEST ; LGDEF: LD A,(BTDRV) IF STHD <> 0 CP A,STHD JR C,LGCKFD ENDIF CP A,NЯюNNNNNNNNNNNNNNNNЎЎЎюIЦNNNNNNNNNNNNNNNNNNNNNNЎЎЎы# ; ENTRY- BC= TRACK # ; ;**************************************************************************** SETTRK: LD (BTTRK),Ѕхю·NNNNNNNNNNNNNNNNNЎЎЎюIщNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыON ; ENTRY- DE= 0: NO XLATE, ELSE PTR TO XLATE TABLE ; BC= SECTOR # TO XLATE ; EXIT - HL= XLATED SECTOR OR (BC) + 1 ; BC= ґю„NNNNNNNNNNNNNNNNNЎЎЎюIS»NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISKLOG: ; ; SET DESCRIPTOR SECTOR XFER ADDRESS TO DEbюNNNNNNNNNNNNNNNNNЎЎЎюI$№еNNNNNNNNNNNNNNNNNNNNNNЎЎЎыO - PBTRKO LDIR ; DISKOP2: LD (IOPB + PBCMDO),A ; ; FETCH DRIVER VECTOR & EXECUTE DISK DRIVER ; DKOPLP: PUSH IY ;‘;ю№NNNNNNNNNNNNNNNNЎЎЎюI*љкNNNNNNNNNNNNNNNNNNNNNNЎЎЎыSKEB ;OUTPUT ERROR MESSAGE CALL EDITOR ; ; GET USER RESPONSE ; CALL CI ;GET USER RESPONSE ; PUSH AF ;SAVE CHAR L®юNNNNNNNNNNNNNNNNЎЎЎюI0vRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыPTR)= MUST BE PTR TO DTP ; EXIT - DE, HL= ? ; ;**************************************************************************** G»ю'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃ ‚mѓ;„…Ц…¤†q‡>€‰Ъ‰§Љu‹CЊЌЮЌЋ{ЏIђ‘е‘І’Ђ“N”•й•ё–†—S!™п™Ѕљ‹›Yњ'ќхќВћђџ^ ,ЎщЎЗў•Јc¤0ҐюҐМ¦цNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюJмNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыTR8: TR3740: LD DE,SDTRAN ; SETTR: LD HL,(DTPTR) LD (HL),E INC HL LD (HL),D RET ;*******************************·CюBNNNNNNNNNNNNNNNNЎЎЎюJFјNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; HARD DISK DRIVER FUNCTION ; ENTRY- IY= DRIVERќ=юINNNNNNNNNNNNNNNNNNЎЎЎюJ ©wNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PRIMITIVE IN ROM ; PUSH IX LD IX,IOPB ;PASS PTR TO IOPB LD HL,DKPENT ;PRIMITIVE ENTRY LD A,(DKPROM) ;FETCH PROM # C oюNNNNNNNNNNNNNNNNЎЎЎюJ‰NNNNNNNNNNNNNNNNNNNNNNЎЎЎыX21 ; ; DATA TRACKS ; LD C,(IY + DVRDSPT) ; ; COMMON SIDE SELECT CODE ; FD8X2: INC C SUB A,C JP C,SPTOK ; INє(юHNNNNNNNNNNNNNNNNЎЎЎюJfАNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; LD A,C CP A,MAXFUNCS LD A,-1 RET NC ; ; ELSE COMPUTE TABLE ENTRY ; PUSH HL ;SAVE POSSIBLE DATA ; LD HL,BFUN©пюNNNNNNNNNNNNNNNNЎЎЎюJМfNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN BIOS VERSION # ; EXIT - HL= VERSION # IN BINARY {0.00Ргю NNNNNNNNNNNNNNNNNЎЎЎюJ%&8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыILLEGAL DRIVE THEN RETURN ERROR ; CP A,NDRVS JR C,RETDV2 ; OR A,A RET ; ; ; ELSE COMPUTE TABLE PTR ; RETDV2: LDлЙюdNNNNNNNNNNNNNNNNNЎЎЎюJ+7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************************** ; ; OUTPUT HEX DATA TO CONSOLE SUBR ; ENTRY- A= DATA ; EXIT - A, Sџю!NNNNNNNNNNNNNNNNЎЎЎюJ№INNNNNNNNNNNNNNNNNNNNNNЎЎЎы********************************************* ; ; SET NO SECTOR TRANSLATION PROCEDURE ; EXIT - HL, DE= ? ; ;***************еюBNNNNNNNNNNNNNNNNЎЎЎюJV‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HDEX—’юdNNNNNNNNNNNNNNNNЎЎЎюJь$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыALL EXROM ;EXECUTE THE PRIMITIVE POP IX ; ; RETURN THE COMMAND RESULTS STATUS ; LD A,(IOPB + PBSTATO) OR A,A RET KюNNNNNNNNNNNNNNNNNЎЎЎюJњNNNNNNNNNNNNNNNNNNNNNNЎЎЎыC A ;MUST START AT 1 LD (IOPB + PBSECO),A ; ; SELECT SIDE 1 ; LD A,80H FD8X1: LD (IOPB + PBSECO + 1),A ; ; EXECUTцюNNNNNNNNNNNNNNNNЎЎЎюJ3“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTBL LD A,C ADD A,A ADD A,L LD L,A LD A,0 ADC A,H LD H,A ; ; EXECUTE TABLE ADDRESS ; LD A,(HL) INC HL LD юBNNNNNNNNNNNNNNNNЎЎЎюJ ЩНNNNNNNNNNNNNNNNNNNNNNNЎЎЎы,..655.35} ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ RETVERS: LD HL,VERSN XOR A,A жїю“NNNNNNNNNNNNNNNNNЎЎЎюJ&skNNNNNNNNNNNNNNNNNNNNNNЎЎЎы B,C LD DE,DVRSIZ ; RETDVL: ADD HL,DE DJNZ RETDVL ; ; RETURN NO ERROR ; XOR A,A RET ;+++++++++++++++++++++++!цюNNNNNNNNNNNNNNNNNЎЎЎюJ,њ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыC= ? ; ;**************************************************************************** PRHEX: ; ; PROCESS HIGH NIBBLE 1ST еюHNNNNNNNNNNNNNNNNЎЎЎюJЉxNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************* TRNONE: LD DE,0 JR SETTR ;++++++++++++++++++++++++++++++++\ёюNNNNNNNNNNNNNNNNNЎЎЎюJ eіNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRV) ;0,1: DRV 0, 2,3: DRV 1 LD (IOPB + PBDRVO),A ; VюNNNNNNNNNNNNNNNNNЎЎЎюJПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы SUBTTL JADE FLOPPY DRIVER ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; JADaЌю9NNNNNNNNNNNNNNNNNЎЎЎюJ#NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE THE IOPB ; JP XPRIM ; ; ; TRACK 0 ; FD8X20: LD C,(IY + DVR0SPT) JP FD8X2 ; ; ; TRACK 1 ; FD8X21: LD C,(IY +“ЈюdNNNNNNNNNNNNNNNNЎЎЎюJўNNNNNNNNNNNNNNNNNNNNNNЎЎЎы H,(HL) LD L,A ; EX (SP),HL ;PUT CALLER'S DATA IN HL, FUNCTION ADDR ON RET ; STACK, EXECUTE FUNCTION ADDRESS ON STACK Ґ°ю!NNNNNNNNNNNNNNNNЎЎЎюJ!кьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;RETURN NO ERROR RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVER Tќю!NNNNNNNNNNNNNNNNЎЎЎюJ'@ZNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; EXECUTE IOPB FUNCTION ; ENTRY- DE= IOPB PTR ; EXIT - A= 0: OK ; Њ;ю!NNNNNNNNNNNNNNNNNЎЎЎюJ-Ї‘NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы; CALL PRDIG ; ; SWAP HIGH & LOW NIBBLES ; PRDIG: RLCA RLCA RLCA RLCA ; ; SAVE DATA FOR RETURN ; PUSH AF ;¦qюgNNNNNNNNNNNNNNNNNЎЎЎюJпNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN DRIVE PARAMETER BLOCK ADDR FUNCTION ; EXIT - DE= DPB PTR ; HL= ? ;оSюHNNNNNNNNNNNNNNNNЎЎЎюJ 0аNNNNNNNNNNNNNNNNNNNNNNЎЎЎы; OFFSET LOGICAL ADDRESS WITH LOGICAL DRIVE ; LD A,(BTDRV) ;IF EVEN THEN ADD 0 ELSE ADD 128 RRCA AND A,80H LD E,A ;ю NNNNNNNNNNNNNNNNЎЎЎюJЬXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыE 8" FLOPPY DISK DRIVER FUNCTION ; ENTRY- IY= DRIVER TABLE PTR ; EXIT - A= 0: OK; /0: ERROR ; ;+++++++++++++++++++++++++++++wюNNNNNNNNNNNNNNNNNNЎЎЎюJvюNNNNNNNNNNNNNNNNNNNNNNЎЎЎы DVR1SPT) JP FD8X2 ; ; ; SECTORS OK ; SPTOK: XOR A,A JP FD8X1 SUBTTL BIOS FUNCTION CALLS ;++++++++++++++++++++uгюBNNNNNNNNNNNNNNNNNЎЎЎюJ™5NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; BIOS FUNCTION TABLE ; ;##############=яюNNNNNNNNNNNNNNNNЎЎЎюJ"їЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыABLE PTR FUNCTION ; ENTRY- C= DRIVE # (E FOR FUNCTION CALL) ; EXIT - HL= DRIVER TABLE BASE PTR ; A, C= 0 ; ;++++++++++++++ XюBNNNNNNNNNNNNNNNNЎЎЎюJ(PdNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ EXIOPB: ; ; SAVE REG ; PUSH IX ; ; SETj°юNNNNNNNNNNNNNNNNNNЎЎЎюJ.ъВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; CONVERT TO ASCII USING DAA TRICK ; AND A,0FH ADD A,90H DAA ADC A,40H DAA ; ; OUTPUT CHAR TO CONSOLE ; LDїЪю9NNNNNNNNNNNNNNNNNЎЎЎюJ ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DPBAD: LD HL,(DTPTR) ;FETCH BASE ADDR LD DE,1mюoNNNNNNNNNNNNNNNNNЎЎЎюJСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCOMPUTE SECTOR LD D,0 LD HL,(IOPB + PBSECO) ADD HL,DE LD (IOPB + PBSECO),HL ; ; FINISH SETTING UP THE IOPB ; XPRIMOЭюdNNNNNNNNNNNNNNNNNЎЎЎюJпiNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++ FD8EXEC: ; ; CONVERT LOGICAL DRIVE TO PHYSICAL DRIVE ; LD A,(IY + DVRPDRЋxюNNNNNNNNNNNNNNNNЎЎЎюJEПNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; FUNCTION DISPATCHER ; EXIT - A= -1: ERROR, 0: OK ; ;++++++++++|дюNNNNNNNNNNNNNNNNNЎЎЎюJЄNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################################################## BFUNTBL: DW RETVERS ;0:RETURN VERSION # DW RETDVRTF ;1:RETU@ХюyNNNNNNNNNNNNNNNNЎЎЎюJ#ЊћNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; BIOS CALL ENTRY (E= DRIVE #) ; RETDVRTF: LD C,E ; RЅшюNNNNNNNNNNNNNNNNNNЎЎЎюJ)cUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы UP FOR CALL ; PUSH DE POP IX LD HL,DKPENT LD A,(DKPROM) CALL EXROM ; ; FETCH & RETURN RESULT STATUS ; LD A,(IjюNNNNNNNNNNNNNNNNNNЎЎЎюJ/ЙуNNNNNNNNNNNNNNNNNNNNNNЎЎЎы C,A CALL COC ; ; RETURN DATA ; POP AF RET IF INTCPTS SUBTTL ADDITIONAL FUNCTIONS TO SUPPORT CDOS PROGRAMS l»ю!NNNNNNNNNNNNNNNNNЎЎЎюJuЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ;ADD OFFSET OF DPB PTR ADD HL,DE LD E,(HL) ;FETCH DPB PTR INC HL LD D,(HL) RET SUBTTL HARD DISK ROUTINES ;+Ь™юЇNNNNNNNNNNNNNNNNЎЎЎюJљFNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: XOR A,A LD (IOPB + PBFLGO),A ;NO FLAGS FOR NOW ; LD HL,SECSZ ;SET XFER COUNT LD (IOPB + PBST4O),HL ; ; EXECUTE THEЕюNNNNNNNNNNNNNNNNЎЎЎюJє:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыV) LD (IOPB + PBDRVO),A ; ; SELECT SIDE ; LD A,(IOPB + PBTRKO) CP A,1 LD A,(IOPB + PBSECO) JR C,FD8X20 JR Z,FD8jю NNNNNNNNNNNNNNNNNЎЎЎюJUсNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BIOFUNC: ; ; IF FUNCTION # NOT IN TABLE THEN RETURN -1 oDюNNNNNNNNNNNNNNNNNЎЎЎюJяWNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыRN DISK PHYSICAL CONFIGURATION TABLE PTR DW EXIOPB ;2:EXECUTE THE IOPB MAXFUNCS EQU ($ - BFUNTBL) / 2 ;++++++++++++++++±NюNNNNNNNNNNNNNNNNЎЎЎюJ$ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыETDVRT: LD HL,DVR0 ;START AT 1ST TABLE ; ; IF DRIVE == 0 THEN ALREADY THERE ; LD A,C OR A,A RET Z ; ; ELSE IF ќюNNNNNNNNNNNNNNNNNNЎЎЎюJ*6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыX+PBSTATO) POP IX ;RESTORE REG OR A,A ;TEST RESULT FOR RETURN RET SUBTTL NON-DISK PROCEDURES ;******************ВюgNNNNNNNNNNNNNNNNNЎЎЎюJ0ЪѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;*************************************************************************** ; ; SYSTEM CALL INTERCEPT ROUTINE CHECKS FOR ILLEЋvюNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@NNNяЂОЃќ‚jѓ8„…Ф…ў†o‡<€ ‰Ш‰ҐЉr‹@ЊЌЭЌ«ЋyЏGђ‘г‘±’“M”•и•·–…—R ™о™јљ‰›Wњ%ќфќВћђџ^ ,ЎщЎЗў•Јd¤2ҐяҐН¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюJЫ*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыGAL BDOS CALLS & ; PRINTS MESSAGE IF ILLEGAL. ALSO IMPLEMENTS CDOS CLOCK/CALENDAR ; SYSTEM CALLS FOR ASMB. ; ;************¤њюNNNNNNNNNNNNNNNNNЎЎЎюJqЊNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыJR C,CLKSET ;IF SET FUNCTION THEN SET CLOCK ; JR Z,CLKTIM ;IF TIME THEN GET IT ; CP A,93H JR Z,CLKRDC ;IF READ CLOCK THEQюNNNNNNNNNNNNNNNNNNЎЎЎюJ ћGNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLKCAL: LD HL,CALENT ;ROM ENTRY POINT ; CLK1: LD—™юNNNNNNNNNNNNNNNNЎЎЎюJѕ;NNNNNNNNNNNNNNNNNNNNNNяЎЎЎы**************************************************************************** ; ; CLOCK SET FUNCTION 91H ; ENTRY- DE= CLOCK IMжqюNNNNNNNNNNNNNNNNЎЎЎюJQрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыECTOR JP (HL) ;EXECUTE ROM ; ; ROM PROCEDURE RETURNS HERE ; EXROMR: PUSH AF ;SAVE RETURN VALUE CALL GETMON ;RESELECTґюNNNNNNNNNNNNNNNNNЎЎЎюJыVNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CNSCK: IF USEMON CALL GETMON JP 0F812H ELSE I-Яю№NNNNNNNNNNNNNNNNNЎЎЎюJ%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NTOST: IN A,(NTS) CPL ;REVERSE SENSE AND A,1 SHЄиюlNNNNNNNNNNNNNNNNNЎЎЎюJ+2NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы*********************************************************************** LO: IF USEMON CALL GETMON JP 0F80FH ELSE ^юNNNNNNNNNNNNNNNNЎЎЎюJЋyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы*************************************************************** INTCPT: LD A,C ;CHECK CALL VALIDITY CP A,41 ;IF <= 40 THEN БюNNNNNNNNNNNNNNNNЎЎЎюJaІNNNNNNNNNNNNNNNNNNNNNNЎЎЎыN GET IT ; ; ILLEGAL SYSTEM CALL ; ILLEGC: LD HL,ISCMSG ;OUTPUT WARNING CALL EDITOR XOR A,A ;BC = HL = A = 0 LD L,A –дю№NNNNNNNNNNNNNNNNЎЎЎюJЛNNNNNNNNNNNNNNNNNNNNNNЎЎЎы BC,CLKBFR ;READ CLOCK JR CLK2 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURNѕ юNNNNNNNNNNNNNNNNNNNЎЎЎюJ'¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыAGE BUFR PTR (13 BYTES LONG) ; ;**************************************************************************** CLKSET: LD C,EюNNNNNNNNNNNNNNNNЎЎЎюJЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыT MONITOR ROM ; POP AF ;RETURN VALUE RET SUBTTL CHAR I/O ROUTINES ;+++++++++++++++++++++++++++++++++++++++++++++++++н€юNNNNNNNNNNNNNNNNЎЎЎюJ оэNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыN A,(NTS) ;IF DATA NOT READY THEN RETURN 0 AND A,1 SHL NTRDY TTOST1: RET Z LD A,-1 ;ELSE RETURN -1 RET ENDIF ;ЖюNNNNNNNNNNNNNNNNNЎЎЎюJ&D[NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыL NTBSY JR TTOST1 ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; READER DRKЮю“NNNNNNNNNNNNNNNNNNЎЎЎюJ,«ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыCALL LISTST ;IF BUSY THEN WAIT JR Z,LO ; LD A,C ;OUTPUT CHAR SET 7,A OUT (CENTOUT),A ; RES 7,A ;OUTPUT LOW TRUE S’ юђNNNNNNNNNNNNNNNNЎЎЎюJЅHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыOK ; BDOSV EQU $ + 1 JP C,BDOS + 11H ;THIS ADDR MODIFIED BY WARM BOOT RTN ; ; THE FOLLOWING CONDITIONAL JUMP IS MODIFIED юNNNNNNNNNNNNNNNNNЎЎЎюJ RѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎы LD H,A LD C,A LD B,A RET ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; CDOS R/юNNNNNNNNNNNNNNNNNЎЎЎюJш%NNNNNNNNNNNNNNNNNNNNNNЎЎЎы TIME FUNCTION 92H ; EXIT - A= SECONDS ; B= MINITS ; C= HOURS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ПMюдNNNNNNNNNNNNNNNNNЎЎЎюJќNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;SET UP PARAMETERS LD B,D LD HL,SETENT CLK2: LD A,CALROM ENDIF ;************************************************LшюNNNNNNNNNNNNNNNNNЎЎЎюJ7’NNNNNNNNNNNNNNNNNNNNN!рЎЎЎы+++++++++++++++++++++++++++ ; ; CONSOLE INPUT ; EXIT - A= CHAR ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ЎVю NNNNNNNNNNNNNNNNNЎЎЎюJ!ЭМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************************************************************** ; ; CONSOLE OUTPUT ; ENTRY- C= CHAR TO OUTPUT ;дxю№NNNNNNNNNNNNNNNNЎЎЎюJ'wjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIVER - DUMMY ; EXIT - A= CTRL-Z ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ READER: LD AћфюdNNNNNNNNNNNNNNNNNЎЎЎюJ-ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTROBE OUT (CENTOUT),A SET 7,A OUT (CENTOUT),A RET ENDIF ;++++++++++++++++++++++++++++++++++++++++++++++++++++++№сю°NNNNNNNNNNNNNNNNNЎЎЎюJ$ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTO AN UNCONDITIONAL JUMP BY ; THE WARM BOOT ROUTINE IF THE CLOCK/CALENDAR BOARD IS NOT PRESENT ; IF NOT MODIFIED, THEN IT IS§IюNNNNNNNNNNNNNNNNЎЎЎюJ РNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыETURN VERSION FUNCTION ; MAKES CLOCK/CALENDAR WORK. ; EXIT - B= 1 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++JюњNNNNNNNNNNNNNNNNЎЎЎюJлhNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы++++++++++++++++++++ CLKTIM: LD HL,TIMENT JR CLK1 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++iюNNNNNNNNNNNNNNNNNNNЎЎЎюJAОNNNNNNNNNNNNNNNNNNNNNNЎЎЎы**************************** ; ; EXECUTE ROM ROUTINE ; ENTRY- HL= ENTRY ADDRESS ; A= ROM # ; EXIT - ? ; ;***************P#ю·NNNNNNNNNNNNNNNNNЎЎЎюJ®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++ CI: IF USEMON CALL GETMON ;SWITCH IN MONITOR ROM JP 0F803H ;USE MONITOR ELSE CALL CNSCK ;IyњюyNNNNNNNNNNNNNNNЎЎЎюJ"€џNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;**************************************************************************** COC: IF USEMON CALL GETMON JP 0F809H ІXюђNNNNNNNNNNNNNNNNNЎЎЎюJ(gTNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы,CTRLZ ;FAKE EOF ;**************************************************************************** ; ; PUNCH DRIVER ; ENTRYG’юЙNNNNNNNNNNNNNNNNNЎЎЎюJ.НтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++ ; ; RETURN LIST DEVICE STATUS ; EXIT - A= 0: BUSY, FFH:READY ; ;++++++++++++++++++++++++++++++++++++eЫюNNNNNNNNNNNNNNNNNЎЎЎюJоNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ALLWAYS FALSE (NOP). ; INHCLK: JR C,ILLEGC ; ; NOW CHECK FOR EXTENDED CALLS ; CP A,8DH ;IF RETURN VERSION THEN RETURN –зю„NNNNNNNNNNNNNNNNЎЎЎюJ4бNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++ RETCVER: LD B,1 RET SUBTTL CLOCK ROUTINES ;++++++++++++++++++++++++++++++++++++++++++++++++++++<·юОNNNNNNNNNNNNNNNNNЎЎЎюJШYNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++ ; ; READ CLOCK TIME FUNCTION 93H ; ENTRY- DE= PTR TO 13 BYTE BUFFER FOR CLOCK DATA ; ;+++++++++++++++++++++++++++!юдNNNNNNNNNNNNNNNNЎЎЎюJrяNNNNNNNNNNNNNNNNNNNNNNЎЎЎы************************************************************* EXROM: AND A,ROMSMK ;MASK OUT UNUSED BITS OUT (ROMSEL),A ; NCю°NNNNNNNNNNNNNNNNNNЎЎЎюJќ4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыF NO CHAR RDY THEN WAIT JR Z,CI IN A,(NTD) ;ELSE RETURN CHAR RET ENDIF ;++++++++++++++++++++++++++++++++++++++++мьюNNNNNNNNNNNNNNNNNЎЎЎюJ#»®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ELSE CALL NTOST ;IF BUSY THEN WAIT OR A,A JR Z,COC LD A,C OUT (NTD),A RET ;+++++++++++++++++++++++++++++++Ж7юОNNNNNNNNNNNNNNNNNЎЎЎюJ)TeNNNNNNNNNNNNNNNNNNNNNNЎЎЎы- C= CHAR TO OUTPUT ; ;**************************************************************************** PUNCH: RET ;********‡mю!NNNNNNNNNNNNNNNNЎЎЎюJ/юГNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++++++ LISTST: IF USEMON CALL GETMON JP 0F827H ELSE IN A,(CENTS) ;IF BUSY THEN !~юNNNNNNNNNNNNNNNNNЎЎЎюJBЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыIT JR Z,RETCVER ; CP A,90H ;IF NOT CLOCK THEN ERR JR C,ILLEGC ; JR Z,CLKCAL ;IF CALENDAR THEN GET IT ; CP A,92H щютNNNNNNNNNNNNNNNNЎЎЎюJvNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++ ; ; RETURN CALENDAR FUNCTION 90H ; EXIT - A= DAY ; B= MONTH ; C= YEAR ; L= DAY OF WEEK ; ;++kюњNNNNNNNNNNNNNNNNЎЎЎюJЌ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++++++ CLKRDC: LD C,E ;SET UP PARAMETERS LD B,D LD HL,RDBENT JR CLK2 ;gµюNNNNNNNNNNNNNNNNNЎЎЎюJbБNNNNNNNNNNNNNNNNNNNNNNЎЎЎы PUSH HL ;SAVE ROM ENTRY VECTOR ; LD HL,EXROMR ;PUT RETURN ADDR ON STACK EX (SP),HL ;SWAP RETURN ADDRESS WITH ROM ENTRY Vс.юђNNNNNNNNNNNNNNNNNЎЎЎюJИgNNNNNNNNNNNNNNNNNNNNNNЎЎЎы++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE STATUS ; EXIT - A= 0: NOT READY ; FFH: CHAR READY ; ;+++++++++|нюђNNNNNNNNNNNNNNNNNЎЎЎюJ$"9NNNNNNNNNNNNNNNNNNNNNNЎЎЎы+++++++++++++++++++++++++++++++++++++++++++++ ; ; RETURN CONSOLE OUTPUT READY STATUS ; EXIT - A= 0: BUSY, FFH: READY ; ;+++lюNNNNNNNNNNNNNNNNЎЎЎюJ*6NNNNNNNNNNNNNNNNNNNNNNЎЎЎы******************************************************************** ; ; PRINTER DRIVER ; ENTRY- C= CHAR TO OUTPUT ; ;*****fKю°NNNNNNNNNNNNNNNNNЎЎЎюJ0нЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыRETURN 0 CPL ;INVERT THE SENSE AND A,1 SHL CENTBSY RET Z LD A,0FFH ;ELSE RETURN -1 RET ENDIF ;**********sюњNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃТЃЎ‚nѓ<„ …Ш…¦†s‡@€ ‰Ь‰©Љv‹EЊЌбЌЇЋ}ЏLђ‘и‘µ’ѓ“Q”•л•є–€—V$™т™АљЌ›[њ(ќчќДћ’џ` /ЎьЎКўЈf¤4Ґ¦Р¦ђNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKљ®NNNNNNNNNNNNNNNNNNNNNNЎЎЎы****************************************************************** ; ; GET MONITOR PROM SUBR ; EXIT - A= ? ; ;*************¤ТюNNNNNNNNNNNNNNNNNЎЎЎюK0NNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------------- ; ; USER INTERRUPT ; ;----------------------------------------------------Т,юNNNNNNNNNNNNNNNNNNЎЎЎюK ЯГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыP1 ; POP BC ;RESTORE REGS 1ST POP HL POP AF JP 0038H ; ; IF OPTION IS MONITOR THEN EXECUTE MONITOR TRAP ; ITRAP1(юNNNNNNNNNNNNNNNNЎЎЎюKяїNNNNNNNNNNNNNNNNNNNNNNяЎЎЎы; 3740 SECTOR TRANSLATION TABLE ; **** CP/M SINGLE DENSITY **** ; ;##########################################################rЇюHNNNNNNNNNNNNNNNNЎЎЎюKtNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDVRFG DS 1 ;FLAGS (B0= INHIBIT LOGON) DVRPDRV DS 1 ;PHYSICAL DRIVE ; ; THE FOLLOWING MAY BE BROUGHT OFF DISK DESCRIPTOR OR 2юNNNNNNNNNNNNNNNNNЎЎЎюKєТNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDRV MACRO #DADD,#PD,#FG,#S0,#Z0,#S1,#Z1,#SD,#ZD LIST ON DW #DADD DB Ьuю9NNNNNNNNNNNNNNNNNЎЎЎюK%PЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;############################################################################ ; ; DEFAULT 8" FLOPPY DISK PARAMETER BLOCK ;„•юNNNNNNNNNNNNNNNNNNЎЎЎюK+sѓNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы################################ HDPBK: DW 128 ;SECTORS PER TRACK (LOGICAL) (SPT) DB 5 ;BLOCK SHIFT FACTOR (BSH) DB 31 }пюrNNNNNNNNNNNNNNNNЎЎЎюKПэNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы*************************************************************** GETMON: LD A,XMONROM OUT (ROMSEL),A RET ;***********·ю NNNNNNNNNNNNNNNNЎЎЎюK 6NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы------------------------ ITRAP: ; ; SAVE REGS FIRST ; PUSH AF PUSH HL PUSH BC ; ; SAVE CURRENT ROM & GET MONITORЩюNNNNNNNNNNNNNNNNЎЎЎюKЉђNNNNNNNNNNNNNNNNNNNNNNЎЎЎы: CP A,'M' JR NZ,ITRAPR ; POP BC POP HL POP AF JP 0F824H ; ; ELSE RESTORE REGS & RETURN ; ITRAPR: LD A,(ROMSALюNNNNNNNNNNNNNNNNNNNЎЎЎюKf(NNNNNNNNNNNNNNNNNNNNNNЎЎЎы################## SDTRAN: GXLATE 26,6 ; DB 1,7,13,19,25,5,11,17,23,3,9,15 ; DB 21,2,8,14,20,26,6,12,18,24,4,10 ; DB 16,22W!юNNNNNNNNNNNNNNNNЎЎЎюKE'NNNNNNNNNNNNNNNNNNNNN!юЎЎЎыFROM DEFAULT TABLES ; DVRFLG DS 1 ;DISK FLAGS DVR0SPT DS 1 ;TRK 0 SECTORS PER TRK DVR0SZ DS 1 ;TRK 0 SECTOR SIZE DVR1SPT DSЛюINNNNNNNNNNNNNNNNЎЎЎюK ЇyNNNNNNNNNNNNNNNNNNNNNNЎЎЎы0 ;;LOGON INHIBIT FLAG (LOGON ENABLED) DB #PD DB #FG DB #S0,#Z0,#S1,#Z1,#SD,#ZD DB 0 ;;DISK TYPE LIST OFF ENDM ЎoюNNNNNNNNNNNNNNNNNЎЎЎюK&ЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎы IBM 3740 SINGLE DENSITY FORMAT ; ;############################################################################ SD8PBK: DW 26$gюrNNNNNNNNNNNNNNNNNNЎЎЎюK,кNNNNNNNNNNNNNNNNNNNNNNЎЎЎы;BLOCK MASK (BLM) DB 1 ;NULL MASK (EXM) DW 1015 ;DISK SIZE (CLUSTERS -1) (DSM) DW 1152 / 2 ;DIRECTORY MAX (DRM) ў.юHNNNNNNNNNNNNNNNNЎЎЎюKьМNNNNNNNNNNNNNNNNNNNNNNЎЎЎы***************************************************************** ; ; MESSAGE EDITOR ; ENTRY- HL= TEXT PTR (BIT 7= 1: TERMINAУ‹юHNNNNNNNNNNNNNNNNNЎЎЎюK NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ROM ; IN A,(ROMSEL) LD (ROMSAV),A CALL GETMON ; ; PRINT PROMPT ; LD HL,ITMSG IQCONT: CALL EDITOR ; LD HL,IQMSфмюgNNNNNNNNNNNNNNNNNЎЎЎюK№ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыV) ;RESTORE ROM # OUT (ROMSEL),A ; POP BC POP HL POP AF EI ;RE-ENABLE INTERRUPTS RET ;----------------------|зюdNNNNNNNNNNNNNNNNNЎЎЎюKUNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;############################################################################ ; ; COMMON I/O PARAMETER BLOCK ; ;######2юNNNNNNNNNNNNNNNNNNЎЎЎюKvNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы 1 DVR1SZ DS 1 DVRDSPT DS 1 DVRDSZ DS 1 DVRDTYP DS 1 ;RESERVED FOR DISK TYPE ; ; DEFINE THE STRUCTURE SIZE ; DVRSIZ DS>мюмNNNNNNNNNNNNNNNNNЎЎЎюK!њHNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDVR0: IF BOOT = 10H ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,„%ю NNNNNNNNNNNNNNNNЎЎЎюK'6оNNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ;SECTORS PER TRACK DB 3 ;BLOCK SHIFT FACTOR DB 7 ;BLOCK MASK DB 0 ;NULL MASK DW 242 ;DISK SIZE -1 DW 63 ;DIRECTЎюHNNNNNNNNNNNNNNNNNЎЎЎюK-Щ%NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыDB 0FFH ;ALLOCATION 0 (AL0) DB 10000000B ;ALLOCATION 1 (AL1) DW 0 ;CHECK SIZE (CKS) DW 2 ;TRACK OFFSET (OFF) ;4hюNNNNNNNNNNNNNNNNNЎЎЎюKe[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTOR) ; EXIT - REGS= ? ; ;**************************************************************************** EDITOR: LD C,(HL) ;ME‘тюNNNNNNNNNNNNNNNNЎЎЎюK FTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыG ;QUERY USER CALL EDITOR ; ; GET & ECHO USER INPUT ; CALL CI ; PUSH AF LD C,A CALL COC POP AF ; ; IF OPTIою\NNNNNNNNNNNNNNNNЎЎЎюKЄмNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------------------------ ; ; UNSUPPORTED INTERRUPT ; ;----------------------------------------лCюNNNNNNNNNNNNNNNNNNNЎЎЎюKJNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы###################################################################### IOPB: REPT 16 ;;HARD DISK IOPB LIST OFF DB 0 LISTЇїюNNNNNNNNNNNNNNNNNЎЎЎюKпЃNNNNNNNNNNNNNNNNNNNNNNЎЎЎы 0 ENDM ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVER TABLЙРюNNNNNNNNNNNNNNNNЎЎЎюK"ЙNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV FD8EXEC,0,0,26,0,26,0,26,0 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0 ENDIF tQюINNNNNNNNNNNNNNNNNЎЎЎюK(&РNNNNNNNNNNNNNNNNNNNNNNЎЎЎыORY MAX DB 11000000B ;ALLOC 0 DB 0 ;ALLOC 1 DW 16 ;CHECK SIZE DW 2 ;TRACK OFFSET ; ; DEFAULT DISK PHYSICAL PARAME)bюNNNNNNNNNNNNNNNNNЎЎЎюK.ЊvNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ; ; DB 01100000B ;FLAGS 256 BPS, HARD, SSSD DB 64,1,64,1,64,1 ;64 SPT, 256 BPS ;####################################ґяюHNNNNNNNNNNNNNNNNNЎЎЎюKVjNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыSSAGE EDIT LOOP PUSH HL ;SAVE PTR RES 7,C ;CLEAR BIT 7 FOR OUTPUT CALL COC ; POP HL BIT 7,(HL) ;IF BIT 7 SET THEN мЊюNNNNNNNNNNNNNNNNЎЎЎюKueNNNNNNNNNNNNNNNNNNNNNNЎЎЎыON IS CTRL-C THEN WARM BOOT ; CP A,3 ;IF CTRL-C THEN WARM BOOT JP Z,PAGE0 ; ; IF OPTION IS YES THEN WARM BOOT ; ANDVюNNNNNNNNNNNNNNNNNЎЎЎюK™ЭNNNNNNNNNNNNNNNNNNNNNNЎЎЎы------------------------------------ ILLINT: PUSH AF ;SAVE ALL 8080 REGS PUSH HL PUSH BC LD HL,ILLIM ;NOTIFY USER OF IAЫюrNNNNNNNNNNNNNNNNЎЎЎюK3{NNNNNNNNNNNNNNNNNNNNNNЎЎЎы ON ENDM ;############################################################################ ; ; DISK DRIVER TABLES ; ;####\Њю'NNNNNNNNNNNNNNNNNNЎЎЎюKЬ°NNNNNNNNNNNNNNNNNNNNNNЎЎЎыE RECORD ; ENTRY- #DADD= DRIVER ADDRESS ; #PD= PHYSICAL DRIVE # ; #FG= DRIVE FLAGS (IDFLGO) ; #S0= TRK 0 SPT ; #Z0= TRKО}юBNNNNNNNNNNNNNNNNЎЎЎюK#ъ*NNNNNNNNNNNNNNNNNNNNNNЎЎЎы IF BOOT = 3 ALLDRV FD8EXEC,0,0,26,0,26,0,26,0 ALLDRV FD8EXEC,1,0,26,0,26,0,26,0 ALLDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLЃ#ю NNNNNNNNNNNNNNNNЎЎЎюK)бNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTERS ; DB 0 ;FLAGS DB 26,0,26,0,26,0 ;SECTORS PER TRACK, SECTOR SIZE (128) ;#########################################Ю…юNNNNNNNNNNNNNNNNЎЎЎюK/їGNNNNNNNNNNNNNNNNNNNNNNЎЎЎы######################################## ; ; MODE 2 INTERRUPT VECTOR TABLE ; ;##############################################¦тюINNNNNNNNNNNNNNNNNNЎЎЎюK9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыRETURN RET NZ ; INC HL ;ELSE PRINT NEXT CHAR JR EDITOR IF INTRPTS SUBTTL INTERRUPTS ;---------------------------яLюBNNNNNNNNNNNNNNNNЎЎЎюKмтNNNNNNNNNNNNNNNNNNNNNNЎЎЎы A,5FH ;IGNORE CASE ; CP A,'Y' JP Z,PAGE0 ; ; IF OPTION IS INTERRUPT THEN EXECUTE RESTART 7 ; CP A,'I' JR NZ,ITRAсЇюBNNNNNNNNNNNNNNNNЎЎЎюKМЋNNNNNNNNNNNNNNNNNNNNNNЎЎЎыNT JR IQCONT SUBTTL INITIALIZED DATA ;############################################################################ ; ѓщюNNNNNNNNNNNNNNNNNNЎЎЎюK#ENNNNNNNNNNNNNNNNNNNNN!рЎЎЎы######################################################################## STRUCT 0 DVRADD DS 2 ;START ADDRESS OF DISK DRIVER PHюHNNNNNNNNNNNNNNNNNЎЎЎюK‰гNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы 0 SIZE ; #S1= TRK 1 SPT ; #Z1= TRK 1 SIZE ; #SD= DATA TRKS SPT ; #ZD= DATA TRKS SIZE ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~їюNNNNNNNNNNNNNNNNNЎЎЎюK$cЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыDRV HDEXEC,4,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ALLDRV HDEXEC,5,60H,64,1,64,1,64,1 ENDIF LIST ON bюNNNNNNNNNNNNNNNNNЎЎЎюK*@ІNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################### ; ; DEFAULT 8" HARD DISK PARAMETER BLOCK ; ;############################################‰ЖюNNNNNNNNNNNNNNNNNЎЎЎюK0¬ NNNNNNNNNNNNNNNNNNNNNNЎЎЎы############################## ; ; START ON AN EVEN PAGE BOUNDARY ; IF $ AND 0FFH DS 100H - ($ AND 0FFH) ENDIF INTABЪ”юyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNpNNNяЂМЃ›‚hѓ6„…Т…џ†m‡;€ ‰Ч‰¤Љq‹?ЊЌЬЌЄЋxЏGђ‘д‘±’“M”•и•¶–„—Q™м™єљ‡›Uњ"ќрќѕћ‹џY 'ЎфЎВўђЈ^¤,ҐъҐИ¦nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыL: REPT 7 ;1ST 7 ARE UNSUPPORTED LIST OFF DW ILLINT LIST ON ENDM ; DW ITRAP ;INT 8 IS USER INTERRUPT ENDIF §юјNNNNNNNNNNNNNNNNЎЎЎюK8NNNNNNNNNNNNNNNNNNNNN!рЎЎЎыARAMETER HEADER AREA ; 1 PER DRIVE ; ;############################################################################ ; ;@@@@@вµюNNNNNNNNNNNNNNNNNNNЎЎЎюK иуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыION BIT MAP PTR LIST OFF ENDM ; ; DEFINE THE DATA ; DD DL 1 REPT NDRVS LIST OFF ALLDPH 0123456789ABCDEF DD DL Dгю NNNNNNNNNNNNNNNNЎЎЎюKИЏNNNNNNNNNNNNNNNNNNNNNNЎЎЎы###################################### DTPTR: DS 2 ;DRIVE TABLE PTR LOGRQ: DS 1 ;LOG ON REQUEST REG. DVRTPTR DS 2 ;DRIVE DRIV“kю NNNNNNNNNNNNNNNNЎЎЎюK'DNNNNNNNNNNNNNNNNNNNNNNЎЎЎы1) >= STHD) AND ((DD - 1) <= NDHD) D#D(DD)ALL: DS 127 ;ALLOCATION BIT MAP FOR 8" HARD DRIVE #D(DD) ENDIF IF ((DD - 1) >юЙNNNNNNNNNNNNNNNNNЎЎЎюKЌвNNNNNNNNNNNNNNNNNNNNNNЎЎЎы2K= 4, 4K= 5, 8K= 6, 16K= 7 DPBBLM DS 1 ;BLM- BLOCK MASK ; 1K = 7, 2K= 15, 4K= 31, 8K= 63, 16K= 127 DPBEXM DS 1 ;EXM- EXTE[юђNNNNNNNNNNNNNNNNNЎЎЎюK%gјNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPB: MACRO #D LIST ON D#D(DD)DPB: DS DPBSZ ;ALLOCATION FOR DRIVE ЄюNNNNNNNNNNNNNNNNЎЎЎюK+DіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKшНNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы ;############################################################################ ; ; MESSAGES ; ;##########################ЗюNNNNNNNNNNNNNNNNNЎЎЎюKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE A DISK PARAMETER TABLE MACRO ; ;@@@@@@@§aюђNNNNNNNNNNNNNNNNNЎЎЎюKЅ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыD + 1 LIST ON ENDM ; ; LAST OF INITIALIZED CODE READ FROM DISK ; BIOSND EQU $ SUBTTL UNINITIALIZED DATA AREA ;#иЩю„NNNNNNNNNNNNNNNNNЎЎЎюKQNNNNNNNNNNNNNNNNNNNNNNЎЎЎыER TABLE BASE ADDRESS PTR DVRXADR DS 2 ;DRIVE DRIVER EXECUTION ADDRESS ROMSAV DS 1 ;ROM SWAP SAVE OF ORIGINAL ROM IF INTCPз’юОNNNNNNNNNNNNNNNNЎЎЎюKrNNNNNNNNNNNNNNNNNNNNNNЎЎЎы= ST8FD) AND ((DD - 1) <= ND8FD) D#D(DD)ALL: DS 57 ;ALLOCATION BIT MAP FOR 8" DRIVE #D(DD) D#D(DD)CHK DS 32 ;DIRECTORY CHEC ЮюNNNNNNNNNNNNNNNNЎЎЎюK INNNNNNNNNNNNNNNNNNNNNNЎЎЎыNT MASK ; DSM < 256 : 1K= 0, 2K= 1, 4K= 3, 8K= 7, 16K= 15 ; DSM > 255 : 2K= 0, 4K= 1, 8K= 3, 16K= 7 DPBDSM DS 2 ;DSM- DрѓюNNNNNNNNNNNNNNNNNЎЎЎюK&2пNNNNNNNNNNNNNNNNNNNNNNЎЎЎы#D(DD) LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFF ALLDPB 0123456789ABCDEF DD DL DD …uю“NNNNNNNNNNNNNNNNNNЎЎЎюK,Э$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKЛьNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################## MSGLE: DM CR,LF,'LOAD ERROR' ; DSKEM: DB CR,LF,'Disk Error Status:' DM C‹°юNNNNNNNNNNNNNNNNЎЎЎюK $7NNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDPH: MACRO #D LIST ON D#D(DD)DPH: ;DRIVE PARAMETEгЈюђNNNNNNNNNNNNNNNNNЎЎЎюKЋ‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎы########################################################################### ; ; THE FOLLOWING DATA MUST RESIDE IN THIS ORDERЫ¤юNNNNNNNNNNNNNNNNNNNЎЎЎюKb)NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTS ; ; CLOCK BUFFER ; CLKBFR DS 13 ENDIF ;#######################################################################Д юNNNNNNNNNNNNNNNNNЎЎЎюKA&NNNNNNNNNNNNNNNNNNNNNNЎЎЎыKSUMS STORAGE (1 BYTE PER SECTOR) ENDIF LIST OFF ENDM ; ; RESERVE THE DATA SPACE ; DD DL 1 REPT NDRVS LIST OFFъюђNNNNNNNNNNNNNNNNNЎЎЎюK!«xNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыRIVE STORAGE SIZE (IN CLUSTERS) ; INT(((#_TRACKS - OFF) * SPT * BYTES PER SECTOR) / CLUSTER SIZE) -1 DPBDRM DS 2 ;DRM- DIRECСХюNNNNNNNNNNNNNNNNЎЎЎюK'ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎы+ 1 LIST ON ENDM IF (($ - 8000H) > 07800H) OR ($ < 8000H) CONMSG **** BIOS TOO BIG, USE MOVCPM & RE-ADJUST! **** дUю„NNNNNNNNNNNNNNNNNЎЎЎюK-оNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKRkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR,LF,'CM DR TL TH SL SH FG AL AH AX ST S1 S2 S3 S4 S5',CR,LF DSKEB: DM CR,LF,'Abort, Ignore, Retry, (BDOS) - ' ; IF INTCPT€тю NNNNNNNNNNNNNNNNЎЎЎюK qdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыR HEADER FOR DRIVE #D(DD) DW 0 ;;SECTOR TRAN TBL (OR 0 IF NO XLATE) DW 0 ;;SCRATCH AREA DW 0 ;;" DW 0 ;;" DW DIRBFќ|юNNNNNNNNNNNNNNNNЎЎЎюKќЬNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ; ;############################################################################ BTDRV: DS 1 ;DRIVE # BTTRK DS 2 ;TRACK # B“ZютNNNNNNNNNNNNNNNNNЎЎЎюK7zNNNNNNNNNNNNNNNNNNNNN!рЎЎЎы##### ; ; DRIVE ALLOCATION AREAS ; ;############################################################################ ;@@@@@о юдNNNNNNNNNNNNNNNNNЎЎЎюKШ±NNNNNNNNNNNNNNNNNNNNN!юЎЎЎы ALLDAL 0123456789ABCDEF DD DL DD + 1 LIST ON ENDM ;################################################################*юЙNNNNNNNNNNNNNNNNЎЎЎюK"ю+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыTORY SIZE -1 DPBAL0 DS 2 ;AL0,1- DIRECTORY ALLOCATION ; 1 MSB PER DIRECTORY CLUSTER ALLOCATED DPBCKS DS 2 ;CKS- # DIRECTORr±юmNNNNNNNNNNNNNNNNNЎЎЎюK(аNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ENDIF END bюNNNNNNNNNNNNNNNNЎЎЎюK.»FNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюKaZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыS ISCMSG: DM CR,LF,'ILL SYS CALL',CR,LF ENDIF IF INTRPTS ITMSG DM CR,LF,'User' ILLIM DM CR,LF,'Ill.' IQMSG DM ' Int.<щютNNNNNNNNNNNNNNNNЎЎЎюKBUNNNNNNNNNNNNNNNNNNNNNNЎЎЎы ;;DIRECTORY BUFFER PTR DW D#D(DD)DPB ;;DRIVE PARAMETER BLK PTR IF ((DD - 1) <= NDHD) AND ((DD - 1) >= STHD) DW 0 ;;NO,ЩюЙNNNNNNNNNNNNNNNNNЎЎЎюK®нNNNNNNNNNNNNNNNNNNNNNNЎЎЎыTSEC DS 2 ;SECTOR # BTFLG DS 1 ;RESERVED FOR FLAGS BTDMA DS 2 ;DMA ADDRESS BTDMAX DS 1 ;DMA EXTENDED ADDRESS ;##########•Wю„NNNNNNNNNNNNNNNNЎЎЎюKKNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; MACRO TO DEFINE THE DRIVE ALLOCATION & CHECKSUMS AЩ¶ютNNNNNNNNNNNNNNNNNЎЎЎюKлЂNNNNNNNNNNNNNNNNNNNNNNЎЎЎы############ ; ; RESERVE DRIVE PARAMETER BLOCKS ; ;#######################################################################™ЗюrNNNNNNNNNNNNNNNNЎЎЎюK#НNNNNNNNNNNNNNNNNNNNNN!юЎЎЎыY SECTORS CHECKED ; (DRM +1) / 4 DPBOFF DS 2 ;OFF- # RESERVED TRACKS (USUALLY 2) DPBSZ DS 0 ENDM ; ; ;@@@@@@@@@@@@@@@ќmюyNNNNNNNNNNNNNNNNЎЎЎюK)"СNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюK/€wNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюK4 NNNNNNNNNNNNNNNNNNNNNNЎЎЎы Abort? (Y/N/I/M) - ' ENDIF ;############################################################################ ; ; DRIVE PIСюњNNNNNNNNNNNNNNNNЎЎЎюKЫВNNNNNNNNNNNNNNNNNNNNNNЎЎЎы CHECKS ON HARD DISK ELSE DW D#D(DD)CHK ;;DRIVE DISK CHECKSUMS ARRAY PTR ENDIF DW D#D(DD)ALL ;;DRIVE CLUSTER ALLOCAT¦zю‰NNNNNNNNNNNNNNNNЎЎЎюKыѕNNNNNNNNNNNNNNNNNNNNNNЎЎЎы################################################################## ; ; VARIABLES ; ;######################################мfюNNNNNNNNNNNNNNNNNЎЎЎюKuNNNNNNNNNNNNNNNNNNNNN!рЎЎЎыREA ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ALLDAL: MACRO #D LIST ON IF ((DD - >ою„NNNNNNNNNNNNNNNNNЎЎЎюKѕУNNNNNNNNNNNNNNNNNNNNNNЎЎЎы##### STRUCT 0 DPBSPT DS 2 ;SPT- SECTORS/TRACK DPBBSH DS 1 ;BSH- BLOCK SHIFT FACTOR DETERMINED BY CLUSTER SIZE ; 1K= 3, Њю“NNNNNNNNNNNNNNNNNЎЎЎюK$TЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎы@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; GENERATE THE DPB FOR DRIVE MACRO ; ;@@@@@@@@@@@@@@@@@@@@@@юNNNNNNNNNNNNNNNNЎЎЎюK*w‚NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюK0›:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNЃСЃџ‚mѓ;„ …Ч…Ґ†s‡A€‰Э‰«Љy‹GЊЌгЌ±ЋЏMђ‘й‘·’…“S”!•п•Ѕ–‹—Y'™х™Гљ‘›_њ-ќыќЙћ—џe 3ЎўПўќЈk¤9Ґ¦Х¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЛѓNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLa%NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL ЋоNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL®’NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLAYNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLляNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL%ЎNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL+"®NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLћРNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLqNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЫЅNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL юTNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL&TтNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL,»9NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLбNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL B*NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLиЊNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL4NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL';NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL!НeNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL'gГNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL-€NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL4vNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL yNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLыБNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLQgNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLѕ¬NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL"6NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL(wэNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL.Э[NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLGNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL$HNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLИрNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLbVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЌќNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL#«NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL)DМNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL/оjNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLRNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЅЯNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLќЈNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLrhNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLШОNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL$2ђNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL*џNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL0э'NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNюЂМЃљ‚hѓ6„…Т… †n‡<€ ‰Ш‰¦Љt‹BЊЌЮЌ¬ЋzЏHђ‘д‘І’Ђ“N”•к•ё–†—T"™р™ѕљЊ›Zњ(ќцќДћ’џ` .ЎьЎКўЈf¤4Ґ¦Р¦NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNВВВьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLьіNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLVNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL №ЮNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL™ўNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLviNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЬПNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL%6‘NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL+ћNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL©аNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLF+NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLмЌNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL5NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL#:NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL ЙdNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL&cВNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL,Њ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLљСNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL uNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЯјNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL3NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL!ъUNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL'PуNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL-ї8NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLFNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL INNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLМсNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLfWNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL‰њNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL"ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL(@НNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL.кkNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL0wNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLxNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLяАNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLUfNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLєNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL#њ7NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL)sьNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL/ЩZNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLe$NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЉпNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLЄ“NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLEXNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюLпюNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL$ NNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL*&ЇNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNЎЎЎюL0КNNNNNNNNNNNNNNNNNNNNNNЎЎЎыееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееb§NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN