mirror of
https://github.com/Tolik-Trek/ZX-SP-ROMs.git
synced 2026-06-15 09:21:45 +03:00
...
This commit is contained in:
Tolik
parent
c402862301
commit
203d880caf
@ -10030,7 +10030,7 @@ L2584: CALL L28BE ; Reset Cursor Position.
|
||||
; --------------
|
||||
; Show Main Menu
|
||||
; --------------
|
||||
|
||||
BLOCK #259F-$,#FF; áâ ¤ àâë© ¤à¥á
|
||||
L259F: LD HL,TSTACK ; #5BFF.
|
||||
LD (OLDSP),HL ; #5B81.
|
||||
|
||||
|
||||
84
SP_TRDOS.ASM
84
SP_TRDOS.ASM
@ -229,7 +229,7 @@ AUTO_00A8:
|
||||
LD HL,ZX_VARS.RET_INS
|
||||
AUTO_0100:
|
||||
LD (HL),201
|
||||
RST_ROM ROUTINE.clear_prb
|
||||
RST_ROM BASIC_FN.x48.clear_prb
|
||||
LD HL,ZX_VARS.SCR_SIZE
|
||||
LD (HL),2
|
||||
LD HL,AUTO_128B
|
||||
@ -268,7 +268,7 @@ AUTO_0140:
|
||||
LD (ZX_VARS.NEW_PPC),HL
|
||||
XOR 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)
|
||||
DEC HL
|
||||
LD (ZX_VARS.DATA_ADR),HL
|
||||
@ -277,7 +277,7 @@ AUTO_0140:
|
||||
OR A
|
||||
LD HL,AUTO_1B76
|
||||
JR Z,AUTO_0166
|
||||
RST_ROM ROUTINE.report_0
|
||||
RST_ROM BASIC_FN.x48.report_0
|
||||
AUTO_0166:
|
||||
PUSH HL
|
||||
LD HL,ZX_VARS.RET_INS
|
||||
@ -1252,15 +1252,15 @@ AUTO_1052:
|
||||
PUSH BC
|
||||
PUSH DE
|
||||
AUTO_1056:
|
||||
RST_ROM ROUTINE.key_scan
|
||||
RST_ROM BASIC_FN.x48.key_scan
|
||||
;AUTO_1059:
|
||||
LD C,0
|
||||
JR NZ,AUTO_1056
|
||||
RST_ROM ROUTINE.key_test
|
||||
RST_ROM BASIC_FN.x48.key_test
|
||||
JR NC,AUTO_1056
|
||||
DEC D
|
||||
LD E,A
|
||||
RST_ROM ROUTINE.key_decode
|
||||
RST_ROM BASIC_FN.x48.key_decode
|
||||
POP DE
|
||||
POP BC
|
||||
POP HL
|
||||
@ -1997,7 +1997,7 @@ AUTO_166F:
|
||||
LD (ZX_VARS.VAR_1),HL
|
||||
JP AUTO_1E23
|
||||
AUTO_1680:
|
||||
RST_ROM ROUTINE.free_mem
|
||||
RST_ROM BASIC_FN.x48.free_mem
|
||||
LD HL,#FFFF
|
||||
SBC HL,BC
|
||||
LD A,H
|
||||
@ -2465,7 +2465,7 @@ CMD_MERGE:
|
||||
LD (ZX_VARS.MED_LEN),BC
|
||||
PUSH BC
|
||||
INC BC
|
||||
RST_ROM ROUTINE.bc_spaces
|
||||
RST_ROM BASIC_FN.x48.bc_spaces
|
||||
;AUTO_19D1:
|
||||
LD (HL),128
|
||||
EX DE,HL
|
||||
@ -2479,7 +2479,7 @@ CMD_MERGE:
|
||||
CALL AUTO_1921
|
||||
POP HL
|
||||
LD DE,(ZX_VARS.BAS_PROG)
|
||||
RST_ROM ROUTINE.me_new_lp
|
||||
RST_ROM BASIC_FN.x48.me_new_lp
|
||||
JP AUTO_03E1
|
||||
AUTO_19F2:
|
||||
EX DE,HL
|
||||
@ -2491,7 +2491,7 @@ AUTO_19F2:
|
||||
LD B,H
|
||||
LD C,L
|
||||
AUTO_19FD:
|
||||
RST_ROM ROUTINE.test_room
|
||||
RST_ROM BASIC_FN.x48.test_room
|
||||
RET
|
||||
AUTO_1A01:
|
||||
LD DE,(ZX_VARS.BAS_PROG)
|
||||
@ -2525,7 +2525,7 @@ AUTO_1A31:
|
||||
POP DE
|
||||
POP HL
|
||||
PUSH BC
|
||||
RST_ROM ROUTINE.reclaim_1
|
||||
RST_ROM BASIC_FN.x48.reclaim_1
|
||||
POP BC
|
||||
CALL AUTO_1E32
|
||||
INC HL
|
||||
@ -2990,7 +2990,7 @@ AUTO_1D63:
|
||||
CP #FF
|
||||
LD (HL),0
|
||||
RET NZ
|
||||
RST_ROM ROUTINE.set_work
|
||||
RST_ROM BASIC_FN.x48.set_work
|
||||
RET
|
||||
; <20>஢¥àª , ¨¤¥â «¨ ¯à®¢¥àª áâப¨ á¨â ªá¨á ¨«¨ ¢ë¯®«¥¨¥ ª®¬ ¤ë.
|
||||
; …᫨ ¨¤¥â ¢ë¯®«¥¨¥, â® ä« £ Z ¡ã¤¥â á¡à®è¥, ¨ ç¥ ãáâ ®¢«¥.
|
||||
@ -3009,28 +3009,28 @@ AUTO_1D7B:
|
||||
OPEN_CH0:
|
||||
XOR A
|
||||
AUTO_1D84:
|
||||
RST_ROM ROUTINE.chan_open
|
||||
RST_ROM BASIC_FN.x48.chan_open
|
||||
RET
|
||||
OPEN_CH2:
|
||||
LD A,2
|
||||
JR AUTO_1D84
|
||||
AUTO_1D8C:
|
||||
RST_ROM ROUTINE.get_char
|
||||
RST_ROM BASIC_FN.x48.get_char
|
||||
;AUTO_1D8F:
|
||||
RET
|
||||
|
||||
GET_CMD:
|
||||
CALL OPEN_CH0
|
||||
RST_ROM ROUTINE.editor
|
||||
RST_ROM BASIC_FN.x48.editor
|
||||
RET
|
||||
AUTO_1D97:
|
||||
RST_ROM ROUTINE.cls
|
||||
RST_ROM BASIC_FN.x48.cls
|
||||
RET
|
||||
AUTO_1D9B:
|
||||
RST_ROM ROUTINE.look_vars
|
||||
RST_ROM BASIC_FN.x48.look_vars
|
||||
RET
|
||||
AUTO_1D9F:
|
||||
RST_ROM ROUTINE.cls_lower
|
||||
RST_ROM BASIC_FN.x48.cls_lower
|
||||
RET
|
||||
AUTO_1DA3:
|
||||
LD C,A
|
||||
@ -3041,20 +3041,20 @@ AUTO_1DA9:
|
||||
PUSH BC
|
||||
CALL xchg_intf1
|
||||
POP BC
|
||||
RST_ROM ROUTINE.out_num_1
|
||||
RST_ROM BASIC_FN.x48.out_num_1
|
||||
CALL xchg_intf1
|
||||
RET
|
||||
BAS_2BF1:
|
||||
RST_ROM ROUTINE.stack_fetch
|
||||
RST_ROM BASIC_FN.x48.stack_fetch
|
||||
RET
|
||||
AUTO_1DB9:
|
||||
RST_ROM ROUTINE.find_int2
|
||||
RST_ROM BASIC_FN.x48.find_int2
|
||||
RET
|
||||
AUTO_1DBD:
|
||||
RST_ROM ROUTINE.expt_exp
|
||||
RST_ROM BASIC_FN.x48.expt_exp
|
||||
RET
|
||||
AUTO_1DC1:
|
||||
RST_ROM ROUTINE.expt_1num
|
||||
RST_ROM BASIC_FN.x48.expt_1num
|
||||
RET
|
||||
AUTO_1DC5:
|
||||
LD HL,(ZX_VARS.ADR_DOS_COM)
|
||||
@ -3102,22 +3102,22 @@ AUTO_1E0B:
|
||||
RET
|
||||
AUTO_1E1C:
|
||||
LD HL,(ZX_VARS.ADR_DOS_COM)
|
||||
RST_ROM ROUTINE.remove_fp
|
||||
RST_ROM BASIC_FN.x48.remove_fp
|
||||
RET
|
||||
AUTO_1E23:
|
||||
LD HL,(ZX_VARS.WORK_SPACE)
|
||||
RST_ROM ROUTINE.bc_spaces
|
||||
RST_ROM BASIC_FN.x48.bc_spaces
|
||||
AUTO_1E29:
|
||||
RET
|
||||
BASIC_RST20:
|
||||
RST_ROM ROUTINE.next_char
|
||||
RST_ROM BASIC_FN.x48.next_char
|
||||
AUTO_1E2D:
|
||||
RET
|
||||
AUTO_1E2E:
|
||||
RST_ROM ROUTINE.reclaim_2
|
||||
RST_ROM BASIC_FN.x48.reclaim_2
|
||||
RET
|
||||
AUTO_1E32:
|
||||
RST_ROM ROUTINE.make_room
|
||||
RST_ROM BASIC_FN.x48.make_room
|
||||
RET
|
||||
READ_TRK_NUM:
|
||||
CALL READ_ADR_LABL
|
||||
@ -3657,7 +3657,7 @@ AUTO_2206:
|
||||
JP AUTO_03D9
|
||||
AUTO_220F:
|
||||
LD A,(ZX_VARS.MED_LEN)
|
||||
RST_ROM ROUTINE.str_data1
|
||||
RST_ROM BASIC_FN.x48.str_data1
|
||||
LD A,B
|
||||
OR C
|
||||
JP NZ,AUTO_221B
|
||||
@ -4058,7 +4058,7 @@ AUTO_2492:
|
||||
AUTO_2494:
|
||||
LD (ZX_VARS.ERR_NR),A
|
||||
CALL AUTO_20E5
|
||||
RST_ROM ROUTINE.error_4
|
||||
RST_ROM BASIC_FN.x48.error_4
|
||||
RET
|
||||
AUTO_249E:
|
||||
LD A,23
|
||||
@ -4271,7 +4271,7 @@ AUTO_25EF:
|
||||
INC HL
|
||||
LD D,(HL)
|
||||
OR A
|
||||
LD HL,ROUTINE.ed_error ;48 basic routine
|
||||
LD HL,BASIC_FN.x48.ed_error ;48 basic routine
|
||||
SBC HL,DE
|
||||
JR NZ,AUTO_2626
|
||||
LD SP,(ZX_VARS.ERR_SP)
|
||||
@ -4290,7 +4290,7 @@ AUTO_2614:
|
||||
AUTO_261D:
|
||||
CP 13
|
||||
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
|
||||
AUTO_2626:
|
||||
CALL AUTO_262B
|
||||
@ -4331,7 +4331,7 @@ CMD_CLOSE:
|
||||
CALL AUTO_1E0B
|
||||
CALL SINTAX_RET
|
||||
LD A,(ZX_VARS.MED_LEN)
|
||||
RST_ROM ROUTINE.str_data1
|
||||
RST_ROM BASIC_FN.x48.str_data1
|
||||
LD A,B
|
||||
OR C
|
||||
JP Z,AUTO_01D3
|
||||
@ -5680,9 +5680,9 @@ AUTO_3057: ;
|
||||
LD (HL),A
|
||||
INC HL
|
||||
EX DE,HL
|
||||
RST_ROM ROUTINE.differ
|
||||
RST_ROM BASIC_FN.x48.differ
|
||||
PUSH BC
|
||||
RST_ROM ROUTINE.reclaim_2
|
||||
RST_ROM BASIC_FN.x48.reclaim_2
|
||||
POP BC
|
||||
LD A,(ZX_VARS.DOS_ERROR)
|
||||
OR A
|
||||
@ -5773,7 +5773,7 @@ AUTO_30E1:
|
||||
LD (ZX_VARS.DOS_ERROR),A
|
||||
DEC HL
|
||||
DEC HL
|
||||
RST_ROM ROUTINE.line_addr
|
||||
RST_ROM BASIC_FN.x48.line_addr
|
||||
RET
|
||||
AUTO_30F4:
|
||||
LD A,255
|
||||
@ -6057,7 +6057,7 @@ FORM_X03:
|
||||
CALL AUTO_1C57
|
||||
CALL AUTO_1D97
|
||||
LD A,2
|
||||
RST_ROM ROUTINE.chan_open
|
||||
RST_ROM BASIC_FN.x48.chan_open
|
||||
LD HL,NEW_NAME
|
||||
RST PRINT_LN
|
||||
|
||||
@ -6122,7 +6122,7 @@ SUB_HL_14:
|
||||
RET
|
||||
|
||||
LOW_CLS_AT00:
|
||||
RST_ROM ROUTINE.cls_lower
|
||||
RST_ROM BASIC_FN.x48.cls_lower
|
||||
LD HL,MSG_AT00
|
||||
JP PRINT_LINE
|
||||
|
||||
@ -6525,7 +6525,7 @@ BEEP_1:
|
||||
LD HL,200 ; BEEP
|
||||
LD D,H
|
||||
LD E,(IY-1)
|
||||
RST_ROM ROUTINE.beeper
|
||||
RST_ROM BASIC_FN.x48.beeper
|
||||
|
||||
POP AF
|
||||
RET
|
||||
@ -6670,7 +6670,7 @@ PRINT_SYM:
|
||||
|
||||
|
||||
AUTO_3D94:
|
||||
RST_ROM ROUTINE.print_a
|
||||
RST_ROM BASIC_FN.x48.print_a
|
||||
RET
|
||||
AUTO_3D98:
|
||||
LD A,8
|
||||
@ -6678,10 +6678,10 @@ WG93_EXE:
|
||||
OUT (FDC_93.Command),A
|
||||
AUTO_3D9C:
|
||||
PUSH HL
|
||||
RST_ROM ROUTINE.break_key
|
||||
RST_ROM BASIC_FN.x48.break_key
|
||||
;RET_1F54:
|
||||
JR C,AUTO_3DA5
|
||||
RST_ROM ROUTINE.report_l
|
||||
RST_ROM BASIC_FN.x48.report_l
|
||||
AUTO_3DA5:
|
||||
POP HL
|
||||
IN A,(FDC_93.DrvCTRL)
|
||||
|
||||
@ -1 +1 @@
|
||||
Subproject commit 817bba0c1abebdb890f77ee129578ebe06fb5131
|
||||
Subproject commit 0df304a7f0295eb72c7102f153f82c91d90743e0
|
||||
@ -81,7 +81,7 @@ bootkus1: DISP #F500
|
||||
DEC A
|
||||
DEC A
|
||||
LD (ZX_VARS.ATTR_P),A
|
||||
CALL ROUTINE.cls
|
||||
CALL BASIC_FN.x48.x48.cls
|
||||
.loop2: DI
|
||||
XOR A
|
||||
LD (VAR_1),A
|
||||
|
||||
2257
inc/rom_routines.inc
2257
inc/rom_routines.inc
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user