Changeset 21

Show
Ignore:
Timestamp:
08/02/09 00:05:49 (3 years ago)
Author:
brandonlw
Message:

Start gutting some of this debug code

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/page1C/1Cbase.asm

    r20 r21  
    3838keyscnlnk: 
    3939       di 
    40        push af 
    41        ld a,9 
    42        call PutC 
    43        in a,(9) 
    44        call DispHexA 
    45        ld a,9 
    46        call PutC 
    47        pop af 
    4840       res enableHW2Timer,(iy+interruptFlags) 
    4941       call NZIf83Plus 
    … …  
    9688$$:    ld a,(ioData) 
    9789       call ContinueGetByte 
    98        call DispHexA 
    99        push af 
    100        ld a,11 
    101        call PutC 
    102        pop af 
    10390       bit 5,(iy+3Dh) 
    10491       jr z,kscnlnkGet3Bytes 
    105        ld a,10 
    106        call PutC 
    10792       in a,(2) 
    10893       and 80h 
    … …  
    138123       call RecAByteIO 
    139124       ld (header+1),a 
    140        call DispHexA 
    141        ld a,12 
    142        call PutC 
    143125       call RecAByteIO 
    144126       ld (header+2),a 
    … …  
    148130       ld b,(hl) 
    149131       inc hl 
    150        ld a,8 
    151        call PutC 
    152        ld a,(header+1) 
    153        call DispHexA 
    154132$$:    cp (hl) 
    155133       inc hl 
    … …  
    158136       inc hl 
    159137       djnz $B 
    160        ld a,7 
    161        call PutC 
    162138       ld a,(header+1) 
    163139       call DispHexA 
    … …  
    167143$$:    call LdHLInd 
    168144       jp (hl) 
     145disableLAEnd: 
     146       call DisableLinkAssist 
     147       jr keyscnlnkEnd 
    169148sendAcknowledgeEnd: 
    170149       call SendAcknowledge 
    171150keyscnlnkEnd: 
    172 $$:    call APP_POP_ERRORH 
    173        jr $F 
    174 disableLAEnd: 
    175        call DisableLinkAssist 
    176        jr $B 
     151       call APP_POP_ERRORH 
    177152keyscnlnkHandler: 
    178        ld a,1 
    179        call PutC 
    180        ld a,(iy+3Dh) 
    181        call DispHexA 
    182        ld a,(iy+3Eh) 
    183        call DispHexA 
    184        in a,(9) 
    185        call DispHexA 
    186        ld a,1 
    187        call PutC 
    188 $$: 
    189        di 
    190        ld a,4 
    191        call PutC 
     153       di 
    192154       call DisableLinkAssist 
    193155       pop af 
    … …  
    225187       jr keyscnlnkEnd 
    226188receivedVariableHeader: 
    227        ld a,99h 
    228        call DispHexA 
    229189       call ReceiveHeaderPacket 
    230        ld a,9Bh 
    231        call DispHexA 
    232190       ld a,(867Fh) 
    233191       cp 23h 
    … …  
    353311       ld (ioNewData),a 
    354312       ld hl,ioData 
    355        ld a,0A2h 
    356        call DispHexA 
    357313       jr $F 
    358314ReceiveDataPacket: 
    … …  
    379335       jp JErrorNo 
    380336receiveRestOfDataPacket: 
    381        ld a,0A0h 
    382        call DispHexA 
    383337       ld bc,(header+2) 
    384338       ld de,0 
    … …  
    434388       call RecAByteIO 
    435389       ld b,a 
    436        ld a,0A1h 
    437        call DispHexA 
    438390       pop af 
    439391       call ValidateChecksum 
    … …  
    467419       sbc hl,bc 
    468420       or a 
    469        ret 
     421       ret    ;UH?! 
    470422       jr nz,$F 
    471423       ret 
    … …  
    535487       ret 
    536488 
    537 Get3Bytes: 
    538        ld (header),a 
    539        bit 1,(iy+1Bh) 
    540        jr z,$F 
    541        cp 95h 
    542        jr Get3From4BytePacket 
    543 $$:    cp 73h 
    544        jr z,Get3From4BytePacket 
    545        cp 23h 
    546        jr z,Get3From4BytePacket 
    547        cp 74h 
    548        jr z,Get3From4BytePacket 
    549        cp 82h 
    550        jr z,Get3From4BytePacket 
    551        cp 02h 
    552        jr z,Get3From4BytePacket 
    553        cp 12h 
    554        jr z,Get3From4BytePacket 
    555        cp 83h 
    556        jr z,Get3From4BytePacket 
    557        cp 03h 
    558        jr z,Get3From4BytePacket 
    559        cp 13h 
    560        jr z,Get3From4BytePacket 
    561        cp 08h 
    562        jr z,Get3From4BytePacket 
    563        jr Get3From4BytePacket 
    564        call RecAByteIO 
    565        ld (header+1),a 
    566        cp 68h 
    567        jr z,$F 
    568        cp 47h 
    569        jr z,$F 
    570        cp 74h 
    571        jr z,$F 
    572        cp 2Dh 
    573        jr z,$F 
    574        jr $F 
    575        jp JErrorNo 
    576489Get4BytesNC: 
    577490       call Rec1stByteNC 
     491Get3Bytes: 
    578492       ld (header),a 
    579493Get3From4BytePacket: 
    580494       call RecAByteIO 
    581495       ld (header+1),a 
    582 $$:    call RecAByteIO 
     496       call RecAByteIO 
    583497       ld (header+2),a 
    584498       call RecAByteIO