; --------------------------------------------------------------------------- ; --------------------------------------------------------------------------- ; AMÉLIE ROM (c) 2012 ; --------------------------------------------------------------------------- ; Assembly with: ; vasmz80_oldstyle ameliedos_rom.s -o ameliedos.rom -L ameliedos_rom.lst -Fbin -z80asm ; 9 AMSDOS, XDPB ; 10.7 Examples of searching ROM commands ; 19 AMSDOS BIOS Facilities ; 20 AMSDOS External Commands ; Amélie need to be in the rom number just before Amsdos/Parados. ; TODO: ; .- Initialize SD hardware, after reset the CPC. ; .- Expand wildcards in filenames. ; .- Check every function is preloaded with IY = (AMSDOS_MEMORY_POOL). ; .- Extend the parameters of rsx_read_sector, rsx_write_sector and ; rsx_format_track when the drive is the SD. Or use directly the SD CMDs ; variables. ; .- If file extension is empty, test first with spaces, second with 'BAS' ; and third with 'BIN'. ; .- Adding support for machines without disk rom. ; .- Support extended CATArt, a file in a folder called '.cat' is printed ; when a CAT or |DIR is made. ; Constants SD_DRIVE_NUMBER EQU 2 ; A = 0 | B = 1 | C = SD = 2 ERROR_STREAM_WAS_CLOSED EQU $0E ERROR_EOF_REACHED EQU $0F include 'firmware.i' ORG $C000 ; --------------------------------------------------------------------------- ; ROM Header rom_type DEFB 1 ; Background ROM rom_version DEFB 0,0,1 ; --------------------------------------------------------------------------- rsx_names DEFW rsx_name_table ; --------------------------------------------------------------------------- JP initialize_amelie ; RSX AMÉLIE DOS ; --------------------------------------------------------------------------- amelie_extra_rsxs JP rsx_sd ; |SD JP rsx_sd ; |C ; JP rsx_change_dir ; |CD ; JP rsx_make_dir ; |MD ; JP rsx_delete_dir ; |RD ; JP rsx_format_sd ; |FORMAT ; JP ... ; | ; --------------------------------------------------------------------------- amsdos_overloaded_rsxs JP rsx_drive ; |DRIVE JP rsx_dir ; |DIR JP rsx_era ; |ERA JP rsx_ren ; |REN ; Hidden RSXs JP rsx_read_sector ; Read Sector (|^D) JP rsx_write_sector ; Write Sector (|^E) JP rsx_format_track ; Format Track (|^F) ; --------------------------------------------------------------------------- amelie_cas_vectors JP amelie_cas_in_open ; CAS_IN_OPEN (LOAD 3, OPENIN 1, MERGE 3, RUN 3) JP amelie_cas_in_close ; CAS_IN_CLOSE (LOAD 5, CLOSEIN 1, MERGE 5, RUN 5) JP amelie_cas_in_abandon ; CAS_IN_ABANDON (CAT 1, LOAD 1, SAVE 1, MERGE 1, RUN 1) JP amelie_cas_in_char ; CAS_IN_CHAR (MERGE 4) JP amelie_cas_in_direct ; CAS_IN_DIRECT (LOAD 4, RUN 4) JP amelie_cas_return ; CAS_RETURN JP amelie_cas_test_eof ; CAS_TEST_EOF JP amelie_cas_out_open ; CAS_OUT_OPEN (SAVE 3 y OPENOUT 1) JP amelie_cas_out_close ; CAS_OUT_CLOSE (SAVE 5, CLOSEOUT 1, CHAIN MERGE 6, RUN 6) JP amelie_cas_out_abandon ; CAS_OUT_ABANDON (CAT 2, LOAD 2, SAVE 2, MERGE 2, RUN 2) JP amelie_cas_out_char ; CAS_OUT_CHAR JP amelie_cas_out_direct ; CAS_OUT_DIRECT (SAVE 4) JP amelie_cas_catalog ; CAS_CATALOG (CAT 3) ; --------------------------------------------------------------------------- rsx_name_table DEFB 'AMELIE DO','S' + $80 ; Amélie extra RSXs DEFB 'S', 'D' + $80 DEFB 'C' + $80 ; DEFB 'C', 'D' + $80 ; DEFB 'M', 'D' + $80 ; DEFB 'RMDI', 'R' + $80 ; DEFB 'FORMA', 'T' + $80 ; DEFB '', '' + $80 ; Amsdos overloaded RSXs DEFB 'DRIV', 'E' + $80 DEFB 'DI', 'R' + $80 DEFB 'ER', 'A' + $80 DEFB 'RE', 'N' + $80 ; Amsdos Hidden RSXs ; DEFB $81 ; Set Message (Not need to overload) ; DEFB $82 ; Set Drive Speed (Not need to overload) ; DEFB $83 ; Set Disk Type (Not need to overload) DEFB $84 ; Read Sector DEFB $85 ; Write Sector DEFB $86 ; Format Track ; DEFB $87 ; Seek Track (Not need to overload) ; DEFB $88 ; Test Drive (Not need to overload) ; DEFB $89 ; Set Retry Count (Not need to overload) DEFB 0 ; End RSX name table ; --------------------------------------------------------------------------- ; Jump to Amélie CAS vectors ; --------------------------------------------------------------------------- amelie_cas_hook PUSH HL PUSH DE PUSH AF LD IY,(AMSDOS_MEMORY_POOL) ; Preload IY with the memory zone used by Amsdos LD HL,14 ADD HL,SP LD E,(HL) INC HL LD D,(HL) LD HL,(amsdos_cas_vectors) EX DE,HL AND A SBC HL,DE ; AMSDOS_CAS_VECTOR - AMSDOS_VECTOR_CALLED LD A,H OR A JR NZ,.no_amsdos_cas_vector LD A,L CP 13 * 3 JR NC,.no_amsdos_cas_vector ; Update the jump to the Amélie CAS vectors LD DE,amelie_cas_vectors ADD HL,DE POP AF POP DE EX (SP),HL RET .no_amsdos_cas_vector POP AF POP DE POP HL RET ; --------------------------------------------------------------------------- ; Check for the drive in the filename and prepare return address for firmware ; ENTRIES: ; B : Length filename. ; HL : Address filename. ; --------------------------------------------------------------------------- check_filename_drive_and_prepare_return_for_cas PUSH AF ; Decode filename and extract drive PUSH BC PUSH HL PUSH DE ; Decode the filename in AMSDOS_RECORD_NAME_BUFFER LD DE,AMSDOS_RECORD_NAME_BUFFER CALL put_filename_in_buffer ; DE : Filename buffer LD IXL,E LD IXH,D POP DE POP HL POP BC LD A,(IX + 0) ; Get Drive number CP SD_DRIVE_NUMBER ; Is SD? JR NZ,make_amsdos_cas_vector_call ; No, then call AMSDOS CAS vector ; Yes, then we need to update the return address for after our patched CAS vector JR update_stack_for_return_from_cas_vector ; --------------------------------------------------------------------------- ; Check for the active drive and prepare return address for firmware ; --------------------------------------------------------------------------- check_drive_out_and_prepare_return_for_cas PUSH AF LD A,(IY + AMSDOS_FCB_OPENOUT + FCB_DRIVE_NUMBER) JR check_drive_in_and_prepare_return_for_cas.check check_drive_in_and_prepare_return_for_cas PUSH AF LD A,(IY + AMSDOS_FCB_OPENIN + FCB_DRIVE_NUMBER) .check CP SD_DRIVE_NUMBER ; Is SD? JR NZ,make_amsdos_cas_vector_call ; No, then call AMSDOS CAS vector ; Yes, then we need to update the return address for after our patched CAS vector update_stack_for_return_from_cas_vector PUSH HL LD HL,14 ADD HL,SP ; HL = SP + 14 LD (HL),$0F INC HL LD (HL),$00 ; Change to $000F -> RET in Lower ROM POP HL make_amsdos_cas_vector_call POP AF RET ; --------------------------------------------------------------------------- ; Amélie CAS vectors ; --------------------------------------------------------------------------- ; CAS_IN_OPEN: Open a file for input. wip ; ENTRIES: ; B : Length filename. ; HL : Address filename. ; DE : Address of 2 KBs buffer. ; EXITS: ; * If file was opened OK: ; Carry true and Zero false. ; HL : Address of buffer with the file header. ; DE : File load Address. ; BC : File length. ; A : File type. ; * If the stream was in use: ; Carry and Zero false. ; A : Error code. ; BC, DE, HL corrupt. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; BC, DE, HL corrupt. ; * Always: ; IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_in_open ; Check for the drive in the filename and prepare return address for firmware CALL check_filename_drive_and_prepare_return_for_cas ; Amélie CAS IN OPEN code *** goes here *** ; Return to firmware SCF ; Carry True SBC A,A ; Zero False ; LD A,(IY + AMSDOS_FH_OPENIN + FH_FILE_TYPE) ; A -> File type from the header RET ; --------------------------------------------------------------------------- ; CAS_IN_CLOSE: Close the input file properly. *** ; EXITS: ; * If the stream was closed OK: ; Carry true. ; A corrupt. ; * If the stream was not open: ; Carry false. ; A : Error code. ; * Always: ; BC, DE, HL and other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_in_close ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS IN CLOSE code CALL save_return_address_for_errors ; We don't need to stop any motor in the SD and by the same, we don't need ; to disable the event use by the Amsdos ($BE67 and $BE6D) ; ; Stop FDC Motor ; XOR A ; LD (AMSDOS_FLAG_MOTOR),A ; Set flag motor stopped LD A,(IY + AMSDOS_FCB_OPENIN + FCB_DRIVE_NUMBER) CP $FF ; Stream active? JP Z,stream_was_closed JR amelie_cas_in_abandon.close_stream ; Stream was open ; --------------------------------------------------------------------------- ; CAS_IN_ABANDON: Close the input file immediately. *** ; EXITS: ; AF, BC, DE and HL corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_in_abandon ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS IN ABANDON code .close_stream ; Close Drive used by OPENIN LD (IY + AMSDOS_FCB_OPENIN + FCB_DRIVE_NUMBER),$FF ; Return to firmware SCF SBC A,A RET ; --------------------------------------------------------------------------- ; CAS_IN_CHAR: read a character from the input file. *** ; EXITS: ; * If the character was read OK: ; Carry true and Zero false. ; A : Character read from the file. ; * If the end of the file was found: ; Carry and Zero false. ; A : Error code. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; * Always: ; IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_in_char ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS IN CHAR code .cas_in_char_code PUSH BC PUSH DE PUSH HL CALL get_char POP HL POP DE POP BC RET ; Carry False => EOF ; Original firmware code ; RET NC ; Return if Hard-EOF ; CP $1A ; Soft-EOF? ; SCF ; RET NZ ; Carry True, Zero False and Char in the Acumulator ; OR A ; return by Soft-EOF ; RET ; --------------------------------------------------------------------------- ; Get a char from the SD wip ; --------------------------------------------------------------------------- get_char CALL save_return_address_for_errors CALL prepare_for_input ; Set Char mode LD A,(IY + AMSDOS_FH_OPENIN + FH_ACCESS_MODE) CP 2 ; CHAR = 1, DIRECT = 2 JP Z,stream_was_closed ; Exit if it was in Direct Mode LD (IY + AMSDOS_FH_OPENIN + FH_ACCESS_MODE),1 ; Set Char mode ; NOTE: ; We are going to use the counters FH_FILE_SIZE_24 and FH_DATA_LENGTH ; in the file header as variables to control how many bytes are in the ; file or how many bytes left to read before EOF, ... ; Check if we have reached the end of the file. ; First counter is File Lenght in 24 bits LD HL,AMSDOS_FH_OPENIN + FH_FILE_SIZE_24 CALL add_hl_iy LD A,(HL) INC HL OR (HL) INC HL OR (HL) JR Z,is_a_hard_eof ; If Filepos = 0, then EOF file. ; Second counter is File Length 16 bits LD L,(IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH) LD H,(IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH + 1) LD A,H OR L JR Z,is_a_hard_eof ; File is not empty ; Get byte from the SD PUSH HL ; *** Amelié read byte goes here *** POP HL LD D,A ; instead of using the stack, use DE ; that is going to be used in Amélie ; read byte. Because that i push de ; before call get_char ; Decrease second counter (16 bits) DEC HL LD (IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH),L LD (IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH + 1),H ; Decrease first counter (24 bits) LD HL,AMSDOS_FH_OPENIN + FH_FILE_SIZE_24 CALL add_hl_iy LD B,3 .loop_decrease_24_bits LD A,(HL) DEC (HL) AND A JR NZ,.exit_loop_decrease_24_bits INC HL DJNZ .loop_decrease_24_bits .exit_loop_decrease_24_bits LD A,D ; Restore byte read from SD SCF RET is_a_hard_eof LD A,ERROR_EOF_REACHED OR A ; Clear Carry RET ; --------------------------------------------------------------------------- ; CAS_IN_DIRECT: Read the input file into store. wip ; ENTRIES: ; HL: Address where put the file. ; EXITS: ; * If the file was read OK: ; Carry true and Zero false. ; HL : Execution Address. ; A corrupt. ; * If the file was not open as expected: ; Carry and Zero false. ; A : Error code. ; HL corrupt. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; HL corrupt. ; * Always: ; BC, DE, HL, IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_in_direct ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS IN DIRECT code CALL save_return_address_for_errors CALL prepare_for_input ; Set Direct Mode LD A,(IY + AMSDOS_FH_OPENIN + FH_ACCESS_MODE) CP 1 ; CHAR = 1, DIRECT = 2 JP Z,stream_was_closed ; Exit if it was in Char Mode LD (IY + AMSDOS_FH_OPENIN + FH_ACCESS_MODE),2 ; Set Direct mode ; Get File Length (if we are going to use this more, make function move.w de(iy),ix ; and use ix as offset :P) PUSH HL PUSH IY POP HL LD DE,AMSDOS_FH_OPENIN + FH_FILE_SIZE_24 ADD HL,DE LD E,(HL) ; FH_FILE_SIZE_24 INC HL LD D,(HL) ; FH_FILE_SIZE_24 + 1 POP HL ; Load file ; DE: File Length ; HL: Load address ; *** Insert Amélie code here *** ; Get Execution Address LD L,(IY + AMSDOS_FH_OPENIN + FH_EXEC_ADDRESS) LD H,(IY + AMSDOS_FH_OPENIN + FH_EXEC_ADDRESS + 1) ; Return to firmware SCF ; Carry True SBC A,A RET ; --------------------------------------------------------------------------- ; CAS_RETURN: Put the last character read back. wip ; EXITS: ; All registers and flags preserved. ; --------------------------------------------------------------------------- amelie_cas_return ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas .cas_return_code ; Amélie CAS RETURN code PUSH HL ; Increase First counter (File Lenght in 24 bits) LD HL,AMSDOS_FH_OPENIN + FH_FILE_SIZE_24 CALL add_hl_iy ; Increase the 24 bits counter (convert in function in case is more used) INC (HL) JR NZ,.end_inc_24 INC HL INC (HL) JR NZ,.end_inc_24 INC HL INC (HL) .end_inc_24 ; Increase Second counter (File Length in 16 bits) INC (IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH) JR NZ,.end_inc_16 INC (IY + AMSDOS_FH_OPENIN + FH_DATA_LENGTH + 1) .end_inc_16 ; *** Insert Amélie code here *** ; We need to go back 1 byte in the SD POP HL ; Return to firmware RET ; --------------------------------------------------------------------------- ; CAS_TEST_EOF: Have we reached the end of the input file yet? *** ; EXITS: ; * If the end of the file was not found: ; Carry true and Zero false. ; A corrupt. ; * If the end of the file was found: ; Carry and Zero false. ; A corrupt. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; * Always: ; IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_test_eof ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS TEST EOF code ; Read the next char CALL amelie_cas_in_char.cas_in_char_code RET NC ; Return if EOF was reached ; In other case, put back the byte read CALL amelie_cas_return.cas_return_code ; Return to firmware RET ; --------------------------------------------------------------------------- ; CAS_OUT_OPEN: Open a file for output. wip ; ENTRIES: ; B : Length filename. ; HL : Address filename. ; DE : Address of 2 KBs buffer. ; EXITS: ; * If file was opened OK: ; Carry true and Zero false. ; HL : Address of buffer with the file header. ; A corrupt. ; * If the stream was in use: ; Carry and Zero false. ; A : Error code ; HL corrupt ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code ; HL corrupt ; * Always: ; BC, DE, IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_out_open ; Check for the drive in the filename and prepare return address for firmware CALL check_filename_drive_and_prepare_return_for_cas ; Amélie CAS OUT OPEN code *** goes here *** ; Return to firmware SCF ; Carry True RET ; --------------------------------------------------------------------------- ; CAS_OUT_CLOSE: Close the output file properly. wip ; EXITS: ; * If the stream was closed OK: ; Carry true and Zero false. ; A corrupt. ; * If the stream was not open: ; Carry and Zero false. ; A : Error code. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; * Always: ; BC, DE, HL, IX and other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_out_close ; Check for the active drive and prepare return address for firmware CALL check_drive_out_and_prepare_return_for_cas ; Amélie CAS OUT CLOSE code CALL save_return_address_for_errors ; NOTE:In Amsdos could happen the last record (128 bytes) is not saved, ; because that Amsdos checks if it has bytes to save yet, and save them. ; ; Our SD write code (CAS_OUT_DIRECT), it's going to save the files ; completely. Except when the the file was written in CHAR access mode ; where we save only full sectors, because that we need to check it ; (FH_ACCESS_MODE) and check if there is a sector buffered to write. ; ; NOTE2: We don't know the size of a file written using CAS_OUT_CHAR ; until close it, that means that we should update the length in the ; file header and the Checksum, of course. *TODO* LD A,(IY + AMSDOS_FCB_OPENOUT + FCB_DRIVE_NUMBER) CP $FF ; Stream active? JP Z,stream_was_closed JR amelie_cas_out_abandon.close_stream ; Stream was open ; --------------------------------------------------------------------------- ; CAS_OUT_ABANDON: Close the output file immediately. *** ; EXITS: ; AF, BC, DE and HL corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_out_abandon ; Check for the active drive and prepare return address for firmware CALL check_drive_out_and_prepare_return_for_cas ; Amélie CAS OUT ABANDON code .close_stream ; Close Drive used by OPENOUT LD (IY + AMSDOS_FCB_OPENOUT + FCB_DRIVE_NUMBER),$FF ; Return to firmware SCF SBC A,A RET ; --------------------------------------------------------------------------- ; CAS_OUT_CHAR: Write a character to the output file. wip ; ENTRIES: ; A : Character to write. ; EXITS: ; * If the character was written OK: ; Carry true and Zero false. ; A corrupt. ; * If the file was not open as expected: ; Carry and Zero false. ; A : Error code. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; * Always: ; IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_out_char ; Check for the active drive and prepare return address for firmware CALL check_drive_out_and_prepare_return_for_cas ; Amélie CAS OUT CHAR code CALL save_return_address_for_errors CALL prepare_for_output ; MOVE.W DE(AMSDOS_MEMORY_POOL),IX PUSH DE LD DE,AMSDOS_FH_OPENOUT LD IX,(AMSDOS_MEMORY_POOL) ADD IX,DE POP DE PUSH HL PUSH DE PUSH BC PUSH AF ; Set Char mode LD A,(IX + FH_ACCESS_MODE) CP 2 ; CHAR = 1, DIRECT = 2 JP Z,stream_was_closed ; Exit if it was in Direct Mode LD (IX + FH_ACCESS_MODE),1 ; Set Char mode ; *TODO* ; We need to fill with those bytes the buffer with the SD sector size ; (512 bytes) and only after filling up, we'll dump the buffer to the SD. ; Increase the counters used (24 and 16 bits) ; LD L,(IX + FH_DATA_LENGTH) ; LD H,(IX + FH_DATA_LENGTH + 1) ; Increase the sector buffer pointer and if we have overflowed the ; buffer, dump the buffer to the SD, update buffer pointer and put ; the new byte in the buffer. ; IX + FH_POS_IN_2K_BUFFER -> Pointer to the actual byte in the sector buffer POP AF ; Get new byte to put in the buffer POP BC POP DE POP HL ; Return to the firmware SCF SBC A,A RET ; --------------------------------------------------------------------------- ; CAS_OUT_DIRECT: Write the output file directly from store. wip ; ENTRIES: ; HL : Address of the data to write. ; DE : Length of the data to write. ; BC : Execute address for the header. ; A : File type for the header. ; EXITS: ; * If the file was written OK: ; Carry true and Zero false. ; A corrupt. ; * If the file was not open: ; Carry and Zero false. ; A : Error code. ; * If the user pressed ESC: ; Carry false and Zero true. ; A : Error code. ; * Always: ; BC, DE, HL, IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_out_direct ; Check for the active drive and prepare return address for firmware CALL check_drive_out_and_prepare_return_for_cas ; Amélie CAS OUT code CALL save_return_address_for_errors CALL prepare_for_output ; MOVE.W DE(AMSDOS_MEMORY_POOL),IX PUSH DE LD DE,AMSDOS_FH_OPENOUT LD IX,(AMSDOS_MEMORY_POOL) ADD IX,DE POP DE ; Set Direct Mode LD A,(IX + FH_ACCESS_MODE) CP 1 ; CHAR = 1, DIRECT = 2 JP Z,stream_was_closed ; Exit if it was in Char Mode LD (IX + FH_ACCESS_MODE),2 ; Set Direct mode ; Fill the rest of fields of the header for the output file LD (IX + FH_FILE_TYPE),A ; File type LD (IX + FH_LOAD_ADDRESS),L ; Load Address LD (IX + FH_LOAD_ADDRESS + 1),H LD (IX + FH_EXEC_ADDRESS),C ; Execute Address LD (IX + FH_EXEC_ADDRESS + 1),B LD (IX + FH_DATA_LENGTH),E ; Length File LD (IX + FH_DATA_LENGTH + 1),D LD (IX + FH_FILE_SIZE),E ; Length File LD (IX + FH_FILE_SIZE + 1),D LD (IX + FH_FILE_SIZE_24),E ; Length File LD (IX + FH_FILE_SIZE_24 + 1),D LD (IX + FH_FILE_SIZE_24 + 2),0 ; *** Amélie Code to dump the file (header + data) to the SD *** ; Return to firmware SCF ; Carry True SBC A,A RET ; --------------------------------------------------------------------------- ; CAS_CATALOG: Generate a catalogue from the tape. wip ; ENTRIES: ; DE : Address of 2 KBs buffer. ; EXITS: ; * If the cataloguing went OK: ; Carry true and Zero false. ; A corrupt. ; * If the read stream was in use: ; Carry and Zero false. ; A : Error code. ; * If an error ocurred: ; Carry false and Zero true. ; A : Error code. ; * Always: ; BC, DE, HL, IX and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- amelie_cas_catalog ; Check for the active drive and prepare return address for firmware CALL check_drive_in_and_prepare_return_for_cas ; Amélie CAS CATALOG code *** goes here *** CALL save_return_address_for_errors ; Return to firmware SCF ; Carry True SBC A,A RET ; --------------------------------------------------------------------------- ; Prepare for output operations ; --------------------------------------------------------------------------- prepare_for_output PUSH AF LD A,(IY + AMSDOS_FCB_OPENOUT + FCB_DRIVE_NUMBER) JR check_stream ; --------------------------------------------------------------------------- ; Prepare for input operations ; --------------------------------------------------------------------------- prepare_for_input PUSH AF LD A,(IY + AMSDOS_FCB_OPENIN + FCB_DRIVE_NUMBER) check_stream CP $FF ; Stream active? JR Z,stream_was_closed CALL set_active_drive POP AF RET ; --------------------------------------------------------------------------- ; Stream was closed? ; --------------------------------------------------------------------------- stream_was_closed LD A,ERROR_STREAM_WAS_CLOSED ; Error code OR A ; Clear Carry ; JR return_from_error ; --------------------------------------------------------------------------- ; Return to the firmware from an error ; --------------------------------------------------------------------------- return_from_error ; Set SP for recover from an error LD L,(IY + AMSDOS_STACK_POINTER) LD H,(IY + AMSDOS_STACK_POINTER + 1) LD SP,HL ; Return to firmware RET ; --------------------------------------------------------------------------- ; Amélie RSXs ; --------------------------------------------------------------------------- ; |DIR wip ; --------------------------------------------------------------------------- rsx_dir CALL save_return_address_for_errors_rsx PUSH AF PUSH IX ; Test for the optional single parameter OR A JR Z,.no_parameter_passed DEC A JR NZ,.make_amsdos_call ; More than one parameter passed ; Get single parameter LD DE,AMSDOS_RECORD_NAME_BUFFER CALL put_filename_in_buffer ; DE : Filename buffer ; Check for the drive in the parameter LD A,(DE) ; Get Active drive for |DIR CP SD_DRIVE_NUMBER JR NZ,.make_amsdos_call CALL set_active_drive INC DE ; Skip Drive INC DE ; Skip User JR .do_dir_ameli .no_parameter_passed LD A,(IY + AMSDOS_ACTIVE_DRIVE) ; Get Active Drive CP SD_DRIVE_NUMBER JR NZ,.make_amsdos_call LD DE,AMSDOS_RECORD_NAME_BUFFER + 2 CALL add_de_iy LD A,' ' LD (DE),A ; Mark as not valid name ; |DIR Amélie code *** goes here *** .do_dir_ameli ; It should CALL CAS_CATALOG ; Return to firmware POP IX POP AF OR A ; Clear Carry RET ; It's not the SD drive, we redirect to the AMSDOS |DIR RSX .make_amsdos_call POP IX POP AF RST $18 ; FAR_CALL AMSDOS |DIR DEFW farcall_amsdos_dir RET ; --------------------------------------------------------------------------- ; |ERA wip ; --------------------------------------------------------------------------- rsx_era CALL save_return_address_for_errors_rsx PUSH AF PUSH IX ; Test for the single parameter DEC A JR NZ,.make_amsdos_call ; Pass error control to amsdos LD DE,AMSDOS_RECORD_NAME_BUFFER CALL put_filename_in_buffer ; DE : Filename buffer ; Check for the drive in the parameter LD A,(DE) ; Get Active drive for |ERA CP SD_DRIVE_NUMBER JR NZ,.make_amsdos_call CALL set_active_drive ; Mark end of second filename LD H,D LD L,E LD BC,16 ; 1 (Drive) + 1 (User) + 11 (Name) + 1 (End) + 1 (D) + 1 (U) ADD HL,BC LD (HL),$FF ; |ERA Amélie code ; Check if the filename is valid (invalid names are converted to spaces) INC DE ; Skip Drive INC DE ; Skip User LD A,(DE) CP ' ' JR Z,.make_amsdos_call ; This is lazy, it would be better show the Error ; The file exist? ;*** Amélie code goes here *** ; Return to firmware POP IX POP AF OR A ; Clear Carry RET ; It's not the SD drive, we redirect to the AMSDOS |ERA RSX .make_amsdos_call POP IX POP AF RST $18 ; FAR_CALL AMSDOS |ERA DEFW farcall_amsdos_era RET ; --------------------------------------------------------------------------- ;enable_parameter_drive ; LD A,(BC) ; Get drive number from parameter ; INC BC ; ; PUSH AF ; CALL set_active_drive ; POP AF ; RET ; --------------------------------------------------------------------------- ; |REN wip ; Amsdos send an error in case of rename a file using differents drives. ; --------------------------------------------------------------------------- rsx_ren CALL save_return_address_for_errors_rsx PUSH AF PUSH IX ; Test for the 2 parameters DEC A DEC A JR NZ,.make_amsdos_call ; Pass error control to amsdos ; Get first parameter LD DE,AMSDOS_RECORD_NAME_BUFFER CALL put_filename_in_buffer ; DE : Filename buffer PUSH DE ; Get second parameter LD DE,AMSDOS_RECORD_NAME_BUFFER + 14 ; 1 (D) + 1 (U) + 11 (N) + 1 (E) CALL put_filename_in_buffer ; Check for the drive in the parameters LD A,(DE) ; Get Active drive for the second parameter POP HL CP (HL) JR NZ,.make_amsdos_call ; Both drives are the same? CP SD_DRIVE_NUMBER JR NZ,.make_amsdos_call ; Is SD? CALL set_active_drive ; |REN Amélie code *** goes here *** ; HL: Pointer to the first filename | 1 (D) + 1 (U) + 11 (N) + 1 (E) ; DE: Pointer to the second filename | 1 (D) + 1 (U) + 11 (N) + 1 (E) ; Return to firmware POP IX POP AF OR A ; Clear Carry RET ; It's not the SD drive, we redirect to the AMSDOS |REN RSX .make_amsdos_call POP IX POP AF RST $18 ; FAR_CALL AMSDOS |REN DEFW farcall_amsdos_ren RET ; --------------------------------------------------------------------------- ; |DRIVE *** ; --------------------------------------------------------------------------- rsx_drive CALL save_return_address_for_errors_rsx PUSH AF PUSH IX ; Test for the single parameter DEC A JR NZ,.make_amsdos_call ; Pass error control to amsdos CALL get_string_parameter ; HL = String | B = Length ; Get Drive Number RST $20 ; RAM LAM -> LD A,(HL) RES 5,A ; Uppercase CP 'S' ; is SD? JR Z,.call_rsx_sd ; Yes, then execute Amélie code CP 'C' ; is SD? JR Z,.call_rsx_sd ; Yes, then execute Amélie code ; It's not the SD drive, we redirect to the AMSDOS |DRIVE RSX .make_amsdos_call POP IX POP AF RST $18 ; FAR_CALL AMSDOS |DRIVE DEFW farcall_amsdos_drive RET .call_rsx_sd POP IX POP AF ; --------------------------------------------------------------------------- ; |SD *** ; ENTRIES: ; IY: Amsdos Memory Pool (default $A700) ; --------------------------------------------------------------------------- rsx_sd ; Preload IY with the memory zone used by Amsdos LD IY,(AMSDOS_MEMORY_POOL) LD A,SD_DRIVE_NUMBER set_active_drive PUSH DE LD E,$FF ; Drive CLOSE flag CP (IY + AMSDOS_FCB_OPENIN + FCB_DRIVE_NUMBER) ; Extended File Control Block for OPENIN JR Z,.drive_in_use ; Drive in use? CP (IY + AMSDOS_FCB_OPENOUT + FCB_DRIVE_NUMBER) ; Extended File Control Block for OPENOUT JR Z,.drive_in_use ; Drive in use? INC E ; Drive OPEN .drive_in_use LD (AMSDOS_DRIVE_HSUS),A ; Drive HS/US LD (IY + AMSDOS_DEFAULT_DRIVE),A ; Set Amsdos default drive LD (IY + AMSDOS_ACTIVE_DRIVE),A ; Amsdos Active Drive ; We can ignore this and leave the amsdos XDPB, because we are not using it. ; LD (IY + AMSDOS_DPH_ACTIVE_DRIVE),$xx ; Pointer to the XDPB for the Active Drive ; LD (IY + AMSDOS_DPH_ACTIVE_DRIVE + 1),$xx ; (default $A910 or $A920) LD (IY + AMSDOS_DEFAULT_DRIVE_OPEN),E ; Set Flag if OPEN on Default Drive POP DE RET ; File control block ; Drive Number + User + Filename (11 caracteres) + ; + Read Only + System + ... ; --------------------------------------------------------------------------- ; Read Sector (^D ó $84) wip ; ENTRIES: ; HL : Address of sector buffer. ; E : Drive number. ; D : Track number. ; C : Sector number. ; EXITS: ; * If the sector was read OK: ; Carry true. ; A : 0 ; HL : Preserved. ; * If an error ocurred: ; Carry false. ; A : Error status. ; HL : Error status buffer. ; * Always: ; Other flags corrupt. ; All others registers preserved. ; ; NOTE: The sector buffer can lie even under ROM. ; --------------------------------------------------------------------------- rsx_read_sector CALL check_drive_for_hidden_rsx ; LD A,SD_DRIVE_NUMBER ; CP E JR NZ,.make_amsdos_call ; |^D Amélie code *** goes here *** ; Return to firmware SCF ; Carry True RET ; It's not the SD drive, we redirect to the AMSDOS |^D RSX .make_amsdos_call RST $18 ; FAR_CALL AMSDOS |^D DEFW farcall_amsdos_read_sector RET ; --------------------------------------------------------------------------- ; Write Sector (^E ó $85) wip ; ENTRIES: ; HL : Address of sector buffer. ; E : Drive number. ; D : Track number. ; C : Sector number. ; EXITS: ; * If the sector was written OK: ; Carry true. ; A : 0. ; HL : Preserved. ; * If an error ocurred: ; Carry false. ; A : Error status. ; HL : Error status buffer. ; * Always: ; Other flags corrupt. ; All others registers preserved. ; ; NOTE: The sector buffer can lie even under ROM. ; --------------------------------------------------------------------------- rsx_write_sector CALL check_drive_for_hidden_rsx ; LD A,SD_DRIVE_NUMBER ; CP E JR NZ,.make_amsdos_call ; |^E Amélie code *** goes here *** ; Return to firmware SCF ; Carry True RET ; It's not the SD drive, we redirect to the AMSDOS |^E RSX .make_amsdos_call RST $18 ; FAR_CALL AMSDOS |^E DEFW farcall_amsdos_write_sector RET ; --------------------------------------------------------------------------- ; Format Track (^F ó $86) wip ; ENTRIES: ; HL : Address of header information buffer. ; E : Drive number. ; D : Track number. ; EXITS: ; * If the track was formatted OK: ; Carry true. ; A : 0. ; HL : Preserved. ; * If an error ocurred: ; Carry false. ; A : Error status. ; HL : Error status buffer. ; * Always: ; Other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- rsx_format_track CALL check_drive_for_hidden_rsx ; LD A,SD_DRIVE_NUMBER ; CP E JR NZ,.make_amsdos_call ; |^F Amélie code *** goes here *** or much better ignore this dangerous rsx :P ; Return to firmware SCF ; Carry True RET ; It's not the SD drive, we redirect to the AMSDOS |^F RSX .make_amsdos_call RST $18 ; FAR_CALL AMSDOS |^F DEFW farcall_amsdos_format_track RET ; --------------------------------------------------------------------------- ; Check the drive number for the RSXs $84, $85 y $86 ; ENTRIES: ; E : Drive number. ; EXITS: ; Zero true if Drive number is SD. ; --------------------------------------------------------------------------- check_drive_for_hidden_rsx ; Preload IY with the memory zone used by Amsdos LD IY,(AMSDOS_MEMORY_POOL) ; Check if is SD LD A,SD_DRIVE_NUMBER CP E RET ; --------------------------------------------------------------------------- ; Save return address in case of error ; --------------------------------------------------------------------------- save_return_address_for_errors_rsx ; Preload IY with the memory zone used by Amsdos LD IY,(AMSDOS_MEMORY_POOL) save_return_address_for_errors PUSH HL LD HL,6 ; 2 CALLs + 1 PUSH ADD HL,SP LD (IY + AMSDOS_STACK_POINTER),L ; Update AMSDOS stack pointer LD (IY + AMSDOS_STACK_POINTER + 1),H POP HL RET ; --------------------------------------------------------------------------- ; Carry False ; --------------------------------------------------------------------------- ;return_from_rsx ; LD L,(IY + AMSDOS_STACK_POINTER) ; Update AMSDOS stack pointer ; LD H,(IY + AMSDOS_STACK_POINTER + 1) ; LD SP,HL ; Restore stack pointer ; RET ; --------------------------------------------------------------------------- ; Test for a single parameter ; ENTRIES: ; A: Number of parameters ; --------------------------------------------------------------------------- ;test_for_single_param ; DEC A ; RET Z ; ERROR "Too many parameters" ;;; LD A,error_number ; LD HL,error_message ;;;; CALL show_error ; Convert error code for the system ;;; ADD A,$0C ;;; OR $80 ;;; CP A ; ; And return from the bug "gracefully" ; LD L,(IY + AMSDOS_STACK_POINTER) ; LD H,(IY + AMSDOS_STACK_POINTER + 1) ; Recover AMSDOS stack pointer ; LD SP,HL ; Set SP to it ; RET ; --------------------------------------------------------------------------- ; Get string parameter ; EXITS: ; HL : Pointer to the string ; B : Length string ; --------------------------------------------------------------------------- get_string_parameter CALL get_string_descriptor_in_hl LD B,(HL) ; B: Length string INC HL ; JP get_string_pointer_in_hl ; --------------------------------------------------------------------------- ; Get string pointer ; --------------------------------------------------------------------------- get_string_pointer_in_hl PUSH AF LD A,(HL) INC HL LD H,(HL) LD L,A POP AF RET ; --------------------------------------------------------------------------- ; Get string descriptror ; --------------------------------------------------------------------------- get_string_descriptor_in_hl LD L,(IX + 0) LD H,(IX + 1) INC IX INC IX RET ; --------------------------------------------------------------------------- ; Check if the SD is the active drive. ; EXITS: ; Zero flag true if SD is the active drive. ; A and HL corrupt. ; --------------------------------------------------------------------------- ;is_sd_active_drive ; LD HL,(AMSDOS_MEMORY_POOL) ; INC HL ; INC HL ; LD A,(HL) ; AMSDOS_MEMORY_POOL + 2 = Active Drive Number ; CP SD_DRIVE_NUMBER ; RET ; --------------------------------------------------------------------------- ; Copy the filename parameter to the amsdos filename buffer ; ENTRIES: ; DE: Offset to filename buffer ; EXITS: ; DE: Filename buffer ; --------------------------------------------------------------------------- put_filename_in_buffer CALL get_string_parameter ; HL = String | B = Length PUSH BC PUSH HL ; *** SOBRA *** ; Get address of Temporary Record & Filename Buffer in DE ($A7E4) ; LD DE,AMSDOS_RECORD_NAME_BUFFER CALL add_de_iy ; Initialize filename buffer PUSH DE CALL initialize_filename_in_buffer POP DE ; DE => Filename buffer POP HL ; HL => Filename *** SOBRA *** POP BC ; B => Length filename ; Copy the filename to the buffer PUSH DE CALL check_and_copy_filename POP DE RET ; --------------------------------------------------------------------------- ; Initialize filename buffer ; --------------------------------------------------------------------------- initialize_filename_in_buffer ; Set default Drive and User in the filename buffer LD A,(IY + AMSDOS_DEFAULT_DRIVE) LD (DE),A INC DE LD A,(IY + AMSDOS_DEFAULT_USER) LD (DE),A INC DE ; Fill filename with spaces PUSH BC LD C,11 CALL fill_with_spaces POP BC ; Mark end of filename LD A,$FF LD (DE),A RET ; --------------------------------------------------------------------------- ; ENTRIES: ; DE: Address of Amsdos filename buffer ; HL: Filename ; B: Length Filename ; --------------------------------------------------------------------------- check_and_copy_filename DEC HL ; HL--, need for the routine CALL get_char_from_string CCF RET C ; Return if string was empty LD C,A ; Save first byte read from string PUSH HL PUSH BC .loop_search_colon CP ':' JR Z,.colon_found ; Get next char CALL get_valid_amsdos_char_from_string JR C,.loop_search_colon SCF ; Set colon not found .colon_found POP BC POP HL LD A,C ; Recover first char read JR C,.get_filename ; Colon not found ; Test for user number |DIR,"0A:*.*" (|DIR,"15A:" is max user) .check_user_number INC DE CP '0' JR C,.check_drive_number ; < '0' CP ':' JR NC,.check_drive_number ; >= ':' SUB '0' ; Convert to binary LD C,A ; Save User number in C LD (DE),A ; Transfer to Amsdos buffer filename ; Get next char CALL get_valid_amsdos_char_from_string CP '0' JR C,.check_drive_number ; < '0' CP ':' JR NC,.check_drive_number ; >= ':' OR A DEC C RET NZ ; Return if first digit user number is not 1 ADD A,$DA ; $DA + $30 = $ CP $10 RET NC ; Return if the second digit >= 6 LD (DE),A ; Save user number (0 - 15) ; Get next char CALL get_valid_amsdos_char_from_string .check_drive_number DEC DE CP 'Q' JR NC,.check_colon ; > 'Q' CP 'A' JR C,.check_colon ; < 'A' SUB 'A' ; Convert to binary LD (DE),A ; Save drive number ; Get next char and Skip (it could be ':' or 'D' <- SD:) CALL get_valid_amsdos_char_from_string .check_colon CALL skip_space_and_get_next_char XOR ':' RET NZ ; Return if it isn't ':' ; Get next char CALL get_char_from_string CCF RET C ; Return if string is empty .get_filename INC DE INC DE ; Set buffer at the beginning of the name CP '.' RET Z ; Return if it's '.' ; Check name LD C,8 CALL .check_substring RET C XOR '.' RET NZ ; Return if it isn't '.' ; Get next char CALL get_char_from_string ; Check extension LD C,3 JR NC,fill_with_spaces .check_substring CP ' ' JR C,fill_with_spaces ; < ' ', then fill with spaces PUSH HL PUSH BC LD B,A ; Save char in B LD HL,list_invalid_chars_for_filename .check_for_invalid_chars LD A,(HL) INC HL OR A JR Z,.char_is_valid CP B JR NZ,.check_for_invalid_chars .char_not_valid SCF ; Set char invalid for Amsdos .char_is_valid LD A,B POP BC POP HL JR C,fill_with_spaces ; In case of invalid char, put space. DEC C RET M ; Return when length is reached (Carry true) CP '*' ; Is it a wildcard? CALL Z,fill_buffer_with_wildchar LD (DE),A INC DE ; Get next char CALL get_valid_amsdos_char_from_string JR NC,fill_with_spaces CP ' ' JR NZ,.check_substring ; Space? No, then continue checking the string ; Space found, fill the rest of the filename buffer with spaces CALL skip_space_and_get_next_char ; --------------------------------------------------------------------------- ; Fill buffer with spaces. ; ENTRIES: ; C: Length buffer ; DE: Address of the buffer ; --------------------------------------------------------------------------- fill_with_spaces PUSH AF LD A,$20 ; ' ' CALL fill_buffer_with_a POP AF CCF RET ; --------------------------------------------------------------------------- ; Fill buffer with '?' (Mark of wildcard). ; --------------------------------------------------------------------------- fill_buffer_with_wildchar LD A,'?' ; --------------------------------------------------------------------------- ; Fill buffer with the value in the Acumulator. ; ENTRIES: ; A: Byte to fill the buffer ; C: Length buffer ; DE: Address of the buffer ; --------------------------------------------------------------------------- fill_buffer_with_a INC C .loop_fill_buffer_with_a DEC C RET Z LD (DE),A INC DE JR NZ,.loop_fill_buffer_with_a ; --------------------------------------------------------------------------- ; Fill buffer with 0. ; Entries: ; DE : Pointer to the buffer ; BC : Length of buffer ; --------------------------------------------------------------------------- ;fill_with_zeros ; XOR A ; LD (DE),A ; INC DE ; DEC BC ; LD A,B ; OR C ; JR NZ,fill_with_zeros ; RET ; --------------------------------------------------------------------------- skip_space_and_get_next_char CP ' ' SCF RET NZ get_char_from_string CALL get_valid_amsdos_char_from_string JR C,skip_space_and_get_next_char RET ; The string is empty ; --------------------------------------------------------------------------- ; Get a valid amsdos char from the string ($00 - $7F) ; ENTRIES: ; B: Length String HL ; C: $FF ; DE: Address of Amsdos filename buffer ; HL: String ; EXITS: ; A: Char in uppercase. ; Carry true if the string is not empty yet. ; --------------------------------------------------------------------------- get_valid_amsdos_char_from_string LD A,B OR A RET Z ; Length String == 0 INC HL DEC B RST $20 ; RAM LAM -> LD A,(HL) with ROMs disabled AND $7F CALL uppercase_char SCF RET uppercase_char CP 'a' RET C CP 'z' + 1 RET NC AND %11011111 ; Uppercase it RET ; --------------------------------------------------------------------------- list_invalid_chars_for_filename DEFB '<>.,;:=[]_%|()/\\',$7F,$00 ; --------------------------------------------------------------------------- ; Initialization wip ; ENTRIES: ; DE: Pointer to the lowest RAM address that we can use. ; HL: Pointer to the highest RAM address that we can use. ; EXITS: ; Carry true. ; DE: Pointer to the new lowest RAM address that we can use. ; HL: Pointer to the new highest RAM address that we can use. ; A, BC and the other flags corrupt. ; All others registers preserved. ; --------------------------------------------------------------------------- initialize_amelie PUSH HL PUSH DE ;;; CALL test_checksum_rom ; Suma de todos los bytes de la rom, excepto el último que es el checksum ;;; JR NC,.checksum_failed LD HL,initialize_text CALL print_text ;;; CALL test_hardware ; Test & Initialize SD ;;; JR NC,.hardware_test_failed CALL init_workspace JR NC,.init_workspace_failed .exit_initialize_amelie POP DE POP HL SCF RET ;.checksum_failed ; LD HL,checksum_failed_text ; JR .print_error ;.hardware_test_failed ; LD HL,hardware_test_failed_text ; JR .print_error .init_workspace_failed LD HL,init_workspace_failed_text .print_error CALL print_text JR .exit_initialize_amelie ;checksum_failed_text ; DEFB 'Ameli rom checksum failed.',10,13,$FF ;hardware_test_failed_text ; DEFB 'SD Card was not found.',10,13,$FF init_workspace_failed_text DEFB ' Amsdos or compatible was not found.',10,13,$FF ; --------------------------------------------------------------------------- ; ; EXITS: ; Carry false in case of error. ; --------------------------------------------------------------------------- init_workspace ; ; Check if the workspace is already initialized. *** AMSDOS always corrupt $BE7F *** ; LD DE,begin_ameliedos_patch ; LD HL,AMSDOS_HOOK ; LD B,3 ;.loop_check_workspace ; LD A,(DE) ; CP (HL) ; JR NZ,.continue_with_initialization ; INC DE ; INC HL ; DJNZ .loop_check_workspace ; JR .exit_init_workspace ;.continue_with_initialization ; Test for Amsdos or another compatible disk rom LD HL,AMSDOS_HOOK + 1 ; First byte free after Amsdos workzone ($BE40 - $BE7F) LD (HL),$C1 ; BIOS SET MESSAGE (Amsdos) CALL KL_FIND_COMMAND RET NC ; Exit if Amsdos is not detected ; Copy patch to ram, needed for the next routines LD HL,begin_ameliedos_patch LD DE,AMSDOS_HOOK LD BC,end_ameliedos_patch - begin_ameliedos_patch LDIR ; Get the ROM number for the CAS vector hook CALL KL_CURR_SELECTION ; A = ROM select address for our rom LD (amelie_cas_hook_far_call + 2),A ; Get AMSDOS offset to the CAS vectors in the ROM CALL get_amsdos_cas_vectors LD (amsdos_cas_vectors),HL ; (CPC = $CD4C / CPC+ = $CDB0) ; Get address AMSDOS buffers LD HL,(AMSDOS_MEMORY_POOL) ; HL = Amsdos reserved area address (default is $A700) LD DE,AMSDOS_CATALOG_BUFFER ; Offset to the buffers ADD HL,DE ; HL = Catalog & Sector Buffers (default is $A930) LD (amsdos_buffers),HL ; Save "far address" of the overloaded AMSDOS RSXs CALL save_amsdos_rsxs_faraddress .exit_init_workspace SCF RET ; --------------------------------------------------------------------------- ; Get address of CAS vectors in Amsdos ROM ; EXITS: ; HL : Address CAS vectors ; --------------------------------------------------------------------------- get_amsdos_cas_vectors ; Get the "far address" for RST 4 in patched CAS vectors LD HL,(CAS_IN_OPEN + 1) ; $A88B LD E,(HL) INC HL LD D,(HL) ; DE -> Amsdos ROM routine ($CD30 CPC | $CD94 CPC+) INC HL LD C,(HL) ; C -> ROM Number (7) .find_offset CALL ldrom_a_from_de ; LD A,(DE) from ROM INC DE CP $11 JR NZ,.find_offset ; DE = $CD42 CALL ldrom_a_from_de ; LD A,(DE) from ROM LD L,A INC DE CALL ldrom_a_from_de ; LD A,(DE) from ROM LD H,A ; HL = $10D2 LD DE,CAS_IN_CLOSE ; DE = $BC7A ADD HL,DE ; HL = $CD4C RET ; --------------------------------------------------------------------------- ; Save the "far address" of the Amsdos RSXs that we are overloading ; (|DRIVE, |DIR, |ERA, |REN, $84, $85, $86). ; --------------------------------------------------------------------------- save_amsdos_rsxs_faraddress LD HL,farcall_amsdos_drive LD (HL),'B' + $80 ; Search for |B CALL KL_FIND_COMMAND ; The command name must be in RAM LD A,C ; Get Amsdos ROM number LD DE,farcall_amsdos_drive LD BC,3 ADD HL,BC ; Skip |B EX DE,HL CALL save_far_address ; Save |DRIVE far address EX DE,HL ADD HL,BC ; Skip |USER EX DE,HL ; Save |DIR, |ERA, |REN CALL save_3_far_address EX DE,HL LD BC,9 ADD HL,BC ; Skip ^A ($81),^B ($82), ^C ($83) EX DE,HL ; Save |^D (Read Sector), |^E (Write Sector), |^F (Format Track) save_3_far_address LD B,3 .loop_save_3_far_address CALL save_far_address ; Save far address DJNZ .loop_save_3_far_address RET ; --------------------------------------------------------------------------- ; Save far address in buffer ; ENTRIES: ; HL : Buffer address ; DE : RSX ROM address ; A : ROM number ; --------------------------------------------------------------------------- save_far_address LD (HL),E INC L LD (HL),D ; ROM address INC L LD (HL),A ; ROM number INC L INC DE INC DE INC DE ; Update ROM pointer RET ; --------------------------------------------------------------------------- ; Read a byte from a ROM | LD A,(DE) ; --------------------------------------------------------------------------- ldrom_a_from_de PUSH HL LD HL,$C91A ; LD A,(DE) | RET PUSH HL LD HL,0 ADD HL,SP CALL KL_FAR_PCHL ; HL = Address | C = ROM Select POP HL POP HL RET ; --------------------------------------------------------------------------- ; ADD BC,IY ; --------------------------------------------------------------------------- ;add_bc_iy ; PUSH IY ; EX (SP),HL ; ADD HL,BC ; LD B,H ; LD C,L ; POP HL ; RET ; --------------------------------------------------------------------------- ; ADD DE,IY ; --------------------------------------------------------------------------- add_de_iy PUSH IY EX (SP),HL ADD HL,DE EX DE,HL POP HL RET ; --------------------------------------------------------------------------- ; ADD HL,IY ; --------------------------------------------------------------------------- add_hl_iy PUSH DE PUSH IY POP DE ADD HL,DE POP DE RET ; --------------------------------------------------------------------------- ; Print a string finished in $FF using the firmware ; ENTRY: ; HL : Pointer to the string ; --------------------------------------------------------------------------- print_text LD A,(HL) .loop_print_text CALL TXT_OUTPUT INC HL LD A,(HL) .continue_print_text CP $FF JR NZ,.loop_print_text RET ; Print_String Num_bytes,String ; LD A,(HL) ; RET Z ; LD B,A ;.loop_print_text ; LD A,(HL) ; CALL TXT_OUTPUT ; INC HL ; DJNZ .loop_print_text ; RET ; --------------------------------------------------------------------------- initialize_text DEFB $0F,2,' AMELIE v0.1 ',$A4,'2012 PulkoMandy & SyX',$0F,1,10,13,$FF ; --------------------------------------------------------------------------- ; Put after the Amsdos memory zone in $BE40 - $BE7D (Variables for Amélie) ; --------------------------------------------------------------------------- begin_ameliedos_patch RORG AMSDOS_HOOK ; --------------------------------------------------------------------------- ; CAS vectors hook hook_for_amsdos_cas_vectors RST $18 ; FAR_CALL amelie_hook DEFW amelie_cas_hook_far_call RET amelie_cas_hook_far_call DEFW amelie_cas_hook ; ROM Address DEFB 0 ; ROM number for our ROM ; --------------------------------------------------------------------------- ; Amsdos variables amsdos_cas_vectors DEFS 2 ; Amsdos ROM CAS Vectors (CPC = $CD4C / CPC+ = $CDB0) amsdos_buffers DEFS 2 ; Amsdos reserved area + 560 ; Start of Catalog (128 bytes) and Sector (512) buffers ;AMSDOS_CATALOG_BUFFER EQU $0230 ; (128) Buffer for Catalog Records ;AMSDOS_SECTOR_BUFFER EQU $02B0 ; (512) Sector Buffer ; We should storage the pointer to the Temporary record and filename buffer, too. ; At least if we are going to use that buffer to decode the filenames. ; AMSDOS_RECORD_NAME_BUFFER EQU $00E4 ; (128) Temporary Record & Filename Buffer ; --------------------------------------------------------------------------- ; Far address of overloaded RSXs farcall_amsdos_drive DEFS 2 ; |DRIVE RSX address DEFS 1 ; |DRIVE RSX ROM number farcall_amsdos_dir DEFS 2 ; |DIR RSX address DEFS 1 ; |DIR RSX ROM number farcall_amsdos_era DEFS 2 ; |ERA RSX address DEFS 1 ; |ERA RSX ROM number farcall_amsdos_ren DEFS 2 ; |REN RSX address DEFS 1 ; |REN RSX ROM number farcall_amsdos_read_sector DEFS 2 ; |^D RSX address DEFS 1 ; |^D RSX ROM number farcall_amsdos_write_sector DEFS 2 ; |^E RSX address DEFS 1 ; |^E RSX ROM number farcall_amsdos_format_track DEFS 2 ; |^F RSX address DEFS 1 ; |^F RSX ROM number ; --------------------------------------------------------------------------- ; SD Commands ; --------------------------------------------------------------------------- ; Pointer to the active directory in the Amélidos catalog amelie_active_dir DEFS 2 ; Default in Root or comment this line ; for saving the active dir between resets? ; --------------------------------------------------------------------------- REND ; --------------------------------------------------------------------------- end_ameliedos_patch ; --------------------------------------------------------------------------- ; Padding the rom with 0s until the checksum byte ORG $FFFF checksum_byte DEFB 0 ; --------------------------------------------------------------------------- END