Changeset 34 for trunk/page1C/silentlink.asm

Timestamp:

08/03/09 04:24:45 (3 years ago)

Author:

brandonlw

Message:

Some code to actually write the received TI-OS to Flash
It (almost) works, as far as I can tell

Files:

• trunk/page1C/silentlink.asm (modified) (5 diffs)

trunk/page1C/silentlink.asm

@@ -8 +8 @@
  EXTERN JErrorNo,NZIf83Plus,CheckLinkLines,EnableLinkAssist,DisableLinkAssist,ContinueGetByte,Get3Bytes
  EXTERN DispHexA,LdHLInd,SendAcknowledge,ReceiveHeaderPacket,SendSkipExitPacket,Get4BytesNC,SendCommandA
- EXTERN Send4Bytes,SendCAndAddToChecksum,LCDDelay,_LCD_COMMAND,SendAByte,SetXAutoIncrementMode
- EXTERN SetYAutoIncrementMode,SendContinue,ReceiveDataPacket,DispHexHL
+ EXTERN Send4Bytes,SendCAndAddToChecksum,LCDDelay,_LCD_COMMAND,SendAByte,SetXAutoIncrementMode,EraseRAMPage
+ EXTERN SetYAutoIncrementMode,SendContinue,ReceiveDataPacket,DispHexHL,PutC,receiveRestOfDataPacket
+ EXTERN CopyToRAMPage,CopyRAMToFlashPage,EraseEOL,PowerOff
 
 keyscnlnk:
@@ -97 +98 @@
        DB 6Dh
        DW screenshotPacket
+       DB 15h                             ;this is garbage
+       DW keyscnlnkEnd
 cmdTableEnd:
 
@@ -167 +170 @@
        bit receiveTIOS,(iy+linkFlags2)
        jr z,ReceiveNewOS
+       ;Wipe the extra RAM pages
+       ld a,84h
+       call EraseRAMPage
+       ld a,85h
+       call EraseRAMPage
+       ld a,86h
+       call EraseRAMPage
+       ld a,87h
+       call EraseRAMPage
+;Receive a copy of the TI-OS to the spare Flash sectors
+       ld a,0FFh
+       ld (appSearchPage),a
+;Back up pages 68h and 69h to RAM pages 04h and 05h
+       in a,(modelPort)
+       and 3
+       ld a,68h
+       jr nz,$F
+       ld a,38h
+$$:    ld b,04h
+       push af
+       push bc
+       call CopyToRAMPage
+       pop bc
+       pop af
+       push af
+       inc a
+       inc b
+       call CopyToRAMPage
+       pop af
+       push af
+;Erase sector 68h
+       B_CALL EraseFlashPage
+       pop bc
+;Copy from RAM pages 04h and 05h back to pages 68h and 69h
+       ld a,04h
+       push af
+       push bc
+       call CopyRAMToFlashPage
+       pop bc
+       pop af
+       inc a
+       inc b
+       call CopyRAMToFlashPage
        ld hl,receiveTIOSHandler
        call APP_PUSH_ERRORH
-;TODO: actually implement all of this
 ReceiveOSPage:
        ld hl,(curRow)
@@ -179 +224 @@
        ld hl,(ioData+6)
        call DispHexHL
+       call EraseEOL
        pop hl
        ld (curRow),hl
+       ld a,(ioData+8)
+       ld hl,(ioData+6)
+       ld b,a
+       cp 08h
+       jr c,$F
+       in a,(statusPort)
+       and STATUS_NON_83P_MASK
+       ld a,b
+       jr z,$F
+       in a,(modelPort)
+       and 3
+       ld a,b
+       jr z,is84P
+       or 60h
+       jr $F
+is84P: or 30h
+$$:    ;Maybe erase this sector (only if it's 04h, 74h, 78h)
+       push af
+       push hl
+       ld b,a
+       ld a,(appSearchPage)
+       cp b
+       jr z,noSectorErase
+       ld a,b
+       ld (appSearchPage),a
+       cp 04h
+       jr z,$F
+       cp 34h
+       jr z,$F
+       cp 74h
+       jr z,$F
+       cp 18h
+       jr z,$F
+       cp 38h
+       jr z,$F
+       cp 78h
+       jr z,$F
+       jr noSectorErase
+$$:    B_CALL EraseFlashPage
+noSectorErase:
        call SendContinue
        ld bc,(ioData)
+       ld de,appData
+       push bc
+       push de
+       call ReceiveDataPacket
+       pop de
+       pop bc
+       pop de
+       pop af
+       ;Write BC bytes from appData to ADE
+       push bc
+       cp 04h
+       jr nc,$F
+       ;This is part of sector 0, translate it to the extra RAM pages and write it
+       ld hl,6
+       ld (curRow),hl
+       push af
+       ld a,5
+       call PutC
+       pop af
+       pop bc
+       ld hl,8000h
+       add hl,de
+       ex de,hl
        ld hl,appData
-       ld (iMathPtr5),hl
-       call ReceiveDataPacket
+       di
+       out (5),a
+       ldir
+       xor a
+       out (5),a
+       jr dataWritten
+$$:    ;Is this page 7Ch or 7Dh? If so, change it to 6Ah or 6Bh
+       push af
+       ld a,6
+       call PutC
+       pop af
+       cp 7Ch
+       ld b,6Ah
+       jr z,translatePage
+       cp 3Ch
+       ld b,3Ah
+       jr z,translatePage
+       cp 7Dh
+       ld b,6Bh
+       jr z,translatePage
+       cp 3Dh
+       ld b,3Bh
+       jr z,translatePage
+$$:    ;Just write it
+       pop bc
+       ld hl,appData
+       B_CALL WriteFlash
+       jr dataWritten
+translatePage:
+       ld a,b
+       jr $B
+dataWritten:
        call Get4BytesNC
        ld a,(header+1)
@@ -193 +332 @@
        jr ReceiveOSPage
 $$:    call SendAcknowledge
-;Receive a copy of the TI-OS to the spare Flash sectors
 ;Patch the received TI-OS to not erase sector 70h (where we will be backed up)
 ;Put the [X,T,theta,N] boot loader in page 0
        call APP_POP_ERRORH
+       ;Seems like the most sensible thing to do after receiving the TI-OS is just shut off
+       call PowerOff
 receiveTIOSHandler:
        jr keyscnlnkEnd