Changeset 29 for trunk/page00/boot.asm

Timestamp:

08/02/09 02:58:09 (3 years ago)

Author:

brandonlw

Message:

Add the screenshot packet response so we can start taking screenshots, and add some more to the proposed boot loader

Files:

• trunk/page00/boot.asm (modified) (3 diffs)

trunk/page00/boot.asm

@@ -103 +103 @@
        DB 23h,0Fh ;penCol coordinates for displaying OS version
 ;0064h:
-       DB "0.01 ",0
+       DB "0.01"
+OS2Marker:
+       DB 0   ;I have this set as 0, any other TI-OS version will have it set as a space
+       DB 0   ;This is a crude check, and hopefully temporary.
 Placeholder0006h_1:
        jp Placeholder0006h
@@ -464 +467 @@
        call ClrLCDFull
        res indicOnly,(iy+indicFlags)
+       in a,(statusPort)
+       and STATUS_NON_83P_MASK
+       jr z,$F                     ;no dual booting for you!
        call ReadKeypad
        cp skGraphvar
        jr z,StartBootLoader
-       ld hl,0
+$$:    ld hl,0
        ld (appBackUpScreen+50),hl
        ld (appBackUpScreen+52),hl
@@ -536 +542 @@
 
 StartBootLoader:
+       res indicOnly,(iy+indicFlags)
+       res curAble,(iy+curFlags)
+       call ClrLCDFull
        ld hl,0
        ld (curRow),hl
        ld hl,sBoot
+       call PutS
+       ld hl,2
+       ld (curRow),hl
+       call NZIfTIOSExists
+       jr nz,$F
+       ld hl,sStartTransfer
+       call PutS
+       jr ContinueBootLoader
+$$:    ld hl,sCurrently
+       call PutS
+       call IsOS2Running
+       ld hl,sOS2
+       jr z,$F
+       ld hl,sTIOS
+$$:    call PutS
+       ld hl,6
+       ld (curRow),hl
+       ld hl,sInstructions
+       call PutS
+ContinueBootLoader:
+       ld hl,7
+       ld (curRow),hl
+       ld hl,sClearToCancel
        call PutS
 BootLoaderKeyLoop:
        B_CALL GetKey
+       cp skClear
+       jr z,$F
        cp skYEqu
-       jr z,$F
+       jr z,SwitchOS
        jr BootLoaderKeyLoop
 $$:    call ClrLCDFull
        jr TurnCalculatorOn
+SwitchOS:
+       call IsOS2Running
+       jr z,SwitchToTIOS
+;Switch back to OS2
+       call ClrLCDFull
+       jr TurnCalculatorOn
+NZIfTIOSExists:
+       in a,(memPageAPort)
+       push af
+       ld a,70h
+       out (memPageAPort),a
+       ld hl,(4000h)
+       ld a,h
+       or l
+       pop bc
+       ld a,b
+       out (memPageAPort),a
+       ret
+IsOS2Running:
+       ld a,(OS2Marker)
+       or a
+       ret
 sBoot: DB "Select Boot OS",0CEh,0
+sCurrently:
+       DB "Currently: ",0
+sTIOS: DB "TI-OS",0
+sOS2:  DB "OS2",0
+sInstructions:
+       DB LlBrack,"Y=] to switch",0CEh,0
+sClearToCancel:
+       DB LlBrack,"CLEAR] to exit",0CEh,0
+sStartTransfer:
+       DB "TI-OS not found."
+       DB "Send via PC or  "
+       DB "other calculator"
+       DB "to enable dual  "
+       DB "booting.",0
+SwitchToTIOS:
+       ;TODO: Uh...not yet!
+       call ClrLCDFull
+       jr TurnCalculatorOn