Changeset 24 for trunk/page1C/linklow.asm

Timestamp:

08/02/09 01:27:02 (3 years ago)

Author:

brandonlw

Message:

More linking cleanup

Files:

• trunk/page1C/linklow.asm (modified) (10 diffs)

trunk/page1C/linklow.asm

@@ -11 +11 @@
        di
        call ReceiveByteToC
-       call RecAByteIO_1
-       ret c
-       ret nz
-       jr z,RecAByteIO
-RecAByteIO_1:
-;I think this is a TI-Keyboard routine, let it fail
-       cp 1
-       ld a,c
-;       jr nz,$F
-       cp 0E0h
-       ret nz
-       scf
+       ld a,c
        ret
 ReceiveByteToC:
@@ -29 +18 @@
        call NZIf83Plus
        jr z,ReceiveLAByteToC
-       ld de,0FFFh
+       ld de,0FFFFh
        jr startReceiveLoop
 receiveLoop:
@@ -74 +63 @@
        jr nz,$B
 $$:    djnz receiveByteLoop
-       ld a,0
+       xor a
        ret
 RBTC_1:ld a,2
@@ -93 +82 @@
        call ResetLATimeout
 $$:    xor a
-       ld (9C86h),a
+       ld (laTimer),a
        call NZIfTimeout
        jp nz,JErrorNo
-       in a,(9)
+       in a,(laStatusPort)
        bit 6,a
        jr nz,$F
        and 11h
        jr z,$B
-       in a,(0Ah)
+       in a,(laReceivePort)
        ld c,a
        ld a,0
@@ -107 +96 @@
 $$:    and 11h
        jp z,JErrorNo
-       in a,(0Ah)
+       in a,(laReceivePort)
        ld c,a
        ld a,1
@@ -115 +104 @@
        di
        res indicOnly,(iy+indicFlags)
-       ld a,5
+       ld a,lcdXAutoIncrementMode
        out (LCDinstPort),a
        ei
@@ -124 +113 @@
        ld a,c
        ret
-$$:    bit 4,(iy+9)
+$$:    bit onInterrupt,(iy+onFlags)
        jp nz,JErrorNo
        call HandleLinkKeyActivity
@@ -136 +125 @@
        ret
 LAReceiveByteToC:
-       bit 4,(iy+9)
+       bit onInterrupt,(iy+onFlags)
        jp nz,JErrorNo
        call HandleLinkKeyActivity
-       in a,(9)
+       in a,(laStatusPort)
        and 58h
        jr z,LAReceiveByteToC
@@ -148 +137 @@
        set indicOnly,(iy+indicFlags)
        di
-       res 5,(iy+3Dh)
        call NZIf83Plus
        jr nz,cgbNoAssist
        di
-       call ReceiveLAByteToC
-       ret
+       jr ReceiveLAByteToC
 cgbNoAssist:
        ld b,8
-       call ReceiveByteToC_Ready
-       ret
+       jr ReceiveByteToC_Ready
 
 Send4Bytes:
@@ -239 +225 @@
 sendByteLA_1:
        ld a,0FAh
-       ld (9C86h),a
-       in a,(9)
+       ld (laTimer),a
+       in a,(laStatusPort)
        bit 5,a
        jr z,$F
        ld a,c
-       out (0Dh),a
+       out (laSendPort),a
        ret
 $$:    call NZIfTimeout