Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2024-12-22 05:29:54 +00:00
Code Issues Projects Releases Wiki Activity

Pull out system reset logic

Browse Source
This commit is contained in:
Joshua Bell 2019-09-29 12:52:51 -07:00
parent e65fdfe1b5
commit fbddc217a6
2 changed files with 130 additions and 122 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
cricket.system.s
View File

@ -72,7 +72,8 @@ load: lda src,y ; self-modified
;;; ============================================================ ;;; ============================================================
.proc main .proc main
jsr setup jsr save_chain_info
jsr init_system
jsr maybe_install_driver jsr maybe_install_driver
jsr launch_next jsr launch_next
brk brk
@ -82,7 +83,7 @@ load: lda src,y ; self-modified
;;; Preserve state needed to chain to next file ;;; Preserve state needed to chain to next file
;;; ============================================================ ;;; ============================================================
.proc setup .proc save_chain_info
;; -------------------------------------------------- ;; --------------------------------------------------
;; Save most recent device for later, when chaining ;; Save most recent device for later, when chaining
;; to next .SYSTEM file. ;; to next .SYSTEM file.
@ -132,16 +133,60 @@ devnum: .byte 0
self_name: .res 16 self_name: .res 16
;;; ============================================================ ;;; ============================================================
;;; Find and invoke the next .SYSTEM file ;;; Init system state
;;; ============================================================ ;;; ============================================================
.proc quit ;;; Before installing, get the system to a known state.
MLI_CALL QUIT, quit_params
brk ; crash if QUIT fails
DEFINE_QUIT_PARAMS quit_params .proc init_system
cld
bit ROMIN2
;; Update reset vector - ProDOS QUIT
lda #<quit
sta $03F2
lda #>quit
sta $03F3
eor #$A5
sta $03F4
;; Quit 80-column firmware
lda #$95 ; Ctrl+U (quit 80 col firmware)
jsr COUT
;; Reset I/O
sta CLR80VID
sta CLRALTCHAR
jsr SETVID
jsr SETKBD
jsr SETNORM
jsr INIT
jsr HOME
;; Update System Bit Map
ldx #BITMAP_SIZE-1
lda #%00000001 ; protect page $BF
: sta BITMAP,x
lda #%00000000 ; nothing else protected until...
dex
bne :-
lda #%11001111 ; ZP ($00), stack ($01), text page 1 ($04-$07)
sta BITMAP
;; Determine lowercase support
lda MACHID
and #$88 ; IIe or IIc (or IIgs) ?
bne :+
lda #$DF
sta lowercase_mask ; lower case to upper case
: rts
.endproc .endproc
;;; ============================================================
;;; Find and invoke the next .SYSTEM file
;;; ============================================================
online_buf := $1C00 online_buf := $1C00
io_buf := $1C00 io_buf := $1C00
dir_buf := $2000 dir_buf := $2000
@ -155,14 +200,6 @@ block_len = $200
.proc launch_next .proc launch_next
;; Update reset vector - now terminates.
lda #<quit
sta $03F2
lda #>quit
sta $03F3
eor #$A5
sta $03F4
;; Read directory and look for .SYSTEM files; find this ;; Read directory and look for .SYSTEM files; find this
;; one, and invoke the following one. ;; one, and invoke the following one.
@ -173,10 +210,12 @@ block_len = $200
;; -------------------------------------------------- ;; --------------------------------------------------
;; Own name found? If not, just quit ;; Own name found? If not, just quit
lda self_name lda self_name
beq quit bne :+
jmp quit
;; -------------------------------------------------- ;; --------------------------------------------------
;; Find name of boot device, copy into PATHNAME ;; Find name of boot device, copy into PATHNAME
lda devnum : lda devnum
sta on_line_params::unit_num sta on_line_params::unit_num
MLI_CALL ON_LINE, on_line_params MLI_CALL ON_LINE, on_line_params
bcc :+ bcc :+
@ -331,6 +370,7 @@ not_found:
lda open_params::ref_num lda open_params::ref_num
sta read_params::ref_num sta read_params::ref_num
sta close_params::ref_num
MLI_CALL READ, read_params MLI_CALL READ, read_params
bcs on_error bcs on_error
@ -364,6 +404,13 @@ not_found:
jmp quit jmp quit
.endproc .endproc
.proc quit
MLI_CALL QUIT, quit_params
brk ; crash if QUIT fails
DEFINE_QUIT_PARAMS quit_params
.endproc
;;; ============================================================ ;;; ============================================================
;;; Data ;;; Data
@ -445,50 +492,10 @@ units: pla
;;; ============================================================ ;;; ============================================================
;;; ============================================================ ;;; ============================================================
;;; Before installing, get the system to a known state and ;;; Ensure there is not a previous clock driver installed.
;;; ensure there is not a previous clock driver installed.
.proc maybe_install_driver .proc maybe_install_driver
cld
bit ROMIN2
;; Update reset vector - re-invokes this code.
lda #<maybe_install_driver
sta $03F2
lda #>maybe_install_driver
sta $03F3
eor #$A5
sta $03F4
;; Quit 80-column firmware
lda #$95 ; Ctrl+U (quit 80 col firmware)
jsr COUT
;; Reset I/O
sta CLR80VID
sta CLRALTCHAR
jsr SETVID
jsr SETKBD
jsr SETNORM
jsr INIT
;; Update System Bit Map
ldx #BITMAP_SIZE-1
lda #%00000001 ; protect page $BF
: sta BITMAP,x
lda #%00000000 ; nothing else protected until...
dex
bne :-
lda #%11001111 ; ZP ($00), stack ($01), text page 1 ($04-$07)
sta BITMAP
lda MACHID lda MACHID
and #$88 ; IIe or IIc (or IIgs) ?
bne :+
lda #$DF
sta lowercase_mask ; lower case to upper case
: lda MACHID
and #$01 ; existing clock card? and #$01 ; existing clock card?
beq detect_cricket ; nope, check for Cricket beq detect_cricket ; nope, check for Cricket
@ -567,7 +574,6 @@ cricket_not_found:
not_found: not_found:
;; Show failure message ;; Show failure message
jsr HOME
jsr zstrout jsr zstrout
scrcode "\r\r\r", PRODUCT, " - Not Found." scrcode "\r\r\r", PRODUCT, " - Not Found."
.byte 0 .byte 0
@ -655,8 +661,6 @@ loop: lda driver,y
jsr DATETIME jsr DATETIME
;; Display success message ;; Display success message
bit ROMIN2
jsr HOME
jsr zstrout jsr zstrout
scrcode "\r\r\r", PRODUCT, " - Installed " scrcode "\r\r\r", PRODUCT, " - Installed "
.byte 0 .byte 0

