Kirjoittaja PetriK » 10 Marras 2007, 06:38
Ja olisikohan tässä koodi perustuen nimeämiseen ...
seg000:00008C0E
seg000:00008C0E ProcSerial:
seg000:00008C0E bset 3129h, X, #2Dh
seg000:00008C12 brset byte_A09, #0Dh, loc_DF78+5
seg000:00008C18 eora #43h
seg000:00008C1A cps 6Eh, Z
seg000:00008C1C
seg000:00008C1C ProcSerial_1:
seg000:00008C1C adca #74h
seg000:00008C1E adca 6Dh, X
seg000:00008C20 eora #28h
seg000:00008C22 oraa 65h, X
seg000:00008C24 eora #43h
seg000:00008C26 cps 6Eh, Z
seg000:00008C28 adca #74h
seg000:00008C2A bclr 642Ch, Z, #69h
seg000:00008C2E movb 58h, X, byte_3541
seg000:00008C32 anda 2Ch, X ; Clear any pending flags
seg000:00008C34 asr 31h, Z
seg000:00008C36 bset 2254h, Z, #2Ch
seg000:00008C3A ldaa 6Dh, Z
seg000:00008C3C suba #6Fh
seg000:00008C3E sbca #61h
seg000:00008C40 sbca #79h
seg000:00008C42 com 56h, Z
seg000:00008C44 adda 6Ch, Z
seg000:00008C46 ldaa #65h
seg000:00008C48
seg000:00008C48 ProcSerial_2:
seg000:00008C48 neg 2Ch, Z
seg000:00008C48 ; ---------------------------------------------------------------------------
seg000:00008C4A dc.b 31h ; 1
seg000:00008C4B dc.b 29h ; )
seg000:00008C4C ; ---------------------------------------------------------------------------
seg000:00008C4C brset byte_A09, #0Dh, loc_CDB6
seg000:00008C52 eora 43h, Z
seg000:00008C54 cps 6Eh, Z
seg000:00008C56
seg000:00008C56 ProcSerial_3:
seg000:00008C56 adca #74h
seg000:00008C58 ldaa 78h, X
seg000:00008C5A
seg000:00008C5A ProcSerial_4:
seg000:00008C5A bclr 642Ch, Z, #69h
seg000:00008C5E neg 7Ah, Z
seg000:00008C60 eora 6Dh, Y
seg000:00008C62 suba #58h
seg000:00008C64 neg 2Ch, Z
seg000:00008C66 bset 5835h, X, #30h
seg000:00008C6A sbca 30h, X
seg000:00008C6C rol 9, Z
seg000:00008C6E asr 31h, Z
seg000:00008C70 bset 0D0Ah, Z, #3Bh
seg000:00008C74 bset 6574h, X, #53h
seg000:00008C78
seg000:00008C78 ProcSerial_5:
seg000:00008C78 adca 6Fh, X
seg000:00008C7A cpz 73h, Z
seg000:00008C7C eora #43h
seg000:00008C7E cpy 74h, Z
seg000:00008C7E ; ---------------------------------------------------------------------------
seg000:00008C80 dc.b 28h ; (
seg000:00008C81 dc.b 47h ; G
seg000:00008C82 ; ---------------------------------------------------------------------------
seg000:00008C82 ldaa 74h, Z
seg000:00008C84 adca 6Fh, X
seg000:00008C86 cpz 73h, Z
seg000:00008C88 eora #28h
seg000:00008C8A bita 64h, Z
seg000:00008C8C rol 30h, Z
seg000:00008C8E cmpa 35h, Y
seg000:00008C90 sbca 30h, X
seg000:00008C92 rol 2Dh, Z
seg000:00008C94 movw 29h, X, word_2C22
seg000:00008C98 eora 65h, Y
seg000:00008C9A
seg000:00008C9A ProcSerial_99:
seg000:00008C9A cpy 70h, Z
seg000:00008C9A ; End of function ProcSerial
[color=#000000]Ja olisikohan tässä koodi perustuen nimeämiseen ...
[quote]
seg000:00008C0E
seg000:00008C0E ProcSerial:
seg000:00008C0E bset 3129h, X, #2Dh
seg000:00008C12 brset byte_A09, #0Dh, loc_DF78+5
seg000:00008C18 eora #43h
seg000:00008C1A cps 6Eh, Z
seg000:00008C1C
seg000:00008C1C ProcSerial_1:
seg000:00008C1C adca #74h
seg000:00008C1E adca 6Dh, X
seg000:00008C20 eora #28h
seg000:00008C22 oraa 65h, X
seg000:00008C24 eora #43h
seg000:00008C26 cps 6Eh, Z
seg000:00008C28 adca #74h
seg000:00008C2A bclr 642Ch, Z, #69h
seg000:00008C2E movb 58h, X, byte_3541
seg000:00008C32 anda 2Ch, X ; Clear any pending flags
seg000:00008C34 asr 31h, Z
seg000:00008C36 bset 2254h, Z, #2Ch
seg000:00008C3A ldaa 6Dh, Z
seg000:00008C3C suba #6Fh
seg000:00008C3E sbca #61h
seg000:00008C40 sbca #79h
seg000:00008C42 com 56h, Z
seg000:00008C44 adda 6Ch, Z
seg000:00008C46 ldaa #65h
seg000:00008C48
seg000:00008C48 ProcSerial_2:
seg000:00008C48 neg 2Ch, Z
seg000:00008C48 ; ---------------------------------------------------------------------------
seg000:00008C4A dc.b 31h ; 1
seg000:00008C4B dc.b 29h ; )
seg000:00008C4C ; ---------------------------------------------------------------------------
seg000:00008C4C brset byte_A09, #0Dh, loc_CDB6
seg000:00008C52 eora 43h, Z
seg000:00008C54 cps 6Eh, Z
seg000:00008C56
seg000:00008C56 ProcSerial_3:
seg000:00008C56 adca #74h
seg000:00008C58 ldaa 78h, X
seg000:00008C5A
seg000:00008C5A ProcSerial_4:
seg000:00008C5A bclr 642Ch, Z, #69h
seg000:00008C5E neg 7Ah, Z
seg000:00008C60 eora 6Dh, Y
seg000:00008C62 suba #58h
seg000:00008C64 neg 2Ch, Z
seg000:00008C66 bset 5835h, X, #30h
seg000:00008C6A sbca 30h, X
seg000:00008C6C rol 9, Z
seg000:00008C6E asr 31h, Z
seg000:00008C70 bset 0D0Ah, Z, #3Bh
seg000:00008C74 bset 6574h, X, #53h
seg000:00008C78
seg000:00008C78 ProcSerial_5:
seg000:00008C78 adca 6Fh, X
seg000:00008C7A cpz 73h, Z
seg000:00008C7C eora #43h
seg000:00008C7E cpy 74h, Z
seg000:00008C7E ; ---------------------------------------------------------------------------
seg000:00008C80 dc.b 28h ; (
seg000:00008C81 dc.b 47h ; G
seg000:00008C82 ; ---------------------------------------------------------------------------
seg000:00008C82 ldaa 74h, Z
seg000:00008C84 adca 6Fh, X
seg000:00008C86 cpz 73h, Z
seg000:00008C88 eora #28h
seg000:00008C8A bita 64h, Z
seg000:00008C8C rol 30h, Z
seg000:00008C8E cmpa 35h, Y
seg000:00008C90 sbca 30h, X
seg000:00008C92 rol 2Dh, Z
seg000:00008C94 movw 29h, X, word_2C22
seg000:00008C98 eora 65h, Y
seg000:00008C9A
seg000:00008C9A ProcSerial_99:
seg000:00008C9A cpy 70h, Z
seg000:00008C9A ; End of function ProcSerial
[/quote][/color]