From 9b6b19bf730e09da09d503bd677335d590835253 Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 17:00:02 +0800 Subject: [PATCH 1/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 304 +++++++++++++++++------------------ 1 file changed, 147 insertions(+), 157 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index ce598a8b..23f8cb87 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -76,7 +76,7 @@ start: ld sp, nstack ; Setup local stack jr z, loc_0_174 loc_0_152: ; CODE XREF: start+46j - ld hl, 17A3h + ld hl, byte_0_17A3 ex de, hl call sub_0_1492 ld hl, byte_0_17A3 @@ -91,7 +91,7 @@ loc_0_164: ; CODE XREF: start+5Ej add hl, bc dec de ldi - ld de, 17A3h + ld de, byte_0_17A3 call sub_0_1B0 call sub_0_3C9 @@ -107,7 +107,7 @@ loc_0_174: ; CODE XREF: start+25j start+3Bj loc_0_185: ; DATA XREF: sub_0_195+17w ld bc, 0 ld (word_0_17A2), bc - ld de, 17A3h + ld de, byte_0_17A3 call sub_0_1B0 jp 0 ; End of function start @@ -389,8 +389,8 @@ text495h: .db 0,0,0 ; S u b r o u t i n e sub_0_4A4: ; CODE XREF: sub_0_961+82p - ld de, 17A3h - ld hl, 4F8h + ld de, byte_0_17A3 + ld hl, byte_0_4F8 ld (hl), 3Ah inc hl xor a @@ -404,14 +404,14 @@ sub_0_4A4: ; CODE XREF: sub_0_961+82p ld (byte_0_4F4), a dec de ld a, (de) - ld de, 4F5h + ld de,byte_0_4F5 call sub_0_16E7 ld a, 24h ld (byte_0_507), a ld de, text4F2h ld c, C_WRITESTR call bdos ; Output string - ld hl, (2CD4h) + ld hl, (byte_0_2CD4) ld a, h or l ret z @@ -419,7 +419,7 @@ sub_0_4A4: ; CODE XREF: sub_0_961+82p call sub_0_476 dec hl ld (hl), 24h - ld de, (2CD4h) + ld de, (byte_0_2CD4) ld c, C_WRITESTR call bdos ; Output string ld de, text508h @@ -430,10 +430,10 @@ sub_0_4A4: ; CODE XREF: sub_0_961+82p ;---------------------------------------------------------------------------- text4F2h: .text "\r\n" byte_0_4F4: .db 0 ; DATA XREF: sub_0_4A4+17w +byte_0_4F5: .db 0 ; .db 0 ; .db 0 ; - .db 0 ; - .db 0 ; +byte_0_4F8: .db 0 ; .db 0 ; .db 0 ; .db 0 ; @@ -480,7 +480,7 @@ text51Eh: .db 0 ; .db 0 ; - ld hl,str_busy +loc_0_529: ld hl,str_busy ld a,0 inc a and 3 @@ -1239,7 +1239,7 @@ loc_0_8C4: ld a, h ; CODE XREF: sub_0_8B6+8j and c ld h, a ld l, 0 - ld (2CEBh), hl + ld (word_0_2CEB), hl dec hl ld (word_0_8B4), hl ret @@ -1248,7 +1248,7 @@ loc_0_8C4: ld a, h ; CODE XREF: sub_0_8B6+8j ; S u b r o u t i n e sub_0_8D1: xor a ; CODE XREF: start+7Fp - ld hl, 2C9Dh + ld hl, byte_0_2C9D ld b, 61h call sub_0_1786 ld hl, 1808h @@ -1265,9 +1265,9 @@ sub_0_8D1: xor a ; CODE XREF: start+7Fp cp 0 jr z, loc_0_8FD ld a, 7 -loc_0_8FD: ld (2CA4h), a ; CODE XREF: sub_0_8D1+28j +loc_0_8FD: ld (byte_0_2CA4), a ; CODE XREF: sub_0_8D1+28j ld a, 10h - ld (2C9Eh), a + ld (byte_0_2C9E), a ld a, (byte_0_8AF) cp 3 jr c, loc_0_947 @@ -1289,10 +1289,8 @@ loc_0_924: call sub_0_BB4 ; CODE XREF: sub_0_8D1+4Bj ;---------------------------------------------------------------------------- -loc_0_92B: ; CODE XREF: sub_0_8D1+47j - ; sub_0_8D1+74j - ld a, 3 - ld (byte_0_8AF), a +loc_0_92B: ld a, 3 ; CODE XREF: sub_0_8D1+47j + ld (byte_0_8AF), a ; sub_0_8D1+74j xor a ld (byte_0_2D04), a call sub_0_11C1 @@ -1303,32 +1301,25 @@ loc_0_92B: ; CODE XREF: sub_0_8D1+47j call sub_0_11FA jr c, loc_0_954 jr loc_0_92B + ;---------------------------------------------------------------------------- -loc_0_947: ; CODE XREF: sub_0_8D1+39j - call sub_0_961 +loc_0_947: call sub_0_961 ; CODE XREF: sub_0_8D1+39j jr c, loc_0_954 jr z, locret_0_953 call sub_0_11FA jr c, loc_0_954 +locret_0_953: ret ; CODE XREF: sub_0_8D1+51j -locret_0_953: ; CODE XREF: sub_0_8D1+51j - ; sub_0_8D1+58j ... - ret ;---------------------------------------------------------------------------- -loc_0_954: ; CODE XREF: sub_0_8D1+43j - ; sub_0_8D1+56j ... - call sub_0_DD9 - ld a, (2CA5h) +loc_0_954: call sub_0_DD9 ; CODE XREF: sub_0_8D1+43j + ld a, (byte_0_2CA5); sub_0_8D1+56j cp 0FFh call z, sub_0_D0E jr locret_0_953 -; End of function sub_0_8D1 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e sub_0_961: ; CODE XREF: sub_0_8D1+68p @@ -1337,42 +1328,42 @@ sub_0_961: ; CODE XREF: sub_0_8D1+68p cpl ld hl, 8B2h or (hl) - ld (2CA3h), a - ld a, (2CA4h) + ld (byte_0_2CA3), a + ld a, (byte_0_2CA4) or a jr z, loc_0_975 - ld (2CA1h), a + ld (byte_0_2CA1), a loc_0_975: ; CODE XREF: sub_0_961+Fj ld a, (byte_0_8B2) cp 0FFh jr z, loc_0_988 - ld a, (2CA2h) + ld a, (byte_0_2CA2) cp 2 jr nz, loc_0_988 ld a, 0 - ld (2CA3h), a + ld (byte_0_2CA3), a loc_0_988: ; CODE XREF: sub_0_961+19j ; sub_0_961+20j - ld a, (2CA2h) + ld a, (byte_0_2CA2) cp 1 jr nz, loc_0_994 ld a, 0FFh - ld (2CA3h), a + ld (byte_0_2CA3), a loc_0_994: ; CODE XREF: sub_0_961+2Cj - ld a, (2CA1h) + ld a, (byte_0_2CA1) cp 7 jr z, loc_0_9AE - ld a, (2CA1h) + ld a, (byte_0_2CA1) cp 3 jr nz, loc_0_9AE - ld a, (2CA3h) + ld a, (byte_0_2CA3) cp 0FFh jr nz, loc_0_9AE ld a, 7 - ld (2CA1h), a + ld (byte_0_2CA1), a loc_0_9AE: ; CODE XREF: sub_0_961+38j ; sub_0_961+3Fj ... @@ -1396,60 +1387,45 @@ loc_0_9AE: ; CODE XREF: sub_0_961+38j ld (de), a ld a, 0FFh call sub_0_172E - ld hl, (2CD2h) - ld de, 17A3h + ld hl, (word_0_2CD2) + ld de, byte_0_17A3 call sub_0_1492 ld hl, (byte_0_17A0) ld (word_0_17A2), hl - -loc_0_9E3: ; CODE XREF: sub_0_961+52j - ; seg000:0A2Cj - call sub_0_4A4 - ld de, 17A3h +loc_0_9E3: call sub_0_4A4 ; CODE XREF: sub_0_961+52j + ld de, byte_0_17A3 ; seg000:0A2Cj call sub_0_169E jr nz, loc_0_A11 - ld de, 17A3h + ld de, byte_0_17A3 ld c, 16h call sub_0_471 ret c ld a, 0FFh - ld (2CA5h), a - ld hl, 280Eh + ld (byte_0_2CA5), a + ld hl, byte_0_280E call sub_0_64A - ld a, (2CD1h) + ld a, (byte_0_2CD1) cp 2 jr c, loc_0_A0D -; End of function sub_0_961 - - -;---------------------------------------------------------------------------- - -; S u b r o u t i n e - -sub_0_A09: ; CODE XREF: seg000:0A11p - ld de, (2CD4h) - -loc_0_A0D: ; CODE XREF: sub_0_961+A6j - ld a, 1 +sub_0_A09: ld de, (byte_0_2CD4) ; CODE XREF: seg000:0A11p +loc_0_A0D: ld a, 1 ; CODE XREF: sub_0_961+A6j or a ret -; End of function sub_0_A09 ;---------------------------------------------------------------------------- -loc_0_A11: ; CODE XREF: sub_0_961+8Bj - call sub_0_A09 +loc_0_A11: call sub_0_A09 ; CODE XREF: sub_0_961+8Bj ld a, (byte_0_8AF) cp 4 jr nz, loc_0_A24 - ld a, (2CA1h) + ld a, (byte_0_2CA1) cp 7 jr nz, loc_0_A35 jr loc_0_A2E ;---------------------------------------------------------------------------- loc_0_A24: ; CODE XREF: seg000:0A19j seg000:0A41j - ld de, 17A3h + ld de, byte_0_17A3 ld c, 13h call sub_0_471 jr nc, loc_0_9E3 @@ -1462,7 +1438,7 @@ loc_0_A2E: ; CODE XREF: seg000:0A22j ;---------------------------------------------------------------------------- loc_0_A35: ; CODE XREF: seg000:0A20j - ld a, (2CA1h) + ld a, (byte_0_2CA1) cp 3 jr z, loc_0_A43 ld a, (byte_0_8B3) @@ -1476,15 +1452,15 @@ loc_0_A43: ; CODE XREF: seg000:0A3Aj ld e, 1 ld c, 2Ch call bdos ; BDOS function 44 (F_MULTISEC) - Set number of records to read/write at once - ld de, 17A3h + ld de, byte_0_17A3 ld c, 0Fh call sub_0_471 ret c ld a, 0FFh - ld (2CA5h), a - ld hl, 280Eh + ld (byte_0_2CA5), a + ld hl, byte_0_280E call sub_0_64A - ld de, 17A3h + ld de, byte_0_17A3 ld c, 23h call sub_0_471 ret c @@ -1508,11 +1484,11 @@ loc_0_A83: ; CODE XREF: seg000:0A90j rl (hl) pop hl djnz loc_0_A83 - ld de, 17A3h + ld de, byte_0_17A3 ld c, 21h call sub_0_471 ret c - ld a, (2CA1h) + ld a, (byte_0_2CA1) cp 3 jr z, loc_0_AA6 ld a, 9 @@ -1522,10 +1498,10 @@ loc_0_A83: ; CODE XREF: seg000:0A90j loc_0_AA6: ; CODE XREF: seg000:0AA0j ld a, 80h - ld (280Eh), a + ld (byte_0_280E), a loc_0_AAB: ; CODE XREF: seg000:0AB5j - ld hl, 280Eh + ld hl, byte_0_280E call sub_0_654 jr z, loc_0_AC6 cp 1Ah @@ -1533,7 +1509,7 @@ loc_0_AAB: ; CODE XREF: seg000:0AB5j ld a, (2810h) dec a ld (280Fh), a - ld hl, 280Eh + ld hl, byte_0_280E ld a, 7Fh sub (hl) jr loc_0_AC8 @@ -1543,7 +1519,7 @@ loc_0_AC6: ; CODE XREF: seg000:0AB1j ld a, 80h loc_0_AC8: ; CODE XREF: seg000:0AC4j - ld (280Eh), a + ld (byte_0_280E), a ld a, 1 or a ret @@ -1573,7 +1549,7 @@ loc_0_AF3: push bc ld ix, 2CE0h ; CODE XREF: seg000:0AEFj ld (ix+3), 20h ld (ix+2), 0 - ld hl, (2CEBh) + ld hl, (word_0_2CEB) ld (ix+0), l ld (ix+1), h smod_b_B0A: .equ $+1 ; DATA XREF: sub_0_8D1+3Dw @@ -1615,8 +1591,8 @@ loc_0_B40: LD HL,2CE0H loc_0_B48: LD IX,2CA7H LD A,(IX+3) AND 40H - LD (2C9DH),A - CALL 0EC7H + LD (byte_0_2C9D),A + CALL loc_0_EC7 CP 0EBH LD A,6 JR NZ,loc_0_B6A @@ -1638,7 +1614,7 @@ loc_0_B7B: LD HL,2CA7H CALL sub_0_692 LD A,1 LD (smod_b_B0A),A - CALL 0EC7H + CALL loc_0_EC7 CP 0EBH LD A,6 JR NZ,loc_0_B6A @@ -1669,23 +1645,20 @@ loc_0_BA0: .dw loc_0_B34 .dw loc_0_B2F ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_BB4: ; CODE XREF: sub_0_8D1+53p - ; sub_0_BB4+14j - call sub_0_BD3 - ret c +sub_0_BB4: call sub_0_BD3 ; CODE XREF: sub_0_8D1+53p + ret c ; sub_0_BB4+14j cp 0Bh jr z, loc_0_BC2 cp 5 jr z, loc_0_BC2 or a ret + ;---------------------------------------------------------------------------- -loc_0_BC2: ; CODE XREF: sub_0_BB4+6j sub_0_BB4+Aj - call loc_0_ACF +loc_0_BC2: call loc_0_ACF ; CODE XREF: sub_0_BB4+6j sub_0_BB4+Aj ret c cp 4 jr z, sub_0_BB4 @@ -1695,20 +1668,17 @@ loc_0_BC2: ; CODE XREF: sub_0_BB4+6j sub_0_BB4+Aj ld a, 0FFh scf ret -; End of function sub_0_BB4 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_BD3: ; CODE XREF: sub_0_BB4p - call sub_0_961 +sub_0_BD3: call sub_0_961 ; CODE XREF: sub_0_BB4p jr nc, loc_0_BDF ld a, 5 ld (smod_b_B0A), a or a ret + ;---------------------------------------------------------------------------- loc_0_BDF: ; CODE XREF: sub_0_BD3+3j @@ -1721,17 +1691,17 @@ loc_0_BE9: ; CODE XREF: sub_0_BD3+Ej xor a ld (byte_0_2D04), a call sub_0_FAA - call sub_0_FC9 +loc_0_BF0: call sub_0_FC9 call sub_0_D30 ld hl, 2CABh ld de, 2CE0h call sub_0_692 - ld hl, 1808h + ld hl,word_0_1808 call sub_0_64E ld a, 9 call sub_0_13BA loc_0_C0A: call sub_0_FD1 - ld hl, loc_0_CE4 + ld hl,stab_0_CE4 ld bc, 7 cpir jp z, sub_0_67F @@ -1748,27 +1718,27 @@ loc_0_C1C: LD HL,byte_0_2D04 LD HL,byte_0_2D04 LD A,0AH CP (HL) - JP NZ,0BF0H + JP NZ,loc_0_BF0 LD A,0FFH SCF RET -loc_0_C30: CALL 0EC7H - JP 0BF0H +loc_0_C30: CALL loc_0_EC7 + JP loc_0_BF0 loc_0_C36: LD DE,2CA7H LD HL,2CABH - CALL 6D3H - JP NZ,0BF0H + CALL loc_0_6D3 + JP NZ,loc_0_BF0 CALL 0D0EH - JR Z,0C50H + JR Z,loc_0_C50 LD A,0CH LD (0B0AH),A LD A,0FFH SCF RET - CALL 643H +loc_0_C50: CALL sub_0_643 LD A,0BH OR A RET @@ -1779,26 +1749,26 @@ loc_0_C57: LD HL,byte_0_2D04 LD HL,byte_0_2D04 LD A,0AH CP (HL) - JR NZ,0C6AH + JR NZ,loc_0_C6A LD A,0FFH SCF RET loc_0_C6A: LD HL,2CAFH - CALL 0DDCH - JP 0BF0H + CALL sub_0_DDC + JP loc_0_BF0 loc_0_C73: LD DE,2CA7H LD HL,2CABH - CALL 6D3H + CALL loc_0_6D3 JP NZ,0C57H - CALL 529H - CALL 0EC7H - LD HL,0CF9H +loc_0_C7F: CALL loc_0_529 + CALL loc_0_EC7 + LD HL,stab_0_CF9 LD BC,7 CPIR JP Z,67FH - JP 0C1CH + JP loc_0_C1C loc_0_C93: LD A,0FFH SCF @@ -1809,14 +1779,14 @@ sub_0_C97: XOR A LD DE,2CF9H LD HL,2CABH LD BC,2CABH - CALL 6E4H - JP 0FBAH + CALL sub_0_6E4 + JP sub_0_FBA loc_0_CAA: CALL sub_0_C97 JP loc_0_C0A loc_0_CB0: CALL sub_0_C97 - JP 0C7FH + JP loc_0_C7F loc_0_CB6: CALL sub_0_C97 LD HL,2CABH @@ -1824,10 +1794,10 @@ loc_0_CB6: CALL sub_0_C97 CALL sub_0_692 LD A,3 CALL sub_0_13BA - JP 0C7FH + JP loc_0_C7F loc_0_CCA: CALL sub_0_C97 - CALL 0D30H + CALL sub_0_D30 JP C,0C47H LD HL,2CABH LD DE,2CE0H @@ -1836,7 +1806,7 @@ loc_0_CCA: CALL sub_0_C97 CALL sub_0_13BA JP loc_0_C0A -loc_0_CE4: .db 6 +stab_0_CE4: .db 6 .db 0FEh .db 4 .db 0Bh @@ -1852,7 +1822,7 @@ loc_0_CE4: .db 6 .dw loc_0_C1C .dw loc_0_C1C - .db 0EBh +stab_0_CF9: .db 0EBh .db 0EAh .db 0E9h .db 0E8h @@ -1881,14 +1851,14 @@ sub_0_D0E: ; CODE XREF: sub_0_8D1+8Bp loc_0_D15: ld a, 1Ah ; CODE XREF: sub_0_D0E+13j call loc_0_D68 ret c - ld hl, 280Eh + ld hl, byte_0_280E ld a, 1 cp (hl) jr nz, loc_0_D15 ld a, 0 - ld (2CA5h), a + ld (byte_0_2CA5), a ld c, 10h - ld de, 17A3h + ld de, byte_0_17A3 jp sub_0_471 ; End of function sub_0_D0E @@ -1905,7 +1875,7 @@ sub_0_D30: ; CODE XREF: sub_0_BD3+20p ld hl, (2CE9h) loc_0_D3A: ; CODE XREF: sub_0_D30+2Ej - ld a, (2CA3h) + ld a, (byte_0_2CA3) cp 0FFh jr z, loc_0_D52 loc_0_D41: @@ -1941,10 +1911,10 @@ loc_0_D68: ld (byte_0_D6F), a ; CODE XREF: sub_0_D0E+9p sub_0_D30+1Ep push hl byte_0_D6F: .equ $+1 loc_0_D6E: LD C,0 - LD HL,280EH + LD HL,byte_0_280E CALL sub_0_669 JR NZ,loc_0_0D97 - LD HL,280EH + LD HL,byte_0_280E CALL sub_0_64A LD C,1AH ;set dma LD DE,2811H @@ -1953,7 +1923,7 @@ loc_0_D6E: LD C,0 LD E,1 CALL bdos LD C,15H ;wr. seq. - LD DE,17A3H + LD DE,byte_0_17A3 CALL sub_0_471 JR NC,loc_0_D6E loc_0_0D97: POP HL @@ -2054,7 +2024,7 @@ loc_0_E05: LD B,64H LD B,A AND 60H JR NZ,loc_0_E28 - LD A,(2C9DH) + LD A,(byte_0_2C9D) OR A JR NZ,loc_0_E05 loc_0_E28: LD A,B @@ -2079,7 +2049,7 @@ loc_0_E36: AND 60H LD BC,4 CPIR JR Z,sub_0_E2F - LD A,(2C9DH) + LD A,(byte_0_2C9D) OR A JR NZ,sub_0_E2F LD A,E @@ -2108,7 +2078,7 @@ loc_0_0E74: LD HL,loc_0_EA6 CPIR JP Z,sub_0_67F LD L,A - LD A,(2C9DH) + LD A,(byte_0_2C9D) OR A JR Z,loc_0_E8B LD A,L @@ -2161,9 +2131,9 @@ loc_0_EA6: .db 11h ; .dw loc_0_E50 .dw loc_0_E50 - OR A - LD HL,(2CEBH) - LD DE,(2CEFH) +loc_0_EC7: OR A + LD HL,(word_0_2CEB) + LD DE,(word_0_2CEF) SBC HL,DE JP C,sub_0_F4E CALL sub_0_8A0 @@ -2174,12 +2144,12 @@ loc_0_EDD: CALL sub_0_E2F CALL sub_0_FA2 CALL Z,sub_0_7ED CALL NZ,loc_0_885 - LD HL,(2CEBH) - LD BC,(2CEFH) + LD HL,(word_0_2CEB) + LD BC,(word_0_2CEF) SBC HL,BC JP Z,sub_0_F4E INC BC - LD (2CEFH),BC + LD (word_0_2CEF),BC LD HL,(2CF9H) INC HL LD (2CF9H),HL @@ -2353,7 +2323,7 @@ sub_0_FAA: ld hl, 2CE9h ; CODE XREF: seg000:0AE5p sub_0_BD3+1Ap ldi ldi ld hl, 0 - ld (2CEFh), hl + ld (word_0_2CEF), hl sub_0_FBA: ld hl, 2CEDh ; CODE XREF: sub_0_11FA+4Ep ld de, 2CF3h loc_0_FC0: ldi ; CODE XREF: sub_0_FC9+6j @@ -2444,17 +2414,17 @@ loc_0_1035: LD A,0FFH ;1035 3e ff JR loc_0_1024 ;1061 18 c1 LD A,10H ;1063 3e 10 - LD (2C9EH),A ;1065 32 9e 2c + LD (byte_0_2C9E),A ;1065 32 9e 2c CALL sub_0_113F ;1068 cd 3f 11 JR 107FH ;106b 18 12 ; LD A,10H ;106d 3e 10 - LD (2C9EH),A ;106f 32 9e 2c + LD (byte_0_2C9E),A ;106f 32 9e 2c CALL sub_0_1100 ;1072 cd 00 11 JR loc_0_107F ;1075 18 08 LD A,20H ;1077 3e 20 - LD (2C9EH),A ;1079 32 9e 2c + LD (byte_0_2C9E),A ;1079 32 9e 2c CALL 10C5H ;107c cd c5 10 loc_0_107F: PUSH AF ;107f f5 LD HL,2CA7H ;1080 21 a7 2c @@ -2545,7 +2515,7 @@ stab_0_10B3: .db 43h ; C DJNZ 10E8H ;10f1 10 f5 LD HL,2899H ;10f3 21 99 28 LD DE,7E9H ;10f6 11 e9 07 - CALL 6D3H ;10f9 cd d3 06 + CALL loc_0_6D3 ;10f9 cd d3 06 JR Z,1132H ;10fc 28 34 JR 113BH ;10fe 18 3b ; @@ -2676,7 +2646,7 @@ sub_0_11C1: ; CODE XREF: sub_0_8D1+63p ld a, 0FFh ld (byte_0_2D02), a call sub_0_FAA - ld a, (2C9Eh) + ld a, (byte_0_2C9E) cp 10h ld a, 43h jr z, loc_0_11D4 @@ -2719,13 +2689,13 @@ sub_0_11FA: ; CODE XREF: sub_0_8D1+6Fp ; sub_0_8D1+7Dp ... ld a, 0FFh ld (byte_0_2D02), a - ld (2CA3h), a + ld (byte_0_2CA3), a xor a ld (byte_0_2D07), a call sub_0_FAA ld hl, 2CABh call sub_0_688 - ld a, (2C9Eh) + ld a, (byte_0_2C9E) cp 10h ld a, 43h jr z, loc_0_121A @@ -2748,7 +2718,7 @@ loc_0_1227: call sub_0_1289 ; CODE XREF: sub_0_11FA+29j cp (hl) jr nz, loc_0_126D inc (hl) - ld de, 2CEFh + ld de, word_0_2CEF ld hl, 2CABh ld bc, 2CABh call sub_0_6E4 @@ -2780,11 +2750,11 @@ loc_0_126D: ; CODE XREF: sub_0_11FA+3Fj ld a, (byte_0_2D02) cp 0FFh jr nz, loc_0_1285 - ld a, (2C9Eh) + ld a, (byte_0_2C9E) or a jr z, loc_0_1285 xor a - ld (2C9Eh), a + ld (byte_0_2C9E), a jp sub_0_11FA ;---------------------------------------------------------------------------- @@ -3007,7 +2977,7 @@ loc_0_137F: ; CODE XREF: sub_0_1289+FBj ld a, (byte_0_2D02) cp 0FFh jr nz, loc_0_139A - ld a, (2C9Eh) + ld a, (byte_0_2C9E) cp 10h ld a, 43h jr z, loc_0_13A1 @@ -3033,11 +3003,11 @@ loc_0_13A4: call sub_0_FC9 ; sub_0_1289+10Fj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_13BA: ld (2CE8h), a ; CODE XREF: sub_0_BD3+34p +sub_0_13BA: ld (byte_0_2CE8), a ; CODE XREF: sub_0_BD3+34p ld hl,loc_0_1403 call sub_0_DDC call sub_0_8A0 - ld a, (2CE8h) + ld a, (byte_0_2CE8) call loc_0_885 call sub_0_1418 ld hl, 2CE0h @@ -3059,12 +3029,11 @@ loc_0_13D4: push bc ; CODE XREF: sub_0_13BA+26j call loc_0_145C ld a, 0Ah call loc_0_145C - ld a, (2CE8h) + ld a, (byte_0_2CE8) cp 8 ret z ld a, 11h jp loc_0_145C -; End of function sub_0_13BA ;---------------------------------------------------------------------------- loc_0_1403: .db 2Ah ; * @@ -3108,7 +3077,7 @@ loc_0_1438: LD (smod_b_145B),A JP Z,sub_0_67F AND 60H JR NZ,loc_0_145A - LD A,(2C9DH) + LD A,(byte_0_2C9D) OR A JR Z,loc_0_145A loc_0_1450: LD HL,smod_b_145B @@ -3809,9 +3778,30 @@ byte_0_17A3: .db 0 .ds 8 nstack: word_0_1808: .ds 2 - .ds 1087h + .ds 1004h +byte_0_280E: .ds 1 + .ds 82h byte_0_2891: .ds 1 - .ds 46Eh + .ds 40Bh +byte_0_2C9D: .ds 1 +byte_0_2C9E: .ds 1 + .ds 2 +byte_0_2CA1: .ds 1 +byte_0_2CA2: .ds 1 +byte_0_2CA3: .ds 1 +byte_0_2CA4: .ds 1 +byte_0_2CA5: .ds 1 + .ds 2Bh +byte_0_2CD1: .ds 1 +word_0_2CD2: .ds 2 +byte_0_2CD4: .ds 1 + .ds 13h +byte_0_2CE8: .ds 1 + .ds 2 +word_0_2CEB: .ds 2 + .ds 2 +word_0_2CEF: .ds 2 + .ds 0Fh byte_0_2D00: .ds 1 byte_0_2D01: .ds 1 byte_0_2D02: .ds 1 From 1f690dd5c864ea70cadcdd836d408c7e5def16ba Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 17:34:45 +0800 Subject: [PATCH 2/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 2541 +++++++++++++++++----------------- 1 file changed, 1260 insertions(+), 1281 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index 23f8cb87..77c8737f 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -38,112 +38,98 @@ start: ld sp, nstack ; Setup local stack cp '0' ; Get CP/M vers. # jp c, err_vern ; CP/M 2 or less? ld de, str_welc - ld c, C_WRITESTR ;yes + ld c,C_WRITESTR ;yes call bdos ;"RZ for ..."; Output string - call sub_0_195 ;print string - ld hl, (word_0_179E) + call sub_195 ;print string + ld hl, (word_179E) xor a ld b, 14h - call sub_0_1786 - ld a, (80h) + call sub_1786 + ld a,(80h) or a - jr z, loc_0_174 + jr z,loc_174 ld (hl), 2 ld de, 82h ex de, hl - ld a, 0FFh - call sub_0_172E + ld a,0FFh + call sub_172E jp nz, err_exit - ld hl, (word_0_179E) + ld hl, (word_179E) inc hl - ld a, (hl) + ld a,(hl) or a - jp z, loc_0_174 + jp z,loc_174 inc hl ld e, (hl) inc hl ld d, (hl) inc hl - ld a, (de) + ld a,(de) cp 2Dh - jr nz, loc_0_152 - call sub_0_39A + jr nz,loc_152 + call sub_39A ld e, (hl) inc hl ld d, (hl) ld a, d or e - jr z, loc_0_174 - -loc_0_152: ; CODE XREF: start+46j - ld hl, byte_0_17A3 + jr z,loc_174 +loc_152: ld hl,byte_17A3 ; CODE XREF: start+46j ex de, hl - call sub_0_1492 - ld hl, byte_0_17A3 + call sub_1492 + ld hl,byte_17A3 xor a or (hl) - jr nz, loc_0_164 - ld a, (byte_0_17A1) + jr nz,loc_164 + ld a,(byte_17A1) ld (hl), a - -loc_0_164: ; CODE XREF: start+5Ej - ld bc, 0Dh +loc_164: ld bc, 0Dh ; CODE XREF: start+5Ej add hl, bc dec de ldi - ld de, byte_0_17A3 - call sub_0_1B0 - call sub_0_3C9 - -loc_0_174: ; CODE XREF: start+25j start+3Bj - - ld de, str_sxfr - ld c, C_WRITESTR + ld de,byte_17A3 + call sub_1B0 + call sub_3C9 +loc_174: ld de, str_sxfr ; CODE XREF: start+25j start+3Bj + ld c,C_WRITESTR call bdos ; Output string - call sub_0_3EF - call sub_0_8D1 - call sub_0_451 - -loc_0_185: ; DATA XREF: sub_0_195+17w - ld bc, 0 - ld (word_0_17A2), bc - ld de, byte_0_17A3 - call sub_0_1B0 + call sub_3EF + call sub_8D1 + call sub_451 +smod_b_186: .equ $+1 +loc_185: ld bc, 0 ; DATA XREF: sub_195+17w + ld (word_17A2), bc + ld de,byte_17A3 + call sub_1B0 jp 0 -; End of function start ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_195: ; CODE XREF: start+15p - ld a, (4) +sub_195: ld a,(4) ; CODE XREF: start+15p ld b, a rlca rlca rlca rlca and 0Fh - ld (byte_0_17A0), a + ld (byte_17A0), a ld a, b and 0Fh inc a - ld (byte_0_17A1), a - ld hl, (byte_0_17A0) - ld (loc_0_185+1), hl + ld (byte_17A1), a + ld hl, (byte_17A0) + ld (smod_b_186), hl ret -; End of function sub_0_195 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_1B0: ; CODE XREF: start+6Ep start+8Fp - ld a, (de) +sub_1B0: ld a,(de) ; CODE XREF: start+6Ep start+8Fp push af dec de - ld a, (de) + ld a,(de) ld e, a ld c, F_USERNUM call bdos ; get/set user number @@ -152,19 +138,20 @@ sub_0_1B0: ; CODE XREF: start+6Ep start+8Fp ld e, a ld c, DRV_SET jp 5 ; Select disc -; End of function sub_0_1B0 ;---------------------------------------------------------------------------- err_vern: ld de, str_cpm3 ; Display version - ld c, C_WRITESTR ; error and exit + ld c,C_WRITESTR ; error and exit call bdos err_exit: ld de, str_info ; Display usage - ld c, C_WRITESTR ; and exit to + ld c,C_WRITESTR ; and exit to call bdos ; CP/M jp 0 + ;---------------------------------------------------------------------------- + str_welc: .text "RZ for CP/M 3 V 1.04\r\n" .text "(C) 92 wshbg\r\n\n$" str_sxfr: .text "start your local X/Y/ZModem sending program\r\n\n$" @@ -183,76 +170,67 @@ str_info: .text "usage: rz [-?pbcrxyz] [du:fn]\r\n\n" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_39A: ; CODE XREF: start+48p - push hl +sub_39A: push hl ; CODE XREF: start+48p push de - -loc_0_39C: ; CODE XREF: sub_0_39A+12j - inc de - ld a, (de) +loc_39C: inc de ; CODE XREF: sub_39A+12j + ld a,(de) or a - jr z, loc_0_3AE - ld hl,loc_0_3B1 + jr z,loc_3AE + ld hl,loc_3B1 ld bc, 8 cpir - call z, sub_0_67F - jr loc_0_39C -;---------------------------------------------------------------------------- + call z,sub_67F + jr loc_39C -loc_0_3AE: ; CODE XREF: sub_0_39A+5j - pop de +loc_3AE: pop de ; CODE XREF: sub_39A+5j pop hl ret -; End of function sub_0_39A ;---------------------------------------------------------------------------- -loc_0_3B1: .text "?PBCXYZR" - .dw sub_0_3E9 - .dw sub_0_3D1 - .dw sub_0_3CD - .dw sub_0_3C9 - .dw sub_0_3E3 - .dw sub_0_3DD - .dw sub_0_3D7 +loc_3B1: .text "?PBCXYZR" + + .dw sub_3E9 + .dw sub_3D1 + .dw sub_3CD + .dw sub_3C9 + .dw sub_3E3 + .dw sub_3DD + .dw sub_3D7 .dw err_exit ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_3C9: ; CODE XREF: start+71p - ld a, 1 - jr loc_0_3D3 -sub_0_3CD: ld a,3 - jr loc_0_3D3 -sub_0_3D1: ld a,4 -loc_0_3D3: ld (byte_0_8AF), a +sub_3C9: ld a, 1 ; CODE XREF: start+71p + jr loc_3D3 +sub_3CD: ld a,3 + jr loc_3D3 +sub_3D1: ld a,4 +loc_3D3: ld (byte_8AF), a ret ;---------------------------------------------------------------------------- -sub_0_3D7: ld a,$ff - ld (08B0h),a +sub_3D7: ld a,$ff + ld (byte_8B0),a ret -sub_0_3DD: ld a,$ff - ld (08B2h),a +sub_3DD: ld a,$ff + ld (byte_8B2),a ret -sub_0_3E3: ld a,$ff - ld (08B1h),a +sub_3E3: ld a,$ff + ld (byte_8B1),a ret -sub_0_3E9: ld a,$ff - ld (08B3h),a +sub_3E9: ld a,$ff + ld (byte_8B3),a ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_3EF: ; CODE XREF: start+7Cp - xor a - ld (byte_0_460), a - ld (byte_0_464), a +sub_3EF: xor a ; CODE XREF: start+7Cp + ld (byte_460), a + ld (byte_464), a ld c, S_SYSVAR ld de, 45Fh call bdos ; Access the system variables @@ -262,122 +240,121 @@ sub_0_3EF: ; CODE XREF: start+7Cp ld a, l cpl ld l, a - ld (word_0_46F), hl + ld (word_46F), hl ld c, S_SYSVAR - ld de, 463h + ld de,byte_463 call bdos ; Access the system variables - ld (word_0_46B), hl - ld de, (word_0_46F) + ld (word_46B), hl + ld de, (word_46F) ld a, h and d ld h, a ld a, l and e ld l, a - ld (word_0_465), hl + ld (word_465), hl ld c, S_SYSVAR - ld de, 467h + ld de,byte_467 call bdos ; Access the system variables - ld (word_0_46D), hl - ld de, (word_0_46F) + ld (word_46D), hl + ld de, (word_46F) ld a, h and d ld h, a ld a, l and e ld l, a - ld (word_0_469), hl + ld (word_469), hl -loc_0_437: ; CODE XREF: sub_0_451+Cj - ld a, 0FEh - ld (byte_0_464), a - ld de, 463h +loc_437: ; CODE XREF: sub_451+Cj + ld a,0FEh + ld (byte_464), a + ld de,byte_463 ld c, S_SYSVAR call bdos ; Access the system variables - ld a, 0FEh - ld (byte_0_468), a - ld de, 467h + ld a,0FEh + ld (byte_468), a + ld de,byte_467 ld c, S_SYSVAR jp 5 ; Access the System Control Block -; End of function sub_0_3EF +; End of function sub_3EF ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_451: ; CODE XREF: start+82p - ld hl, (word_0_46B) - ld (word_0_465), hl - ld hl, (word_0_46D) - ld (word_0_469), hl - jr loc_0_437 -; End of function sub_0_451 +sub_451: ; CODE XREF: start+82p + ld hl, (word_46B) + ld (word_465), hl + ld hl, (word_46D) + ld (word_469), hl + jr loc_437 +; End of function sub_451 ;---------------------------------------------------------------------------- .db 28h ; ( -byte_0_460: .db 0 ; DATA XREF: sub_0_3EF+1w +byte_460: .db 0 ; DATA XREF: sub_3EF+1w .db 0 ; .db 0 ; - .db 24h ; $ -byte_0_464: .db 0 ; DATA XREF: sub_0_3EF+4w sub_0_3EF+4Aw -word_0_465: .dw 0 ; DATA XREF: sub_0_3EF+2Dw - ; sub_0_451+3w - .db 22h ; " -byte_0_468: .db 0 ; DATA XREF: sub_0_3EF+57w -word_0_469: .dw 0 ; DATA XREF: sub_0_3EF+45w - ; sub_0_451+9w -word_0_46B: .dw 0 ; DATA XREF: sub_0_3EF+20w - ; sub_0_451r -word_0_46D: .dw 0 ; DATA XREF: sub_0_3EF+38w - ; sub_0_451+6r -word_0_46F: .dw 0 ; DATA XREF: sub_0_3EF+15w - ; sub_0_3EF+23r ... +byte_463: .db 24h ; $ +byte_464: .db 0 ; DATA XREF: sub_3EF+4w sub_3EF+4Aw +word_465: .dw 0 ; DATA XREF: sub_3EF+2Dw +byte_467: .db 22h ; " +byte_468: .db 0 ; DATA XREF: sub_3EF+57w +word_469: .dw 0 ; DATA XREF: sub_3EF+45w + ; sub_451+9w +word_46B: .dw 0 ; DATA XREF: sub_3EF+20w + ; sub_451r +word_46D: .dw 0 ; DATA XREF: sub_3EF+38w + ; sub_451+6r +word_46F: .dw 0 ; DATA XREF: sub_3EF+15w + ; sub_3EF+23r ... ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_471: ; CODE XREF: sub_0_961+92p +sub_471: ; CODE XREF: sub_961+92p ; seg000:0A29p ... call bdos or a ret -; End of function sub_0_471 +; End of function sub_471 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_476: ; CODE XREF: sub_0_4A4+37p - ; sub_0_961+61p +sub_476: ; CODE XREF: sub_4A4+37p + ; sub_961+61p push af -loc_0_477: ; CODE XREF: sub_0_476+8j +loc_477: ; CODE XREF: sub_476+8j push bc xor a ld b, a ld c, a cpir pop bc - djnz loc_0_477 + djnz loc_477 pop af ret -; End of function sub_0_476 +; End of function sub_476 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_482: ; CODE XREF: sub_0_1289+122p - ld a, (byte_0_2D04) +sub_482: ; CODE XREF: sub_1289+122p + ld a,(byte_2D04) ld de, text495h ; Update error string with errors - call sub_0_16E7 + call sub_16E7 ld de, text493h - ld c, C_WRITESTR + ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_0_482 +; End of function sub_482 ;---------------------------------------------------------------------------- text493h: .text "\r\n" @@ -388,52 +365,52 @@ text495h: .db 0,0,0 ; S u b r o u t i n e -sub_0_4A4: ; CODE XREF: sub_0_961+82p - ld de, byte_0_17A3 - ld hl, byte_0_4F8 +sub_4A4: ; CODE XREF: sub_961+82p + ld de,byte_17A3 + ld hl,byte_4F8 ld (hl), 3Ah inc hl xor a ld b, 0Dh - call sub_0_1786 + call sub_1786 inc de - call sub_0_16C4 + call sub_16C4 dec de - ld a, (de) + ld a,(de) add a, 40h - ld (byte_0_4F4), a + ld (byte_4F4), a dec de - ld a, (de) - ld de,byte_0_4F5 - call sub_0_16E7 + ld a,(de) + ld de,byte_4F5 + call sub_16E7 ld a, 24h - ld (byte_0_507), a + ld (byte_507), a ld de, text4F2h - ld c, C_WRITESTR + ld c,C_WRITESTR call bdos ; Output string - ld hl, (byte_0_2CD4) + ld hl, (byte_2CD4) ld a, h or l ret z ld b, 1 - call sub_0_476 + call sub_476 dec hl ld (hl), 24h - ld de, (byte_0_2CD4) - ld c, C_WRITESTR + ld de, (byte_2CD4) + ld c,C_WRITESTR call bdos ; Output string ld de, text508h - ld c, C_WRITESTR + ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_0_4A4 +; End of function sub_4A4 ;---------------------------------------------------------------------------- text4F2h: .text "\r\n" -byte_0_4F4: .db 0 ; DATA XREF: sub_0_4A4+17w -byte_0_4F5: .db 0 ; +byte_4F4: .db 0 ; DATA XREF: sub_4A4+17w +byte_4F5: .db 0 ; .db 0 ; .db 0 ; -byte_0_4F8: .db 0 ; +byte_4F8: .db 0 ; .db 0 ; .db 0 ; .db 0 ; @@ -448,23 +425,23 @@ byte_0_4F8: .db 0 ; .db 0 ; .db 0 ; .db 20h ; -byte_0_507: .db 0 ; DATA XREF: sub_0_4A4+24w +byte_507: .db 0 ; DATA XREF: sub_4A4+24w text508h: .text "\r\n$" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_50B: ; CODE XREF: sub_0_D0Ep sub_0_D30+30p +sub_50B: ; CODE XREF: sub_D0Ep sub_D30+30p ld hl, 2CABh ld de, 51Fh - call loc_0_774 + call loc_774 ld (hl), 24h ld de, text51Eh - ld c, C_WRITESTR + ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_0_50B +; End of function sub_50B ;---------------------------------------------------------------------------- text51Eh: @@ -480,7 +457,7 @@ text51Eh: .db 0 ; .db 0 ; -loc_0_529: ld hl,str_busy +loc_529: ld hl,str_busy ld a,0 inc a and 3 @@ -497,14 +474,14 @@ loc_0_529: ld hl,str_busy str_busy: .text "|/-\\ |\b\b$" ld de,0569h - jr sub_0_555 + jr sub_555 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_552: ld de, text55Ah -sub_0_555: ld c, C_WRITESTR +sub_552: ld de, text55Ah +sub_555: ld c,C_WRITESTR jp bdos ; Output string ;---------------------------------------------------------------------------- @@ -516,42 +493,42 @@ text569h: .text "can't open any file\r\n$" ; S u b r o u t i n e -sub_0_57F: ; CODE XREF: sub_0_DE7+Dp - ld hl,byte_0_586 +sub_57F: ; CODE XREF: sub_DE7+Dp + ld hl,byte_586 ld (hl), a inc hl ld (hl), c ret -; End of function sub_0_57F +; End of function sub_57F ;---------------------------------------------------------------------------- -byte_0_586: .db 0 ; -byte_0_587: .db 0 ; DATA XREF: sub_0_5B4r +byte_586: .db 0 ; +byte_587: .db 0 ; DATA XREF: sub_5B4r ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_588: ; CODE XREF: sub_0_588+1Fj - ; sub_0_5D4+4p ... +sub_588: ; CODE XREF: sub_588+1Fj + ; sub_5D4+4p ... or a - ld hl, (word_0_1808) + ld hl, (word_1808) ld de, 1000h sbc hl, de - jr z, loc_0_5A9 + jr z,loc_5A9 ld c, A_STATIN call bdos ; Auxiliary Input status or a - jr z, loc_0_5A9 + jr z,loc_5A9 ld c, A_READ call bdos ; Auxiliary (Reader) input ld c, a ld hl, 1808h - call sub_0_61C - jr sub_0_588 + call sub_61C + jr sub_588 ;---------------------------------------------------------------------------- -loc_0_5A9: ; CODE XREF: sub_0_588+9j sub_0_588+11j +loc_5A9: ; CODE XREF: sub_588+9j sub_588+11j ld hl, 587h or (hl) ret nz @@ -559,86 +536,86 @@ loc_0_5A9: ; CODE XREF: sub_0_588+9j sub_0_588+11j ld a, h or l ret -; End of function sub_0_588 +; End of function sub_588 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_5B4: ; CODE XREF: sub_0_5D4+12p - ld a, (byte_0_587) +sub_5B4: ; CODE XREF: sub_5D4+12p + ld a,(byte_587) or a ld hl, 1808h - jp z, loc_0_5F7 + jp z,loc_5F7 push af ld hl, 587h dec (hl) dec hl pop af - ld a, (hl) + ld a,(hl) ret -; End of function sub_0_5B4 +; End of function sub_5B4 ;---------------------------------------------------------------------------- -loc_0_5C7: LD C,4 ; punch out +loc_5C7: LD C,4 ; punch out LD E,A JP bdos ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_5CD: ld c, 8 ; CODE XREF: seg000:1462p +sub_5CD: ld c, 8 ; CODE XREF: seg000:1462p call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a ret -; End of function sub_0_5CD +; End of function sub_5CD ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_5D4: ; CODE XREF: sub_0_DE7+11p +sub_5D4: ; CODE XREF: sub_DE7+11p push bc ld b, 5Fh -loc_0_5D7: ; CODE XREF: sub_0_5D4+Dj +loc_5D7: ; CODE XREF: sub_5D4+Dj push bc - call sub_0_588 + call sub_588 pop bc - jr nz, loc_0_5E6 - call sub_0_5EB - djnz loc_0_5D7 - call sub_0_588 + jr nz,loc_5E6 + call sub_5EB + djnz loc_5D7 + call sub_588 -loc_0_5E6: ; CODE XREF: sub_0_5D4+8j - call nz, sub_0_5B4 +loc_5E6: ; CODE XREF: sub_5D4+8j + call nz,sub_5B4 pop bc ret -; End of function sub_0_5D4 +; End of function sub_5D4 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_5EB: ; CODE XREF: sub_0_5D4+Ap +sub_5EB: ; CODE XREF: sub_5D4+Ap push bc ld a, 4 ld b, 0 -loc_0_5F0: ; CODE XREF: sub_0_5EB+5j sub_0_5EB+8j - djnz loc_0_5F0 +loc_5F0: ; CODE XREF: sub_5EB+5j sub_5EB+8j + djnz loc_5F0 dec a - jr nz, loc_0_5F0 + jr nz,loc_5F0 pop bc ret -; End of function sub_0_5EB +; End of function sub_5EB ;---------------------------------------------------------------------------- -loc_0_5F7: ; CODE XREF: sub_0_5B4+7j +loc_5F7: ; CODE XREF: sub_5B4+7j ld e, (hl) inc hl ld d, (hl) @@ -669,14 +646,14 @@ loc_0_5F7: ; CODE XREF: sub_0_5B4+7j pop hl ld a, 1 or a - ld a, (hl) + ld a,(hl) ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_61C: ; CODE XREF: sub_0_588+1Cp +sub_61C: ; CODE XREF: sub_588+1Cp or a push hl ld e, (hl) @@ -711,50 +688,50 @@ sub_0_61C: ; CODE XREF: sub_0_588+1Cp pop hl ld (hl), c ret -; End of function sub_0_61C +; End of function sub_61C ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_643: ; CODE XREF: sub_0_961+54p - ; sub_0_11FA+69p +sub_643: ; CODE XREF: sub_961+54p + ; sub_11FA+69p ld hl, 17A2h ld b, 25h - jr loc_0_650 -; End of function sub_0_643 + jr loc_650 +; End of function sub_643 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_64A: ; CODE XREF: sub_0_961+9Ep +sub_64A: ; CODE XREF: sub_961+9Ep ; seg000:0A63p ld b, 3 - jr loc_0_650 -; End of function sub_0_64A + jr loc_650 +; End of function sub_64A ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_64E: ; CODE XREF: sub_0_8D1+Cp sub_0_BD3+2Fp +sub_64E: ; CODE XREF: sub_8D1+Cp sub_BD3+2Fp ld b, 6 -loc_0_650: ; CODE XREF: sub_0_643+5j sub_0_64A+2j +loc_650: ; CODE XREF: sub_643+5j sub_64A+2j xor a - jp sub_0_1786 -; End of function sub_0_64E + jp sub_1786 +; End of function sub_64E ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_654: ; CODE XREF: seg000:0AAEp +sub_654: ; CODE XREF: seg000:0AAEp xor a or (hl) ret z @@ -769,15 +746,15 @@ sub_0_654: ; CODE XREF: seg000:0AAEp ld (hl), a inc hl adc hl, de - ld a, (hl) + ld a,(hl) ret nc ccf ret -; End of function sub_0_654 +; End of function sub_654 ;---------------------------------------------------------------------------- -sub_0_669: LD A,80H +sub_669: LD A,80H SUB (HL) RET Z INC (HL) @@ -800,7 +777,7 @@ sub_0_669: LD A,80H ; S u b r o u t i n e -sub_0_67F: ; CODE XREF: sub_0_39A+Fp sub_0_BD3+42j +sub_67F: ; CODE XREF: sub_39A+Fp sub_BD3+42j add hl, bc sla c @@ -810,13 +787,13 @@ sub_0_67F: ; CODE XREF: sub_0_39A+Fp sub_0_BD3+42j ld h, (hl) ld l, c jp (hl) -; End of function sub_0_67F +; End of function sub_67F ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_688: ; CODE XREF: seg000:0726p sub_0_BD3+13p +sub_688: ; CODE XREF: seg000:0726p sub_BD3+13p xor a push bc @@ -826,17 +803,17 @@ sub_0_688: ; CODE XREF: seg000:0726p sub_0_BD3+13p ld d, h ld e, l inc de - jr loc_0_697 -; End of function sub_0_688 + jr loc_697 +; End of function sub_688 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_692: push bc ; CODE XREF: seg000:077Bp seg000:07ADp +sub_692: push bc ; CODE XREF: seg000:077Bp seg000:07ADp push de push hl ldi -loc_0_697: ldi ; CODE XREF: sub_0_688+8j +loc_697: ldi ; CODE XREF: sub_688+8j ldi ldi pop hl @@ -846,51 +823,51 @@ loc_0_697: ldi ; CODE XREF: sub_0_688+8j ;---------------------------------------------------------------------------- -loc_0_6A1: PUSH HL ;unref. ? +loc_6A1: PUSH HL ;unref. ? POP IX ;unref. ? PUSH DE ;unref. ? POP IY ;unref. ? LD A,(IX+3) ;unref. ? XOR (IY+3) ;unref. ? - JP P,loc_0_6B6 ;unref. ? + JP P,loc_6B6 ;unref. ? XOR (IX+3) ;unref. ? -loc_0_6B3: RET M ;unref. ? +loc_6B3: RET M ;unref. ? CCF ;unref. ? RET ;unref. ? -loc_0_6B6: XOR (IX+3) ;unref. ? - JP P,loc_0_6C2 ;unref. ? - CALL loc_0_6C2 ;unref. ? +loc_6B6: XOR (IX+3) ;unref. ? + JP P,loc_6C2 ;unref. ? + CALL loc_6C2 ;unref. ? SCF ;unref. ? - JR loc_0_6B3 ;unref. ? + JR loc_6B3 ;unref. ? -loc_0_6C2: PUSH BC +loc_6C2: PUSH BC PUSH DE ;unref. ? PUSH HL ;unref. ? EX DE,HL ;unref. ? OR A ;unref. ? LD B,4 ;unref. ? -loc_0_6C9: LD A,(DE) ;unref. ? +loc_6C9: LD A,(DE) ;unref. ? SBC A,(HL) ;unref. ? INC DE ;unref. ? INC HL ;unref. ? - DJNZ loc_0_6C9 ;unref. ? + DJNZ loc_6C9 ;unref. ? POP HL ;unref. ? POP DE ;unref. ? POP BC ;unref. ? RET ;unref. ? -loc_0_6D3: PUSH BC +loc_6D3: PUSH BC PUSH DE PUSH HL LD B,4 -loc_0_6D8: LD A,(DE) +loc_6D8: LD A,(DE) XOR (HL) - JR NZ,loc_0_6E0 + JR NZ,loc_6E0 INC DE INC HL - DJNZ loc_0_6D8 -loc_0_6E0: POP HL + DJNZ loc_6D8 +loc_6E0: POP HL POP DE POP BC RET @@ -898,23 +875,23 @@ loc_0_6E0: POP HL ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_6E4: push bc ; CODE XREF: sub_0_11FA+4Bp +sub_6E4: push bc ; CODE XREF: sub_11FA+4Bp push de push hl or a ex af, af' ld a, 4 -loc_0_6EB: ex af, af' ; CODE XREF: sub_0_6E4+10j - ld a, (de) - adc a, (hl) +loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j + ld a,(de) + adc a,(hl) ld (bc), a inc bc inc de inc hl ex af, af' dec a - jr nz, loc_0_6EB + jr nz,loc_6EB pop hl pop de pop bc @@ -923,23 +900,23 @@ loc_0_6EB: ex af, af' ; CODE XREF: sub_0_6E4+10j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_6FA: push bc ; CODE XREF: seg000:0799p +sub_6FA: push bc ; CODE XREF: seg000:0799p push de push hl ex de, hl or a ex af, af' ld a, 4 -loc_0_702: ex af, af' ; CODE XREF: sub_0_6FA+11j - ld a, (de) - sbc a, (hl) +loc_702: ex af, af' ; CODE XREF: sub_6FA+11j + ld a,(de) + sbc a,(hl) ld (bc), a inc bc inc hl inc de ex af, af' dec a - jr nz, loc_0_702 + jr nz,loc_702 ex af, af' pop hl pop de @@ -948,48 +925,48 @@ loc_0_702: ex af, af' ; CODE XREF: sub_0_6FA+11j ;---------------------------------------------------------------------------- -loc_0_712: PUSH BC +loc_712: PUSH BC PUSH HL LD A,1 ADD A,(HL) LD (HL),A - JR NC,loc_0_723 + JR NC,loc_723 LD B,3 -loc_0_71C: INC HL +loc_71C: INC HL LD A,0 ADC A,(HL) LD (HL),A - DJNZ loc_0_71C -loc_0_723: POP HL + DJNZ loc_71C +loc_723: POP HL POP BC RET ;---------------------------------------------------------------------------- -loc_0_726: call sub_0_688 ; CODE XREF: sub_0_8A0+Cj -sub_0_729: push bc ; CODE XREF: seg000:0A77p +loc_726: call sub_688 ; CODE XREF: sub_8A0+Cj +sub_729: push bc ; CODE XREF: seg000:0A77p push hl - ld a, (hl) + ld a,(hl) sub 1 ld (hl), a ld b, 3 -loc_0_731: inc hl ; CODE XREF: sub_0_729+Dj - ld a, (hl) - sbc a, 0 +loc_731: inc hl ; CODE XREF: sub_729+Dj + ld a,(hl) + sbc a,0 ld (hl), a - djnz loc_0_731 + djnz loc_731 pop hl pop bc ret ;---------------------------------------------------------------------------- -loc_0_73B: PUSH BC +loc_73B: PUSH BC PUSH DE PUSH HL EX DE,HL LD A,004H -loc_0_741: PUSH AF +loc_741: PUSH AF LD A,(DE) AND (HL) LD (BC),A @@ -998,7 +975,7 @@ loc_0_741: PUSH AF INC HL POP AF DEC A - JR NZ,loc_0_741 + JR NZ,loc_741 POP HL POP DE POP BC @@ -1006,7 +983,7 @@ loc_0_741: PUSH AF ;---------------------------------------------------------------------------- -loc_0_750: .db 0, 0CAh, 9Ah, 3Bh +loc_750: .db 0, 0CAh, 9Ah, 3Bh .db 0, 0E1h, 0F5h, 5 .db 80h, 96h, 98h, 0 .db 40h, 42h, 0Fh, 0 @@ -1016,11 +993,11 @@ loc_0_750: .db 0, 0CAh, 9Ah, 3Bh .db 64h, 0, 0, 0 .db 0Ah, 0, 0, 0 -loc_0_774: ld (smod_w_7BF), de; CODE XREF: sub_0_50B+6p +loc_774: ld (smod_w_7BF), de; CODE XREF: sub_50B+6p ld de, 2891h - call sub_0_692 - ld c,+(loc_0_774-loc_0_750)/4 - ld de,loc_0_750-4 + call sub_692 + ld c,+(loc_774-loc_750)/4 + ld de,loc_750-4 xor a ld (smod_b_7BA), a ld a, 30h @@ -1030,24 +1007,24 @@ loc_0_774: ld (smod_w_7BF), de; CODE XREF: sub_0_50B+6p inc de inc de ld b, 0Ah -loc_0_792: push bc ; CODE XREF: seg000:07B1j +loc_792: push bc ; CODE XREF: seg000:07B1j ld hl, 2891h ld bc, 2895h - call sub_0_6FA + call sub_6FA pop bc - jr c, loc_0_7B3 + jr c, loc_7B3 push de - ld a, (smod_b_7B4) + ld a,(smod_b_7B4) inc a ld (smod_b_7B4), a ld de, 2891h ld hl, 2895h - call sub_0_692 + call sub_692 pop de - djnz loc_0_792 + djnz loc_792 ;---------------------------------------------------------------------------- smod_b_7B4: .EQU $+1 -loc_0_7B3: LD A,30H ; self modifying +loc_7B3: LD A,30H ; self modifying CP 30H JR NZ,7BEH smod_b_7BA: .EQU $+1 @@ -1080,7 +1057,7 @@ smod_b_7DF: .EQU $+1 RET -loc_0_7E5: .db 20h ; +loc_7E5: .db 20h ; .db 83h ; ? .db 0B8h ; ¸ .db 0EDh ; í @@ -1089,7 +1066,7 @@ loc_0_7E5: .db 20h ; .db 0BBh ; » .db 0DEh ; Þ -sub_0_7ED: PUSH AF +sub_7ED: PUSH AF smod_w_7F0: .EQU $+2 LD IY,289DH LD IX,2899H @@ -1118,7 +1095,7 @@ smod_w_7F0: .EQU $+2 ; S u b r o u t i n e -sub_0_825: ; CODE XREF: sub_0_8D1+Fp +sub_825: ; CODE XREF: sub_8D1+Fp push de push hl ld hl, (smod_w_7F0) @@ -1126,22 +1103,22 @@ sub_0_825: ; CODE XREF: sub_0_8D1+Fp add hl, bc push hl pop iy - ld ix, loc_0_7E5 + ld ix, loc_7E5 xor a -loc_0_836: ; CODE XREF: sub_0_825+5Bj +loc_836: ; CODE XREF: sub_825+5Bj push af ld hl, 0FFFFh ld de, 0FFFFh xor e ld e, a ld b, 8 -loc_0_841: scf ; CODE XREF: sub_0_825+3Bj +loc_841: scf ; CODE XREF: sub_825+3Bj rr h rr l rr d rr e - jr nc, loc_0_860 + jr nc, loc_860 ld a, e xor (ix+0) ld e, a @@ -1154,7 +1131,7 @@ loc_0_841: scf ; CODE XREF: sub_0_825+3Bj ld a, h xor (ix+3) ld h, a -loc_0_860: djnz loc_0_841 ; CODE XREF: sub_0_825+25j +loc_860: djnz loc_841 ; CODE XREF: sub_825+25j ld a, h cpl ld (iy+0), a @@ -1173,32 +1150,32 @@ loc_0_860: djnz loc_0_841 ; CODE XREF: sub_0_825+25j dec iy pop af inc a - jr nz, loc_0_836 + jr nz,loc_836 pop hl pop de ret -; End of function sub_0_825 +; End of function sub_825 ;---------------------------------------------------------------------------- - ; CODE XREF: sub_0_13BA+Fp - ; sub_0_13BA+1Ep -loc_0_885: PUSH AF + ; CODE XREF: sub_13BA+Fp + ; sub_13BA+1Ep +loc_885: PUSH AF smod_w_887: .equ $+1 ; self modifying LD HL,0 LD DE,1021H XOR H LD H,A LD B,8 -loc_0_890: ADD HL,HL - JR NC,loc_0_899 +loc_890: ADD HL,HL + JR NC,loc_899 LD A,H XOR D LD H,A LD A,L XOR E LD L,A -loc_0_899: DJNZ loc_0_890 +loc_899: DJNZ loc_890 LD (smod_w_887),HL POP AF RET @@ -1206,274 +1183,274 @@ loc_0_899: DJNZ loc_0_890 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_8A0: xor a ; CODE XREF: sub_0_13BA+9p +sub_8A0: xor a ; CODE XREF: sub_13BA+9p ld h, a ld l, a ld (smod_b_7DF), a ld (smod_w_887), hl ld hl, 2899h - jp loc_0_726 + jp loc_726 ;---------------------------------------------------------------------------- -byte_0_8AF: .db 4 ; DATA XREF: sub_0_3C9+Aw sub_0_8D1+34r -byte_0_8B0: .db 0 ; DATA XREF: sub_0_8D1+23r -byte_0_8B1: .db 0 ; DATA XREF: sub_0_961r -byte_0_8B2: .db 0 ; DATA XREF: sub_0_961+14r -byte_0_8B3: .db 0 ; DATA XREF: seg000:0A3Cr -word_0_8B4: .dw 0 ; DATA XREF: sub_0_8B6+17w +byte_8AF: .db 4 ; DATA XREF: sub_3C9+Aw sub_8D1+34r +byte_8B0: .db 0 ; DATA XREF: sub_8D1+23r +byte_8B1: .db 0 ; DATA XREF: sub_961r +byte_8B2: .db 0 ; DATA XREF: sub_961+14r +byte_8B3: .db 0 ; DATA XREF: seg000:0A3Cr +word_8B4: .dw 0 ; DATA XREF: sub_8B6+17w ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_8B6: xor a ; CODE XREF: sub_0_8D1+20p +sub_8B6: xor a ; CODE XREF: sub_8D1+20p ld c, a ld b, 8 ld a, h -loc_0_8BB: rlca ; CODE XREF: sub_0_8B6+Cj +loc_8BB: rlca ; CODE XREF: sub_8B6+Cj set 7, c - jr c, loc_0_8C4 + jr c, loc_8C4 rr c - djnz loc_0_8BB -loc_0_8C4: ld a, h ; CODE XREF: sub_0_8B6+8j + djnz loc_8BB +loc_8C4: ld a, h ; CODE XREF: sub_8B6+8j and c ld h, a ld l, 0 - ld (word_0_2CEB), hl + ld (word_2CEB), hl dec hl - ld (word_0_8B4), hl + ld (word_8B4), hl ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_8D1: xor a ; CODE XREF: start+7Fp - ld hl, byte_0_2C9D +sub_8D1: xor a ; CODE XREF: start+7Fp + ld hl,byte_2C9D ld b, 61h - call sub_0_1786 + call sub_1786 ld hl, 1808h - call sub_0_64E - call sub_0_825 - ld hl, (word_0_179E) - ld (2CE9h), hl + call sub_64E + call sub_825 + ld hl, (word_179E) + ld (word_2CE9), hl ld de, (6) ex de, hl or a sbc hl, de - call sub_0_8B6 - ld a, (byte_0_8B0) + call sub_8B6 + ld a,(byte_8B0) cp 0 - jr z, loc_0_8FD + jr z,loc_8FD ld a, 7 -loc_0_8FD: ld (byte_0_2CA4), a ; CODE XREF: sub_0_8D1+28j +loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j ld a, 10h - ld (byte_0_2C9E), a - ld a, (byte_0_8AF) + ld (byte_2C9E), a + ld a,(byte_8AF) cp 3 - jr c, loc_0_947 + jr c, loc_947 ld a, 1 ld (smod_b_B0A), a - call loc_0_ACF - jp c, loc_0_954 + call loc_ACF + jp c, loc_954 or a - jr z, loc_0_92B + jr z,loc_92B cp 4 - jr z, loc_0_924 + jr z,loc_924 cp 0Fh - jr nz, loc_0_924 - jr locret_0_953 + jr nz,loc_924 + jr locret_953 -loc_0_924: call sub_0_BB4 ; CODE XREF: sub_0_8D1+4Bj - jr c, loc_0_954 ; sub_0_8D1+4Fj - jr locret_0_953 +loc_924: call sub_BB4 ; CODE XREF: sub_8D1+4Bj + jr c, loc_954 ; sub_8D1+4Fj + jr locret_953 ;---------------------------------------------------------------------------- -loc_0_92B: ld a, 3 ; CODE XREF: sub_0_8D1+47j - ld (byte_0_8AF), a ; sub_0_8D1+74j +loc_92B: ld a, 3 ; CODE XREF: sub_8D1+47j + ld (byte_8AF), a ; sub_8D1+74j xor a - ld (byte_0_2D04), a - call sub_0_11C1 - jr c, loc_0_954 - call sub_0_961 - jr c, loc_0_954 - jr z, locret_0_953 - call sub_0_11FA - jr c, loc_0_954 - jr loc_0_92B + ld (byte_2D04), a + call sub_11C1 + jr c, loc_954 + call sub_961 + jr c, loc_954 + jr z,locret_953 + call sub_11FA + jr c, loc_954 + jr loc_92B ;---------------------------------------------------------------------------- -loc_0_947: call sub_0_961 ; CODE XREF: sub_0_8D1+39j - jr c, loc_0_954 - jr z, locret_0_953 - call sub_0_11FA - jr c, loc_0_954 -locret_0_953: ret ; CODE XREF: sub_0_8D1+51j +loc_947: call sub_961 ; CODE XREF: sub_8D1+39j + jr c, loc_954 + jr z,locret_953 + call sub_11FA + jr c, loc_954 +locret_953: ret ; CODE XREF: sub_8D1+51j ;---------------------------------------------------------------------------- -loc_0_954: call sub_0_DD9 ; CODE XREF: sub_0_8D1+43j - ld a, (byte_0_2CA5); sub_0_8D1+56j +loc_954: call sub_DD9 ; CODE XREF: sub_8D1+43j + ld a,(byte_2CA5); sub_8D1+56j cp 0FFh - call z, sub_0_D0E - jr locret_0_953 + call z,sub_D0E + jr locret_953 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_961: ; CODE XREF: sub_0_8D1+68p - ; sub_0_8D1+76p ... - ld a, (byte_0_8B1) +sub_961: ; CODE XREF: sub_8D1+68p + ; sub_8D1+76p ... + ld a,(byte_8B1) cpl ld hl, 8B2h or (hl) - ld (byte_0_2CA3), a - ld a, (byte_0_2CA4) + ld (byte_2CA3), a + ld a,(byte_2CA4) or a - jr z, loc_0_975 - ld (byte_0_2CA1), a + jr z,loc_975 + ld (byte_2CA1), a -loc_0_975: ; CODE XREF: sub_0_961+Fj - ld a, (byte_0_8B2) +loc_975: ; CODE XREF: sub_961+Fj + ld a,(byte_8B2) cp 0FFh - jr z, loc_0_988 - ld a, (byte_0_2CA2) + jr z,loc_988 + ld a,(byte_2CA2) cp 2 - jr nz, loc_0_988 - ld a, 0 - ld (byte_0_2CA3), a + jr nz,loc_988 + ld a,0 + ld (byte_2CA3), a -loc_0_988: ; CODE XREF: sub_0_961+19j - ; sub_0_961+20j - ld a, (byte_0_2CA2) +loc_988: ; CODE XREF: sub_961+19j + ; sub_961+20j + ld a,(byte_2CA2) cp 1 - jr nz, loc_0_994 - ld a, 0FFh - ld (byte_0_2CA3), a + jr nz,loc_994 + ld a,0FFh + ld (byte_2CA3), a -loc_0_994: ; CODE XREF: sub_0_961+2Cj - ld a, (byte_0_2CA1) +loc_994: ; CODE XREF: sub_961+2Cj + ld a,(byte_2CA1) cp 7 - jr z, loc_0_9AE - ld a, (byte_0_2CA1) + jr z,loc_9AE + ld a,(byte_2CA1) cp 3 - jr nz, loc_0_9AE - ld a, (byte_0_2CA3) + jr nz,loc_9AE + ld a,(byte_2CA3) cp 0FFh - jr nz, loc_0_9AE + jr nz,loc_9AE ld a, 7 - ld (byte_0_2CA1), a + ld (byte_2CA1), a -loc_0_9AE: ; CODE XREF: sub_0_961+38j - ; sub_0_961+3Fj ... - ld a, (byte_0_8AF) +loc_9AE: ; CODE XREF: sub_961+38j + ; sub_961+3Fj ... + ld a,(byte_8AF) cp 3 - jr c, loc_0_9E3 - call sub_0_643 - ld hl, (2CE9h) + jr c, loc_9E3 + call sub_643 + ld hl, (word_2CE9) xor a or (hl) scf ret z push hl ld b, 1 - call sub_0_476 + call sub_476 dec hl ld (hl), 20h pop hl ld de, 2CD0h ld a, 7 ld (de), a - ld a, 0FFh - call sub_0_172E - ld hl, (word_0_2CD2) - ld de, byte_0_17A3 - call sub_0_1492 - ld hl, (byte_0_17A0) - ld (word_0_17A2), hl -loc_0_9E3: call sub_0_4A4 ; CODE XREF: sub_0_961+52j - ld de, byte_0_17A3 ; seg000:0A2Cj - call sub_0_169E - jr nz, loc_0_A11 - ld de, byte_0_17A3 + ld a,0FFh + call sub_172E + ld hl, (word_2CD2) + ld de,byte_17A3 + call sub_1492 + ld hl, (byte_17A0) + ld (word_17A2), hl +loc_9E3: call sub_4A4 ; CODE XREF: sub_961+52j + ld de,byte_17A3 ; seg000:0A2Cj + call sub_169E + jr nz,loc_A11 + ld de,byte_17A3 ld c, 16h - call sub_0_471 + call sub_471 ret c - ld a, 0FFh - ld (byte_0_2CA5), a - ld hl, byte_0_280E - call sub_0_64A - ld a, (byte_0_2CD1) + ld a,0FFh + ld (byte_2CA5), a + ld hl,byte_280E + call sub_64A + ld a,(byte_2CD1) cp 2 - jr c, loc_0_A0D -sub_0_A09: ld de, (byte_0_2CD4) ; CODE XREF: seg000:0A11p -loc_0_A0D: ld a, 1 ; CODE XREF: sub_0_961+A6j + jr c, loc_A0D +sub_A09: ld de, (byte_2CD4) ; CODE XREF: seg000:0A11p +loc_A0D: ld a, 1 ; CODE XREF: sub_961+A6j or a ret ;---------------------------------------------------------------------------- -loc_0_A11: call sub_0_A09 ; CODE XREF: sub_0_961+8Bj - ld a, (byte_0_8AF) +loc_A11: call sub_A09 ; CODE XREF: sub_961+8Bj + ld a,(byte_8AF) cp 4 - jr nz, loc_0_A24 - ld a, (byte_0_2CA1) + jr nz,loc_A24 + ld a,(byte_2CA1) cp 7 - jr nz, loc_0_A35 - jr loc_0_A2E + jr nz,loc_A35 + jr loc_A2E ;---------------------------------------------------------------------------- -loc_0_A24: ; CODE XREF: seg000:0A19j seg000:0A41j - ld de, byte_0_17A3 +loc_A24: ; CODE XREF: seg000:0A19j seg000:0A41j + ld de,byte_17A3 ld c, 13h - call sub_0_471 - jr nc, loc_0_9E3 + call sub_471 + jr nc, loc_9E3 -loc_0_A2E: ; CODE XREF: seg000:0A22j - call sub_0_552 +loc_A2E: ; CODE XREF: seg000:0A22j + call sub_552 ld a, 5 scf ret ;---------------------------------------------------------------------------- -loc_0_A35: ; CODE XREF: seg000:0A20j - ld a, (byte_0_2CA1) +loc_A35: ; CODE XREF: seg000:0A20j + ld a,(byte_2CA1) cp 3 - jr z, loc_0_A43 - ld a, (byte_0_8B3) + jr z,loc_A43 + ld a,(byte_8B3) cp 0FFh - jr nz, loc_0_A24 + jr nz,loc_A24 -loc_0_A43: ; CODE XREF: seg000:0A3Aj +loc_A43: ; CODE XREF: seg000:0A3Aj ld de, 2811h ld c, 1Ah call bdos ; BDOS function 26 (F_DMAOFF) - Set DMA address ld e, 1 ld c, 2Ch call bdos ; BDOS function 44 (F_MULTISEC) - Set number of records to read/write at once - ld de, byte_0_17A3 + ld de,byte_17A3 ld c, 0Fh - call sub_0_471 + call sub_471 ret c - ld a, 0FFh - ld (byte_0_2CA5), a - ld hl, byte_0_280E - call sub_0_64A - ld de, byte_0_17A3 + ld a,0FFh + ld (byte_2CA5), a + ld hl,byte_280E + call sub_64A + ld de,byte_17A3 ld c, 23h - call sub_0_471 + call sub_471 ret c ld hl, 17C7h ld (hl), 0 ld hl, 17C4h - call sub_0_729 + call sub_729 ld de, 2CABh - call sub_0_692 + call sub_692 ex de, hl ld b, 7 -loc_0_A83: ; CODE XREF: seg000:0A90j +loc_A83: ; CODE XREF: seg000:0A90j push hl sla (hl) inc hl @@ -1483,146 +1460,146 @@ loc_0_A83: ; CODE XREF: seg000:0A90j inc hl rl (hl) pop hl - djnz loc_0_A83 - ld de, byte_0_17A3 + djnz loc_A83 + ld de,byte_17A3 ld c, 21h - call sub_0_471 + call sub_471 ret c - ld a, (byte_0_2CA1) + ld a,(byte_2CA1) cp 3 - jr z, loc_0_AA6 + jr z,loc_AA6 ld a, 9 or a ret ;---------------------------------------------------------------------------- -loc_0_AA6: ; CODE XREF: seg000:0AA0j +loc_AA6: ; CODE XREF: seg000:0AA0j ld a, 80h - ld (byte_0_280E), a + ld (byte_280E), a -loc_0_AAB: ; CODE XREF: seg000:0AB5j - ld hl, byte_0_280E - call sub_0_654 - jr z, loc_0_AC6 +loc_AAB: ; CODE XREF: seg000:0AB5j + ld hl,byte_280E + call sub_654 + jr z,loc_AC6 cp 1Ah - jr nz, loc_0_AAB - ld a, (2810h) + jr nz,loc_AAB + ld a,(2810h) dec a ld (280Fh), a - ld hl, byte_0_280E + ld hl,byte_280E ld a, 7Fh sub (hl) - jr loc_0_AC8 + jr loc_AC8 ;---------------------------------------------------------------------------- -loc_0_AC6: ; CODE XREF: seg000:0AB1j +loc_AC6: ; CODE XREF: seg000:0AB1j ld a, 80h -loc_0_AC8: ; CODE XREF: seg000:0AC4j - ld (byte_0_280E), a +loc_AC8: ; CODE XREF: seg000:0AC4j + ld (byte_280E), a ld a, 1 or a ret ;---------------------------------------------------------------------------- -loc_0_ACF: ; CODE XREF: sub_0_8D1+40p - ; sub_0_BB4+Ep +loc_ACF: ; CODE XREF: sub_8D1+40p + ; sub_BB4+Ep xor a - ld (byte_0_2D04), a + ld (byte_2D04), a ld a, 4 ld hl, 8AFh cp (hl) - ld a, 0 + ld a,0 ret nz - ld hl, 2CEDh + ld hl,word_2CED ld b, 11h xor a - call sub_0_1786 - call sub_0_FAA - ld a, (2CA6h) + call sub_1786 + call sub_FAA + ld a,(2CA6h) cp 0FFh ld b, 5 - jr z, loc_0_AF3 + jr z,loc_AF3 ld b, 0Ah -loc_0_AF3: push bc - ld ix, 2CE0h ; CODE XREF: seg000:0AEFj +loc_AF3: push bc + ld ix,loc_2CE0 ; CODE XREF: seg000:0AEFj ld (ix+3), 20h ld (ix+2), 0 - ld hl, (word_0_2CEB) + ld hl, (word_2CEB) ld (ix+0), l ld (ix+1), h -smod_b_B0A: .equ $+1 ; DATA XREF: sub_0_8D1+3Dw +smod_b_B0A: .equ $+1 ; DATA XREF: sub_8D1+3Dw ld a,1 ; self modifying value - CALL sub_0_13BA + CALL sub_13BA LD A,(smod_b_B0A) CP 5 JR NZ,0B1AH LD A,1 LD (smod_b_B0A),A -loc_0_B1A: CALL 0FD1H - LD HL,loc_0_B96 +loc_B1A: CALL 0FD1H + LD HL,loc_B96 LD BC,0AH CPIR - JP Z,sub_0_67F -loc_0_B28: LD HL,byte_0_2D04 + JP Z,sub_67F +loc_B28: LD HL,byte_2D04 INC (HL) - CALL sub_0_482 -loc_0_B2F: POP BC - DJNZ loc_0_AF3 + CALL sub_482 +loc_B2F: POP BC + DJNZ loc_AF3 XOR A RET -loc_0_B34: POP BC +loc_B34: POP BC LD A,0FFH SCF RET -loc_0_B39: POP BC +loc_B39: POP BC CALL 0D9BH LD A,0FH RET -loc_0_B40: LD HL,2CE0H - CALL sub_0_688 - JR 0B68H +loc_B40: LD HL,loc_2CE0 + CALL sub_688 + JR loc_B68 -loc_0_B48: LD IX,2CA7H +loc_B48: LD IX,2CA7H LD A,(IX+3) AND 40H - LD (byte_0_2C9D),A - CALL loc_0_EC7 + LD (byte_2C9D),A + CALL loc_EC7 CP 0EBH LD A,6 - JR NZ,loc_0_B6A - LD HL,(2CE9H) + JR NZ,loc_B6A + LD HL,(word_2CE9) LD DE,2CAFH LD BC,20H LDIR - LD A,3 -loc_0_B6A: PUSH AF - LD HL,2CE0H - CALL sub_0_688 +loc_B68: LD A,3 +loc_B6A: PUSH AF + LD HL,loc_2CE0 + CALL sub_688 POP AF - CALL sub_0_13BA + CALL sub_13BA CALL 0FC9H - JP 0B28H + JP loc_B28 -loc_0_B7B: LD HL,2CA7H +loc_B7B: LD HL,2CA7H LD DE,2C9FH - CALL sub_0_692 + CALL sub_692 LD A,1 LD (smod_b_B0A),A - CALL loc_0_EC7 + CALL loc_EC7 CP 0EBH LD A,6 - JR NZ,loc_0_B6A + JR NZ,loc_B6A POP BC LD A,4 RET -loc_0_B96: .db 0 ; +loc_B96: .db 0 ; .db 0Bh ; .db 0FEh ; þ .db 4 ; @@ -1633,47 +1610,47 @@ loc_0_B96: .db 0 ; .db 8 ; .db 10h ; -loc_0_BA0: .dw loc_0_B34 - .dw loc_0_B39 - .dw loc_0_B1A - .dw loc_0_B34 - .dw loc_0_B40 - .dw loc_0_B48 - .dw loc_0_B7B - .dw loc_0_B28 - .dw loc_0_B2F - .dw loc_0_B2F +loc_BA0: .dw loc_B34 + .dw loc_B39 + .dw loc_B1A + .dw loc_B34 + .dw loc_B40 + .dw loc_B48 + .dw loc_B7B + .dw loc_B28 + .dw loc_B2F + .dw loc_B2F ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_BB4: call sub_0_BD3 ; CODE XREF: sub_0_8D1+53p - ret c ; sub_0_BB4+14j +sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p + ret c ; sub_BB4+14j cp 0Bh - jr z, loc_0_BC2 + jr z,loc_BC2 cp 5 - jr z, loc_0_BC2 + jr z,loc_BC2 or a ret ;---------------------------------------------------------------------------- -loc_0_BC2: call loc_0_ACF ; CODE XREF: sub_0_BB4+6j sub_0_BB4+Aj +loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj ret c cp 4 - jr z, sub_0_BB4 + jr z,sub_BB4 cp 0Fh - ld a, 0 + ld a,0 ret z - ld a, 0FFh + ld a,0FFh scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_BD3: call sub_0_961 ; CODE XREF: sub_0_BB4p - jr nc, loc_0_BDF +sub_BD3: call sub_961 ; CODE XREF: sub_BB4p + jr nc, loc_BDF ld a, 5 ld (smod_b_B0A), a or a @@ -1681,132 +1658,132 @@ sub_0_BD3: call sub_0_961 ; CODE XREF: sub_0_BB4p ;---------------------------------------------------------------------------- -loc_0_BDF: ; CODE XREF: sub_0_BD3+3j +loc_BDF: ; CODE XREF: sub_BD3+3j cp 9 - jr z, loc_0_BE9 + jr z,loc_BE9 ld hl, 2CABh - call sub_0_688 + call sub_688 -loc_0_BE9: ; CODE XREF: sub_0_BD3+Ej +loc_BE9: ; CODE XREF: sub_BD3+Ej xor a - ld (byte_0_2D04), a - call sub_0_FAA -loc_0_BF0: call sub_0_FC9 - call sub_0_D30 + ld (byte_2D04), a + call sub_FAA +loc_BF0: call sub_FC9 + call sub_D30 ld hl, 2CABh - ld de, 2CE0h - call sub_0_692 - ld hl,word_0_1808 - call sub_0_64E + ld de, loc_2CE0 + call sub_692 + ld hl,word_1808 + call sub_64E ld a, 9 - call sub_0_13BA -loc_0_C0A: call sub_0_FD1 - ld hl,stab_0_CE4 + call sub_13BA +loc_C0A: call sub_FD1 + ld hl,stab_CE4 ld bc, 7 cpir - jp z, sub_0_67F - ld a, 0FFh + jp z,sub_67F + ld a,0FFh scf ret -; End of function sub_0_BD3 +; End of function sub_BD3 ;---------------------------------------------------------------------------- -loc_0_C1C: LD HL,byte_0_2D04 +loc_C1C: LD HL,byte_2D04 INC (HL) - CALL sub_0_482 - LD HL,byte_0_2D04 + CALL sub_482 + LD HL,byte_2D04 LD A,0AH CP (HL) - JP NZ,loc_0_BF0 + JP NZ,loc_BF0 LD A,0FFH SCF RET -loc_0_C30: CALL loc_0_EC7 - JP loc_0_BF0 +loc_C30: CALL loc_EC7 + JP loc_BF0 -loc_0_C36: LD DE,2CA7H +loc_C36: LD DE,2CA7H LD HL,2CABH - CALL loc_0_6D3 - JP NZ,loc_0_BF0 + CALL loc_6D3 + JP NZ,loc_BF0 CALL 0D0EH - JR Z,loc_0_C50 + JR Z,loc_C50 LD A,0CH LD (0B0AH),A LD A,0FFH SCF RET -loc_0_C50: CALL sub_0_643 +loc_C50: CALL sub_643 LD A,0BH OR A RET -loc_0_C57: LD HL,byte_0_2D04 +loc_C57: LD HL,byte_2D04 INC (HL) - CALL sub_0_482 - LD HL,byte_0_2D04 + CALL sub_482 + LD HL,byte_2D04 LD A,0AH CP (HL) - JR NZ,loc_0_C6A + JR NZ,loc_C6A LD A,0FFH SCF RET -loc_0_C6A: LD HL,2CAFH - CALL sub_0_DDC - JP loc_0_BF0 +loc_C6A: LD HL,2CAFH + CALL sub_DDC + JP loc_BF0 -loc_0_C73: LD DE,2CA7H +loc_C73: LD DE,2CA7H LD HL,2CABH - CALL loc_0_6D3 + CALL loc_6D3 JP NZ,0C57H -loc_0_C7F: CALL loc_0_529 - CALL loc_0_EC7 - LD HL,stab_0_CF9 +loc_C7F: CALL loc_529 + CALL loc_EC7 + LD HL,stab_CF9 LD BC,7 CPIR JP Z,67FH - JP loc_0_C1C + JP loc_C1C -loc_0_C93: LD A,0FFH +loc_C93: LD A,0FFH SCF RET -sub_0_C97: XOR A - LD (byte_0_2D04),A +sub_C97: XOR A + LD (byte_2D04),A LD DE,2CF9H LD HL,2CABH LD BC,2CABH - CALL sub_0_6E4 - JP sub_0_FBA + CALL sub_6E4 + JP sub_FBA -loc_0_CAA: CALL sub_0_C97 - JP loc_0_C0A +loc_CAA: CALL sub_C97 + JP loc_C0A -loc_0_CB0: CALL sub_0_C97 - JP loc_0_C7F +loc_CB0: CALL sub_C97 + JP loc_C7F -loc_0_CB6: CALL sub_0_C97 +loc_CB6: CALL sub_C97 LD HL,2CABH - LD DE,2CE0H - CALL sub_0_692 + LD DE,loc_2CE0 + CALL sub_692 LD A,3 - CALL sub_0_13BA - JP loc_0_C7F + CALL sub_13BA + JP loc_C7F -loc_0_CCA: CALL sub_0_C97 - CALL sub_0_D30 +loc_CCA: CALL sub_C97 + CALL sub_D30 JP C,0C47H LD HL,2CABH - LD DE,2CE0H - CALL sub_0_692 + LD DE,loc_2CE0 + CALL sub_692 LD A,3 - CALL sub_0_13BA - JP loc_0_C0A + CALL sub_13BA + JP loc_C0A -stab_0_CE4: .db 6 +stab_CE4: .db 6 .db 0FEh .db 4 .db 0Bh @@ -1814,15 +1791,15 @@ stab_0_CE4: .db 6 .db 0Ah .db 0FCh - .dw loc_0_C1C - .dw loc_0_C73 - .dw loc_0_C57 - .dw loc_0_C36 - .dw loc_0_C30 - .dw loc_0_C1C - .dw loc_0_C1C + .dw loc_C1C + .dw loc_C73 + .dw loc_C57 + .dw loc_C36 + .dw loc_C30 + .dw loc_C1C + .dw loc_C1C -stab_0_CF9: .db 0EBh +stab_CF9: .db 0EBh .db 0EAh .db 0E9h .db 0E8h @@ -1830,92 +1807,92 @@ stab_0_CF9: .db 0EBh .db 0FEh .db 010h - .dw loc_0_C93 - .dw loc_0_C1C - .dw loc_0_C57 - .dw loc_0_CAA - .dw loc_0_CB0 - .dw loc_0_CB6 - .dw loc_0_CCA + .dw loc_C93 + .dw loc_C1C + .dw loc_C57 + .dw loc_CAA + .dw loc_CB0 + .dw loc_CB6 + .dw loc_CCA ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_D0E: ; CODE XREF: sub_0_8D1+8Bp - ; sub_0_11FA+64p - call sub_0_50B - call sub_0_D30 +sub_D0E: ; CODE XREF: sub_8D1+8Bp + ; sub_11FA+64p + call sub_50B + call sub_D30 ret c -loc_0_D15: ld a, 1Ah ; CODE XREF: sub_0_D0E+13j - call loc_0_D68 +loc_D15: ld a, 1Ah ; CODE XREF: sub_D0E+13j + call loc_D68 ret c - ld hl, byte_0_280E + ld hl,byte_280E ld a, 1 cp (hl) - jr nz, loc_0_D15 - ld a, 0 - ld (byte_0_2CA5), a + jr nz,loc_D15 + ld a,0 + ld (byte_2CA5), a ld c, 10h - ld de, byte_0_17A3 - jp sub_0_471 -; End of function sub_0_D0E + ld de,byte_17A3 + jp sub_471 +; End of function sub_D0E ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_D30: ; CODE XREF: sub_0_BD3+20p - ; sub_0_D0E+3p ... +sub_D30: ; CODE XREF: sub_BD3+20p + ; sub_D0E+3p ... ld bc, (2CF5h) ld a, b or c ret z - ld hl, (2CE9h) + ld hl, (word_2CE9) -loc_0_D3A: ; CODE XREF: sub_0_D30+2Ej - ld a, (byte_0_2CA3) +loc_D3A: ; CODE XREF: sub_D30+2Ej + ld a,(byte_2CA3) cp 0FFh - jr z, loc_0_D52 -loc_0_D41: - ld a, 0 ; DATA XREF: sub_0_D30+23w + jr z,loc_D52 +loc_D41: + ld a,0 ; DATA XREF: sub_D30+23w cp 0Dh - jr z, loc_0_D52 - ld a, (hl) + jr z,loc_D52 + ld a,(hl) cp 0Ah - jr nz, loc_0_D52 - ld a, 0Dh - call loc_0_D68 + jr nz,loc_D52 + ld a,0Dh + call loc_D68 ret c -loc_0_D52: ld a, (hl) ; CODE XREF: sub_0_D30+Fj sub_0_D30+15j - ld (loc_0_D41+1), a +loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j + ld (loc_D41+1), a inc hl dec bc - call loc_0_D68 + call loc_D68 ret c ld a, b or c - jr nz, loc_0_D3A - call sub_0_50B - call sub_0_FAA + jr nz,loc_D3A + call sub_50B + call sub_FAA xor a ret ;---------------------------------------------------------------------------- -loc_0_D68: ld (byte_0_D6F), a ; CODE XREF: sub_0_D0E+9p sub_0_D30+1Ep +loc_D68: ld (byte_D6F), a ; CODE XREF: sub_D0E+9p sub_D30+1Ep push bc push de push hl -byte_0_D6F: .equ $+1 -loc_0_D6E: LD C,0 - LD HL,byte_0_280E - CALL sub_0_669 - JR NZ,loc_0_0D97 - LD HL,byte_0_280E - CALL sub_0_64A +byte_D6F: .equ $+1 +loc_D6E: LD C,0 + LD HL,byte_280E + CALL sub_669 + JR NZ,loc_0D97 + LD HL,byte_280E + CALL sub_64A LD C,1AH ;set dma LD DE,2811H CALL bdos @@ -1923,37 +1900,37 @@ loc_0_D6E: LD C,0 LD E,1 CALL bdos LD C,15H ;wr. seq. - LD DE,byte_0_17A3 - CALL sub_0_471 - JR NC,loc_0_D6E -loc_0_0D97: POP HL + LD DE,byte_17A3 + CALL sub_471 + JR NC,loc_D6E +loc_0D97: POP HL POP DE POP BC RET -sub_0_D9B: LD HL,2CE0H - CALL sub_0_688 +sub_D9B: LD HL,loc_2CE0 + CALL sub_688 LD B,4 -loc_0_0DA3: PUSH BC +loc_0DA3: PUSH BC LD A,8 CALL 13BAH LD B,64H - CALL sub_0_DE7 - JR C,loc_0_DB8 + CALL sub_DE7 + JR C,loc_DB8 CP 4FH - JR Z,loc_0_DBC + JR Z,loc_DBC CP 0FDH - JR Z,loc_0_DBC -loc_0_DB8: POP BC - DJNZ loc_0_0DA3 + JR Z,loc_DBC +loc_DB8: POP BC + DJNZ loc_0DA3 PUSH BC -loc_0_DBC: POP BC +loc_DBC: POP BC LD B,1 - CALL sub_0_DE7 + CALL sub_DE7 XOR A RET -stab_0_DC4: .db 18h ; +stab_DC4: .db 18h ; .db 18h ; .db 18h ; .db 18h ; @@ -1978,128 +1955,128 @@ stab_0_DC4: .db 18h ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_DD9: ld hl,stab_0_DC4 ; CODE XREF: sub_0_8D1+83p -sub_0_DDC: ld a, (hl) ; CODE XREF: sub_0_DDC+9j sub_0_13BA+6p +sub_DD9: ld hl,stab_DC4 ; CODE XREF: sub_8D1+83p +sub_DDC: ld a,(hl) ; CODE XREF: sub_DDC+9j sub_13BA+6p inc hl or a ret z push hl - call loc_0_145C + call loc_145C pop hl - jr sub_0_DDC + jr sub_DDC ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_DE7: push bc ; CODE XREF: sub_0_FD1+11p - call sub_0_16AA ; sub_0_11C1+2Dp ... - call nz, sub_0_16A5 +sub_DE7: push bc ; CODE XREF: sub_FD1+11p + call sub_16AA ; sub_11C1+2Dp ... + call nz,sub_16A5 cp 1Bh ld a, 18h ld c, 0Ah - call z, sub_0_57F + call z,sub_57F pop bc -loc_0_DF8: call sub_0_5D4 ; CODE XREF: sub_0_DE7+16j - jr nz, loc_0_E03 - djnz loc_0_DF8 - ld a, 0FEh +loc_DF8: call sub_5D4 ; CODE XREF: sub_DE7+16j + jr nz,loc_E03 + djnz loc_DF8 + ld a,0FEh scf ret -loc_0_E03: or a ; CODE XREF: sub_0_DE7+14j +loc_E03: or a ; CODE XREF: sub_DE7+14j ret ;---------------------------------------------------------------------------- -loc_0_E05: LD B,64H - CALL sub_0_DE7 +loc_E05: LD B,64H + CALL sub_DE7 RET C AND 7FH - LD HL,loc_0_E2A + LD HL,loc_E2A LD BC,2 CPIR - JR Z,loc_0_E05 + JR Z,loc_E05 LD BC,3 CPIR RET Z LD B,A AND 60H - JR NZ,loc_0_E28 - LD A,(byte_0_2C9D) + JR NZ,loc_E28 + LD A,(byte_2C9D) OR A - JR NZ,loc_0_E05 -loc_0_E28: LD A,B + JR NZ,loc_E05 +loc_E28: LD A,B RET -loc_0_E2A: .db 11h ; dc1 +loc_E2A: .db 11h ; dc1 .db 13h ; dc3 .db 0dh ; cr .db 0ah ; lf .db 18h ; can -sub_0_E2F: ld b,64H - CALL sub_0_DE7 +sub_E2F: ld b,64H + CALL sub_DE7 RET C LD E,A -loc_0_E36: AND 60H +loc_E36: AND 60H LD A,E RET NZ CP 18H - JR Z,loc_0_E50 + JR Z,loc_E50 LD HL,0EA2H LD BC,4 CPIR - JR Z,sub_0_E2F - LD A,(byte_0_2C9D) + JR Z,sub_E2F + LD A,(byte_2C9D) OR A - JR NZ,sub_0_E2F + JR NZ,sub_E2F LD A,E RET -loc_0_E50: LD B,64H - CALL sub_0_DE7 +loc_E50: LD B,64H + CALL sub_DE7 RET C CP 18H - JR NZ,loc_0_0E74 + JR NZ,loc_0E74 LD B,64h - CALL sub_0_DE7 + CALL sub_DE7 RET C CP 18H - JR NZ,loc_0_0E74 + JR NZ,loc_0E74 LD B,64H - CALL sub_0_DE7 + CALL sub_DE7 RET C CP 18H - JR NZ,loc_0_0E74 + JR NZ,loc_0E74 LD B,64H - CALL sub_0_DE7 + CALL sub_DE7 RET C -loc_0_0E74: LD HL,loc_0_EA6 +loc_0E74: LD HL,loc_EA6 LD BC,0BH CPIR - JP Z,sub_0_67F + JP Z,sub_67F LD L,A - LD A,(byte_0_2C9D) + LD A,(byte_2C9D) OR A - JR Z,loc_0_E8B + JR Z,loc_E8B LD A,L AND 60H - JR Z,loc_0_E50 -loc_0_E8B: LD A,L + JR Z,loc_E50 +loc_E8B: LD A,L AND 60H CP 40H - JR NZ,loc_0_E9C + JR NZ,loc_E9C LD A,L XOR 40H RET -loc_0_E96: LD A,7FH +loc_E96: LD A,7FH RET -loc_0_E99: LD A,0FFH +loc_E99: LD A,0FFH RET -loc_0_E9C: LD A,0FFH -loc_0_E9E: OR 80H +loc_E9C: LD A,0FFH +loc_E9E: OR 80H SCF RET @@ -2107,7 +2084,7 @@ loc_0_E9E: OR 80H .db 91h ; ? .db 13h ; .db 93h ; ? -loc_0_EA6: .db 11h ; +loc_EA6: .db 11h ; .db 91h ; ? .db 13h ; .db 93h ; ? @@ -2119,45 +2096,45 @@ loc_0_EA6: .db 11h ; .db 6Ch ; l .db 6Dh ; m - .dw loc_0_E99 - .dw loc_0_E96 - .dw loc_0_E9E - .dw loc_0_E9E - .dw loc_0_E9E - .dw loc_0_E9E - .dw loc_0_E9E - .dw loc_0_E50 - .dw loc_0_E50 - .dw loc_0_E50 - .dw loc_0_E50 - -loc_0_EC7: OR A - LD HL,(word_0_2CEB) - LD DE,(word_0_2CEF) + .dw loc_E99 + .dw loc_E96 + .dw loc_E9E + .dw loc_E9E + .dw loc_E9E + .dw loc_E9E + .dw loc_E9E + .dw loc_E50 + .dw loc_E50 + .dw loc_E50 + .dw loc_E50 + +loc_EC7: OR A + LD HL,(word_2CEB) + LD DE,(word_2CEF) SBC HL,DE - JP C,sub_0_F4E - CALL sub_0_8A0 + JP C,sub_F4E + CALL sub_8A0 LD HL,0 LD (2CF9H),HL -loc_0_EDD: CALL sub_0_E2F - JP C,loc_0_F38 - CALL sub_0_FA2 - CALL Z,sub_0_7ED - CALL NZ,loc_0_885 - LD HL,(word_0_2CEB) - LD BC,(word_0_2CEF) +loc_EDD: CALL sub_E2F + JP C,loc_F38 + CALL sub_FA2 + CALL Z,sub_7ED + CALL NZ,loc_885 + LD HL,(word_2CEB) + LD BC,(word_2CEF) SBC HL,BC - JP Z,sub_0_F4E + JP Z,sub_F4E INC BC - LD (word_0_2CEF),BC + LD (word_2CEF),BC LD HL,(2CF9H) INC HL LD (2CF9H),HL - LD HL,(2CEDH) + LD HL,(word_2CED) LD (HL),A INC HL - LD (2CEDH),HL - JR loc_0_EDD + LD (word_2CED),HL + JR loc_EDD .db 0E8h ; è .db 0E9h ; é @@ -2167,13 +2144,13 @@ loc_0_EDD: CALL sub_0_E2F .db 0FFh ; ÿ .db 0FEh ; þ - .dw sub_0_F52 - .dw sub_0_F4E - .dw sub_0_F54 - .dw sub_0_F58 - .dw sub_0_F58 - .dw sub_0_F58 - .dw sub_0_F58 + .dw sub_F52 + .dw sub_F4E + .dw sub_F54 + .dw sub_F58 + .dw sub_F58 + .dw sub_F58 + .dw sub_F58 .db 0E8h ; è .db 0E9h ; é @@ -2183,15 +2160,15 @@ loc_0_EDD: CALL sub_0_E2F .db 0FFh ; ÿ .db 0FEh ; þ - .dw sub_0_F52 - .dw sub_0_F4E - .dw sub_0_F54 - .dw sub_0_F7C - .dw sub_0_F7C - .dw sub_0_F7C - .dw sub_0_F7C + .dw sub_F52 + .dw sub_F4E + .dw sub_F54 + .dw sub_F7C + .dw sub_F7C + .dw sub_F7C + .dw sub_F7C -loc_0_F38: +loc_F38: .db 21h ; ! .db 23h ; # .db 0Fh ; @@ -2215,20 +2192,20 @@ loc_0_F38: .db 7Fh ;  .db 6 ; -sub_0_F4E: +sub_F4E: .db 3Eh ; > .db 0FFh ; ÿ .db 37h ; 7 .db 0C9h ; É -sub_0_F52: +sub_F52: .db 37h ; 7 .db 0C9h ; É -sub_0_F54: +sub_F54: .db 3Eh ; > .db 10h ; .db 37h ; 7 .db 0C9h ; É -sub_0_F58: +sub_F58: .db 32h ; 2 .db 0FDh ; ý .db 2Ch ; , @@ -2266,7 +2243,7 @@ sub_0_F58: .db 0B7h ; · .db 0C9h ; É -sub_0_F7C: +sub_F7C: .db 32h ; 2 .db 0FDh ; ý .db 2Ch ; , @@ -2306,7 +2283,7 @@ sub_0_F7C: .db 73h ; s .db 0Fh ; -sub_0_FA2: .db 5Fh ; _ +sub_FA2: .db 5Fh ; _ .db 3Ah ; : .db 9Eh ; ? .db 2Ch ; , @@ -2318,15 +2295,15 @@ sub_0_FA2: .db 5Fh ; _ ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_FAA: ld hl, 2CE9h ; CODE XREF: seg000:0AE5p sub_0_BD3+1Ap - ld de, 2CEDh +sub_FAA: ld hl,word_2CE9 ; CODE XREF: seg000:0AE5p sub_BD3+1Ap + ld de,word_2CED ldi ldi ld hl, 0 - ld (word_0_2CEF), hl -sub_0_FBA: ld hl, 2CEDh ; CODE XREF: sub_0_11FA+4Ep + ld (word_2CEF), hl +sub_FBA: ld hl,word_2CED ; CODE XREF: sub_11FA+4Ep ld de, 2CF3h -loc_0_FC0: ldi ; CODE XREF: sub_0_FC9+6j +loc_FC0: ldi ; CODE XREF: sub_FC9+6j ldi ldi ldi @@ -2335,118 +2312,118 @@ loc_0_FC0: ldi ; CODE XREF: sub_0_FC9+6j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_FC9: ld hl, 2CF3h ; CODE XREF: sub_0_BD3+1Dp - ld de, 2CEDh ; sub_0_11FA+56p ... - jr loc_0_FC0 +sub_FC9: ld hl, 2CF3h ; CODE XREF: sub_BD3+1Dp + ld de,word_2CED ; sub_11FA+56p ... + jr loc_FC0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_FD1: xor a ; CODE XREF: sub_0_BD3+37p - ld (byte_0_2D01), a +sub_FD1: xor a ; CODE XREF: sub_BD3+37p + ld (byte_2D01), a ld hl, 400h ld (2CFEh), hl -loc_0_FDB: ld a, 5 ; CODE XREF: sub_0_FD1+61j - ld (byte_0_2D00), a -loc_0_FE0: ld b, 64h - call sub_0_DE7 - jp c, loc_0_108A - ld hl, stab_0_109E +loc_FDB: ld a, 5 ; CODE XREF: sub_FD1+61j + ld (byte_2D00), a +loc_FE0: ld b, 64h + call sub_DE7 + jp c, loc_108A + ld hl, stab_109E ld bc, 3 cpir - jp z, sub_0_67F - jr loc_0_1024 + jp z,sub_67F + jr loc_1024 ;---------------------------------------------------------------------------- - LD HL,byte_0_2D00 + LD HL,byte_2D00 DEC (HL) LD A,10H - JP Z,loc_0_108A + JP Z,loc_108A LD B,0AH - CALL sub_0_DE7 - JR C,loc_0_FE0 - LD HL,stab_0_10A7 + CALL sub_DE7 + JR C,loc_FE0 + LD HL,stab_10A7 LD BC,2 CPIR JP Z,67FH - JR loc_0_1024 + JR loc_1024 - LD HL,byte_0_2D00 + LD HL,byte_2D00 DEC (HL) LD A,10H - JP Z,loc_0_108A - JR loc_0_FE0 + JP Z,loc_108A + JR loc_FE0 LD B,0AH - CALL sub_0_DE7 - JR C,loc_0_1035 -loc_0_1024: ld hl, (2CFEh) ; CODE XREF: sub_0_FD1+22j + CALL sub_DE7 + JR C,loc_1035 +loc_1024: ld hl, (2CFEh) ; CODE XREF: sub_FD1+22j dec hl ld (2CFEh), hl ld a, h or l - ld a, 0FCh - jp z, loc_0_108A - jp loc_0_FDB + ld a,0FCh + jp z,loc_108A + jp loc_FDB ;---------------------------------------------------------------------------- -loc_0_1035: LD A,0FFH ;1035 3e ff - JP loc_0_108A ;1037 c3 8a 10 +loc_1035: LD A,0FFH ;1035 3e ff + JP loc_108A ;1037 c3 8a 10 LD A,5 ;103a 3e 05 - LD (byte_0_2D00),A ;103c 32 00 2d - CALL loc_0_E05 ;103f cd 05 0e - JR C,loc_0_108A ;1042 38 46 - LD HL,stab_0_10AD ;1044 21 ad 10 + LD (byte_2D00),A ;103c 32 00 2d + CALL loc_E05 ;103f cd 05 0e + JR C,loc_108A ;1042 38 46 + LD HL,stab_10AD ;1044 21 ad 10 LD BC,2 ;1047 01 02 00 CPIR ;104a ed b1 - JP Z,sub_0_67F ;104c ca 7f 06 - JR loc_0_1024 ;104f 18 d3 + JP Z,sub_67F ;104c ca 7f 06 + JR loc_1024 ;104f 18 d3 - CALL loc_0_E05 ;1051 cd 05 0e - JR C,loc_0_108A ;1054 38 34 - LD HL,stab_0_10B3 ;1056 21 b3 10 + CALL loc_E05 ;1051 cd 05 0e + JR C,loc_108A ;1054 38 34 + LD HL,stab_10B3 ;1056 21 b3 10 LD BC,4 ;1059 01 04 00 CPIR ;105c ed b1 - JP Z,sub_0_67F ;105e ca 7f 06 - JR loc_0_1024 ;1061 18 c1 + JP Z,sub_67F ;105e ca 7f 06 + JR loc_1024 ;1061 18 c1 LD A,10H ;1063 3e 10 - LD (byte_0_2C9E),A ;1065 32 9e 2c - CALL sub_0_113F ;1068 cd 3f 11 + LD (byte_2C9E),A ;1065 32 9e 2c + CALL sub_113F ;1068 cd 3f 11 JR 107FH ;106b 18 12 ; LD A,10H ;106d 3e 10 - LD (byte_0_2C9E),A ;106f 32 9e 2c - CALL sub_0_1100 ;1072 cd 00 11 - JR loc_0_107F ;1075 18 08 + LD (byte_2C9E),A ;106f 32 9e 2c + CALL sub_1100 ;1072 cd 00 11 + JR loc_107F ;1075 18 08 LD A,20H ;1077 3e 20 - LD (byte_0_2C9E),A ;1079 32 9e 2c + LD (byte_2C9E),A ;1079 32 9e 2c CALL 10C5H ;107c cd c5 10 -loc_0_107F: PUSH AF ;107f f5 +loc_107F: PUSH AF ;107f f5 LD HL,2CA7H ;1080 21 a7 2c LD DE,2CE4H ;1083 11 e4 2c - CALL sub_0_692 ;1086 cd 92 06 + CALL sub_692 ;1086 cd 92 06 POP AF ;1089 f1 -loc_0_108A: ld hl, 10BFh ; CODE XREF: sub_0_FD1+14j - ld bc, 6 ; sub_0_FD1+5Ej +loc_108A: ld hl, 10BFh ; CODE XREF: sub_FD1+14j + ld bc, 6 ; sub_FD1+5Ej cpir - jr nz, loc_0_109C + jr nz,loc_109C cp 98h - jr nz, loc_0_109A + jr nz,loc_109A ld a, 10h -loc_0_109A: scf ; CODE XREF: sub_0_FD1+C5j +loc_109A: scf ; CODE XREF: sub_FD1+C5j ret -loc_0_109C: or a ; CODE XREF: sub_0_FD1+C1j +loc_109C: or a ; CODE XREF: sub_FD1+C1j ret ;---------------------------------------------------------------------------- -stab_0_109E: .db 18h ; +stab_109E: .db 18h ; .db 0AAh ; ª .db 2Ah ; * .db 3Ah ; : @@ -2456,21 +2433,21 @@ stab_0_109E: .db 18h ; .db 0F5h ; õ .db 0Fh ; -stab_0_10A7: .db 6Bh ; k +stab_10A7: .db 6Bh ; k .db 18h ; .db 12h ; .db 10h ; .db 1Dh ; .db 10h ; -stab_0_10AD: .db 2Ah ; * +stab_10AD: .db 2Ah ; * .db 18h ; .db 51h ; Q .db 10h ; .db 3Fh ; ? .db 10h ; -stab_0_10B3: .db 43h ; C +stab_10B3: .db 43h ; C .db 41h ; A .db 42h ; B .db 18h ; @@ -2489,17 +2466,17 @@ stab_0_10B3: .db 43h ; C .db 0FEh ; þ .db 0FCh ; ü - CALL sub_0_8A0 ;10c5 cd a0 08 - CALL sub_0_E2F ;10c8 cd 2f 0e + CALL sub_8A0 ;10c5 cd a0 08 + CALL sub_E2F ;10c8 cd 2f 0e RET C ;10cb d8 - LD (byte_0_2D01),A ;10cc 32 01 2d - CALL sub_0_7ED ;10cf cd ed 07 + LD (byte_2D01),A ;10cc 32 01 2d + CALL sub_7ED ;10cf cd ed 07 LD HL,2CA7H ;10d2 21 a7 2c LD B,4 ;10d5 06 04 PUSH BC ;10d7 c5 PUSH HL ;10d8 e5 - CALL sub_0_E2F ;10d9 cd 2f 0e - CALL sub_0_7ED ;10dc cd ed 07 + CALL sub_E2F ;10d9 cd 2f 0e + CALL sub_7ED ;10dc cd ed 07 POP HL ;10df e1 POP BC ;10e0 c1 LD (HL),A ;10e1 77 @@ -2508,19 +2485,19 @@ stab_0_10B3: .db 43h ; C DJNZ 10D7H ;10e4 10 f1 LD B,4 ;10e6 06 04 PUSH BC ;10e8 c5 - CALL sub_0_E2F ;10e9 cd 2f 0e - CALL sub_0_7ED ;10ec cd ed 07 + CALL sub_E2F ;10e9 cd 2f 0e + CALL sub_7ED ;10ec cd ed 07 POP BC ;10ef c1 RET C ;10f0 d8 DJNZ 10E8H ;10f1 10 f5 LD HL,2899H ;10f3 21 99 28 LD DE,7E9H ;10f6 11 e9 07 - CALL loc_0_6D3 ;10f9 cd d3 06 + CALL loc_6D3 ;10f9 cd d3 06 JR Z,1132H ;10fc 28 34 JR 113BH ;10fe 18 3b ; -sub_0_1100: CALL sub_0_8A0 ;1100 cd a0 08 - CALL sub_0_E2F ;1103 cd 2f 0e +sub_1100: CALL sub_8A0 ;1100 cd a0 08 + CALL sub_E2F ;1103 cd 2f 0e RET C ;1106 d8 LD (2D01H),A ;1107 32 01 2d CALL 885H ;110a cd 85 08 @@ -2528,7 +2505,7 @@ sub_0_1100: CALL sub_0_8A0 ;1100 cd a0 08 LD B,4 ;1110 06 04 PUSH BC ;1112 c5 PUSH HL ;1113 e5 - CALL sub_0_E2F ;1114 cd 2f 0e + CALL sub_E2F ;1114 cd 2f 0e CALL 885H ;1117 cd 85 08 POP HL ;111a e1 POP BC ;111b c1 @@ -2538,7 +2515,7 @@ sub_0_1100: CALL sub_0_8A0 ;1100 cd a0 08 DJNZ 1112H ;111f 10 f1 LD B,2 ;1121 06 02 PUSH BC ;1123 c5 - CALL sub_0_E2F ;1124 cd 2f 0e + CALL sub_E2F ;1124 cd 2f 0e CALL 885H ;1127 cd 85 08 POP BC ;112a c1 RET C ;112b d8 @@ -2555,7 +2532,7 @@ sub_0_1100: CALL sub_0_8A0 ;1100 cd a0 08 SCF ;113d 37 RET ;113e c9 -sub_0_113F: CALL sub_0_8A0 ;113f cd a0 08 +sub_113F: CALL sub_8A0 ;113f cd a0 08 CALL 1194H ;1142 cd 94 11 RET C ;1145 d8 LD (2D01H),A ;1146 32 01 2d @@ -2605,34 +2582,34 @@ sub_0_113F: CALL sub_0_8A0 ;113f cd a0 08 SCF ;1192 37 RET ;1193 c9 - CALL loc_0_E05 ;1194 cd 05 0e + CALL loc_E05 ;1194 cd 05 0e RET C ;1197 d8 - CALL sub_0_11B3 ;1198 cd b3 11 - JR NZ,loc_0_11AF ;119b 20 12 + CALL sub_11B3 ;1198 cd b3 11 + JR NZ,loc_11AF ;119b 20 12 RLCA ;119d 07 RLCA ;119e 07 RLCA ;119f 07 RLCA ;11a0 07 LD B,A ;11a1 47 PUSH BC ;11a2 c5 - CALL loc_0_E05 ;11a3 cd 05 0e + CALL loc_E05 ;11a3 cd 05 0e POP BC ;11a6 c1 RET C ;11a7 d8 - CALL sub_0_11B3 ;11a8 cd b3 11 - JR NZ,loc_0_11AF ;11ab 20 02 + CALL sub_11B3 ;11a8 cd b3 11 + JR NZ,loc_11AF ;11ab 20 02 OR B ;11ad b0 RET ;11ae c9 ; -loc_0_11AF: LD A,0FFH ;11af 3e ff +loc_11AF: LD A,0FFH ;11af 3e ff SCF ;11b1 37 RET ;11b2 c9 ; -sub_0_11B3: LD L,A ;11b3 6f +sub_11B3: LD L,A ;11b3 6f SUB 30H ;11b4 d6 30 CP 0AH ;11b6 fe 0a - JR C,loc_0_11BC ;11b8 38 02 + JR C,loc_11BC ;11b8 38 02 SUB 27H ;11ba d6 27 -loc_0_11BC: LD L,A ;11bc 6f +loc_11BC: LD L,A ;11bc 6f AND 0F0H ;11bd e6 f0 LD A,L ;11bf 7d RET ;11c0 c9 @@ -2641,154 +2618,154 @@ loc_0_11BC: LD L,A ;11bc 6f ; S u b r o u t i n e -sub_0_11C1: ; CODE XREF: sub_0_8D1+63p - ; sub_0_11C1+30j - ld a, 0FFh - ld (byte_0_2D02), a - call sub_0_FAA - ld a, (byte_0_2C9E) +sub_11C1: ; CODE XREF: sub_8D1+63p + ; sub_11C1+30j + ld a,0FFh + ld (byte_2D02), a + call sub_FAA + ld a,(byte_2C9E) cp 10h ld a, 43h - jr z, loc_0_11D4 + jr z,loc_11D4 ld a, 15h -loc_0_11D4: ; CODE XREF: sub_0_11C1+Fj - call loc_0_145C +loc_11D4: ; CODE XREF: sub_11C1+Fj + call loc_145C ld b, 64h - call sub_0_1289 + call sub_1289 or a - jr z, loc_0_11F3 + jr z,loc_11F3 cp 0F6h - jr z, loc_0_11E7 - ld a, 0FFh + jr z,loc_11E7 + ld a,0FFh scf ret ;---------------------------------------------------------------------------- -loc_0_11E7: ; CODE XREF: sub_0_11C1+20j +loc_11E7: ; CODE XREF: sub_11C1+20j ld a, 6 - call loc_0_145C + call loc_145C ld b, 0Ah - call sub_0_DE7 - jr sub_0_11C1 + call sub_DE7 + jr sub_11C1 ;---------------------------------------------------------------------------- -loc_0_11F3: ; CODE XREF: sub_0_11C1+1Cj +loc_11F3: ; CODE XREF: sub_11C1+1Cj ld a, 6 - call loc_0_145C + call loc_145C xor a ret -; End of function sub_0_11C1 +; End of function sub_11C1 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_11FA: ; CODE XREF: sub_0_8D1+6Fp - ; sub_0_8D1+7Dp ... - ld a, 0FFh - ld (byte_0_2D02), a - ld (byte_0_2CA3), a +sub_11FA: ; CODE XREF: sub_8D1+6Fp + ; sub_8D1+7Dp ... + ld a,0FFh + ld (byte_2D02), a + ld (byte_2CA3), a xor a - ld (byte_0_2D07), a - call sub_0_FAA + ld (byte_2D07), a + call sub_FAA ld hl, 2CABh - call sub_0_688 - ld a, (byte_0_2C9E) + call sub_688 + ld a,(byte_2C9E) cp 10h ld a, 43h - jr z, loc_0_121A + jr z,loc_121A ld a, 15h -loc_0_121A: call loc_0_145C ; CODE XREF: sub_0_11FA+1Cj -loc_0_121D: ld a, (byte_0_2D07) ; CODE XREF: sub_0_11FA+5Ej +loc_121A: call loc_145C ; CODE XREF: sub_11FA+1Cj +loc_121D: ld a,(byte_2D07) ; CODE XREF: sub_11FA+5Ej or a ld b, 82h - jr z, loc_0_1227 + jr z,loc_1227 ld b, 32h -loc_0_1227: call sub_0_1289 ; CODE XREF: sub_0_11FA+29j - jr c, loc_0_125A +loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j + jr c, loc_125A push af - call sub_0_50B + call sub_50B pop af - ld hl, byte_0_2D07 + ld hl,byte_2D07 cp (hl) - jr z, loc_0_1250 + jr z,loc_1250 dec a cp (hl) - jr nz, loc_0_126D + jr nz,loc_126D inc (hl) - ld de, word_0_2CEF + ld de,word_2CEF ld hl, 2CABh ld bc, 2CABh - call sub_0_6E4 - call sub_0_FBA - call sub_0_D30 - jr c, loc_0_1285 + call sub_6E4 + call sub_FBA + call sub_D30 + jr c, loc_1285 -loc_0_1250: call sub_0_FC9 ; CODE XREF: sub_0_11FA+3Bj +loc_1250: call sub_FC9 ; CODE XREF: sub_11FA+3Bj ld a, 6 - call loc_0_145C - jr loc_0_121D + call loc_145C + jr loc_121D ;---------------------------------------------------------------------------- -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 - call sub_0_643 +loc_125A: cp 0F6h ; CODE XREF: sub_11FA+30j + jr nz,loc_126D + call sub_D0E + jr c, loc_1285 + call sub_643 ld a, 6 - call loc_0_145C + call loc_145C xor a ret ;---------------------------------------------------------------------------- -loc_0_126D: ; CODE XREF: sub_0_11FA+3Fj - ; sub_0_11FA+62j +loc_126D: ; CODE XREF: sub_11FA+3Fj + ; sub_11FA+62j cp 0FFh - jr nz, loc_0_1285 - ld a, (byte_0_2D02) + jr nz,loc_1285 + ld a,(byte_2D02) cp 0FFh - jr nz, loc_0_1285 - ld a, (byte_0_2C9E) + jr nz,loc_1285 + ld a,(byte_2C9E) or a - jr z, loc_0_1285 + jr z,loc_1285 xor a - ld (byte_0_2C9E), a - jp sub_0_11FA + ld (byte_2C9E), a + jp sub_11FA ;---------------------------------------------------------------------------- -loc_0_1285: ; CODE XREF: sub_0_11FA+54j - ; sub_0_11FA+67j ... - ld a, 0FFh +loc_1285: ; CODE XREF: sub_11FA+54j + ; sub_11FA+67j ... + ld a,0FFh scf ret -; End of function sub_0_11FA +; End of function sub_11FA ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1289: ; CODE XREF: sub_0_11C1+18p - ; sub_0_11FA+2Dp +sub_1289: ; CODE XREF: sub_11C1+18p + ; sub_11FA+2Dp ld a, b - ld (byte_0_2D03), a + ld (byte_2D03), a xor a - ld (byte_0_2D04), a - ld a, 0 - ld (byte_0_2D09), a + ld (byte_2D04), a + ld a,0 + ld (byte_2D09), a -loc_0_1296: ; CODE XREF: sub_0_1289+12Aj - ld a, (byte_0_2D03) +loc_1296: ; CODE XREF: sub_1289+12Aj + ld a,(byte_2D03) ld b, a - call sub_0_DE7 - ld (byte_0_2D08), a + call sub_DE7 + ld (byte_2D08), a ld hl, 12AEh ld bc, 4 cpir - jp z, sub_0_67F - jp loc_0_137A + jp z,sub_67F + jp loc_137A ;---------------------------------------------------------------------------- .db 2 ; .db 1 ; @@ -2816,17 +2793,17 @@ loc_0_1296: ; CODE XREF: sub_0_1289+12Aj .db 2Dh ; - ld b,0ah - call sub_0_DE7 + call sub_DE7 ld (12D9H),A - jp c,loc_0_137A + jp c,loc_137A ld b,0ah - call sub_0_DE7 - jp c,loc_0_137A + call sub_DE7 + jp c,loc_137A add a,0 cp 0ffh - jp nz,loc_0_137A - call sub_0_8A0 - ld ix,(2CEDH) + jp nz,loc_137A + call sub_8A0 + ld ix,(word_2CED) ld b,0ah .db 0DDh ; Ý @@ -2940,115 +2917,115 @@ loc_0_1296: ; CODE XREF: sub_0_1289+12Aj .db 12h ; .db 0C9h ; É - ld a,(byte_0_2D08) + ld a,(byte_2D08) ld l,a ld a,(smod_b_7DF) sub l jr z,$-15h - jp loc_0_137A + jp loc_137A ld b,0ah - call sub_0_DE7 + call sub_DE7 ld a,0f6h ret c - jp loc_0_137A + jp loc_137A ld a,0ffh - ld hl,byte_0_2D09 + ld hl,byte_2D09 cp (hl) - jr nz,loc_0_1367 + jr nz,loc_1367 ld a,0ffh scf ret -loc_0_1367: ld (hl),a - jp loc_0_13A4 +loc_1367: ld (hl),a + jp loc_13A4 ;---------------------------------------------------------------------------- -loc_0_137A: ; CODE XREF: sub_0_1289+22j - ld a, 0 - ld (byte_0_2D09), a +loc_137A: ; CODE XREF: sub_1289+22j + ld a,0 + ld (byte_2D09), a -loc_0_137F: ; CODE XREF: sub_0_1289+FBj +loc_137F: ; CODE XREF: sub_1289+FBj ld b, 0Ah - call sub_0_DE7 - jr nc, loc_0_137F - ld a, (byte_0_2D02) + call sub_DE7 + jr nc, loc_137F + ld a,(byte_2D02) cp 0FFh - jr nz, loc_0_139A - ld a, (byte_0_2C9E) + jr nz,loc_139A + ld a,(byte_2C9E) cp 10h ld a, 43h - jr z, loc_0_13A1 + jr z,loc_13A1 ld a, 15h - jr loc_0_13A1 + jr loc_13A1 ;---------------------------------------------------------------------------- -loc_0_139A: ld a, 28h ; CODE XREF: sub_0_1289+102j - ld (byte_0_2D03), a +loc_139A: ld a, 28h ; CODE XREF: sub_1289+102j + ld (byte_2D03), a ld a, 15h -loc_0_13A1: call loc_0_145C ; CODE XREF: sub_0_1289+10Bj -loc_0_13A4: call sub_0_FC9 ; sub_0_1289+10Fj - ld hl, byte_0_2D04 +loc_13A1: call loc_145C ; CODE XREF: sub_1289+10Bj +loc_13A4: call sub_FC9 ; sub_1289+10Fj + ld hl,byte_2D04 inc (hl) - call sub_0_482 - ld a, (byte_0_2D04) + call sub_482 + ld a,(byte_2D04) cp 5 - jp nz, loc_0_1296 - ld a, 0FFh + jp nz,loc_1296 + ld a,0FFh scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_13BA: ld (byte_0_2CE8), a ; CODE XREF: sub_0_BD3+34p - ld hl,loc_0_1403 - call sub_0_DDC - call sub_0_8A0 - ld a, (byte_0_2CE8) - call loc_0_885 - call sub_0_1418 - ld hl, 2CE0h +sub_13BA: ld (byte_2CE8), a ; CODE XREF: sub_BD3+34p + ld hl,loc_1403 + call sub_DDC + call sub_8A0 + ld a,(byte_2CE8) + call loc_885 + call sub_1418 + ld hl, loc_2CE0 ld b, 4 -loc_0_13D4: push bc ; CODE XREF: sub_0_13BA+26j - ld a, (hl) +loc_13D4: push bc ; CODE XREF: sub_13BA+26j + ld a,(hl) inc hl push hl - call loc_0_885 - call sub_0_1418 + call loc_885 + call sub_1418 pop hl pop bc - djnz loc_0_13D4 - ld a, (smod_w_887+1) - call sub_0_1418 - ld a, (smod_w_887) - call sub_0_1418 - ld a, 0Dh - call loc_0_145C - ld a, 0Ah - call loc_0_145C - ld a, (byte_0_2CE8) + djnz loc_13D4 + ld a,(smod_w_887+1) + call sub_1418 + ld a,(smod_w_887) + call sub_1418 + ld a,0Dh + call loc_145C + ld a,0Ah + call loc_145C + ld a,(byte_2CE8) cp 8 ret z ld a, 11h - jp loc_0_145C + jp loc_145C ;---------------------------------------------------------------------------- -loc_0_1403: .db 2Ah ; * +loc_1403: .db 2Ah ; * .db 2Ah ; * .db 18h ; .db 42h ; B .db 0 ; -loc_0_1408: .text "0123456789abcdef" +loc_1408: .text "0123456789abcdef" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1418: push af ; CODE XREF: sub_0_13BA+12p - ld hl,loc_0_1408 ; sub_0_13BA+21p ... +sub_1418: push af ; CODE XREF: sub_13BA+12p + ld hl,loc_1408 ; sub_13BA+21p ... ld b, 0 rra rra @@ -3057,50 +3034,50 @@ sub_0_1418: push af ; CODE XREF: sub_0_13BA+12p and 0Fh ld c, a add hl, bc - ld a, (hl) - call loc_0_145C + ld a,(hl) + call loc_145C pop af - ld hl,loc_0_1408 + ld hl,loc_1408 ld b, 0 and 0Fh ld c, a add hl, bc - ld a, (hl) - jp loc_0_145C + ld a,(hl) + jp loc_145C ;---------------------------------------------------------------------------- -loc_0_1438: LD (smod_b_145B),A - LD BC,+(loc_0_1480-stab_0_7B3) - LD HL,stab_0_7B3 +loc_1438: LD (smod_b_145B),A + LD BC,+(loc_1480-stab_7B3) + LD HL,stab_7B3 CPIR - JP Z,sub_0_67F + JP Z,sub_67F AND 60H - JR NZ,loc_0_145A - LD A,(byte_0_2C9D) + JR NZ,loc_145A + LD A,(byte_2C9D) OR A - JR Z,loc_0_145A -loc_0_1450: LD HL,smod_b_145B + JR Z,loc_145A +loc_1450: LD HL,smod_b_145B SET 6,(HL) LD A,18H - CALL loc_0_145C + CALL loc_145C smod_b_145B: .equ $+1 -loc_0_145A: LD A,0 -loc_0_145C: LD (smod_b_1468),A -loc_0_145F: CALL sub_0_588 - CALL sub_0_5CD - JR Z,loc_0_145F +loc_145A: LD A,0 +loc_145C: LD (smod_b_1468),A +loc_145F: CALL sub_588 + CALL sub_5CD + JR Z,loc_145F smod_b_1468: .equ $+1 LD A,0 - JP loc_0_5C7 + JP loc_5C7 -loc_0_146C: LD A,(smod_b_1468) +loc_146C: LD A,(smod_b_1468) AND 7FH CP 40H - JR NZ,loc_0_145A - JR loc_0_1450 + JR NZ,loc_145A + JR loc_1450 -stab_0_7B3: .db 18h +stab_7B3: .db 18h .db 0Dh .db 8Dh .db 10h @@ -3110,129 +3087,129 @@ stab_0_7B3: .db 18h .db 13h .db 93h -loc_0_1480: .dw loc_0_1450 - .dw loc_0_1450 - .dw loc_0_1450 - .dw loc_0_1450 - .dw loc_0_1450 - .dw loc_0_1450 - .dw loc_0_146C - .dw loc_0_146C - .dw loc_0_1450 +loc_1480: .dw loc_1450 + .dw loc_1450 + .dw loc_1450 + .dw loc_1450 + .dw loc_1450 + .dw loc_1450 + .dw loc_146C + .dw loc_146C + .dw loc_1450 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1492: push bc ; CODE XREF: start+56p sub_0_961+79p - ld (byte_0_2D0A), a - call sub_0_171E +sub_1492: push bc ; CODE XREF: start+56p sub_961+79p + ld (byte_2D0A), a + call sub_171E push de - call sub_0_162C + call sub_162C ld (de), a pop de push de - call sub_0_14A7 + call sub_14A7 pop de pop bc - jr loc_0_151D + jr loc_151D ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_14A7: xor a ; CODE XREF: sub_0_1492+Ep +sub_14A7: xor a ; CODE XREF: sub_1492+Ep ld (de), a - ld (byte_0_2D0D), a - ld (byte_0_2D0C), a - call sub_0_1687 + ld (byte_2D0D), a + ld (byte_2D0C), a + call sub_1687 ld a, c - ld (byte_0_2D0E), a + ld (byte_2D0E), a push de - ld a, (hl) + ld a,(hl) cp 3Ah - jr nz, loc_0_14BD + jr nz,loc_14BD inc hl -loc_0_14BD: ld b, 8 ; CODE XREF: sub_0_14A7+13j - call sub_0_1522 +loc_14BD: ld b, 8 ; CODE XREF: sub_14A7+13j + call sub_1522 pop de - ld a, (hl) - ld (byte_0_2D0B), a + ld a,(hl) + ld (byte_2D0B), a cp 3Ah - jr nz, loc_0_14FE + jr nz,loc_14FE inc hl - ld a, (byte_0_2D0A) + ld a,(byte_2D0A) or a - jr z, loc_0_14D7 - call sub_0_154A - jr z, loc_0_14E5 -loc_0_14D7: call sub_0_159D ; CODE XREF: sub_0_14A7+29j - jr z, loc_0_14E5 - ld a, (byte_0_2D0A) + jr z,loc_14D7 + call sub_154A + jr z,loc_14E5 +loc_14D7: call sub_159D ; CODE XREF: sub_14A7+29j + jr z,loc_14E5 + ld a,(byte_2D0A) or a - jr nz, loc_0_14E5 - call sub_0_154A -loc_0_14E5: ld a, (byte_0_2D0D); CODE XREF: sub_0_14A7+2Ej - ld (de), a ; sub_0_14A7+33j ... + jr nz,loc_14E5 + call sub_154A +loc_14E5: ld a,(byte_2D0D); CODE XREF: sub_14A7+2Ej + ld (de), a ; sub_14A7+33j ... push de inc de - call sub_0_1632 + call sub_1632 pop de xor a - ld (byte_0_2D0C), a + ld (byte_2D0C), a push de ld b, 8 - call sub_0_1522 + call sub_1522 pop de - ld a, (hl) - ld (byte_0_2D0B), a -loc_0_14FE: ld a, (byte_0_2D0B); CODE XREF: sub_0_14A7+22j + ld a,(hl) + ld (byte_2D0B), a +loc_14FE: ld a,(byte_2D0B); CODE XREF: sub_14A7+22j ex de, hl ld bc, 8 add hl, bc ex de, hl ld b, 3 cp 2Eh - jr nz, loc_0_1513 + jr nz,loc_1513 inc hl push de - call sub_0_1522 + call sub_1522 pop de -loc_0_1513: ex de, hl ; CODE XREF: sub_0_14A7+64j +loc_1513: ex de, hl ; CODE XREF: sub_14A7+64j ld bc, 5 add hl, bc ex de, hl - ld a, (byte_0_2D0E) + ld a,(byte_2D0E) ld (de), a -loc_0_151D: ld a, (byte_0_2D0C); CODE XREF: sub_0_1492+13j +loc_151D: ld a,(byte_2D0C); CODE XREF: sub_1492+13j or a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1522: call sub_0_15D9 ; CODE XREF: sub_0_14A7+18p - ret z ; sub_0_14A7+4Fp ... +sub_1522: call sub_15D9 ; CODE XREF: sub_14A7+18p + ret z ; sub_14A7+4Fp ... inc de cp 2Ah - jr nz, loc_0_1533 + jr nz,loc_1533 ld a, 3Fh ld (de), a - call sub_0_1543 - jr loc_0_153A -loc_0_1533: ld (de), a ; CODE XREF: sub_0_1522+7j + call sub_1543 + jr loc_153A +loc_1533: ld (de), a ; CODE XREF: sub_1522+7j inc hl cp 3Fh - call z, sub_0_1543 -loc_0_153A: djnz sub_0_1522 ; CODE XREF: sub_0_1522+Fj -loc_0_153C: call sub_0_15D9 ; CODE XREF: sub_0_1522+1Fj + call z,sub_1543 +loc_153A: djnz sub_1522 ; CODE XREF: sub_1522+Fj +loc_153C: call sub_15D9 ; CODE XREF: sub_1522+1Fj ret z inc hl - jr loc_0_153C + jr loc_153C ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1543: push hl ; CODE XREF: sub_0_1522+Cp - ld hl, byte_0_2D0C ; sub_0_1522+15p +sub_1543: push hl ; CODE XREF: sub_1522+Cp + ld hl,byte_2D0C ; sub_1522+15p inc (hl) pop hl ret @@ -3240,9 +3217,9 @@ sub_0_1543: push hl ; CODE XREF: sub_0_1522+Cp ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_154A: push hl ; CODE XREF: sub_0_14A7+2Bp - push de ; sub_0_14A7+3Bp - call sub_0_1552 +sub_154A: push hl ; CODE XREF: sub_14A7+2Bp + push de ; sub_14A7+3Bp + call sub_1552 pop de pop hl ret @@ -3250,58 +3227,58 @@ sub_0_154A: push hl ; CODE XREF: sub_0_14A7+2Bp ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1552: call sub_0_164A ; CODE XREF: sub_0_154A+2p - jr z, loc_0_15CA +sub_1552: call sub_164A ; CODE XREF: sub_154A+2p + jr z,loc_15CA ex de, hl inc hl - call sub_0_1652 + call sub_1652 ld b, a inc b - ld a, (hl) + ld a,(hl) cp 41h - jr c, loc_0_1574 + jr c, loc_1574 sub 40h cp b - jr nc, loc_0_15CA - ld (byte_0_2D0D), a + jr nc, loc_15CA + ld (byte_2D0D), a inc hl - ld a, (hl) + ld a,(hl) cp 20h ret z - call sub_0_1625 + call sub_1625 ret c -loc_0_1574: push hl ; CODE XREF: sub_0_1552+Fj +loc_1574: push hl ; CODE XREF: sub_1552+Fj ld b, 2 -loc_0_1577: ld a, (hl) ; CODE XREF: sub_0_1552+30j +loc_1577: ld a,(hl) ; CODE XREF: sub_1552+30j cp 20h - jr z, loc_0_1589 - call sub_0_1625 - jr c, loc_0_159A + jr z,loc_1589 + call sub_1625 + jr c, loc_159A inc hl - djnz loc_0_1577 - ld a, (hl) + djnz loc_1577 + ld a,(hl) cp 20h - jr nz, loc_0_159A -loc_0_1589: pop hl ; CODE XREF: sub_0_1552+28j - call sub_0_165A + jr nz,loc_159A +loc_1589: pop hl ; CODE XREF: sub_1552+28j + call sub_165A ld c, a inc c - call sub_0_15FA + call sub_15FA cp c - jr nc, loc_0_15CA - ld (byte_0_2D0E), a + jr nc, loc_15CA + ld (byte_2D0E), a xor a ret -loc_0_159A: pop hl ; CODE XREF: sub_0_1552+2Dj - jr loc_0_15CA ; sub_0_1552+35j +loc_159A: pop hl ; CODE XREF: sub_1552+2Dj + jr loc_15CA ; sub_1552+35j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_159D: push hl ; CODE XREF: sub_0_14A7+30p +sub_159D: push hl ; CODE XREF: sub_14A7+30p push de - call sub_0_15A5 + call sub_15A5 pop de pop hl ret @@ -3309,51 +3286,51 @@ sub_0_159D: push hl ; CODE XREF: sub_0_14A7+30p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_15A5: call sub_0_1662 ; CODE XREF: sub_0_159D+2p - jr z, loc_0_15CA +sub_15A5: call sub_1662 ; CODE XREF: sub_159D+2p + jr z,loc_15CA ex de, hl inc hl -loc_0_15AC: ld a, (de) ; CODE XREF: sub_0_15A5+23j +loc_15AC: ld a,(de) ; CODE XREF: sub_15A5+23j or a - jr z, loc_0_15CA + jr z,loc_15CA inc de inc de push hl push de ld b, 8 -loc_0_15B6: ld a, (de) ; CODE XREF: sub_0_15A5+17j +loc_15B6: ld a,(de) ; CODE XREF: sub_15A5+17j cp (hl) - jr nz, loc_0_15BE + jr nz,loc_15BE inc hl inc de - djnz loc_0_15B6 -loc_0_15BE: pop de ; CODE XREF: sub_0_15A5+13j + djnz loc_15B6 +loc_15BE: pop de ; CODE XREF: sub_15A5+13j pop hl - jr z, loc_0_15CD + jr z,loc_15CD ex de, hl ld bc, 10h add hl, bc ex de, hl - jr loc_0_15AC + jr loc_15AC -loc_0_15CA: or 0FFh ; CODE XREF: sub_0_1552+3j - ret ; sub_0_1552+14j ... +loc_15CA: or 0FFh ; CODE XREF: sub_1552+3j + ret ; sub_1552+14j ... -loc_0_15CD: dec de ; CODE XREF: sub_0_15A5+1Bj - ld a, (de) - ld (byte_0_2D0E), a +loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj + ld a,(de) + ld (byte_2D0E), a dec de - ld a, (de) - ld (byte_0_2D0D), a + ld a,(de) + ld (byte_2D0D), a xor a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_15D9: ld a, (hl) ; CODE XREF: sub_0_1522p sub_0_1522+1Ap +sub_15D9: ld a,(hl) ; CODE XREF: sub_1522p sub_1522+1Ap cp 21h - jr c, loc_0_15F8 + jr c, loc_15F8 cp 3Dh ret z cp 5Fh @@ -3373,48 +3350,48 @@ sub_0_15D9: ld a, (hl) ; CODE XREF: sub_0_1522p sub_0_1522+1Ap cp 3Bh ret -loc_0_15F8: xor a ; CODE XREF: sub_0_15D9+3j +loc_15F8: xor a ; CODE XREF: sub_15D9+3j ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_15FA: push bc ; CODE XREF: sub_0_1552+3Dp +sub_15FA: push bc ; CODE XREF: sub_1552+3Dp ld bc, 1100h -loc_0_15FE: ld a, (hl) ; CODE XREF: sub_0_15FA+22j - call sub_0_15D9 - jr z, loc_0_161E +loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j + call sub_15D9 + jr z,loc_161E inc hl - call sub_0_1625 - jr c, loc_0_1622 + call sub_1625 + jr c, loc_1622 ld d, a ld a, c rlca - jr c, loc_0_1622 + jr c, loc_1622 rlca - jr c, loc_0_1622 + jr c, loc_1622 add a, c - jr c, loc_0_1622 + jr c, loc_1622 rlca - jr c, loc_0_1622 + jr c, loc_1622 add a, d - jr c, loc_0_1622 + jr c, loc_1622 ld c, a - djnz loc_0_15FE -loc_0_161E: ld a, c ; CODE XREF: sub_0_15FA+8j + djnz loc_15FE +loc_161E: ld a, c ; CODE XREF: sub_15FA+8j pop bc or a ret ; -loc_0_1622: pop bc ; CODE XREF: sub_0_15FA+Ej - scf ; sub_0_15FA+13j ... +loc_1622: pop bc ; CODE XREF: sub_15FA+Ej + scf ; sub_15FA+13j ... ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1625: sub 30h ; CODE XREF: sub_0_1552+1Ep - ret c ; sub_0_1552+2Ap ... +sub_1625: sub 30h ; CODE XREF: sub_1552+1Ep + ret c ; sub_1552+2Ap ... cp 0Ah ccf ret @@ -3422,66 +3399,66 @@ sub_0_1625: sub 30h ; CODE XREF: sub_0_1552+1Ep ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_162C: xor a ; CODE XREF: sub_0_1492+8p +sub_162C: xor a ; CODE XREF: sub_1492+8p ld (de), a inc de - call sub_0_1632 -sub_0_1632: ld b, 0Bh ; CODE XREF: sub_0_14A7+44p + call sub_1632 +sub_1632: ld b, 0Bh ; CODE XREF: sub_14A7+44p ld a, 20h - call sub_0_1645 + call sub_1645 xor a ld (de), a inc de - call sub_0_1687 + call sub_1687 ld a, c ld (de), a inc de ld b, 3 xor a -sub_0_1645: ld (de), a ; CODE XREF: sub_0_1632+4p - inc de ; sub_0_1645+2j - djnz sub_0_1645 +sub_1645: ld (de), a ; CODE XREF: sub_1632+4p + inc de ; sub_1645+2j + djnz sub_1645 ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_164A: push hl ; CODE XREF: sub_0_1552p +sub_164A: push hl ; CODE XREF: sub_1552p push de ld de, 2Eh - jp loc_0_1669 + jp loc_1669 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1652: push hl ; CODE XREF: sub_0_1552+7p +sub_1652: push hl ; CODE XREF: sub_1552+7p push de ld de, 2Ch - jp loc_0_1669 + jp loc_1669 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_165A: push hl ; CODE XREF: sub_0_1552+38p +sub_165A: push hl ; CODE XREF: sub_1552+38p push de ld de, 2Dh - jp loc_0_1669 + jp loc_1669 ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1662: push de ; CODE XREF: sub_0_15A5p +sub_1662: push de ; CODE XREF: sub_15A5p ld de, 15h - jp loc_0_1676 + jp loc_1676 ;---------------------------------------------------------------------------- -loc_0_1669: ld hl, (word_0_2D0F) ; CODE XREF: sub_0_164A+5j - ld a, h ; sub_0_1652+5j ... +loc_1669: ld hl, (word_2D0F) ; CODE XREF: sub_164A+5j + ld a, h ; sub_1652+5j ... or l - jr z, loc_0_1671 + jr z,loc_1671 add hl, de -loc_0_1671: ld a, (hl) ; CODE XREF: sub_0_1662+Cj +loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj pop de pop hl or a @@ -3489,34 +3466,34 @@ loc_0_1671: ld a, (hl) ; CODE XREF: sub_0_1662+Cj ;---------------------------------------------------------------------------- -loc_0_1676: ld hl, (word_0_2D0F) ; CODE XREF: sub_0_1662+4j +loc_1676: ld hl, (word_2D0F) ; CODE XREF: sub_1662+4j add hl, de ld e, (hl) inc hl ld d, (hl) inc hl - ld a, (hl) + ld a,(hl) ex de, hl pop de or a ret ;---------------------------------------------------------------------------- -loc_0_1683: ld (word_0_2D0F),hl +loc_1683: ld (word_2D0F),hl ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1687: push af ; CODE XREF: sub_0_14A7+8p - push de ; sub_0_1632+Ap +sub_1687: push af ; CODE XREF: sub_14A7+8p + push de ; sub_1632+Ap push hl ld c, 19h - call sub_0_16AF + call sub_16AF push af ld e, 0FFh ld c, F_USERNUM - call sub_0_16AF + call sub_16AF ld c, a pop af ld b, a @@ -3528,28 +3505,28 @@ sub_0_1687: push af ; CODE XREF: sub_0_14A7+8p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_169E: ld a, 11h ; CODE XREF: sub_0_961+88p - call sub_0_16B8 +sub_169E: ld a, 11h ; CODE XREF: sub_961+88p + call sub_16B8 inc a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16A5: ld a, 1 ; CODE XREF: sub_0_DE7+4p - jp sub_0_16B8 +sub_16A5: ld a, 1 ; CODE XREF: sub_DE7+4p + jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16AA: ld a, 0Bh ; CODE XREF: sub_0_DE7+1p - jp sub_0_16B8 +sub_16AA: ld a,0Bh ; CODE XREF: sub_DE7+1p + jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16AF: push de ; CODE XREF: sub_0_1687+5p - push bc ; sub_0_1687+Dp +sub_16AF: push de ; CODE XREF: sub_1687+5p + push bc ; sub_1687+Dp call bdos pop bc pop de @@ -3559,8 +3536,8 @@ sub_0_16AF: push de ; CODE XREF: sub_0_1687+5p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16B8: push hl ; CODE XREF: sub_0_169E+2p - push de ; sub_0_16A5+2j ... +sub_16B8: push hl ; CODE XREF: sub_169E+2p + push de ; sub_16A5+2j ... push bc ld c, a call bdos @@ -3573,16 +3550,16 @@ sub_0_16B8: push hl ; CODE XREF: sub_0_169E+2p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16C4: push bc ; CODE XREF: sub_0_4A4+10p +sub_16C4: push bc ; CODE XREF: sub_4A4+10p push hl push de push af ld b, 8 - call sub_0_16DA + call sub_16DA ld (hl), 2Eh inc hl ld b, 3 - call sub_0_16DA + call sub_16DA pop af pop de pop hl @@ -3592,31 +3569,31 @@ sub_0_16C4: push bc ; CODE XREF: sub_0_4A4+10p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16DA: ld a, (de) ; CODE XREF: sub_0_16C4+6p - and 7Fh ; sub_0_16C4+Ep ... +sub_16DA: ld a,(de) ; CODE XREF: sub_16C4+6p + and 7Fh ; sub_16C4+Ep ... cp 20h - jr z, loc_0_16E3 + jr z,loc_16E3 ld (hl), a inc hl -loc_0_16E3: inc de ; CODE XREF: sub_0_16DA+5j - djnz sub_0_16DA +loc_16E3: inc de ; CODE XREF: sub_16DA+5j + djnz sub_16DA ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_16E7: push bc ; CODE XREF: sub_0_482+6p sub_0_4A4+1Fp +sub_16E7: push bc ; CODE XREF: sub_482+6p sub_4A4+1Fp ld b, 0 - jp loc_0_16F0 -sub_0_16ED: PUSH BC + jp loc_16F0 +sub_16ED: PUSH BC LD B,0FFH -loc_0_16F0: push hl ; CODE XREF: sub_0_16E7+3j +loc_16F0: push hl ; CODE XREF: sub_16E7+3j push af ld h, 64h - call sub_0_1703 + call sub_1703 ld h, 0Ah - call sub_0_1703 - call sub_0_1717 + call sub_1703 + call sub_1717 pop af pop hl pop bc @@ -3625,24 +3602,24 @@ loc_0_16F0: push hl ; CODE XREF: sub_0_16E7+3j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1703: ld l, 0FFh ; CODE XREF: sub_0_16E7+Dp -loc_0_1705: sub h ; CODE XREF: sub_0_1703+4j +sub_1703: ld l, 0FFh ; CODE XREF: sub_16E7+Dp +loc_1705: sub h ; CODE XREF: sub_1703+4j inc l - jr nc, loc_0_1705 + jr nc, loc_1705 add a, h ld h, a ld a, l or a - jr nz, sub_0_1717 + jr nz,sub_1717 or b ld a, h ret m ld a, 20h - jr z, loc_0_171A + jr z,loc_171A xor a -sub_0_1717: add a, 30h ; CODE XREF: sub_0_16E7+15p +sub_1717: add a, 30h ; CODE XREF: sub_16E7+15p ld b, a -loc_0_171A: ld (de), a ; CODE XREF: sub_0_1703+11j +loc_171A: ld (de), a ; CODE XREF: sub_1703+11j inc de ld a, h ret @@ -3650,60 +3627,60 @@ loc_0_171A: ld (de), a ; CODE XREF: sub_0_1703+11j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_171E: push af ; CODE XREF: sub_0_1492+4p +sub_171E: push af ; CODE XREF: sub_1492+4p push hl -loc_0_1720: ld a, (hl) +loc_1720: ld a,(hl) or a - jr z, loc_0_172B - call sub_0_1793 + jr z,loc_172B + call sub_1793 ld (hl), a inc hl - jr loc_0_1720 -loc_0_172B: pop hl + jr loc_1720 +loc_172B: pop hl pop af ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_172E: push bc ; CODE XREF: start+2Fp sub_0_961+70p +sub_172E: push bc ; CODE XREF: start+2Fp sub_961+70p push de push hl ld c, a ex de, hl - ld b, (hl) + ld b,(hl) push hl inc hl inc hl -loc_0_1737: call sub_0_176B ; CODE XREF: sub_0_172E+25j +loc_1737: call sub_176B ; CODE XREF: sub_172E+25j or a - jr z, loc_0_1760 + jr z,loc_1760 ld (hl), e inc hl ld (hl), d inc hl dec b - jr z, loc_0_1755 - call sub_0_1779 + jr z,loc_1755 + call sub_1779 or a - jr z, loc_0_1760 + jr z,loc_1760 ld a, c or a - jr z, loc_0_1751 + jr z,loc_1751 xor a ld (de), a inc de -loc_0_1751: ld a, b ; CODE XREF: sub_0_172E+1Ej +loc_1751: ld a, b ; CODE XREF: sub_172E+1Ej or a - jr nz, loc_0_1737 -loc_0_1755: call sub_0_1779 ; CODE XREF: sub_0_172E+14j - call sub_0_176B + jr nz,loc_1737 +loc_1755: call sub_1779 ; CODE XREF: sub_172E+14j + call sub_176B or a - jr z, loc_0_1760 + jr z,loc_1760 or 0FFh -loc_0_1760: pop hl ; CODE XREF: sub_0_172E+Dj - push af ; sub_0_172E+1Aj ... - ld a, (hl) +loc_1760: pop hl ; CODE XREF: sub_172E+Dj + push af ; sub_172E+1Aj ... + ld a,(hl) sub b inc hl ld (hl), a @@ -3716,51 +3693,51 @@ loc_0_1760: pop hl ; CODE XREF: sub_0_172E+Dj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_176B: ld a, (de) ; CODE XREF: sub_0_172E+9p - and 7Fh ; sub_0_172E+2Ap ... +sub_176B: ld a,(de) ; CODE XREF: sub_172E+9p + and 7Fh ; sub_172E+2Ap ... inc de cp 20h - jr z, sub_0_176B + jr z,sub_176B cp 9 - jr z, sub_0_176B + jr z,sub_176B dec de ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1779: ld a, (de) ; CODE XREF: sub_0_172E+16p - and 7Fh ; sub_0_172E+27p ... +sub_1779: ld a,(de) ; CODE XREF: sub_172E+16p + and 7Fh ; sub_172E+27p ... ret z cp 20h ret z cp 9 ret z inc de - jr sub_0_1779 + jr sub_1779 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1786: push hl ; CODE XREF: start+1Ep sub_0_4A4+Cp - call sub_0_178C +sub_1786: push hl ; CODE XREF: start+1Ep sub_4A4+Cp + call sub_178C pop hl ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_178C: push bc ; CODE XREF: sub_0_1786+1p -loc_0_178D: ld (hl), a ; CODE XREF: sub_0_178C+3j +sub_178C: push bc ; CODE XREF: sub_1786+1p +loc_178D: ld (hl), a ; CODE XREF: sub_178C+3j inc hl - djnz loc_0_178D + djnz loc_178D pop bc ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1793: and 7Fh ; CODE XREF: sub_0_171E+6p +sub_1793: and 7Fh ; CODE XREF: sub_171E+6p cp 61h ret c cp 7Bh @@ -3769,52 +3746,54 @@ sub_0_1793: and 7Fh ; CODE XREF: sub_0_171E+6p ret ;---------------------------------------------------------------------------- -word_0_179E: .dw 2D11h ; DATA XREF: start+18r start+35r -byte_0_17A0: .db 0 ; DATA XREF: sub_0_195+Aw sub_0_195+14r -byte_0_17A1: .db 0 ; DATA XREF: start+60r sub_0_195+11w -word_0_17A2: .db 0 ; DATA XREF: start+88w sub_0_961+7Fw -byte_0_17A3: .db 0 +word_179E: .dw loc_end ; DATA XREF: start+18r start+35r +byte_17A0: .db 0 ; DATA XREF: sub_195+Aw sub_195+14r +byte_17A1: .db 0 ; DATA XREF: start+60r sub_195+11w +word_17A2: .db 0 ; DATA XREF: start+88w sub_961+7Fw +byte_17A3: .db 0 .fill $1800-$,0 .ds 8 nstack: -word_0_1808: .ds 2 +word_1808: .ds 2 .ds 1004h -byte_0_280E: .ds 1 +byte_280E: .ds 1 .ds 82h -byte_0_2891: .ds 1 +byte_2891: .ds 1 .ds 40Bh -byte_0_2C9D: .ds 1 -byte_0_2C9E: .ds 1 +byte_2C9D: .ds 1 +byte_2C9E: .ds 1 .ds 2 -byte_0_2CA1: .ds 1 -byte_0_2CA2: .ds 1 -byte_0_2CA3: .ds 1 -byte_0_2CA4: .ds 1 -byte_0_2CA5: .ds 1 +byte_2CA1: .ds 1 +byte_2CA2: .ds 1 +byte_2CA3: .ds 1 +byte_2CA4: .ds 1 +byte_2CA5: .ds 1 .ds 2Bh -byte_0_2CD1: .ds 1 -word_0_2CD2: .ds 2 -byte_0_2CD4: .ds 1 - .ds 13h -byte_0_2CE8: .ds 1 - .ds 2 -word_0_2CEB: .ds 2 - .ds 2 -word_0_2CEF: .ds 2 +byte_2CD1: .ds 1 +word_2CD2: .ds 2 +byte_2CD4: .ds 1 + .ds 0Bh +loc_2CE0: .ds 8 +byte_2CE8: .ds 1 +word_2CE9: .ds 2 +word_2CEB: .ds 2 +word_2CED: .ds 2 +word_2CEF: .ds 2 .ds 0Fh -byte_0_2D00: .ds 1 -byte_0_2D01: .ds 1 -byte_0_2D02: .ds 1 -byte_0_2D03: .ds 1 -byte_0_2D04: .ds 1 +byte_2D00: .ds 1 +byte_2D01: .ds 1 +byte_2D02: .ds 1 +byte_2D03: .ds 1 +byte_2D04: .ds 1 .ds 2 -byte_0_2D07: .ds 1 -byte_0_2D08: .ds 1 -byte_0_2D09: .ds 1 -byte_0_2D0A: .ds 1 -byte_0_2D0B: .ds 1 -byte_0_2D0C: .ds 1 -byte_0_2D0D: .ds 1 -byte_0_2D0E: .ds 1 -word_0_2D0F: .ds 2 +byte_2D07: .ds 1 +byte_2D08: .ds 1 +byte_2D09: .ds 1 +byte_2D0A: .ds 1 +byte_2D0B: .ds 1 +byte_2D0C: .ds 1 +byte_2D0D: .ds 1 +byte_2D0E: .ds 1 +word_2D0F: .ds 2 +loc_end .equ $ .end ; start From 93077c1f4565b340039d59249469ff6698a8936f Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 18:06:39 +0800 Subject: [PATCH 3/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 194 +++++++++++++++-------------------- 1 file changed, 81 insertions(+), 113 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index 77c8737f..f0e9f3fc 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -265,9 +265,7 @@ sub_3EF: xor a ; CODE XREF: start+7Cp and e ld l, a ld (word_469), hl - -loc_437: ; CODE XREF: sub_451+Cj - ld a,0FEh +loc_437: ld a,0FEh ; CODE XREF: sub_451+Cj ld (byte_464), a ld de,byte_463 ld c, S_SYSVAR @@ -277,20 +275,15 @@ loc_437: ; CODE XREF: sub_451+Cj ld de,byte_467 ld c, S_SYSVAR jp 5 ; Access the System Control Block -; End of function sub_3EF - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_451: ; CODE XREF: start+82p - ld hl, (word_46B) +sub_451: ld hl, (word_46B) ; CODE XREF: start+82p ld (word_465), hl ld hl, (word_46D) ld (word_469), hl jr loc_437 -; End of function sub_451 ;---------------------------------------------------------------------------- .db 28h ; ( @@ -303,35 +296,23 @@ word_465: .dw 0 ; DATA XREF: sub_3EF+2Dw byte_467: .db 22h ; " byte_468: .db 0 ; DATA XREF: sub_3EF+57w word_469: .dw 0 ; DATA XREF: sub_3EF+45w - ; sub_451+9w word_46B: .dw 0 ; DATA XREF: sub_3EF+20w - ; sub_451r word_46D: .dw 0 ; DATA XREF: sub_3EF+38w - ; sub_451+6r word_46F: .dw 0 ; DATA XREF: sub_3EF+15w - ; sub_3EF+23r ... -;---------------------------------------------------------------------------- +;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_471: ; CODE XREF: sub_961+92p - ; seg000:0A29p ... - call bdos - or a +sub_471: call bdos ; CODE XREF: sub_961+92p + or a ; seg000:0A29p ... ret -; End of function sub_471 - ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_476: ; CODE XREF: sub_4A4+37p - ; sub_961+61p - push af - -loc_477: ; CODE XREF: sub_476+8j - push bc +sub_476: push af ; CODE XREF: sub_4A4+37p +loc_477: push bc ; CODE XREF: sub_476+8j xor a ld b, a ld c, a @@ -340,33 +321,27 @@ loc_477: ; CODE XREF: sub_476+8j djnz loc_477 pop af ret -; End of function sub_476 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_482: ; CODE XREF: sub_1289+122p - ld a,(byte_2D04) +sub_482: ld a,(byte_2D04) ; CODE XREF: sub_1289+122p ld de, text495h ; Update error string with errors call sub_16E7 ld de, text493h ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_482 ;---------------------------------------------------------------------------- + text493h: .text "\r\n" text495h: .db 0,0,0 .text " error(s)\r\n$" ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_4A4: ; CODE XREF: sub_961+82p - ld de,byte_17A3 +sub_4A4: ld de,byte_17A3 ; CODE XREF: sub_961+82p ld hl,byte_4F8 ld (hl), 3Ah inc hl @@ -402,9 +377,9 @@ sub_4A4: ; CODE XREF: sub_961+82p ld de, text508h ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_4A4 ;---------------------------------------------------------------------------- + text4F2h: .text "\r\n" byte_4F4: .db 0 ; DATA XREF: sub_4A4+17w byte_4F5: .db 0 ; @@ -429,24 +404,20 @@ byte_507: .db 0 ; DATA XREF: sub_4A4+24w text508h: .text "\r\n$" ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_50B: ; CODE XREF: sub_D0Ep sub_D30+30p - - ld hl, 2CABh - ld de, 51Fh +sub_50B: ld hl,loc_2CAB ; CODE XREF: sub_D0Ep sub_D30+30p + ld de,loc_51F call loc_774 ld (hl), 24h ld de, text51Eh ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_50B ;---------------------------------------------------------------------------- text51Eh: .db 0Dh ; - .db 0 ; +loc_51F: .db 0 ; .db 0 ; .db 0 ; .db 0 ; @@ -857,7 +828,7 @@ loc_6C9: LD A,(DE) ;unref. ? POP BC ;unref. ? RET ;unref. ? -loc_6D3: PUSH BC +sub_6D3: PUSH BC PUSH DE PUSH HL LD B,4 @@ -994,13 +965,13 @@ loc_750: .db 0, 0CAh, 9Ah, 3Bh .db 0Ah, 0, 0, 0 loc_774: ld (smod_w_7BF), de; CODE XREF: sub_50B+6p - ld de, 2891h + ld de, byte_2891 call sub_692 ld c,+(loc_774-loc_750)/4 ld de,loc_750-4 xor a ld (smod_b_7BA), a - ld a, 30h +loc_787: ld a, 30h ld (smod_b_7B4), a inc de inc de @@ -1008,8 +979,8 @@ loc_774: ld (smod_w_7BF), de; CODE XREF: sub_50B+6p inc de ld b, 0Ah loc_792: push bc ; CODE XREF: seg000:07B1j - ld hl, 2891h - ld bc, 2895h + ld hl, byte_2891 + ld bc, loc_2895 call sub_6FA pop bc jr c, loc_7B3 @@ -1017,33 +988,32 @@ loc_792: push bc ; CODE XREF: seg000:07B1j ld a,(smod_b_7B4) inc a ld (smod_b_7B4), a - ld de, 2891h - ld hl, 2895h + ld de, byte_2891 + ld hl, loc_2895 call sub_692 pop de djnz loc_792 -;---------------------------------------------------------------------------- smod_b_7B4: .EQU $+1 loc_7B3: LD A,30H ; self modifying CP 30H - JR NZ,7BEH + JR NZ,loc_7BE smod_b_7BA: .EQU $+1 LD A,0 OR A - JR Z,7CBH + JR Z,loc_7CB smod_w_7BF: .EQU $+1 - LD HL,0 +loc_7BE: LD HL,0 LD (HL),A INC HL - LD (7BFH),HL + LD (smod_w_7BF),HL LD A,30H - LD (7BAH),A - DEC C - JR NZ,787H - LD A,(2891H) + LD (smod_b_7BA),A +loc_7CB: DEC C + JR NZ,loc_787 + LD A,(byte_2891) AND 0FH ADD A,30H - LD HL,(7BFH) + LD HL,(smod_w_7BF) LD (HL),A INC HL LD (HL),0 @@ -1056,7 +1026,6 @@ smod_b_7DF: .EQU $+1 POP AF RET - loc_7E5: .db 20h ; .db 83h ; ? .db 0B8h ; ¸ @@ -1068,8 +1037,8 @@ loc_7E5: .db 20h ; sub_7ED: PUSH AF smod_w_7F0: .EQU $+2 - LD IY,289DH - LD IX,2899H + LD IY,loc_289D + LD IX,loc_2899 XOR (ix+0) LD H,0 LD L,A @@ -1091,8 +1060,8 @@ smod_w_7F0: .EQU $+2 LD (IX+3),A POP AF RET -;---------------------------------------------------------------------------- +;---------------------------------------------------------------------------- ; S u b r o u t i n e sub_825: ; CODE XREF: sub_8D1+Fp @@ -1188,7 +1157,7 @@ sub_8A0: xor a ; CODE XREF: sub_13BA+9p ld l, a ld (smod_b_7DF), a ld (smod_w_887), hl - ld hl, 2899h + ld hl, loc_2899 jp loc_726 ;---------------------------------------------------------------------------- @@ -1445,7 +1414,7 @@ loc_A43: ; CODE XREF: seg000:0A3Aj ld (hl), 0 ld hl, 17C4h call sub_729 - ld de, 2CABh + ld de, loc_2CAB call sub_692 ex de, hl ld b, 7 @@ -1516,7 +1485,7 @@ loc_ACF: ; CODE XREF: sub_8D1+40p xor a call sub_1786 call sub_FAA - ld a,(2CA6h) + ld a,(byte_2CA6) cp 0FFh ld b, 5 jr z,loc_AF3 @@ -1565,7 +1534,7 @@ loc_B40: LD HL,loc_2CE0 JR loc_B68 -loc_B48: LD IX,2CA7H +loc_B48: LD IX,loc_2CA7 LD A,(IX+3) AND 40H LD (byte_2C9D),A @@ -1586,7 +1555,7 @@ loc_B6A: PUSH AF CALL 0FC9H JP loc_B28 -loc_B7B: LD HL,2CA7H +loc_B7B: LD HL,loc_2CA7 LD DE,2C9FH CALL sub_692 LD A,1 @@ -1656,22 +1625,17 @@ sub_BD3: call sub_961 ; CODE XREF: sub_BB4p or a ret -;---------------------------------------------------------------------------- - -loc_BDF: ; CODE XREF: sub_BD3+3j - cp 9 +loc_BDF: cp 9 ; CODE XREF: sub_BD3+3j jr z,loc_BE9 - ld hl, 2CABh + ld hl,loc_2CAB call sub_688 - -loc_BE9: ; CODE XREF: sub_BD3+Ej - xor a +loc_BE9: xor a ; CODE XREF: sub_BD3+Ej ld (byte_2D04), a call sub_FAA loc_BF0: call sub_FC9 call sub_D30 - ld hl, 2CABh - ld de, loc_2CE0 + ld hl,loc_2CAB + ld de,loc_2CE0 call sub_692 ld hl,word_1808 call sub_64E @@ -1685,7 +1649,6 @@ loc_C0A: call sub_FD1 ld a,0FFh scf ret -; End of function sub_BD3 ;---------------------------------------------------------------------------- @@ -1703,11 +1666,11 @@ loc_C1C: LD HL,byte_2D04 loc_C30: CALL loc_EC7 JP loc_BF0 -loc_C36: LD DE,2CA7H - LD HL,2CABH - CALL loc_6D3 +loc_C36: LD DE,loc_2CA7 + LD HL,loc_2CAB + CALL sub_6D3 JP NZ,loc_BF0 - CALL 0D0EH + CALL sub_D0E JR Z,loc_C50 LD A,0CH LD (0B0AH),A @@ -1735,9 +1698,9 @@ loc_C6A: LD HL,2CAFH CALL sub_DDC JP loc_BF0 -loc_C73: LD DE,2CA7H - LD HL,2CABH - CALL loc_6D3 +loc_C73: LD DE,loc_2CA7 + LD HL,loc_2CAB + CALL sub_6D3 JP NZ,0C57H loc_C7F: CALL loc_529 CALL loc_EC7 @@ -1754,8 +1717,8 @@ loc_C93: LD A,0FFH sub_C97: XOR A LD (byte_2D04),A LD DE,2CF9H - LD HL,2CABH - LD BC,2CABH + LD HL,loc_2CAB + LD BC,loc_2CAB CALL sub_6E4 JP sub_FBA @@ -1766,7 +1729,7 @@ loc_CB0: CALL sub_C97 JP loc_C7F loc_CB6: CALL sub_C97 - LD HL,2CABH + LD HL,loc_2CAB LD DE,loc_2CE0 CALL sub_692 LD A,3 @@ -1776,7 +1739,7 @@ loc_CB6: CALL sub_C97 loc_CCA: CALL sub_C97 CALL sub_D30 JP C,0C47H - LD HL,2CABH + LD HL,loc_2CAB LD DE,loc_2CE0 CALL sub_692 LD A,3 @@ -2312,7 +2275,7 @@ loc_FC0: ldi ; CODE XREF: sub_FC9+6j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FC9: ld hl, 2CF3h ; CODE XREF: sub_BD3+1Dp +sub_FC9: ld hl,2CF3h ; CODE XREF: sub_BD3+1Dp ld de,word_2CED ; sub_11FA+56p ... jr loc_FC0 @@ -2404,7 +2367,7 @@ loc_1035: LD A,0FFH ;1035 3e ff LD (byte_2C9E),A ;1079 32 9e 2c CALL 10C5H ;107c cd c5 10 loc_107F: PUSH AF ;107f f5 - LD HL,2CA7H ;1080 21 a7 2c + LD HL,loc_2CA7 ;1080 21 a7 2c LD DE,2CE4H ;1083 11 e4 2c CALL sub_692 ;1086 cd 92 06 POP AF ;1089 f1 @@ -2471,9 +2434,9 @@ stab_10B3: .db 43h ; C RET C ;10cb d8 LD (byte_2D01),A ;10cc 32 01 2d CALL sub_7ED ;10cf cd ed 07 - LD HL,2CA7H ;10d2 21 a7 2c + LD HL,loc_2CA7 ;10d2 21 a7 2c LD B,4 ;10d5 06 04 - PUSH BC ;10d7 c5 +loc_10D7: PUSH BC ;10d7 c5 PUSH HL ;10d8 e5 CALL sub_E2F ;10d9 cd 2f 0e CALL sub_7ED ;10dc cd ed 07 @@ -2482,26 +2445,26 @@ stab_10B3: .db 43h ; C LD (HL),A ;10e1 77 INC HL ;10e2 23 RET C ;10e3 d8 - DJNZ 10D7H ;10e4 10 f1 + DJNZ loc_10D7 ;10e4 10 f1 LD B,4 ;10e6 06 04 - PUSH BC ;10e8 c5 +loc_10E8: PUSH BC ;10e8 c5 CALL sub_E2F ;10e9 cd 2f 0e CALL sub_7ED ;10ec cd ed 07 POP BC ;10ef c1 RET C ;10f0 d8 - DJNZ 10E8H ;10f1 10 f5 - LD HL,2899H ;10f3 21 99 28 + DJNZ loc_10E8 ;10f1 10 f5 + LD HL,loc_2899 ;10f3 21 99 28 LD DE,7E9H ;10f6 11 e9 07 - CALL loc_6D3 ;10f9 cd d3 06 + CALL sub_6D3 ;10f9 cd d3 06 JR Z,1132H ;10fc 28 34 JR 113BH ;10fe 18 3b ; sub_1100: CALL sub_8A0 ;1100 cd a0 08 CALL sub_E2F ;1103 cd 2f 0e RET C ;1106 d8 - LD (2D01H),A ;1107 32 01 2d + LD (byte_2D01),A ;1107 32 01 2d CALL 885H ;110a cd 85 08 - LD HL,2CA7H ;110d 21 a7 2c + LD HL,loc_2CA7 ;110d 21 a7 2c LD B,4 ;1110 06 04 PUSH BC ;1112 c5 PUSH HL ;1113 e5 @@ -2524,8 +2487,8 @@ sub_1100: CALL sub_8A0 ;1100 cd a0 08 OR L ;112f b5 JR NZ,113BH ;1130 20 09 LD A,0FFH ;1132 3e ff - LD (2CA6H),A ;1134 32 a6 2c - LD A,(2D01H) ;1137 3a 01 2d + LD (byte_2CA6),A ;1134 32 a6 2c + LD A,(byte_2D01) ;1137 3a 01 2d RET ;113a c9 LD A,0FFH ;113b 3e ff @@ -2535,9 +2498,9 @@ sub_1100: CALL sub_8A0 ;1100 cd a0 08 sub_113F: CALL sub_8A0 ;113f cd a0 08 CALL 1194H ;1142 cd 94 11 RET C ;1145 d8 - LD (2D01H),A ;1146 32 01 2d + LD (byte_2D01),A ;1146 32 01 2d CALL 885H ;1149 cd 85 08 - LD HL,2CA7H ;114c 21 a7 2c + LD HL,loc_2CA7 ;114c 21 a7 2c LD B,4 ;114f 06 04 PUSH BC ;1151 c5 PUSH HL ;1152 e5 @@ -2574,8 +2537,8 @@ sub_113F: CALL sub_8A0 ;113f cd a0 08 CALL 0DE7H ;1183 cd e7 0d OR A ;1186 b7 LD A,0FFH ;1187 3e ff - LD (2CA6H),A ;1189 32 a6 2c - LD A,(2D01H) ;118c 3a 01 2d + LD (byte_2CA6),A ;1189 32 a6 2c + LD A,(byte_2D01) ;118c 3a 01 2d RET ;118f c9 ; LD A,0FFH ;1190 3e ff @@ -2670,7 +2633,7 @@ sub_11FA: ; CODE XREF: sub_8D1+6Fp xor a ld (byte_2D07), a call sub_FAA - ld hl, 2CABh + ld hl,loc_2CAB call sub_688 ld a,(byte_2C9E) cp 10h @@ -2696,8 +2659,8 @@ loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j jr nz,loc_126D inc (hl) ld de,word_2CEF - ld hl, 2CABh - ld bc, 2CABh + ld hl,loc_2CAB + ld bc, loc_2CAB call sub_6E4 call sub_FBA call sub_D30 @@ -3759,7 +3722,10 @@ word_1808: .ds 2 byte_280E: .ds 1 .ds 82h byte_2891: .ds 1 - .ds 40Bh + .ds 3 +loc_2895: .ds 4 +loc_2899: .ds 4 +loc_289D: .ds 400h byte_2C9D: .ds 1 byte_2C9E: .ds 1 .ds 2 @@ -3768,7 +3734,9 @@ byte_2CA2: .ds 1 byte_2CA3: .ds 1 byte_2CA4: .ds 1 byte_2CA5: .ds 1 - .ds 2Bh +byte_2CA6: .ds 1 +loc_2CA7: .ds 4 +loc_2CAB: .ds 26h byte_2CD1: .ds 1 word_2CD2: .ds 2 byte_2CD4: .ds 1 From 67c835c1338cb01cdc3dbe0b5ea6f27f0e7fe587 Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 19:49:46 +0800 Subject: [PATCH 4/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 1594 ++++++++++++++++------------------ 1 file changed, 765 insertions(+), 829 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index f0e9f3fc..7c991b07 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -27,7 +27,7 @@ S_BDOSVER .equ 12 DRV_SET .equ 14 F_USERNUM .equ 32 S_SYSVAR .equ 49 - + ;---------------------------------------------------------------------------- .org 100h @@ -86,7 +86,7 @@ loc_152: ld hl,byte_17A3 ; CODE XREF: start+46j loc_164: ld bc, 0Dh ; CODE XREF: start+5Ej add hl, bc dec de - ldi + ldi ld de,byte_17A3 call sub_1B0 call sub_3C9 @@ -109,10 +109,10 @@ loc_185: ld bc, 0 ; DATA XREF: sub_195+17w sub_195: ld a,(4) ; CODE XREF: start+15p ld b, a - rlca - rlca - rlca - rlca + rlca + rlca + rlca + rlca and 0Fh ld (byte_17A0), a ld a, b @@ -121,7 +121,7 @@ sub_195: ld a,(4) ; CODE XREF: start+15p ld (byte_17A1), a ld hl, (byte_17A0) ld (smod_b_186), hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -164,7 +164,7 @@ str_info: .text "usage: rz [-?pbcrxyz] [du:fn]\r\n\n" .text " c convert to local linefeed\r\n" .text " r resume transmission\r\n" .text " x,y,z Protokoll\r\n" - .text " du:fn defaults to XModem\r\n\n" + .text " du:fn defaults to XModem\r\n\n" .text "these values override options from sender\r\n$" ;---------------------------------------------------------------------------- @@ -178,13 +178,13 @@ loc_39C: inc de ; CODE XREF: sub_39A+12j jr z,loc_3AE ld hl,loc_3B1 ld bc, 8 - cpir + cpir call z,sub_67F jr loc_39C loc_3AE: pop de ; CODE XREF: sub_39A+5j pop hl - ret + ret ;---------------------------------------------------------------------------- @@ -196,7 +196,7 @@ loc_3B1: .text "?PBCXYZR" .dw sub_3C9 .dw sub_3E3 .dw sub_3DD - .dw sub_3D7 + .dw sub_3D7 .dw err_exit ;---------------------------------------------------------------------------- @@ -204,9 +204,9 @@ loc_3B1: .text "?PBCXYZR" sub_3C9: ld a, 1 ; CODE XREF: start+71p jr loc_3D3 -sub_3CD: ld a,3 - jr loc_3D3 -sub_3D1: ld a,4 +sub_3CD: ld a,3 + jr loc_3D3 +sub_3D1: ld a,4 loc_3D3: ld (byte_8AF), a ret @@ -235,10 +235,10 @@ sub_3EF: xor a ; CODE XREF: start+7Cp ld de, 45Fh call bdos ; Access the system variables ld a, h - cpl + cpl ld h, a ld a, l - cpl + cpl ld l, a ld (word_46F), hl ld c, S_SYSVAR @@ -288,8 +288,8 @@ sub_451: ld hl, (word_46B) ; CODE XREF: start+82p ;---------------------------------------------------------------------------- .db 28h ; ( byte_460: .db 0 ; DATA XREF: sub_3EF+1w - .db 0 ; - .db 0 ; + .db 0 ; + .db 0 ; byte_463: .db 24h ; $ byte_464: .db 0 ; DATA XREF: sub_3EF+4w sub_3EF+4Aw word_465: .dw 0 ; DATA XREF: sub_3EF+2Dw @@ -306,7 +306,7 @@ word_46F: .dw 0 ; DATA XREF: sub_3EF+15w sub_471: call bdos ; CODE XREF: sub_961+92p or a ; seg000:0A29p ... - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -316,11 +316,11 @@ loc_477: push bc ; CODE XREF: sub_476+8j xor a ld b, a ld c, a - cpir + cpir pop bc djnz loc_477 pop af - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -382,24 +382,24 @@ sub_4A4: ld de,byte_17A3 ; CODE XREF: sub_961+82p text4F2h: .text "\r\n" byte_4F4: .db 0 ; DATA XREF: sub_4A4+17w -byte_4F5: .db 0 ; - .db 0 ; - .db 0 ; -byte_4F8: .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 20h ; +byte_4F5: .db 0 ; + .db 0 ; + .db 0 ; +byte_4F8: .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 20h ; byte_507: .db 0 ; DATA XREF: sub_4A4+24w text508h: .text "\r\n$" @@ -416,17 +416,17 @@ sub_50B: ld hl,loc_2CAB ; CODE XREF: sub_D0Ep sub_D30+30p ;---------------------------------------------------------------------------- text51Eh: - .db 0Dh ; -loc_51F: .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; + .db 0Dh ; +loc_51F: .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; + .db 0 ; loc_529: ld hl,str_busy ld a,0 @@ -441,8 +441,8 @@ loc_529: ld hl,str_busy ld de,0548h ld c,9 jp bdos - -str_busy: .text "|/-\\ |\b\b$" + +str_busy: .text "|/-\\ |\b\b$" ld de,0569h jr sub_555 @@ -469,11 +469,11 @@ sub_57F: ; CODE XREF: sub_DE7+Dp ld (hl), a inc hl ld (hl), c - ret + ret ; End of function sub_57F ;---------------------------------------------------------------------------- -byte_586: .db 0 ; +byte_586: .db 0 ; byte_587: .db 0 ; DATA XREF: sub_5B4r ;---------------------------------------------------------------------------- @@ -506,7 +506,7 @@ loc_5A9: ; CODE XREF: sub_588+9j sub_588+11j ld hl, (1808h) ld a, h or l - ret + ret ; End of function sub_588 @@ -525,7 +525,7 @@ sub_5B4: ; CODE XREF: sub_5D4+12p dec hl pop af ld a,(hl) - ret + ret ; End of function sub_5B4 ;---------------------------------------------------------------------------- @@ -540,7 +540,7 @@ loc_5C7: LD C,4 ; punch out sub_5CD: ld c, 8 ; CODE XREF: seg000:1462p call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a - ret + ret ; End of function sub_5CD ;---------------------------------------------------------------------------- @@ -563,7 +563,7 @@ loc_5D7: ; CODE XREF: sub_5D4+Dj loc_5E6: ; CODE XREF: sub_5D4+8j call nz,sub_5B4 pop bc - ret + ret ; End of function sub_5D4 @@ -581,7 +581,7 @@ loc_5F0: ; CODE XREF: sub_5EB+5j sub_5EB+8j dec a jr nz,loc_5F0 pop bc - ret + ret ; End of function sub_5EB ;---------------------------------------------------------------------------- @@ -618,7 +618,7 @@ loc_5F7: ; CODE XREF: sub_5B4+7j ld a, 1 or a ld a,(hl) - ret + ret ;---------------------------------------------------------------------------- @@ -658,7 +658,7 @@ sub_61C: ; CODE XREF: sub_588+1Cp ld (hl), a pop hl ld (hl), c - ret + ret ; End of function sub_61C @@ -719,8 +719,8 @@ sub_654: ; CODE XREF: seg000:0AAEp adc hl, de ld a,(hl) ret nc - ccf - ret + ccf + ret ; End of function sub_654 ;---------------------------------------------------------------------------- @@ -783,18 +783,18 @@ sub_688: ; CODE XREF: seg000:0726p sub_BD3+13p sub_692: push bc ; CODE XREF: seg000:077Bp seg000:07ADp push de push hl - ldi + ldi loc_697: ldi ; CODE XREF: sub_688+8j - ldi - ldi + ldi + ldi pop hl pop de pop bc - ret + ret ;---------------------------------------------------------------------------- -loc_6A1: PUSH HL ;unref. ? +loc_6A1: PUSH HL ;unref. ? POP IX ;unref. ? PUSH DE ;unref. ? POP IY ;unref. ? @@ -802,16 +802,16 @@ loc_6A1: PUSH HL ;unref. ? XOR (IY+3) ;unref. ? JP P,loc_6B6 ;unref. ? XOR (IX+3) ;unref. ? -loc_6B3: RET M ;unref. ? +loc_6B3: RET M ;unref. ? CCF ;unref. ? RET ;unref. ? - -loc_6B6: XOR (IX+3) ;unref. ? + +loc_6B6: XOR (IX+3) ;unref. ? JP P,loc_6C2 ;unref. ? CALL loc_6C2 ;unref. ? SCF ;unref. ? JR loc_6B3 ;unref. ? - + loc_6C2: PUSH BC PUSH DE ;unref. ? PUSH HL ;unref. ? @@ -827,7 +827,7 @@ loc_6C9: LD A,(DE) ;unref. ? POP DE ;unref. ? POP BC ;unref. ? RET ;unref. ? - + sub_6D3: PUSH BC PUSH DE PUSH HL @@ -866,7 +866,7 @@ loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j pop hl pop de pop bc - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -892,25 +892,25 @@ loc_702: ex af, af' ; CODE XREF: sub_6FA+11j pop hl pop de pop bc - ret + ret ;---------------------------------------------------------------------------- -loc_712: PUSH BC - PUSH HL - LD A,1 - ADD A,(HL) - LD (HL),A - JR NC,loc_723 - LD B,3 -loc_71C: INC HL - LD A,0 - ADC A,(HL) - LD (HL),A - DJNZ loc_71C -loc_723: POP HL - POP BC - RET +loc_712: PUSH BC + PUSH HL + LD A,1 + ADD A,(HL) + LD (HL),A + JR NC,loc_723 + LD B,3 +loc_71C: INC HL + LD A,0 + ADC A,(HL) + LD (HL),A + DJNZ loc_71C +loc_723: POP HL + POP BC + RET ;---------------------------------------------------------------------------- @@ -928,41 +928,41 @@ loc_731: inc hl ; CODE XREF: sub_729+Dj djnz loc_731 pop hl pop bc - ret - -;---------------------------------------------------------------------------- - -loc_73B: PUSH BC - PUSH DE - PUSH HL - EX DE,HL - LD A,004H -loc_741: PUSH AF - LD A,(DE) - AND (HL) - LD (BC),A - INC BC - INC DE - INC HL - POP AF - DEC A - JR NZ,loc_741 - POP HL - POP DE - POP BC - RET - -;---------------------------------------------------------------------------- - -loc_750: .db 0, 0CAh, 9Ah, 3Bh - .db 0, 0E1h, 0F5h, 5 - .db 80h, 96h, 98h, 0 - .db 40h, 42h, 0Fh, 0 - .db 0A0h, 86h, 1, 0 + ret + +;---------------------------------------------------------------------------- + +loc_73B: PUSH BC + PUSH DE + PUSH HL + EX DE,HL + LD A,004H +loc_741: PUSH AF + LD A,(DE) + AND (HL) + LD (BC),A + INC BC + INC DE + INC HL + POP AF + DEC A + JR NZ,loc_741 + POP HL + POP DE + POP BC + RET + +;---------------------------------------------------------------------------- + +loc_750: .db 0, 0CAh, 9Ah, 3Bh + .db 0, 0E1h, 0F5h, 5 + .db 80h, 96h, 98h, 0 + .db 40h, 42h, 0Fh, 0 + .db 0A0h, 86h, 1, 0 .db 10h, 27h, 0, 0 - .db 0E8h, 3, 0, 0 - .db 64h, 0, 0, 0 - .db 0Ah, 0, 0, 0 + .db 0E8h, 3, 0, 0 + .db 64h, 0, 0, 0 + .db 0Ah, 0, 0, 0 loc_774: ld (smod_w_7BF), de; CODE XREF: sub_50B+6p ld de, byte_2891 @@ -1026,12 +1026,12 @@ smod_b_7DF: .EQU $+1 POP AF RET -loc_7E5: .db 20h ; +loc_7E5: .db 20h ; .db 83h ; ? .db 0B8h ; ¸ .db 0EDh ; í - .db 0E3h ; ã - .db 20h ; +loc_7E9: .db 0E3h ; ã + .db 20h ; .db 0BBh ; » .db 0DEh ; Þ @@ -1039,33 +1039,32 @@ sub_7ED: PUSH AF smod_w_7F0: .EQU $+2 LD IY,loc_289D LD IX,loc_2899 - XOR (ix+0) - LD H,0 - LD L,A - ADD HL,HL - ADD HL,HL - LD B,H - LD C,L - ADD IY,BC - LD A,(IY) - XOR (IX+1) - LD (ix+0),A + XOR (ix+0) + LD H,0 + LD L,A + ADD HL,HL + ADD HL,HL + LD B,H + LD C,L + ADD IY,BC + LD A,(IY) + XOR (IX+1) + LD (ix+0),A LD A,(IY+1) - XOR (IX+2) + XOR (IX+2) LD (IX+1),A LD A,(IY+2) - XOR (IX+3) + XOR (IX+3) LD (IX+2),A LD A,(IY+3) LD (IX+3),A - POP AF - RET + POP AF + RET ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_825: ; CODE XREF: sub_8D1+Fp - push de +sub_825: push de ; CODE XREF: sub_8D1+Fp push hl ld hl, (smod_w_7F0) ld bc, 3FFh @@ -1074,15 +1073,13 @@ sub_825: ; CODE XREF: sub_8D1+Fp pop iy ld ix, loc_7E5 xor a - -loc_836: ; CODE XREF: sub_825+5Bj - push af +loc_836: push af ; CODE XREF: sub_825+5Bj ld hl, 0FFFFh ld de, 0FFFFh xor e ld e, a ld b, 8 -loc_841: scf ; CODE XREF: sub_825+3Bj +loc_841: scf ; CODE XREF: sub_825+3Bj rr h rr l rr d @@ -1100,21 +1097,21 @@ loc_841: scf ; CODE XREF: sub_825+3Bj ld a, h xor (ix+3) ld h, a -loc_860: djnz loc_841 ; CODE XREF: sub_825+25j +loc_860: djnz loc_841 ; CODE XREF: sub_825+25j ld a, h - cpl + cpl ld (iy+0), a dec iy ld a, l - cpl + cpl ld (iy+0), a dec iy ld a, d - cpl + cpl ld (iy+0), a dec iy ld a, e - cpl + cpl ld (iy+0), a dec iy pop af @@ -1122,14 +1119,11 @@ loc_860: djnz loc_841 ; CODE XREF: sub_825+25j jr nz,loc_836 pop hl pop de - ret -; End of function sub_825 + ret ;---------------------------------------------------------------------------- - ; CODE XREF: sub_13BA+Fp - ; sub_13BA+1Ep -loc_885: PUSH AF +loc_885: PUSH AF ; CODE XREF: sub_13BA+Fp smod_w_887: .equ $+1 ; self modifying LD HL,0 LD DE,1021H @@ -1188,7 +1182,7 @@ loc_8C4: ld a, h ; CODE XREF: sub_8B6+8j ld (word_2CEB), hl dec hl ld (word_8B4), hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -1211,7 +1205,7 @@ sub_8D1: xor a ; CODE XREF: start+7Fp cp 0 jr z,loc_8FD ld a, 7 -loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j +loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j ld a, 10h ld (byte_2C9E), a ld a,(byte_8AF) @@ -1229,14 +1223,14 @@ loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j jr nz,loc_924 jr locret_953 -loc_924: call sub_BB4 ; CODE XREF: sub_8D1+4Bj +loc_924: call sub_BB4 ; CODE XREF: sub_8D1+4Bj jr c, loc_954 ; sub_8D1+4Fj jr locret_953 ;---------------------------------------------------------------------------- loc_92B: ld a, 3 ; CODE XREF: sub_8D1+47j - ld (byte_8AF), a ; sub_8D1+74j + ld (byte_8AF), a ; sub_8D1+74j xor a ld (byte_2D04), a call sub_11C1 @@ -1250,7 +1244,7 @@ loc_92B: ld a, 3 ; CODE XREF: sub_8D1+47j ;---------------------------------------------------------------------------- -loc_947: call sub_961 ; CODE XREF: sub_8D1+39j +loc_947: call sub_961 ; CODE XREF: sub_8D1+39j jr c, loc_954 jr z,locret_953 call sub_11FA @@ -1259,8 +1253,8 @@ locret_953: ret ; CODE XREF: sub_8D1+51j ;---------------------------------------------------------------------------- -loc_954: call sub_DD9 ; CODE XREF: sub_8D1+43j - ld a,(byte_2CA5); sub_8D1+56j +loc_954: call sub_DD9 ; CODE XREF: sub_8D1+43j + ld a,(byte_2CA5) ; sub_8D1+56j cp 0FFh call z,sub_D0E jr locret_953 @@ -1271,7 +1265,7 @@ loc_954: call sub_DD9 ; CODE XREF: sub_8D1+43j sub_961: ; CODE XREF: sub_8D1+68p ; sub_8D1+76p ... ld a,(byte_8B1) - cpl + cpl ld hl, 8B2h or (hl) ld (byte_2CA3), a @@ -1320,7 +1314,7 @@ loc_9AE: ; CODE XREF: sub_961+38j ld hl, (word_2CE9) xor a or (hl) - scf + scf ret z push hl ld b, 1 @@ -1328,7 +1322,7 @@ loc_9AE: ; CODE XREF: sub_961+38j dec hl ld (hl), 20h pop hl - ld de, 2CD0h + ld de,loc_2CD0 ld a, 7 ld (de), a ld a,0FFh @@ -1356,7 +1350,7 @@ loc_9E3: call sub_4A4 ; CODE XREF: sub_961+52j sub_A09: ld de, (byte_2CD4) ; CODE XREF: seg000:0A11p loc_A0D: ld a, 1 ; CODE XREF: sub_961+A6j or a - ret + ret ;---------------------------------------------------------------------------- @@ -1379,8 +1373,8 @@ loc_A24: ; CODE XREF: seg000:0A19j seg000:0A41j loc_A2E: ; CODE XREF: seg000:0A22j call sub_552 ld a, 5 - scf - ret + scf + ret ;---------------------------------------------------------------------------- loc_A35: ; CODE XREF: seg000:0A20j @@ -1439,7 +1433,7 @@ loc_A83: ; CODE XREF: seg000:0A90j jr z,loc_AA6 ld a, 9 or a - ret + ret ;---------------------------------------------------------------------------- loc_AA6: ; CODE XREF: seg000:0AA0j @@ -1468,7 +1462,7 @@ loc_AC8: ; CODE XREF: seg000:0AC4j ld (byte_280E), a ld a, 1 or a - ret + ret ;---------------------------------------------------------------------------- loc_ACF: ; CODE XREF: sub_8D1+40p @@ -1532,7 +1526,7 @@ loc_B39: POP BC loc_B40: LD HL,loc_2CE0 CALL sub_688 JR loc_B68 - + loc_B48: LD IX,loc_2CA7 LD A,(IX+3) @@ -1568,16 +1562,16 @@ loc_B7B: LD HL,loc_2CA7 LD A,4 RET -loc_B96: .db 0 ; - .db 0Bh ; +loc_B96: .db 0 ; + .db 0Bh ; .db 0FEh ; þ - .db 4 ; - .db 2 ; - .db 11h ; - .db 12h ; - .db 0Fh ; - .db 8 ; - .db 10h ; + .db 4 ; + .db 2 ; + .db 11h ; + .db 12h ; + .db 0Fh ; + .db 8 ; + .db 10h ; loc_BA0: .dw loc_B34 .dw loc_B39 @@ -1600,7 +1594,7 @@ sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p cp 5 jr z,loc_BC2 or a - ret + ret ;---------------------------------------------------------------------------- @@ -1612,8 +1606,8 @@ loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj ld a,0 ret z ld a,0FFh - scf - ret + scf + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -1623,7 +1617,7 @@ sub_BD3: call sub_961 ; CODE XREF: sub_BB4p ld a, 5 ld (smod_b_B0A), a or a - ret + ret loc_BDF: cp 9 ; CODE XREF: sub_BD3+3j jr z,loc_BE9 @@ -1644,11 +1638,11 @@ loc_BF0: call sub_FC9 loc_C0A: call sub_FD1 ld hl,stab_CE4 ld bc, 7 - cpir + cpir jp z,sub_67F ld a,0FFh - scf - ret + scf + ret ;---------------------------------------------------------------------------- @@ -1709,19 +1703,19 @@ loc_C7F: CALL loc_529 CPIR JP Z,67FH JP loc_C1C - + loc_C93: LD A,0FFH SCF RET sub_C97: XOR A LD (byte_2D04),A - LD DE,2CF9H + LD DE,loc_2CF9 LD HL,loc_2CAB LD BC,loc_2CAB CALL sub_6E4 JP sub_FBA - + loc_CAA: CALL sub_C97 JP loc_C0A @@ -1744,8 +1738,8 @@ loc_CCA: CALL sub_C97 CALL sub_692 LD A,3 CALL sub_13BA - JP loc_C0A - + JP loc_C0A + stab_CE4: .db 6 .db 0FEh .db 4 @@ -1753,7 +1747,7 @@ stab_CE4: .db 6 .db 0FFh .db 0Ah .db 0FCh - + .dw loc_C1C .dw loc_C73 .dw loc_C57 @@ -1761,7 +1755,7 @@ stab_CE4: .db 6 .dw loc_C30 .dw loc_C1C .dw loc_C1C - + stab_CF9: .db 0EBh .db 0EAh .db 0E9h @@ -1829,7 +1823,7 @@ loc_D41: call loc_D68 ret c -loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j +loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j ld (loc_D41+1), a inc hl dec bc @@ -1841,7 +1835,7 @@ loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j call sub_50B call sub_FAA xor a - ret + ret ;---------------------------------------------------------------------------- @@ -1850,70 +1844,70 @@ loc_D68: ld (byte_D6F), a ; CODE XREF: sub_D0E+9p sub_D30+1Ep push de push hl byte_D6F: .equ $+1 -loc_D6E: LD C,0 - LD HL,byte_280E - CALL sub_669 - JR NZ,loc_0D97 - LD HL,byte_280E - CALL sub_64A - LD C,1AH ;set dma - LD DE,2811H - CALL bdos - LD C,2CH ;??? - LD E,1 - CALL bdos - LD C,15H ;wr. seq. - LD DE,byte_17A3 - CALL sub_471 - JR NC,loc_D6E -loc_0D97: POP HL - POP DE - POP BC - RET - -sub_D9B: LD HL,loc_2CE0 - CALL sub_688 - LD B,4 -loc_0DA3: PUSH BC - LD A,8 - CALL 13BAH - LD B,64H - CALL sub_DE7 - JR C,loc_DB8 - CP 4FH - JR Z,loc_DBC - CP 0FDH - JR Z,loc_DBC -loc_DB8: POP BC - DJNZ loc_0DA3 - PUSH BC -loc_DBC: POP BC - LD B,1 - CALL sub_DE7 - XOR A - RET - -stab_DC4: .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 18h ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 8 ; - .db 0 ; +loc_D6E: LD C,0 + LD HL,byte_280E + CALL sub_669 + JR NZ,loc_0D97 + LD HL,byte_280E + CALL sub_64A + LD C,1AH ;set dma + LD DE,2811H + CALL bdos + LD C,2CH ;??? + LD E,1 + CALL bdos + LD C,15H ;wr. seq. + LD DE,byte_17A3 + CALL sub_471 + JR NC,loc_D6E +loc_0D97: POP HL + POP DE + POP BC + RET + +sub_D9B: LD HL,loc_2CE0 + CALL sub_688 + LD B,4 +loc_0DA3: PUSH BC + LD A,8 + CALL 13BAH + LD B,64H + CALL sub_DE7 + JR C,loc_DB8 + CP 4FH + JR Z,loc_DBC + CP 0FDH + JR Z,loc_DBC +loc_DB8: POP BC + DJNZ loc_0DA3 + PUSH BC +loc_DBC: POP BC + LD B,1 + CALL sub_DE7 + XOR A + RET + +stab_DC4: .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 18h ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 8 ; + .db 0 ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -1943,11 +1937,11 @@ loc_DF8: call sub_5D4 ; CODE XREF: sub_DE7+16j jr nz,loc_E03 djnz loc_DF8 ld a,0FEh - scf + scf ret loc_E03: or a ; CODE XREF: sub_DE7+14j - ret + ret ;---------------------------------------------------------------------------- loc_E05: LD B,64H @@ -1977,81 +1971,81 @@ loc_E2A: .db 11h ; dc1 .db 18h ; can sub_E2F: ld b,64H - CALL sub_DE7 - RET C - LD E,A -loc_E36: AND 60H - LD A,E - RET NZ - CP 18H - JR Z,loc_E50 - LD HL,0EA2H - LD BC,4 - CPIR - JR Z,sub_E2F - LD A,(byte_2C9D) - OR A - JR NZ,sub_E2F - LD A,E - RET - -loc_E50: LD B,64H - CALL sub_DE7 - RET C - CP 18H - JR NZ,loc_0E74 - LD B,64h - CALL sub_DE7 - RET C - CP 18H - JR NZ,loc_0E74 - LD B,64H - CALL sub_DE7 - RET C - CP 18H - JR NZ,loc_0E74 - LD B,64H - CALL sub_DE7 - RET C -loc_0E74: LD HL,loc_EA6 - LD BC,0BH - CPIR - JP Z,sub_67F - LD L,A - LD A,(byte_2C9D) - OR A - JR Z,loc_E8B - LD A,L - AND 60H - JR Z,loc_E50 -loc_E8B: LD A,L - AND 60H - CP 40H - JR NZ,loc_E9C - LD A,L - XOR 40H - RET - -loc_E96: LD A,7FH - RET - -loc_E99: LD A,0FFH - RET - -loc_E9C: LD A,0FFH -loc_E9E: OR 80H - SCF - RET - - .db 11h ; + CALL sub_DE7 + RET C + LD E,A +loc_E36: AND 60H + LD A,E + RET NZ + CP 18H + JR Z,loc_E50 + LD HL,loc_EA2 + LD BC,4 + CPIR + JR Z,sub_E2F + LD A,(byte_2C9D) + OR A + JR NZ,sub_E2F + LD A,E + RET + +loc_E50: LD B,64H + CALL sub_DE7 + RET C + CP 18H + JR NZ,loc_0E74 + LD B,64h + CALL sub_DE7 + RET C + CP 18H + JR NZ,loc_0E74 + LD B,64H + CALL sub_DE7 + RET C + CP 18H + JR NZ,loc_0E74 + LD B,64H + CALL sub_DE7 + RET C +loc_0E74: LD HL,loc_EA6 + LD BC,0BH + CPIR + JP Z,sub_67F + LD L,A + LD A,(byte_2C9D) + OR A + JR Z,loc_E8B + LD A,L + AND 60H + JR Z,loc_E50 +loc_E8B: LD A,L + AND 60H + CP 40H + JR NZ,loc_E9C + LD A,L + XOR 40H + RET + +loc_E96: LD A,7FH + RET + +loc_E99: LD A,0FFH + RET + +loc_E9C: LD A,0FFH +loc_E9E: OR 80H + SCF + RET + +loc_EA2: .db 11h ; .db 91h ; ? - .db 13h ; + .db 13h ; .db 93h ; ? -loc_EA6: .db 11h ; +loc_EA6: .db 11h ; .db 91h ; ? - .db 13h ; + .db 13h ; .db 93h ; ? - .db 18h ; + .db 18h ; .db 68h ; h .db 69h ; i .db 6Ah ; j @@ -2071,35 +2065,35 @@ loc_EA6: .db 11h ; .dw loc_E50 .dw loc_E50 -loc_EC7: OR A - LD HL,(word_2CEB) - LD DE,(word_2CEF) - SBC HL,DE - JP C,sub_F4E - CALL sub_8A0 - LD HL,0 - LD (2CF9H),HL -loc_EDD: CALL sub_E2F - JP C,loc_F38 - CALL sub_FA2 - CALL Z,sub_7ED - CALL NZ,loc_885 - LD HL,(word_2CEB) - LD BC,(word_2CEF) - SBC HL,BC - JP Z,sub_F4E - INC BC - LD (word_2CEF),BC - LD HL,(2CF9H) - INC HL - LD (2CF9H),HL - LD HL,(word_2CED) - LD (HL),A - INC HL - LD (word_2CED),HL - JR loc_EDD - - .db 0E8h ; è +loc_EC7: OR A + LD HL,(word_2CEB) + LD DE,(word_2CEF) + SBC HL,DE + JP C,sub_F4E + CALL sub_8A0 + LD HL,0 + LD (loc_2CF9),HL +loc_EDD: CALL sub_E2F + JP C,loc_F38 + CALL sub_FA2 + CALL Z,sub_7ED + CALL NZ,loc_885 + LD HL,(word_2CEB) + LD BC,(word_2CEF) + SBC HL,BC + JP Z,sub_F4E + INC BC + LD (word_2CEF),BC + LD HL,(loc_2CF9) + INC HL + LD (loc_2CF9),HL + LD HL,(word_2CED) + LD (HL),A + INC HL + LD (word_2CED),HL + JR loc_EDD + +sub_F0E: .db 0E8h ; è .db 0E9h ; é .db 0EAh ; ê .db 0EBh ; ë @@ -2107,15 +2101,15 @@ loc_EDD: CALL sub_E2F .db 0FFh ; ÿ .db 0FEh ; þ - .dw sub_F52 + .dw sub_F52 .dw sub_F4E .dw sub_F54 - .dw sub_F58 .dw sub_F58 .dw sub_F58 - .dw sub_F58 + .dw sub_F58 + .dw sub_F58 - .db 0E8h ; è +stab_F23: .db 0E8h ; è .db 0E9h ; é .db 0EAh ; ê .db 0EBh ; ë @@ -2131,146 +2125,84 @@ loc_EDD: CALL sub_E2F .dw sub_F7C .dw sub_F7C -loc_F38: - .db 21h ; ! - .db 23h ; # - .db 0Fh ; - .db 1 ; - .db 7 ; - .db 0 ; - .db 0CDh ; Í - .db 0A2h ; ¢ - .db 0Fh ; - .db 28h ; ( - .db 6 ; - .db 21h ; ! - .db 0Eh ; - .db 0Fh ; - .db 1 ; - .db 7 ; - .db 0 ; - .db 0EDh ; í - .db 0B1h ; ± - .db 0CAh ; Ê - .db 7Fh ;  - .db 6 ; +loc_F38: LD HL,stab_F23 + LD BC,7 + CALL sub_FA2 + JR Z,loc_F49 + LD HL,sub_F0E + LD BC,7 +loc_F49: CPIR + JP Z,sub_67F +sub_F4E: LD A,0FFH + SCF + RET -sub_F4E: - .db 3Eh ; > - .db 0FFh ; ÿ - .db 37h ; 7 - .db 0C9h ; É -sub_F52: - .db 37h ; 7 - .db 0C9h ; É -sub_F54: - .db 3Eh ; > - .db 10h ; - .db 37h ; 7 - .db 0C9h ; É -sub_F58: - .db 32h ; 2 - .db 0FDh ; ý - .db 2Ch ; , - .db 0E6h ; æ - .db 7Fh ;  - .db 0CDh ; Í - .db 85h ; ? - .db 8 ; - .db 6 ; - .db 2 ; - .db 0C5h ; Å - .db 0CDh ; Í - .db 2Fh ; / - .db 0Eh ; - .db 0CDh ; Í - .db 85h ; ? - .db 8 ; - .db 0C1h ; Á - .db 0DAh ; Ú - .db 38h ; 8 - .db 0Fh ; - .db 10h ; - .db 0F3h ; ó - .db 7Ch ; | - .db 0B5h ; µ - .db 28h ; ( - .db 4 ; - .db 3Eh ; > - .db 0FFh ; ÿ - .db 37h ; 7 - .db 0C9h ; É - .db 3Ah ; : - .db 0FDh ; ý - .db 2Ch ; , - .db 0B7h ; · - .db 0C9h ; É +sub_F52: SCF + RET -sub_F7C: - .db 32h ; 2 - .db 0FDh ; ý - .db 2Ch ; , - .db 0E6h ; æ - .db 7Fh ;  - .db 0CDh ; Í - .db 0EDh ; í - .db 7 ; - .db 6 ; - .db 4 ; - .db 0C5h ; Å - .db 0CDh ; Í - .db 2Fh ; / - .db 0Eh ; - .db 0CDh ; Í - .db 0EDh ; í - .db 7 ; - .db 0C1h ; Á - .db 0DAh ; Ú - .db 38h ; 8 - .db 0Fh ; - .db 10h ; - .db 0F3h ; ó - .db 21h ; ! - .db 99h ; ? - .db 28h ; ( - .db 11h ; - .db 0E9h ; é - .db 7 ; - .db 0CDh ; Í - .db 0D3h ; Ó - .db 6 ; - .db 0CAh ; Ê - .db 77h ; w - .db 0Fh ; - .db 0C3h ; Ã - .db 73h ; s - .db 0Fh ; +sub_F54: LD A,10H + SCF + RET -sub_FA2: .db 5Fh ; _ - .db 3Ah ; : - .db 9Eh ; ? - .db 2Ch ; , - .db 0FEh ; þ - .db 20h ; - .db 7Bh ; { - .db 0C9h ; É +sub_F58: LD (byte_2CFD),A + AND 7FH + CALL loc_885 + LD B,2 +loc_F62: PUSH BC + CALL sub_E2F + CALL loc_885 + POP BC + JP C,loc_F38 + DJNZ loc_F62 + LD A,H + OR L + JR Z,loc_F77 +loc_F73: LD A,0FFH + SCF + RET + +loc_F77: LD A,(byte_2CFD) + OR A + RET + +sub_F7C: LD (byte_2CFD),A + AND 7FH + CALL sub_7ED + LD B,4 +loc_F86: PUSH BC + CALL sub_E2F + CALL sub_7ED + POP BC + JP C,loc_F38 + DJNZ loc_F86 + LD HL,loc_2899 + LD DE,loc_7E9 + CALL sub_6D3 + JP Z,loc_F77 + JP loc_F73 + +sub_FA2: LD E,A + LD A,(byte_2C9E) + CP 20H + LD A,E + RET ;---------------------------------------------------------------------------- ; S u b r o u t i n e sub_FAA: ld hl,word_2CE9 ; CODE XREF: seg000:0AE5p sub_BD3+1Ap ld de,word_2CED - ldi - ldi + ldi + ldi ld hl, 0 ld (word_2CEF), hl sub_FBA: ld hl,word_2CED ; CODE XREF: sub_11FA+4Ep ld de, 2CF3h -loc_FC0: ldi ; CODE XREF: sub_FC9+6j - ldi - ldi - ldi - ret +loc_FC0: ldi ; CODE XREF: sub_FC9+6j + ldi + ldi + ldi + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -2293,7 +2225,7 @@ loc_FE0: ld b, 64h jp c, loc_108A ld hl, stab_109E ld bc, 3 - cpir + cpir jp z,sub_67F jr loc_1024 @@ -2311,13 +2243,13 @@ loc_FE0: ld b, 64h CPIR JP Z,67FH JR loc_1024 - + LD HL,byte_2D00 DEC (HL) LD A,10H JP Z,loc_108A JR loc_FE0 - + LD B,0AH CALL sub_DE7 JR C,loc_1035 @@ -2332,251 +2264,251 @@ loc_1024: ld hl, (2CFEh) ; CODE XREF: sub_FD1+22j ;---------------------------------------------------------------------------- -loc_1035: LD A,0FFH ;1035 3e ff - JP loc_108A ;1037 c3 8a 10 - - LD A,5 ;103a 3e 05 - LD (byte_2D00),A ;103c 32 00 2d - CALL loc_E05 ;103f cd 05 0e - JR C,loc_108A ;1042 38 46 - LD HL,stab_10AD ;1044 21 ad 10 - LD BC,2 ;1047 01 02 00 - CPIR ;104a ed b1 - JP Z,sub_67F ;104c ca 7f 06 - JR loc_1024 ;104f 18 d3 - - CALL loc_E05 ;1051 cd 05 0e - JR C,loc_108A ;1054 38 34 - LD HL,stab_10B3 ;1056 21 b3 10 - LD BC,4 ;1059 01 04 00 - CPIR ;105c ed b1 - JP Z,sub_67F ;105e ca 7f 06 - JR loc_1024 ;1061 18 c1 - - LD A,10H ;1063 3e 10 - LD (byte_2C9E),A ;1065 32 9e 2c - CALL sub_113F ;1068 cd 3f 11 - JR 107FH ;106b 18 12 - ; - LD A,10H ;106d 3e 10 - LD (byte_2C9E),A ;106f 32 9e 2c - CALL sub_1100 ;1072 cd 00 11 - JR loc_107F ;1075 18 08 - - LD A,20H ;1077 3e 20 - LD (byte_2C9E),A ;1079 32 9e 2c - CALL 10C5H ;107c cd c5 10 -loc_107F: PUSH AF ;107f f5 - LD HL,loc_2CA7 ;1080 21 a7 2c - LD DE,2CE4H ;1083 11 e4 2c - CALL sub_692 ;1086 cd 92 06 - POP AF ;1089 f1 +loc_1035: LD A,0FFH ;1035 3e ff + JP loc_108A ;1037 c3 8a 10 + + LD A,5 ;103a 3e 05 + LD (byte_2D00),A ;103c 32 00 2d + CALL loc_E05 ;103f cd 05 0e + JR C,loc_108A ;1042 38 46 + LD HL,stab_10AD ;1044 21 ad 10 + LD BC,2 ;1047 01 02 00 + CPIR ;104a ed b1 + JP Z,sub_67F ;104c ca 7f 06 + JR loc_1024 ;104f 18 d3 + + CALL loc_E05 ;1051 cd 05 0e + JR C,loc_108A ;1054 38 34 + LD HL,stab_10B3 ;1056 21 b3 10 + LD BC,4 ;1059 01 04 00 + CPIR ;105c ed b1 + JP Z,sub_67F ;105e ca 7f 06 + JR loc_1024 ;1061 18 c1 + + LD A,10H ;1063 3e 10 + LD (byte_2C9E),A ;1065 32 9e 2c + CALL sub_113F ;1068 cd 3f 11 + JR 107FH ;106b 18 12 + ; + LD A,10H ;106d 3e 10 + LD (byte_2C9E),A ;106f 32 9e 2c + CALL sub_1100 ;1072 cd 00 11 + JR loc_107F ;1075 18 08 + + LD A,20H ;1077 3e 20 + LD (byte_2C9E),A ;1079 32 9e 2c + CALL 10C5H ;107c cd c5 10 +loc_107F: PUSH AF ;107f f5 + LD HL,loc_2CA7 ;1080 21 a7 2c + LD DE,2CE4H ;1083 11 e4 2c + CALL sub_692 ;1086 cd 92 06 + POP AF ;1089 f1 loc_108A: ld hl, 10BFh ; CODE XREF: sub_FD1+14j ld bc, 6 ; sub_FD1+5Ej - cpir + cpir jr nz,loc_109C cp 98h jr nz,loc_109A ld a, 10h -loc_109A: scf ; CODE XREF: sub_FD1+C5j - ret +loc_109A: scf ; CODE XREF: sub_FD1+C5j + ret loc_109C: or a ; CODE XREF: sub_FD1+C1j - ret + ret ;---------------------------------------------------------------------------- -stab_109E: .db 18h ; +stab_109E: .db 18h ; .db 0AAh ; ª .db 2Ah ; * .db 3Ah ; : - .db 10h ; + .db 10h ; .db 3Ah ; : - .db 10h ; + .db 10h ; .db 0F5h ; õ - .db 0Fh ; + .db 0Fh ; stab_10A7: .db 6Bh ; k - .db 18h ; - .db 12h ; - .db 10h ; - .db 1Dh ; - .db 10h ; + .db 18h ; + .db 12h ; + .db 10h ; + .db 1Dh ; + .db 10h ; stab_10AD: .db 2Ah ; * - .db 18h ; + .db 18h ; .db 51h ; Q - .db 10h ; + .db 10h ; .db 3Fh ; ? - .db 10h ; + .db 10h ; stab_10B3: .db 43h ; C .db 41h ; A .db 42h ; B - .db 18h ; + .db 18h ; .db 0F5h ; õ - .db 0Fh ; + .db 0Fh ; .db 63h ; c - .db 10h ; + .db 10h ; .db 6Dh ; m - .db 10h ; + .db 10h ; .db 77h ; w - .db 10h ; + .db 10h ; .db 98h ; ? - .db 6 ; - .db 10h ; + .db 6 ; + .db 10h ; .db 0FFh ; ÿ .db 0FEh ; þ .db 0FCh ; ü - CALL sub_8A0 ;10c5 cd a0 08 - CALL sub_E2F ;10c8 cd 2f 0e - RET C ;10cb d8 - LD (byte_2D01),A ;10cc 32 01 2d - CALL sub_7ED ;10cf cd ed 07 - LD HL,loc_2CA7 ;10d2 21 a7 2c - LD B,4 ;10d5 06 04 -loc_10D7: PUSH BC ;10d7 c5 - PUSH HL ;10d8 e5 - CALL sub_E2F ;10d9 cd 2f 0e - CALL sub_7ED ;10dc cd ed 07 - POP HL ;10df e1 - POP BC ;10e0 c1 - LD (HL),A ;10e1 77 - INC HL ;10e2 23 - RET C ;10e3 d8 - DJNZ loc_10D7 ;10e4 10 f1 - LD B,4 ;10e6 06 04 -loc_10E8: PUSH BC ;10e8 c5 - CALL sub_E2F ;10e9 cd 2f 0e - CALL sub_7ED ;10ec cd ed 07 - POP BC ;10ef c1 - RET C ;10f0 d8 - DJNZ loc_10E8 ;10f1 10 f5 - LD HL,loc_2899 ;10f3 21 99 28 - LD DE,7E9H ;10f6 11 e9 07 - CALL sub_6D3 ;10f9 cd d3 06 - JR Z,1132H ;10fc 28 34 - JR 113BH ;10fe 18 3b - ; -sub_1100: CALL sub_8A0 ;1100 cd a0 08 - CALL sub_E2F ;1103 cd 2f 0e - RET C ;1106 d8 - LD (byte_2D01),A ;1107 32 01 2d - CALL 885H ;110a cd 85 08 - LD HL,loc_2CA7 ;110d 21 a7 2c - LD B,4 ;1110 06 04 - PUSH BC ;1112 c5 - PUSH HL ;1113 e5 - CALL sub_E2F ;1114 cd 2f 0e - CALL 885H ;1117 cd 85 08 - POP HL ;111a e1 - POP BC ;111b c1 - LD (HL),A ;111c 77 - INC HL ;111d 23 - RET C ;111e d8 - DJNZ 1112H ;111f 10 f1 - LD B,2 ;1121 06 02 - PUSH BC ;1123 c5 - CALL sub_E2F ;1124 cd 2f 0e - CALL 885H ;1127 cd 85 08 - POP BC ;112a c1 - RET C ;112b d8 - DJNZ 1123H ;112c 10 f5 - LD A,H ;112e 7c - OR L ;112f b5 - JR NZ,113BH ;1130 20 09 - LD A,0FFH ;1132 3e ff - LD (byte_2CA6),A ;1134 32 a6 2c - LD A,(byte_2D01) ;1137 3a 01 2d - RET ;113a c9 - - LD A,0FFH ;113b 3e ff - SCF ;113d 37 - RET ;113e c9 - -sub_113F: CALL sub_8A0 ;113f cd a0 08 - CALL 1194H ;1142 cd 94 11 - RET C ;1145 d8 - LD (byte_2D01),A ;1146 32 01 2d - CALL 885H ;1149 cd 85 08 - LD HL,loc_2CA7 ;114c 21 a7 2c - LD B,4 ;114f 06 04 - PUSH BC ;1151 c5 - PUSH HL ;1152 e5 - CALL 1194H ;1153 cd 94 11 - JR NC,115BH ;1156 30 03 - POP HL ;1158 e1 - POP BC ;1159 c1 - RET ;115a c9 - ; - CALL 885H ;115b cd 85 08 - POP HL ;115e e1 - POP BC ;115f c1 - LD (HL),A ;1160 77 - INC HL ;1161 23 - DJNZ 1151H ;1162 10 ed - LD B,2 ;1164 06 02 - PUSH BC ;1166 c5 - CALL 1194H ;1167 cd 94 11 - JR NC,116EH ;116a 30 02 - POP BC ;116c c1 - RET ;116d c9 - ; - CALL 885H ;116e cd 85 08 - POP BC ;1171 c1 - DJNZ 1166H ;1172 10 f2 - LD A,H ;1174 7c - OR L ;1175 b5 - JR NZ,1190H ;1176 20 18 - LD B,0AH ;1178 06 0a - CALL 0DE7H ;117a cd e7 0d - CP 0DH ;117d fe 0d - JR NZ,1186H ;117f 20 05 - LD B,0AH ;1181 06 0a - CALL 0DE7H ;1183 cd e7 0d - OR A ;1186 b7 - LD A,0FFH ;1187 3e ff - LD (byte_2CA6),A ;1189 32 a6 2c - LD A,(byte_2D01) ;118c 3a 01 2d - RET ;118f c9 - ; - LD A,0FFH ;1190 3e ff - SCF ;1192 37 - RET ;1193 c9 - - CALL loc_E05 ;1194 cd 05 0e - RET C ;1197 d8 - CALL sub_11B3 ;1198 cd b3 11 - JR NZ,loc_11AF ;119b 20 12 - RLCA ;119d 07 - RLCA ;119e 07 - RLCA ;119f 07 - RLCA ;11a0 07 - LD B,A ;11a1 47 - PUSH BC ;11a2 c5 - CALL loc_E05 ;11a3 cd 05 0e - POP BC ;11a6 c1 - RET C ;11a7 d8 - CALL sub_11B3 ;11a8 cd b3 11 - JR NZ,loc_11AF ;11ab 20 02 - OR B ;11ad b0 - RET ;11ae c9 - ; -loc_11AF: LD A,0FFH ;11af 3e ff - SCF ;11b1 37 - RET ;11b2 c9 - ; -sub_11B3: LD L,A ;11b3 6f - SUB 30H ;11b4 d6 30 - CP 0AH ;11b6 fe 0a - JR C,loc_11BC ;11b8 38 02 - SUB 27H ;11ba d6 27 -loc_11BC: LD L,A ;11bc 6f - AND 0F0H ;11bd e6 f0 - LD A,L ;11bf 7d - RET ;11c0 c9 - + CALL sub_8A0 ;10c5 cd a0 08 + CALL sub_E2F ;10c8 cd 2f 0e + RET C ;10cb d8 + LD (byte_2D01),A ;10cc 32 01 2d + CALL sub_7ED ;10cf cd ed 07 + LD HL,loc_2CA7 ;10d2 21 a7 2c + LD B,4 ;10d5 06 04 +loc_10D7: PUSH BC ;10d7 c5 + PUSH HL ;10d8 e5 + CALL sub_E2F ;10d9 cd 2f 0e + CALL sub_7ED ;10dc cd ed 07 + POP HL ;10df e1 + POP BC ;10e0 c1 + LD (HL),A ;10e1 77 + INC HL ;10e2 23 + RET C ;10e3 d8 + DJNZ loc_10D7 ;10e4 10 f1 + LD B,4 ;10e6 06 04 +loc_10E8: PUSH BC ;10e8 c5 + CALL sub_E2F ;10e9 cd 2f 0e + CALL sub_7ED ;10ec cd ed 07 + POP BC ;10ef c1 + RET C ;10f0 d8 + DJNZ loc_10E8 ;10f1 10 f5 + LD HL,loc_2899 ;10f3 21 99 28 + LD DE,7E9H ;10f6 11 e9 07 + CALL sub_6D3 ;10f9 cd d3 06 + JR Z,1132H ;10fc 28 34 + JR 113BH ;10fe 18 3b + ; +sub_1100: CALL sub_8A0 ;1100 cd a0 08 + CALL sub_E2F ;1103 cd 2f 0e + RET C ;1106 d8 + LD (byte_2D01),A ;1107 32 01 2d + CALL loc_885 ;110a cd 85 08 + LD HL,loc_2CA7 ;110d 21 a7 2c + LD B,4 ;1110 06 04 + PUSH BC ;1112 c5 + PUSH HL ;1113 e5 + CALL sub_E2F ;1114 cd 2f 0e + CALL loc_885 ;1117 cd 85 08 + POP HL ;111a e1 + POP BC ;111b c1 + LD (HL),A ;111c 77 + INC HL ;111d 23 + RET C ;111e d8 + DJNZ 1112H ;111f 10 f1 + LD B,2 ;1121 06 02 + PUSH BC ;1123 c5 + CALL sub_E2F ;1124 cd 2f 0e + CALL loc_885 ;1127 cd 85 08 + POP BC ;112a c1 + RET C ;112b d8 + DJNZ 1123H ;112c 10 f5 + LD A,H ;112e 7c + OR L ;112f b5 + JR NZ,113BH ;1130 20 09 + LD A,0FFH ;1132 3e ff + LD (byte_2CA6),A ;1134 32 a6 2c + LD A,(byte_2D01) ;1137 3a 01 2d + RET ;113a c9 + + LD A,0FFH ;113b 3e ff + SCF ;113d 37 + RET ;113e c9 + +sub_113F: CALL sub_8A0 ;113f cd a0 08 + CALL 1194H ;1142 cd 94 11 + RET C ;1145 d8 + LD (byte_2D01),A ;1146 32 01 2d + CALL loc_885 ;1149 cd 85 08 + LD HL,loc_2CA7 ;114c 21 a7 2c + LD B,4 ;114f 06 04 + PUSH BC ;1151 c5 + PUSH HL ;1152 e5 + CALL 1194H ;1153 cd 94 11 + JR NC,115BH ;1156 30 03 + POP HL ;1158 e1 + POP BC ;1159 c1 + RET ;115a c9 + ; + CALL loc_885 ;115b cd 85 08 + POP HL ;115e e1 + POP BC ;115f c1 + LD (HL),A ;1160 77 + INC HL ;1161 23 + DJNZ 1151H ;1162 10 ed + LD B,2 ;1164 06 02 + PUSH BC ;1166 c5 + CALL 1194H ;1167 cd 94 11 + JR NC,116EH ;116a 30 02 + POP BC ;116c c1 + RET ;116d c9 + ; + CALL loc_885 ;116e cd 85 08 + POP BC ;1171 c1 + DJNZ 1166H ;1172 10 f2 + LD A,H ;1174 7c + OR L ;1175 b5 + JR NZ,1190H ;1176 20 18 + LD B,0AH ;1178 06 0a + CALL 0DE7H ;117a cd e7 0d + CP 0DH ;117d fe 0d + JR NZ,1186H ;117f 20 05 + LD B,0AH ;1181 06 0a + CALL 0DE7H ;1183 cd e7 0d + OR A ;1186 b7 + LD A,0FFH ;1187 3e ff + LD (byte_2CA6),A ;1189 32 a6 2c + LD A,(byte_2D01) ;118c 3a 01 2d + RET ;118f c9 + ; + LD A,0FFH ;1190 3e ff + SCF ;1192 37 + RET ;1193 c9 + + CALL loc_E05 ;1194 cd 05 0e + RET C ;1197 d8 + CALL sub_11B3 ;1198 cd b3 11 + JR NZ,loc_11AF ;119b 20 12 + RLCA ;119d 07 + RLCA ;119e 07 + RLCA ;119f 07 + RLCA ;11a0 07 + LD B,A ;11a1 47 + PUSH BC ;11a2 c5 + CALL loc_E05 ;11a3 cd 05 0e + POP BC ;11a6 c1 + RET C ;11a7 d8 + CALL sub_11B3 ;11a8 cd b3 11 + JR NZ,loc_11AF ;11ab 20 02 + OR B ;11ad b0 + RET ;11ae c9 + ; +loc_11AF: LD A,0FFH ;11af 3e ff + SCF ;11b1 37 + RET ;11b2 c9 + ; +sub_11B3: LD L,A ;11b3 6f + SUB 30H ;11b4 d6 30 + CP 0AH ;11b6 fe 0a + JR C,loc_11BC ;11b8 38 02 + SUB 27H ;11ba d6 27 +loc_11BC: LD L,A ;11bc 6f + AND 0F0H ;11bd e6 f0 + LD A,L ;11bf 7d + RET ;11c0 c9 + ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -2601,8 +2533,8 @@ loc_11D4: ; CODE XREF: sub_11C1+Fj cp 0F6h jr z,loc_11E7 ld a,0FFh - scf - ret + scf + ret ;---------------------------------------------------------------------------- loc_11E7: ; CODE XREF: sub_11C1+20j @@ -2617,7 +2549,7 @@ loc_11F3: ; CODE XREF: sub_11C1+1Cj ld a, 6 call loc_145C xor a - ret + ret ; End of function sub_11C1 @@ -2641,12 +2573,12 @@ sub_11FA: ; CODE XREF: sub_8D1+6Fp jr z,loc_121A ld a, 15h loc_121A: call loc_145C ; CODE XREF: sub_11FA+1Cj -loc_121D: ld a,(byte_2D07) ; CODE XREF: sub_11FA+5Ej +loc_121D: ld a,(byte_2D07) ; CODE XREF: sub_11FA+5Ej or a ld b, 82h jr z,loc_1227 ld b, 32h -loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j +loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j jr c, loc_125A push af call sub_50B @@ -2680,7 +2612,7 @@ loc_125A: cp 0F6h ; CODE XREF: sub_11FA+30j ld a, 6 call loc_145C xor a - ret + ret ;---------------------------------------------------------------------------- loc_126D: ; CODE XREF: sub_11FA+3Fj @@ -2701,8 +2633,8 @@ loc_126D: ; CODE XREF: sub_11FA+3Fj loc_1285: ; CODE XREF: sub_11FA+54j ; sub_11FA+67j ... ld a,0FFh - scf - ret + scf + ret ; End of function sub_11FA @@ -2726,33 +2658,33 @@ loc_1296: ; CODE XREF: sub_1289+12Aj ld (byte_2D08), a ld hl, 12AEh ld bc, 4 - cpir + cpir jp z,sub_67F jp loc_137A ;---------------------------------------------------------------------------- - .db 2 ; - .db 1 ; - .db 4 ; - .db 18h ; - + .db 2 ; + .db 1 ; + .db 4 ; + .db 18h ; + .db 6Ah ; j - .db 13h ; + .db 13h ; .db 5Fh ; _ - .db 13h ; + .db 13h ; .db 0BFh ; ¿ - .db 12h ; + .db 12h ; .db 0BAh ; º - .db 12h ; + .db 12h ; .db 21h ; ! - .db 0 ; - .db 4 ; - .db 18h ; - .db 3 ; + .db 0 ; + .db 4 ; + .db 18h ; + .db 3 ; .db 21h ; ! .db 80h ; ? - .db 0 ; + .db 0 ; .db 22h ; " - .db 5 ; + .db 5 ; .db 2Dh ; - ld b,0ah @@ -2773,111 +2705,111 @@ loc_1296: ; CODE XREF: sub_1289+12Aj .db 0E5h ; å .db 0CDh ; Í .db 0E7h ; ç - .db 0Dh ; + .db 0Dh ; .db 0DDh ; Ý .db 0E1h ; á .db 32h ; 2 - .db 8 ; + .db 8 ; .db 2Dh ; - .db 0DAh ; Ú .db 7Ah ; z - .db 13h ; + .db 13h ; .db 0DDh ; Ý .db 77h ; w - .db 0 ; + .db 0 ; .db 0DDh ; Ý .db 23h ; # .db 0CDh ; Í .db 0DDh ; Ý - .db 7 ; + .db 7 ; .db 0CDh ; Í .db 85h ; ? - .db 8 ; + .db 8 ; .db 0EDh ; í .db 4Bh ; K .db 0EFh ; ï .db 2Ch ; , - .db 3 ; + .db 3 ; .db 0EDh ; í .db 43h ; C .db 0EFh ; ï .db 2Ch ; , .db 0EDh ; í .db 5Bh ; [ - .db 5 ; + .db 5 ; .db 2Dh ; - - .db 1Bh ; + .db 1Bh ; .db 0EDh ; í .db 53h ; S - .db 5 ; + .db 5 ; .db 2Dh ; - .db 7Ah ; z .db 0B3h ; ³ - .db 20h ; + .db 20h ; .db 0D0h ; Ð .db 0DDh ; Ý .db 22h ; " .db 0EDh ; í .db 2Ch ; , - .db 6 ; - .db 0Ah ; + .db 6 ; + .db 0Ah ; .db 0CDh ; Í .db 0E7h ; ç - .db 0Dh ; + .db 0Dh ; .db 32h ; 2 - .db 8 ; + .db 8 ; .db 2Dh ; - .db 0DAh ; Ú .db 7Ah ; z - .db 13h ; + .db 13h ; .db 3Ah ; : .db 9Eh ; ? .db 2Ch ; , .db 0FEh ; þ - .db 10h ; - .db 20h ; + .db 10h ; + .db 20h ; .db 26h ; & .db 3Ah ; : - .db 8 ; + .db 8 ; .db 2Dh ; - .db 0CDh ; Í .db 85h ; ? - .db 8 ; - .db 6 ; - .db 0Ah ; + .db 8 ; + .db 6 ; + .db 0Ah ; .db 0CDh ; Í .db 0E7h ; ç - .db 0Dh ; + .db 0Dh ; .db 32h ; 2 - .db 8 ; + .db 8 ; .db 2Dh ; - .db 0DAh ; Ú .db 7Ah ; z - .db 13h ; + .db 13h ; .db 0CDh ; Í .db 85h ; ? - .db 8 ; + .db 8 ; .db 7Ch ; | .db 0B5h ; µ .db 0C2h ; Â .db 7Ah ; z - .db 13h ; + .db 13h ; .db 0AFh ; ¯ .db 32h ; 2 - .db 4 ; + .db 4 ; .db 2Dh ; - .db 3Eh ; > - .db 0 ; + .db 0 ; .db 32h ; 2 - .db 2 ; + .db 2 ; .db 2Dh ; - .db 3Ah ; : .db 0D9h ; Ù - .db 12h ; + .db 12h ; .db 0C9h ; É ld a,(byte_2D08) @@ -2937,8 +2869,8 @@ loc_13A4: call sub_FC9 ; sub_1289+10Fj cp 5 jp nz,loc_1296 ld a,0FFh - scf - ret + scf + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -2978,10 +2910,10 @@ loc_13D4: push bc ; CODE XREF: sub_13BA+26j ;---------------------------------------------------------------------------- loc_1403: .db 2Ah ; * .db 2Ah ; * - .db 18h ; + .db 18h ; .db 42h ; B - .db 0 ; - + .db 0 ; + loc_1408: .text "0123456789abcdef" ;---------------------------------------------------------------------------- @@ -2990,10 +2922,10 @@ loc_1408: .text "0123456789abcdef" sub_1418: push af ; CODE XREF: sub_13BA+12p ld hl,loc_1408 ; sub_13BA+21p ... ld b, 0 - rra - rra - rra - rra + rra + rra + rra + rra and 0Fh ld c, a add hl, bc @@ -3012,18 +2944,18 @@ sub_1418: push af ; CODE XREF: sub_13BA+12p loc_1438: LD (smod_b_145B),A LD BC,+(loc_1480-stab_7B3) - LD HL,stab_7B3 - CPIR - JP Z,sub_67F - AND 60H - JR NZ,loc_145A - LD A,(byte_2C9D) - OR A - JR Z,loc_145A -loc_1450: LD HL,smod_b_145B - SET 6,(HL) - LD A,18H - CALL loc_145C + LD HL,stab_7B3 + CPIR + JP Z,sub_67F + AND 60H + JR NZ,loc_145A + LD A,(byte_2C9D) + OR A + JR Z,loc_145A +loc_1450: LD HL,smod_b_145B + SET 6,(HL) + LD A,18H + CALL loc_145C smod_b_145B: .equ $+1 loc_145A: LD A,0 loc_145C: LD (smod_b_1468),A @@ -3031,14 +2963,14 @@ loc_145F: CALL sub_588 CALL sub_5CD JR Z,loc_145F smod_b_1468: .equ $+1 - LD A,0 - JP loc_5C7 + LD A,0 + JP loc_5C7 -loc_146C: LD A,(smod_b_1468) - AND 7FH - CP 40H - JR NZ,loc_145A - JR loc_1450 +loc_146C: LD A,(smod_b_1468) + AND 7FH + CP 40H + JR NZ,loc_145A + JR loc_1450 stab_7B3: .db 18h .db 0Dh @@ -3049,7 +2981,7 @@ stab_7B3: .db 18h .db 91h .db 13h .db 93h - + loc_1480: .dw loc_1450 .dw loc_1450 .dw loc_1450 @@ -3058,7 +2990,7 @@ loc_1480: .dw loc_1450 .dw loc_1450 .dw loc_146C .dw loc_146C - .dw loc_1450 + .dw loc_1450 ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3144,7 +3076,7 @@ loc_1513: ex de, hl ; CODE XREF: sub_14A7+64j ld (de), a loc_151D: ld a,(byte_2D0C); CODE XREF: sub_1492+13j or a - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3175,7 +3107,7 @@ sub_1543: push hl ; CODE XREF: sub_1522+Cp ld hl,byte_2D0C ; sub_1522+15p inc (hl) pop hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3185,7 +3117,7 @@ sub_154A: push hl ; CODE XREF: sub_14A7+2Bp call sub_1552 pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3244,7 +3176,7 @@ sub_159D: push hl ; CODE XREF: sub_14A7+30p call sub_15A5 pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3286,7 +3218,7 @@ loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj ld a,(de) ld (byte_2D0D), a xor a - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3314,7 +3246,7 @@ sub_15D9: ld a,(hl) ; CODE XREF: sub_1522p sub_1522+1Ap ret loc_15F8: xor a ; CODE XREF: sub_15D9+3j - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3329,13 +3261,13 @@ loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j jr c, loc_1622 ld d, a ld a, c - rlca + rlca jr c, loc_1622 - rlca + rlca jr c, loc_1622 add a, c jr c, loc_1622 - rlca + rlca jr c, loc_1622 add a, d jr c, loc_1622 @@ -3344,11 +3276,11 @@ loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j loc_161E: ld a, c ; CODE XREF: sub_15FA+8j pop bc or a - ret + ret ; loc_1622: pop bc ; CODE XREF: sub_15FA+Ej scf ; sub_15FA+13j ... - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3356,8 +3288,8 @@ loc_1622: pop bc ; CODE XREF: sub_15FA+Ej sub_1625: sub 30h ; CODE XREF: sub_1552+1Ep ret c ; sub_1552+2Ap ... cp 0Ah - ccf - ret + ccf + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3381,7 +3313,7 @@ sub_1632: ld b, 0Bh ; CODE XREF: sub_14A7+44p sub_1645: ld (de), a ; CODE XREF: sub_1632+4p inc de ; sub_1645+2j djnz sub_1645 - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3425,7 +3357,7 @@ loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj pop de pop hl or a - ret + ret ;---------------------------------------------------------------------------- @@ -3439,7 +3371,7 @@ loc_1676: ld hl, (word_2D0F) ; CODE XREF: sub_1662+4j ex de, hl pop de or a - ret + ret ;---------------------------------------------------------------------------- loc_1683: ld (word_2D0F),hl @@ -3463,7 +3395,7 @@ sub_1687: push af ; CODE XREF: sub_14A7+8p pop hl pop de pop af - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3471,7 +3403,7 @@ sub_1687: push af ; CODE XREF: sub_14A7+8p sub_169E: ld a, 11h ; CODE XREF: sub_961+88p call sub_16B8 inc a - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3494,7 +3426,7 @@ sub_16AF: push de ; CODE XREF: sub_1687+5p pop bc pop de or a - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3508,7 +3440,7 @@ sub_16B8: push hl ; CODE XREF: sub_169E+2p pop bc pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3527,7 +3459,7 @@ sub_16C4: push bc ; CODE XREF: sub_4A4+10p pop de pop hl pop bc - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3540,7 +3472,7 @@ sub_16DA: ld a,(de) ; CODE XREF: sub_16C4+6p inc hl loc_16E3: inc de ; CODE XREF: sub_16DA+5j djnz sub_16DA - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3548,7 +3480,7 @@ loc_16E3: inc de ; CODE XREF: sub_16DA+5j sub_16E7: push bc ; CODE XREF: sub_482+6p sub_4A4+1Fp ld b, 0 jp loc_16F0 -sub_16ED: PUSH BC +sub_16ED: PUSH BC LD B,0FFH loc_16F0: push hl ; CODE XREF: sub_16E7+3j push af @@ -3560,7 +3492,7 @@ loc_16F0: push hl ; CODE XREF: sub_16E7+3j pop af pop hl pop bc - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3585,7 +3517,7 @@ sub_1717: add a, 30h ; CODE XREF: sub_16E7+15p loc_171A: ld (de), a ; CODE XREF: sub_1703+11j inc de ld a, h - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3601,7 +3533,7 @@ loc_1720: ld a,(hl) jr loc_1720 loc_172B: pop hl pop af - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3651,7 +3583,7 @@ loc_1760: pop hl ; CODE XREF: sub_172E+Dj pop hl pop de pop bc - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3664,7 +3596,7 @@ sub_176B: ld a,(de) ; CODE XREF: sub_172E+9p cp 9 jr z,sub_176B dec de - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3685,7 +3617,7 @@ sub_1779: ld a,(de) ; CODE XREF: sub_172E+16p sub_1786: push hl ; CODE XREF: start+1Ep sub_4A4+Cp call sub_178C pop hl - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3695,7 +3627,7 @@ loc_178D: ld (hl), a ; CODE XREF: sub_178C+3j inc hl djnz loc_178D pop bc - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -3706,7 +3638,7 @@ sub_1793: and 7Fh ; CODE XREF: sub_171E+6p cp 7Bh ret nc and 5Fh - ret + ret ;---------------------------------------------------------------------------- word_179E: .dw loc_end ; DATA XREF: start+18r start+35r @@ -3715,8 +3647,8 @@ byte_17A1: .db 0 ; DATA XREF: start+60r sub_195+11w word_17A2: .db 0 ; DATA XREF: start+88w sub_961+7Fw byte_17A3: .db 0 .fill $1800-$,0 - .ds 8 -nstack: + .ds 8 +nstack: word_1808: .ds 2 .ds 1004h byte_280E: .ds 1 @@ -3736,7 +3668,8 @@ byte_2CA4: .ds 1 byte_2CA5: .ds 1 byte_2CA6: .ds 1 loc_2CA7: .ds 4 -loc_2CAB: .ds 26h +loc_2CAB: .ds 25h +loc_2CD0: .ds 1 byte_2CD1: .ds 1 word_2CD2: .ds 2 byte_2CD4: .ds 1 @@ -3747,7 +3680,10 @@ word_2CE9: .ds 2 word_2CEB: .ds 2 word_2CED: .ds 2 word_2CEF: .ds 2 - .ds 0Fh + .ds 8 +loc_2CF9: .ds 4 +byte_2CFD: .ds 1 + .ds 2 byte_2D00: .ds 1 byte_2D01: .ds 1 byte_2D02: .ds 1 From bcb32c3e74fef450a57003ebdf8ce1d1fced54b5 Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 21:26:52 +0800 Subject: [PATCH 5/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 1704 ++++++++++++++++------------------ 1 file changed, 800 insertions(+), 904 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index 7c991b07..3c117e8a 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -33,72 +33,72 @@ S_SYSVAR .equ 49 .org 100h start: ld sp, nstack ; Setup local stack - ld c, S_BDOSVER + ld c,S_BDOSVER call bdos ; Return CP/M version # cp '0' ; Get CP/M vers. # - jp c, err_vern ; CP/M 2 or less? - ld de, str_welc + jp c,err_vern ; CP/M 2 or less? + ld de,str_welc ld c,C_WRITESTR ;yes call bdos ;"RZ for ..."; Output string call sub_195 ;print string - ld hl, (word_179E) + ld hl,(word_179E) xor a - ld b, 14h + ld b,14h call sub_1786 ld a,(80h) or a jr z,loc_174 - ld (hl), 2 - ld de, 82h - ex de, hl + ld (hl),2 + ld de,82h + ex de,hl ld a,0FFh call sub_172E jp nz, err_exit - ld hl, (word_179E) + ld hl,(word_179E) inc hl ld a,(hl) or a jp z,loc_174 inc hl - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl ld a,(de) cp 2Dh jr nz,loc_152 call sub_39A - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) - ld a, d + ld d,(hl) + ld a,d or e jr z,loc_174 loc_152: ld hl,byte_17A3 ; CODE XREF: start+46j - ex de, hl + ex de,hl call sub_1492 ld hl,byte_17A3 xor a or (hl) jr nz,loc_164 ld a,(byte_17A1) - ld (hl), a -loc_164: ld bc, 0Dh ; CODE XREF: start+5Ej - add hl, bc + ld (hl),a +loc_164: ld bc,0Dh ; CODE XREF: start+5Ej + add hl,bc dec de ldi ld de,byte_17A3 call sub_1B0 call sub_3C9 -loc_174: ld de, str_sxfr ; CODE XREF: start+25j start+3Bj +loc_174: ld de,str_sxfr ; CODE XREF: start+25j start+3Bj ld c,C_WRITESTR call bdos ; Output string call sub_3EF call sub_8D1 call sub_451 smod_b_186: .equ $+1 -loc_185: ld bc, 0 ; DATA XREF: sub_195+17w - ld (word_17A2), bc +loc_185: ld bc,0 ; DATA XREF: sub_195+17w + ld (word_17A2),bc ld de,byte_17A3 call sub_1B0 jp 0 @@ -108,19 +108,19 @@ loc_185: ld bc, 0 ; DATA XREF: sub_195+17w ; S u b r o u t i n e sub_195: ld a,(4) ; CODE XREF: start+15p - ld b, a + ld b,a rlca rlca rlca rlca and 0Fh - ld (byte_17A0), a - ld a, b + ld (byte_17A0),a + ld a,b and 0Fh inc a - ld (byte_17A1), a - ld hl, (byte_17A0) - ld (smod_b_186), hl + ld (byte_17A1),a + ld hl,(byte_17A0) + ld (smod_b_186),hl ret ;---------------------------------------------------------------------------- @@ -131,21 +131,21 @@ sub_1B0: ld a,(de) ; CODE XREF: start+6Ep start+8Fp dec de ld a,(de) ld e, a - ld c, F_USERNUM + ld c,F_USERNUM call bdos ; get/set user number pop af dec a ld e, a - ld c, DRV_SET + ld c,DRV_SET jp 5 ; Select disc ;---------------------------------------------------------------------------- -err_vern: ld de, str_cpm3 ; Display version +err_vern: ld de,str_cpm3 ; Display version ld c,C_WRITESTR ; error and exit call bdos -err_exit: ld de, str_info ; Display usage +err_exit: ld de,str_info ; Display usage ld c,C_WRITESTR ; and exit to call bdos ; CP/M jp 0 @@ -177,7 +177,7 @@ loc_39C: inc de ; CODE XREF: sub_39A+12j or a jr z,loc_3AE ld hl,loc_3B1 - ld bc, 8 + ld bc,8 cpir call z,sub_67F jr loc_39C @@ -202,12 +202,12 @@ loc_3B1: .text "?PBCXYZR" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_3C9: ld a, 1 ; CODE XREF: start+71p +sub_3C9: ld a,1 ; CODE XREF: start+71p jr loc_3D3 sub_3CD: ld a,3 jr loc_3D3 sub_3D1: ld a,4 -loc_3D3: ld (byte_8AF), a +loc_3D3: ld (byte_8AF),a ret ;---------------------------------------------------------------------------- @@ -229,60 +229,60 @@ sub_3E9: ld a,$ff ; S u b r o u t i n e sub_3EF: xor a ; CODE XREF: start+7Cp - ld (byte_460), a - ld (byte_464), a - ld c, S_SYSVAR - ld de, 45Fh + ld (byte_460),a + ld (byte_464),a + ld c,S_SYSVAR + ld de,45Fh call bdos ; Access the system variables - ld a, h + ld a,h cpl - ld h, a - ld a, l + ld h,a + ld a,l cpl ld l, a - ld (word_46F), hl - ld c, S_SYSVAR + ld (word_46F),hl + ld c,S_SYSVAR ld de,byte_463 call bdos ; Access the system variables - ld (word_46B), hl - ld de, (word_46F) - ld a, h + ld (word_46B),hl + ld de,(word_46F) + ld a,h and d - ld h, a - ld a, l + ld h,a + ld a,l and e ld l, a - ld (word_465), hl - ld c, S_SYSVAR + ld (word_465),hl + ld c,S_SYSVAR ld de,byte_467 call bdos ; Access the system variables - ld (word_46D), hl - ld de, (word_46F) - ld a, h + ld (word_46D),hl + ld de,(word_46F) + ld a,h and d - ld h, a - ld a, l + ld h,a + ld a,l and e ld l, a - ld (word_469), hl + ld (word_469),hl loc_437: ld a,0FEh ; CODE XREF: sub_451+Cj - ld (byte_464), a + ld (byte_464),a ld de,byte_463 - ld c, S_SYSVAR + ld c,S_SYSVAR call bdos ; Access the system variables ld a,0FEh - ld (byte_468), a + ld (byte_468),a ld de,byte_467 - ld c, S_SYSVAR + ld c,S_SYSVAR jp 5 ; Access the System Control Block ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_451: ld hl, (word_46B) ; CODE XREF: start+82p - ld (word_465), hl - ld hl, (word_46D) - ld (word_469), hl +sub_451: ld hl,(word_46B) ; CODE XREF: start+82p + ld (word_465),hl + ld hl,(word_46D) + ld (word_469),hl jr loc_437 ;---------------------------------------------------------------------------- @@ -314,8 +314,8 @@ sub_471: call bdos ; CODE XREF: sub_961+92p sub_476: push af ; CODE XREF: sub_4A4+37p loc_477: push bc ; CODE XREF: sub_476+8j xor a - ld b, a - ld c, a + ld b,a + ld c,a cpir pop bc djnz loc_477 @@ -326,9 +326,9 @@ loc_477: push bc ; CODE XREF: sub_476+8j ; S u b r o u t i n e sub_482: ld a,(byte_2D04) ; CODE XREF: sub_1289+122p - ld de, text495h ; Update error string with errors + ld de,text495h ; Update error string with errors call sub_16E7 - ld de, text493h + ld de,text493h ld c,C_WRITESTR jp 5 ; Output string @@ -343,38 +343,38 @@ text495h: .db 0,0,0 sub_4A4: ld de,byte_17A3 ; CODE XREF: sub_961+82p ld hl,byte_4F8 - ld (hl), 3Ah + ld (hl),3Ah inc hl xor a - ld b, 0Dh + ld b,0Dh call sub_1786 inc de call sub_16C4 dec de ld a,(de) - add a, 40h - ld (byte_4F4), a + add a,40h + ld (byte_4F4),a dec de ld a,(de) ld de,byte_4F5 call sub_16E7 - ld a, 24h - ld (byte_507), a - ld de, text4F2h + ld a,24h + ld (byte_507),a + ld de,text4F2h ld c,C_WRITESTR call bdos ; Output string - ld hl, (byte_2CD4) - ld a, h + ld hl,(byte_2CD4) + ld a,h or l ret z - ld b, 1 + ld b,1 call sub_476 dec hl - ld (hl), 24h - ld de, (byte_2CD4) + ld (hl),24h + ld de,(byte_2CD4) ld c,C_WRITESTR call bdos ; Output string - ld de, text508h + ld de,text508h ld c,C_WRITESTR jp 5 ; Output string @@ -409,8 +409,8 @@ text508h: .text "\r\n$" sub_50B: ld hl,loc_2CAB ; CODE XREF: sub_D0Ep sub_D30+30p ld de,loc_51F call loc_774 - ld (hl), 24h - ld de, text51Eh + ld (hl),24h + ld de,text51Eh ld c,C_WRITESTR jp 5 ; Output string @@ -451,7 +451,7 @@ str_busy: .text "|/-\\ |\b\b$" ; S u b r o u t i n e -sub_552: ld de, text55Ah +sub_552: ld de,text55Ah sub_555: ld c,C_WRITESTR jp bdos ; Output string @@ -466,9 +466,9 @@ text569h: .text "can't open any file\r\n$" sub_57F: ; CODE XREF: sub_DE7+Dp ld hl,byte_586 - ld (hl), a + ld (hl),a inc hl - ld (hl), c + ld (hl),c ret ; End of function sub_57F @@ -483,28 +483,28 @@ byte_587: .db 0 ; DATA XREF: sub_5B4r sub_588: ; CODE XREF: sub_588+1Fj ; sub_5D4+4p ... or a - ld hl, (word_1808) - ld de, 1000h - sbc hl, de + ld hl,(word_1808) + ld de,1000h + sbc hl,de jr z,loc_5A9 - ld c, A_STATIN + ld c,A_STATIN call bdos ; Auxiliary Input status or a jr z,loc_5A9 - ld c, A_READ + ld c,A_READ call bdos ; Auxiliary (Reader) input - ld c, a - ld hl, 1808h + ld c,a + ld hl,1808h call sub_61C jr sub_588 ;---------------------------------------------------------------------------- loc_5A9: ; CODE XREF: sub_588+9j sub_588+11j - ld hl, 587h + ld hl,587h or (hl) ret nz - ld hl, (1808h) - ld a, h + ld hl,(1808h) + ld a,h or l ret ; End of function sub_588 @@ -517,10 +517,10 @@ loc_5A9: ; CODE XREF: sub_588+9j sub_588+11j sub_5B4: ; CODE XREF: sub_5D4+12p ld a,(byte_587) or a - ld hl, 1808h + ld hl,1808h jp z,loc_5F7 push af - ld hl, 587h + ld hl,587h dec (hl) dec hl pop af @@ -537,7 +537,7 @@ loc_5C7: LD C,4 ; punch out ; S u b r o u t i n e -sub_5CD: ld c, 8 ; CODE XREF: seg000:1462p +sub_5CD: ld c,8 ; CODE XREF: seg000:1462p call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a ret @@ -549,7 +549,7 @@ sub_5CD: ld c, 8 ; CODE XREF: seg000:1462p sub_5D4: ; CODE XREF: sub_DE7+11p push bc - ld b, 5Fh + ld b,5Fh loc_5D7: ; CODE XREF: sub_5D4+Dj push bc @@ -573,8 +573,8 @@ loc_5E6: ; CODE XREF: sub_5D4+8j sub_5EB: ; CODE XREF: sub_5D4+Ap push bc - ld a, 4 - ld b, 0 + ld a,4 + ld b,0 loc_5F0: ; CODE XREF: sub_5EB+5j sub_5EB+8j djnz loc_5F0 @@ -587,35 +587,35 @@ loc_5F0: ; CODE XREF: sub_5EB+5j sub_5EB+8j ;---------------------------------------------------------------------------- loc_5F7: ; CODE XREF: sub_5B4+7j - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) - ld a, d + ld d,(hl) + ld a,d or e ret z dec de - ld (hl), d + ld (hl),d dec hl - ld (hl), e - ld de, 4 - add hl, de + ld (hl),e + ld de,4 + add hl,de push hl - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl - add hl, de - ex (sp), hl + add hl,de + ex (sp),hl inc de - ld a, e + ld a,e and 0FFh - ld (hl), a + ld (hl),a inc hl - ld a, d + ld a,d and 0Fh - ld (hl), a + ld (hl),a pop hl - ld a, 1 + ld a,1 or a ld a,(hl) ret @@ -627,37 +627,37 @@ loc_5F7: ; CODE XREF: sub_5B4+7j sub_61C: ; CODE XREF: sub_588+1Cp or a push hl - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) - ld hl, 1000h - sbc hl, de + ld d,(hl) + ld hl,1000h + sbc hl,de pop hl ret z inc de - ld (hl), e + ld (hl),e inc hl - ld (hl), d + ld (hl),d inc hl push hl - ld e, (hl) + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl inc hl inc hl - add hl, de - ex (sp), hl + add hl,de + ex (sp),hl inc de - ld a, e + ld a,e and 0FFh - ld (hl), a + ld (hl),a inc hl - ld a, d + ld a,d and 0Fh - ld (hl), a + ld (hl),a pop hl - ld (hl), c + ld (hl),c ret ; End of function sub_61C @@ -668,8 +668,8 @@ sub_61C: ; CODE XREF: sub_588+1Cp sub_643: ; CODE XREF: sub_961+54p ; sub_11FA+69p - ld hl, 17A2h - ld b, 25h + ld hl,17A2h + ld b,25h jr loc_650 ; End of function sub_643 @@ -680,7 +680,7 @@ sub_643: ; CODE XREF: sub_961+54p sub_64A: ; CODE XREF: sub_961+9Ep ; seg000:0A63p - ld b, 3 + ld b,3 jr loc_650 ; End of function sub_64A @@ -690,7 +690,7 @@ sub_64A: ; CODE XREF: sub_961+9Ep ; S u b r o u t i n e sub_64E: ; CODE XREF: sub_8D1+Cp sub_BD3+2Fp - ld b, 6 + ld b,6 loc_650: ; CODE XREF: sub_643+5j sub_64A+2j xor a @@ -709,14 +709,14 @@ sub_654: ; CODE XREF: seg000:0AAEp dec (hl) inc hl inc hl - ld e, (hl) - ld d, 0 - ld a, e + ld e,(hl) + ld d,0 + ld a,e inc a and 7Fh - ld (hl), a + ld (hl),a inc hl - adc hl, de + adc hl,de ld a,(hl) ret nc ccf @@ -750,12 +750,12 @@ sub_669: LD A,80H sub_67F: ; CODE XREF: sub_39A+Fp sub_BD3+42j - add hl, bc + add hl,bc sla c - add hl, bc - ld c, (hl) + add hl,bc + ld c,(hl) inc hl - ld h, (hl) + ld h,(hl) ld l, c jp (hl) ; End of function sub_67F @@ -770,8 +770,8 @@ sub_688: ; CODE XREF: seg000:0726p sub_BD3+13p push bc push de push hl - ld (hl), a - ld d, h + ld (hl),a + ld d,h ld e, l inc de jr loc_697 @@ -851,12 +851,12 @@ sub_6E4: push bc ; CODE XREF: sub_11FA+4Bp push hl or a ex af, af' - ld a, 4 + ld a,4 loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j ld a,(de) adc a,(hl) - ld (bc), a + ld (bc),a inc bc inc de inc hl @@ -874,14 +874,14 @@ loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j sub_6FA: push bc ; CODE XREF: seg000:0799p push de push hl - ex de, hl + ex de,hl or a ex af, af' - ld a, 4 + ld a,4 loc_702: ex af, af' ; CODE XREF: sub_6FA+11j ld a,(de) sbc a,(hl) - ld (bc), a + ld (bc),a inc bc inc hl inc de @@ -919,12 +919,12 @@ sub_729: push bc ; CODE XREF: seg000:0A77p push hl ld a,(hl) sub 1 - ld (hl), a - ld b, 3 + ld (hl),a + ld b,3 loc_731: inc hl ; CODE XREF: sub_729+Dj ld a,(hl) sbc a,0 - ld (hl), a + ld (hl),a djnz loc_731 pop hl pop bc @@ -954,42 +954,42 @@ loc_741: PUSH AF ;---------------------------------------------------------------------------- -loc_750: .db 0, 0CAh, 9Ah, 3Bh - .db 0, 0E1h, 0F5h, 5 - .db 80h, 96h, 98h, 0 - .db 40h, 42h, 0Fh, 0 - .db 0A0h, 86h, 1, 0 - .db 10h, 27h, 0, 0 - .db 0E8h, 3, 0, 0 - .db 64h, 0, 0, 0 - .db 0Ah, 0, 0, 0 +loc_750: .db 0, 0CAh,9Ah,3Bh + .db 0, 0E1h,0F5h, 5 + .db 80h, 96h, 98h, 0 + .db 40h, 42h, 0Fh, 0 + .db 0A0h, 86h, 1, 0 + .db 10h, 27h, 0, 0 + .db 0E8h, 3, 0, 0 + .db 64h, 0, 0, 0 + .db 0Ah, 0, 0, 0 -loc_774: ld (smod_w_7BF), de; CODE XREF: sub_50B+6p - ld de, byte_2891 +loc_774: ld (smod_w_7BF),de; CODE XREF: sub_50B+6p + ld de,byte_2891 call sub_692 ld c,+(loc_774-loc_750)/4 ld de,loc_750-4 xor a - ld (smod_b_7BA), a -loc_787: ld a, 30h - ld (smod_b_7B4), a + ld (smod_b_7BA),a +loc_787: ld a,30h + ld (smod_b_7B4),a inc de inc de inc de inc de - ld b, 0Ah + ld b,0Ah loc_792: push bc ; CODE XREF: seg000:07B1j - ld hl, byte_2891 - ld bc, loc_2895 + ld hl,byte_2891 + ld bc,loc_2895 call sub_6FA pop bc - jr c, loc_7B3 + jr c,loc_7B3 push de ld a,(smod_b_7B4) inc a - ld (smod_b_7B4), a - ld de, byte_2891 - ld hl, loc_2895 + ld (smod_b_7B4),a + ld de,byte_2891 + ld hl,loc_2895 call sub_692 pop de djnz loc_792 @@ -1019,7 +1019,7 @@ loc_7CB: DEC C LD (HL),0 RET - PUSH AF +sub_7DD: PUSH AF smod_b_7DF: .EQU $+1 ADD A,0 LD (smod_b_7DF),A @@ -1066,51 +1066,51 @@ smod_w_7F0: .EQU $+2 sub_825: push de ; CODE XREF: sub_8D1+Fp push hl - ld hl, (smod_w_7F0) - ld bc, 3FFh - add hl, bc + ld hl,(smod_w_7F0) + ld bc,3FFh + add hl,bc push hl pop iy ld ix, loc_7E5 xor a loc_836: push af ; CODE XREF: sub_825+5Bj - ld hl, 0FFFFh - ld de, 0FFFFh + ld hl,0FFFFh + ld de,0FFFFh xor e ld e, a - ld b, 8 + ld b,8 loc_841: scf ; CODE XREF: sub_825+3Bj rr h rr l rr d rr e - jr nc, loc_860 - ld a, e + jr nc,loc_860 + ld a,e xor (ix+0) ld e, a - ld a, d + ld a,d xor (ix+1) - ld d, a - ld a, l + ld d,a + ld a,l xor (ix+2) ld l, a - ld a, h + ld a,h xor (ix+3) - ld h, a + ld h,a loc_860: djnz loc_841 ; CODE XREF: sub_825+25j - ld a, h + ld a,h cpl ld (iy+0), a dec iy - ld a, l + ld a,l cpl ld (iy+0), a dec iy - ld a, d + ld a,d cpl ld (iy+0), a dec iy - ld a, e + ld a,e cpl ld (iy+0), a dec iy @@ -1123,7 +1123,7 @@ loc_860: djnz loc_841 ; CODE XREF: sub_825+25j ;---------------------------------------------------------------------------- -loc_885: PUSH AF ; CODE XREF: sub_13BA+Fp +sub_885: PUSH AF ; CODE XREF: sub_13BA+Fp smod_w_887: .equ $+1 ; self modifying LD HL,0 LD DE,1021H @@ -1147,11 +1147,11 @@ loc_899: DJNZ loc_890 ; S u b r o u t i n e sub_8A0: xor a ; CODE XREF: sub_13BA+9p - ld h, a + ld h,a ld l, a - ld (smod_b_7DF), a - ld (smod_w_887), hl - ld hl, loc_2899 + ld (smod_b_7DF),a + ld (smod_w_887),hl + ld hl,loc_2899 jp loc_726 ;---------------------------------------------------------------------------- @@ -1167,21 +1167,21 @@ word_8B4: .dw 0 ; DATA XREF: sub_8B6+17w ; S u b r o u t i n e sub_8B6: xor a ; CODE XREF: sub_8D1+20p - ld c, a - ld b, 8 - ld a, h + ld c,a + ld b,8 + ld a,h loc_8BB: rlca ; CODE XREF: sub_8B6+Cj set 7, c - jr c, loc_8C4 + jr c,loc_8C4 rr c djnz loc_8BB -loc_8C4: ld a, h ; CODE XREF: sub_8B6+8j +loc_8C4: ld a,h ; CODE XREF: sub_8B6+8j and c - ld h, a + ld h,a ld l, 0 - ld (word_2CEB), hl + ld (word_2CEB),hl dec hl - ld (word_8B4), hl + ld (word_8B4),hl ret ;---------------------------------------------------------------------------- @@ -1189,32 +1189,32 @@ loc_8C4: ld a, h ; CODE XREF: sub_8B6+8j sub_8D1: xor a ; CODE XREF: start+7Fp ld hl,byte_2C9D - ld b, 61h + ld b,61h call sub_1786 - ld hl, 1808h + ld hl,1808h call sub_64E call sub_825 - ld hl, (word_179E) - ld (word_2CE9), hl - ld de, (6) - ex de, hl + ld hl,(word_179E) + ld (word_2CE9),hl + ld de,(6) + ex de,hl or a - sbc hl, de + sbc hl,de call sub_8B6 ld a,(byte_8B0) cp 0 jr z,loc_8FD - ld a, 7 -loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j - ld a, 10h - ld (byte_2C9E), a + ld a,7 +loc_8FD: ld (byte_2CA4),a ; CODE XREF: sub_8D1+28j + ld a,10h + ld (byte_2C9E),a ld a,(byte_8AF) cp 3 - jr c, loc_947 - ld a, 1 - ld (smod_b_B0A), a + jr c,loc_947 + ld a,1 + ld (smod_b_B0A),a call loc_ACF - jp c, loc_954 + jp c,loc_954 or a jr z,loc_92B cp 4 @@ -1224,31 +1224,31 @@ loc_8FD: ld (byte_2CA4), a ; CODE XREF: sub_8D1+28j jr locret_953 loc_924: call sub_BB4 ; CODE XREF: sub_8D1+4Bj - jr c, loc_954 ; sub_8D1+4Fj + jr c,loc_954 ; sub_8D1+4Fj jr locret_953 ;---------------------------------------------------------------------------- -loc_92B: ld a, 3 ; CODE XREF: sub_8D1+47j - ld (byte_8AF), a ; sub_8D1+74j +loc_92B: ld a,3 ; CODE XREF: sub_8D1+47j + ld (byte_8AF),a ; sub_8D1+74j xor a - ld (byte_2D04), a + ld (byte_2D04),a call sub_11C1 - jr c, loc_954 + jr c,loc_954 call sub_961 - jr c, loc_954 + jr c,loc_954 jr z,locret_953 call sub_11FA - jr c, loc_954 + jr c,loc_954 jr loc_92B ;---------------------------------------------------------------------------- loc_947: call sub_961 ; CODE XREF: sub_8D1+39j - jr c, loc_954 + jr c,loc_954 jr z,locret_953 call sub_11FA - jr c, loc_954 + jr c,loc_954 locret_953: ret ; CODE XREF: sub_8D1+51j ;---------------------------------------------------------------------------- @@ -1266,13 +1266,13 @@ sub_961: ; CODE XREF: sub_8D1+68p ; sub_8D1+76p ... ld a,(byte_8B1) cpl - ld hl, 8B2h + ld hl,8B2h or (hl) - ld (byte_2CA3), a + ld (byte_2CA3),a ld a,(byte_2CA4) or a jr z,loc_975 - ld (byte_2CA1), a + ld (byte_2CA1),a loc_975: ; CODE XREF: sub_961+Fj ld a,(byte_8B2) @@ -1282,7 +1282,7 @@ loc_975: ; CODE XREF: sub_961+Fj cp 2 jr nz,loc_988 ld a,0 - ld (byte_2CA3), a + ld (byte_2CA3),a loc_988: ; CODE XREF: sub_961+19j ; sub_961+20j @@ -1290,7 +1290,7 @@ loc_988: ; CODE XREF: sub_961+19j cp 1 jr nz,loc_994 ld a,0FFh - ld (byte_2CA3), a + ld (byte_2CA3),a loc_994: ; CODE XREF: sub_961+2Cj ld a,(byte_2CA1) @@ -1302,53 +1302,53 @@ loc_994: ; CODE XREF: sub_961+2Cj ld a,(byte_2CA3) cp 0FFh jr nz,loc_9AE - ld a, 7 - ld (byte_2CA1), a + ld a,7 + ld (byte_2CA1),a loc_9AE: ; CODE XREF: sub_961+38j ; sub_961+3Fj ... ld a,(byte_8AF) cp 3 - jr c, loc_9E3 + jr c,loc_9E3 call sub_643 - ld hl, (word_2CE9) + ld hl,(word_2CE9) xor a or (hl) scf ret z push hl - ld b, 1 + ld b,1 call sub_476 dec hl - ld (hl), 20h + ld (hl),20h pop hl ld de,loc_2CD0 - ld a, 7 - ld (de), a + ld a,7 + ld (de),a ld a,0FFh call sub_172E - ld hl, (word_2CD2) + ld hl,(word_2CD2) ld de,byte_17A3 call sub_1492 - ld hl, (byte_17A0) - ld (word_17A2), hl + ld hl,(byte_17A0) + ld (word_17A2),hl loc_9E3: call sub_4A4 ; CODE XREF: sub_961+52j ld de,byte_17A3 ; seg000:0A2Cj call sub_169E jr nz,loc_A11 ld de,byte_17A3 - ld c, 16h + ld c,16h call sub_471 ret c ld a,0FFh - ld (byte_2CA5), a + ld (byte_2CA5),a ld hl,byte_280E call sub_64A ld a,(byte_2CD1) cp 2 - jr c, loc_A0D -sub_A09: ld de, (byte_2CD4) ; CODE XREF: seg000:0A11p -loc_A0D: ld a, 1 ; CODE XREF: sub_961+A6j + jr c,loc_A0D +sub_A09: ld de,(byte_2CD4) ; CODE XREF: seg000:0A11p +loc_A0D: ld a,1 ; CODE XREF: sub_961+A6j or a ret @@ -1366,13 +1366,13 @@ loc_A11: call sub_A09 ; CODE XREF: sub_961+8Bj loc_A24: ; CODE XREF: seg000:0A19j seg000:0A41j ld de,byte_17A3 - ld c, 13h + ld c,13h call sub_471 - jr nc, loc_9E3 + jr nc,loc_9E3 loc_A2E: ; CODE XREF: seg000:0A22j call sub_552 - ld a, 5 + ld a,5 scf ret ;---------------------------------------------------------------------------- @@ -1386,32 +1386,32 @@ loc_A35: ; CODE XREF: seg000:0A20j jr nz,loc_A24 loc_A43: ; CODE XREF: seg000:0A3Aj - ld de, 2811h - ld c, 1Ah + ld de,2811h + ld c,1Ah call bdos ; BDOS function 26 (F_DMAOFF) - Set DMA address ld e, 1 - ld c, 2Ch + ld c,2Ch call bdos ; BDOS function 44 (F_MULTISEC) - Set number of records to read/write at once ld de,byte_17A3 - ld c, 0Fh + ld c,0Fh call sub_471 ret c ld a,0FFh - ld (byte_2CA5), a + ld (byte_2CA5),a ld hl,byte_280E call sub_64A ld de,byte_17A3 - ld c, 23h + ld c,23h call sub_471 ret c - ld hl, 17C7h - ld (hl), 0 - ld hl, 17C4h + ld hl,17C7h + ld (hl),0 + ld hl,17C4h call sub_729 - ld de, loc_2CAB + ld de,loc_2CAB call sub_692 - ex de, hl - ld b, 7 + ex de,hl + ld b,7 loc_A83: ; CODE XREF: seg000:0A90j push hl @@ -1425,20 +1425,20 @@ loc_A83: ; CODE XREF: seg000:0A90j pop hl djnz loc_A83 ld de,byte_17A3 - ld c, 21h + ld c,21h call sub_471 ret c ld a,(byte_2CA1) cp 3 jr z,loc_AA6 - ld a, 9 + ld a,9 or a ret ;---------------------------------------------------------------------------- loc_AA6: ; CODE XREF: seg000:0AA0j - ld a, 80h - ld (byte_280E), a + ld a,80h + ld (byte_280E),a loc_AAB: ; CODE XREF: seg000:0AB5j ld hl,byte_280E @@ -1448,19 +1448,19 @@ loc_AAB: ; CODE XREF: seg000:0AB5j jr nz,loc_AAB ld a,(2810h) dec a - ld (280Fh), a + ld (280Fh),a ld hl,byte_280E - ld a, 7Fh + ld a,7Fh sub (hl) jr loc_AC8 ;---------------------------------------------------------------------------- loc_AC6: ; CODE XREF: seg000:0AB1j - ld a, 80h + ld a,80h loc_AC8: ; CODE XREF: seg000:0AC4j - ld (byte_280E), a - ld a, 1 + ld (byte_280E),a + ld a,1 or a ret ;---------------------------------------------------------------------------- @@ -1468,28 +1468,28 @@ loc_AC8: ; CODE XREF: seg000:0AC4j loc_ACF: ; CODE XREF: sub_8D1+40p ; sub_BB4+Ep xor a - ld (byte_2D04), a - ld a, 4 - ld hl, 8AFh + ld (byte_2D04),a + ld a,4 + ld hl,8AFh cp (hl) ld a,0 ret nz ld hl,word_2CED - ld b, 11h + ld b,11h xor a call sub_1786 call sub_FAA ld a,(byte_2CA6) cp 0FFh - ld b, 5 + ld b,5 jr z,loc_AF3 - ld b, 0Ah + ld b,0Ah loc_AF3: push bc ld ix,loc_2CE0 ; CODE XREF: seg000:0AEFj ld (ix+3), 20h ld (ix+2), 0 - ld hl, (word_2CEB) + ld hl,(word_2CEB) ld (ix+0), l ld (ix+1), h smod_b_B0A: .equ $+1 ; DATA XREF: sub_8D1+3Dw @@ -1537,7 +1537,7 @@ loc_B48: LD IX,loc_2CA7 LD A,6 JR NZ,loc_B6A LD HL,(word_2CE9) - LD DE,2CAFH + LD DE,loc_2CAF LD BC,20H LDIR loc_B68: LD A,3 @@ -1546,11 +1546,11 @@ loc_B6A: PUSH AF CALL sub_688 POP AF CALL sub_13BA - CALL 0FC9H + CALL sub_FC9 JP loc_B28 loc_B7B: LD HL,loc_2CA7 - LD DE,2C9FH + LD DE,loc_2C9F CALL sub_692 LD A,1 LD (smod_b_B0A),A @@ -1562,16 +1562,16 @@ loc_B7B: LD HL,loc_2CA7 LD A,4 RET -loc_B96: .db 0 ; - .db 0Bh ; - .db 0FEh ; þ - .db 4 ; - .db 2 ; - .db 11h ; - .db 12h ; - .db 0Fh ; - .db 8 ; - .db 10h ; +loc_B96: .db 0 ; + .db 0Bh ; + .db 0FEh ; þ + .db 4 ; + .db 2 ; + .db 11h ; + .db 12h ; + .db 0Fh ; + .db 8 ; + .db 10h ; loc_BA0: .dw loc_B34 .dw loc_B39 @@ -1587,7 +1587,7 @@ loc_BA0: .dw loc_B34 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p +sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p ret c ; sub_BB4+14j cp 0Bh jr z,loc_BC2 @@ -1598,7 +1598,7 @@ sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p ;---------------------------------------------------------------------------- -loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj +loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj ret c cp 4 jr z,sub_BB4 @@ -1613,9 +1613,9 @@ loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj ; S u b r o u t i n e sub_BD3: call sub_961 ; CODE XREF: sub_BB4p - jr nc, loc_BDF - ld a, 5 - ld (smod_b_B0A), a + jr nc,loc_BDF + ld a,5 + ld (smod_b_B0A),a or a ret @@ -1624,7 +1624,7 @@ loc_BDF: cp 9 ; CODE XREF: sub_BD3+3j ld hl,loc_2CAB call sub_688 loc_BE9: xor a ; CODE XREF: sub_BD3+Ej - ld (byte_2D04), a + ld (byte_2D04),a call sub_FAA loc_BF0: call sub_FC9 call sub_D30 @@ -1633,11 +1633,11 @@ loc_BF0: call sub_FC9 call sub_692 ld hl,word_1808 call sub_64E - ld a, 9 + ld a,9 call sub_13BA loc_C0A: call sub_FD1 ld hl,stab_CE4 - ld bc, 7 + ld bc,7 cpir jp z,sub_67F ld a,0FFh @@ -1666,8 +1666,8 @@ loc_C36: LD DE,loc_2CA7 JP NZ,loc_BF0 CALL sub_D0E JR Z,loc_C50 - LD A,0CH - LD (0B0AH),A +loc_C47: LD A,0CH + LD (smod_b_B0A),A LD A,0FFH SCF RET @@ -1688,7 +1688,7 @@ loc_C57: LD HL,byte_2D04 SCF RET -loc_C6A: LD HL,2CAFH +loc_C6A: LD HL,loc_2CAF CALL sub_DDC JP loc_BF0 @@ -1701,7 +1701,7 @@ loc_C7F: CALL loc_529 LD HL,stab_CF9 LD BC,7 CPIR - JP Z,67FH + JP Z,sub_67F JP loc_C1C loc_C93: LD A,0FFH @@ -1732,7 +1732,7 @@ loc_CB6: CALL sub_C97 loc_CCA: CALL sub_C97 CALL sub_D30 - JP C,0C47H + JP C,loc_C47 LD HL,loc_2CAB LD DE,loc_2CE0 CALL sub_692 @@ -1773,47 +1773,37 @@ stab_CF9: .db 0EBh .dw loc_CCA ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_D0E: ; CODE XREF: sub_8D1+8Bp - ; sub_11FA+64p - call sub_50B - call sub_D30 +sub_D0E: call sub_50B ; CODE XREF: sub_8D1+8Bp + call sub_D30 ; sub_11FA+64p ret c - -loc_D15: ld a, 1Ah ; CODE XREF: sub_D0E+13j +loc_D15: ld a,1Ah ; CODE XREF: sub_D0E+13j call loc_D68 ret c ld hl,byte_280E - ld a, 1 + ld a,1 cp (hl) jr nz,loc_D15 ld a,0 - ld (byte_2CA5), a - ld c, 10h + ld (byte_2CA5),a + ld c,10h ld de,byte_17A3 jp sub_471 -; End of function sub_D0E - ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_D30: ; CODE XREF: sub_BD3+20p - ; sub_D0E+3p ... - ld bc, (2CF5h) - ld a, b +sub_D30: ld bc,(word_2CF5) ; CODE XREF: sub_BD3+20p + ld a,b ; sub_D0E+3p ... or c ret z - ld hl, (word_2CE9) - -loc_D3A: ; CODE XREF: sub_D30+2Ej - ld a,(byte_2CA3) + ld hl,(word_2CE9) +loc_D3A: ld a,(byte_2CA3) ; CODE XREF: sub_D30+2Ej cp 0FFh jr z,loc_D52 -loc_D41: - ld a,0 ; DATA XREF: sub_D30+23w +smod_b_D41: .equ $+1 +loc_D41: ld a,0 ; DATA XREF: sub_D30+23w cp 0Dh jr z,loc_D52 ld a,(hl) @@ -1822,14 +1812,13 @@ loc_D41: ld a,0Dh call loc_D68 ret c - loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j - ld (loc_D41+1), a + ld (smod_b_D41),a inc hl dec bc call loc_D68 ret c - ld a, b + ld a,b or c jr nz,loc_D3A call sub_50B @@ -1839,7 +1828,7 @@ loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j ;---------------------------------------------------------------------------- -loc_D68: ld (byte_D6F), a ; CODE XREF: sub_D0E+9p sub_D30+1Ep +loc_D68: ld (byte_D6F),a ; CODE XREF: sub_D0E+9p sub_D30+1Ep push bc push de push hl @@ -1929,8 +1918,8 @@ sub_DE7: push bc ; CODE XREF: sub_FD1+11p call sub_16AA ; sub_11C1+2Dp ... call nz,sub_16A5 cp 1Bh - ld a, 18h - ld c, 0Ah + ld a,18h + ld c,0Ah call z,sub_57F pop bc loc_DF8: call sub_5D4 ; CODE XREF: sub_DE7+16j @@ -2077,7 +2066,7 @@ loc_EDD: CALL sub_E2F JP C,loc_F38 CALL sub_FA2 CALL Z,sub_7ED - CALL NZ,loc_885 + CALL NZ,sub_885 LD HL,(word_2CEB) LD BC,(word_2CEF) SBC HL,BC @@ -2146,11 +2135,11 @@ sub_F54: LD A,10H sub_F58: LD (byte_2CFD),A AND 7FH - CALL loc_885 + CALL sub_885 LD B,2 loc_F62: PUSH BC CALL sub_E2F - CALL loc_885 + CALL sub_885 POP BC JP C,loc_F38 DJNZ loc_F62 @@ -2194,10 +2183,10 @@ sub_FAA: ld hl,word_2CE9 ; CODE XREF: seg000:0AE5p sub_BD3+1Ap ld de,word_2CED ldi ldi - ld hl, 0 - ld (word_2CEF), hl + ld hl,0 + ld (word_2CEF),hl sub_FBA: ld hl,word_2CED ; CODE XREF: sub_11FA+4Ep - ld de, 2CF3h + ld de,loc_2CF3 loc_FC0: ldi ; CODE XREF: sub_FC9+6j ldi ldi @@ -2207,7 +2196,7 @@ loc_FC0: ldi ; CODE XREF: sub_FC9+6j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FC9: ld hl,2CF3h ; CODE XREF: sub_BD3+1Dp +sub_FC9: ld hl,loc_2CF3 ; CODE XREF: sub_BD3+1Dp ld de,word_2CED ; sub_11FA+56p ... jr loc_FC0 @@ -2215,16 +2204,16 @@ sub_FC9: ld hl,2CF3h ; CODE XREF: sub_BD3+1Dp ; S u b r o u t i n e sub_FD1: xor a ; CODE XREF: sub_BD3+37p - ld (byte_2D01), a - ld hl, 400h - ld (2CFEh), hl -loc_FDB: ld a, 5 ; CODE XREF: sub_FD1+61j - ld (byte_2D00), a -loc_FE0: ld b, 64h + ld (byte_2D01),a + ld hl,400h + ld (word_2CFE),hl +loc_FDB: ld a,5 ; CODE XREF: sub_FD1+61j + ld (byte_2D00),a +loc_FE0: ld b,64h call sub_DE7 - jp c, loc_108A - ld hl, stab_109E - ld bc, 3 + jp c,loc_108A + ld hl,stab_109E + ld bc,3 cpir jp z,sub_67F jr loc_1024 @@ -2241,7 +2230,7 @@ loc_FE0: ld b, 64h LD HL,stab_10A7 LD BC,2 CPIR - JP Z,67FH + JP Z,sub_67F JR loc_1024 LD HL,byte_2D00 @@ -2253,10 +2242,10 @@ loc_FE0: ld b, 64h LD B,0AH CALL sub_DE7 JR C,loc_1035 -loc_1024: ld hl, (2CFEh) ; CODE XREF: sub_FD1+22j +loc_1024: ld hl,(word_2CFE) ; CODE XREF: sub_FD1+22j dec hl - ld (2CFEh), hl - ld a, h + ld (word_2CFE),hl + ld a,h or l ld a,0FCh jp z,loc_108A @@ -2264,52 +2253,52 @@ loc_1024: ld hl, (2CFEh) ; CODE XREF: sub_FD1+22j ;---------------------------------------------------------------------------- -loc_1035: LD A,0FFH ;1035 3e ff - JP loc_108A ;1037 c3 8a 10 - - LD A,5 ;103a 3e 05 - LD (byte_2D00),A ;103c 32 00 2d - CALL loc_E05 ;103f cd 05 0e - JR C,loc_108A ;1042 38 46 - LD HL,stab_10AD ;1044 21 ad 10 - LD BC,2 ;1047 01 02 00 - CPIR ;104a ed b1 - JP Z,sub_67F ;104c ca 7f 06 - JR loc_1024 ;104f 18 d3 - - CALL loc_E05 ;1051 cd 05 0e - JR C,loc_108A ;1054 38 34 - LD HL,stab_10B3 ;1056 21 b3 10 - LD BC,4 ;1059 01 04 00 - CPIR ;105c ed b1 - JP Z,sub_67F ;105e ca 7f 06 - JR loc_1024 ;1061 18 c1 - - LD A,10H ;1063 3e 10 - LD (byte_2C9E),A ;1065 32 9e 2c - CALL sub_113F ;1068 cd 3f 11 - JR 107FH ;106b 18 12 - ; - LD A,10H ;106d 3e 10 - LD (byte_2C9E),A ;106f 32 9e 2c - CALL sub_1100 ;1072 cd 00 11 - JR loc_107F ;1075 18 08 - - LD A,20H ;1077 3e 20 - LD (byte_2C9E),A ;1079 32 9e 2c - CALL 10C5H ;107c cd c5 10 -loc_107F: PUSH AF ;107f f5 - LD HL,loc_2CA7 ;1080 21 a7 2c - LD DE,2CE4H ;1083 11 e4 2c - CALL sub_692 ;1086 cd 92 06 - POP AF ;1089 f1 -loc_108A: ld hl, 10BFh ; CODE XREF: sub_FD1+14j - ld bc, 6 ; sub_FD1+5Ej +loc_1035: LD A,0FFH + JP loc_108A + + LD A,5 + LD (byte_2D00),A + CALL loc_E05 + JR C,loc_108A + LD HL,stab_10AD + LD BC,2 + CPIR + JP Z,sub_67F + JR loc_1024 + + CALL loc_E05 + JR C,loc_108A + LD HL,stab_10B3 + LD BC,4 + CPIR + JP Z,sub_67F + JR loc_1024 + + LD A,10H + LD (byte_2C9E),A + CALL sub_113F + JR loc_107F + + LD A,10H + LD (byte_2C9E),A + CALL sub_1100 + JR loc_107F + + LD A,20H + LD (byte_2C9E),A + CALL sub_10C5 +loc_107F: PUSH AF + LD HL,loc_2CA7 + LD DE,loc_2CE4 + CALL sub_692 + POP AF +loc_108A: ld hl,stab_10BF ; CODE XREF: sub_FD1+14j + ld bc,6 ; sub_FD1+5Ej cpir jr nz,loc_109C cp 98h jr nz,loc_109A - ld a, 10h + ld a,10h loc_109A: scf ; CODE XREF: sub_FD1+C5j ret @@ -2348,185 +2337,183 @@ stab_10B3: .db 43h ; C .db 18h ; .db 0F5h ; õ .db 0Fh ; + .db 63h ; c .db 10h ; .db 6Dh ; m .db 10h ; .db 77h ; w .db 10h ; - .db 98h ; ? + +stab_10BF: .db 98h ; ? .db 6 ; .db 10h ; .db 0FFh ; ÿ .db 0FEh ; þ .db 0FCh ; ü - CALL sub_8A0 ;10c5 cd a0 08 - CALL sub_E2F ;10c8 cd 2f 0e - RET C ;10cb d8 - LD (byte_2D01),A ;10cc 32 01 2d - CALL sub_7ED ;10cf cd ed 07 - LD HL,loc_2CA7 ;10d2 21 a7 2c - LD B,4 ;10d5 06 04 -loc_10D7: PUSH BC ;10d7 c5 - PUSH HL ;10d8 e5 - CALL sub_E2F ;10d9 cd 2f 0e - CALL sub_7ED ;10dc cd ed 07 - POP HL ;10df e1 - POP BC ;10e0 c1 - LD (HL),A ;10e1 77 - INC HL ;10e2 23 - RET C ;10e3 d8 - DJNZ loc_10D7 ;10e4 10 f1 - LD B,4 ;10e6 06 04 -loc_10E8: PUSH BC ;10e8 c5 - CALL sub_E2F ;10e9 cd 2f 0e - CALL sub_7ED ;10ec cd ed 07 - POP BC ;10ef c1 - RET C ;10f0 d8 - DJNZ loc_10E8 ;10f1 10 f5 - LD HL,loc_2899 ;10f3 21 99 28 - LD DE,7E9H ;10f6 11 e9 07 - CALL sub_6D3 ;10f9 cd d3 06 - JR Z,1132H ;10fc 28 34 - JR 113BH ;10fe 18 3b - ; -sub_1100: CALL sub_8A0 ;1100 cd a0 08 - CALL sub_E2F ;1103 cd 2f 0e - RET C ;1106 d8 - LD (byte_2D01),A ;1107 32 01 2d - CALL loc_885 ;110a cd 85 08 - LD HL,loc_2CA7 ;110d 21 a7 2c - LD B,4 ;1110 06 04 - PUSH BC ;1112 c5 - PUSH HL ;1113 e5 - CALL sub_E2F ;1114 cd 2f 0e - CALL loc_885 ;1117 cd 85 08 - POP HL ;111a e1 - POP BC ;111b c1 - LD (HL),A ;111c 77 - INC HL ;111d 23 - RET C ;111e d8 - DJNZ 1112H ;111f 10 f1 - LD B,2 ;1121 06 02 - PUSH BC ;1123 c5 - CALL sub_E2F ;1124 cd 2f 0e - CALL loc_885 ;1127 cd 85 08 - POP BC ;112a c1 - RET C ;112b d8 - DJNZ 1123H ;112c 10 f5 - LD A,H ;112e 7c - OR L ;112f b5 - JR NZ,113BH ;1130 20 09 - LD A,0FFH ;1132 3e ff - LD (byte_2CA6),A ;1134 32 a6 2c - LD A,(byte_2D01) ;1137 3a 01 2d - RET ;113a c9 - - LD A,0FFH ;113b 3e ff - SCF ;113d 37 - RET ;113e c9 - -sub_113F: CALL sub_8A0 ;113f cd a0 08 - CALL 1194H ;1142 cd 94 11 - RET C ;1145 d8 - LD (byte_2D01),A ;1146 32 01 2d - CALL loc_885 ;1149 cd 85 08 - LD HL,loc_2CA7 ;114c 21 a7 2c - LD B,4 ;114f 06 04 - PUSH BC ;1151 c5 - PUSH HL ;1152 e5 - CALL 1194H ;1153 cd 94 11 - JR NC,115BH ;1156 30 03 - POP HL ;1158 e1 - POP BC ;1159 c1 - RET ;115a c9 - ; - CALL loc_885 ;115b cd 85 08 - POP HL ;115e e1 - POP BC ;115f c1 - LD (HL),A ;1160 77 - INC HL ;1161 23 - DJNZ 1151H ;1162 10 ed - LD B,2 ;1164 06 02 - PUSH BC ;1166 c5 - CALL 1194H ;1167 cd 94 11 - JR NC,116EH ;116a 30 02 - POP BC ;116c c1 - RET ;116d c9 - ; - CALL loc_885 ;116e cd 85 08 - POP BC ;1171 c1 - DJNZ 1166H ;1172 10 f2 - LD A,H ;1174 7c - OR L ;1175 b5 - JR NZ,1190H ;1176 20 18 - LD B,0AH ;1178 06 0a - CALL 0DE7H ;117a cd e7 0d - CP 0DH ;117d fe 0d - JR NZ,1186H ;117f 20 05 - LD B,0AH ;1181 06 0a - CALL 0DE7H ;1183 cd e7 0d - OR A ;1186 b7 - LD A,0FFH ;1187 3e ff - LD (byte_2CA6),A ;1189 32 a6 2c - LD A,(byte_2D01) ;118c 3a 01 2d - RET ;118f c9 - ; - LD A,0FFH ;1190 3e ff - SCF ;1192 37 - RET ;1193 c9 - - CALL loc_E05 ;1194 cd 05 0e - RET C ;1197 d8 - CALL sub_11B3 ;1198 cd b3 11 - JR NZ,loc_11AF ;119b 20 12 - RLCA ;119d 07 - RLCA ;119e 07 - RLCA ;119f 07 - RLCA ;11a0 07 - LD B,A ;11a1 47 - PUSH BC ;11a2 c5 - CALL loc_E05 ;11a3 cd 05 0e - POP BC ;11a6 c1 - RET C ;11a7 d8 - CALL sub_11B3 ;11a8 cd b3 11 - JR NZ,loc_11AF ;11ab 20 02 - OR B ;11ad b0 - RET ;11ae c9 - ; -loc_11AF: LD A,0FFH ;11af 3e ff - SCF ;11b1 37 - RET ;11b2 c9 - ; -sub_11B3: LD L,A ;11b3 6f - SUB 30H ;11b4 d6 30 - CP 0AH ;11b6 fe 0a - JR C,loc_11BC ;11b8 38 02 - SUB 27H ;11ba d6 27 -loc_11BC: LD L,A ;11bc 6f - AND 0F0H ;11bd e6 f0 - LD A,L ;11bf 7d - RET ;11c0 c9 - -;---------------------------------------------------------------------------- - -; S u b r o u t i n e - -sub_11C1: ; CODE XREF: sub_8D1+63p - ; sub_11C1+30j - ld a,0FFh - ld (byte_2D02), a +sub_10C5: CALL sub_8A0 + CALL sub_E2F + RET C + LD (byte_2D01),A + CALL sub_7ED + LD HL,loc_2CA7 + LD B,4 +loc_10D7: PUSH BC + PUSH HL + CALL sub_E2F + CALL sub_7ED + POP HL + POP BC + LD (HL),A + INC HL + RET C + DJNZ loc_10D7 + LD B,4 +loc_10E8: PUSH BC + CALL sub_E2F + CALL sub_7ED + POP BC + RET C + DJNZ loc_10E8 + LD HL,loc_2899 + LD DE,loc_7E9 + CALL sub_6D3 + JR Z,loc_1132 + JR loc_113B + +sub_1100: CALL sub_8A0 + CALL sub_E2F + RET C + LD (byte_2D01),A + CALL sub_885 + LD HL,loc_2CA7 + LD B,4 +loc_1112: PUSH BC + PUSH HL + CALL sub_E2F + CALL sub_885 + POP HL + POP BC + LD (HL),A + INC HL + RET C + DJNZ loc_1112 + LD B,2 +loc_1123: PUSH BC + CALL sub_E2F + CALL sub_885 + POP BC + RET C + DJNZ loc_1123 + LD A,H + OR L + JR NZ,loc_113B +loc_1132: LD A,0FFH + LD (byte_2CA6),A + LD A,(byte_2D01) + RET + +loc_113B: LD A,0FFH + SCF + RET + +sub_113F: CALL sub_8A0 + CALL sub_1194 + RET C + LD (byte_2D01),A + CALL sub_885 + LD HL,loc_2CA7 + LD B,4 +loc_1151: PUSH BC + PUSH HL + CALL sub_1194 + JR NC,loc_115B + POP HL + POP BC + RET + +loc_115B: CALL sub_885 + POP HL + POP BC + LD (HL),A + INC HL + DJNZ loc_1151 + LD B,2 +loc_1166: PUSH BC + CALL sub_1194 + JR NC,loc_116E + POP BC + RET + +loc_116E: CALL sub_885 + POP BC + DJNZ loc_1166 + LD A,H + OR L + JR NZ,loc_1190 + LD B,0AH + CALL sub_DE7 + CP 0DH + JR NZ,loc_1186 + LD B,0AH + CALL sub_DE7 +loc_1186: OR A + LD A,0FFH + LD (byte_2CA6),A + LD A,(byte_2D01) + RET + +loc_1190: LD A,0FFH + SCF + RET + +sub_1194: CALL loc_E05 + RET C + CALL sub_11B3 + JR NZ,loc_11AF + RLCA + RLCA + RLCA + RLCA + LD B,A + PUSH BC + CALL loc_E05 + POP BC + RET C + CALL sub_11B3 + JR NZ,loc_11AF + OR B + RET + +loc_11AF: LD A,0FFH + SCF + RET + +sub_11B3: LD L,A + SUB 30H + CP 0AH + JR C,loc_11BC + SUB 27H +loc_11BC: LD L,A + AND 0F0H + LD A,L + RET + +;---------------------------------------------------------------------------- +; S u b r o u t i n e + +sub_11C1: ld a,0FFh ; CODE XREF: sub_8D1+63p + ld (byte_2D02),a ; sub_11C1+30j call sub_FAA ld a,(byte_2C9E) cp 10h - ld a, 43h + ld a,43h jr z,loc_11D4 - ld a, 15h + ld a,15h -loc_11D4: ; CODE XREF: sub_11C1+Fj - call loc_145C - ld b, 64h +loc_11D4: call loc_145C ; CODE XREF: sub_11C1+Fj + ld b,64h call sub_1289 or a jr z,loc_11F3 @@ -2537,49 +2524,43 @@ loc_11D4: ; CODE XREF: sub_11C1+Fj ret ;---------------------------------------------------------------------------- -loc_11E7: ; CODE XREF: sub_11C1+20j - ld a, 6 +loc_11E7: ld a,6 ; CODE XREF: sub_11C1+20j call loc_145C - ld b, 0Ah + ld b,0Ah call sub_DE7 jr sub_11C1 + ;---------------------------------------------------------------------------- -loc_11F3: ; CODE XREF: sub_11C1+1Cj - ld a, 6 +loc_11F3: ld a,6 ; CODE XREF: sub_11C1+1Cj call loc_145C xor a ret -; End of function sub_11C1 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_11FA: ; CODE XREF: sub_8D1+6Fp - ; sub_8D1+7Dp ... - ld a,0FFh - ld (byte_2D02), a - ld (byte_2CA3), a +sub_11FA: ld a,0FFh ; CODE XREF: sub_8D1+6Fp + ld (byte_2D02),a ; sub_8D1+7Dp ... + ld (byte_2CA3),a xor a - ld (byte_2D07), a + ld (byte_2D07),a call sub_FAA ld hl,loc_2CAB call sub_688 ld a,(byte_2C9E) cp 10h - ld a, 43h + ld a,43h jr z,loc_121A - ld a, 15h + ld a,15h loc_121A: call loc_145C ; CODE XREF: sub_11FA+1Cj loc_121D: ld a,(byte_2D07) ; CODE XREF: sub_11FA+5Ej or a - ld b, 82h + ld b,82h jr z,loc_1227 - ld b, 32h + ld b,32h loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j - jr c, loc_125A + jr c,loc_125A push af call sub_50B pop af @@ -2592,33 +2573,31 @@ loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j inc (hl) ld de,word_2CEF ld hl,loc_2CAB - ld bc, loc_2CAB + ld bc,loc_2CAB call sub_6E4 call sub_FBA call sub_D30 - jr c, loc_1285 + jr c,loc_1285 loc_1250: call sub_FC9 ; CODE XREF: sub_11FA+3Bj - ld a, 6 + ld a,6 call loc_145C jr loc_121D -;---------------------------------------------------------------------------- loc_125A: cp 0F6h ; CODE XREF: sub_11FA+30j jr nz,loc_126D call sub_D0E - jr c, loc_1285 + jr c,loc_1285 call sub_643 - ld a, 6 + ld a,6 call loc_145C xor a ret + ;---------------------------------------------------------------------------- -loc_126D: ; CODE XREF: sub_11FA+3Fj - ; sub_11FA+62j - cp 0FFh - jr nz,loc_1285 +loc_126D: cp 0FFh ; CODE XREF: sub_11FA+3Fj + jr nz,loc_1285 ; sub_11FA+62j ld a,(byte_2D02) cp 0FFh jr nz,loc_1285 @@ -2626,242 +2605,152 @@ loc_126D: ; CODE XREF: sub_11FA+3Fj or a jr z,loc_1285 xor a - ld (byte_2C9E), a + ld (byte_2C9E),a jp sub_11FA -;---------------------------------------------------------------------------- -loc_1285: ; CODE XREF: sub_11FA+54j - ; sub_11FA+67j ... - ld a,0FFh - scf +loc_1285: ld a,0FFh ; CODE XREF: sub_11FA+54j + scf ; sub_11FA+67j ... ret -; End of function sub_11FA - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_1289: ; CODE XREF: sub_11C1+18p - ; sub_11FA+2Dp - ld a, b - ld (byte_2D03), a +sub_1289: ld a,b ; CODE XREF: sub_11C1+18p + ld (byte_2D03),a ; sub_11FA+2Dp xor a - ld (byte_2D04), a + ld (byte_2D04),a ld a,0 - ld (byte_2D09), a - -loc_1296: ; CODE XREF: sub_1289+12Aj - ld a,(byte_2D03) - ld b, a + ld (byte_2D09),a +loc_1296: ld a,(byte_2D03) ; CODE XREF: sub_1289+12Aj + ld b,a call sub_DE7 - ld (byte_2D08), a - ld hl, 12AEh - ld bc, 4 + ld (byte_2D08),a + ld hl,loc_12AE + ld bc,4 cpir jp z,sub_67F jp loc_137A + ;---------------------------------------------------------------------------- - .db 2 ; + +loc_12AE: .db 2 ; .db 1 ; .db 4 ; .db 18h ; - .db 6Ah ; j - .db 13h ; - .db 5Fh ; _ - .db 13h ; - .db 0BFh ; ¿ - .db 12h ; - .db 0BAh ; º - .db 12h ; - .db 21h ; ! - .db 0 ; - .db 4 ; - .db 18h ; - .db 3 ; - .db 21h ; ! - .db 80h ; ? - .db 0 ; - .db 22h ; " - .db 5 ; - .db 2Dh ; - + .dw loc_136A + .dw loc_135F + .dw loc_12BF + .dw loc_12BA + +loc_12BA: LD HL,400H + JR 12C2H +loc_12BF: LD HL,80H + LD (word_2D05),HL ld b,0ah call sub_DE7 - ld (12D9H),A + ld (smod_b_12D9),A jp c,loc_137A ld b,0ah call sub_DE7 jp c,loc_137A +smod_b_12D9: .equ $+1 add a,0 cp 0ffh jp nz,loc_137A call sub_8A0 ld ix,(word_2CED) - ld b,0ah - - .db 0DDh ; Ý - .db 0E5h ; å - .db 0CDh ; Í - .db 0E7h ; ç - .db 0Dh ; - - .db 0DDh ; Ý - .db 0E1h ; á - .db 32h ; 2 - .db 8 ; - .db 2Dh ; - - - .db 0DAh ; Ú - .db 7Ah ; z - .db 13h ; - - .db 0DDh ; Ý - .db 77h ; w - .db 0 ; - .db 0DDh ; Ý - .db 23h ; # - .db 0CDh ; Í - - .db 0DDh ; Ý - .db 7 ; - .db 0CDh ; Í - .db 85h ; ? - .db 8 ; - .db 0EDh ; í - .db 4Bh ; K - .db 0EFh ; ï - .db 2Ch ; , - .db 3 ; - .db 0EDh ; í - .db 43h ; C - .db 0EFh ; ï - .db 2Ch ; , - .db 0EDh ; í - .db 5Bh ; [ - .db 5 ; - .db 2Dh ; - - .db 1Bh ; - .db 0EDh ; í - .db 53h ; S - .db 5 ; - .db 2Dh ; - - .db 7Ah ; z - .db 0B3h ; ³ - .db 20h ; - .db 0D0h ; Ð - .db 0DDh ; Ý - .db 22h ; " - .db 0EDh ; í - .db 2Ch ; , - .db 6 ; - .db 0Ah ; - .db 0CDh ; Í - .db 0E7h ; ç - .db 0Dh ; - .db 32h ; 2 - .db 8 ; - .db 2Dh ; - - .db 0DAh ; Ú - .db 7Ah ; z - .db 13h ; - .db 3Ah ; : - .db 9Eh ; ? - .db 2Ch ; , - .db 0FEh ; þ - .db 10h ; - .db 20h ; - .db 26h ; & - .db 3Ah ; : - .db 8 ; - .db 2Dh ; - - .db 0CDh ; Í - .db 85h ; ? - .db 8 ; - .db 6 ; - .db 0Ah ; - .db 0CDh ; Í - .db 0E7h ; ç - .db 0Dh ; - .db 32h ; 2 - .db 8 ; - .db 2Dh ; - - .db 0DAh ; Ú - .db 7Ah ; z - .db 13h ; - .db 0CDh ; Í - .db 85h ; ? - .db 8 ; - .db 7Ch ; | - .db 0B5h ; µ - .db 0C2h ; Â - .db 7Ah ; z - .db 13h ; - .db 0AFh ; ¯ - .db 32h ; 2 - .db 4 ; - .db 2Dh ; - - .db 3Eh ; > - .db 0 ; - .db 32h ; 2 - .db 2 ; - .db 2Dh ; - - .db 3Ah ; : - .db 0D9h ; Ù - .db 12h ; - .db 0C9h ; É - - ld a,(byte_2D08) +loc_12E6: LD B,0AH + PUSH IX + CALL sub_DE7 + POP IX + LD (byte_2D08),A + JP C,loc_137A + LD (IX),A + INC IX + CALL sub_7DD + CALL sub_885 + LD BC,(word_2CEF) + INC BC + LD (word_2CEF),BC + LD DE,(word_2D05) + DEC DE + LD (word_2D05),DE + LD A,D + OR E + JR NZ,loc_12E6 + LD (word_2CED),IX + LD B,0AH + CALL sub_DE7 + LD (byte_2D08),A + JP C,loc_137A + LD A,(byte_2C9E) + CP 10H + JR NZ,loc_1352 + LD A,(byte_2D08) + CALL sub_885 + LD B,0AH + CALL sub_DE7 + LD (byte_2D08),A + JP C,loc_137A + CALL sub_885 + LD A,H + OR L + JP NZ,loc_137A +loc_1345: XOR A + LD (byte_2D04),A + LD A,0 + LD (byte_2D02),A + LD A,(smod_b_12D9) + RET + +loc_1352: ld a,(byte_2D08) ld l,a ld a,(smod_b_7DF) sub l - jr z,$-15h + jr z,loc_1345 jp loc_137A - ld b,0ah +loc_135F: ld b,0ah call sub_DE7 ld a,0f6h ret c jp loc_137A - ld a,0ffh +loc_136A: ld a,0ffh ld hl,byte_2D09 cp (hl) - jr nz,loc_1367 + jr nz,loc_1376 ld a,0ffh scf ret -loc_1367: ld (hl),a +loc_1376: ld (hl),a jp loc_13A4 ;---------------------------------------------------------------------------- -loc_137A: ; CODE XREF: sub_1289+22j - ld a,0 - ld (byte_2D09), a - -loc_137F: ; CODE XREF: sub_1289+FBj - ld b, 0Ah +loc_137A: ld a,0 ; CODE XREF: sub_1289+22j + ld (byte_2D09),a +loc_137F: ld b,0Ah ; CODE XREF: sub_1289+FBj call sub_DE7 - jr nc, loc_137F + jr nc,loc_137F ld a,(byte_2D02) cp 0FFh jr nz,loc_139A ld a,(byte_2C9E) cp 10h - ld a, 43h + ld a,43h jr z,loc_13A1 - ld a, 15h + ld a,15h jr loc_13A1 -;---------------------------------------------------------------------------- -loc_139A: ld a, 28h ; CODE XREF: sub_1289+102j - ld (byte_2D03), a - ld a, 15h +loc_139A: ld a,28h ; CODE XREF: sub_1289+102j + ld (byte_2D03),a + ld a,15h loc_13A1: call loc_145C ; CODE XREF: sub_1289+10Bj -loc_13A4: call sub_FC9 ; sub_1289+10Fj +loc_13A4: call sub_FC9 ; sub_1289+10Fj ld hl,byte_2D04 inc (hl) call sub_482 @@ -2875,20 +2764,20 @@ loc_13A4: call sub_FC9 ; sub_1289+10Fj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_13BA: ld (byte_2CE8), a ; CODE XREF: sub_BD3+34p +sub_13BA: ld (byte_2CE8),a ; CODE XREF: sub_BD3+34p ld hl,loc_1403 call sub_DDC call sub_8A0 ld a,(byte_2CE8) - call loc_885 + call sub_885 call sub_1418 - ld hl, loc_2CE0 - ld b, 4 + ld hl,loc_2CE0 + ld b,4 loc_13D4: push bc ; CODE XREF: sub_13BA+26j ld a,(hl) inc hl push hl - call loc_885 + call sub_885 call sub_1418 pop hl pop bc @@ -2904,15 +2793,16 @@ loc_13D4: push bc ; CODE XREF: sub_13BA+26j ld a,(byte_2CE8) cp 8 ret z - ld a, 11h + ld a,11h jp loc_145C ;---------------------------------------------------------------------------- -loc_1403: .db 2Ah ; * - .db 2Ah ; * - .db 18h ; - .db 42h ; B - .db 0 ; + +loc_1403: .db 2Ah ; * + .db 2Ah ; * + .db 18h ; + .db 42h ; B + .db 0 ; loc_1408: .text "0123456789abcdef" @@ -2921,22 +2811,22 @@ loc_1408: .text "0123456789abcdef" sub_1418: push af ; CODE XREF: sub_13BA+12p ld hl,loc_1408 ; sub_13BA+21p ... - ld b, 0 + ld b,0 rra rra rra rra and 0Fh - ld c, a - add hl, bc + ld c,a + add hl,bc ld a,(hl) call loc_145C pop af ld hl,loc_1408 - ld b, 0 + ld b,0 and 0Fh - ld c, a - add hl, bc + ld c,a + add hl,bc ld a,(hl) jp loc_145C @@ -2947,12 +2837,12 @@ loc_1438: LD (smod_b_145B),A LD HL,stab_7B3 CPIR JP Z,sub_67F - AND 60H + AND 60H JR NZ,loc_145A LD A,(byte_2C9D) OR A JR Z,loc_145A -loc_1450: LD HL,smod_b_145B +loc_1450: LD HL,smod_b_145B SET 6,(HL) LD A,18H CALL loc_145C @@ -2996,11 +2886,11 @@ loc_1480: .dw loc_1450 ; S u b r o u t i n e sub_1492: push bc ; CODE XREF: start+56p sub_961+79p - ld (byte_2D0A), a + ld (byte_2D0A),a call sub_171E push de call sub_162C - ld (de), a + ld (de),a pop de push de call sub_14A7 @@ -3012,22 +2902,22 @@ sub_1492: push bc ; CODE XREF: start+56p sub_961+79p ; S u b r o u t i n e sub_14A7: xor a ; CODE XREF: sub_1492+Ep - ld (de), a - ld (byte_2D0D), a - ld (byte_2D0C), a + ld (de),a + ld (byte_2D0D),a + ld (byte_2D0C),a call sub_1687 - ld a, c - ld (byte_2D0E), a + ld a,c + ld (byte_2D0E),a push de ld a,(hl) cp 3Ah jr nz,loc_14BD inc hl -loc_14BD: ld b, 8 ; CODE XREF: sub_14A7+13j +loc_14BD: ld b,8 ; CODE XREF: sub_14A7+13j call sub_1522 pop de ld a,(hl) - ld (byte_2D0B), a + ld (byte_2D0B),a cp 3Ah jr nz,loc_14FE inc hl @@ -3043,37 +2933,37 @@ loc_14D7: call sub_159D ; CODE XREF: sub_14A7+29j jr nz,loc_14E5 call sub_154A loc_14E5: ld a,(byte_2D0D); CODE XREF: sub_14A7+2Ej - ld (de), a ; sub_14A7+33j ... + ld (de),a ; sub_14A7+33j ... push de inc de call sub_1632 pop de xor a - ld (byte_2D0C), a + ld (byte_2D0C),a push de - ld b, 8 + ld b,8 call sub_1522 pop de ld a,(hl) - ld (byte_2D0B), a + ld (byte_2D0B),a loc_14FE: ld a,(byte_2D0B); CODE XREF: sub_14A7+22j - ex de, hl - ld bc, 8 - add hl, bc - ex de, hl - ld b, 3 + ex de,hl + ld bc,8 + add hl,bc + ex de,hl + ld b,3 cp 2Eh jr nz,loc_1513 inc hl push de call sub_1522 pop de -loc_1513: ex de, hl ; CODE XREF: sub_14A7+64j - ld bc, 5 - add hl, bc - ex de, hl +loc_1513: ex de,hl ; CODE XREF: sub_14A7+64j + ld bc,5 + add hl,bc + ex de,hl ld a,(byte_2D0E) - ld (de), a + ld (de),a loc_151D: ld a,(byte_2D0C); CODE XREF: sub_1492+13j or a ret @@ -3086,11 +2976,11 @@ sub_1522: call sub_15D9 ; CODE XREF: sub_14A7+18p inc de cp 2Ah jr nz,loc_1533 - ld a, 3Fh - ld (de), a + ld a,3Fh + ld (de),a call sub_1543 jr loc_153A -loc_1533: ld (de), a ; CODE XREF: sub_1522+7j +loc_1533: ld (de),a ; CODE XREF: sub_1522+7j inc hl cp 3Fh call z,sub_1543 @@ -3124,18 +3014,18 @@ sub_154A: push hl ; CODE XREF: sub_14A7+2Bp sub_1552: call sub_164A ; CODE XREF: sub_154A+2p jr z,loc_15CA - ex de, hl + ex de,hl inc hl call sub_1652 - ld b, a + ld b,a inc b ld a,(hl) cp 41h - jr c, loc_1574 + jr c,loc_1574 sub 40h cp b - jr nc, loc_15CA - ld (byte_2D0D), a + jr nc,loc_15CA + ld (byte_2D0D),a inc hl ld a,(hl) cp 20h @@ -3143,12 +3033,12 @@ sub_1552: call sub_164A ; CODE XREF: sub_154A+2p call sub_1625 ret c loc_1574: push hl ; CODE XREF: sub_1552+Fj - ld b, 2 + ld b,2 loc_1577: ld a,(hl) ; CODE XREF: sub_1552+30j cp 20h jr z,loc_1589 call sub_1625 - jr c, loc_159A + jr c,loc_159A inc hl djnz loc_1577 ld a,(hl) @@ -3156,12 +3046,12 @@ loc_1577: ld a,(hl) ; CODE XREF: sub_1552+30j jr nz,loc_159A loc_1589: pop hl ; CODE XREF: sub_1552+28j call sub_165A - ld c, a + ld c,a inc c call sub_15FA cp c - jr nc, loc_15CA - ld (byte_2D0E), a + jr nc,loc_15CA + ld (byte_2D0E),a xor a ret @@ -3183,7 +3073,7 @@ sub_159D: push hl ; CODE XREF: sub_14A7+30p sub_15A5: call sub_1662 ; CODE XREF: sub_159D+2p jr z,loc_15CA - ex de, hl + ex de,hl inc hl loc_15AC: ld a,(de) ; CODE XREF: sub_15A5+23j or a @@ -3192,7 +3082,7 @@ loc_15AC: ld a,(de) ; CODE XREF: sub_15A5+23j inc de push hl push de - ld b, 8 + ld b,8 loc_15B6: ld a,(de) ; CODE XREF: sub_15A5+17j cp (hl) jr nz,loc_15BE @@ -3202,10 +3092,10 @@ loc_15B6: ld a,(de) ; CODE XREF: sub_15A5+17j loc_15BE: pop de ; CODE XREF: sub_15A5+13j pop hl jr z,loc_15CD - ex de, hl - ld bc, 10h - add hl, bc - ex de, hl + ex de,hl + ld bc,10h + add hl,bc + ex de,hl jr loc_15AC loc_15CA: or 0FFh ; CODE XREF: sub_1552+3j @@ -3213,10 +3103,10 @@ loc_15CA: or 0FFh ; CODE XREF: sub_1552+3j loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj ld a,(de) - ld (byte_2D0E), a + ld (byte_2D0E),a dec de ld a,(de) - ld (byte_2D0D), a + ld (byte_2D0D),a xor a ret @@ -3225,7 +3115,7 @@ loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj sub_15D9: ld a,(hl) ; CODE XREF: sub_1522p sub_1522+1Ap cp 21h - jr c, loc_15F8 + jr c,loc_15F8 cp 3Dh ret z cp 5Fh @@ -3252,28 +3142,28 @@ loc_15F8: xor a ; CODE XREF: sub_15D9+3j ; S u b r o u t i n e sub_15FA: push bc ; CODE XREF: sub_1552+3Dp - ld bc, 1100h + ld bc,1100h loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j call sub_15D9 jr z,loc_161E inc hl call sub_1625 - jr c, loc_1622 - ld d, a - ld a, c + jr c,loc_1622 + ld d,a + ld a,c rlca - jr c, loc_1622 + jr c,loc_1622 rlca - jr c, loc_1622 - add a, c - jr c, loc_1622 + jr c,loc_1622 + add a,c + jr c,loc_1622 rlca - jr c, loc_1622 - add a, d - jr c, loc_1622 - ld c, a + jr c,loc_1622 + add a,d + jr c,loc_1622 + ld c,a djnz loc_15FE -loc_161E: ld a, c ; CODE XREF: sub_15FA+8j +loc_161E: ld a,c ; CODE XREF: sub_15FA+8j pop bc or a ret @@ -3295,22 +3185,22 @@ sub_1625: sub 30h ; CODE XREF: sub_1552+1Ep ; S u b r o u t i n e sub_162C: xor a ; CODE XREF: sub_1492+8p - ld (de), a + ld (de),a inc de call sub_1632 -sub_1632: ld b, 0Bh ; CODE XREF: sub_14A7+44p - ld a, 20h +sub_1632: ld b,0Bh ; CODE XREF: sub_14A7+44p + ld a,20h call sub_1645 xor a - ld (de), a + ld (de),a inc de call sub_1687 - ld a, c - ld (de), a + ld a,c + ld (de),a inc de - ld b, 3 + ld b,3 xor a -sub_1645: ld (de), a ; CODE XREF: sub_1632+4p +sub_1645: ld (de),a ; CODE XREF: sub_1632+4p inc de ; sub_1645+2j djnz sub_1645 ret @@ -3320,7 +3210,7 @@ sub_1645: ld (de), a ; CODE XREF: sub_1632+4p sub_164A: push hl ; CODE XREF: sub_1552p push de - ld de, 2Eh + ld de,2Eh jp loc_1669 ;---------------------------------------------------------------------------- @@ -3328,7 +3218,7 @@ sub_164A: push hl ; CODE XREF: sub_1552p sub_1652: push hl ; CODE XREF: sub_1552+7p push de - ld de, 2Ch + ld de,2Ch jp loc_1669 ;---------------------------------------------------------------------------- @@ -3336,23 +3226,23 @@ sub_1652: push hl ; CODE XREF: sub_1552+7p sub_165A: push hl ; CODE XREF: sub_1552+38p push de - ld de, 2Dh + ld de,2Dh jp loc_1669 ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e sub_1662: push de ; CODE XREF: sub_15A5p - ld de, 15h + ld de,15h jp loc_1676 ;---------------------------------------------------------------------------- -loc_1669: ld hl, (word_2D0F) ; CODE XREF: sub_164A+5j - ld a, h ; sub_1652+5j ... +loc_1669: ld hl,(word_2D0F) ; CODE XREF: sub_164A+5j + ld a,h ; sub_1652+5j ... or l jr z,loc_1671 - add hl, de + add hl,de loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj pop de pop hl @@ -3361,14 +3251,14 @@ loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj ;---------------------------------------------------------------------------- -loc_1676: ld hl, (word_2D0F) ; CODE XREF: sub_1662+4j - add hl, de - ld e, (hl) +loc_1676: ld hl,(word_2D0F) ; CODE XREF: sub_1662+4j + add hl,de + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl ld a,(hl) - ex de, hl + ex de,hl pop de or a ret @@ -3383,15 +3273,15 @@ loc_1683: ld (word_2D0F),hl sub_1687: push af ; CODE XREF: sub_14A7+8p push de ; sub_1632+Ap push hl - ld c, 19h + ld c,19h call sub_16AF push af ld e, 0FFh - ld c, F_USERNUM + ld c,F_USERNUM call sub_16AF - ld c, a + ld c,a pop af - ld b, a + ld b,a pop hl pop de pop af @@ -3400,7 +3290,7 @@ sub_1687: push af ; CODE XREF: sub_14A7+8p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_169E: ld a, 11h ; CODE XREF: sub_961+88p +sub_169E: ld a,11h ; CODE XREF: sub_961+88p call sub_16B8 inc a ret @@ -3408,7 +3298,7 @@ sub_169E: ld a, 11h ; CODE XREF: sub_961+88p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16A5: ld a, 1 ; CODE XREF: sub_DE7+4p +sub_16A5: ld a,1 ; CODE XREF: sub_DE7+4p jp sub_16B8 ;---------------------------------------------------------------------------- @@ -3434,7 +3324,7 @@ sub_16AF: push de ; CODE XREF: sub_1687+5p sub_16B8: push hl ; CODE XREF: sub_169E+2p push de ; sub_16A5+2j ... push bc - ld c, a + ld c,a call bdos or a pop bc @@ -3449,11 +3339,11 @@ sub_16C4: push bc ; CODE XREF: sub_4A4+10p push hl push de push af - ld b, 8 + ld b,8 call sub_16DA - ld (hl), 2Eh + ld (hl),2Eh inc hl - ld b, 3 + ld b,3 call sub_16DA pop af pop de @@ -3468,7 +3358,7 @@ sub_16DA: ld a,(de) ; CODE XREF: sub_16C4+6p and 7Fh ; sub_16C4+Ep ... cp 20h jr z,loc_16E3 - ld (hl), a + ld (hl),a inc hl loc_16E3: inc de ; CODE XREF: sub_16DA+5j djnz sub_16DA @@ -3478,15 +3368,15 @@ loc_16E3: inc de ; CODE XREF: sub_16DA+5j ; S u b r o u t i n e sub_16E7: push bc ; CODE XREF: sub_482+6p sub_4A4+1Fp - ld b, 0 + ld b,0 jp loc_16F0 sub_16ED: PUSH BC LD B,0FFH loc_16F0: push hl ; CODE XREF: sub_16E7+3j push af - ld h, 64h + ld h,64h call sub_1703 - ld h, 0Ah + ld h,0Ah call sub_1703 call sub_1717 pop af @@ -3500,23 +3390,23 @@ loc_16F0: push hl ; CODE XREF: sub_16E7+3j sub_1703: ld l, 0FFh ; CODE XREF: sub_16E7+Dp loc_1705: sub h ; CODE XREF: sub_1703+4j inc l - jr nc, loc_1705 - add a, h - ld h, a - ld a, l + jr nc,loc_1705 + add a,h + ld h,a + ld a,l or a jr nz,sub_1717 or b - ld a, h + ld a,h ret m - ld a, 20h + ld a,20h jr z,loc_171A xor a -sub_1717: add a, 30h ; CODE XREF: sub_16E7+15p - ld b, a -loc_171A: ld (de), a ; CODE XREF: sub_1703+11j +sub_1717: add a,30h ; CODE XREF: sub_16E7+15p + ld b,a +loc_171A: ld (de),a ; CODE XREF: sub_1703+11j inc de - ld a, h + ld a,h ret ;---------------------------------------------------------------------------- @@ -3528,7 +3418,7 @@ loc_1720: ld a,(hl) or a jr z,loc_172B call sub_1793 - ld (hl), a + ld (hl),a inc hl jr loc_1720 loc_172B: pop hl @@ -3541,8 +3431,8 @@ loc_172B: pop hl sub_172E: push bc ; CODE XREF: start+2Fp sub_961+70p push de push hl - ld c, a - ex de, hl + ld c,a + ex de,hl ld b,(hl) push hl inc hl @@ -3550,22 +3440,22 @@ sub_172E: push bc ; CODE XREF: start+2Fp sub_961+70p loc_1737: call sub_176B ; CODE XREF: sub_172E+25j or a jr z,loc_1760 - ld (hl), e + ld (hl),e inc hl - ld (hl), d + ld (hl),d inc hl dec b jr z,loc_1755 call sub_1779 or a jr z,loc_1760 - ld a, c + ld a,c or a jr z,loc_1751 xor a - ld (de), a + ld (de),a inc de -loc_1751: ld a, b ; CODE XREF: sub_172E+1Ej +loc_1751: ld a,b ; CODE XREF: sub_172E+1Ej or a jr nz,loc_1737 loc_1755: call sub_1779 ; CODE XREF: sub_172E+14j @@ -3578,7 +3468,7 @@ loc_1760: pop hl ; CODE XREF: sub_172E+Dj ld a,(hl) sub b inc hl - ld (hl), a + ld (hl),a pop af pop hl pop de @@ -3623,7 +3513,7 @@ sub_1786: push hl ; CODE XREF: start+1Ep sub_4A4+Cp ; S u b r o u t i n e sub_178C: push bc ; CODE XREF: sub_1786+1p -loc_178D: ld (hl), a ; CODE XREF: sub_178C+3j +loc_178D: ld (hl),a ; CODE XREF: sub_178C+3j inc hl djnz loc_178D pop bc @@ -3660,7 +3550,8 @@ loc_2899: .ds 4 loc_289D: .ds 400h byte_2C9D: .ds 1 byte_2C9E: .ds 1 - .ds 2 +loc_2C9F: .ds 1 + .ds 1 byte_2CA1: .ds 1 byte_2CA2: .ds 1 byte_2CA3: .ds 1 @@ -3668,28 +3559,33 @@ byte_2CA4: .ds 1 byte_2CA5: .ds 1 byte_2CA6: .ds 1 loc_2CA7: .ds 4 -loc_2CAB: .ds 25h +loc_2CAB: .ds 4 +loc_2CAF: .ds 21h loc_2CD0: .ds 1 byte_2CD1: .ds 1 word_2CD2: .ds 2 byte_2CD4: .ds 1 .ds 0Bh -loc_2CE0: .ds 8 +loc_2CE0: .ds 4 +loc_2CE4: .ds 4 byte_2CE8: .ds 1 word_2CE9: .ds 2 word_2CEB: .ds 2 word_2CED: .ds 2 word_2CEF: .ds 2 - .ds 8 + .ds 2 +loc_2CF3: .ds 2 +word_2CF5: .ds 2 + .ds 2 loc_2CF9: .ds 4 byte_2CFD: .ds 1 - .ds 2 +word_2CFE: .ds 2 byte_2D00: .ds 1 byte_2D01: .ds 1 byte_2D02: .ds 1 byte_2D03: .ds 1 byte_2D04: .ds 1 - .ds 2 +word_2D05: .ds 2 byte_2D07: .ds 1 byte_2D08: .ds 1 byte_2D09: .ds 1 From 3432fe8822ebdaf2e8496cbac9d9062b85afdffc Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 22:32:08 +0800 Subject: [PATCH 6/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 858 ++++++++++++++++------------------- 1 file changed, 396 insertions(+), 462 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index 3c117e8a..fc00977c 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -38,9 +38,9 @@ start: ld sp, nstack ; Setup local stack cp '0' ; Get CP/M vers. # jp c,err_vern ; CP/M 2 or less? ld de,str_welc - ld c,C_WRITESTR ;yes - call bdos ;"RZ for ..."; Output string - call sub_195 ;print string + ld c,C_WRITESTR ; yes + call bdos ; "RZ for ..."; Output string + call sub_195 ; print string ld hl,(word_179E) xor a ld b,14h @@ -74,7 +74,7 @@ start: ld sp, nstack ; Setup local stack ld a,d or e jr z,loc_174 -loc_152: ld hl,byte_17A3 ; CODE XREF: start+46j +loc_152: ld hl,byte_17A3 ex de,hl call sub_1492 ld hl,byte_17A3 @@ -83,21 +83,21 @@ loc_152: ld hl,byte_17A3 ; CODE XREF: start+46j jr nz,loc_164 ld a,(byte_17A1) ld (hl),a -loc_164: ld bc,0Dh ; CODE XREF: start+5Ej +loc_164: ld bc,0Dh add hl,bc dec de ldi ld de,byte_17A3 call sub_1B0 call sub_3C9 -loc_174: ld de,str_sxfr ; CODE XREF: start+25j start+3Bj +loc_174: ld de,str_sxfr ld c,C_WRITESTR - call bdos ; Output string + call bdos call sub_3EF call sub_8D1 call sub_451 smod_b_186: .equ $+1 -loc_185: ld bc,0 ; DATA XREF: sub_195+17w +loc_185: ld bc,0 ld (word_17A2),bc ld de,byte_17A3 call sub_1B0 @@ -107,7 +107,7 @@ loc_185: ld bc,0 ; DATA XREF: sub_195+17w ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_195: ld a,(4) ; CODE XREF: start+15p +sub_195: ld a,(4) ld b,a rlca rlca @@ -126,7 +126,7 @@ sub_195: ld a,(4) ; CODE XREF: start+15p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1B0: ld a,(de) ; CODE XREF: start+6Ep start+8Fp +sub_1B0: ld a,(de) push af dec de ld a,(de) @@ -170,25 +170,25 @@ str_info: .text "usage: rz [-?pbcrxyz] [du:fn]\r\n\n" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_39A: push hl ; CODE XREF: start+48p +sub_39A: push hl push de -loc_39C: inc de ; CODE XREF: sub_39A+12j +loc_39C: inc de ld a,(de) or a jr z,loc_3AE - ld hl,loc_3B1 + ld hl,stab_3B1 ld bc,8 cpir call z,sub_67F jr loc_39C -loc_3AE: pop de ; CODE XREF: sub_39A+5j +loc_3AE: pop de pop hl ret ;---------------------------------------------------------------------------- -loc_3B1: .text "?PBCXYZR" +stab_3B1: .text "?PBCXYZR" .dw sub_3E9 .dw sub_3D1 @@ -202,7 +202,7 @@ loc_3B1: .text "?PBCXYZR" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_3C9: ld a,1 ; CODE XREF: start+71p +sub_3C9: ld a,1 jr loc_3D3 sub_3CD: ld a,3 jr loc_3D3 @@ -228,11 +228,11 @@ sub_3E9: ld a,$ff ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_3EF: xor a ; CODE XREF: start+7Cp +sub_3EF: xor a ld (byte_460),a ld (byte_464),a ld c,S_SYSVAR - ld de,45Fh + ld de,byte_45F call bdos ; Access the system variables ld a,h cpl @@ -265,7 +265,7 @@ sub_3EF: xor a ; CODE XREF: start+7Cp and e ld l, a ld (word_469),hl -loc_437: ld a,0FEh ; CODE XREF: sub_451+Cj +loc_437: ld a,0FEh ld (byte_464),a ld de,byte_463 ld c,S_SYSVAR @@ -279,42 +279,42 @@ loc_437: ld a,0FEh ; CODE XREF: sub_451+Cj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_451: ld hl,(word_46B) ; CODE XREF: start+82p +sub_451: ld hl,(word_46B) ld (word_465),hl ld hl,(word_46D) ld (word_469),hl jr loc_437 -;---------------------------------------------------------------------------- - .db 28h ; ( -byte_460: .db 0 ; DATA XREF: sub_3EF+1w - .db 0 ; - .db 0 ; -byte_463: .db 24h ; $ -byte_464: .db 0 ; DATA XREF: sub_3EF+4w sub_3EF+4Aw -word_465: .dw 0 ; DATA XREF: sub_3EF+2Dw -byte_467: .db 22h ; " -byte_468: .db 0 ; DATA XREF: sub_3EF+57w -word_469: .dw 0 ; DATA XREF: sub_3EF+45w -word_46B: .dw 0 ; DATA XREF: sub_3EF+20w -word_46D: .dw 0 ; DATA XREF: sub_3EF+38w -word_46F: .dw 0 ; DATA XREF: sub_3EF+15w +;----------------------------------------------------------------------------' +byte_45F: .db 28h +byte_460: .db 0 + .db 0 + .db 0 +byte_463: .db 24h +byte_464: .db 0 +word_465: .dw 0 +byte_467: .db 22h +byte_468: .db 0 +word_469: .dw 0 +word_46B: .dw 0 +word_46D: .dw 0 +word_46F: .dw 0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_471: call bdos ; CODE XREF: sub_961+92p - or a ; seg000:0A29p ... +sub_471: call bdos + or a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_476: push af ; CODE XREF: sub_4A4+37p -loc_477: push bc ; CODE XREF: sub_476+8j - xor a - ld b,a +sub_476: push af +loc_477: push bc + xor a + ld b,a ld c,a cpir pop bc @@ -325,7 +325,7 @@ loc_477: push bc ; CODE XREF: sub_476+8j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_482: ld a,(byte_2D04) ; CODE XREF: sub_1289+122p +sub_482: ld a,(byte_2D04) ld de,text495h ; Update error string with errors call sub_16E7 ld de,text493h @@ -341,7 +341,7 @@ text495h: .db 0,0,0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_4A4: ld de,byte_17A3 ; CODE XREF: sub_961+82p +sub_4A4: ld de,byte_17A3 ld hl,byte_4F8 ld (hl),3Ah inc hl @@ -406,7 +406,7 @@ text508h: .text "\r\n$" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_50B: ld hl,loc_2CAB ; CODE XREF: sub_D0Ep sub_D30+30p +sub_50B: ld hl,loc_2CAB ld de,loc_51F call loc_774 ld (hl),24h @@ -429,26 +429,34 @@ loc_51F: .db 0 ; .db 0 ; loc_529: ld hl,str_busy +smod_52D: .equ $+1 ; self modifying ld a,0 inc a and 3 - ld (052Dh),a + ld (smod_52D),a ld e,a ld d,0 add hl,de ld a,(hl) - ld (0549h),a - ld de,0548h + ld (str_sav),a + ld de,str_rev ld c,9 jp bdos -str_busy: .text "|/-\\ |\b\b$" - - ld de,0569h +str_busy: .db 7ch ; | + .db 02fh ; / + .db 2dh ; - + .db 5ch ; \ +str_rev: .db 20h ; +str_sav: .db 7ch ; | + .db 08h ; /b + .db 08h ; /b + .db 24h ; $ + + ld de,text569h jr sub_555 ;---------------------------------------------------------------------------- - ; S u b r o u t i n e sub_552: ld de,text55Ah @@ -461,28 +469,23 @@ text55Ah: .text "File skipped\r\n$" text569h: .text "can't open any file\r\n$" ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_57F: ; CODE XREF: sub_DE7+Dp - ld hl,byte_586 +sub_57F: ld hl,byte_586 ld (hl),a inc hl ld (hl),c ret -; End of function sub_57F ;---------------------------------------------------------------------------- -byte_586: .db 0 ; -byte_587: .db 0 ; DATA XREF: sub_5B4r -;---------------------------------------------------------------------------- +byte_586: .db 0 +byte_587: .db 0 +;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_588: ; CODE XREF: sub_588+1Fj - ; sub_5D4+4p ... - or a +sub_588: or a ld hl,(word_1808) ld de,1000h sbc hl,de @@ -494,100 +497,82 @@ sub_588: ; CODE XREF: sub_588+1Fj ld c,A_READ call bdos ; Auxiliary (Reader) input ld c,a - ld hl,1808h + ld hl,word_1808 call sub_61C jr sub_588 + ;---------------------------------------------------------------------------- -loc_5A9: ; CODE XREF: sub_588+9j sub_588+11j - ld hl,587h +loc_5A9: ld hl,587h or (hl) ret nz - ld hl,(1808h) + ld hl,(word_1808) ld a,h or l ret -; End of function sub_588 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_5B4: ; CODE XREF: sub_5D4+12p - ld a,(byte_587) +sub_5B4: ld a,(byte_587) or a - ld hl,1808h + ld hl,word_1808 jp z,loc_5F7 push af - ld hl,587h + ld hl,byte_587 dec (hl) dec hl pop af ld a,(hl) ret -; End of function sub_5B4 ;---------------------------------------------------------------------------- loc_5C7: LD C,4 ; punch out LD E,A JP bdos -;---------------------------------------------------------------------------- +;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_5CD: ld c,8 ; CODE XREF: seg000:1462p +sub_5CD: ld c,8 call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a ret -; End of function sub_5CD ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_5D4: ; CODE XREF: sub_DE7+11p +sub_5D4: push bc ld b,5Fh - -loc_5D7: ; CODE XREF: sub_5D4+Dj - push bc +loc_5D7: push bc call sub_588 pop bc jr nz,loc_5E6 call sub_5EB djnz loc_5D7 call sub_588 - -loc_5E6: ; CODE XREF: sub_5D4+8j - call nz,sub_5B4 +loc_5E6: call nz,sub_5B4 pop bc ret -; End of function sub_5D4 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_5EB: ; CODE XREF: sub_5D4+Ap - push bc +sub_5EB: push bc ; Delay ld a,4 ld b,0 - -loc_5F0: ; CODE XREF: sub_5EB+5j sub_5EB+8j - djnz loc_5F0 +loc_5F0: djnz loc_5F0 dec a jr nz,loc_5F0 pop bc ret -; End of function sub_5EB ;---------------------------------------------------------------------------- -loc_5F7: ; CODE XREF: sub_5B4+7j - ld e,(hl) +loc_5F7: ld e,(hl) inc hl ld d,(hl) ld a,d @@ -624,8 +609,7 @@ loc_5F7: ; CODE XREF: sub_5B4+7j ; S u b r o u t i n e -sub_61C: ; CODE XREF: sub_588+1Cp - or a +sub_61C: or a push hl ld e,(hl) inc hl @@ -659,51 +643,31 @@ sub_61C: ; CODE XREF: sub_588+1Cp pop hl ld (hl),c ret -; End of function sub_61C - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_643: ; CODE XREF: sub_961+54p - ; sub_11FA+69p - ld hl,17A2h +sub_643: ld hl,word_17A2 ld b,25h jr loc_650 -; End of function sub_643 - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_64A: ; CODE XREF: sub_961+9Ep - ; seg000:0A63p - ld b,3 +sub_64A: ld b,3 jr loc_650 -; End of function sub_64A - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_64E: ; CODE XREF: sub_8D1+Cp sub_BD3+2Fp - ld b,6 - -loc_650: ; CODE XREF: sub_643+5j sub_64A+2j - xor a +sub_64E: ld b,6 +loc_650: xor a jp sub_1786 -; End of function sub_64E - ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_654: ; CODE XREF: seg000:0AAEp - xor a +sub_654: xor a or (hl) ret z dec (hl) @@ -721,7 +685,6 @@ sub_654: ; CODE XREF: seg000:0AAEp ret nc ccf ret -; End of function sub_654 ;---------------------------------------------------------------------------- @@ -745,12 +708,9 @@ sub_669: LD A,80H RET ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_67F: ; CODE XREF: sub_39A+Fp sub_BD3+42j - - add hl,bc +sub_67F: add hl,bc sla c add hl,bc ld c,(hl) @@ -758,33 +718,28 @@ sub_67F: ; CODE XREF: sub_39A+Fp sub_BD3+42j ld h,(hl) ld l, c jp (hl) -; End of function sub_67F ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_688: ; CODE XREF: seg000:0726p sub_BD3+13p - - xor a +sub_688: xor a push bc push de push hl ld (hl),a ld d,h - ld e, l + ld e,l inc de jr loc_697 -; End of function sub_688 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_692: push bc ; CODE XREF: seg000:077Bp seg000:07ADp +sub_692: push bc push de push hl ldi -loc_697: ldi ; CODE XREF: sub_688+8j +loc_697: ldi ldi ldi pop hl @@ -794,39 +749,39 @@ loc_697: ldi ; CODE XREF: sub_688+8j ;---------------------------------------------------------------------------- -loc_6A1: PUSH HL ;unref. ? - POP IX ;unref. ? - PUSH DE ;unref. ? - POP IY ;unref. ? - LD A,(IX+3) ;unref. ? - XOR (IY+3) ;unref. ? - JP P,loc_6B6 ;unref. ? - XOR (IX+3) ;unref. ? -loc_6B3: RET M ;unref. ? - CCF ;unref. ? - RET ;unref. ? +loc_6A1: PUSH HL + POP IX + PUSH DE + POP IY + LD A,(IX+3) + XOR (IY+3) + JP P,loc_6B6 + XOR (IX+3) +loc_6B3: RET M + CCF + RET -loc_6B6: XOR (IX+3) ;unref. ? - JP P,loc_6C2 ;unref. ? - CALL loc_6C2 ;unref. ? - SCF ;unref. ? - JR loc_6B3 ;unref. ? +loc_6B6: XOR (IX+3) + JP P,loc_6C2 + CALL loc_6C2 + SCF + JR loc_6B3 loc_6C2: PUSH BC - PUSH DE ;unref. ? - PUSH HL ;unref. ? - EX DE,HL ;unref. ? - OR A ;unref. ? - LD B,4 ;unref. ? -loc_6C9: LD A,(DE) ;unref. ? - SBC A,(HL) ;unref. ? - INC DE ;unref. ? - INC HL ;unref. ? - DJNZ loc_6C9 ;unref. ? - POP HL ;unref. ? - POP DE ;unref. ? - POP BC ;unref. ? - RET ;unref. ? + PUSH DE + PUSH HL + EX DE,HL + OR A + LD B,4 +loc_6C9: LD A,(DE) + SBC A,(HL) + INC DE + INC HL + DJNZ loc_6C9 + POP HL + POP DE + POP BC + RET sub_6D3: PUSH BC PUSH DE @@ -846,14 +801,13 @@ loc_6E0: POP HL ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_6E4: push bc ; CODE XREF: sub_11FA+4Bp +sub_6E4: push bc push de push hl or a ex af, af' ld a,4 - -loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j +loc_6EB: ex af, af' ld a,(de) adc a,(hl) ld (bc),a @@ -871,14 +825,14 @@ loc_6EB: ex af, af' ; CODE XREF: sub_6E4+10j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_6FA: push bc ; CODE XREF: seg000:0799p +sub_6FA: push bc push de push hl ex de,hl or a ex af, af' ld a,4 -loc_702: ex af, af' ; CODE XREF: sub_6FA+11j +loc_702: ex af, af' ld a,(de) sbc a,(hl) ld (bc),a @@ -914,14 +868,14 @@ loc_723: POP HL ;---------------------------------------------------------------------------- -loc_726: call sub_688 ; CODE XREF: sub_8A0+Cj -sub_729: push bc ; CODE XREF: seg000:0A77p +loc_726: call sub_688 +sub_729: push bc push hl ld a,(hl) sub 1 ld (hl),a ld b,3 -loc_731: inc hl ; CODE XREF: sub_729+Dj +loc_731: inc hl ld a,(hl) sbc a,0 ld (hl),a @@ -954,17 +908,17 @@ loc_741: PUSH AF ;---------------------------------------------------------------------------- -loc_750: .db 0, 0CAh,9Ah,3Bh - .db 0, 0E1h,0F5h, 5 - .db 80h, 96h, 98h, 0 - .db 40h, 42h, 0Fh, 0 - .db 0A0h, 86h, 1, 0 - .db 10h, 27h, 0, 0 - .db 0E8h, 3, 0, 0 - .db 64h, 0, 0, 0 - .db 0Ah, 0, 0, 0 +loc_750: .db 0, 0CAh, 9Ah, 3Bh + .db 0, 0E1h, 0F5h, 5 + .db 80h, 96h, 98h, 0 + .db 40h, 42h, 0Fh, 0 + .db 0A0h, 86h, 1, 0 + .db 10h, 27h, 0, 0 + .db 0E8h, 3, 0, 0 + .db 64h, 0, 0, 0 + .db 0Ah, 0, 0, 0 -loc_774: ld (smod_w_7BF),de; CODE XREF: sub_50B+6p +loc_774: ld (smod_w_7BF),de ld de,byte_2891 call sub_692 ld c,+(loc_774-loc_750)/4 @@ -978,7 +932,7 @@ loc_787: ld a,30h inc de inc de ld b,0Ah -loc_792: push bc ; CODE XREF: seg000:07B1j +loc_792: push bc ld hl,byte_2891 ld bc,loc_2895 call sub_6FA @@ -1026,14 +980,15 @@ smod_b_7DF: .EQU $+1 POP AF RET -loc_7E5: .db 20h ; - .db 83h ; ? - .db 0B8h ; ¸ - .db 0EDh ; í -loc_7E9: .db 0E3h ; ã - .db 20h ; - .db 0BBh ; » - .db 0DEh ; Þ +loc_7E5: .db 20h + .db 83h + .db 0B8h + .db 0EDh + +loc_7E9: .db 0E3h + .db 20h + .db 0BBh + .db 0DEh sub_7ED: PUSH AF smod_w_7F0: .EQU $+2 @@ -1064,7 +1019,7 @@ smod_w_7F0: .EQU $+2 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_825: push de ; CODE XREF: sub_8D1+Fp +sub_825: push de push hl ld hl,(smod_w_7F0) ld bc,3FFh @@ -1073,13 +1028,13 @@ sub_825: push de ; CODE XREF: sub_8D1+Fp pop iy ld ix, loc_7E5 xor a -loc_836: push af ; CODE XREF: sub_825+5Bj +loc_836: push af ld hl,0FFFFh ld de,0FFFFh xor e ld e, a ld b,8 -loc_841: scf ; CODE XREF: sub_825+3Bj +loc_841: scf rr h rr l rr d @@ -1097,7 +1052,7 @@ loc_841: scf ; CODE XREF: sub_825+3Bj ld a,h xor (ix+3) ld h,a -loc_860: djnz loc_841 ; CODE XREF: sub_825+25j +loc_860: djnz loc_841 ld a,h cpl ld (iy+0), a @@ -1123,10 +1078,10 @@ loc_860: djnz loc_841 ; CODE XREF: sub_825+25j ;---------------------------------------------------------------------------- -sub_885: PUSH AF ; CODE XREF: sub_13BA+Fp -smod_w_887: .equ $+1 ; self modifying +sub_885: PUSH AF +smod_w_887: .equ $+1 LD HL,0 - LD DE,1021H + LD DE,1021H ; ? XOR H LD H,A LD B,8 @@ -1146,7 +1101,7 @@ loc_899: DJNZ loc_890 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8A0: xor a ; CODE XREF: sub_13BA+9p +sub_8A0: xor a ld h,a ld l, a ld (smod_b_7DF),a @@ -1156,29 +1111,29 @@ sub_8A0: xor a ; CODE XREF: sub_13BA+9p ;---------------------------------------------------------------------------- -byte_8AF: .db 4 ; DATA XREF: sub_3C9+Aw sub_8D1+34r -byte_8B0: .db 0 ; DATA XREF: sub_8D1+23r -byte_8B1: .db 0 ; DATA XREF: sub_961r -byte_8B2: .db 0 ; DATA XREF: sub_961+14r -byte_8B3: .db 0 ; DATA XREF: seg000:0A3Cr -word_8B4: .dw 0 ; DATA XREF: sub_8B6+17w +byte_8AF: .db 4 +byte_8B0: .db 0 +byte_8B1: .db 0 +byte_8B2: .db 0 +byte_8B3: .db 0 +word_8B4: .dw 0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8B6: xor a ; CODE XREF: sub_8D1+20p +sub_8B6: xor a ld c,a ld b,8 ld a,h -loc_8BB: rlca ; CODE XREF: sub_8B6+Cj - set 7, c +loc_8BB: rlca + set 7,c jr c,loc_8C4 rr c djnz loc_8BB -loc_8C4: ld a,h ; CODE XREF: sub_8B6+8j +loc_8C4: ld a,h and c ld h,a - ld l, 0 + ld l,0 ld (word_2CEB),hl dec hl ld (word_8B4),hl @@ -1187,11 +1142,11 @@ loc_8C4: ld a,h ; CODE XREF: sub_8B6+8j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8D1: xor a ; CODE XREF: start+7Fp +sub_8D1: xor a ld hl,byte_2C9D ld b,61h call sub_1786 - ld hl,1808h + ld hl,word_1808 call sub_64E call sub_825 ld hl,(word_179E) @@ -1205,7 +1160,7 @@ sub_8D1: xor a ; CODE XREF: start+7Fp cp 0 jr z,loc_8FD ld a,7 -loc_8FD: ld (byte_2CA4),a ; CODE XREF: sub_8D1+28j +loc_8FD: ld (byte_2CA4),a ld a,10h ld (byte_2C9E),a ld a,(byte_8AF) @@ -1223,59 +1178,55 @@ loc_8FD: ld (byte_2CA4),a ; CODE XREF: sub_8D1+28j jr nz,loc_924 jr locret_953 -loc_924: call sub_BB4 ; CODE XREF: sub_8D1+4Bj - jr c,loc_954 ; sub_8D1+4Fj +loc_924: call sub_BB4 + jr c,loc_954 jr locret_953 ;---------------------------------------------------------------------------- -loc_92B: ld a,3 ; CODE XREF: sub_8D1+47j - ld (byte_8AF),a ; sub_8D1+74j +loc_92B: ld a,3 + ld (byte_8AF),a xor a ld (byte_2D04),a call sub_11C1 jr c,loc_954 call sub_961 jr c,loc_954 - jr z,locret_953 + jr z,locret_953 ; ret z ? call sub_11FA jr c,loc_954 jr loc_92B ;---------------------------------------------------------------------------- -loc_947: call sub_961 ; CODE XREF: sub_8D1+39j +loc_947: call sub_961 jr c,loc_954 - jr z,locret_953 + jr z,locret_953 ; ret z ? call sub_11FA jr c,loc_954 -locret_953: ret ; CODE XREF: sub_8D1+51j +locret_953: ret ;---------------------------------------------------------------------------- -loc_954: call sub_DD9 ; CODE XREF: sub_8D1+43j - ld a,(byte_2CA5) ; sub_8D1+56j +loc_954: call sub_DD9 + ld a,(byte_2CA5) cp 0FFh call z,sub_D0E - jr locret_953 + jr locret_953 ; ret ? ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_961: ; CODE XREF: sub_8D1+68p - ; sub_8D1+76p ... - ld a,(byte_8B1) +sub_961: ld a,(byte_8B1) cpl - ld hl,8B2h + ld hl,byte_8B2 or (hl) ld (byte_2CA3),a ld a,(byte_2CA4) or a jr z,loc_975 ld (byte_2CA1),a - -loc_975: ; CODE XREF: sub_961+Fj - ld a,(byte_8B2) +loc_975: ld a,(byte_8B2) cp 0FFh jr z,loc_988 ld a,(byte_2CA2) @@ -1283,17 +1234,12 @@ loc_975: ; CODE XREF: sub_961+Fj jr nz,loc_988 ld a,0 ld (byte_2CA3),a - -loc_988: ; CODE XREF: sub_961+19j - ; sub_961+20j - ld a,(byte_2CA2) +loc_988: ld a,(byte_2CA2) cp 1 jr nz,loc_994 ld a,0FFh ld (byte_2CA3),a - -loc_994: ; CODE XREF: sub_961+2Cj - ld a,(byte_2CA1) +loc_994: ld a,(byte_2CA1) cp 7 jr z,loc_9AE ld a,(byte_2CA1) @@ -1304,10 +1250,7 @@ loc_994: ; CODE XREF: sub_961+2Cj jr nz,loc_9AE ld a,7 ld (byte_2CA1),a - -loc_9AE: ; CODE XREF: sub_961+38j - ; sub_961+3Fj ... - ld a,(byte_8AF) +loc_9AE: ld a,(byte_8AF) cp 3 jr c,loc_9E3 call sub_643 @@ -1332,8 +1275,8 @@ loc_9AE: ; CODE XREF: sub_961+38j call sub_1492 ld hl,(byte_17A0) ld (word_17A2),hl -loc_9E3: call sub_4A4 ; CODE XREF: sub_961+52j - ld de,byte_17A3 ; seg000:0A2Cj +loc_9E3: call sub_4A4 + ld de,byte_17A3 call sub_169E jr nz,loc_A11 ld de,byte_17A3 @@ -1347,14 +1290,14 @@ loc_9E3: call sub_4A4 ; CODE XREF: sub_961+52j ld a,(byte_2CD1) cp 2 jr c,loc_A0D -sub_A09: ld de,(byte_2CD4) ; CODE XREF: seg000:0A11p -loc_A0D: ld a,1 ; CODE XREF: sub_961+A6j +sub_A09: ld de,(byte_2CD4) +loc_A0D: ld a,1 or a ret ;---------------------------------------------------------------------------- -loc_A11: call sub_A09 ; CODE XREF: sub_961+8Bj +loc_A11: call sub_A09 ld a,(byte_8AF) cp 4 jr nz,loc_A24 @@ -1362,31 +1305,27 @@ loc_A11: call sub_A09 ; CODE XREF: sub_961+8Bj cp 7 jr nz,loc_A35 jr loc_A2E + ;---------------------------------------------------------------------------- -loc_A24: ; CODE XREF: seg000:0A19j seg000:0A41j - ld de,byte_17A3 +loc_A24: ld de,byte_17A3 ld c,13h call sub_471 jr nc,loc_9E3 - -loc_A2E: ; CODE XREF: seg000:0A22j - call sub_552 +loc_A2E: call sub_552 ld a,5 scf ret + ;---------------------------------------------------------------------------- -loc_A35: ; CODE XREF: seg000:0A20j - ld a,(byte_2CA1) +loc_A35: ld a,(byte_2CA1) cp 3 jr z,loc_A43 ld a,(byte_8B3) cp 0FFh jr nz,loc_A24 - -loc_A43: ; CODE XREF: seg000:0A3Aj - ld de,2811h +loc_A43: ld de,loc_2811 ld c,1Ah call bdos ; BDOS function 26 (F_DMAOFF) - Set DMA address ld e, 1 @@ -1412,9 +1351,7 @@ loc_A43: ; CODE XREF: seg000:0A3Aj call sub_692 ex de,hl ld b,7 - -loc_A83: ; CODE XREF: seg000:0A90j - push hl +loc_A83: push hl sla (hl) inc hl rl (hl) @@ -1434,40 +1371,35 @@ loc_A83: ; CODE XREF: seg000:0A90j ld a,9 or a ret + ;---------------------------------------------------------------------------- -loc_AA6: ; CODE XREF: seg000:0AA0j - ld a,80h +loc_AA6: ld a,80h ld (byte_280E),a - -loc_AAB: ; CODE XREF: seg000:0AB5j - ld hl,byte_280E +loc_AAB: ld hl,byte_280E call sub_654 jr z,loc_AC6 cp 1Ah jr nz,loc_AAB - ld a,(2810h) + ld a,(byte_2810) dec a - ld (280Fh),a + ld (byte_280F),a ld hl,byte_280E ld a,7Fh sub (hl) jr loc_AC8 -;---------------------------------------------------------------------------- -loc_AC6: ; CODE XREF: seg000:0AB1j - ld a,80h +;---------------------------------------------------------------------------- -loc_AC8: ; CODE XREF: seg000:0AC4j - ld (byte_280E),a +loc_AC6: ld a,80h +loc_AC8: ld (byte_280E),a ld a,1 or a ret + ;---------------------------------------------------------------------------- -loc_ACF: ; CODE XREF: sub_8D1+40p - ; sub_BB4+Ep - xor a +loc_ACF: xor a ld (byte_2D04),a ld a,4 ld hl,8AFh @@ -1486,13 +1418,13 @@ loc_ACF: ; CODE XREF: sub_8D1+40p ld b,0Ah loc_AF3: push bc - ld ix,loc_2CE0 ; CODE XREF: seg000:0AEFj + ld ix,loc_2CE0 ld (ix+3), 20h ld (ix+2), 0 ld hl,(word_2CEB) ld (ix+0), l ld (ix+1), h -smod_b_B0A: .equ $+1 ; DATA XREF: sub_8D1+3Dw +smod_b_B0A: .equ $+1 ld a,1 ; self modifying value CALL sub_13BA LD A,(smod_b_B0A) @@ -1500,7 +1432,7 @@ smod_b_B0A: .equ $+1 ; DATA XREF: sub_8D1+3Dw JR NZ,0B1AH LD A,1 LD (smod_b_B0A),A -loc_B1A: CALL 0FD1H +loc_B1A: CALL sub_FD1 LD HL,loc_B96 LD BC,0AH CPIR @@ -1519,7 +1451,7 @@ loc_B34: POP BC RET loc_B39: POP BC - CALL 0D9BH + CALL sub_D9B LD A,0FH RET @@ -1562,16 +1494,16 @@ loc_B7B: LD HL,loc_2CA7 LD A,4 RET -loc_B96: .db 0 ; - .db 0Bh ; - .db 0FEh ; þ - .db 4 ; - .db 2 ; - .db 11h ; - .db 12h ; - .db 0Fh ; - .db 8 ; - .db 10h ; +loc_B96: .db 0 + .db 0Bh + .db 0FEh + .db 4 + .db 2 + .db 11h + .db 12h + .db 0Fh + .db 8 + .db 10h loc_BA0: .dw loc_B34 .dw loc_B39 @@ -1587,8 +1519,8 @@ loc_BA0: .dw loc_B34 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p - ret c ; sub_BB4+14j +sub_BB4: call sub_BD3 + ret c cp 0Bh jr z,loc_BC2 cp 5 @@ -1598,7 +1530,7 @@ sub_BB4: call sub_BD3 ; CODE XREF: sub_8D1+53p ;---------------------------------------------------------------------------- -loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj +loc_BC2: call loc_ACF ret c cp 4 jr z,sub_BB4 @@ -1612,18 +1544,18 @@ loc_BC2: call loc_ACF ; CODE XREF: sub_BB4+6j sub_BB4+Aj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_BD3: call sub_961 ; CODE XREF: sub_BB4p +sub_BD3: call sub_961 jr nc,loc_BDF ld a,5 ld (smod_b_B0A),a or a ret -loc_BDF: cp 9 ; CODE XREF: sub_BD3+3j +loc_BDF: cp 9 jr z,loc_BE9 ld hl,loc_2CAB call sub_688 -loc_BE9: xor a ; CODE XREF: sub_BD3+Ej +loc_BE9: xor a ld (byte_2D04),a call sub_FAA loc_BF0: call sub_FC9 @@ -1775,10 +1707,10 @@ stab_CF9: .db 0EBh ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_D0E: call sub_50B ; CODE XREF: sub_8D1+8Bp - call sub_D30 ; sub_11FA+64p +sub_D0E: call sub_50B + call sub_D30 ret c -loc_D15: ld a,1Ah ; CODE XREF: sub_D0E+13j +loc_D15: ld a,1Ah call loc_D68 ret c ld hl,byte_280E @@ -1794,16 +1726,16 @@ loc_D15: ld a,1Ah ; CODE XREF: sub_D0E+13j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_D30: ld bc,(word_2CF5) ; CODE XREF: sub_BD3+20p - ld a,b ; sub_D0E+3p ... +sub_D30: ld bc,(word_2CF5) + ld a,b or c ret z ld hl,(word_2CE9) -loc_D3A: ld a,(byte_2CA3) ; CODE XREF: sub_D30+2Ej +loc_D3A: ld a,(byte_2CA3) cp 0FFh jr z,loc_D52 smod_b_D41: .equ $+1 -loc_D41: ld a,0 ; DATA XREF: sub_D30+23w +loc_D41: ld a,0 cp 0Dh jr z,loc_D52 ld a,(hl) @@ -1812,7 +1744,7 @@ loc_D41: ld a,0 ; DATA XREF: sub_D30+23w ld a,0Dh call loc_D68 ret c -loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j +loc_D52: ld a,(hl) ld (smod_b_D41),a inc hl dec bc @@ -1828,7 +1760,7 @@ loc_D52: ld a,(hl) ; CODE XREF: sub_D30+Fj sub_D30+15j ;---------------------------------------------------------------------------- -loc_D68: ld (byte_D6F),a ; CODE XREF: sub_D0E+9p sub_D30+1Ep +loc_D68: ld (byte_D6F),a push bc push de push hl @@ -1839,13 +1771,13 @@ loc_D6E: LD C,0 JR NZ,loc_0D97 LD HL,byte_280E CALL sub_64A - LD C,1AH ;set dma - LD DE,2811H + LD C,1AH ; set dma + LD DE,loc_2811 CALL bdos - LD C,2CH ;??? + LD C,2CH LD E,1 CALL bdos - LD C,15H ;wr. seq. + LD C,15H ; wr. seq. LD DE,byte_17A3 CALL sub_471 JR NC,loc_D6E @@ -1901,8 +1833,8 @@ stab_DC4: .db 18h ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_DD9: ld hl,stab_DC4 ; CODE XREF: sub_8D1+83p -sub_DDC: ld a,(hl) ; CODE XREF: sub_DDC+9j sub_13BA+6p +sub_DD9: ld hl,stab_DC4 +sub_DDC: ld a,(hl) inc hl or a ret z @@ -1914,22 +1846,22 @@ sub_DDC: ld a,(hl) ; CODE XREF: sub_DDC+9j sub_13BA+6p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_DE7: push bc ; CODE XREF: sub_FD1+11p - call sub_16AA ; sub_11C1+2Dp ... +sub_DE7: push bc + call sub_16AA call nz,sub_16A5 cp 1Bh ld a,18h ld c,0Ah call z,sub_57F pop bc -loc_DF8: call sub_5D4 ; CODE XREF: sub_DE7+16j +loc_DF8: call sub_5D4 jr nz,loc_E03 djnz loc_DF8 ld a,0FEh scf ret -loc_E03: or a ; CODE XREF: sub_DE7+14j +loc_E03: or a ret ;---------------------------------------------------------------------------- @@ -2179,15 +2111,15 @@ sub_FA2: LD E,A ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FAA: ld hl,word_2CE9 ; CODE XREF: seg000:0AE5p sub_BD3+1Ap +sub_FAA: ld hl,word_2CE9 ld de,word_2CED ldi ldi ld hl,0 ld (word_2CEF),hl -sub_FBA: ld hl,word_2CED ; CODE XREF: sub_11FA+4Ep +sub_FBA: ld hl,word_2CED ld de,loc_2CF3 -loc_FC0: ldi ; CODE XREF: sub_FC9+6j +loc_FC0: ldi ldi ldi ldi @@ -2196,18 +2128,18 @@ loc_FC0: ldi ; CODE XREF: sub_FC9+6j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FC9: ld hl,loc_2CF3 ; CODE XREF: sub_BD3+1Dp - ld de,word_2CED ; sub_11FA+56p ... +sub_FC9: ld hl,loc_2CF3 + ld de,word_2CED jr loc_FC0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FD1: xor a ; CODE XREF: sub_BD3+37p +sub_FD1: xor a ld (byte_2D01),a ld hl,400h ld (word_2CFE),hl -loc_FDB: ld a,5 ; CODE XREF: sub_FD1+61j +loc_FDB: ld a,5 ld (byte_2D00),a loc_FE0: ld b,64h call sub_DE7 @@ -2240,13 +2172,13 @@ loc_FE0: ld b,64h JR loc_FE0 LD B,0AH - CALL sub_DE7 - JR C,loc_1035 -loc_1024: ld hl,(word_2CFE) ; CODE XREF: sub_FD1+22j - dec hl - ld (word_2CFE),hl - ld a,h - or l + CALL sub_DE7 + JR C,loc_1035 +loc_1024: ld hl,(word_2CFE) + dec hl + ld (word_2CFE),hl + ld a,h + or l ld a,0FCh jp z,loc_108A jp loc_FDB @@ -2292,17 +2224,17 @@ loc_107F: PUSH AF LD DE,loc_2CE4 CALL sub_692 POP AF -loc_108A: ld hl,stab_10BF ; CODE XREF: sub_FD1+14j - ld bc,6 ; sub_FD1+5Ej +loc_108A: ld hl,stab_10BF + ld bc,6 cpir jr nz,loc_109C cp 98h jr nz,loc_109A ld a,10h -loc_109A: scf ; CODE XREF: sub_FD1+C5j +loc_109A: scf ret -loc_109C: or a ; CODE XREF: sub_FD1+C1j +loc_109C: or a ret ;---------------------------------------------------------------------------- @@ -2503,19 +2435,19 @@ loc_11BC: LD L,A ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_11C1: ld a,0FFh ; CODE XREF: sub_8D1+63p - ld (byte_2D02),a ; sub_11C1+30j - call sub_FAA - ld a,(byte_2C9E) - cp 10h - ld a,43h - jr z,loc_11D4 - ld a,15h - -loc_11D4: call loc_145C ; CODE XREF: sub_11C1+Fj - ld b,64h - call sub_1289 - or a +sub_11C1: ld a,0FFh + ld (byte_2D02),a + call sub_FAA + ld a,(byte_2C9E) + cp 10h + ld a,43h + jr z,loc_11D4 + ld a,15h + +loc_11D4: call loc_145C + ld b,64h + call sub_1289 + or a jr z,loc_11F3 cp 0F6h jr z,loc_11E7 @@ -2524,7 +2456,7 @@ loc_11D4: call loc_145C ; CODE XREF: sub_11C1+Fj ret ;---------------------------------------------------------------------------- -loc_11E7: ld a,6 ; CODE XREF: sub_11C1+20j +loc_11E7: ld a,6 call loc_145C ld b,0Ah call sub_DE7 @@ -2532,7 +2464,7 @@ loc_11E7: ld a,6 ; CODE XREF: sub_11C1+20j ;---------------------------------------------------------------------------- -loc_11F3: ld a,6 ; CODE XREF: sub_11C1+1Cj +loc_11F3: ld a,6 call loc_145C xor a ret @@ -2540,8 +2472,8 @@ loc_11F3: ld a,6 ; CODE XREF: sub_11C1+1Cj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_11FA: ld a,0FFh ; CODE XREF: sub_8D1+6Fp - ld (byte_2D02),a ; sub_8D1+7Dp ... +sub_11FA: ld a,0FFh + ld (byte_2D02),a ld (byte_2CA3),a xor a ld (byte_2D07),a @@ -2553,13 +2485,13 @@ sub_11FA: ld a,0FFh ; CODE XREF: sub_8D1+6Fp ld a,43h jr z,loc_121A ld a,15h -loc_121A: call loc_145C ; CODE XREF: sub_11FA+1Cj -loc_121D: ld a,(byte_2D07) ; CODE XREF: sub_11FA+5Ej +loc_121A: call loc_145C +loc_121D: ld a,(byte_2D07) or a ld b,82h jr z,loc_1227 ld b,32h -loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j +loc_1227: call sub_1289 jr c,loc_125A push af call sub_50B @@ -2579,12 +2511,12 @@ loc_1227: call sub_1289 ; CODE XREF: sub_11FA+29j call sub_D30 jr c,loc_1285 -loc_1250: call sub_FC9 ; CODE XREF: sub_11FA+3Bj +loc_1250: call sub_FC9 ld a,6 call loc_145C jr loc_121D -loc_125A: cp 0F6h ; CODE XREF: sub_11FA+30j +loc_125A: cp 0F6h jr nz,loc_126D call sub_D0E jr c,loc_1285 @@ -2596,8 +2528,8 @@ loc_125A: cp 0F6h ; CODE XREF: sub_11FA+30j ;---------------------------------------------------------------------------- -loc_126D: cp 0FFh ; CODE XREF: sub_11FA+3Fj - jr nz,loc_1285 ; sub_11FA+62j +loc_126D: cp 0FFh + jr nz,loc_1285 ld a,(byte_2D02) cp 0FFh jr nz,loc_1285 @@ -2608,20 +2540,20 @@ loc_126D: cp 0FFh ; CODE XREF: sub_11FA+3Fj ld (byte_2C9E),a jp sub_11FA -loc_1285: ld a,0FFh ; CODE XREF: sub_11FA+54j - scf ; sub_11FA+67j ... +loc_1285: ld a,0FFh + scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1289: ld a,b ; CODE XREF: sub_11C1+18p - ld (byte_2D03),a ; sub_11FA+2Dp +sub_1289: ld a,b + ld (byte_2D03),a xor a ld (byte_2D04),a ld a,0 ld (byte_2D09),a -loc_1296: ld a,(byte_2D03) ; CODE XREF: sub_1289+12Aj +loc_1296: ld a,(byte_2D03) ld b,a call sub_DE7 ld (byte_2D08),a @@ -2731,9 +2663,9 @@ loc_1376: ld (hl),a ;---------------------------------------------------------------------------- -loc_137A: ld a,0 ; CODE XREF: sub_1289+22j +loc_137A: ld a,0 ld (byte_2D09),a -loc_137F: ld b,0Ah ; CODE XREF: sub_1289+FBj +loc_137F: ld b,0Ah call sub_DE7 jr nc,loc_137F ld a,(byte_2D02) @@ -2746,11 +2678,11 @@ loc_137F: ld b,0Ah ; CODE XREF: sub_1289+FBj ld a,15h jr loc_13A1 -loc_139A: ld a,28h ; CODE XREF: sub_1289+102j +loc_139A: ld a,28h ld (byte_2D03),a ld a,15h -loc_13A1: call loc_145C ; CODE XREF: sub_1289+10Bj -loc_13A4: call sub_FC9 ; sub_1289+10Fj +loc_13A1: call loc_145C +loc_13A4: call sub_FC9 ld hl,byte_2D04 inc (hl) call sub_482 @@ -2764,7 +2696,7 @@ loc_13A4: call sub_FC9 ; sub_1289+10Fj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_13BA: ld (byte_2CE8),a ; CODE XREF: sub_BD3+34p +sub_13BA: ld (byte_2CE8),a ld hl,loc_1403 call sub_DDC call sub_8A0 @@ -2773,7 +2705,7 @@ sub_13BA: ld (byte_2CE8),a ; CODE XREF: sub_BD3+34p call sub_1418 ld hl,loc_2CE0 ld b,4 -loc_13D4: push bc ; CODE XREF: sub_13BA+26j +loc_13D4: push bc ld a,(hl) inc hl push hl @@ -2809,8 +2741,8 @@ loc_1408: .text "0123456789abcdef" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1418: push af ; CODE XREF: sub_13BA+12p - ld hl,loc_1408 ; sub_13BA+21p ... +sub_1418: push af + ld hl,loc_1408 ld b,0 rra rra @@ -2885,7 +2817,7 @@ loc_1480: .dw loc_1450 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1492: push bc ; CODE XREF: start+56p sub_961+79p +sub_1492: push bc ld (byte_2D0A),a call sub_171E push de @@ -2901,7 +2833,7 @@ sub_1492: push bc ; CODE XREF: start+56p sub_961+79p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_14A7: xor a ; CODE XREF: sub_1492+Ep +sub_14A7: xor a ld (de),a ld (byte_2D0D),a ld (byte_2D0C),a @@ -2913,7 +2845,7 @@ sub_14A7: xor a ; CODE XREF: sub_1492+Ep cp 3Ah jr nz,loc_14BD inc hl -loc_14BD: ld b,8 ; CODE XREF: sub_14A7+13j +loc_14BD: ld b,8 call sub_1522 pop de ld a,(hl) @@ -2926,14 +2858,14 @@ loc_14BD: ld b,8 ; CODE XREF: sub_14A7+13j jr z,loc_14D7 call sub_154A jr z,loc_14E5 -loc_14D7: call sub_159D ; CODE XREF: sub_14A7+29j +loc_14D7: call sub_159D jr z,loc_14E5 ld a,(byte_2D0A) or a jr nz,loc_14E5 call sub_154A -loc_14E5: ld a,(byte_2D0D); CODE XREF: sub_14A7+2Ej - ld (de),a ; sub_14A7+33j ... +loc_14E5: ld a,(byte_2D0D) + ld (de),a push de inc de call sub_1632 @@ -2946,7 +2878,7 @@ loc_14E5: ld a,(byte_2D0D); CODE XREF: sub_14A7+2Ej pop de ld a,(hl) ld (byte_2D0B),a -loc_14FE: ld a,(byte_2D0B); CODE XREF: sub_14A7+22j +loc_14FE: ld a,(byte_2D0B) ex de,hl ld bc,8 add hl,bc @@ -2958,21 +2890,21 @@ loc_14FE: ld a,(byte_2D0B); CODE XREF: sub_14A7+22j push de call sub_1522 pop de -loc_1513: ex de,hl ; CODE XREF: sub_14A7+64j +loc_1513: ex de,hl ld bc,5 add hl,bc ex de,hl ld a,(byte_2D0E) ld (de),a -loc_151D: ld a,(byte_2D0C); CODE XREF: sub_1492+13j +loc_151D: ld a,(byte_2D0C) or a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1522: call sub_15D9 ; CODE XREF: sub_14A7+18p - ret z ; sub_14A7+4Fp ... +sub_1522: call sub_15D9 + ret z inc de cp 2Ah jr nz,loc_1533 @@ -2980,12 +2912,12 @@ sub_1522: call sub_15D9 ; CODE XREF: sub_14A7+18p ld (de),a call sub_1543 jr loc_153A -loc_1533: ld (de),a ; CODE XREF: sub_1522+7j +loc_1533: ld (de),a inc hl cp 3Fh call z,sub_1543 -loc_153A: djnz sub_1522 ; CODE XREF: sub_1522+Fj -loc_153C: call sub_15D9 ; CODE XREF: sub_1522+1Fj +loc_153A: djnz sub_1522 +loc_153C: call sub_15D9 ret z inc hl jr loc_153C @@ -2993,8 +2925,8 @@ loc_153C: call sub_15D9 ; CODE XREF: sub_1522+1Fj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1543: push hl ; CODE XREF: sub_1522+Cp - ld hl,byte_2D0C ; sub_1522+15p +sub_1543: push hl + ld hl,byte_2D0C inc (hl) pop hl ret @@ -3002,8 +2934,8 @@ sub_1543: push hl ; CODE XREF: sub_1522+Cp ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_154A: push hl ; CODE XREF: sub_14A7+2Bp - push de ; sub_14A7+3Bp +sub_154A: push hl + push de call sub_1552 pop de pop hl @@ -3012,7 +2944,7 @@ sub_154A: push hl ; CODE XREF: sub_14A7+2Bp ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1552: call sub_164A ; CODE XREF: sub_154A+2p +sub_1552: call sub_164A jr z,loc_15CA ex de,hl inc hl @@ -3032,9 +2964,9 @@ sub_1552: call sub_164A ; CODE XREF: sub_154A+2p ret z call sub_1625 ret c -loc_1574: push hl ; CODE XREF: sub_1552+Fj +loc_1574: push hl ld b,2 -loc_1577: ld a,(hl) ; CODE XREF: sub_1552+30j +loc_1577: ld a,(hl) cp 20h jr z,loc_1589 call sub_1625 @@ -3044,7 +2976,7 @@ loc_1577: ld a,(hl) ; CODE XREF: sub_1552+30j ld a,(hl) cp 20h jr nz,loc_159A -loc_1589: pop hl ; CODE XREF: sub_1552+28j +loc_1589: pop hl call sub_165A ld c,a inc c @@ -3055,13 +2987,13 @@ loc_1589: pop hl ; CODE XREF: sub_1552+28j xor a ret -loc_159A: pop hl ; CODE XREF: sub_1552+2Dj - jr loc_15CA ; sub_1552+35j +loc_159A: pop hl + jr loc_15CA ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_159D: push hl ; CODE XREF: sub_14A7+30p +sub_159D: push hl push de call sub_15A5 pop de @@ -3071,11 +3003,11 @@ sub_159D: push hl ; CODE XREF: sub_14A7+30p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15A5: call sub_1662 ; CODE XREF: sub_159D+2p +sub_15A5: call sub_1662 jr z,loc_15CA ex de,hl inc hl -loc_15AC: ld a,(de) ; CODE XREF: sub_15A5+23j +loc_15AC: ld a,(de) or a jr z,loc_15CA inc de @@ -3083,13 +3015,13 @@ loc_15AC: ld a,(de) ; CODE XREF: sub_15A5+23j push hl push de ld b,8 -loc_15B6: ld a,(de) ; CODE XREF: sub_15A5+17j +loc_15B6: ld a,(de) cp (hl) jr nz,loc_15BE inc hl inc de djnz loc_15B6 -loc_15BE: pop de ; CODE XREF: sub_15A5+13j +loc_15BE: pop de pop hl jr z,loc_15CD ex de,hl @@ -3098,10 +3030,10 @@ loc_15BE: pop de ; CODE XREF: sub_15A5+13j ex de,hl jr loc_15AC -loc_15CA: or 0FFh ; CODE XREF: sub_1552+3j - ret ; sub_1552+14j ... +loc_15CA: or 0FFh + ret -loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj +loc_15CD: dec de ld a,(de) ld (byte_2D0E),a dec de @@ -3113,7 +3045,7 @@ loc_15CD: dec de ; CODE XREF: sub_15A5+1Bj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15D9: ld a,(hl) ; CODE XREF: sub_1522p sub_1522+1Ap +sub_15D9: ld a,(hl) cp 21h jr c,loc_15F8 cp 3Dh @@ -3135,15 +3067,15 @@ sub_15D9: ld a,(hl) ; CODE XREF: sub_1522p sub_1522+1Ap cp 3Bh ret -loc_15F8: xor a ; CODE XREF: sub_15D9+3j +loc_15F8: xor a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15FA: push bc ; CODE XREF: sub_1552+3Dp +sub_15FA: push bc ld bc,1100h -loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j +loc_15FE: ld a,(hl) call sub_15D9 jr z,loc_161E inc hl @@ -3163,20 +3095,20 @@ loc_15FE: ld a,(hl) ; CODE XREF: sub_15FA+22j jr c,loc_1622 ld c,a djnz loc_15FE -loc_161E: ld a,c ; CODE XREF: sub_15FA+8j +loc_161E: ld a,c pop bc or a ret ; -loc_1622: pop bc ; CODE XREF: sub_15FA+Ej - scf ; sub_15FA+13j ... +loc_1622: pop bc + scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1625: sub 30h ; CODE XREF: sub_1552+1Ep - ret c ; sub_1552+2Ap ... +sub_1625: sub 30h + ret c cp 0Ah ccf ret @@ -3184,11 +3116,11 @@ sub_1625: sub 30h ; CODE XREF: sub_1552+1Ep ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_162C: xor a ; CODE XREF: sub_1492+8p +sub_162C: xor a ld (de),a inc de call sub_1632 -sub_1632: ld b,0Bh ; CODE XREF: sub_14A7+44p +sub_1632: ld b,0Bh ld a,20h call sub_1645 xor a @@ -3200,15 +3132,15 @@ sub_1632: ld b,0Bh ; CODE XREF: sub_14A7+44p inc de ld b,3 xor a -sub_1645: ld (de),a ; CODE XREF: sub_1632+4p - inc de ; sub_1645+2j +sub_1645: ld (de),a + inc de djnz sub_1645 ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_164A: push hl ; CODE XREF: sub_1552p +sub_164A: push hl push de ld de,2Eh jp loc_1669 @@ -3216,7 +3148,7 @@ sub_164A: push hl ; CODE XREF: sub_1552p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1652: push hl ; CODE XREF: sub_1552+7p +sub_1652: push hl push de ld de,2Ch jp loc_1669 @@ -3224,7 +3156,7 @@ sub_1652: push hl ; CODE XREF: sub_1552+7p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_165A: push hl ; CODE XREF: sub_1552+38p +sub_165A: push hl push de ld de,2Dh jp loc_1669 @@ -3232,18 +3164,18 @@ sub_165A: push hl ; CODE XREF: sub_1552+38p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1662: push de ; CODE XREF: sub_15A5p +sub_1662: push de ld de,15h jp loc_1676 ;---------------------------------------------------------------------------- -loc_1669: ld hl,(word_2D0F) ; CODE XREF: sub_164A+5j - ld a,h ; sub_1652+5j ... +loc_1669: ld hl,(word_2D0F) + ld a,h or l jr z,loc_1671 add hl,de -loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj +loc_1671: ld a,(hl) pop de pop hl or a @@ -3251,7 +3183,7 @@ loc_1671: ld a,(hl) ; CODE XREF: sub_1662+Cj ;---------------------------------------------------------------------------- -loc_1676: ld hl,(word_2D0F) ; CODE XREF: sub_1662+4j +loc_1676: ld hl,(word_2D0F) add hl,de ld e,(hl) inc hl @@ -3270,8 +3202,8 @@ loc_1683: ld (word_2D0F),hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1687: push af ; CODE XREF: sub_14A7+8p - push de ; sub_1632+Ap +sub_1687: push af + push de push hl ld c,19h call sub_16AF @@ -3290,7 +3222,7 @@ sub_1687: push af ; CODE XREF: sub_14A7+8p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_169E: ld a,11h ; CODE XREF: sub_961+88p +sub_169E: ld a,11h call sub_16B8 inc a ret @@ -3298,20 +3230,20 @@ sub_169E: ld a,11h ; CODE XREF: sub_961+88p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16A5: ld a,1 ; CODE XREF: sub_DE7+4p +sub_16A5: ld a,1 jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16AA: ld a,0Bh ; CODE XREF: sub_DE7+1p +sub_16AA: ld a,0Bh jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16AF: push de ; CODE XREF: sub_1687+5p - push bc ; sub_1687+Dp +sub_16AF: push de + push bc call bdos pop bc pop de @@ -3321,8 +3253,8 @@ sub_16AF: push de ; CODE XREF: sub_1687+5p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16B8: push hl ; CODE XREF: sub_169E+2p - push de ; sub_16A5+2j ... +sub_16B8: push hl + push de push bc ld c,a call bdos @@ -3335,7 +3267,7 @@ sub_16B8: push hl ; CODE XREF: sub_169E+2p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16C4: push bc ; CODE XREF: sub_4A4+10p +sub_16C4: push bc push hl push de push af @@ -3354,25 +3286,25 @@ sub_16C4: push bc ; CODE XREF: sub_4A4+10p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16DA: ld a,(de) ; CODE XREF: sub_16C4+6p - and 7Fh ; sub_16C4+Ep ... +sub_16DA: ld a,(de) + and 7Fh cp 20h jr z,loc_16E3 ld (hl),a inc hl -loc_16E3: inc de ; CODE XREF: sub_16DA+5j +loc_16E3: inc de djnz sub_16DA ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16E7: push bc ; CODE XREF: sub_482+6p sub_4A4+1Fp +sub_16E7: push bc ld b,0 jp loc_16F0 sub_16ED: PUSH BC LD B,0FFH -loc_16F0: push hl ; CODE XREF: sub_16E7+3j +loc_16F0: push hl push af ld h,64h call sub_1703 @@ -3387,8 +3319,8 @@ loc_16F0: push hl ; CODE XREF: sub_16E7+3j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1703: ld l, 0FFh ; CODE XREF: sub_16E7+Dp -loc_1705: sub h ; CODE XREF: sub_1703+4j +sub_1703: ld l, 0FFh +loc_1705: sub h inc l jr nc,loc_1705 add a,h @@ -3402,9 +3334,9 @@ loc_1705: sub h ; CODE XREF: sub_1703+4j ld a,20h jr z,loc_171A xor a -sub_1717: add a,30h ; CODE XREF: sub_16E7+15p +sub_1717: add a,30h ld b,a -loc_171A: ld (de),a ; CODE XREF: sub_1703+11j +loc_171A: ld (de),a inc de ld a,h ret @@ -3412,7 +3344,7 @@ loc_171A: ld (de),a ; CODE XREF: sub_1703+11j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_171E: push af ; CODE XREF: sub_1492+4p +sub_171E: push af push hl loc_1720: ld a,(hl) or a @@ -3428,7 +3360,7 @@ loc_172B: pop hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_172E: push bc ; CODE XREF: start+2Fp sub_961+70p +sub_172E: push bc push de push hl ld c,a @@ -3437,7 +3369,7 @@ sub_172E: push bc ; CODE XREF: start+2Fp sub_961+70p push hl inc hl inc hl -loc_1737: call sub_176B ; CODE XREF: sub_172E+25j +loc_1737: call sub_176B or a jr z,loc_1760 ld (hl),e @@ -3455,16 +3387,16 @@ loc_1737: call sub_176B ; CODE XREF: sub_172E+25j xor a ld (de),a inc de -loc_1751: ld a,b ; CODE XREF: sub_172E+1Ej +loc_1751: ld a,b or a jr nz,loc_1737 -loc_1755: call sub_1779 ; CODE XREF: sub_172E+14j +loc_1755: call sub_1779 call sub_176B or a jr z,loc_1760 or 0FFh -loc_1760: pop hl ; CODE XREF: sub_172E+Dj - push af ; sub_172E+1Aj ... +loc_1760: pop hl + push af ld a,(hl) sub b inc hl @@ -3478,8 +3410,8 @@ loc_1760: pop hl ; CODE XREF: sub_172E+Dj ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_176B: ld a,(de) ; CODE XREF: sub_172E+9p - and 7Fh ; sub_172E+2Ap ... +sub_176B: ld a,(de) + and 7Fh inc de cp 20h jr z,sub_176B @@ -3491,8 +3423,8 @@ sub_176B: ld a,(de) ; CODE XREF: sub_172E+9p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1779: ld a,(de) ; CODE XREF: sub_172E+16p - and 7Fh ; sub_172E+27p ... +sub_1779: ld a,(de) + and 7Fh ret z cp 20h ret z @@ -3504,7 +3436,7 @@ sub_1779: ld a,(de) ; CODE XREF: sub_172E+16p ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1786: push hl ; CODE XREF: start+1Ep sub_4A4+Cp +sub_1786: push hl call sub_178C pop hl ret @@ -3512,8 +3444,8 @@ sub_1786: push hl ; CODE XREF: start+1Ep sub_4A4+Cp ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_178C: push bc ; CODE XREF: sub_1786+1p -loc_178D: ld (hl),a ; CODE XREF: sub_178C+3j +sub_178C: push bc +loc_178D: ld (hl),a inc hl djnz loc_178D pop bc @@ -3522,7 +3454,7 @@ loc_178D: ld (hl),a ; CODE XREF: sub_178C+3j ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1793: and 7Fh ; CODE XREF: sub_171E+6p +sub_1793: and 7Fh cp 61h ret c cp 7Bh @@ -3531,10 +3463,10 @@ sub_1793: and 7Fh ; CODE XREF: sub_171E+6p ret ;---------------------------------------------------------------------------- -word_179E: .dw loc_end ; DATA XREF: start+18r start+35r -byte_17A0: .db 0 ; DATA XREF: sub_195+Aw sub_195+14r -byte_17A1: .db 0 ; DATA XREF: start+60r sub_195+11w -word_17A2: .db 0 ; DATA XREF: start+88w sub_961+7Fw +word_179E: .dw loc_end +byte_17A0: .db 0 +byte_17A1: .db 0 +word_17A2: .db 0 byte_17A3: .db 0 .fill $1800-$,0 .ds 8 @@ -3542,7 +3474,9 @@ nstack: word_1808: .ds 2 .ds 1004h byte_280E: .ds 1 - .ds 82h +byte_280F: .ds 1 +byte_2810: .ds 1 +loc_2811: .ds 80h byte_2891: .ds 1 .ds 3 loc_2895: .ds 4 From 2472fe79512ec58e6275a566e2e21f65399d8b5a Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 22:35:36 +0800 Subject: [PATCH 7/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 668 +++++++++++++++++------------------ 1 file changed, 334 insertions(+), 334 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index fc00977c..b1dee9c5 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -74,7 +74,7 @@ start: ld sp, nstack ; Setup local stack ld a,d or e jr z,loc_174 -loc_152: ld hl,byte_17A3 +loc_152: ld hl,byte_17A3 ex de,hl call sub_1492 ld hl,byte_17A3 @@ -83,21 +83,21 @@ loc_152: ld hl,byte_17A3 jr nz,loc_164 ld a,(byte_17A1) ld (hl),a -loc_164: ld bc,0Dh +loc_164: ld bc,0Dh add hl,bc dec de ldi ld de,byte_17A3 call sub_1B0 call sub_3C9 -loc_174: ld de,str_sxfr +loc_174: ld de,str_sxfr ld c,C_WRITESTR - call bdos + call bdos call sub_3EF call sub_8D1 call sub_451 smod_b_186: .equ $+1 -loc_185: ld bc,0 +loc_185: ld bc,0 ld (word_17A2),bc ld de,byte_17A3 call sub_1B0 @@ -107,7 +107,7 @@ loc_185: ld bc,0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_195: ld a,(4) +sub_195: ld a,(4) ld b,a rlca rlca @@ -126,7 +126,7 @@ sub_195: ld a,(4) ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1B0: ld a,(de) +sub_1B0: ld a,(de) push af dec de ld a,(de) @@ -170,9 +170,9 @@ str_info: .text "usage: rz [-?pbcrxyz] [du:fn]\r\n\n" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_39A: push hl +sub_39A: push hl push de -loc_39C: inc de +loc_39C: inc de ld a,(de) or a jr z,loc_3AE @@ -182,7 +182,7 @@ loc_39C: inc de call z,sub_67F jr loc_39C -loc_3AE: pop de +loc_3AE: pop de pop hl ret @@ -202,7 +202,7 @@ stab_3B1: .text "?PBCXYZR" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_3C9: ld a,1 +sub_3C9: ld a,1 jr loc_3D3 sub_3CD: ld a,3 jr loc_3D3 @@ -228,7 +228,7 @@ sub_3E9: ld a,$ff ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_3EF: xor a +sub_3EF: xor a ld (byte_460),a ld (byte_464),a ld c,S_SYSVAR @@ -265,7 +265,7 @@ sub_3EF: xor a and e ld l, a ld (word_469),hl -loc_437: ld a,0FEh +loc_437: ld a,0FEh ld (byte_464),a ld de,byte_463 ld c,S_SYSVAR @@ -279,7 +279,7 @@ loc_437: ld a,0FEh ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_451: ld hl,(word_46B) +sub_451: ld hl,(word_46B) ld (word_465),hl ld hl,(word_46D) ld (word_469),hl @@ -287,34 +287,34 @@ sub_451: ld hl,(word_46B) ;----------------------------------------------------------------------------' -byte_45F: .db 28h -byte_460: .db 0 - .db 0 - .db 0 +byte_45F: .db 28h +byte_460: .db 0 + .db 0 + .db 0 byte_463: .db 24h -byte_464: .db 0 -word_465: .dw 0 -byte_467: .db 22h -byte_468: .db 0 -word_469: .dw 0 -word_46B: .dw 0 -word_46D: .dw 0 -word_46F: .dw 0 +byte_464: .db 0 +word_465: .dw 0 +byte_467: .db 22h +byte_468: .db 0 +word_469: .dw 0 +word_46B: .dw 0 +word_46D: .dw 0 +word_46F: .dw 0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_471: call bdos - or a +sub_471: call bdos + or a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_476: push af -loc_477: push bc - xor a - ld b,a +sub_476: push af +loc_477: push bc + xor a + ld b,a ld c,a cpir pop bc @@ -325,7 +325,7 @@ loc_477: push bc ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_482: ld a,(byte_2D04) +sub_482: ld a,(byte_2D04) ld de,text495h ; Update error string with errors call sub_16E7 ld de,text493h @@ -406,7 +406,7 @@ text508h: .text "\r\n$" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_50B: ld hl,loc_2CAB +sub_50B: ld hl,loc_2CAB ld de,loc_51F call loc_774 ld (hl),24h @@ -479,8 +479,8 @@ sub_57F: ld hl,byte_586 ;---------------------------------------------------------------------------- -byte_586: .db 0 -byte_587: .db 0 +byte_586: .db 0 +byte_587: .db 0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e @@ -535,7 +535,7 @@ loc_5C7: LD C,4 ; punch out ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_5CD: ld c,8 +sub_5CD: ld c,8 call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a ret @@ -544,7 +544,7 @@ sub_5CD: ld c,8 ; S u b r o u t i n e -sub_5D4: +sub_5D4: push bc ld b,5Fh loc_5D7: push bc @@ -735,11 +735,11 @@ sub_688: xor a ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_692: push bc +sub_692: push bc push de push hl ldi -loc_697: ldi +loc_697: ldi ldi ldi pop hl @@ -749,39 +749,39 @@ loc_697: ldi ;---------------------------------------------------------------------------- -loc_6A1: PUSH HL - POP IX - PUSH DE - POP IY - LD A,(IX+3) - XOR (IY+3) - JP P,loc_6B6 - XOR (IX+3) -loc_6B3: RET M - CCF - RET +loc_6A1: PUSH HL + POP IX + PUSH DE + POP IY + LD A,(IX+3) + XOR (IY+3) + JP P,loc_6B6 + XOR (IX+3) +loc_6B3: RET M + CCF + RET -loc_6B6: XOR (IX+3) - JP P,loc_6C2 - CALL loc_6C2 - SCF - JR loc_6B3 +loc_6B6: XOR (IX+3) + JP P,loc_6C2 + CALL loc_6C2 + SCF + JR loc_6B3 loc_6C2: PUSH BC - PUSH DE - PUSH HL - EX DE,HL - OR A - LD B,4 -loc_6C9: LD A,(DE) - SBC A,(HL) - INC DE - INC HL - DJNZ loc_6C9 - POP HL - POP DE - POP BC - RET + PUSH DE + PUSH HL + EX DE,HL + OR A + LD B,4 +loc_6C9: LD A,(DE) + SBC A,(HL) + INC DE + INC HL + DJNZ loc_6C9 + POP HL + POP DE + POP BC + RET sub_6D3: PUSH BC PUSH DE @@ -801,13 +801,13 @@ loc_6E0: POP HL ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_6E4: push bc +sub_6E4: push bc push de push hl or a ex af, af' ld a,4 -loc_6EB: ex af, af' +loc_6EB: ex af, af' ld a,(de) adc a,(hl) ld (bc),a @@ -825,14 +825,14 @@ loc_6EB: ex af, af' ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_6FA: push bc +sub_6FA: push bc push de push hl ex de,hl or a ex af, af' ld a,4 -loc_702: ex af, af' +loc_702: ex af, af' ld a,(de) sbc a,(hl) ld (bc),a @@ -868,14 +868,14 @@ loc_723: POP HL ;---------------------------------------------------------------------------- -loc_726: call sub_688 -sub_729: push bc +loc_726: call sub_688 +sub_729: push bc push hl ld a,(hl) sub 1 ld (hl),a ld b,3 -loc_731: inc hl +loc_731: inc hl ld a,(hl) sbc a,0 ld (hl),a @@ -932,7 +932,7 @@ loc_787: ld a,30h inc de inc de ld b,0Ah -loc_792: push bc +loc_792: push bc ld hl,byte_2891 ld bc,loc_2895 call sub_6FA @@ -980,15 +980,15 @@ smod_b_7DF: .EQU $+1 POP AF RET -loc_7E5: .db 20h - .db 83h - .db 0B8h - .db 0EDh +loc_7E5: .db 20h + .db 83h + .db 0B8h + .db 0EDh -loc_7E9: .db 0E3h - .db 20h - .db 0BBh - .db 0DEh +loc_7E9: .db 0E3h + .db 20h + .db 0BBh + .db 0DEh sub_7ED: PUSH AF smod_w_7F0: .EQU $+2 @@ -1019,7 +1019,7 @@ smod_w_7F0: .EQU $+2 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_825: push de +sub_825: push de push hl ld hl,(smod_w_7F0) ld bc,3FFh @@ -1028,13 +1028,13 @@ sub_825: push de pop iy ld ix, loc_7E5 xor a -loc_836: push af +loc_836: push af ld hl,0FFFFh ld de,0FFFFh xor e ld e, a ld b,8 -loc_841: scf +loc_841: scf rr h rr l rr d @@ -1052,7 +1052,7 @@ loc_841: scf ld a,h xor (ix+3) ld h,a -loc_860: djnz loc_841 +loc_860: djnz loc_841 ld a,h cpl ld (iy+0), a @@ -1078,8 +1078,8 @@ loc_860: djnz loc_841 ;---------------------------------------------------------------------------- -sub_885: PUSH AF -smod_w_887: .equ $+1 +sub_885: PUSH AF +smod_w_887: .equ $+1 LD HL,0 LD DE,1021H ; ? XOR H @@ -1101,7 +1101,7 @@ loc_899: DJNZ loc_890 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8A0: xor a +sub_8A0: xor a ld h,a ld l, a ld (smod_b_7DF),a @@ -1111,26 +1111,26 @@ sub_8A0: xor a ;---------------------------------------------------------------------------- -byte_8AF: .db 4 -byte_8B0: .db 0 -byte_8B1: .db 0 -byte_8B2: .db 0 -byte_8B3: .db 0 -word_8B4: .dw 0 +byte_8AF: .db 4 +byte_8B0: .db 0 +byte_8B1: .db 0 +byte_8B2: .db 0 +byte_8B3: .db 0 +word_8B4: .dw 0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8B6: xor a +sub_8B6: xor a ld c,a ld b,8 ld a,h -loc_8BB: rlca +loc_8BB: rlca set 7,c jr c,loc_8C4 rr c djnz loc_8BB -loc_8C4: ld a,h +loc_8C4: ld a,h and c ld h,a ld l,0 @@ -1142,7 +1142,7 @@ loc_8C4: ld a,h ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_8D1: xor a +sub_8D1: xor a ld hl,byte_2C9D ld b,61h call sub_1786 @@ -1160,7 +1160,7 @@ sub_8D1: xor a cp 0 jr z,loc_8FD ld a,7 -loc_8FD: ld (byte_2CA4),a +loc_8FD: ld (byte_2CA4),a ld a,10h ld (byte_2C9E),a ld a,(byte_8AF) @@ -1178,14 +1178,14 @@ loc_8FD: ld (byte_2CA4),a jr nz,loc_924 jr locret_953 -loc_924: call sub_BB4 - jr c,loc_954 +loc_924: call sub_BB4 + jr c,loc_954 jr locret_953 ;---------------------------------------------------------------------------- -loc_92B: ld a,3 - ld (byte_8AF),a +loc_92B: ld a,3 + ld (byte_8AF),a xor a ld (byte_2D04),a call sub_11C1 @@ -1199,17 +1199,17 @@ loc_92B: ld a,3 ;---------------------------------------------------------------------------- -loc_947: call sub_961 +loc_947: call sub_961 jr c,loc_954 jr z,locret_953 ; ret z ? call sub_11FA jr c,loc_954 -locret_953: ret +locret_953: ret ;---------------------------------------------------------------------------- -loc_954: call sub_DD9 - ld a,(byte_2CA5) +loc_954: call sub_DD9 + ld a,(byte_2CA5) cp 0FFh call z,sub_D0E jr locret_953 ; ret ? @@ -1275,8 +1275,8 @@ loc_9AE: ld a,(byte_8AF) call sub_1492 ld hl,(byte_17A0) ld (word_17A2),hl -loc_9E3: call sub_4A4 - ld de,byte_17A3 +loc_9E3: call sub_4A4 + ld de,byte_17A3 call sub_169E jr nz,loc_A11 ld de,byte_17A3 @@ -1290,14 +1290,14 @@ loc_9E3: call sub_4A4 ld a,(byte_2CD1) cp 2 jr c,loc_A0D -sub_A09: ld de,(byte_2CD4) -loc_A0D: ld a,1 +sub_A09: ld de,(byte_2CD4) +loc_A0D: ld a,1 or a ret ;---------------------------------------------------------------------------- -loc_A11: call sub_A09 +loc_A11: call sub_A09 ld a,(byte_8AF) cp 4 jr nz,loc_A24 @@ -1418,13 +1418,13 @@ loc_ACF: xor a ld b,0Ah loc_AF3: push bc - ld ix,loc_2CE0 + ld ix,loc_2CE0 ld (ix+3), 20h ld (ix+2), 0 ld hl,(word_2CEB) ld (ix+0), l ld (ix+1), h -smod_b_B0A: .equ $+1 +smod_b_B0A: .equ $+1 ld a,1 ; self modifying value CALL sub_13BA LD A,(smod_b_B0A) @@ -1498,12 +1498,12 @@ loc_B96: .db 0 .db 0Bh .db 0FEh .db 4 - .db 2 - .db 11h - .db 12h - .db 0Fh - .db 8 - .db 10h + .db 2 + .db 11h + .db 12h + .db 0Fh + .db 8 + .db 10h loc_BA0: .dw loc_B34 .dw loc_B39 @@ -1519,8 +1519,8 @@ loc_BA0: .dw loc_B34 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_BB4: call sub_BD3 - ret c +sub_BB4: call sub_BD3 + ret c cp 0Bh jr z,loc_BC2 cp 5 @@ -1530,7 +1530,7 @@ sub_BB4: call sub_BD3 ;---------------------------------------------------------------------------- -loc_BC2: call loc_ACF +loc_BC2: call loc_ACF ret c cp 4 jr z,sub_BB4 @@ -1544,18 +1544,18 @@ loc_BC2: call loc_ACF ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_BD3: call sub_961 +sub_BD3: call sub_961 jr nc,loc_BDF ld a,5 ld (smod_b_B0A),a or a ret -loc_BDF: cp 9 +loc_BDF: cp 9 jr z,loc_BE9 ld hl,loc_2CAB call sub_688 -loc_BE9: xor a +loc_BE9: xor a ld (byte_2D04),a call sub_FAA loc_BF0: call sub_FC9 @@ -1707,10 +1707,10 @@ stab_CF9: .db 0EBh ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_D0E: call sub_50B - call sub_D30 +sub_D0E: call sub_50B + call sub_D30 ret c -loc_D15: ld a,1Ah +loc_D15: ld a,1Ah call loc_D68 ret c ld hl,byte_280E @@ -1726,16 +1726,16 @@ loc_D15: ld a,1Ah ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_D30: ld bc,(word_2CF5) - ld a,b +sub_D30: ld bc,(word_2CF5) + ld a,b or c ret z ld hl,(word_2CE9) -loc_D3A: ld a,(byte_2CA3) +loc_D3A: ld a,(byte_2CA3) cp 0FFh jr z,loc_D52 smod_b_D41: .equ $+1 -loc_D41: ld a,0 +loc_D41: ld a,0 cp 0Dh jr z,loc_D52 ld a,(hl) @@ -1744,7 +1744,7 @@ loc_D41: ld a,0 ld a,0Dh call loc_D68 ret c -loc_D52: ld a,(hl) +loc_D52: ld a,(hl) ld (smod_b_D41),a inc hl dec bc @@ -1760,7 +1760,7 @@ loc_D52: ld a,(hl) ;---------------------------------------------------------------------------- -loc_D68: ld (byte_D6F),a +loc_D68: ld (byte_D6F),a push bc push de push hl @@ -1833,8 +1833,8 @@ stab_DC4: .db 18h ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_DD9: ld hl,stab_DC4 -sub_DDC: ld a,(hl) +sub_DD9: ld hl,stab_DC4 +sub_DDC: ld a,(hl) inc hl or a ret z @@ -1846,22 +1846,22 @@ sub_DDC: ld a,(hl) ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_DE7: push bc - call sub_16AA +sub_DE7: push bc + call sub_16AA call nz,sub_16A5 cp 1Bh ld a,18h ld c,0Ah call z,sub_57F pop bc -loc_DF8: call sub_5D4 +loc_DF8: call sub_5D4 jr nz,loc_E03 djnz loc_DF8 ld a,0FEh scf ret -loc_E03: or a +loc_E03: or a ret ;---------------------------------------------------------------------------- @@ -2111,15 +2111,15 @@ sub_FA2: LD E,A ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FAA: ld hl,word_2CE9 +sub_FAA: ld hl,word_2CE9 ld de,word_2CED ldi ldi ld hl,0 ld (word_2CEF),hl -sub_FBA: ld hl,word_2CED +sub_FBA: ld hl,word_2CED ld de,loc_2CF3 -loc_FC0: ldi +loc_FC0: ldi ldi ldi ldi @@ -2128,18 +2128,18 @@ loc_FC0: ldi ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FC9: ld hl,loc_2CF3 - ld de,word_2CED +sub_FC9: ld hl,loc_2CF3 + ld de,word_2CED jr loc_FC0 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_FD1: xor a +sub_FD1: xor a ld (byte_2D01),a ld hl,400h ld (word_2CFE),hl -loc_FDB: ld a,5 +loc_FDB: ld a,5 ld (byte_2D00),a loc_FE0: ld b,64h call sub_DE7 @@ -2172,13 +2172,13 @@ loc_FE0: ld b,64h JR loc_FE0 LD B,0AH - CALL sub_DE7 - JR C,loc_1035 -loc_1024: ld hl,(word_2CFE) - dec hl - ld (word_2CFE),hl - ld a,h - or l + CALL sub_DE7 + JR C,loc_1035 +loc_1024: ld hl,(word_2CFE) + dec hl + ld (word_2CFE),hl + ld a,h + or l ld a,0FCh jp z,loc_108A jp loc_FDB @@ -2224,17 +2224,17 @@ loc_107F: PUSH AF LD DE,loc_2CE4 CALL sub_692 POP AF -loc_108A: ld hl,stab_10BF - ld bc,6 +loc_108A: ld hl,stab_10BF + ld bc,6 cpir jr nz,loc_109C cp 98h jr nz,loc_109A ld a,10h -loc_109A: scf +loc_109A: scf ret -loc_109C: or a +loc_109C: or a ret ;---------------------------------------------------------------------------- @@ -2435,19 +2435,19 @@ loc_11BC: LD L,A ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_11C1: ld a,0FFh - ld (byte_2D02),a - call sub_FAA - ld a,(byte_2C9E) - cp 10h - ld a,43h - jr z,loc_11D4 - ld a,15h - -loc_11D4: call loc_145C - ld b,64h - call sub_1289 - or a +sub_11C1: ld a,0FFh + ld (byte_2D02),a + call sub_FAA + ld a,(byte_2C9E) + cp 10h + ld a,43h + jr z,loc_11D4 + ld a,15h + +loc_11D4: call loc_145C + ld b,64h + call sub_1289 + or a jr z,loc_11F3 cp 0F6h jr z,loc_11E7 @@ -2456,7 +2456,7 @@ loc_11D4: call loc_145C ret ;---------------------------------------------------------------------------- -loc_11E7: ld a,6 +loc_11E7: ld a,6 call loc_145C ld b,0Ah call sub_DE7 @@ -2464,7 +2464,7 @@ loc_11E7: ld a,6 ;---------------------------------------------------------------------------- -loc_11F3: ld a,6 +loc_11F3: ld a,6 call loc_145C xor a ret @@ -2472,8 +2472,8 @@ loc_11F3: ld a,6 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_11FA: ld a,0FFh - ld (byte_2D02),a +sub_11FA: ld a,0FFh + ld (byte_2D02),a ld (byte_2CA3),a xor a ld (byte_2D07),a @@ -2485,13 +2485,13 @@ sub_11FA: ld a,0FFh ld a,43h jr z,loc_121A ld a,15h -loc_121A: call loc_145C -loc_121D: ld a,(byte_2D07) +loc_121A: call loc_145C +loc_121D: ld a,(byte_2D07) or a ld b,82h jr z,loc_1227 ld b,32h -loc_1227: call sub_1289 +loc_1227: call sub_1289 jr c,loc_125A push af call sub_50B @@ -2511,12 +2511,12 @@ loc_1227: call sub_1289 call sub_D30 jr c,loc_1285 -loc_1250: call sub_FC9 +loc_1250: call sub_FC9 ld a,6 call loc_145C jr loc_121D -loc_125A: cp 0F6h +loc_125A: cp 0F6h jr nz,loc_126D call sub_D0E jr c,loc_1285 @@ -2528,8 +2528,8 @@ loc_125A: cp 0F6h ;---------------------------------------------------------------------------- -loc_126D: cp 0FFh - jr nz,loc_1285 +loc_126D: cp 0FFh + jr nz,loc_1285 ld a,(byte_2D02) cp 0FFh jr nz,loc_1285 @@ -2540,20 +2540,20 @@ loc_126D: cp 0FFh ld (byte_2C9E),a jp sub_11FA -loc_1285: ld a,0FFh - scf +loc_1285: ld a,0FFh + scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1289: ld a,b - ld (byte_2D03),a +sub_1289: ld a,b + ld (byte_2D03),a xor a ld (byte_2D04),a ld a,0 ld (byte_2D09),a -loc_1296: ld a,(byte_2D03) +loc_1296: ld a,(byte_2D03) ld b,a call sub_DE7 ld (byte_2D08),a @@ -2594,48 +2594,48 @@ smod_b_12D9: .equ $+1 call sub_8A0 ld ix,(word_2CED) loc_12E6: LD B,0AH - PUSH IX - CALL sub_DE7 - POP IX - LD (byte_2D08),A - JP C,loc_137A - LD (IX),A - INC IX - CALL sub_7DD - CALL sub_885 - LD BC,(word_2CEF) - INC BC - LD (word_2CEF),BC - LD DE,(word_2D05) - DEC DE - LD (word_2D05),DE - LD A,D - OR E - JR NZ,loc_12E6 - LD (word_2CED),IX - LD B,0AH - CALL sub_DE7 - LD (byte_2D08),A - JP C,loc_137A - LD A,(byte_2C9E) - CP 10H - JR NZ,loc_1352 - LD A,(byte_2D08) - CALL sub_885 - LD B,0AH - CALL sub_DE7 - LD (byte_2D08),A - JP C,loc_137A - CALL sub_885 - LD A,H - OR L - JP NZ,loc_137A -loc_1345: XOR A - LD (byte_2D04),A - LD A,0 - LD (byte_2D02),A - LD A,(smod_b_12D9) - RET + PUSH IX + CALL sub_DE7 + POP IX + LD (byte_2D08),A + JP C,loc_137A + LD (IX),A + INC IX + CALL sub_7DD + CALL sub_885 + LD BC,(word_2CEF) + INC BC + LD (word_2CEF),BC + LD DE,(word_2D05) + DEC DE + LD (word_2D05),DE + LD A,D + OR E + JR NZ,loc_12E6 + LD (word_2CED),IX + LD B,0AH + CALL sub_DE7 + LD (byte_2D08),A + JP C,loc_137A + LD A,(byte_2C9E) + CP 10H + JR NZ,loc_1352 + LD A,(byte_2D08) + CALL sub_885 + LD B,0AH + CALL sub_DE7 + LD (byte_2D08),A + JP C,loc_137A + CALL sub_885 + LD A,H + OR L + JP NZ,loc_137A +loc_1345: XOR A + LD (byte_2D04),A + LD A,0 + LD (byte_2D02),A + LD A,(smod_b_12D9) + RET loc_1352: ld a,(byte_2D08) ld l,a @@ -2663,9 +2663,9 @@ loc_1376: ld (hl),a ;---------------------------------------------------------------------------- -loc_137A: ld a,0 +loc_137A: ld a,0 ld (byte_2D09),a -loc_137F: ld b,0Ah +loc_137F: ld b,0Ah call sub_DE7 jr nc,loc_137F ld a,(byte_2D02) @@ -2678,11 +2678,11 @@ loc_137F: ld b,0Ah ld a,15h jr loc_13A1 -loc_139A: ld a,28h +loc_139A: ld a,28h ld (byte_2D03),a ld a,15h -loc_13A1: call loc_145C -loc_13A4: call sub_FC9 +loc_13A1: call loc_145C +loc_13A4: call sub_FC9 ld hl,byte_2D04 inc (hl) call sub_482 @@ -2696,7 +2696,7 @@ loc_13A4: call sub_FC9 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_13BA: ld (byte_2CE8),a +sub_13BA: ld (byte_2CE8),a ld hl,loc_1403 call sub_DDC call sub_8A0 @@ -2705,7 +2705,7 @@ sub_13BA: ld (byte_2CE8),a call sub_1418 ld hl,loc_2CE0 ld b,4 -loc_13D4: push bc +loc_13D4: push bc ld a,(hl) inc hl push hl @@ -2741,8 +2741,8 @@ loc_1408: .text "0123456789abcdef" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1418: push af - ld hl,loc_1408 +sub_1418: push af + ld hl,loc_1408 ld b,0 rra rra @@ -2817,7 +2817,7 @@ loc_1480: .dw loc_1450 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1492: push bc +sub_1492: push bc ld (byte_2D0A),a call sub_171E push de @@ -2833,7 +2833,7 @@ sub_1492: push bc ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_14A7: xor a +sub_14A7: xor a ld (de),a ld (byte_2D0D),a ld (byte_2D0C),a @@ -2845,7 +2845,7 @@ sub_14A7: xor a cp 3Ah jr nz,loc_14BD inc hl -loc_14BD: ld b,8 +loc_14BD: ld b,8 call sub_1522 pop de ld a,(hl) @@ -2858,14 +2858,14 @@ loc_14BD: ld b,8 jr z,loc_14D7 call sub_154A jr z,loc_14E5 -loc_14D7: call sub_159D +loc_14D7: call sub_159D jr z,loc_14E5 ld a,(byte_2D0A) or a jr nz,loc_14E5 call sub_154A loc_14E5: ld a,(byte_2D0D) - ld (de),a + ld (de),a push de inc de call sub_1632 @@ -2878,7 +2878,7 @@ loc_14E5: ld a,(byte_2D0D) pop de ld a,(hl) ld (byte_2D0B),a -loc_14FE: ld a,(byte_2D0B) +loc_14FE: ld a,(byte_2D0B) ex de,hl ld bc,8 add hl,bc @@ -2890,21 +2890,21 @@ loc_14FE: ld a,(byte_2D0B) push de call sub_1522 pop de -loc_1513: ex de,hl +loc_1513: ex de,hl ld bc,5 add hl,bc ex de,hl ld a,(byte_2D0E) ld (de),a -loc_151D: ld a,(byte_2D0C) +loc_151D: ld a,(byte_2D0C) or a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1522: call sub_15D9 - ret z +sub_1522: call sub_15D9 + ret z inc de cp 2Ah jr nz,loc_1533 @@ -2912,12 +2912,12 @@ sub_1522: call sub_15D9 ld (de),a call sub_1543 jr loc_153A -loc_1533: ld (de),a +loc_1533: ld (de),a inc hl cp 3Fh call z,sub_1543 -loc_153A: djnz sub_1522 -loc_153C: call sub_15D9 +loc_153A: djnz sub_1522 +loc_153C: call sub_15D9 ret z inc hl jr loc_153C @@ -2925,8 +2925,8 @@ loc_153C: call sub_15D9 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1543: push hl - ld hl,byte_2D0C +sub_1543: push hl + ld hl,byte_2D0C inc (hl) pop hl ret @@ -2934,8 +2934,8 @@ sub_1543: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_154A: push hl - push de +sub_154A: push hl + push de call sub_1552 pop de pop hl @@ -2944,7 +2944,7 @@ sub_154A: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1552: call sub_164A +sub_1552: call sub_164A jr z,loc_15CA ex de,hl inc hl @@ -2964,9 +2964,9 @@ sub_1552: call sub_164A ret z call sub_1625 ret c -loc_1574: push hl +loc_1574: push hl ld b,2 -loc_1577: ld a,(hl) +loc_1577: ld a,(hl) cp 20h jr z,loc_1589 call sub_1625 @@ -2976,7 +2976,7 @@ loc_1577: ld a,(hl) ld a,(hl) cp 20h jr nz,loc_159A -loc_1589: pop hl +loc_1589: pop hl call sub_165A ld c,a inc c @@ -2987,13 +2987,13 @@ loc_1589: pop hl xor a ret -loc_159A: pop hl - jr loc_15CA +loc_159A: pop hl + jr loc_15CA ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_159D: push hl +sub_159D: push hl push de call sub_15A5 pop de @@ -3003,11 +3003,11 @@ sub_159D: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15A5: call sub_1662 +sub_15A5: call sub_1662 jr z,loc_15CA ex de,hl inc hl -loc_15AC: ld a,(de) +loc_15AC: ld a,(de) or a jr z,loc_15CA inc de @@ -3015,13 +3015,13 @@ loc_15AC: ld a,(de) push hl push de ld b,8 -loc_15B6: ld a,(de) +loc_15B6: ld a,(de) cp (hl) jr nz,loc_15BE inc hl inc de djnz loc_15B6 -loc_15BE: pop de +loc_15BE: pop de pop hl jr z,loc_15CD ex de,hl @@ -3030,10 +3030,10 @@ loc_15BE: pop de ex de,hl jr loc_15AC -loc_15CA: or 0FFh - ret +loc_15CA: or 0FFh + ret -loc_15CD: dec de +loc_15CD: dec de ld a,(de) ld (byte_2D0E),a dec de @@ -3045,7 +3045,7 @@ loc_15CD: dec de ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15D9: ld a,(hl) +sub_15D9: ld a,(hl) cp 21h jr c,loc_15F8 cp 3Dh @@ -3067,15 +3067,15 @@ sub_15D9: ld a,(hl) cp 3Bh ret -loc_15F8: xor a +loc_15F8: xor a ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_15FA: push bc +sub_15FA: push bc ld bc,1100h -loc_15FE: ld a,(hl) +loc_15FE: ld a,(hl) call sub_15D9 jr z,loc_161E inc hl @@ -3095,20 +3095,20 @@ loc_15FE: ld a,(hl) jr c,loc_1622 ld c,a djnz loc_15FE -loc_161E: ld a,c +loc_161E: ld a,c pop bc or a ret ; -loc_1622: pop bc - scf +loc_1622: pop bc + scf ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1625: sub 30h - ret c +sub_1625: sub 30h + ret c cp 0Ah ccf ret @@ -3116,11 +3116,11 @@ sub_1625: sub 30h ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_162C: xor a +sub_162C: xor a ld (de),a inc de call sub_1632 -sub_1632: ld b,0Bh +sub_1632: ld b,0Bh ld a,20h call sub_1645 xor a @@ -3132,15 +3132,15 @@ sub_1632: ld b,0Bh inc de ld b,3 xor a -sub_1645: ld (de),a - inc de +sub_1645: ld (de),a + inc de djnz sub_1645 ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_164A: push hl +sub_164A: push hl push de ld de,2Eh jp loc_1669 @@ -3148,7 +3148,7 @@ sub_164A: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1652: push hl +sub_1652: push hl push de ld de,2Ch jp loc_1669 @@ -3156,7 +3156,7 @@ sub_1652: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_165A: push hl +sub_165A: push hl push de ld de,2Dh jp loc_1669 @@ -3164,18 +3164,18 @@ sub_165A: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1662: push de +sub_1662: push de ld de,15h jp loc_1676 ;---------------------------------------------------------------------------- -loc_1669: ld hl,(word_2D0F) - ld a,h +loc_1669: ld hl,(word_2D0F) + ld a,h or l jr z,loc_1671 add hl,de -loc_1671: ld a,(hl) +loc_1671: ld a,(hl) pop de pop hl or a @@ -3183,7 +3183,7 @@ loc_1671: ld a,(hl) ;---------------------------------------------------------------------------- -loc_1676: ld hl,(word_2D0F) +loc_1676: ld hl,(word_2D0F) add hl,de ld e,(hl) inc hl @@ -3202,8 +3202,8 @@ loc_1683: ld (word_2D0F),hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1687: push af - push de +sub_1687: push af + push de push hl ld c,19h call sub_16AF @@ -3222,7 +3222,7 @@ sub_1687: push af ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_169E: ld a,11h +sub_169E: ld a,11h call sub_16B8 inc a ret @@ -3230,20 +3230,20 @@ sub_169E: ld a,11h ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16A5: ld a,1 +sub_16A5: ld a,1 jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16AA: ld a,0Bh +sub_16AA: ld a,0Bh jp sub_16B8 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16AF: push de - push bc +sub_16AF: push de + push bc call bdos pop bc pop de @@ -3253,8 +3253,8 @@ sub_16AF: push de ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16B8: push hl - push de +sub_16B8: push hl + push de push bc ld c,a call bdos @@ -3267,7 +3267,7 @@ sub_16B8: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16C4: push bc +sub_16C4: push bc push hl push de push af @@ -3286,25 +3286,25 @@ sub_16C4: push bc ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16DA: ld a,(de) - and 7Fh +sub_16DA: ld a,(de) + and 7Fh cp 20h jr z,loc_16E3 ld (hl),a inc hl -loc_16E3: inc de +loc_16E3: inc de djnz sub_16DA ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_16E7: push bc +sub_16E7: push bc ld b,0 jp loc_16F0 sub_16ED: PUSH BC LD B,0FFH -loc_16F0: push hl +loc_16F0: push hl push af ld h,64h call sub_1703 @@ -3319,8 +3319,8 @@ loc_16F0: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1703: ld l, 0FFh -loc_1705: sub h +sub_1703: ld l, 0FFh +loc_1705: sub h inc l jr nc,loc_1705 add a,h @@ -3334,9 +3334,9 @@ loc_1705: sub h ld a,20h jr z,loc_171A xor a -sub_1717: add a,30h +sub_1717: add a,30h ld b,a -loc_171A: ld (de),a +loc_171A: ld (de),a inc de ld a,h ret @@ -3344,7 +3344,7 @@ loc_171A: ld (de),a ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_171E: push af +sub_171E: push af push hl loc_1720: ld a,(hl) or a @@ -3360,7 +3360,7 @@ loc_172B: pop hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_172E: push bc +sub_172E: push bc push de push hl ld c,a @@ -3369,7 +3369,7 @@ sub_172E: push bc push hl inc hl inc hl -loc_1737: call sub_176B +loc_1737: call sub_176B or a jr z,loc_1760 ld (hl),e @@ -3387,16 +3387,16 @@ loc_1737: call sub_176B xor a ld (de),a inc de -loc_1751: ld a,b +loc_1751: ld a,b or a jr nz,loc_1737 -loc_1755: call sub_1779 +loc_1755: call sub_1779 call sub_176B or a jr z,loc_1760 or 0FFh -loc_1760: pop hl - push af +loc_1760: pop hl + push af ld a,(hl) sub b inc hl @@ -3410,8 +3410,8 @@ loc_1760: pop hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_176B: ld a,(de) - and 7Fh +sub_176B: ld a,(de) + and 7Fh inc de cp 20h jr z,sub_176B @@ -3423,8 +3423,8 @@ sub_176B: ld a,(de) ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1779: ld a,(de) - and 7Fh +sub_1779: ld a,(de) + and 7Fh ret z cp 20h ret z @@ -3436,7 +3436,7 @@ sub_1779: ld a,(de) ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1786: push hl +sub_1786: push hl call sub_178C pop hl ret @@ -3444,8 +3444,8 @@ sub_1786: push hl ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_178C: push bc -loc_178D: ld (hl),a +sub_178C: push bc +loc_178D: ld (hl),a inc hl djnz loc_178D pop bc @@ -3454,7 +3454,7 @@ loc_178D: ld (hl),a ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_1793: and 7Fh +sub_1793: and 7Fh cp 61h ret c cp 7Bh @@ -3463,10 +3463,10 @@ sub_1793: and 7Fh ret ;---------------------------------------------------------------------------- -word_179E: .dw loc_end -byte_17A0: .db 0 -byte_17A1: .db 0 -word_17A2: .db 0 +word_179E: .dw loc_end +byte_17A0: .db 0 +byte_17A1: .db 0 +word_17A2: .db 0 byte_17A3: .db 0 .fill $1800-$,0 .ds 8 From f7027d3bbc8bc8de0018e8c5244d1ca9130505a4 Mon Sep 17 00:00:00 2001 From: b1ackmai1er Date: Sun, 31 Oct 2021 23:06:09 +0800 Subject: [PATCH 8/9] Update rz.asm --- Source/Apps/Test/rzsz/rz.asm | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index b1dee9c5..6835a2fb 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -503,7 +503,7 @@ sub_588: or a ;---------------------------------------------------------------------------- -loc_5A9: ld hl,587h +loc_5A9: ld hl,byte_587 or (hl) ret nz ld hl,(word_1808) @@ -1343,9 +1343,9 @@ loc_A43: ld de,loc_2811 ld c,23h call sub_471 ret c - ld hl,17C7h + ld hl,byte_17C7 ld (hl),0 - ld hl,17C4h + ld hl,loc_17C4 call sub_729 ld de,loc_2CAB call sub_692 @@ -1402,7 +1402,7 @@ loc_AC8: ld (byte_280E),a loc_ACF: xor a ld (byte_2D04),a ld a,4 - ld hl,8AFh + ld hl,byte_8AF cp (hl) ld a,0 ret nz @@ -1419,11 +1419,11 @@ loc_ACF: xor a loc_AF3: push bc ld ix,loc_2CE0 - ld (ix+3), 20h - ld (ix+2), 0 + ld (ix+3),20h + ld (ix+2),0 ld hl,(word_2CEB) - ld (ix+0), l - ld (ix+1), h + ld (ix+0),l + ld (ix+1),h smod_b_B0A: .equ $+1 ld a,1 ; self modifying value CALL sub_13BA @@ -1791,7 +1791,7 @@ sub_D9B: LD HL,loc_2CE0 LD B,4 loc_0DA3: PUSH BC LD A,8 - CALL 13BAH + CALL sub_13BA LD B,64H CALL sub_DE7 JR C,loc_DB8 @@ -2576,10 +2576,10 @@ loc_12AE: .db 2 ; .dw loc_12BA loc_12BA: LD HL,400H - JR 12C2H + JR loc_12C2 loc_12BF: LD HL,80H - LD (word_2D05),HL +loc_12C2: LD (word_2D05),HL ld b,0ah call sub_DE7 ld (smod_b_12D9),A @@ -3074,7 +3074,7 @@ loc_15F8: xor a ; S u b r o u t i n e sub_15FA: push bc - ld bc,1100h + ld bc,1100h ; ? loc_15FE: ld a,(hl) call sub_15D9 jr z,loc_161E @@ -3196,6 +3196,7 @@ loc_1676: ld hl,(word_2D0F) ret ;---------------------------------------------------------------------------- + loc_1683: ld (word_2D0F),hl ret @@ -3468,6 +3469,11 @@ byte_17A0: .db 0 byte_17A1: .db 0 word_17A2: .db 0 byte_17A3: .db 0 + .fill $20,0 +loc_17C4: .db 0 + .db 0 + .db 0 +byte_17C7: .db 0 .fill $1800-$,0 .ds 8 nstack: From 6a69f3920faf1723ecd69f52a484b21d9abe2b00 Mon Sep 17 00:00:00 2001 From: Wayne Warthen Date: Sun, 31 Oct 2021 12:26:46 -0700 Subject: [PATCH 9/9] Build Tweaks - Update TastyBasic to build correctly under MacOS. - Updated build to integrate with RomWBW build system. --- Source/Images/d_bp.txt | 1 + Source/Images/d_cpm3.txt | 1 + Source/Images/d_nzcom.txt | 1 + Source/Images/d_zpm3.txt | 1 + Source/TastyBasic/Makefile | 12 +++------- Source/TastyBasic/src/Makefile | 44 ++++++++++------------------------ Source/ver.inc | 2 +- Source/ver.lib | 2 +- 8 files changed, 21 insertions(+), 43 deletions(-) diff --git a/Source/Images/d_bp.txt b/Source/Images/d_bp.txt index e6ce4a2b..dd4f248c 100644 --- a/Source/Images/d_bp.txt +++ b/Source/Images/d_bp.txt @@ -21,6 +21,7 @@ ../../Binary/Apps/syscopy.com 15: ../../Binary/Apps/sysgen.com 15: ../../Binary/Apps/talk.com 15: +../../Binary/Apps/tbasic.com 0: ../../Binary/Apps/timer.com 15: ../../Binary/Apps/tune.com 15: ../../Binary/Apps/xm.com 15: diff --git a/Source/Images/d_cpm3.txt b/Source/Images/d_cpm3.txt index 036adcf8..da74a74b 100644 --- a/Source/Images/d_cpm3.txt +++ b/Source/Images/d_cpm3.txt @@ -33,6 +33,7 @@ ../../Binary/Apps/syscopy.com 0: #../../Binary/Apps/sysgen.com 0: #../../Binary/Apps/talk.com 0: +../../Binary/Apps/tbasic.com 0: ../../Binary/Apps/timer.com 0: ../../Binary/Apps/tune.com 0: ../../Binary/Apps/xm.com 0: diff --git a/Source/Images/d_nzcom.txt b/Source/Images/d_nzcom.txt index e9cc1e3f..e0fa9c63 100644 --- a/Source/Images/d_nzcom.txt +++ b/Source/Images/d_nzcom.txt @@ -34,6 +34,7 @@ d_zsdos/u0/*.* 0: ../../Binary/Apps/syscopy.com 0: ../../Binary/Apps/sysgen.com 0: ../../Binary/Apps/talk.com 0: +../../Binary/Apps/tbasic.com 0: ../../Binary/Apps/timer.com 0: ../../Binary/Apps/tune.com 0: ../../Binary/Apps/xm.com 0: diff --git a/Source/Images/d_zpm3.txt b/Source/Images/d_zpm3.txt index 8bf0ce43..ebb97155 100644 --- a/Source/Images/d_zpm3.txt +++ b/Source/Images/d_zpm3.txt @@ -32,6 +32,7 @@ ../../Binary/Apps/syscopy.com 15: ../../Binary/Apps/sysgen.com 15: ../../Binary/Apps/talk.com 15: +../../Binary/Apps/tbasic.com 0: ../../Binary/Apps/timer.com 15: ../../Binary/Apps/tune.com 15: ../../Binary/Apps/xm.com 15: diff --git a/Source/TastyBasic/Makefile b/Source/TastyBasic/Makefile index 267ad065..fced87a1 100644 --- a/Source/TastyBasic/Makefile +++ b/Source/TastyBasic/Makefile @@ -1,9 +1,3 @@ -SUBDIRS := src -TARGETS := all clobber clean - -$(TARGETS): $(SUBDIRS) - -$(SUBDIRS): - $(MAKE) -C $@ $(MAKECMDGOALS) - -.PHONY: $(TARGETS) $(SUBDIRS) +SUBDIRS = src +TOOLS = ../../Tools +include $(TOOLS)/Makefile.inc diff --git a/Source/TastyBasic/src/Makefile b/Source/TastyBasic/src/Makefile index dbe3fae8..f99949a1 100644 --- a/Source/TastyBasic/src/Makefile +++ b/Source/TastyBasic/src/Makefile @@ -1,36 +1,16 @@ -UNAME := $(shell uname) -# VER := $(shell git describe --tags --abbrev=0) -APPDIR := $(wildcard ../../../Binary/Apps) -BINDIR := ../../../Tools/$(UNAME) +OBJECTS = tastybasic.bin tbasic.com +TOOLS = ../../../Tools +OTHERS = *.com +APPDIR=../../../Binary/Apps + +include $(TOOLS)/Makefile.inc -ROMIMAGE := tastybasic.bin -ROMDEPS := tastybasic.asm romwbwio.asm -CPMCMD := tastybasic.com -CPMDEPS := tastybasic.asm cpmio.asm -CPMAPP := $(APPDIR)/tbasic.com -CPMIMAGE := tastybasic.img +USETASM=1 -export PATH := $(BINDIR):${PATH} +tastybasic.bin: TASMFLAGS=-dROMWBW -all: $(ROMIMAGE) $(CPMCMD) | $(APPDIR) +tastybasic.com: TASMFLAGS=-dCPM -clean: - @rm -f *.lst *.img *.com *.bin - -clobber: clean - @rm -f $(CPMAPP) - -$(ROMIMAGE): $(ROMDEPS) - @uz80as -dROMWBW tastybasic.asm tastybasic.bin tastybasic.bin.lst - -$(CPMIMAGE): $(CPMCMD) - @mkfs.cpm -f wbw_fd144 tastybasic.img - @cpmcp -f wbw_fd144 tastybasic.img tastybasic.com 0:tbasic.com - -$(CPMCMD): $(CPMDEPS) - @uz80as -dCPM tastybasic.asm tastybasic.com tastybasic.com.lst - -$(APPDIR): $(CPMCMD) - @cat $(CPMCMD) > $(CPMAPP) - -.PHONY: clean clobber $(APPDIR) +tbasic.com : tastybasic.com + cp $< $@ + cp $$($(CASEFN) $@) $(APPDIR) \ No newline at end of file diff --git a/Source/ver.inc b/Source/ver.inc index 09a06696..efa020d8 100644 --- a/Source/ver.inc +++ b/Source/ver.inc @@ -2,4 +2,4 @@ #DEFINE RMN 1 #DEFINE RUP 1 #DEFINE RTP 0 -#DEFINE BIOSVER "3.1.1-pre.134" +#DEFINE BIOSVER "3.1.1-pre.135" diff --git a/Source/ver.lib b/Source/ver.lib index b86cd056..a927559d 100644 --- a/Source/ver.lib +++ b/Source/ver.lib @@ -3,5 +3,5 @@ rmn equ 1 rup equ 1 rtp equ 0 biosver macro - db "3.1.1-pre.134" + db "3.1.1-pre.135" endm