126
ns.clock.system.s
View File

@ -69,7 +69,8 @@ load: lda src,y ; self-modified
;;; ============================================================ ;;; ============================================================
.proc main .proc main
jsr setup jsr save_chain_info
jsr init_system
jsr maybe_install_driver jsr maybe_install_driver
jsr launch_next jsr launch_next
brk brk
@ -79,7 +80,7 @@ load: lda src,y ; self-modified
;;; Preserve state needed to chain to next file ;;; Preserve state needed to chain to next file
;;; ============================================================ ;;; ============================================================
.proc setup .proc save_chain_info
;; -------------------------------------------------- ;; --------------------------------------------------
;; Save most recent device for later, when chaining ;; Save most recent device for later, when chaining
;; to next .SYSTEM file. ;; to next .SYSTEM file.
@ -129,16 +130,60 @@ devnum: .byte 0
self_name: .res 16 self_name: .res 16
;;; ============================================================ ;;; ============================================================
;;; Find and invoke the next .SYSTEM file ;;; Init system state
;;; ============================================================ ;;; ============================================================
.proc quit ;;; Before installing, get the system to a known state.
MLI_CALL QUIT, quit_params
brk ; crash if QUIT fails
DEFINE_QUIT_PARAMS quit_params .proc init_system
cld
bit ROMIN2
;; Update reset vector - ProDOS QUIT
lda #<quit
sta $03F2
lda #>quit
sta $03F3
eor #$A5
sta $03F4
;; Quit 80-column firmware
lda #$95 ; Ctrl+U (quit 80 col firmware)
jsr COUT
;; Reset I/O
sta CLR80VID
sta CLRALTCHAR
jsr SETVID
jsr SETKBD
jsr SETNORM
jsr INIT
jsr HOME
;; Update System Bit Map
ldx #BITMAP_SIZE-1
lda #%00000001 ; protect page $BF
: sta BITMAP,x
lda #%00000000 ; nothing else protected until...
dex
bne :-
lda #%11001111 ; ZP ($00), stack ($01), text page 1 ($04-$07)
sta BITMAP
;; Determine lowercase support
lda MACHID
and #$88 ; IIe or IIc (or IIgs) ?
bne :+
lda #$DF
sta lowercase_mask ; lower case to upper case
: rts
.endproc .endproc
;;; ============================================================
;;; Find and invoke the next .SYSTEM file
;;; ============================================================
online_buf := $1C00 online_buf := $1C00
io_buf := $1C00 io_buf := $1C00
dir_buf := $2000 dir_buf := $2000
@ -152,14 +197,6 @@ block_len = $200
.proc launch_next .proc launch_next
;; Update reset vector - now terminates.
lda #<quit
sta $03F2
lda #>quit
sta $03F3
eor #$A5
sta $03F4
;; Read directory and look for .SYSTEM files; find this ;; Read directory and look for .SYSTEM files; find this
;; one, and invoke the following one. ;; one, and invoke the following one.
@ -170,10 +207,12 @@ block_len = $200
;; -------------------------------------------------- ;; --------------------------------------------------
;; Own name found? If not, just quit ;; Own name found? If not, just quit
lda self_name lda self_name
beq quit bne :+
jmp quit
;; -------------------------------------------------- ;; --------------------------------------------------
;; Find name of boot device, copy into PATHNAME ;; Find name of boot device, copy into PATHNAME
lda devnum : lda devnum
sta on_line_params::unit_num sta on_line_params::unit_num
MLI_CALL ON_LINE, on_line_params MLI_CALL ON_LINE, on_line_params
bcc :+ bcc :+
@ -328,6 +367,7 @@ not_found:
lda open_params::ref_num lda open_params::ref_num
sta read_params::ref_num sta read_params::ref_num
sta close_params::ref_num
MLI_CALL READ, read_params MLI_CALL READ, read_params
bcs on_error bcs on_error
@ -361,6 +401,13 @@ not_found:
jmp quit jmp quit
.endproc .endproc
.proc quit
MLI_CALL QUIT, quit_params
brk ; crash if QUIT fails
DEFINE_QUIT_PARAMS quit_params
.endproc
;;; ============================================================ ;;; ============================================================
;;; Data ;;; Data
@ -442,50 +489,10 @@ units: pla
;;; ============================================================ ;;; ============================================================
;;; ============================================================ ;;; ============================================================
;;; Before installing, get the system to a known state and ;;; Ensure there is not a previous clock driver installed.
;;; ensure there is not a previous clock driver installed.
.proc maybe_install_driver .proc maybe_install_driver
cld
bit ROMIN2
;; Update reset vector - re-invokes this code.
lda #<maybe_install_driver
sta $03F2
lda #>maybe_install_driver
sta $03F3
eor #$A5
sta $03F4
;; Quit 80-column firmware
lda #$95 ; Ctrl+U (quit 80 col firmware)
jsr COUT
;; Reset I/O
sta CLR80VID
sta CLRALTCHAR
jsr SETVID
jsr SETKBD
jsr SETNORM
jsr INIT
;; Update System Bit Map
ldx #BITMAP_SIZE-1
lda #%00000001 ; protect page $BF
: sta BITMAP,x
lda #%00000000 ; nothing else protected until...
dex
bne :-
lda #%11001111 ; ZP ($00), stack ($01), text page 1 ($04-$07)
sta BITMAP
lda MACHID lda MACHID
and #$88 ; IIe or IIc (or IIgs) ?
bne :+
lda #$DF
sta lowercase_mask ; lower case to upper case
: lda MACHID
and #$01 ; existing clock card? and #$01 ; existing clock card?
beq detect_nsc ; nope, check for NSC beq detect_nsc ; nope, check for NSC
@ -579,7 +586,6 @@ not_found:
bpl :- bpl :-
;; Show failure message ;; Show failure message
jsr HOME
jsr zstrout jsr zstrout
scrcode "\r\r\r", PRODUCT, " - Not Found." scrcode "\r\r\r", PRODUCT, " - Not Found."
.byte 0 .byte 0
@ -629,8 +635,6 @@ loop: lda driver,y
jsr DATETIME jsr DATETIME
;; Display success message ;; Display success message
bit ROMIN2
jsr HOME
jsr zstrout jsr zstrout
scrcode "\r\r\r", PRODUCT, " - Installed " scrcode "\r\r\r", PRODUCT, " - Installed "
.byte 0 .byte 0