;************************************************************************ ;* Super Famicom Disk Operation Sysytem CCP main routine * ;* Programmed by Y.Nishida * ;* [ Aug.26, 1991 ] * ;************************************************************************ native extend include PPUregs.h include CPUregs.h include doscall.h CCP_main sect rel BANK0 group CCP_main dpage 0000H dbank 0000H ;=============== Cross Reference ======================================== extern CON_Driver ;=============== Define Variable ======================================== work0 equ 0000H work1 equ 0002H work2 equ 0004H work3 equ 0006H ;------------------------------------------------------------------------ dividend equ 0010H divisor equ 0014H rest equ 0016H divide equ 0010H ;------------------------------------------------------------------------ stick_status_1 equ 0020H stick_backst_1 equ 0022H stick_trigger_1 equ 0024H stick_status_2 equ 0026H stick_backst_2 equ 0028H stick_trigger_2 equ 002AH NMI_flag equ 002CH ;------------------------------------------------------------------------ current_drive equ 0080H ; 1 byte : Current drive select_drive equ 0081H ; 1 byte ; Select drive delimitor equ 00DEH ; 1 byte : token delimit character token_pointer equ 00DFH ; 1 byte : get token pointer string_buffer equ 00C0H ; 64 bytes : String buffer ;------------------------------------------------------------------------ NMI_switch equ 1E00H ; 1 byte Line_buffer equ 1EC0H ; 64 bytes : Input buffer directory_entry equ 1EC0H ; 32 bytes : directory entry access_fname equ 1EE0H ; 32 bytes : Access file name buffer ;-------------- iwa test ------------------------------------------------ txt_buffer equ 1000H ;text data buffer asc_buffer equ 1200H ;ascll data buffer asc_count equ 1A00H ;charcter counter lin_count equ 1A02H ;line counter cg_dat equ 1A04H ;character color No. nwork0 equ 1B02H ;work nwork1 equ 1B04H ; nwork2 equ 1B06H ; nwork3 equ 1B08H ; nwork4 equ 1B0AH ; nwork5 equ 1B0CH ; nwork6 equ 1B0EH ; ;************************************************************************ ;* CCP Entry * ;* * ;************************************************************************ mem8 idx8 CCP_Entry stz ' DOS _CONOUT ;------------------------------------------------------------------------ DOS _INPUT lda #0AH DOS _CONOUT ;------------------------------------------------------------------------ lda Line_buffer beq CCP_main ;=============== Check command name ==================================== CCP_main_10 jsr Upcase_linbuf lda initial set stz asc_buffer,x ; char ram clear inx cpx #800H bne acv005 ; clear ok? ; lda #0004H sta nwork0 ; 1gyo counter set stz lin_count ; line counter clear stz nwork1 ; register clear stz cg_dat ; ram clear lda 1EF8H sta asc_count ; total count set ldx #00H txy acv010 equ $ ;;;-> main ram set ldx nwork1 lda txt_buffer,x ; real data set (2byte) pha and #0F0F0H ; Hi index change lsr a lsr a lsr a lsr a sta nwork2 ; Hi index set pla and #00F0FH sta nwork3 ; Low index set phy ; Y register taihi mem8 idx8 sep #00110000B ; Memory 8 bit mode ldx nwork2 lda Ascdat,x sta nwork4 ; data 0 Hi ascll code set ldx nwork3 lda Ascdat,x sta nwork4+1 ; data 0 Low ascll code set ldx nwork2+1 lda Ascdat,x sta nwork5 ; data 1 Hi ascll code set ldx nwork3+1 lda Ascdat,x sta nwork5+1 ; data 1 Low ascll code set mem16 idx16 rep #00110000B ; Memory 16 bit mode ply ; Y register futtkatsu lda nwork4 sta asc_buffer,y ; data 0 ram set lda #0020H sta asc_buffer+2,y ; space code set lda nwork5 sta asc_buffer+3,y ; data 1 ram set lda #0020H sta asc_buffer+5,y ; space code set dec asc_count dec asc_count ; total count minus bmi acv020 ; set end? ; inc nwork1 inc nwork1 ; real data index plus iny iny iny iny iny iny ; data ram index plus dec nwork0 bne acv010 ; 1gyo end? ; inc lin_count lda #0A0DH sta asc_buffer,y ; esc sikence set (kaigyo,cursor top) phy jsr Keychk ply lda #asc_buffer DOS _PRINT lda #0004H sta nwork0 ; 1gyo counter sai set ldy #00H jmp acv010 acv020 equ $ ;;;-> end code syori ; lda #0A0DH ; sta asc_buffer+6,y ; esc sikence set (kaigyo,cursor top) ; lda #00H ; sta asc_buffer+8,y ; end code set lda #431BH sta asc_buffer,y lda #0A33H sta asc_buffer+2,y lda #000DH sta asc_buffer+4,y lda #asc_buffer DOS _PRINT idx8 mem8 sep #00110000B ; Memory 8 bit mode rts ; ;************************************************************************ ;* Ascll convert sub (nomo test) * ;* * ;************************************************************************ mem16 idx16 rep #00110000B ; Memory 16 bit mode Keychk equ $ lda lin_count cmp #10H bne kck030 ; lda #431BH sta asc_buffer+2,y lda cg_dat cmp #03H bcc kck005 and #0003H sta cg_dat kck005 equ $ lda #00D30H clc adc cg_dat sta asc_buffer+4,y inc cg_dat kck010 equ $ mem8 idx8 sep #00110000B ; Memory 8 bit mode DOS _CONIN cmp #00DH beq kck020 ; cmp #020H bne kck010 ; mem16 idx16 rep #00110000B ; Memory 16 bit mode stz lin_count rts kck020 equ $ mem16 idx16 rep #00110000B ; Memory 16 bit mode lda #0FH sta lin_count kck030 equ $ rts ; ;;;//H3.11.12//;;;;************************************************************************ ;;;//H3.11.12//;;;;* Ascll convert (nomo test) * ;;;//H3.11.12//;;;;* * ;;;//H3.11.12//;;;;************************************************************************ ;;;//H3.11.12//;;; mem8 ;;;//H3.11.12//;;;Ascdat equ $ ;;;//H3.11.12//;;; byte 030H ;0 ; ascll data ;;;//H3.11.12//;;; byte 031H ;1 ;;;//H3.11.12//;;; byte 032H ;2 ;;;//H3.11.12//;;; byte 033H ;3 ;;;//H3.11.12//;;; byte 034H ;4 ;;;//H3.11.12//;;; byte 035H ;5 ;;;//H3.11.12//;;; byte 036H ;6 ;;;//H3.11.12//;;; byte 037H ;7 ;;;//H3.11.12//;;; byte 038H ;8 ;;;//H3.11.12//;;; byte 039H ;9 ;;;//H3.11.12//;;; byte 041H ;A ;;;//H3.11.12//;;; byte 042H ;B ;;;//H3.11.12//;;; byte 043H ;C ;;;//H3.11.12//;;; byte 044H ;D ;;;//H3.11.12//;;; byte 045H ;E ;;;//H3.11.12//;;; byte 046H ;F ;;;//H3.11.12//;;;Asccov equ $ ;;;//H3.11.12//;;; mem16 ;;;//H3.11.12//;;; idx16 ;;;//H3.11.12//;;; rep #00110000B ; Memory 16 bit mode ;;;//H3.11.12//;;; ldx #00H ;;;//H3.11.12//;;;acv005 equ $ ;;;-> initial set ;;;//H3.11.12//;;; stz 1200H,x ; char ram clear ;;;//H3.11.12//;;; inx ;;;//H3.11.12//;;; cpx #800H ;;;//H3.11.12//;;; bne acv005 ; clear ok? ;;;//H3.11.12//;;;; ;;;//H3.11.12//;;; lda #0004H ;;;//H3.11.12//;;; sta nwork0 ; 1gyo counter set ;;;//H3.11.12//;;; lda 1EF8H ;;;//H3.11.12//;;; sta asc_count ; total count set ;;;//H3.11.12//;;; ldx #00H ;;;//H3.11.12//;;; txy ;;;//H3.11.12//;;; stx nwork1 ; register clear ;;;//H3.11.12//;;;acv010 equ $ ;;;-> main ram set ;;;//H3.11.12//;;; ldx nwork1 ;;;//H3.11.12//;;; lda txt_buffer,x ; real data set (2byte) ;;;//H3.11.12//;;; pha ;;;//H3.11.12//;;; and #0F0F0H ; Hi index change ;;;//H3.11.12//;;; lsr a ;;;//H3.11.12//;;; lsr a ;;;//H3.11.12//;;; lsr a ;;;//H3.11.12//;;; lsr a ;;;//H3.11.12//;;; sta nwork2 ; Hi index set ;;;//H3.11.12//;;; pla ;;;//H3.11.12//;;; and #00F0FH ;;;//H3.11.12//;;; sta nwork3 ; Low index set ;;;//H3.11.12//;;; phy ; Y register taihi ;;;//H3.11.12//;;; mem8 ;;;//H3.11.12//;;; idx8 ;;;//H3.11.12//;;; sep #00110000B ; Memory 8 bit mode ;;;//H3.11.12//;;; ldx nwork2 ;;;//H3.11.12//;;; lda Ascdat,x ;;;//H3.11.12//;;; sta nwork4 ; data 0 Hi ascll code set ;;;//H3.11.12//;;; ldx nwork3 ;;;//H3.11.12//;;; lda Ascdat,x ;;;//H3.11.12//;;; sta nwork4+1 ; data 0 Low ascll code set ;;;//H3.11.12//;;; ldx nwork2+1 ;;;//H3.11.12//;;; lda Ascdat,x ;;;//H3.11.12//;;; sta nwork5 ; data 1 Hi ascll code set ;;;//H3.11.12//;;; ldx nwork3+1 ;;;//H3.11.12//;;; lda Ascdat,x ;;;//H3.11.12//;;; sta nwork5+1 ; data 1 Low ascll code set ;;;//H3.11.12//;;; mem16 ;;;//H3.11.12//;;; idx16 ;;;//H3.11.12//;;; rep #00110000B ; Memory 16 bit mode ;;;//H3.11.12//;;; ply ; Y register futtkatsu ;;;//H3.11.12//;;; lda nwork4 ;;;//H3.11.12//;;; sta asc_buffer,y ; data 0 ram set ;;;//H3.11.12//;;; lda #0020H ;;;//H3.11.12//;;; sta asc_buffer+2,y ; space code set ;;;//H3.11.12//;;; lda nwork5 ;;;//H3.11.12//;;; sta asc_buffer+3,y ; data 1 ram set ;;;//H3.11.12//;;; lda #0020H ;;;//H3.11.12//;;; sta asc_buffer+5,y ; space code set ;;;//H3.11.12//;;; dec asc_count ;;;//H3.11.12//;;; dec asc_count ; total count minus ;;;//H3.11.12//;;; beq acv020 ; set end? ;;;//H3.11.12//;;;; ;;;//H3.11.12//;;; inc nwork1 ;;;//H3.11.12//;;; inc nwork1 ; real data index plus ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ; data ram index plus ;;;//H3.11.12//;;; dec nwork0 ;;;//H3.11.12//;;; bne acv010 ; 1gyo end? ;;;//H3.11.12//;;;; ;;;//H3.11.12//;;; lda #0004H ;;;//H3.11.12//;;; sta nwork0 ; 1gyo counter sai set ;;;//H3.11.12//;;; lda #0A0DH ;;;//H3.11.12//;;; sta asc_buffer,y ; esc sikence set (kaigyo,cursor top) ;;;//H3.11.12//;;; iny ;;;//H3.11.12//;;; iny ; data ram index plus ;;;//H3.11.12//;;; jmp acv010 ;;;//H3.11.12//;;;acv020 equ $ ;;;-> end code syori ;;;//H3.11.12//;;; lda #00A0DH ;;;//H3.11.12//;;; sta asc_buffer+6,y ; esc sikence set (kaigyo,cursor top) ;;;//H3.11.12//;;; lda #00H ;;;//H3.11.12//;;; sta asc_buffer+8,y ; end code set ;;;//H3.11.12//;;; idx8 ;;;//H3.11.12//;;; mem8 ;;;//H3.11.12//;;; sep #00110000B ; Memory 8 bit mode ;;;//H3.11.12//;;; rts ;************************************************************************ ;* Error * ;* * ;************************************************************************ mem16 idx8 Disk_error sep #00110000B ; Memory,Index 8 bit mode dec a asl a tax rep #00100000B ; Memory 16 bit mode lda Disk_error_msg,x DOS _PRINT jmp CCP_main ;------------------------------------------------------------------------ Disk_error_msg word disk_set_error word Disk_IO_Error word Disk_Sys_Error word File_Not_Found word File_Open_Error word Directory_Full word File_Read_Only word Disk_Full word File_Exist ;------------------------------------------------------------------------ Command_error_1 rep #00100000B ; Memory 16 bit mode lda #unknown_command bra Print_error ;------------------------------------------------------------------------ Command_error_2 rep #00100000B ; Memory 16 bit mode lda #bad_drive bra Print_error ;------------------------------------------------------------------------ Disk_Set_Error rep #00100000B ; Memory 16 bit mode lda #disk_set_error bra Print_error ;------------------------------------------------------------------------ Bad_filename rep #00100000B ; Memory 16 bit mode lda #bad_filename bra Print_error ;------------------------------------------------------------------------ Bad_Disk_Type rep #00100000B ; Memory 16 bit mode lda #bad_disk_type bra Print_error ;------------------------------------------------------------------------ Bad_xdigit rep #00100000B ; Memory 16 bit mode lda #bad_xdigit ;------------------------------------------------------------------------ Print_error DOS _PRINT jmp CCP_main ;************************************************************************ ;* Message * ;* * ;************************************************************************ Boot_message byte 1BH ascii 'C1Super Famicom DOS Ver 0.10' byte 0DH,0AH,1BH ascii 'C2Copyright (C) 1991 Nintendo' byte 1BH ascii 'C3' byte 0DH,0AH,0AH,00H DOS_Cut_message ascii 'Halt Super Famicom DOS' byte 0 DOS_Rst_message ascii 'Reset Super Famicom DOS' byte 0DH,0AH,0AH,0 unknown_command ascii 'unknown command.' carriage_return byte 0DH,0AH,00H bad_drive ascii 'bad drive number.' byte 0DH,0AH,00H no_file ascii 'no file.' byte 0DH,0AH,00H bytes_free ascii ' byte(s) free' byte 0DH,0AH,0AH,00H bad_filename ascii 'bad file name' byte 0DH,0AH,00H bad_disk_type ascii 'bad disk type' byte 0DH,0AH,00H disk_set_error ascii 'drive not ready' byte 0DH,0AH,00H Disk_IO_Error ascii 'disk I/O error' byte 0DH,0AH,00H Disk_Sys_Error ascii 'disk system I/O error' byte 0DH,0AH,00H File_Not_Found ascii 'file not found' byte 0DH,0AH,00H File_Open_Error ascii 'file open error' byte 0DH,0AH,00H Directory_Full ascii 'directory full' byte 0DH,0AH,00H File_Read_Only ascii 'file read only' byte 0DH,0AH,00H Disk_Full ascii 'disk full' byte 0DH,0AH,00H File_Exist ascii 'file already exist' byte 0DH,0AH,00H bad_xdigit ascii 'bad address or data length' byte 0DH,0AH,00H ;************************************************************************ ;* NMI routine * ;* * ;************************************************************************ mem16 idx16 NMI_Entry rep #00110000B ; Memory,Index 16 bit mode ;------------------------------------------------------------------------ pha phx phy phd phb phk ;------------------------------------------------------------------------ plb lda #0 tcd ;------------------------------------------------------------------------ mem8 idx8 sep #00110000B ; Memory,Index 8 bit mode lda NMI_status ; Reset hardware NMI flag lda #0FFH sta