X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/72ba373765af20594a45142cc9bb3c5fe5bb14e6..e8a98308cd28da296993a9085df28dc5957de86d:/cbios/boot.180 diff --git a/cbios/boot.180 b/cbios/boot.180 index 566f190..ee32505 100644 --- a/cbios/boot.180 +++ b/cbios/boot.180 @@ -39,17 +39,12 @@ tpa$bank equ 0 dseg ; init done from banked memory hwinit: - ld a,(INIDONE) - and 80h - cp INIDONEVAL - jr z,hwini_skip ld hl,hwini_tab call ioini1l ld a,0c3h ld hl,boot ld (0),a ld (1),hl -hwini_skip: call msginit call cpu_frq ld (f_cpu),hl @@ -78,10 +73,10 @@ hwini_skip: ld (@cbnk),a ; right now in bank 0 call pr.inln ; print signon message - db 13,10,13,10,'CP/M Version 3.0, Z180-Stamp BIOS v' + db 13,10,13,10,'CP/M Version 3.1, Z180-Stamp BIOS v' defvers db 13,10 - db 'Estimated CPU clock [Hz]: ',0 + dc 'Estimated CPU clock [Hz]: ' ld hl,(f_cpu) ld de,(f_cpu+2) @@ -120,12 +115,12 @@ hwini_skip: ; now, copy CCP to bank 0 for reloading - ld bc,2*256 + tpa$bank ; c: src$bnk, b: dst$bnk + ld bc,2*256 + tpa$bank ; b: dst$bnk, c: src$bnk jr mov_ccp ; just copy in the other direction ?rlccp: - ld bc,tpa$bank*256 + 2 ; c: src$bnk, b: dst$bnk + ld bc,tpa$bank*256 + 2 ; b: dst$bnk, c: src$bnk mov_ccp: call ?xmove ld hl,0100h @@ -137,7 +132,7 @@ mov_ccp: no$ccp: ; here if we couldn't find the file call pr.inln ; report this... - db 13,10,'BIOS Err on A: No CCP.COM file',0 + dc 13,10,'BIOS Err on A: No CCP.COM file' call ?conin ; get a response jr ?ldccp ; and try again