diff --git a/Source/Apps/Test/rzsz/rz.asm b/Source/Apps/Test/rzsz/rz.asm index ce598a8b..6835a2fb 100644 --- a/Source/Apps/Test/rzsz/rz.asm +++ b/Source/Apps/Test/rzsz/rz.asm @@ -27,144 +27,131 @@ S_BDOSVER .equ 12 DRV_SET .equ 14 F_USERNUM .equ 32 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 - ld c, C_WRITESTR ;yes - call bdos ;"RZ for ..."; Output string - call sub_0_195 ;print string - ld hl, (word_0_179E) + 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) xor a - ld b, 14h - call sub_0_1786 - ld a, (80h) + ld b,14h + call sub_1786 + ld a,(80h) or a - jr z, loc_0_174 - ld (hl), 2 - ld de, 82h - ex de, hl - ld a, 0FFh - call sub_0_172E + jr z,loc_174 + ld (hl),2 + ld de,82h + ex de,hl + 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) + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl - ld a, (de) + ld a,(de) cp 2Dh - jr nz, loc_0_152 - call sub_0_39A - ld e, (hl) + jr nz,loc_152 + call sub_39A + ld e,(hl) inc hl - ld d, (hl) - ld a, d + ld d,(hl) + ld a,d or e - jr z, loc_0_174 - -loc_0_152: ; CODE XREF: start+46j - ld hl, 17A3h - ex de, hl - call sub_0_1492 - ld hl, byte_0_17A3 + jr z,loc_174 +loc_152: ld hl,byte_17A3 + ex de,hl + call sub_1492 + ld hl,byte_17A3 xor a or (hl) - jr nz, loc_0_164 - ld a, (byte_0_17A1) - ld (hl), a - -loc_0_164: ; CODE XREF: start+5Ej - ld bc, 0Dh - add hl, bc + jr nz,loc_164 + ld a,(byte_17A1) + ld (hl),a +loc_164: ld bc,0Dh + add hl,bc dec de - ldi - ld de, 17A3h - 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 - 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, 17A3h - call sub_0_1B0 + ldi + ld de,byte_17A3 + call sub_1B0 + call sub_3C9 +loc_174: ld de,str_sxfr + ld c,C_WRITESTR + call bdos + call sub_3EF + call sub_8D1 + call sub_451 +smod_b_186: .equ $+1 +loc_185: ld bc,0 + 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) - ld b, a - rlca - rlca - rlca - rlca +sub_195: ld a,(4) + ld b,a + rlca + rlca + rlca + rlca and 0Fh - ld (byte_0_17A0), a - ld a, b + 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 - ret -; End of function sub_0_195 - + ld (byte_17A1),a + ld hl,(byte_17A0) + ld (smod_b_186),hl + ret ;---------------------------------------------------------------------------- - ; 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) push af dec de - ld a, (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 -; End of function sub_0_1B0 ;---------------------------------------------------------------------------- -err_vern: ld de, str_cpm3 ; Display version - ld c, C_WRITESTR ; error and exit +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 - ld c, C_WRITESTR ; and exit to +err_exit: ld de,str_info ; Display usage + 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$" @@ -177,334 +164,303 @@ 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$" ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_39A: ; CODE XREF: start+48p - push hl +sub_39A: push hl push de - -loc_0_39C: ; CODE XREF: sub_0_39A+12j - inc de - ld a, (de) +loc_39C: inc de + ld a,(de) or a - jr z, loc_0_3AE - ld hl,loc_0_3B1 - ld bc, 8 - cpir - call z, sub_0_67F - jr loc_0_39C -;---------------------------------------------------------------------------- - -loc_0_3AE: ; CODE XREF: sub_0_39A+5j - pop de + jr z,loc_3AE + ld hl,stab_3B1 + ld bc,8 + cpir + call z,sub_67F + jr loc_39C + +loc_3AE: pop de pop hl - ret -; End of function sub_0_39A + ret ;---------------------------------------------------------------------------- -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 +stab_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 + 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 - ld c, S_SYSVAR - ld de, 45Fh +sub_3EF: xor a + ld (byte_460),a + ld (byte_464),a + ld c,S_SYSVAR + ld de,byte_45F call bdos ; Access the system variables - ld a, h - cpl - ld h, a - ld a, l - cpl + ld a,h + cpl + ld h,a + ld a,l + cpl ld l, a - ld (word_0_46F), hl - ld c, S_SYSVAR - ld de, 463h + ld (word_46F),hl + ld c,S_SYSVAR + ld de,byte_463 call bdos ; Access the system variables - ld (word_0_46B), hl - ld de, (word_0_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_0_465), hl - ld c, S_SYSVAR - ld de, 467h + ld (word_465),hl + ld c,S_SYSVAR + ld de,byte_467 call bdos ; Access the system variables - ld (word_0_46D), hl - ld de, (word_0_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_0_469), hl - -loc_0_437: ; CODE XREF: sub_0_451+Cj - ld a, 0FEh - ld (byte_0_464), a - ld de, 463h - ld c, S_SYSVAR + ld (word_469),hl +loc_437: 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 c, S_SYSVAR + 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 - ;---------------------------------------------------------------------------- - ; 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: ld hl,(word_46B) + ld (word_465),hl + ld hl,(word_46D) + ld (word_469),hl + jr loc_437 -;---------------------------------------------------------------------------- - .db 28h ; ( -byte_0_460: .db 0 ; DATA XREF: sub_0_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_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_0_471: ; CODE XREF: sub_0_961+92p - ; seg000:0A29p ... - call bdos +sub_471: call bdos or a - ret -; End of function sub_0_471 - + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_476: ; CODE XREF: sub_0_4A4+37p - ; sub_0_961+61p - push af - -loc_0_477: ; CODE XREF: sub_0_476+8j - push bc +sub_476: push af +loc_477: push bc xor a - ld b, a - ld c, a - cpir + 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 - + ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_482: ; CODE XREF: sub_0_1289+122p - ld a, (byte_0_2D04) - ld de, text495h ; Update error string with errors - call sub_0_16E7 - ld de, text493h - ld c, C_WRITESTR +sub_482: ld a,(byte_2D04) + 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_0_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_0_4A4: ; CODE XREF: sub_0_961+82p - ld de, 17A3h - ld hl, 4F8h - ld (hl), 3Ah +sub_4A4: ld de,byte_17A3 + ld hl,byte_4F8 + ld (hl),3Ah inc hl xor a - ld b, 0Dh - call sub_0_1786 + ld b,0Dh + call sub_1786 inc de - call sub_0_16C4 + call sub_16C4 dec de - ld a, (de) - add a, 40h - ld (byte_0_4F4), a + ld a,(de) + add a,40h + ld (byte_4F4),a dec de - ld a, (de) - ld de, 4F5h - call sub_0_16E7 - ld a, 24h - ld (byte_0_507), a - ld de, text4F2h - ld c, C_WRITESTR + ld a,(de) + ld de,byte_4F5 + call sub_16E7 + ld a,24h + ld (byte_507),a + ld de,text4F2h + ld c,C_WRITESTR call bdos ; Output string - ld hl, (2CD4h) - ld a, h + ld hl,(byte_2CD4) + ld a,h or l ret z - ld b, 1 - call sub_0_476 + ld b,1 + call sub_476 dec hl - ld (hl), 24h - ld de, (2CD4h) - ld c, C_WRITESTR + ld (hl),24h + ld de,(byte_2CD4) + ld c,C_WRITESTR call bdos ; Output string - ld de, text508h - ld c, C_WRITESTR + ld de,text508h + ld c,C_WRITESTR jp 5 ; Output string -; End of function sub_0_4A4 ;---------------------------------------------------------------------------- + text4F2h: .text "\r\n" -byte_0_4F4: .db 0 ; DATA XREF: sub_0_4A4+17w - .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 0 ; - .db 0 ; - .db 0 ; - .db 20h ; -byte_0_507: .db 0 ; DATA XREF: sub_0_4A4+24w +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_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 - - ld hl, 2CABh - ld de, 51Fh - call loc_0_774 - ld (hl), 24h - ld de, text51Eh - ld c, C_WRITESTR +sub_50B: ld hl,loc_2CAB + 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_0_50B ;---------------------------------------------------------------------------- text51Eh: - .db 0Dh ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - .db 0 ; - - ld hl,str_busy + .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 +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 - jr sub_0_555 +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_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 ;---------------------------------------------------------------------------- @@ -513,271 +469,226 @@ 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_0_57F: ; CODE XREF: sub_0_DE7+Dp - ld hl,byte_0_586 - ld (hl), a +sub_57F: ld hl,byte_586 + ld (hl),a inc hl - ld (hl), c - ret -; End of function sub_0_57F + ld (hl),c + ret ;---------------------------------------------------------------------------- -byte_0_586: .db 0 ; -byte_0_587: .db 0 ; DATA XREF: sub_0_5B4r -;---------------------------------------------------------------------------- +byte_586: .db 0 +byte_587: .db 0 +;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_588: ; CODE XREF: sub_0_588+1Fj - ; sub_0_5D4+4p ... - or a - ld hl, (word_0_1808) - ld de, 1000h - sbc hl, de - jr z, loc_0_5A9 - ld c, A_STATIN +sub_588: or a + ld hl,(word_1808) + ld de,1000h + sbc hl,de + jr z,loc_5A9 + ld c,A_STATIN call bdos ; Auxiliary Input status or a - jr z, loc_0_5A9 - ld c, A_READ + 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 + ld c,a + ld hl,word_1808 + call sub_61C + jr sub_588 + ;---------------------------------------------------------------------------- -loc_0_5A9: ; CODE XREF: sub_0_588+9j sub_0_588+11j - ld hl, 587h +loc_5A9: ld hl,byte_587 or (hl) ret nz - ld hl, (1808h) - ld a, h + ld hl,(word_1808) + ld a,h or l - ret -; End of function sub_0_588 - + ret ;---------------------------------------------------------------------------- - ; 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: ld a,(byte_587) or a - ld hl, 1808h - jp z, loc_0_5F7 + 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_0_5B4 + ld a,(hl) + ret ;---------------------------------------------------------------------------- -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 call bdos ; BDOS function 8 (A_STATOUT) - Auxiliary Output status or a - ret -; End of function sub_0_5CD + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_5D4: ; CODE XREF: sub_0_DE7+11p - push bc - ld b, 5Fh - -loc_0_5D7: ; CODE XREF: sub_0_5D4+Dj +sub_5D4: push bc - call sub_0_588 + ld b,5Fh +loc_5D7: push bc + call sub_588 pop bc - jr nz, loc_0_5E6 - call sub_0_5EB - djnz loc_0_5D7 - call sub_0_588 - -loc_0_5E6: ; CODE XREF: sub_0_5D4+8j - call nz, sub_0_5B4 + jr nz,loc_5E6 + call sub_5EB + djnz loc_5D7 + call sub_588 +loc_5E6: call nz,sub_5B4 pop bc - ret -; End of function sub_0_5D4 - + ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_5EB: ; CODE XREF: sub_0_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 +sub_5EB: push bc ; Delay + ld a,4 + ld b,0 +loc_5F0: djnz loc_5F0 dec a - jr nz, loc_0_5F0 + jr nz,loc_5F0 pop bc - ret -; End of function sub_0_5EB + ret ;---------------------------------------------------------------------------- -loc_0_5F7: ; CODE XREF: sub_0_5B4+7j - ld e, (hl) +loc_5F7: 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 + ld a,(hl) + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_61C: ; CODE XREF: sub_0_588+1Cp - or a +sub_61C: 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 - ret -; End of function sub_0_61C - + ld (hl),c + ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_643: ; CODE XREF: sub_0_961+54p - ; sub_0_11FA+69p - ld hl, 17A2h - ld b, 25h - jr loc_0_650 -; End of function sub_0_643 - +sub_643: ld hl,word_17A2 + ld b,25h + jr loc_650 ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_64A: ; CODE XREF: sub_0_961+9Ep - ; seg000:0A63p - ld b, 3 - jr loc_0_650 -; End of function sub_0_64A - +sub_64A: ld b,3 + jr loc_650 ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_64E: ; CODE XREF: sub_0_8D1+Cp sub_0_BD3+2Fp - ld b, 6 - -loc_0_650: ; CODE XREF: sub_0_643+5j sub_0_64A+2j - xor a - jp sub_0_1786 -; End of function sub_0_64E - +sub_64E: ld b,6 +loc_650: xor a + jp sub_1786 ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_654: ; CODE XREF: seg000:0AAEp - xor a +sub_654: xor a or (hl) ret z 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 - ld a, (hl) + adc hl,de + ld a,(hl) ret nc - ccf - ret -; End of function sub_0_654 + ccf + ret ;---------------------------------------------------------------------------- -sub_0_669: LD A,80H +sub_669: LD A,80H SUB (HL) RET Z INC (HL) @@ -797,100 +708,92 @@ sub_0_669: LD A,80H RET ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_67F: ; CODE XREF: sub_0_39A+Fp sub_0_BD3+42j - - add hl, bc +sub_67F: 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_0_67F ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_688: ; CODE XREF: seg000:0726p sub_0_BD3+13p - - xor a +sub_688: xor a push bc push de push hl - ld (hl), a - ld d, h - ld e, l + ld (hl),a + ld d,h + ld e,l inc de - jr loc_0_697 -; End of function sub_0_688 + jr loc_697 ;---------------------------------------------------------------------------- ; 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 push de push hl - ldi -loc_0_697: ldi ; CODE XREF: sub_0_688+8j - ldi - ldi + ldi +loc_697: ldi + ldi + ldi pop hl pop de pop bc - ret - -;---------------------------------------------------------------------------- - -loc_0_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. ? - XOR (IX+3) ;unref. ? -loc_0_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. ? - SCF ;unref. ? - JR loc_0_6B3 ;unref. ? - -loc_0_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. ? - SBC A,(HL) ;unref. ? - INC DE ;unref. ? - INC HL ;unref. ? - DJNZ loc_0_6C9 ;unref. ? - POP HL ;unref. ? - POP DE ;unref. ? - POP BC ;unref. ? - RET ;unref. ? - -loc_0_6D3: PUSH BC + 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_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 + +sub_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,307 +801,299 @@ 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 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) - ld (bc), a + ld a,4 +loc_6EB: ex af, af' + 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 - ret + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_6FA: push bc ; CODE XREF: seg000:0799p +sub_6FA: push bc push de push hl - ex de, 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) - ld (bc), a + ld a,4 +loc_702: ex af, af' + 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 pop bc - ret + ret ;---------------------------------------------------------------------------- -loc_0_712: PUSH BC - PUSH HL - LD A,1 - ADD A,(HL) - LD (HL),A - JR NC,loc_0_723 - LD B,3 -loc_0_71C: INC HL - LD A,0 - ADC A,(HL) - LD (HL),A - DJNZ loc_0_71C -loc_0_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 ;---------------------------------------------------------------------------- -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 +sub_729: push bc 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 - ld (hl), a - djnz loc_0_731 + ld (hl),a + ld b,3 +loc_731: inc hl + ld a,(hl) + sbc a,0 + ld (hl),a + djnz loc_731 pop hl pop bc - ret - -;---------------------------------------------------------------------------- - -loc_0_73B: PUSH BC - PUSH DE - PUSH HL - EX DE,HL - LD A,004H -loc_0_741: PUSH AF - LD A,(DE) - AND (HL) - LD (BC),A - INC BC - INC DE - INC HL - POP AF - DEC A - JR NZ,loc_0_741 - POP HL - POP DE - POP BC - RET - -;---------------------------------------------------------------------------- - -loc_0_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_0_774: ld (smod_w_7BF), de; CODE XREF: sub_0_50B+6p - ld de, 2891h - call sub_0_692 - ld c,+(loc_0_774-loc_0_750)/4 - ld de,loc_0_750-4 + 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 + +loc_774: ld (smod_w_7BF),de + 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 - 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 -loc_0_792: push bc ; CODE XREF: seg000:07B1j - ld hl, 2891h - ld bc, 2895h - call sub_0_6FA + ld b,0Ah +loc_792: push bc + ld hl,byte_2891 + ld bc,loc_2895 + 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 + ld (smod_b_7B4),a + ld de,byte_2891 + ld hl,loc_2895 + 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 + 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 RET - PUSH AF +sub_7DD: PUSH AF smod_b_7DF: .EQU $+1 ADD A,0 LD (smod_b_7DF),A POP AF RET +loc_7E5: .db 20h + .db 83h + .db 0B8h + .db 0EDh -loc_0_7E5: .db 20h ; - .db 83h ; ? - .db 0B8h ; ¸ - .db 0EDh ; í - .db 0E3h ; ã - .db 20h ; - .db 0BBh ; » - .db 0DEh ; Þ +loc_7E9: .db 0E3h + .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 - 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 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 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_0_825: ; CODE XREF: sub_0_8D1+Fp - push de +sub_825: push de 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_0_7E5 + ld ix, loc_7E5 xor a - -loc_0_836: ; CODE XREF: sub_0_825+5Bj - push af - ld hl, 0FFFFh - ld de, 0FFFFh +loc_836: 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 + ld b,8 +loc_841: scf rr h rr l rr d rr e - jr nc, loc_0_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 -loc_0_860: djnz loc_0_841 ; CODE XREF: sub_0_825+25j - ld a, h - cpl + ld h,a +loc_860: djnz loc_841 + ld a,h + cpl ld (iy+0), a dec iy - ld a, l - cpl + ld a,l + cpl ld (iy+0), a dec iy - ld a, d - cpl + ld a,d + cpl ld (iy+0), a dec iy - ld a, e - cpl + ld a,e + cpl ld (iy+0), a 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 + ret ;---------------------------------------------------------------------------- - ; CODE XREF: sub_0_13BA+Fp - ; sub_0_13BA+1Ep -loc_0_885: PUSH AF -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 -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,299 +1101,257 @@ 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 - ld h, a +sub_8A0: xor a + ld h,a ld l, a - ld (smod_b_7DF), a - ld (smod_w_887), hl - ld hl, 2899h - jp loc_0_726 + ld (smod_b_7DF),a + ld (smod_w_887),hl + ld hl,loc_2899 + 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 +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_0_8B6: xor a ; CODE XREF: sub_0_8D1+20p - ld c, a - ld b, 8 - ld a, h -loc_0_8BB: rlca ; CODE XREF: sub_0_8B6+Cj - set 7, c - jr c, loc_0_8C4 +sub_8B6: xor a + ld c,a + ld b,8 + ld a,h +loc_8BB: rlca + set 7,c + 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 and c - ld h, a - ld l, 0 - ld (2CEBh), hl + ld h,a + ld l,0 + ld (word_2CEB),hl dec hl - ld (word_0_8B4), hl - ret + 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, 2C9Dh - ld b, 61h - call sub_0_1786 - ld hl, 1808h - call sub_0_64E - call sub_0_825 - ld hl, (word_0_179E) - ld (2CE9h), hl - ld de, (6) - ex de, hl +sub_8D1: xor a + ld hl,byte_2C9D + ld b,61h + call sub_1786 + ld hl,word_1808 + 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) + sbc hl,de + call sub_8B6 + ld a,(byte_8B0) cp 0 - jr z, loc_0_8FD - ld a, 7 -loc_0_8FD: ld (2CA4h), a ; CODE XREF: sub_0_8D1+28j - ld a, 10h - ld (2C9Eh), a - ld a, (byte_0_8AF) + jr z,loc_8FD + ld a,7 +loc_8FD: ld (byte_2CA4),a + ld a,10h + ld (byte_2C9E),a + ld a,(byte_8AF) cp 3 - jr c, loc_0_947 - ld a, 1 - ld (smod_b_B0A), a - call loc_0_ACF - jp c, loc_0_954 + jr c,loc_947 + ld a,1 + ld (smod_b_B0A),a + 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 + jr c,loc_954 + jr locret_953 ;---------------------------------------------------------------------------- -loc_0_92B: ; CODE XREF: sub_0_8D1+47j - ; sub_0_8D1+74j - ld a, 3 - ld (byte_0_8AF), a +loc_92B: ld a,3 + ld (byte_8AF),a 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 -;---------------------------------------------------------------------------- - -loc_0_947: ; CODE XREF: sub_0_8D1+39j - call sub_0_961 - jr c, loc_0_954 - jr z, locret_0_953 - call sub_0_11FA - jr c, loc_0_954 - -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) - cp 0FFh - call z, sub_0_D0E - jr locret_0_953 -; End of function sub_0_8D1 + ld (byte_2D04),a + call sub_11C1 + jr c,loc_954 + call sub_961 + jr c,loc_954 + jr z,locret_953 ; ret z ? + call sub_11FA + jr c,loc_954 + jr loc_92B +;---------------------------------------------------------------------------- + +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 ;---------------------------------------------------------------------------- +loc_954: call sub_DD9 + ld a,(byte_2CA5) + cp 0FFh + call z,sub_D0E + jr locret_953 ; ret ? + +;---------------------------------------------------------------------------- ; 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) - cpl - ld hl, 8B2h +sub_961: ld a,(byte_8B1) + cpl + ld hl,byte_8B2 or (hl) - ld (2CA3h), a - ld a, (2CA4h) + ld (byte_2CA3),a + ld a,(byte_2CA4) or a - jr z, loc_0_975 - ld (2CA1h), a - -loc_0_975: ; CODE XREF: sub_0_961+Fj - ld a, (byte_0_8B2) + jr z,loc_975 + ld (byte_2CA1),a +loc_975: ld a,(byte_8B2) cp 0FFh - jr z, loc_0_988 - ld a, (2CA2h) + jr z,loc_988 + ld a,(byte_2CA2) cp 2 - jr nz, loc_0_988 - ld a, 0 - ld (2CA3h), a - -loc_0_988: ; CODE XREF: sub_0_961+19j - ; sub_0_961+20j - ld a, (2CA2h) + jr nz,loc_988 + ld a,0 + ld (byte_2CA3),a +loc_988: ld a,(byte_2CA2) cp 1 - jr nz, loc_0_994 - ld a, 0FFh - ld (2CA3h), a - -loc_0_994: ; CODE XREF: sub_0_961+2Cj - ld a, (2CA1h) + jr nz,loc_994 + ld a,0FFh + ld (byte_2CA3),a +loc_994: ld a,(byte_2CA1) cp 7 - jr z, loc_0_9AE - ld a, (2CA1h) + jr z,loc_9AE + ld a,(byte_2CA1) cp 3 - jr nz, loc_0_9AE - ld a, (2CA3h) + jr nz,loc_9AE + ld a,(byte_2CA3) cp 0FFh - jr nz, loc_0_9AE - ld a, 7 - ld (2CA1h), a - -loc_0_9AE: ; CODE XREF: sub_0_961+38j - ; sub_0_961+3Fj ... - ld a, (byte_0_8AF) + jr nz,loc_9AE + ld a,7 + ld (byte_2CA1),a +loc_9AE: 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 + scf ret z push hl - ld b, 1 - call sub_0_476 + ld b,1 + call sub_476 dec hl - ld (hl), 20h + ld (hl),20h pop hl - ld de, 2CD0h - ld a, 7 - ld (de), a - ld a, 0FFh - call sub_0_172E - ld hl, (2CD2h) - ld de, 17A3h - 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 - call sub_0_169E - jr nz, loc_0_A11 - ld de, 17A3h - ld c, 16h - call sub_0_471 + ld de,loc_2CD0 + ld a,7 + ld (de),a + 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 + ld de,byte_17A3 + call sub_169E + jr nz,loc_A11 + ld de,byte_17A3 + ld c,16h + call sub_471 ret c - ld a, 0FFh - ld (2CA5h), a - ld hl, 280Eh - call sub_0_64A - ld a, (2CD1h) + 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 -; 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 + jr c,loc_A0D +sub_A09: ld de,(byte_2CD4) +loc_A0D: ld a,1 or a - ret -; End of function sub_0_A09 + ret ;---------------------------------------------------------------------------- -loc_0_A11: ; CODE XREF: sub_0_961+8Bj - call sub_0_A09 - ld a, (byte_0_8AF) +loc_A11: call sub_A09 + ld a,(byte_8AF) cp 4 - jr nz, loc_0_A24 - ld a, (2CA1h) + 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, 17A3h - ld c, 13h - call sub_0_471 - jr nc, loc_0_9E3 +loc_A24: ld de,byte_17A3 + ld c,13h + call sub_471 + jr nc,loc_9E3 +loc_A2E: call sub_552 + ld a,5 + scf + ret -loc_0_A2E: ; CODE XREF: seg000:0A22j - call sub_0_552 - ld a, 5 - scf - ret ;---------------------------------------------------------------------------- -loc_0_A35: ; CODE XREF: seg000:0A20j - ld a, (2CA1h) +loc_A35: 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 - -loc_0_A43: ; CODE XREF: seg000:0A3Aj - ld de, 2811h - ld c, 1Ah + jr nz,loc_A24 +loc_A43: ld de,loc_2811 + 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, 17A3h - ld c, 0Fh - call sub_0_471 + ld de,byte_17A3 + ld c,0Fh + call sub_471 ret c - ld a, 0FFh - ld (2CA5h), a - ld hl, 280Eh - call sub_0_64A - ld de, 17A3h - ld c, 23h - call sub_0_471 + ld a,0FFh + ld (byte_2CA5),a + ld hl,byte_280E + call sub_64A + ld de,byte_17A3 + ld c,23h + call sub_471 ret c - ld hl, 17C7h - ld (hl), 0 - ld hl, 17C4h - call sub_0_729 - ld de, 2CABh - call sub_0_692 - ex de, hl - ld b, 7 - -loc_0_A83: ; CODE XREF: seg000:0A90j - push hl + ld hl,byte_17C7 + ld (hl),0 + ld hl,loc_17C4 + call sub_729 + ld de,loc_2CAB + call sub_692 + ex de,hl + ld b,7 +loc_A83: push hl sla (hl) inc hl rl (hl) @@ -1507,352 +1360,335 @@ loc_0_A83: ; CODE XREF: seg000:0A90j inc hl rl (hl) pop hl - djnz loc_0_A83 - ld de, 17A3h - ld c, 21h - call sub_0_471 + djnz loc_A83 + ld de,byte_17A3 + ld c,21h + call sub_471 ret c - ld a, (2CA1h) + ld a,(byte_2CA1) cp 3 - jr z, loc_0_AA6 - ld a, 9 + jr z,loc_AA6 + ld a,9 or a - ret -;---------------------------------------------------------------------------- + ret -loc_0_AA6: ; CODE XREF: seg000:0AA0j - ld a, 80h - ld (280Eh), a +;---------------------------------------------------------------------------- -loc_0_AAB: ; CODE XREF: seg000:0AB5j - ld hl, 280Eh - call sub_0_654 - jr z, loc_0_AC6 +loc_AA6: ld a,80h + ld (byte_280E),a +loc_AAB: 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,(byte_2810) dec a - ld (280Fh), a - ld hl, 280Eh - ld a, 7Fh + ld (byte_280F),a + ld hl,byte_280E + ld a,7Fh sub (hl) - jr loc_0_AC8 -;---------------------------------------------------------------------------- + jr loc_AC8 -loc_0_AC6: ; CODE XREF: seg000:0AB1j - ld a, 80h +;---------------------------------------------------------------------------- -loc_0_AC8: ; CODE XREF: seg000:0AC4j - ld (280Eh), a - ld a, 1 +loc_AC6: ld a,80h +loc_AC8: ld (byte_280E),a + ld a,1 or a - ret + ret + ;---------------------------------------------------------------------------- -loc_0_ACF: ; CODE XREF: sub_0_8D1+40p - ; sub_0_BB4+Ep - xor a - ld (byte_0_2D04), a - ld a, 4 - ld hl, 8AFh +loc_ACF: xor a + ld (byte_2D04),a + ld a,4 + ld hl,byte_8AF cp (hl) - ld a, 0 + ld a,0 ret nz - ld hl, 2CEDh - ld b, 11h + 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,(byte_2CA6) cp 0FFh - ld b, 5 - jr z, loc_0_AF3 - ld b, 0Ah - -loc_0_AF3: push bc - ld ix, 2CE0h ; CODE XREF: seg000:0AEFj - ld (ix+3), 20h - ld (ix+2), 0 - ld hl, (2CEBh) - ld (ix+0), l - ld (ix+1), h -smod_b_B0A: .equ $+1 ; DATA XREF: sub_0_8D1+3Dw + ld b,5 + jr z,loc_AF3 + ld b,0Ah + +loc_AF3: push bc + 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 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 sub_FD1 + 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 - CALL 0D9BH +loc_B39: POP BC + CALL sub_D9B 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,loc_2CA7 LD A,(IX+3) AND 40H - LD (2C9DH),A - CALL 0EC7H + LD (byte_2C9D),A + CALL loc_EC7 CP 0EBH LD A,6 - JR NZ,loc_0_B6A - LD HL,(2CE9H) - LD DE,2CAFH + JR NZ,loc_B6A + LD HL,(word_2CE9) + LD DE,loc_2CAF 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 0FC9H - JP 0B28H + CALL sub_13BA + CALL sub_FC9 + JP loc_B28 -loc_0_B7B: LD HL,2CA7H - LD DE,2C9FH - CALL sub_0_692 +loc_B7B: LD HL,loc_2CA7 + LD DE,loc_2C9F + CALL sub_692 LD A,1 LD (smod_b_B0A),A - CALL 0EC7H + 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 ; - .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_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: ; CODE XREF: sub_0_8D1+53p - ; sub_0_BB4+14j - call sub_0_BD3 +sub_BB4: call sub_BD3 ret c 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 + ret + ;---------------------------------------------------------------------------- -loc_0_BC2: ; CODE XREF: sub_0_BB4+6j sub_0_BB4+Aj - call loc_0_ACF +loc_BC2: call loc_ACF 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 - scf - ret -; End of function sub_0_BB4 - + ld a,0FFh + scf + ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_BD3: ; CODE XREF: sub_0_BB4p - call sub_0_961 - jr nc, loc_0_BDF - ld a, 5 - ld (smod_b_B0A), a +sub_BD3: call sub_961 + jr nc,loc_BDF + ld a,5 + ld (smod_b_B0A),a or a - ret -;---------------------------------------------------------------------------- + ret -loc_0_BDF: ; CODE XREF: sub_0_BD3+3j - cp 9 - jr z, loc_0_BE9 - ld hl, 2CABh - call sub_0_688 +loc_BDF: cp 9 + jr z,loc_BE9 + ld hl,loc_2CAB + call sub_688 +loc_BE9: xor a + ld (byte_2D04),a + call sub_FAA +loc_BF0: call sub_FC9 + call sub_D30 + ld hl,loc_2CAB + ld de,loc_2CE0 + call sub_692 + ld hl,word_1808 + call sub_64E + ld a,9 + call sub_13BA +loc_C0A: call sub_FD1 + ld hl,stab_CE4 + ld bc,7 + cpir + jp z,sub_67F + ld a,0FFh + scf + ret -loc_0_BE9: ; CODE XREF: sub_0_BD3+Ej - xor a - ld (byte_0_2D04), a - call sub_0_FAA - call sub_0_FC9 - call sub_0_D30 - ld hl, 2CABh - ld de, 2CE0h - call sub_0_692 - ld hl, 1808h - call sub_0_64E - ld a, 9 - call sub_0_13BA -loc_0_C0A: call sub_0_FD1 - ld hl, loc_0_CE4 - ld bc, 7 - cpir - jp z, sub_0_67F - ld a, 0FFh - scf - ret -; End of function sub_0_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,0BF0H + JP NZ,loc_BF0 LD A,0FFH SCF RET -loc_0_C30: CALL 0EC7H - JP 0BF0H - -loc_0_C36: LD DE,2CA7H - LD HL,2CABH - CALL 6D3H - JP NZ,0BF0H - CALL 0D0EH - JR Z,0C50H - LD A,0CH - LD (0B0AH),A +loc_C30: CALL loc_EC7 + JP loc_BF0 + +loc_C36: LD DE,loc_2CA7 + LD HL,loc_2CAB + CALL sub_6D3 + JP NZ,loc_BF0 + CALL sub_D0E + JR Z,loc_C50 +loc_C47: LD A,0CH + LD (smod_b_B0A),A LD A,0FFH SCF RET - CALL 643H +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,0C6AH + JR NZ,loc_C6A LD A,0FFH SCF RET -loc_0_C6A: LD HL,2CAFH - CALL 0DDCH - JP 0BF0H +loc_C6A: LD HL,loc_2CAF + CALL sub_DDC + JP loc_BF0 -loc_0_C73: LD DE,2CA7H - LD HL,2CABH - CALL 6D3H +loc_C73: LD DE,loc_2CA7 + LD HL,loc_2CAB + CALL sub_6D3 JP NZ,0C57H - CALL 529H - CALL 0EC7H - LD HL,0CF9H +loc_C7F: CALL loc_529 + CALL loc_EC7 + LD HL,stab_CF9 LD BC,7 CPIR - JP Z,67FH - JP 0C1CH - -loc_0_C93: LD A,0FFH + JP Z,sub_67F + JP loc_C1C + +loc_C93: LD A,0FFH SCF RET -sub_0_C97: XOR A - LD (byte_0_2D04),A - LD DE,2CF9H - LD HL,2CABH - LD BC,2CABH - CALL 6E4H - JP 0FBAH - -loc_0_CAA: CALL sub_0_C97 - JP loc_0_C0A - -loc_0_CB0: CALL sub_0_C97 - JP 0C7FH - -loc_0_CB6: CALL sub_0_C97 - LD HL,2CABH - LD DE,2CE0H - CALL sub_0_692 +sub_C97: XOR A + LD (byte_2D04),A + 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 + +loc_CB0: CALL sub_C97 + JP loc_C7F + +loc_CB6: CALL sub_C97 + LD HL,loc_2CAB + LD DE,loc_2CE0 + CALL sub_692 LD A,3 - CALL sub_0_13BA - JP 0C7FH - -loc_0_CCA: CALL sub_0_C97 - CALL 0D30H - JP C,0C47H - LD HL,2CABH - LD DE,2CE0H - CALL sub_0_692 + CALL sub_13BA + JP loc_C7F + +loc_CCA: CALL sub_C97 + CALL sub_D30 + JP C,loc_C47 + LD HL,loc_2CAB + LD DE,loc_2CE0 + CALL sub_692 LD A,3 - CALL sub_0_13BA - JP loc_0_C0A - -loc_0_CE4: .db 6 + CALL sub_13BA + JP loc_C0A + +stab_CE4: .db 6 .db 0FEh .db 4 .db 0Bh .db 0FFh .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 - - .db 0EBh + + .dw loc_C1C + .dw loc_C73 + .dw loc_C57 + .dw loc_C36 + .dw loc_C30 + .dw loc_C1C + .dw loc_C1C + +stab_CF9: .db 0EBh .db 0EAh .db 0E9h .db 0E8h @@ -1860,288 +1696,277 @@ loc_0_CE4: .db 6 .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: 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 + call loc_D68 ret c - ld hl, 280Eh - ld a, 1 + ld hl,byte_280E + ld a,1 cp (hl) - jr nz, loc_0_D15 - ld a, 0 - ld (2CA5h), a - ld c, 10h - ld de, 17A3h - jp sub_0_471 -; End of function sub_0_D0E - + jr nz,loc_D15 + ld a,0 + ld (byte_2CA5),a + ld c,10h + ld de,byte_17A3 + jp sub_471 ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_D30: ; CODE XREF: sub_0_BD3+20p - ; sub_0_D0E+3p ... - ld bc, (2CF5h) - ld a, b +sub_D30: ld bc,(word_2CF5) + ld a,b or c ret z - ld hl, (2CE9h) - -loc_0_D3A: ; CODE XREF: sub_0_D30+2Ej - ld a, (2CA3h) + ld hl,(word_2CE9) +loc_D3A: 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 +smod_b_D41: .equ $+1 +loc_D41: ld a,0 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) + ld (smod_b_D41),a inc hl dec bc - call loc_0_D68 + call loc_D68 ret c - ld a, b + 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 + 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 push bc push de push hl -byte_0_D6F: .equ $+1 -loc_0_D6E: LD C,0 - LD HL,280EH - CALL sub_0_669 - JR NZ,loc_0_0D97 - LD HL,280EH - CALL sub_0_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,17A3H - CALL sub_0_471 - JR NC,loc_0_D6E -loc_0_0D97: POP HL - POP DE - POP BC - RET - -sub_0_D9B: LD HL,2CE0H - CALL sub_0_688 - LD B,4 -loc_0_0DA3: PUSH BC - LD A,8 - CALL 13BAH - LD B,64H - CALL sub_0_DE7 - JR C,loc_0_DB8 - CP 4FH - JR Z,loc_0_DBC - CP 0FDH - JR Z,loc_0_DBC -loc_0_DB8: POP BC - DJNZ loc_0_0DA3 - PUSH BC -loc_0_DBC: POP BC - LD B,1 - CALL sub_0_DE7 - XOR A - RET - -stab_0_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 - -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 +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,loc_2811 + 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 sub_13BA + 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 + +sub_DD9: ld hl,stab_DC4 +sub_DDC: ld a,(hl) 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 + call sub_16AA + call nz,sub_16A5 cp 1Bh - ld a, 18h - ld c, 0Ah - call z, sub_0_57F + ld a,18h + ld c,0Ah + 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 - scf +loc_DF8: call sub_5D4 + jr nz,loc_E03 + djnz loc_DF8 + ld a,0FEh + scf ret -loc_0_E03: or a ; CODE XREF: sub_0_DE7+14j - ret +loc_E03: or a + 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,(2C9DH) + 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 - RET C - LD E,A -loc_0_E36: AND 60H - LD A,E - RET NZ - CP 18H - JR Z,loc_0_E50 - LD HL,0EA2H - LD BC,4 - CPIR - JR Z,sub_0_E2F - LD A,(2C9DH) - OR A - JR NZ,sub_0_E2F - LD A,E - RET - -loc_0_E50: LD B,64H - CALL sub_0_DE7 - RET C - CP 18H - JR NZ,loc_0_0E74 - LD B,64h - CALL sub_0_DE7 - RET C - CP 18H - JR NZ,loc_0_0E74 - LD B,64H - CALL sub_0_DE7 - RET C - CP 18H - JR NZ,loc_0_0E74 - LD B,64H - CALL sub_0_DE7 - RET C -loc_0_0E74: LD HL,loc_0_EA6 - LD BC,0BH - CPIR - JP Z,sub_0_67F - LD L,A - LD A,(2C9DH) - OR A - JR Z,loc_0_E8B - LD A,L - AND 60H - JR Z,loc_0_E50 -loc_0_E8B: LD A,L - AND 60H - CP 40H - JR NZ,loc_0_E9C - LD A,L - XOR 40H - RET - -loc_0_E96: LD A,7FH - RET - -loc_0_E99: LD A,0FFH - RET - -loc_0_E9C: LD A,0FFH -loc_0_E9E: OR 80H - SCF - RET - - .db 11h ; +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,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_0_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 @@ -2149,47 +1974,47 @@ 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 - - OR A - LD HL,(2CEBH) - LD DE,(2CEFH) - SBC HL,DE - JP C,sub_0_F4E - CALL sub_0_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,(2CEBH) - LD BC,(2CEFH) - SBC HL,BC - JP Z,sub_0_F4E - INC BC - LD (2CEFH),BC - LD HL,(2CF9H) - INC HL - LD (2CF9H),HL - LD HL,(2CEDH) - LD (HL),A - INC HL - LD (2CEDH),HL - JR loc_0_EDD - - .db 0E8h ; è + .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_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,sub_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 ; ë @@ -2197,15 +2022,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_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 ; è +stab_F23: .db 0E8h ; è .db 0E9h ; é .db 0EAh ; ê .db 0EBh ; ë @@ -2213,925 +2038,763 @@ 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 - -loc_0_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 ; - -sub_0_F4E: - .db 3Eh ; > - .db 0FFh ; ÿ - .db 37h ; 7 - .db 0C9h ; É -sub_0_F52: - .db 37h ; 7 - .db 0C9h ; É -sub_0_F54: - .db 3Eh ; > - .db 10h ; - .db 37h ; 7 - .db 0C9h ; É -sub_0_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_0_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 ; + .dw sub_F52 + .dw sub_F4E + .dw sub_F54 + .dw sub_F7C + .dw sub_F7C + .dw sub_F7C + .dw sub_F7C -sub_0_FA2: .db 5Fh ; _ - .db 3Ah ; : - .db 9Eh ; ? - .db 2Ch ; , - .db 0FEh ; þ - .db 20h ; - .db 7Bh ; { - .db 0C9h ; É +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 -;---------------------------------------------------------------------------- -; S u b r o u t i n e +sub_F52: SCF + RET -sub_0_FAA: ld hl, 2CE9h ; CODE XREF: seg000:0AE5p sub_0_BD3+1Ap - ld de, 2CEDh - ldi - ldi - ld hl, 0 - ld (2CEFh), 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 - ldi - ldi - ldi - ret +sub_F54: LD A,10H + SCF + RET + +sub_F58: LD (byte_2CFD),A + AND 7FH + CALL sub_885 + LD B,2 +loc_F62: PUSH BC + CALL sub_E2F + CALL sub_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 + ld de,word_2CED + ldi + ldi + ld hl,0 + ld (word_2CEF),hl +sub_FBA: ld hl,word_2CED + ld de,loc_2CF3 +loc_FC0: ldi + ldi + ldi + ldi + ret ;---------------------------------------------------------------------------- ; 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,loc_2CF3 + ld de,word_2CED + 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 - 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 - ld bc, 3 - cpir - jp z, sub_0_67F - jr loc_0_1024 +sub_FD1: xor a + ld (byte_2D01),a + ld hl,400h + ld (word_2CFE),hl +loc_FDB: ld a,5 + 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_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 - - LD HL,byte_0_2D00 + JP Z,sub_67F + JR loc_1024 + + 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,(word_2CFE) dec hl - ld (2CFEh), hl - ld a, h + ld (word_2CFE),hl + ld a,h or l - ld a, 0FCh - jp z, loc_0_108A - jp loc_0_FDB - -;---------------------------------------------------------------------------- - -loc_0_1035: LD A,0FFH ;1035 3e ff - JP loc_0_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 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 - - 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 - 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 - - LD A,10H ;1063 3e 10 - LD (2C9EH),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 - 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 - CALL 10C5H ;107c cd c5 10 -loc_0_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 - POP AF ;1089 f1 -loc_0_108A: ld hl, 10BFh ; CODE XREF: sub_0_FD1+14j - ld bc, 6 ; sub_0_FD1+5Ej - cpir - jr nz, loc_0_109C + ld a,0FCh + jp z,loc_108A + jp loc_FDB + +;---------------------------------------------------------------------------- + +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 + ld bc,6 + cpir + jr nz,loc_109C cp 98h - jr nz, loc_0_109A - ld a, 10h -loc_0_109A: scf ; CODE XREF: sub_0_FD1+C5j - ret + jr nz,loc_109A + ld a,10h +loc_109A: scf + ret -loc_0_109C: or a ; CODE XREF: sub_0_FD1+C1j - ret +loc_109C: or a + ret ;---------------------------------------------------------------------------- -stab_0_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_0_10A7: .db 6Bh ; k - .db 18h ; - .db 12h ; - .db 10h ; - .db 1Dh ; - .db 10h ; +stab_10A7: .db 6Bh ; k + .db 18h ; + .db 12h ; + .db 10h ; + .db 1Dh ; + .db 10h ; -stab_0_10AD: .db 2Ah ; * - .db 18h ; +stab_10AD: .db 2Ah ; * + .db 18h ; .db 51h ; Q - .db 10h ; + .db 10h ; .db 3Fh ; ? - .db 10h ; + .db 10h ; -stab_0_10B3: .db 43h ; C +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 98h ; ? - .db 6 ; - .db 10h ; + .db 10h ; + +stab_10BF: .db 98h ; ? + .db 6 ; + .db 10h ; .db 0FFh ; ÿ .db 0FEh ; þ .db 0FCh ; ü - CALL sub_0_8A0 ;10c5 cd a0 08 - CALL sub_0_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 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 - POP HL ;10df e1 - POP BC ;10e0 c1 - LD (HL),A ;10e1 77 - INC HL ;10e2 23 - RET C ;10e3 d8 - 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 - 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 6D3H ;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 - RET C ;1106 d8 - LD (2D01H),A ;1107 32 01 2d - CALL 885H ;110a cd 85 08 - LD HL,2CA7H ;110d 21 a7 2c - LD B,4 ;1110 06 04 - PUSH BC ;1112 c5 - PUSH HL ;1113 e5 - CALL sub_0_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_0_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 (2CA6H),A ;1134 32 a6 2c - LD A,(2D01H) ;1137 3a 01 2d - RET ;113a c9 - - LD A,0FFH ;113b 3e ff - SCF ;113d 37 - RET ;113e c9 - -sub_0_113F: CALL sub_0_8A0 ;113f cd a0 08 - CALL 1194H ;1142 cd 94 11 - RET C ;1145 d8 - LD (2D01H),A ;1146 32 01 2d - CALL 885H ;1149 cd 85 08 - LD HL,2CA7H ;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 (2CA6H),A ;1189 32 a6 2c - LD A,(2D01H) ;118c 3a 01 2d - RET ;118f c9 - ; - LD A,0FFH ;1190 3e ff - SCF ;1192 37 - RET ;1193 c9 - - CALL loc_0_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 - 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 - POP BC ;11a6 c1 - RET C ;11a7 d8 - CALL sub_0_11B3 ;11a8 cd b3 11 - JR NZ,loc_0_11AF ;11ab 20 02 - OR B ;11ad b0 - RET ;11ae c9 - ; -loc_0_11AF: LD A,0FFH ;11af 3e ff - SCF ;11b1 37 - RET ;11b2 c9 - ; -sub_0_11B3: LD L,A ;11b3 6f - SUB 30H ;11b4 d6 30 - CP 0AH ;11b6 fe 0a - JR C,loc_0_11BC ;11b8 38 02 - SUB 27H ;11ba d6 27 -loc_0_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_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, (2C9Eh) +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 + ld (byte_2D02),a + call sub_FAA + ld a,(byte_2C9E) cp 10h - ld a, 43h - jr z, loc_0_11D4 - ld a, 15h - -loc_0_11D4: ; CODE XREF: sub_0_11C1+Fj - call loc_0_145C - ld b, 64h - call sub_0_1289 + 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_0_11F3 + jr z,loc_11F3 cp 0F6h - jr z, loc_0_11E7 - ld a, 0FFh - scf - ret + jr z,loc_11E7 + ld a,0FFh + scf + ret ;---------------------------------------------------------------------------- -loc_0_11E7: ; CODE XREF: sub_0_11C1+20j - ld a, 6 - call loc_0_145C - ld b, 0Ah - call sub_0_DE7 - jr sub_0_11C1 +loc_11E7: ld a,6 + call loc_145C + ld b,0Ah + call sub_DE7 + jr sub_11C1 + ;---------------------------------------------------------------------------- -loc_0_11F3: ; CODE XREF: sub_0_11C1+1Cj - ld a, 6 - call loc_0_145C +loc_11F3: ld a,6 + call loc_145C xor a - ret -; End of function sub_0_11C1 - + ret ;---------------------------------------------------------------------------- - ; 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 (2CA3h), a +sub_11FA: ld a,0FFh + ld (byte_2D02),a + ld (byte_2CA3),a xor a - ld (byte_0_2D07), a - call sub_0_FAA - ld hl, 2CABh - call sub_0_688 - ld a, (2C9Eh) + ld (byte_2D07),a + call sub_FAA + ld hl,loc_2CAB + call sub_688 + ld a,(byte_2C9E) cp 10h - ld a, 43h - jr z, loc_0_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 + ld a,43h + jr z,loc_121A + ld a,15h +loc_121A: call loc_145C +loc_121D: ld a,(byte_2D07) or a - ld b, 82h - jr z, loc_0_1227 - ld b, 32h -loc_0_1227: call sub_0_1289 ; CODE XREF: sub_0_11FA+29j - jr c, loc_0_125A + ld b,82h + jr z,loc_1227 + ld b,32h +loc_1227: call sub_1289 + 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, 2CEFh - ld hl, 2CABh - ld bc, 2CABh - call sub_0_6E4 - call sub_0_FBA - call sub_0_D30 - jr c, loc_0_1285 - -loc_0_1250: call sub_0_FC9 ; CODE XREF: sub_0_11FA+3Bj - ld a, 6 - call loc_0_145C - jr loc_0_121D -;---------------------------------------------------------------------------- - -loc_0_125A: 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 - ld a, 6 - call loc_0_145C + ld de,word_2CEF + ld hl,loc_2CAB + ld bc,loc_2CAB + call sub_6E4 + call sub_FBA + call sub_D30 + jr c,loc_1285 + +loc_1250: call sub_FC9 + ld a,6 + call loc_145C + jr loc_121D + +loc_125A: cp 0F6h + jr nz,loc_126D + call sub_D0E + jr c,loc_1285 + call sub_643 + ld a,6 + call loc_145C xor a - ret + ret + ;---------------------------------------------------------------------------- -loc_0_126D: ; CODE XREF: sub_0_11FA+3Fj - ; sub_0_11FA+62j +loc_126D: cp 0FFh + jr nz,loc_1285 + ld a,(byte_2D02) cp 0FFh - jr nz, loc_0_1285 - ld a, (byte_0_2D02) - cp 0FFh - jr nz, loc_0_1285 - ld a, (2C9Eh) + jr nz,loc_1285 + ld a,(byte_2C9E) or a - jr z, loc_0_1285 + jr z,loc_1285 xor a - ld (2C9Eh), a - jp sub_0_11FA -;---------------------------------------------------------------------------- - -loc_0_1285: ; CODE XREF: sub_0_11FA+54j - ; sub_0_11FA+67j ... - ld a, 0FFh - scf - ret -; End of function sub_0_11FA + ld (byte_2C9E),a + jp sub_11FA +loc_1285: ld a,0FFh + scf + ret ;---------------------------------------------------------------------------- - ; S u b r o u t i n e -sub_0_1289: ; CODE XREF: sub_0_11C1+18p - ; sub_0_11FA+2Dp - ld a, b - ld (byte_0_2D03), a +sub_1289: ld a,b + ld (byte_2D03),a xor a - ld (byte_0_2D04), a - ld a, 0 - ld (byte_0_2D09), a - -loc_0_1296: ; CODE XREF: sub_0_1289+12Aj - ld a, (byte_0_2D03) - ld b, a - call sub_0_DE7 - ld (byte_0_2D08), a - ld hl, 12AEh - ld bc, 4 - cpir - jp z, sub_0_67F - jp loc_0_137A -;---------------------------------------------------------------------------- - .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 ; - - + ld (byte_2D04),a + ld a,0 + ld (byte_2D09),a +loc_1296: ld a,(byte_2D03) + ld b,a + call sub_DE7 + ld (byte_2D08),a + ld hl,loc_12AE + ld bc,4 + cpir + jp z,sub_67F + jp loc_137A + +;---------------------------------------------------------------------------- + +loc_12AE: .db 2 ; + .db 1 ; + .db 4 ; + .db 18h ; + + .dw loc_136A + .dw loc_135F + .dw loc_12BF + .dw loc_12BA + +loc_12BA: LD HL,400H + JR loc_12C2 + +loc_12BF: LD HL,80H +loc_12C2: LD (word_2D05),HL ld b,0ah - call sub_0_DE7 - ld (12D9H),A - jp c,loc_0_137A + call sub_DE7 + ld (smod_b_12D9),A + jp c,loc_137A ld b,0ah - call sub_0_DE7 - jp c,loc_0_137A + call sub_DE7 + jp c,loc_137A +smod_b_12D9: .equ $+1 add a,0 cp 0ffh - jp nz,loc_0_137A - call sub_0_8A0 - ld ix,(2CEDH) - 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 ; É + jp nz,loc_137A + 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 - ld a,(byte_0_2D08) +loc_1352: ld a,(byte_2D08) ld l,a ld a,(smod_b_7DF) sub l - jr z,$-15h - jp loc_0_137A + jr z,loc_1345 + jp loc_137A - ld b,0ah - call sub_0_DE7 +loc_135F: ld b,0ah + call sub_DE7 ld a,0f6h ret c - jp loc_0_137A + jp loc_137A - ld a,0ffh - ld hl,byte_0_2D09 +loc_136A: ld a,0ffh + ld hl,byte_2D09 cp (hl) - jr nz,loc_0_1367 + jr nz,loc_1376 ld a,0ffh scf ret -loc_0_1367: ld (hl),a - jp loc_0_13A4 +loc_1376: ld (hl),a + jp loc_13A4 ;---------------------------------------------------------------------------- -loc_0_137A: ; CODE XREF: sub_0_1289+22j - ld a, 0 - ld (byte_0_2D09), a - -loc_0_137F: ; CODE XREF: sub_0_1289+FBj - ld b, 0Ah - call sub_0_DE7 - jr nc, loc_0_137F - ld a, (byte_0_2D02) +loc_137A: ld a,0 + ld (byte_2D09),a +loc_137F: ld b,0Ah + call sub_DE7 + jr nc,loc_137F + ld a,(byte_2D02) cp 0FFh - jr nz, loc_0_139A - ld a, (2C9Eh) + jr nz,loc_139A + ld a,(byte_2C9E) cp 10h - ld a, 43h - jr z, loc_0_13A1 - ld a, 15h - jr loc_0_13A1 -;---------------------------------------------------------------------------- - -loc_0_139A: ld a, 28h ; CODE XREF: sub_0_1289+102j - ld (byte_0_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 + ld a,43h + jr z,loc_13A1 + ld a,15h + jr loc_13A1 + +loc_139A: ld a,28h + ld (byte_2D03),a + ld a,15h +loc_13A1: call loc_145C +loc_13A4: call sub_FC9 + 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 - scf - ret + jp nz,loc_1296 + ld a,0FFh + scf + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_13BA: ld (2CE8h), a ; CODE XREF: sub_0_BD3+34p - ld hl,loc_0_1403 - call sub_0_DDC - call sub_0_8A0 - ld a, (2CE8h) - call loc_0_885 - call sub_0_1418 - ld hl, 2CE0h - ld b, 4 -loc_0_13D4: push bc ; CODE XREF: sub_0_13BA+26j - ld a, (hl) +sub_13BA: ld (byte_2CE8),a + ld hl,loc_1403 + call sub_DDC + call sub_8A0 + ld a,(byte_2CE8) + call sub_885 + call sub_1418 + ld hl,loc_2CE0 + ld b,4 +loc_13D4: push bc + ld a,(hl) inc hl push hl - call loc_0_885 - call sub_0_1418 + call sub_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, (2CE8h) + 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 -; End of function sub_0_13BA + ld a,11h + jp loc_145C ;---------------------------------------------------------------------------- -loc_0_1403: .db 2Ah ; * - .db 2Ah ; * - .db 18h ; - .db 42h ; B - .db 0 ; - -loc_0_1408: .text "0123456789abcdef" + +loc_1403: .db 2Ah ; * + .db 2Ah ; * + .db 18h ; + .db 42h ; B + .db 0 ; + +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 ... - ld b, 0 - rra - rra - rra - rra +sub_1418: push af + ld hl,loc_1408 + ld b,0 + rra + rra + rra + rra and 0Fh - ld c, a - add hl, bc - ld a, (hl) - call loc_0_145C + ld c,a + add hl,bc + ld a,(hl) + call loc_145C pop af - ld hl,loc_0_1408 - ld b, 0 + ld hl,loc_1408 + ld b,0 and 0Fh - ld c, a - add hl, bc - ld a, (hl) - jp loc_0_145C - -;---------------------------------------------------------------------------- - -loc_0_1438: LD (smod_b_145B),A - LD BC,+(loc_0_1480-stab_0_7B3) - LD HL,stab_0_7B3 - CPIR - JP Z,sub_0_67F - AND 60H - JR NZ,loc_0_145A - LD A,(2C9DH) - OR A - JR Z,loc_0_145A -loc_0_1450: LD HL,smod_b_145B - SET 6,(HL) - LD A,18H - CALL loc_0_145C + ld c,a + add hl,bc + ld a,(hl) + jp loc_145C + +;---------------------------------------------------------------------------- + +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 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 + LD A,0 + JP loc_5C7 -loc_0_146C: LD A,(smod_b_1468) - AND 7FH - CP 40H - JR NZ,loc_0_145A - JR loc_0_1450 +loc_146C: LD A,(smod_b_1468) + AND 7FH + CP 40H + JR NZ,loc_145A + JR loc_1450 -stab_0_7B3: .db 18h +stab_7B3: .db 18h .db 0Dh .db 8Dh .db 10h @@ -3140,251 +2803,251 @@ stab_0_7B3: .db 18h .db 91h .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 + ld (byte_2D0A),a + call sub_171E push de - call sub_0_162C - ld (de), a + 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 - ld (de), a - ld (byte_0_2D0D), a - ld (byte_0_2D0C), a - call sub_0_1687 - ld a, c - ld (byte_0_2D0E), a +sub_14A7: xor a + ld (de),a + ld (byte_2D0D),a + ld (byte_2D0C),a + call sub_1687 + ld a,c + 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 + 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 + 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) + ld (de),a 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 + ld b,8 + 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 - ex de, hl - ld bc, 8 - add hl, bc - ex de, hl - ld b, 3 + ld a,(hl) + ld (byte_2D0B),a +loc_14FE: ld a,(byte_2D0B) + 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 - ld bc, 5 - add hl, bc - ex de, hl - ld a, (byte_0_2D0E) - ld (de), a -loc_0_151D: ld a, (byte_0_2D0C); CODE XREF: sub_0_1492+13j +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) or a - ret + 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 + ret z inc de cp 2Ah - jr nz, loc_0_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 + jr nz,loc_1533 + ld a,3Fh + ld (de),a + call sub_1543 + jr loc_153A +loc_1533: ld (de),a 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 +loc_153C: call sub_15D9 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 + ld hl,byte_2D0C inc (hl) pop hl - ret + ret ;---------------------------------------------------------------------------- ; 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 + push de + call sub_1552 pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; 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 - ex de, hl +sub_1552: call sub_164A + jr z,loc_15CA + ex de,hl inc hl - call sub_0_1652 - ld b, a + 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 - ld b, 2 -loc_0_1577: ld a, (hl) ; CODE XREF: sub_0_1552+30j +loc_1574: push hl + ld b,2 +loc_1577: ld a,(hl) 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 - ld c, a + jr nz,loc_159A +loc_1589: pop hl + 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 + jr loc_15CA ;---------------------------------------------------------------------------- ; 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 push de - call sub_0_15A5 + call sub_15A5 pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; 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 - ex de, hl +sub_15A5: call sub_1662 + 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) 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 + ld b,8 +loc_15B6: ld a,(de) 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 pop hl - jr z, loc_0_15CD - ex de, hl - ld bc, 10h - add hl, bc - ex de, hl - jr loc_0_15AC - -loc_0_15CA: or 0FFh ; CODE XREF: sub_0_1552+3j - ret ; sub_0_1552+14j ... - -loc_0_15CD: dec de ; CODE XREF: sub_0_15A5+1Bj - ld a, (de) - ld (byte_0_2D0E), a + jr z,loc_15CD + ex de,hl + ld bc,10h + add hl,bc + ex de,hl + jr loc_15AC + +loc_15CA: or 0FFh + ret + +loc_15CD: dec de + 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 + 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) cp 21h - jr c, loc_0_15F8 + jr c,loc_15F8 cp 3Dh ret z cp 5Fh @@ -3404,427 +3067,473 @@ 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 - ret +loc_15F8: xor a + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_15FA: push bc ; CODE XREF: sub_0_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 +sub_15FA: push bc + ld bc,1100h ; ? +loc_15FE: ld a,(hl) + call sub_15D9 + jr z,loc_161E inc hl - call sub_0_1625 - jr c, loc_0_1622 - ld d, a - ld a, c - rlca - jr c, loc_0_1622 - rlca - jr c, loc_0_1622 - add a, c - jr c, loc_0_1622 - rlca - jr c, loc_0_1622 - add a, d - jr c, loc_0_1622 - ld c, a - djnz loc_0_15FE -loc_0_161E: ld a, c ; CODE XREF: sub_0_15FA+8j + call sub_1625 + jr c,loc_1622 + ld d,a + ld a,c + rlca + jr c,loc_1622 + rlca + 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 + djnz loc_15FE +loc_161E: ld a,c pop bc or a - ret + ret ; -loc_0_1622: pop bc ; CODE XREF: sub_0_15FA+Ej - scf ; sub_0_15FA+13j ... - ret +loc_1622: pop bc + scf + 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 + ret c cp 0Ah - ccf - ret + ccf + ret ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_162C: xor a ; CODE XREF: sub_0_1492+8p - ld (de), a +sub_162C: xor a + ld (de),a inc de - call sub_0_1632 -sub_0_1632: ld b, 0Bh ; CODE XREF: sub_0_14A7+44p - ld a, 20h - call sub_0_1645 + call sub_1632 +sub_1632: ld b,0Bh + ld a,20h + call sub_1645 xor a - ld (de), a + ld (de),a inc de - call sub_0_1687 - ld a, c - ld (de), a + call sub_1687 + ld a,c + ld (de),a inc de - ld b, 3 + 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 - ret +sub_1645: ld (de),a + inc de + 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 push de - ld de, 2Eh - jp loc_0_1669 + ld de,2Eh + 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 push de - ld de, 2Ch - jp loc_0_1669 + ld de,2Ch + 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 push de - ld de, 2Dh - jp loc_0_1669 + ld de,2Dh + jp loc_1669 ; ;---------------------------------------------------------------------------- ; S u b r o u t i n e -sub_0_1662: push de ; CODE XREF: sub_0_15A5p - ld de, 15h - jp loc_0_1676 +sub_1662: push de + ld de,15h + 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) + ld a,h or l - jr z, loc_0_1671 - add hl, de -loc_0_1671: ld a, (hl) ; CODE XREF: sub_0_1662+Cj + jr z,loc_1671 + add hl,de +loc_1671: ld a,(hl) pop de pop hl or a - ret + ret ;---------------------------------------------------------------------------- -loc_0_1676: ld hl, (word_0_2D0F) ; CODE XREF: sub_0_1662+4j - add hl, de - ld e, (hl) +loc_1676: ld hl,(word_2D0F) + add hl,de + ld e,(hl) inc hl - ld d, (hl) + ld d,(hl) inc hl - ld a, (hl) - ex de, hl + ld a,(hl) + ex de,hl pop de or a - ret + 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 + push de push hl - ld c, 19h - call sub_0_16AF + ld c,19h + call sub_16AF push af ld e, 0FFh - ld c, F_USERNUM - call sub_0_16AF - ld c, a + ld c,F_USERNUM + call sub_16AF + ld c,a pop af - ld b, a + ld b,a pop hl pop de pop af - ret + ret ;---------------------------------------------------------------------------- ; 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 + call sub_16B8 inc a - ret + 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 + 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 + 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 + push bc call bdos pop bc pop de or a - ret + ret ;---------------------------------------------------------------------------- ; 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 + push de push bc - ld c, a + ld c,a call bdos or a pop bc pop de pop hl - ret + ret ;---------------------------------------------------------------------------- ; 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 push hl push de push af - ld b, 8 - call sub_0_16DA - ld (hl), 2Eh + ld b,8 + call sub_16DA + ld (hl),2Eh inc hl - ld b, 3 - call sub_0_16DA + ld b,3 + call sub_16DA pop af pop de pop hl pop bc - ret + ret ;---------------------------------------------------------------------------- ; 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) + and 7Fh cp 20h - jr z, loc_0_16E3 - ld (hl), a + jr z,loc_16E3 + ld (hl),a inc hl -loc_0_16E3: inc de ; CODE XREF: sub_0_16DA+5j - djnz sub_0_16DA - ret +loc_16E3: inc de + 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 - ld b, 0 - jp loc_0_16F0 -sub_0_16ED: PUSH BC +sub_16E7: push bc + ld b,0 + 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 push af - ld h, 64h - call sub_0_1703 - ld h, 0Ah - call sub_0_1703 - call sub_0_1717 + ld h,64h + call sub_1703 + ld h,0Ah + call sub_1703 + call sub_1717 pop af pop hl pop bc - ret + ret ;---------------------------------------------------------------------------- ; 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 +loc_1705: sub h inc l - jr nc, loc_0_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_0_1717 + jr nz,sub_1717 or b - ld a, h + ld a,h ret m - ld a, 20h - jr z, loc_0_171A + ld a,20h + jr z,loc_171A xor a -sub_0_1717: add a, 30h ; CODE XREF: sub_0_16E7+15p - ld b, a -loc_0_171A: ld (de), a ; CODE XREF: sub_0_1703+11j +sub_1717: add a,30h + ld b,a +loc_171A: ld (de),a inc de - ld a, h - ret + ld a,h + ret ;---------------------------------------------------------------------------- ; 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 push hl -loc_0_1720: ld a, (hl) +loc_1720: ld a,(hl) or a - jr z, loc_0_172B - call sub_0_1793 - ld (hl), a + 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 + 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 push de push hl - ld c, a - ex de, hl - ld b, (hl) + ld c,a + ex de,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 or a - jr z, loc_0_1760 - ld (hl), e + jr z,loc_1760 + ld (hl),e inc hl - ld (hl), d + 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 - ld a, c + jr z,loc_1760 + ld a,c or a - jr z, loc_0_1751 + jr z,loc_1751 xor a - ld (de), a + ld (de),a inc de -loc_0_1751: ld a, b ; CODE XREF: sub_0_172E+1Ej +loc_1751: ld a,b 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 + 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 + push af + ld a,(hl) sub b inc hl - ld (hl), a + ld (hl),a pop af pop hl pop de pop bc - ret + ret ;---------------------------------------------------------------------------- ; 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) + and 7Fh 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 + 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) + and 7Fh 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 + call sub_178C pop hl - ret + 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 +loc_178D: ld (hl),a inc hl - djnz loc_0_178D + djnz loc_178D pop bc - ret + 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 cp 61h ret c cp 7Bh ret nc and 5Fh - ret + 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 +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: -word_0_1808: .ds 2 - .ds 1087h -byte_0_2891: .ds 1 - .ds 46Eh -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 + .ds 8 +nstack: +word_1808: .ds 2 + .ds 1004h +byte_280E: .ds 1 +byte_280F: .ds 1 +byte_2810: .ds 1 +loc_2811: .ds 80h +byte_2891: .ds 1 + .ds 3 +loc_2895: .ds 4 +loc_2899: .ds 4 +loc_289D: .ds 400h +byte_2C9D: .ds 1 +byte_2C9E: .ds 1 +loc_2C9F: .ds 1 + .ds 1 +byte_2CA1: .ds 1 +byte_2CA2: .ds 1 +byte_2CA3: .ds 1 +byte_2CA4: .ds 1 +byte_2CA5: .ds 1 +byte_2CA6: .ds 1 +loc_2CA7: .ds 4 +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 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 2 +loc_2CF3: .ds 2 +word_2CF5: .ds 2 .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 +loc_2CF9: .ds 4 +byte_2CFD: .ds 1 +word_2CFE: .ds 2 +byte_2D00: .ds 1 +byte_2D01: .ds 1 +byte_2D02: .ds 1 +byte_2D03: .ds 1 +byte_2D04: .ds 1 +word_2D05: .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