Tolik-Trek/ZX-SP-ROMs
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/ZX-SP-ROMs.git synced 2026-06-15 09:21:45 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Tolik 2024-10-11 04:59:31 +10:00
parent c402862301
commit 203d880caf
5 changed files with 1176 additions and 1171 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SP_128.ASM
View File

@ -10030,7 +10030,7 @@ L2584: CALL L28BE ; Reset Cursor Position.
; -------------- ; --------------
; Show Main Menu ; Show Main Menu
; -------------- ; --------------
BLOCK #259F-$,#FF; áâ ­¤ àâ­ë©  ¤à¥á
L259F: LD HL,TSTACK ; #5BFF. L259F: LD HL,TSTACK ; #5BFF.
LD (OLDSP),HL ; #5B81. LD (OLDSP),HL ; #5B81.

84
SP_TRDOS.ASM
View File

@ -229,7 +229,7 @@ AUTO_00A8:
LD HL,ZX_VARS.RET_INS LD HL,ZX_VARS.RET_INS
AUTO_0100: AUTO_0100:
LD (HL),201 LD (HL),201
RST_ROM ROUTINE.clear_prb RST_ROM BASIC_FN.x48.clear_prb
LD HL,ZX_VARS.SCR_SIZE LD HL,ZX_VARS.SCR_SIZE
LD (HL),2 LD (HL),2
LD HL,AUTO_128B LD HL,AUTO_128B
@ -268,7 +268,7 @@ AUTO_0140:
LD (ZX_VARS.NEW_PPC),HL LD (ZX_VARS.NEW_PPC),HL
XOR A XOR A
LD (ZX_VARS.NEW_S_PPC),A LD (ZX_VARS.NEW_S_PPC),A
RST_ROM ROUTINE.set_min RST_ROM BASIC_FN.x48.set_min
LD HL,(ZX_VARS.BAS_PROG) LD HL,(ZX_VARS.BAS_PROG)
DEC HL DEC HL
LD (ZX_VARS.DATA_ADR),HL LD (ZX_VARS.DATA_ADR),HL
@ -277,7 +277,7 @@ AUTO_0140:
OR A OR A
LD HL,AUTO_1B76 LD HL,AUTO_1B76
JR Z,AUTO_0166 JR Z,AUTO_0166
RST_ROM ROUTINE.report_0 RST_ROM BASIC_FN.x48.report_0
AUTO_0166: AUTO_0166:
PUSH HL PUSH HL
LD HL,ZX_VARS.RET_INS LD HL,ZX_VARS.RET_INS
@ -1252,15 +1252,15 @@ AUTO_1052:
PUSH BC PUSH BC
PUSH DE PUSH DE
AUTO_1056: AUTO_1056:
RST_ROM ROUTINE.key_scan RST_ROM BASIC_FN.x48.key_scan
;AUTO_1059: ;AUTO_1059:
LD C,0 LD C,0
JR NZ,AUTO_1056 JR NZ,AUTO_1056
RST_ROM ROUTINE.key_test RST_ROM BASIC_FN.x48.key_test
JR NC,AUTO_1056 JR NC,AUTO_1056
DEC D DEC D
LD E,A LD E,A
RST_ROM ROUTINE.key_decode RST_ROM BASIC_FN.x48.key_decode
POP DE POP DE
POP BC POP BC
POP HL POP HL
@ -1997,7 +1997,7 @@ AUTO_166F:
LD (ZX_VARS.VAR_1),HL LD (ZX_VARS.VAR_1),HL
JP AUTO_1E23 JP AUTO_1E23
AUTO_1680: AUTO_1680:
RST_ROM ROUTINE.free_mem RST_ROM BASIC_FN.x48.free_mem
LD HL,#FFFF LD HL,#FFFF
SBC HL,BC SBC HL,BC
LD A,H LD A,H
@ -2465,7 +2465,7 @@ CMD_MERGE:
LD (ZX_VARS.MED_LEN),BC LD (ZX_VARS.MED_LEN),BC
PUSH BC PUSH BC
INC BC INC BC
RST_ROM ROUTINE.bc_spaces RST_ROM BASIC_FN.x48.bc_spaces
;AUTO_19D1: ;AUTO_19D1:
LD (HL),128 LD (HL),128
EX DE,HL EX DE,HL
@ -2479,7 +2479,7 @@ CMD_MERGE:
CALL AUTO_1921 CALL AUTO_1921
POP HL POP HL
LD DE,(ZX_VARS.BAS_PROG) LD DE,(ZX_VARS.BAS_PROG)
RST_ROM ROUTINE.me_new_lp RST_ROM BASIC_FN.x48.me_new_lp
JP AUTO_03E1 JP AUTO_03E1
AUTO_19F2: AUTO_19F2:
EX DE,HL EX DE,HL
@ -2491,7 +2491,7 @@ AUTO_19F2:
LD B,H LD B,H
LD C,L LD C,L
AUTO_19FD: AUTO_19FD:
RST_ROM ROUTINE.test_room RST_ROM BASIC_FN.x48.test_room
RET RET
AUTO_1A01: AUTO_1A01:
LD DE,(ZX_VARS.BAS_PROG) LD DE,(ZX_VARS.BAS_PROG)
@ -2525,7 +2525,7 @@ AUTO_1A31:
POP DE POP DE
POP HL POP HL
PUSH BC PUSH BC
RST_ROM ROUTINE.reclaim_1 RST_ROM BASIC_FN.x48.reclaim_1
POP BC POP BC
CALL AUTO_1E32 CALL AUTO_1E32
INC HL INC HL
@ -2990,7 +2990,7 @@ AUTO_1D63:
CP #FF CP #FF
LD (HL),0 LD (HL),0
RET NZ RET NZ
RST_ROM ROUTINE.set_work RST_ROM BASIC_FN.x48.set_work
RET RET
; <20>஢¥àª , ¨¤¥â «¨ ¯à®¢¥àª  áâப¨ ­  ᨭ⠪á¨á ¨«¨ ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë. ; <20>஢¥àª , ¨¤¥â «¨ ¯à®¢¥àª  áâப¨ ­  ᨭ⠪á¨á ¨«¨ ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë.
; …᫨ ¨¤¥â ¢ë¯®«­¥­¨¥, â® ä« £ Z ¡ã¤¥â á¡à®è¥­, ¨­ ç¥ ãáâ ­®¢«¥­. ; …᫨ ¨¤¥â ¢ë¯®«­¥­¨¥, â® ä« £ Z ¡ã¤¥â á¡à®è¥­, ¨­ ç¥ ãáâ ­®¢«¥­.
@ -3009,28 +3009,28 @@ AUTO_1D7B:
OPEN_CH0: OPEN_CH0:
XOR A XOR A
AUTO_1D84: AUTO_1D84:
RST_ROM ROUTINE.chan_open RST_ROM BASIC_FN.x48.chan_open
RET RET
OPEN_CH2: OPEN_CH2:
LD A,2 LD A,2
JR AUTO_1D84 JR AUTO_1D84
AUTO_1D8C: AUTO_1D8C:
RST_ROM ROUTINE.get_char RST_ROM BASIC_FN.x48.get_char
;AUTO_1D8F: ;AUTO_1D8F:
RET RET
GET_CMD: GET_CMD:
CALL OPEN_CH0 CALL OPEN_CH0
RST_ROM ROUTINE.editor RST_ROM BASIC_FN.x48.editor
RET RET
AUTO_1D97: AUTO_1D97:
RST_ROM ROUTINE.cls RST_ROM BASIC_FN.x48.cls
RET RET
AUTO_1D9B: AUTO_1D9B:
RST_ROM ROUTINE.look_vars RST_ROM BASIC_FN.x48.look_vars
RET RET
AUTO_1D9F: AUTO_1D9F:
RST_ROM ROUTINE.cls_lower RST_ROM BASIC_FN.x48.cls_lower
RET RET
AUTO_1DA3: AUTO_1DA3:
LD C,A LD C,A
@ -3041,20 +3041,20 @@ AUTO_1DA9:
PUSH BC PUSH BC
CALL xchg_intf1 CALL xchg_intf1
POP BC POP BC
RST_ROM ROUTINE.out_num_1 RST_ROM BASIC_FN.x48.out_num_1
CALL xchg_intf1 CALL xchg_intf1
RET RET
BAS_2BF1: BAS_2BF1:
RST_ROM ROUTINE.stack_fetch RST_ROM BASIC_FN.x48.stack_fetch
RET RET
AUTO_1DB9: AUTO_1DB9:
RST_ROM ROUTINE.find_int2 RST_ROM BASIC_FN.x48.find_int2
RET RET
AUTO_1DBD: AUTO_1DBD:
RST_ROM ROUTINE.expt_exp RST_ROM BASIC_FN.x48.expt_exp
RET RET
AUTO_1DC1: AUTO_1DC1:
RST_ROM ROUTINE.expt_1num RST_ROM BASIC_FN.x48.expt_1num
RET RET
AUTO_1DC5: AUTO_1DC5:
LD HL,(ZX_VARS.ADR_DOS_COM) LD HL,(ZX_VARS.ADR_DOS_COM)
@ -3102,22 +3102,22 @@ AUTO_1E0B:
RET RET
AUTO_1E1C: AUTO_1E1C:
LD HL,(ZX_VARS.ADR_DOS_COM) LD HL,(ZX_VARS.ADR_DOS_COM)
RST_ROM ROUTINE.remove_fp RST_ROM BASIC_FN.x48.remove_fp
RET RET
AUTO_1E23: AUTO_1E23:
LD HL,(ZX_VARS.WORK_SPACE) LD HL,(ZX_VARS.WORK_SPACE)
RST_ROM ROUTINE.bc_spaces RST_ROM BASIC_FN.x48.bc_spaces
AUTO_1E29: AUTO_1E29:
RET RET
BASIC_RST20: BASIC_RST20:
RST_ROM ROUTINE.next_char RST_ROM BASIC_FN.x48.next_char
AUTO_1E2D: AUTO_1E2D:
RET RET
AUTO_1E2E: AUTO_1E2E:
RST_ROM ROUTINE.reclaim_2 RST_ROM BASIC_FN.x48.reclaim_2
RET RET
AUTO_1E32: AUTO_1E32:
RST_ROM ROUTINE.make_room RST_ROM BASIC_FN.x48.make_room
RET RET
READ_TRK_NUM: READ_TRK_NUM:
CALL READ_ADR_LABL CALL READ_ADR_LABL
@ -3657,7 +3657,7 @@ AUTO_2206:
JP AUTO_03D9 JP AUTO_03D9
AUTO_220F: AUTO_220F:
LD A,(ZX_VARS.MED_LEN) LD A,(ZX_VARS.MED_LEN)
RST_ROM ROUTINE.str_data1 RST_ROM BASIC_FN.x48.str_data1
LD A,B LD A,B
OR C OR C
JP NZ,AUTO_221B JP NZ,AUTO_221B
@ -4058,7 +4058,7 @@ AUTO_2492:
AUTO_2494: AUTO_2494:
LD (ZX_VARS.ERR_NR),A LD (ZX_VARS.ERR_NR),A
CALL AUTO_20E5 CALL AUTO_20E5
RST_ROM ROUTINE.error_4 RST_ROM BASIC_FN.x48.error_4
RET RET
AUTO_249E: AUTO_249E:
LD A,23 LD A,23
@ -4271,7 +4271,7 @@ AUTO_25EF:
INC HL INC HL
LD D,(HL) LD D,(HL)
OR A OR A
LD HL,ROUTINE.ed_error ;48 basic routine LD HL,BASIC_FN.x48.ed_error ;48 basic routine
SBC HL,DE SBC HL,DE
JR NZ,AUTO_2626 JR NZ,AUTO_2626
LD SP,(ZX_VARS.ERR_SP) LD SP,(ZX_VARS.ERR_SP)
@ -4290,7 +4290,7 @@ AUTO_2614:
AUTO_261D: AUTO_261D:
CP 13 CP 13
JR Z,AUTO_2614 JR Z,AUTO_2614
RST_ROM ROUTINE.add_char_keeping_current_mode RST_ROM BASIC_FN.x48.add_char_keeping_current_mode
JR AUTO_260F JR AUTO_260F
AUTO_2626: AUTO_2626:
CALL AUTO_262B CALL AUTO_262B
@ -4331,7 +4331,7 @@ CMD_CLOSE:
CALL AUTO_1E0B CALL AUTO_1E0B
CALL SINTAX_RET CALL SINTAX_RET
LD A,(ZX_VARS.MED_LEN) LD A,(ZX_VARS.MED_LEN)
RST_ROM ROUTINE.str_data1 RST_ROM BASIC_FN.x48.str_data1
LD A,B LD A,B
OR C OR C
JP Z,AUTO_01D3 JP Z,AUTO_01D3
@ -5680,9 +5680,9 @@ AUTO_3057: ;
LD (HL),A LD (HL),A
INC HL INC HL
EX DE,HL EX DE,HL
RST_ROM ROUTINE.differ RST_ROM BASIC_FN.x48.differ
PUSH BC PUSH BC
RST_ROM ROUTINE.reclaim_2 RST_ROM BASIC_FN.x48.reclaim_2
POP BC POP BC
LD A,(ZX_VARS.DOS_ERROR) LD A,(ZX_VARS.DOS_ERROR)
OR A OR A
@ -5773,7 +5773,7 @@ AUTO_30E1:
LD (ZX_VARS.DOS_ERROR),A LD (ZX_VARS.DOS_ERROR),A
DEC HL DEC HL
DEC HL DEC HL
RST_ROM ROUTINE.line_addr RST_ROM BASIC_FN.x48.line_addr
RET RET
AUTO_30F4: AUTO_30F4:
LD A,255 LD A,255
@ -6057,7 +6057,7 @@ FORM_X03:
CALL AUTO_1C57 CALL AUTO_1C57
CALL AUTO_1D97 CALL AUTO_1D97
LD A,2 LD A,2
RST_ROM ROUTINE.chan_open RST_ROM BASIC_FN.x48.chan_open
LD HL,NEW_NAME LD HL,NEW_NAME
RST PRINT_LN RST PRINT_LN
@ -6122,7 +6122,7 @@ SUB_HL_14:
RET RET
LOW_CLS_AT00: LOW_CLS_AT00:
RST_ROM ROUTINE.cls_lower RST_ROM BASIC_FN.x48.cls_lower
LD HL,MSG_AT00 LD HL,MSG_AT00
JP PRINT_LINE JP PRINT_LINE
@ -6525,7 +6525,7 @@ BEEP_1:
LD HL,200 ; BEEP LD HL,200 ; BEEP
LD D,H LD D,H
LD E,(IY-1) LD E,(IY-1)
RST_ROM ROUTINE.beeper RST_ROM BASIC_FN.x48.beeper
POP AF POP AF
RET RET
@ -6670,7 +6670,7 @@ PRINT_SYM:
AUTO_3D94: AUTO_3D94:
RST_ROM ROUTINE.print_a RST_ROM BASIC_FN.x48.print_a
RET RET
AUTO_3D98: AUTO_3D98:
LD A,8 LD A,8
@ -6678,10 +6678,10 @@ WG93_EXE:
OUT (FDC_93.Command),A OUT (FDC_93.Command),A
AUTO_3D9C: AUTO_3D9C:
PUSH HL PUSH HL
RST_ROM ROUTINE.break_key RST_ROM BASIC_FN.x48.break_key
;RET_1F54: ;RET_1F54:
JR C,AUTO_3DA5 JR C,AUTO_3DA5
RST_ROM ROUTINE.report_l RST_ROM BASIC_FN.x48.report_l
AUTO_3DA5: AUTO_3DA5:
POP HL POP HL
IN A,(FDC_93.DrvCTRL) IN A,(FDC_93.DrvCTRL)

2
Shared_Includes

@ -1 +1 @@
Subproject commit 817bba0c1abebdb890f77ee129578ebe06fb5131 Subproject commit 0df304a7f0295eb72c7102f153f82c91d90743e0

2
TRDOS/boot_trd.asm
View File

@ -81,7 +81,7 @@ bootkus1: DISP #F500
DEC A DEC A
DEC A DEC A
LD (ZX_VARS.ATTR_P),A LD (ZX_VARS.ATTR_P),A
CALL ROUTINE.cls CALL BASIC_FN.x48.x48.cls
.loop2: DI .loop2: DI
XOR A XOR A
LD (VAR_1),A LD (VAR_1),A

2257
inc/rom_routines.inc
View File

File diff suppressed because it is too large Load Diff