From 4c3c078fa4612354f147c1352ba8d022deb730f5 Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sat, 30 Oct 2021 15:53:14 +0800 Subject: [PATCH] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 217 +++++++++++++---------------------- 1 file changed, 79 insertions(+), 138 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index 18ea00c0..69aed2f1 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -374,7 +374,7 @@ loc_0_477: ; CODE XREF: sub_0_476+8j ; S u b r o u t i n e sub_0_482: ; CODE XREF: sub_0_1289+122p - ld a, (2D04h) + ld a, (byte_0_2D04) ld de, text495h ; Update error string with errors call sub_0_16E7 ld de, text493h @@ -584,13 +584,10 @@ sub_0_5B4: ; CODE XREF: sub_0_5D4+12p ; End of function sub_0_5B4 ;---------------------------------------------------------------------------- - .db 0Eh ; - .db 4 ; - .db 5Fh ; _ - .db 0C3h ; à - .db 5 ; - .db 0 ; +loc_0_5C7: LD C,4 ; punch out + LD E,A + JP bdos ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -1372,7 +1369,7 @@ loc_0_92B: ; CODE XREF: sub_0_8D1+47j ld a, 3 ld (byte_0_8AF), a xor a - ld (2D04h), a + ld (byte_0_2D04), a call sub_0_11C1 jr c, loc_0_954 call sub_0_961 @@ -1630,7 +1627,7 @@ loc_0_AC8: ; CODE XREF: seg000:0AC4j loc_0_ACF: ; CODE XREF: sub_0_8D1+40p ; sub_0_BB4+Ep xor a - ld (2D04h), a + ld (byte_0_2D04), a ld a, 4 ld hl, 8AFh cp (hl) @@ -1647,9 +1644,8 @@ loc_0_ACF: ; CODE XREF: sub_0_8D1+40p jr z, loc_0_AF3 ld b, 0Ah -loc_0_AF3: ; CODE XREF: seg000:0AEFj - push bc - ld ix, 2CE0h +loc_0_AF3: push bc + ld ix, 2CE0h ; CODE XREF: seg000:0AEFj ld (ix+3), 20h ld (ix+2), 0 ld hl, (2CEBh) @@ -1657,7 +1653,7 @@ loc_0_AF3: ; CODE XREF: seg000:0AEFj ld (ix+1), h smod_b_B0A: .equ $+1 ; DATA XREF: sub_0_8D1+3Dw ld a,1 ; self modifying value - CALL 13BAH + CALL sub_0_13BA LD A,(smod_b_B0A) CP 5 JR NZ,0B1AH @@ -1667,12 +1663,12 @@ loc_0_B1A: CALL 0FD1H LD HL,loc_0_B96 LD BC,0AH CPIR - JP Z,67FH -loc_0_B28: LD HL,2D04H + JP Z,sub_0_67F +loc_0_B28: LD HL,byte_0_2D04 INC (HL) CALL 482H loc_0_B2F: POP BC - DJNZ 0AF3H + DJNZ loc_0_AF3 XOR A RET @@ -1687,7 +1683,7 @@ loc_0_B39: POP BC RET loc_0_B40: LD HL,2CE0H - CALL 688H + CALL sub_0_688 JR 0B68H @@ -1706,9 +1702,9 @@ loc_0_B48: LD IX,2CA7H LD A,3 loc_0_B6A: PUSH AF LD HL,2CE0H - CALL 688H + CALL sub_0_688 POP AF - CALL 13BAH + CALL sub_0_13BA CALL 0FC9H JP 0B28H @@ -1798,7 +1794,7 @@ loc_0_BDF: ; CODE XREF: sub_0_BD3+3j loc_0_BE9: ; CODE XREF: sub_0_BD3+Ej xor a - ld (2D04h), a + ld (byte_0_2D04), a call sub_0_FAA call sub_0_FC9 call sub_0_D30 @@ -1821,10 +1817,10 @@ loc_0_BE9: ; CODE XREF: sub_0_BD3+Ej ;---------------------------------------------------------------------------- -loc_0_C1C: LD HL,2D04H +loc_0_C1C: LD HL,byte_0_2D04 INC (HL) CALL 482H - LD HL,2D04H + LD HL,byte_0_2D04 LD A,0AH CP (HL) JP NZ,0BF0H @@ -1852,10 +1848,10 @@ loc_0_C1C: LD HL,2D04H OR A RET -loc_0_C57: LD HL,2D04H +loc_0_C57: LD HL,byte_0_2D04 INC (HL) CALL 482H - LD HL,2D04H + LD HL,byte_0_2D04 LD A,0AH CP (HL) JR NZ,0C6AH @@ -1884,7 +1880,7 @@ loc_0_C93: LD A,0FFH RET loc_0_C97: XOR A - LD (2D04H),A + LD (byte_0_2D04),A LD DE,2CF9H LD HL,2CABH LD BC,2CABH @@ -1902,7 +1898,7 @@ loc_0_CB6: CALL 0C97H LD DE,2CE0H CALL 692H LD A,3 - CALL 13BAH + CALL sub_0_13BA JP 0C7FH loc_0_CCA: CALL 0C97H @@ -1912,7 +1908,7 @@ loc_0_CCA: CALL 0C97H LD DE,2CE0H CALL 692H LD A,3 - CALL 13BAH + CALL sub_0_13BA JP 0C0AH loc_0_CE4: .db 6 ; @@ -2242,21 +2238,21 @@ loc_0_E50: LD B,64H ; 0e50 06 64 CALL sub_0_DE7 ; 0e52 cd e7 0d RET C ; 0e55 d8 CP 18H ; 0e56 fe 18 - JR NZ,0E74H ; 0e58 20 1a - LD B,'d' ; 0e5a 06 64 + JR NZ,loc_0_0E74 ; 0e58 20 1a + LD B,64h ; 0e5a 06 64 CALL sub_0_DE7 ; 0e5c cd e7 0d RET C ; 0e5f d8 CP 18H ; 0e60 fe 18 - JR NZ,0E74H ; 0e62 20 10 - LD B,'d' ; 0e64 06 64 + JR NZ,loc_0_0E74 ; 0e62 20 10 + LD B,64H ; 0e64 06 64 CALL sub_0_DE7 ; 0e66 cd e7 0d RET C ; 0e69 d8 CP 18H ; 0e6a fe 18 - JR NZ,0E74H ; 0e6c 20 06 + JR NZ,loc_0_0E74 ; 0e6c 20 06 LD B,64H ; 0e6e 06 64 CALL sub_0_DE7 ; 0e70 cd e7 0d RET C ; 0e73 d8 - LD HL,0EA6H ; 0e74 21 a6 0e +loc_0_0E74: LD HL,0EA6H ; 0e74 21 a6 0e LD BC,0BH ; 0e77 01 0b 00 CPIR ; 0e7a ed b1 JP Z,67FH ; 0e7c ca 7f 06 @@ -3115,19 +3111,13 @@ sub_0_11FA: ; CODE XREF: sub_0_8D1+6Fp ld a, 43h jr z, loc_0_121A ld a, 15h - -loc_0_121A: ; CODE XREF: sub_0_11FA+1Cj - call loc_0_145C - -loc_0_121D: ; CODE XREF: sub_0_11FA+5Ej - ld a, (2D07h) +loc_0_121A: call loc_0_145C ; CODE XREF: sub_0_11FA+1Cj +loc_0_121D: ld a, (2D07h) ; CODE XREF: sub_0_11FA+5Ej or a ld b, 82h jr z, loc_0_1227 ld b, 32h - -loc_0_1227: ; CODE XREF: sub_0_11FA+29j - call sub_0_1289 +loc_0_1227: call sub_0_1289 ; CODE XREF: sub_0_11FA+29j jr c, loc_0_125A push af call sub_0_50B @@ -3147,15 +3137,13 @@ loc_0_1227: ; CODE XREF: sub_0_11FA+29j call sub_0_D30 jr c, loc_0_1285 -loc_0_1250: ; CODE XREF: sub_0_11FA+3Bj - call sub_0_FC9 +loc_0_1250: call sub_0_FC9 ; CODE XREF: sub_0_11FA+3Bj ld a, 6 call loc_0_145C jr loc_0_121D ;---------------------------------------------------------------------------- -loc_0_125A: ; CODE XREF: sub_0_11FA+30j - cp 0F6h +loc_0_125A: cp 0F6h ; CODE XREF: sub_0_11FA+30j jr nz, loc_0_126D call sub_0_D0E jr c, loc_0_1285 @@ -3196,14 +3184,14 @@ loc_0_1285: ; CODE XREF: sub_0_11FA+54j sub_0_1289: ; CODE XREF: sub_0_11C1+18p ; sub_0_11FA+2Dp ld a, b - ld (2D03h), a + ld (byte_0_2D03), a xor a - ld (2D04h), a + ld (byte_0_2D04), a ld a, 0 ld (2D09h), a loc_0_1296: ; CODE XREF: sub_0_1289+12Aj - ld a, (2D03h) + ld a, (byte_0_2D03) ld b, a call sub_0_DE7 ld (2D08h), a @@ -3440,17 +3428,17 @@ loc_0_137F: ; CODE XREF: sub_0_1289+FBj loc_0_139A: ; CODE XREF: sub_0_1289+102j ld a, 28h - ld (2D03h), a + ld (byte_0_2D03), a ld a, 15h loc_0_13A1: ; CODE XREF: sub_0_1289+10Bj ; sub_0_1289+10Fj call loc_0_145C call sub_0_FC9 - ld hl, 2D04h + ld hl, byte_0_2D04 inc (hl) call sub_0_482 - ld a, (2D04h) + ld a, (byte_0_2D04) cp 5 jp nz, loc_0_1296 ld a, 0FFh @@ -3504,23 +3492,9 @@ loc_0_13D4: ; CODE XREF: sub_0_13BA+26j .db 2Ah ; * .db 18h ; .db 42h ; B - .db 0 ; - .db 30h ; 0 - .db 31h ; 1 - .db 32h ; 2 - .db 33h ; 3 - .db 34h ; 4 - .db 35h ; 5 - .db 36h ; 6 - .db 37h ; 7 - .db 38h ; 8 - .db 39h ; 9 - .db 61h ; a - .db 62h ; b - .db 63h ; c - .db 64h ; d - .db 65h ; e - .db 66h ; f + .db 0 ; + +loc_0_1408: .text "0123456789abcdef" ;---------------------------------------------------------------------------- @@ -3529,7 +3503,7 @@ loc_0_13D4: ; CODE XREF: sub_0_13BA+26j sub_0_1418: ; CODE XREF: sub_0_13BA+12p ; sub_0_13BA+21p ... push af - ld hl, 1408h + ld hl,loc_0_1408 ld b, 0 rra rra @@ -3541,7 +3515,7 @@ sub_0_1418: ; CODE XREF: sub_0_13BA+12p ld a, (hl) call loc_0_145C pop af - ld hl, 1408h + ld hl,loc_0_1408 ld b, 0 and 0Fh ld c, a @@ -3551,70 +3525,36 @@ sub_0_1418: ; CODE XREF: sub_0_13BA+12p ; End of function sub_0_1418 ;---------------------------------------------------------------------------- - .db 32h ; 2 - .db 5Bh ; [ - .db 14h ; - .db 1 ; - .db 9 ; - .db 0 ; - .db 21h ; ! - .db 77h ; w - .db 14h ; - .db 0EDh ; í - .db 0B1h ; ± - .db 0CAh ; Ê - .db 7Fh ;  - .db 6 ; - .db 0E6h ; æ - .db 60h ; ` - .db 20h ; - .db 10h ; - .db 3Ah ; : - .db 9Dh ;  - .db 2Ch ; , - .db 0B7h ; · - .db 28h ; ( - .db 0Ah ; - .db 21h ; ! - .db 5Bh ; [ - .db 14h ; - .db 0CBh ; Ë - .db 0F6h ; ö - .db 3Eh ; > - .db 18h ; - .db 0CDh ; Í - .db 5Ch ; \ - .db 14h ; - .db 3Eh ; > - .db 0 ; -;---------------------------------------------------------------------------- - -loc_0_145C: ; CODE XREF: sub_0_DDC+5p sub_0_11C1+13p - ; ... - ld (byte_0_1468), a - -loc_0_145F: ; CODE XREF: seg000:1465j - call sub_0_588 - call sub_0_5CD - jr z, loc_0_145F -;---------------------------------------------------------------------------- - .db 3Eh ; > -byte_0_1468: .db 0 ; DATA XREF: seg000:145Cw - .db 0C3h ; à - .db 0C7h ; Ç - .db 5 ; - .db 3Ah ; : - .db 68h ; h - .db 14h ; - .db 0E6h ; æ - .db 7Fh ;  - .db 0FEh ; þ - .db 40h ; @ - .db 20h ; - .db 0E5h ; å - .db 18h ; - .db 0D9h ; Ù - .db 18h ; + LD (145BH),A ;1438 32 5b 14 + LD BC,9 ;143b 01 09 00 + LD HL,smod_0_1477 ;143e 21 77 14 + CPIR ;1441 ed b1 + JP Z,67FH ;1443 ca 7f 06 + AND 60H ;1446 e6 60 + JR NZ,145AH ;1448 20 10 + LD A,(2C9DH) ;144a 3a 9d 2c + OR A ;144d b7 + JR Z,145AH ;144e 28 0a + LD HL,145BH ;1450 21 5b 14 + SET 6,(HL) ;1453 cb f6 + LD A,18H ;1455 3e 18 + CALL loc_0_145C ;1457 cd 5c 14 + LD A,0 +loc_0_145C: LD (smod_0_1468),A +loc_0_145F: CALL sub_0_588 + CALL sub_0_5CD + JR Z,loc_0_145F +smod_0_1468: .equ $+1 + LD A,0 ;1467 3e 00 + JP loc_0_5C7 ;1469 c3 c7 05 + + LD A,(smod_0_1468) ;146c 3a 68 14 + AND 7FH ;146f e6 7f + CP 40H ;1471 fe 40 + JR NZ,145AH ;1473 20 e5 + JR 1450H ;1475 18 d9 + +smod_0_1477: .db 18h ; .db 0Dh ; .db 8Dh ;  .db 10h ; @@ -4542,8 +4482,9 @@ nstack: word_0_1808: .ds 2 .ds 14F6h byte_0_2D00: .ds 1 - .ds 3 -word_0_2D04: .ds 2 - .ds 9 + .ds 2 +byte_0_2D03: .ds 1 +byte_0_2D04: .ds 1 + .ds 10 word_0_2D0F: .ds 2 .end ; start