romych/OK240.2-Firmware
1
0
Fork 0
mirror of https://github.com/romychs/OK240.2-Firmware.git synced 2026-04-21 10:53:18 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

refactoring

Browse Source
This commit is contained in:
Роман Бойков 2026-02-19 19:21:24 +03:00
parent 5dee7d555c
commit e54099e44a
1 changed files with 151 additions and 149 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
MON_r6_291f2b76/monitor.asm
View File

@ -15,7 +15,6 @@
OUTPUT mon_E000.bin OUTPUT mon_E000.bin
MODULE MONITOR MODULE MONITOR
ORG 0xe000 ORG 0xe000
@ -366,6 +365,7 @@ l_wait_colon:
LD L, A LD L, A
CALL read_hex_serial CALL read_hex_serial
LD C, E LD C, E
l_next_byte: l_next_byte:
CALL read_hex_serial CALL read_hex_serial
LD (HL), A LD (HL), A
@ -376,6 +376,7 @@ l_next_byte:
JP NZ, reset_m_stack JP NZ, reset_m_stack
JP l_wait_colon JP l_wait_colon
; read and ignore final 4 hex bytes in las ; read and ignore final 4 hex bytes in las
l_exit: l_exit:
CALL read_hex_serial CALL read_hex_serial
CALL read_hex_serial CALL read_hex_serial
@ -447,6 +448,7 @@ x_reg_found:
x_wreg: x_wreg:
CALL get_a_ref_sp CALL get_a_ref_sp
RET RET
x_ret: x_ret:
CALL get_a_ref_sp CALL get_a_ref_sp
x_next_reg: x_next_reg:
@ -1504,7 +1506,7 @@ m2_lf:
INC E INC E
DEC C DEC C
JP NZ, .cas_l7 JP NZ, .cas_l7
LD A,0x0 LD A, 0
OUT (SYS_DD17PB), A OUT (SYS_DD17PB), A
RET RET