chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed some obsolete/unused code

Browse Source
This commit is contained in:
FeralChild64 authored and FeralChild64 committed 2021-01-26 00:03:07 +01:00
1 parent 316f13f3c0
commit 7ef189eccd
3 files changed
-335
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/mon_m65/bsmon.s
-15
View File
@@ -472,21 +472,6 @@ Dump_Row:
Mon_Assemble: Mon_Assemble:
; *********** ; ***********
lda #$0D
jsr DBG_print_char
lda #'-'
jsr DBG_print_char
ldx #$FF
@xx:
inx
lda BUF,x
beq @x1
jsr DBG_print_char
bra @xx
@x1:
lda #$0D
jsr DBG_print_char
LDA #$00 LDA #$00
STA Addr_Mode STA Addr_Mode
JSR Get_Val_To_LAC ; get 1st. parameter JSR Get_Val_To_LAC ; get 1st. parameter
src/mon_m65/mon_debug.s
-24
View File
@@ -1,24 +0,0 @@
;
; Helper code for debugging the monitor
;
; XXX remove this code once the monitor integration is complete
DBG_print_char:
php
pha
phx
phy
phz
jsr CHROUT
plz
ply
plx
pla
plp
rts
src/mon_m65/mon_disabled.s
-296
View File
@@ -1,296 +0,0 @@
; Based on BSM (Bit Shifter's Monitor) - disabled code
!ifdef DISABLED_DISABLED {
!addr Disk_Track = $XX ; logical track 1 -> 255
!addr Disk_Sector = $XX ; logical sector 0 -> 255
!addr Disk_Status = $XX ; BCD value of status
!addr Disk_Msg = $XX ; 40 bytes, disk status as text message
; **************
Get_Disk_Status:
; **************
LDA FA
JSR TALK
LDA #$6f
JSR TKSA
JSR ACPTR ; 1st. digit
STA Disk_Msg
ASL
ASL
ASL
ASL
STA Disk_Status ; BCD
JSR ACPTR ; 2nd. digit
STA Disk_Msg+1
AND #15
ORA Disk_Status
STA Disk_Status ; complete BCD number
LDY #1
@loop INY
JSR ACPTR
STA Disk_Msg,Y
CMP #' '
BCS @loop
LDA #0
STA Disk_Msg,Y
JSR UNTLK
LDA Disk_Status
RTS
; ****************
Print_Disk_Status:
; ****************
JSR Get_Disk_Status
; *************
Print_Disk_Msg:
; *************
JSR Print_CR
LDY #0
@loop LDA Disk_Msg,Y
BEQ @exit
JSR CHROUT
INY
BRA @loop
@exit JMP Print_CR
; ****
DOS_U: ; XXX connect it somehow to command list
; ****
; @[u],U1 mem track startsec [endsec] : read disk sector(s)
; @[u],U2 mem track startsec [endsec] : write disk sector(s)
JSR Get_Char
CMP #'1' ; U1: read
LBCC Mon_Error
CMP #'3' ; U2: write
LBCS Mon_Error
STA Mon_Data+1 ; U type
INC Buf_Index
JSR Get_LAC
LBCS Mon_Error
JSR LAC_To_LPC ; Long_PC = memory address
JSR Get_LAC
LBCS Mon_Error
LDA Long_AC
STA Disk_Track
JSR Get_LAC
LBCS Mon_Error
LDA Long_AC
STA Disk_Sector
JSR Get_LAC
JSR LAC_To_LCT ; Long_CT = sector count
DEW Long_CT ; Long_CT = -1 for single
JSR Open_Disk_Buffer
@loop LDA Mon_Data+1
LSR
BEQ @write
JSR Find_next_Sector
BNE @error
JSR Read_Sector
BRA @next
@write JSR Write_Sector
JSR Find_next_Sector
BNE @error
@next JSR Inc_LPC_Page
INC Disk_Sector
DEW Long_CT
BPL @loop
@error JSR Print_Disk_Msg
JSR Close_Disk_Buffer
JMP Main
; ***************
Find_next_Sector:
; ***************
JSR Build_U_String
JSR Send_Disk_Command
JSR Get_Disk_Status
BEQ @return ; OK
CMP #$66 ; illegal track or sector
BNE @error ; error
LDA #0
STA Disk_Sector
INC Disk_Track ; try next track
JSR Build_U_String
JSR Send_Disk_Command
JSR Get_Disk_Status
BEQ @return
@error JSR Print_Disk_Msg
LDA Disk_Status
@return RTS
; *******************
Open_Command_Channel:
; *******************
LDA FA
JSR LISTEN
LDA #$ff
JSR SECOND
LDY #0
STY IOSTATUS
RTS
; *******
Reset_BP:
; *******
JSR Open_Command_Channel
@loop LDA BP_ZERO,Y
BEQ @end
JSR CIOUT
INY
BRA @loop
@end JMP UNLSN
; ****************
Send_Disk_Command:
; ****************
JSR Open_Command_Channel
@loop LDA Mon_Data,Y
BEQ @end
JSR CIOUT
INY
BRA @loop
@end JMP UNLSN
; **********
Read_Sector:
; **********
LDA FA
JSR TALK
LDA #$69 ; SA = 9
JSR TKSA
LDZ #0
STZ IOSTATUS
@loop JSR ACPTR
STA [Long_PC],Z
INZ
BNE @loop
JMP UNTLK
; ***********
Write_Sector:
; ***********
JSR Reset_BP ; reset disk buffer pointer
LDA FA
JSR LISTEN
LDA #$69 ; SA = 9
JSR TKSA
LDZ #0
STZ IOSTATUS
@loop LDA [Long_PC],Z
JSR CIOUT
INZ
BNE @loop
JSR UNLSN
RTS
; *****
Set_TS:
; *****
; Input A = track or sector
; X = string index
@100 CMP #100
BCC @10
INC Mon_Data,X
SBC #100
BRA @100
@10 CMP #10
BCC @1
INC Mon_Data+1,X
SBC #10
BRA @10
@1 ORA #'0'
STA Mon_Data+2,X
RTS
; @[u],U1 mem track startsec [endsec] : read disk sector(s)
; U1:CHANNEL DRIVE TRACK SECTOR
; *************
Build_U_String:
; *************
LDX #14
@loop LDA U1,X
STA Mon_Data,X
DEX
CPX #2
BCS @loop
LDA #'U'
STA Mon_Data
LDA Disk_Track
LDX #7
JSR Set_TS
LDA Disk_Sector
LDX #11
JMP Set_TS
; ***************
Open_Disk_Buffer:
; ***************
LDA #0
STA IOSTATUS
LDA FA
JSR LISTEN ; open fa,9,"#"
LDA #$f9 ; sa = 9
JSR SECOND
LDA #'#' ; open buffer
JSR CIOUT
JSR UNLSN
LDA IOSTATUS
LBNE Print_Disk_Status
RTS
; ****************
Close_Disk_Buffer:
; ****************
LDA #0
STA IOSTATUS
LDA FA
JSR LISTEN ; open fa,9,"#"
LDA #$e9 ; sa = 9
JSR SECOND
JSR UNLSN
LDA IOSTATUS
LBNE Print_Disk_Status
RTS
}