mirror of https://github.com/wwarthen/RomWBW.git
Browse Source
Accommodates upcoming MSX platform port. See [Discussion #613](https://github.com/wwarthen/RomWBW/discussions/613).pull/614/head v3.6.0-dev.27
Wayne Warthen
4 months ago
22 changed files with 10818 additions and 10819 deletions
File diff suppressed because it is too large
File diff suppressed because it is too large
File diff suppressed because it is too large
@ -1,299 +1,299 @@ |
|||
;============================================================================== |
|||
; REBOOT - Allows the user to Cold or Warm Boot the RomWBW System |
|||
; Version 1.0 12-October-2024 |
|||
;============================================================================== |
|||
; |
|||
; Author: MartinR (October 2024) |
|||
; Based **very heavily** on code by Wayne Warthen (wwarthen@gmail.com) |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Usage: |
|||
; REBOOT [/C] [/W] [/?] |
|||
; ex: REBOOT Display version and usage |
|||
; REBOOT /? Display version and usage |
|||
; REBOOT /C Cold boot RomWBW system |
|||
; REBOOT /W Warm boot RomWBW system |
|||
; |
|||
; Operation: |
|||
; Cold or warm boots a RomWBW system depending on the user option selected. |
|||
; |
|||
; This code will only execute on a Z80 CPU (or derivitive) |
|||
; |
|||
; This source code assembles with TASM V3.2 under Windows-11 using the |
|||
; following command line: |
|||
; tasm -80 -g3 -l REBOOT.ASM REBOOT.COM |
|||
; ie: Z80 CPU; output format 'binary' named .COM (rather than .OBJ) |
|||
; and includes a symbol table as part of the listing file. |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Change Log: |
|||
; 2024-09-11 [WBW] Release of RomWBW CPU Speed Selector v1.0 used as the basis |
|||
; 2024-10-12 [MR ] Initial release of version 1.0 |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Include Files |
|||
; |
|||
#include "../../ver.inc" ; Used for building RomWBW |
|||
#include "../../HBIOS/hbios.inc" |
|||
|
|||
;#include "ver.inc" ; Used for testing purposes.... |
|||
;#include "hbios.inc" ; ....during code development |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
; General operational equates (should not requre adjustment) |
|||
; |
|||
stksiz .equ $40 ; Working stack size |
|||
; |
|||
restart .equ $0000 ; CP/M restart vector |
|||
bdos .equ $0005 ; BDOS invocation vector |
|||
; |
|||
bf_sysreset .equ $F0 ; restart system |
|||
bf_sysres_int .equ $00 ; reset hbios internal |
|||
bf_sysres_warm .equ $01 ; warm start (restart boot loader) |
|||
bf_sysres_cold .equ $02 ; cold start |
|||
; |
|||
ident .equ $FFFE ; loc of RomWBW HBIOS ident ptr |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
.org $0100 ; standard CP/M TPA executable |
|||
; |
|||
; setup stack (save old value) |
|||
ld (stksav),sp ; save stack |
|||
ld sp,stack ; set new stack |
|||
; |
|||
call crlf |
|||
ld de,str_banner ; banner |
|||
call prtstr |
|||
; |
|||
; initialization |
|||
call init ; initialize |
|||
jr nz,exit ; abort if init fails |
|||
; |
|||
call main ; do the real work |
|||
; |
|||
exit: |
|||
; clean up and return to command processor |
|||
call crlf ; formatting |
|||
ld sp,(stksav) ; restore stack |
|||
jp restart ; return to CP/M via restart |
|||
; |
|||
; |
|||
;=============================================================================== |
|||
; Main Program |
|||
;=============================================================================== |
|||
; |
|||
; Initialization |
|||
; |
|||
init: |
|||
; check for UNA (UBIOS) |
|||
ld a,($FFFD) ; fixed location of UNA API vector |
|||
cp $C3 ; jp instruction? |
|||
jr nz,initwbw ; if not, not UNA |
|||
ld hl,($FFFE) ; get jp address |
|||
ld a,(hl) ; get byte at target address |
|||
cp $FD ; first byte of UNA push ix instruction |
|||
jr nz,initwbw ; if not, not UNA |
|||
inc hl ; point to next byte |
|||
ld a,(hl) ; get next byte |
|||
cp $E5 ; second byte of UNA push ix instruction |
|||
jr nz,initwbw ; if not, not UNA |
|||
jp err_una ; UNA not supported |
|||
; |
|||
initwbw: |
|||
; get location of config data and verify integrity |
|||
ld hl,(ident) ; HL := adr or RomWBW HBIOS ident |
|||
ld a,(hl) ; get first byte of RomWBW marker |
|||
cp 'W' ; match? |
|||
jp nz,err_inv ; abort with invalid config block |
|||
inc hl ; next byte (marker byte 2) |
|||
ld a,(hl) ; load it |
|||
cp ~'W' ; match? |
|||
jp nz,err_inv ; abort with invalid config block |
|||
inc hl ; next byte (major/minor version) |
|||
ld a,(hl) ; load it |
|||
cp rmj << 4 | rmn ; match? |
|||
jp nz,err_ver ; abort with invalid os version |
|||
; |
|||
initz: |
|||
; initialization complete |
|||
xor a ; signal success |
|||
ret ; return |
|||
; |
|||
; |
|||
; |
|||
main: |
|||
; skip to start of first command line parameter |
|||
ld ix,$0081 ; point to start of parm area (past length byte) |
|||
call nonblank ; skip to next non-blank char |
|||
cp '/' ; option prefix? |
|||
jr nz,usage ; display help info & exit if nothing to do |
|||
; |
|||
; process any options |
|||
inc ix ; fetch next character and process |
|||
ld a,(ix) |
|||
call upcase ; ensure it's an upper case character |
|||
cp 'C' ; if it's a 'C' then |
|||
jr z,cboot ; do a cold boot. |
|||
cp 'W' ; if it's a 'W' then |
|||
jr z,wboot ; do a warm boot. |
|||
cp '?' ; if it's a '?' then |
|||
jr z,usage ; display usage info and exit. |
|||
jr err_parm ; or not a recognised option, so report and exit. |
|||
; |
|||
; Handle Usage Information |
|||
; |
|||
usage: |
|||
call crlf2 ; display the options for this utility |
|||
ld de,str_usage |
|||
call prtstr |
|||
or $FF |
|||
ret ; exit back out to CP/M CCP |
|||
; |
|||
; Handle Warm Boot |
|||
; |
|||
wboot: |
|||
ld de,str_warmboot ; message |
|||
call prtstr ; display it |
|||
ld b,bf_sysreset ; system restart |
|||
ld c,bf_sysres_warm ; warm start |
|||
call $fff0 ; call hbios |
|||
; |
|||
; Handle Cold Boot |
|||
; |
|||
cboot: |
|||
ld de,str_coldboot ; message |
|||
call prtstr ; display it |
|||
ld b,bf_sysreset ; system restart |
|||
ld c,bf_sysres_cold ; cold start |
|||
call $fff0 ; call hbios |
|||
; |
|||
;=============================================================================== |
|||
; Error Handlers |
|||
;=============================================================================== |
|||
; |
|||
err_una: |
|||
ld de,str_err_una |
|||
jr err_ret |
|||
err_inv: |
|||
ld de,str_err_inv |
|||
jr err_ret |
|||
err_ver: |
|||
ld de,str_err_ver |
|||
jr err_ret |
|||
err_parm: |
|||
ld de,str_err_parm |
|||
jr err_ret |
|||
|
|||
; |
|||
err_ret: |
|||
call crlf2 |
|||
call prtstr |
|||
or $FF ; signal error |
|||
ret |
|||
; |
|||
;=============================================================================== |
|||
; Utility Routines |
|||
;=============================================================================== |
|||
; |
|||
; Print character in A without destroying any registers |
|||
; |
|||
prtchr: |
|||
push af |
|||
push bc ; save registers |
|||
push de |
|||
push hl |
|||
ld e,a ; character to print in E |
|||
ld c,$02 ; BDOS function to output a character |
|||
call bdos ; do it |
|||
pop hl ; restore registers |
|||
pop de |
|||
pop bc |
|||
pop af |
|||
ret |
|||
; |
|||
; Start a new line |
|||
; |
|||
crlf2: |
|||
call crlf ; two of them |
|||
crlf: |
|||
push af ; preserve AF |
|||
ld a,13 ; <CR> |
|||
call prtchr ; print it |
|||
ld a,10 ; <LF> |
|||
call prtchr ; print it |
|||
pop af ; restore AF |
|||
ret |
|||
; |
|||
; Print a zero terminated string at (de) without destroying any registers |
|||
; |
|||
prtstr: |
|||
push af |
|||
push de |
|||
; |
|||
prtstr1: |
|||
ld a,(de) ; get next char |
|||
or a |
|||
jr z,prtstr2 |
|||
call prtchr |
|||
inc de |
|||
jr prtstr1 |
|||
; |
|||
prtstr2: |
|||
pop de ; restore registers |
|||
pop af |
|||
ret |
|||
; |
|||
; Get the next non-blank character from (ix) |
|||
; |
|||
nonblank: |
|||
ld a,(ix) ; load next character |
|||
or a ; string ends with a null |
|||
ret z ; if null, return pointing to null |
|||
cp ' ' ; check for blank |
|||
ret nz ; return if not blank |
|||
inc ix ; if blank, increment character pointer |
|||
jr nonblank ; and loop |
|||
; |
|||
; Convert character in A to uppercase |
|||
; |
|||
upcase: |
|||
cp 'a' ; if below 'a' |
|||
ret c ; ... do nothing and return |
|||
cp 'z' + 1 ; if above 'z' |
|||
ret nc ; ... do nothing and return |
|||
res 5,a ; clear bit 5 to make lower case -> upper case |
|||
ret ; and return |
|||
; |
|||
;=============================================================================== |
|||
; Constants |
|||
;=============================================================================== |
|||
; |
|||
str_banner .db "RomWBW Reboot Utility, Version 1.0, 12-Oct-2024\r\n" |
|||
.db " Wayne Warthen (wwarthen@gmail.com) & MartinR",0 |
|||
; |
|||
str_warmboot .db "\r\n\r\nWarm booting...\r\n",0 |
|||
str_coldboot .db "\r\n\r\nCold booting...\r\n",0 |
|||
; |
|||
str_err_una .db " ERROR: UNA not supported by application",0 |
|||
str_err_inv .db " ERROR: Invalid BIOS (signature missing)",0 |
|||
str_err_ver .db " ERROR: Unexpected HBIOS version",0 |
|||
str_err_parm .db " ERROR: Parameter error (REBOOT /? for usage)",0 |
|||
; |
|||
str_usage .db " Usage: REBOOT /? - Display this help info.\r\n" |
|||
.db " REBOOT /W - Warm boot system\r\n" |
|||
.db " REBOOT /C - Cold boot system\r\n" |
|||
.db " Options are case insensitive.\r\n",0 |
|||
; |
|||
;=============================================================================== |
|||
; Working data |
|||
;=============================================================================== |
|||
; |
|||
stksav .dw 0 ; stack pointer saved at start |
|||
.fill stksiz,0 ; stack |
|||
stack .equ $ ; stack top |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
;============================================================================== |
|||
; REBOOT - Allows the user to Cold or Warm Boot the RomWBW System |
|||
; Version 1.0 12-October-2024 |
|||
;============================================================================== |
|||
; |
|||
; Author: MartinR (October 2024) |
|||
; Based **very heavily** on code by Wayne Warthen (wwarthen@gmail.com) |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Usage: |
|||
; REBOOT [/C] [/W] [/?] |
|||
; ex: REBOOT Display version and usage |
|||
; REBOOT /? Display version and usage |
|||
; REBOOT /C Cold boot RomWBW system |
|||
; REBOOT /W Warm boot RomWBW system |
|||
; |
|||
; Operation: |
|||
; Cold or warm boots a RomWBW system depending on the user option selected. |
|||
; |
|||
; This code will only execute on a Z80 CPU (or derivitive) |
|||
; |
|||
; This source code assembles with TASM V3.2 under Windows-11 using the |
|||
; following command line: |
|||
; tasm -80 -g3 -l REBOOT.ASM REBOOT.COM |
|||
; ie: Z80 CPU; output format 'binary' named .COM (rather than .OBJ) |
|||
; and includes a symbol table as part of the listing file. |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Change Log: |
|||
; 2024-09-11 [WBW] Release of RomWBW CPU Speed Selector v1.0 used as the basis |
|||
; 2024-10-12 [MR ] Initial release of version 1.0 |
|||
;______________________________________________________________________________ |
|||
; |
|||
; Include Files |
|||
; |
|||
#include "../../ver.inc" ; Used for building RomWBW |
|||
#include "../../HBIOS/hbios.inc" |
|||
|
|||
;#include "ver.inc" ; Used for testing purposes.... |
|||
;#include "hbios.inc" ; ....during code development |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
; General operational equates (should not requre adjustment) |
|||
; |
|||
stksiz .equ $40 ; Working stack size |
|||
; |
|||
restart .equ $0000 ; CP/M restart vector |
|||
bdos .equ $0005 ; BDOS invocation vector |
|||
; |
|||
bf_sysreset .equ $F0 ; restart system |
|||
bf_sysres_int .equ $00 ; reset hbios internal |
|||
bf_sysres_warm .equ $01 ; warm start (restart boot loader) |
|||
bf_sysres_cold .equ $02 ; cold start |
|||
; |
|||
ident .equ $FFFC ; loc of RomWBW HBIOS ident ptr |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
.org $0100 ; standard CP/M TPA executable |
|||
; |
|||
; setup stack (save old value) |
|||
ld (stksav),sp ; save stack |
|||
ld sp,stack ; set new stack |
|||
; |
|||
call crlf |
|||
ld de,str_banner ; banner |
|||
call prtstr |
|||
; |
|||
; initialization |
|||
call init ; initialize |
|||
jr nz,exit ; abort if init fails |
|||
; |
|||
call main ; do the real work |
|||
; |
|||
exit: |
|||
; clean up and return to command processor |
|||
call crlf ; formatting |
|||
ld sp,(stksav) ; restore stack |
|||
jp restart ; return to CP/M via restart |
|||
; |
|||
; |
|||
;=============================================================================== |
|||
; Main Program |
|||
;=============================================================================== |
|||
; |
|||
; Initialization |
|||
; |
|||
init: |
|||
; check for UNA (UBIOS) |
|||
ld a,($FFFD) ; fixed location of UNA API vector |
|||
cp $C3 ; jp instruction? |
|||
jr nz,initwbw ; if not, not UNA |
|||
ld hl,($FFFE) ; get jp address |
|||
ld a,(hl) ; get byte at target address |
|||
cp $FD ; first byte of UNA push ix instruction |
|||
jr nz,initwbw ; if not, not UNA |
|||
inc hl ; point to next byte |
|||
ld a,(hl) ; get next byte |
|||
cp $E5 ; second byte of UNA push ix instruction |
|||
jr nz,initwbw ; if not, not UNA |
|||
jp err_una ; UNA not supported |
|||
; |
|||
initwbw: |
|||
; get location of config data and verify integrity |
|||
ld hl,(ident) ; HL := adr or RomWBW HBIOS ident |
|||
ld a,(hl) ; get first byte of RomWBW marker |
|||
cp 'W' ; match? |
|||
jp nz,err_inv ; abort with invalid config block |
|||
inc hl ; next byte (marker byte 2) |
|||
ld a,(hl) ; load it |
|||
cp ~'W' ; match? |
|||
jp nz,err_inv ; abort with invalid config block |
|||
inc hl ; next byte (major/minor version) |
|||
ld a,(hl) ; load it |
|||
cp rmj << 4 | rmn ; match? |
|||
jp nz,err_ver ; abort with invalid os version |
|||
; |
|||
initz: |
|||
; initialization complete |
|||
xor a ; signal success |
|||
ret ; return |
|||
; |
|||
; |
|||
; |
|||
main: |
|||
; skip to start of first command line parameter |
|||
ld ix,$0081 ; point to start of parm area (past length byte) |
|||
call nonblank ; skip to next non-blank char |
|||
cp '/' ; option prefix? |
|||
jr nz,usage ; display help info & exit if nothing to do |
|||
; |
|||
; process any options |
|||
inc ix ; fetch next character and process |
|||
ld a,(ix) |
|||
call upcase ; ensure it's an upper case character |
|||
cp 'C' ; if it's a 'C' then |
|||
jr z,cboot ; do a cold boot. |
|||
cp 'W' ; if it's a 'W' then |
|||
jr z,wboot ; do a warm boot. |
|||
cp '?' ; if it's a '?' then |
|||
jr z,usage ; display usage info and exit. |
|||
jr err_parm ; or not a recognised option, so report and exit. |
|||
; |
|||
; Handle Usage Information |
|||
; |
|||
usage: |
|||
call crlf2 ; display the options for this utility |
|||
ld de,str_usage |
|||
call prtstr |
|||
or $FF |
|||
ret ; exit back out to CP/M CCP |
|||
; |
|||
; Handle Warm Boot |
|||
; |
|||
wboot: |
|||
ld de,str_warmboot ; message |
|||
call prtstr ; display it |
|||
ld b,bf_sysreset ; system restart |
|||
ld c,bf_sysres_warm ; warm start |
|||
call $fff0 ; call hbios |
|||
; |
|||
; Handle Cold Boot |
|||
; |
|||
cboot: |
|||
ld de,str_coldboot ; message |
|||
call prtstr ; display it |
|||
ld b,bf_sysreset ; system restart |
|||
ld c,bf_sysres_cold ; cold start |
|||
call $fff0 ; call hbios |
|||
; |
|||
;=============================================================================== |
|||
; Error Handlers |
|||
;=============================================================================== |
|||
; |
|||
err_una: |
|||
ld de,str_err_una |
|||
jr err_ret |
|||
err_inv: |
|||
ld de,str_err_inv |
|||
jr err_ret |
|||
err_ver: |
|||
ld de,str_err_ver |
|||
jr err_ret |
|||
err_parm: |
|||
ld de,str_err_parm |
|||
jr err_ret |
|||
|
|||
; |
|||
err_ret: |
|||
call crlf2 |
|||
call prtstr |
|||
or $FF ; signal error |
|||
ret |
|||
; |
|||
;=============================================================================== |
|||
; Utility Routines |
|||
;=============================================================================== |
|||
; |
|||
; Print character in A without destroying any registers |
|||
; |
|||
prtchr: |
|||
push af |
|||
push bc ; save registers |
|||
push de |
|||
push hl |
|||
ld e,a ; character to print in E |
|||
ld c,$02 ; BDOS function to output a character |
|||
call bdos ; do it |
|||
pop hl ; restore registers |
|||
pop de |
|||
pop bc |
|||
pop af |
|||
ret |
|||
; |
|||
; Start a new line |
|||
; |
|||
crlf2: |
|||
call crlf ; two of them |
|||
crlf: |
|||
push af ; preserve AF |
|||
ld a,13 ; <CR> |
|||
call prtchr ; print it |
|||
ld a,10 ; <LF> |
|||
call prtchr ; print it |
|||
pop af ; restore AF |
|||
ret |
|||
; |
|||
; Print a zero terminated string at (de) without destroying any registers |
|||
; |
|||
prtstr: |
|||
push af |
|||
push de |
|||
; |
|||
prtstr1: |
|||
ld a,(de) ; get next char |
|||
or a |
|||
jr z,prtstr2 |
|||
call prtchr |
|||
inc de |
|||
jr prtstr1 |
|||
; |
|||
prtstr2: |
|||
pop de ; restore registers |
|||
pop af |
|||
ret |
|||
; |
|||
; Get the next non-blank character from (ix) |
|||
; |
|||
nonblank: |
|||
ld a,(ix) ; load next character |
|||
or a ; string ends with a null |
|||
ret z ; if null, return pointing to null |
|||
cp ' ' ; check for blank |
|||
ret nz ; return if not blank |
|||
inc ix ; if blank, increment character pointer |
|||
jr nonblank ; and loop |
|||
; |
|||
; Convert character in A to uppercase |
|||
; |
|||
upcase: |
|||
cp 'a' ; if below 'a' |
|||
ret c ; ... do nothing and return |
|||
cp 'z' + 1 ; if above 'z' |
|||
ret nc ; ... do nothing and return |
|||
res 5,a ; clear bit 5 to make lower case -> upper case |
|||
ret ; and return |
|||
; |
|||
;=============================================================================== |
|||
; Constants |
|||
;=============================================================================== |
|||
; |
|||
str_banner .db "RomWBW Reboot Utility, Version 1.0, 12-Oct-2024\r\n" |
|||
.db " Wayne Warthen (wwarthen@gmail.com) & MartinR",0 |
|||
; |
|||
str_warmboot .db "\r\n\r\nWarm booting...\r\n",0 |
|||
str_coldboot .db "\r\n\r\nCold booting...\r\n",0 |
|||
; |
|||
str_err_una .db " ERROR: UNA not supported by application",0 |
|||
str_err_inv .db " ERROR: Invalid BIOS (signature missing)",0 |
|||
str_err_ver .db " ERROR: Unexpected HBIOS version",0 |
|||
str_err_parm .db " ERROR: Parameter error (REBOOT /? for usage)",0 |
|||
; |
|||
str_usage .db " Usage: REBOOT /? - Display this help info.\r\n" |
|||
.db " REBOOT /W - Warm boot system\r\n" |
|||
.db " REBOOT /C - Cold boot system\r\n" |
|||
.db " Options are case insensitive.\r\n",0 |
|||
; |
|||
;=============================================================================== |
|||
; Working data |
|||
;=============================================================================== |
|||
; |
|||
stksav .dw 0 ; stack pointer saved at start |
|||
.fill stksiz,0 ; stack |
|||
stack .equ $ ; stack top |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
.end |
|||
File diff suppressed because it is too large
@ -1,399 +1,399 @@ |
|||
;=============================================================================== |
|||
; STARTUP - Application run automatically at OS startup |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
; Author: Wayne Warthen (wwarthen@gmail.com) |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; Usage: |
|||
; MODE [/?] |
|||
; |
|||
; Operation: |
|||
; Determines if STARTUP.CMD exists on startup drive, user 0. If it is |
|||
; found, it is run via SUBMIT. |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; Change Log: |
|||
; 2017-12-01 [WBW] Initial release |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; ToDo: |
|||
; 1) Detect OS type (CP/M or ZSYS) and run different batch files as a result. |
|||
;_______________________________________________________________________________ |
|||
; |
|||
;=============================================================================== |
|||
; Definitions |
|||
;=============================================================================== |
|||
; |
|||
stksiz .equ $40 ; Working stack size |
|||
; |
|||
restart .equ $0000 ; CP/M restart vector |
|||
bdos .equ $0005 ; BDOS invocation vector |
|||
; |
|||
ident .equ $FFFE ; loc of RomWBW HBIOS ident ptr |
|||
; |
|||
rmj .equ 2 ; intended CBIOS version - major |
|||
rmn .equ 9 ; intended CBIOS version - minor |
|||
; |
|||
bf_cioinit .equ $04 ; HBIOS: CIOINIT function |
|||
bf_cioquery .equ $05 ; HBIOS: CIOQUERY function |
|||
bf_ciodevice .equ $06 ; HBIOS: CIODEVICE function |
|||
bf_sysget .equ $F8 ; HBIOS: SYSGET function |
|||
; |
|||
;=============================================================================== |
|||
; Code Section |
|||
;=============================================================================== |
|||
; |
|||
.org $100 |
|||
; |
|||
; setup stack (save old value) |
|||
ld (stksav),sp ; save stack |
|||
ld sp,stack ; set new stack |
|||
; |
|||
; initialization |
|||
call init ; initialize |
|||
jr nz,exit ; abort if init fails |
|||
; |
|||
; process |
|||
call process ; do main processing |
|||
jr nz,exit ; abort on error |
|||
; |
|||
exit: ; clean up and return to command processor |
|||
call crlf ; formatting |
|||
ld sp,(stksav) ; restore stack |
|||
;jp restart ; return to CP/M via restart |
|||
ret ; return to CP/M w/o restart |
|||
; |
|||
; Initialization |
|||
; |
|||
init: |
|||
; |
|||
initx |
|||
; initialization complete |
|||
xor a ; signal success |
|||
ret ; return |
|||
; |
|||
; Process |
|||
; |
|||
process: |
|||
; skip to start of first parm |
|||
ld ix,$81 ; point to start of parm area (past len byte) |
|||
call nonblank ; skip to next non-blank char |
|||
jp z,runcmd ; no parms, do command processing |
|||
; |
|||
process1: |
|||
; process options (if any) |
|||
cp '/' ; option prefix? |
|||
jp nz,erruse ; invalid option introducer |
|||
call option ; process option |
|||
ret nz ; some options mean we are done (e.g., "/?") |
|||
inc ix ; skip option character |
|||
call nonblank ; skip whitespace |
|||
jr nz,process1 ; continue option checking |
|||
jp runcmd ; end of parms, do cmd processing |
|||
; |
|||
; |
|||
; |
|||
runcmd: |
|||
call ldfil ; load executable |
|||
ret nz ; abort on error |
|||
; |
|||
xor a |
|||
ret |
|||
; |
|||
; Load file for execution |
|||
; |
|||
ldfil: |
|||
ld c,15 ; BDOS function: Open File |
|||
ld de,fcb ; pointer to FCB |
|||
call bdos ; do it |
|||
inc a ; check for err, 0xFF --> 0x00 |
|||
jp z,errfil ; handle file not found err |
|||
; |
|||
ld c,16 ; BDOS function: Close File |
|||
ld de,fcb ; pointer to FCB |
|||
call bdos ; do it |
|||
inc a ; check for err, 0xFF --> 0x00 |
|||
jp z,errfil ; handle file close err |
|||
; |
|||
xor a ; signal success |
|||
ret ; done |
|||
|
|||
|
|||
; |
|||
; Handle options |
|||
; |
|||
option: |
|||
; |
|||
inc ix ; next char |
|||
ld a,(ix) ; get it |
|||
cp '?' ; is it a '?' as expected? |
|||
jp z,usage ; yes, display usage |
|||
jp errprm ; anything else is an error |
|||
; |
|||
; Display usage |
|||
; |
|||
usage: |
|||
; |
|||
call crlf ; formatting |
|||
ld de,msgban ; point to version message part 1 |
|||
call prtstr ; print it |
|||
call crlf2 ; blank line |
|||
ld de,msguse ; point to usage message |
|||
call prtstr ; print it |
|||
or $FF ; signal no action performed |
|||
ret ; and return |
|||
; |
|||
; Print character in A without destroying any registers |
|||
; |
|||
prtchr: |
|||
push bc ; save registers |
|||
push de |
|||
push hl |
|||
ld e,a ; character to print in E |
|||
ld c,$02 ; BDOS function to output a character |
|||
call bdos ; do it |
|||
pop hl ; restore registers |
|||
pop de |
|||
pop bc |
|||
ret |
|||
; |
|||
prtdot: |
|||
; |
|||
; shortcut to print a dot preserving all regs |
|||
push af ; save af |
|||
ld a,'.' ; load dot char |
|||
call prtchr ; print it |
|||
pop af ; restore af |
|||
ret ; done |
|||
; |
|||
; Print a zero terminated string at (DE) without destroying any registers |
|||
; |
|||
prtstr: |
|||
push de |
|||
; |
|||
prtstr1: |
|||
ld a,(de) ; get next char |
|||
or a |
|||
jr z,prtstr2 |
|||
call prtchr |
|||
inc de |
|||
jr prtstr1 |
|||
; |
|||
prtstr2: |
|||
pop de ; restore registers |
|||
ret |
|||
; |
|||
; Print the value in A in hex without destroying any registers |
|||
; |
|||
prthex: |
|||
push af ; save AF |
|||
push de ; save DE |
|||
call hexascii ; convert value in A to hex chars in DE |
|||
ld a,d ; get the high order hex char |
|||
call prtchr ; print it |
|||
ld a,e ; get the low order hex char |
|||
call prtchr ; print it |
|||
pop de ; restore DE |
|||
pop af ; restore AF |
|||
ret ; done |
|||
; |
|||
; print the hex word value in bc |
|||
; |
|||
prthexword: |
|||
push af |
|||
ld a,b |
|||
call prthex |
|||
ld a,c |
|||
call prthex |
|||
pop af |
|||
ret |
|||
; |
|||
; print the hex dword value in de:hl |
|||
; |
|||
prthex32: |
|||
push bc |
|||
push de |
|||
pop bc |
|||
call prthexword |
|||
push hl |
|||
pop bc |
|||
call prthexword |
|||
pop bc |
|||
ret |
|||
; |
|||
; Convert binary value in A to ascii hex characters in DE |
|||
; |
|||
hexascii: |
|||
ld d,a ; save A in D |
|||
call hexconv ; convert low nibble of A to hex |
|||
ld e,a ; save it in E |
|||
ld a,d ; get original value back |
|||
rlca ; rotate high order nibble to low bits |
|||
rlca |
|||
rlca |
|||
rlca |
|||
call hexconv ; convert nibble |
|||
ld d,a ; save it in D |
|||
ret ; done |
|||
; |
|||
; Convert low nibble of A to ascii hex |
|||
; |
|||
hexconv: |
|||
and $0F ; low nibble only |
|||
add a,$90 |
|||
daa |
|||
adc a,$40 |
|||
daa |
|||
ret |
|||
; |
|||
; Print value of A or HL in decimal with leading zero suppression |
|||
; Use prtdecb for A or prtdecw for HL |
|||
; |
|||
prtdecb: |
|||
push hl |
|||
ld h,0 |
|||
ld l,a |
|||
call prtdecw ; print it |
|||
pop hl |
|||
ret |
|||
; |
|||
prtdecw: |
|||
push af |
|||
push bc |
|||
push de |
|||
push hl |
|||
call prtdec0 |
|||
pop hl |
|||
pop de |
|||
pop bc |
|||
pop af |
|||
ret |
|||
; |
|||
prtdec0: |
|||
ld e,'0' |
|||
ld bc,-10000 |
|||
call prtdec1 |
|||
ld bc,-1000 |
|||
call prtdec1 |
|||
ld bc,-100 |
|||
call prtdec1 |
|||
ld c,-10 |
|||
call prtdec1 |
|||
ld e,0 |
|||
ld c,-1 |
|||
prtdec1: |
|||
ld a,'0' - 1 |
|||
prtdec2: |
|||
inc a |
|||
add hl,bc |
|||
jr c,prtdec2 |
|||
sbc hl,bc |
|||
cp e |
|||
ret z |
|||
ld e,0 |
|||
call prtchr |
|||
ret |
|||
; |
|||
; Start a new line |
|||
; |
|||
crlf2: |
|||
call crlf ; two of them |
|||
crlf: |
|||
push af ; preserve AF |
|||
ld a,13 ; <CR> |
|||
call prtchr ; print it |
|||
ld a,10 ; <LF> |
|||
call prtchr ; print it |
|||
pop af ; restore AF |
|||
ret |
|||
; |
|||
; Get the next non-blank character from (HL). |
|||
; |
|||
nonblank: |
|||
ld a,(ix) ; load next character |
|||
or a ; string ends with a null |
|||
ret z ; if null, return pointing to null |
|||
cp ' ' ; check for blank |
|||
ret nz ; return if not blank |
|||
inc ix ; if blank, increment character pointer |
|||
jr nonblank ; and loop |
|||
; |
|||
; Convert character in A to uppercase |
|||
; |
|||
ucase: |
|||
cp 'a' ; if below 'a' |
|||
ret c ; ... do nothing and return |
|||
cp 'z' + 1 ; if above 'z' |
|||
ret nc ; ... do nothing and return |
|||
res 5,a ; clear bit 5 to make lower case -> upper case |
|||
ret ; and return |
|||
; |
|||
; Add the value in A to HL (HL := HL + A) |
|||
; |
|||
addhl: |
|||
add a,l ; A := A + L |
|||
ld l,a ; Put result back in L |
|||
ret nc ; if no carry, we are done |
|||
inc h ; if carry, increment H |
|||
ret ; and return |
|||
; |
|||
; Jump indirect to address in HL |
|||
; |
|||
jphl: |
|||
jp (hl) |
|||
; |
|||
; Errors |
|||
; |
|||
erruse: ; command usage error (syntax) |
|||
ld de,msguse |
|||
jr err |
|||
; |
|||
errprm: ; command parameter error (syntax) |
|||
ld de,msgprm |
|||
jr err |
|||
; |
|||
errfil: ; STARTUP.CMD file not present |
|||
ld de,msgfil |
|||
jr err |
|||
; |
|||
err: ; print error string and return error signal |
|||
call crlf ; print newline |
|||
; |
|||
err1: ; without the leading crlf |
|||
call prtstr ; print error string |
|||
; |
|||
err2: ; without the string |
|||
; call crlf ; print newline |
|||
or $FF ; signal error |
|||
ret ; done |
|||
; |
|||
;=============================================================================== |
|||
; Storage Section |
|||
;=============================================================================== |
|||
; |
|||
fcb .db 0 ; Drive code, 0 = current drive |
|||
.db "START " ; File name, 8 chars |
|||
.db "COM" ; File type, 3 chars |
|||
.fill 36-($-fcb),0 ; zero fill remainder of fcb |
|||
; |
|||
cmdblk .db cmdlen ; length |
|||
cmdtxt .db " B:SUBMIT START" |
|||
.db 0 ; null terminator |
|||
cmdlen .equ $ - cmdtxt |
|||
cmdend .equ $ |
|||
; |
|||
stksav .dw 0 ; stack pointer saved at start |
|||
.fill stksiz,0 ; stack |
|||
stack .equ $ ; stack top |
|||
; |
|||
; Messages |
|||
; |
|||
msgban .db "STARTUP v1.0, 01-Dec-2017",13,10 |
|||
.db "Copyright (C) 2017, Wayne Warthen, GNU GPL v3",0 |
|||
msguse .db "Usage: STARTUP [/?]",0 |
|||
msgprm .db "Parameter error (STARTUP /? for usage)",0 |
|||
msgfil .db "STARTUP.CMD file missing",0 |
|||
; |
|||
.end |
|||
;=============================================================================== |
|||
; STARTUP - Application run automatically at OS startup |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
; Author: Wayne Warthen (wwarthen@gmail.com) |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; Usage: |
|||
; MODE [/?] |
|||
; |
|||
; Operation: |
|||
; Determines if STARTUP.CMD exists on startup drive, user 0. If it is |
|||
; found, it is run via SUBMIT. |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; Change Log: |
|||
; 2017-12-01 [WBW] Initial release |
|||
;_______________________________________________________________________________ |
|||
; |
|||
; ToDo: |
|||
; 1) Detect OS type (CP/M or ZSYS) and run different batch files as a result. |
|||
;_______________________________________________________________________________ |
|||
; |
|||
;=============================================================================== |
|||
; Definitions |
|||
;=============================================================================== |
|||
; |
|||
stksiz .equ $40 ; Working stack size |
|||
; |
|||
restart .equ $0000 ; CP/M restart vector |
|||
bdos .equ $0005 ; BDOS invocation vector |
|||
; |
|||
ident .equ $FFFC ; loc of RomWBW HBIOS ident ptr |
|||
; |
|||
rmj .equ 2 ; intended CBIOS version - major |
|||
rmn .equ 9 ; intended CBIOS version - minor |
|||
; |
|||
bf_cioinit .equ $04 ; HBIOS: CIOINIT function |
|||
bf_cioquery .equ $05 ; HBIOS: CIOQUERY function |
|||
bf_ciodevice .equ $06 ; HBIOS: CIODEVICE function |
|||
bf_sysget .equ $F8 ; HBIOS: SYSGET function |
|||
; |
|||
;=============================================================================== |
|||
; Code Section |
|||
;=============================================================================== |
|||
; |
|||
.org $100 |
|||
; |
|||
; setup stack (save old value) |
|||
ld (stksav),sp ; save stack |
|||
ld sp,stack ; set new stack |
|||
; |
|||
; initialization |
|||
call init ; initialize |
|||
jr nz,exit ; abort if init fails |
|||
; |
|||
; process |
|||
call process ; do main processing |
|||
jr nz,exit ; abort on error |
|||
; |
|||
exit: ; clean up and return to command processor |
|||
call crlf ; formatting |
|||
ld sp,(stksav) ; restore stack |
|||
;jp restart ; return to CP/M via restart |
|||
ret ; return to CP/M w/o restart |
|||
; |
|||
; Initialization |
|||
; |
|||
init: |
|||
; |
|||
initx |
|||
; initialization complete |
|||
xor a ; signal success |
|||
ret ; return |
|||
; |
|||
; Process |
|||
; |
|||
process: |
|||
; skip to start of first parm |
|||
ld ix,$81 ; point to start of parm area (past len byte) |
|||
call nonblank ; skip to next non-blank char |
|||
jp z,runcmd ; no parms, do command processing |
|||
; |
|||
process1: |
|||
; process options (if any) |
|||
cp '/' ; option prefix? |
|||
jp nz,erruse ; invalid option introducer |
|||
call option ; process option |
|||
ret nz ; some options mean we are done (e.g., "/?") |
|||
inc ix ; skip option character |
|||
call nonblank ; skip whitespace |
|||
jr nz,process1 ; continue option checking |
|||
jp runcmd ; end of parms, do cmd processing |
|||
; |
|||
; |
|||
; |
|||
runcmd: |
|||
call ldfil ; load executable |
|||
ret nz ; abort on error |
|||
; |
|||
xor a |
|||
ret |
|||
; |
|||
; Load file for execution |
|||
; |
|||
ldfil: |
|||
ld c,15 ; BDOS function: Open File |
|||
ld de,fcb ; pointer to FCB |
|||
call bdos ; do it |
|||
inc a ; check for err, 0xFF --> 0x00 |
|||
jp z,errfil ; handle file not found err |
|||
; |
|||
ld c,16 ; BDOS function: Close File |
|||
ld de,fcb ; pointer to FCB |
|||
call bdos ; do it |
|||
inc a ; check for err, 0xFF --> 0x00 |
|||
jp z,errfil ; handle file close err |
|||
; |
|||
xor a ; signal success |
|||
ret ; done |
|||
|
|||
|
|||
; |
|||
; Handle options |
|||
; |
|||
option: |
|||
; |
|||
inc ix ; next char |
|||
ld a,(ix) ; get it |
|||
cp '?' ; is it a '?' as expected? |
|||
jp z,usage ; yes, display usage |
|||
jp errprm ; anything else is an error |
|||
; |
|||
; Display usage |
|||
; |
|||
usage: |
|||
; |
|||
call crlf ; formatting |
|||
ld de,msgban ; point to version message part 1 |
|||
call prtstr ; print it |
|||
call crlf2 ; blank line |
|||
ld de,msguse ; point to usage message |
|||
call prtstr ; print it |
|||
or $FF ; signal no action performed |
|||
ret ; and return |
|||
; |
|||
; Print character in A without destroying any registers |
|||
; |
|||
prtchr: |
|||
push bc ; save registers |
|||
push de |
|||
push hl |
|||
ld e,a ; character to print in E |
|||
ld c,$02 ; BDOS function to output a character |
|||
call bdos ; do it |
|||
pop hl ; restore registers |
|||
pop de |
|||
pop bc |
|||
ret |
|||
; |
|||
prtdot: |
|||
; |
|||
; shortcut to print a dot preserving all regs |
|||
push af ; save af |
|||
ld a,'.' ; load dot char |
|||
call prtchr ; print it |
|||
pop af ; restore af |
|||
ret ; done |
|||
; |
|||
; Print a zero terminated string at (DE) without destroying any registers |
|||
; |
|||
prtstr: |
|||
push de |
|||
; |
|||
prtstr1: |
|||
ld a,(de) ; get next char |
|||
or a |
|||
jr z,prtstr2 |
|||
call prtchr |
|||
inc de |
|||
jr prtstr1 |
|||
; |
|||
prtstr2: |
|||
pop de ; restore registers |
|||
ret |
|||
; |
|||
; Print the value in A in hex without destroying any registers |
|||
; |
|||
prthex: |
|||
push af ; save AF |
|||
push de ; save DE |
|||
call hexascii ; convert value in A to hex chars in DE |
|||
ld a,d ; get the high order hex char |
|||
call prtchr ; print it |
|||
ld a,e ; get the low order hex char |
|||
call prtchr ; print it |
|||
pop de ; restore DE |
|||
pop af ; restore AF |
|||
ret ; done |
|||
; |
|||
; print the hex word value in bc |
|||
; |
|||
prthexword: |
|||
push af |
|||
ld a,b |
|||
call prthex |
|||
ld a,c |
|||
call prthex |
|||
pop af |
|||
ret |
|||
; |
|||
; print the hex dword value in de:hl |
|||
; |
|||
prthex32: |
|||
push bc |
|||
push de |
|||
pop bc |
|||
call prthexword |
|||
push hl |
|||
pop bc |
|||
call prthexword |
|||
pop bc |
|||
ret |
|||
; |
|||
; Convert binary value in A to ascii hex characters in DE |
|||
; |
|||
hexascii: |
|||
ld d,a ; save A in D |
|||
call hexconv ; convert low nibble of A to hex |
|||
ld e,a ; save it in E |
|||
ld a,d ; get original value back |
|||
rlca ; rotate high order nibble to low bits |
|||
rlca |
|||
rlca |
|||
rlca |
|||
call hexconv ; convert nibble |
|||
ld d,a ; save it in D |
|||
ret ; done |
|||
; |
|||
; Convert low nibble of A to ascii hex |
|||
; |
|||
hexconv: |
|||
and $0F ; low nibble only |
|||
add a,$90 |
|||
daa |
|||
adc a,$40 |
|||
daa |
|||
ret |
|||
; |
|||
; Print value of A or HL in decimal with leading zero suppression |
|||
; Use prtdecb for A or prtdecw for HL |
|||
; |
|||
prtdecb: |
|||
push hl |
|||
ld h,0 |
|||
ld l,a |
|||
call prtdecw ; print it |
|||
pop hl |
|||
ret |
|||
; |
|||
prtdecw: |
|||
push af |
|||
push bc |
|||
push de |
|||
push hl |
|||
call prtdec0 |
|||
pop hl |
|||
pop de |
|||
pop bc |
|||
pop af |
|||
ret |
|||
; |
|||
prtdec0: |
|||
ld e,'0' |
|||
ld bc,-10000 |
|||
call prtdec1 |
|||
ld bc,-1000 |
|||
call prtdec1 |
|||
ld bc,-100 |
|||
call prtdec1 |
|||
ld c,-10 |
|||
call prtdec1 |
|||
ld e,0 |
|||
ld c,-1 |
|||
prtdec1: |
|||
ld a,'0' - 1 |
|||
prtdec2: |
|||
inc a |
|||
add hl,bc |
|||
jr c,prtdec2 |
|||
sbc hl,bc |
|||
cp e |
|||
ret z |
|||
ld e,0 |
|||
call prtchr |
|||
ret |
|||
; |
|||
; Start a new line |
|||
; |
|||
crlf2: |
|||
call crlf ; two of them |
|||
crlf: |
|||
push af ; preserve AF |
|||
ld a,13 ; <CR> |
|||
call prtchr ; print it |
|||
ld a,10 ; <LF> |
|||
call prtchr ; print it |
|||
pop af ; restore AF |
|||
ret |
|||
; |
|||
; Get the next non-blank character from (HL). |
|||
; |
|||
nonblank: |
|||
ld a,(ix) ; load next character |
|||
or a ; string ends with a null |
|||
ret z ; if null, return pointing to null |
|||
cp ' ' ; check for blank |
|||
ret nz ; return if not blank |
|||
inc ix ; if blank, increment character pointer |
|||
jr nonblank ; and loop |
|||
; |
|||
; Convert character in A to uppercase |
|||
; |
|||
ucase: |
|||
cp 'a' ; if below 'a' |
|||
ret c ; ... do nothing and return |
|||
cp 'z' + 1 ; if above 'z' |
|||
ret nc ; ... do nothing and return |
|||
res 5,a ; clear bit 5 to make lower case -> upper case |
|||
ret ; and return |
|||
; |
|||
; Add the value in A to HL (HL := HL + A) |
|||
; |
|||
addhl: |
|||
add a,l ; A := A + L |
|||
ld l,a ; Put result back in L |
|||
ret nc ; if no carry, we are done |
|||
inc h ; if carry, increment H |
|||
ret ; and return |
|||
; |
|||
; Jump indirect to address in HL |
|||
; |
|||
jphl: |
|||
jp (hl) |
|||
; |
|||
; Errors |
|||
; |
|||
erruse: ; command usage error (syntax) |
|||
ld de,msguse |
|||
jr err |
|||
; |
|||
errprm: ; command parameter error (syntax) |
|||
ld de,msgprm |
|||
jr err |
|||
; |
|||
errfil: ; STARTUP.CMD file not present |
|||
ld de,msgfil |
|||
jr err |
|||
; |
|||
err: ; print error string and return error signal |
|||
call crlf ; print newline |
|||
; |
|||
err1: ; without the leading crlf |
|||
call prtstr ; print error string |
|||
; |
|||
err2: ; without the string |
|||
; call crlf ; print newline |
|||
or $FF ; signal error |
|||
ret ; done |
|||
; |
|||
;=============================================================================== |
|||
; Storage Section |
|||
;=============================================================================== |
|||
; |
|||
fcb .db 0 ; Drive code, 0 = current drive |
|||
.db "START " ; File name, 8 chars |
|||
.db "COM" ; File type, 3 chars |
|||
.fill 36-($-fcb),0 ; zero fill remainder of fcb |
|||
; |
|||
cmdblk .db cmdlen ; length |
|||
cmdtxt .db " B:SUBMIT START" |
|||
.db 0 ; null terminator |
|||
cmdlen .equ $ - cmdtxt |
|||
cmdend .equ $ |
|||
; |
|||
stksav .dw 0 ; stack pointer saved at start |
|||
.fill stksiz,0 ; stack |
|||
stack .equ $ ; stack top |
|||
; |
|||
; Messages |
|||
; |
|||
msgban .db "STARTUP v1.0, 01-Dec-2017",13,10 |
|||
.db "Copyright (C) 2017, Wayne Warthen, GNU GPL v3",0 |
|||
msguse .db "Usage: STARTUP [/?]",0 |
|||
msgprm .db "Parameter error (STARTUP /? for usage)",0 |
|||
msgfil .db "STARTUP.CMD file missing",0 |
|||
; |
|||
.end |
|||
|
|||
File diff suppressed because it is too large
Loading…
Reference in new issue