Changeset 27

Timestamp:

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

Author:

brandonlw

Message:

Now you can hold [X,T,theta,n] when booting to go to a "Select Boot OS" screen, where you choose to either boot OS2 or the TI-OS (if present)
It doesn't actually do anything of course, but you can look at a different screen now if you hold the key down. Progress...

Location:

trunk

Files:

• page00/boot.asm (modified) (3 diffs)
• page00/input.asm (modified) (1 diff)
• page01/01base.asm (modified) (4 diffs)

trunk/page00/boot.asm

@@ -10 +10 @@
  EXTERN Placeholder005Fh,Placeholder0006h,Placeholder004Eh,Placeholder0003h,Placeholder0035h
  EXTERN outputPage,NZIf83Plus,_ZERO_PORT_3,_OUT_PORT_3,AnimateRunIndicator,PowerOff
- EXTERN DispHexA,DispHexHL,IPutC,ReadKeyboardKey
+ EXTERN DispHexA,DispHexHL,IPutC,ReadKeyboardKey,ReadKeypad
  EXTERN curBlink,resetAPDTimer,UpdateAPD,BCALL,BJUMP
  EXTERN _HandleDefaultUSBInterrupt,_ReadUSBInterruptData,_HandleUSBInterruptInitialize
@@ -462 +462 @@
        set onRunning,(iy+onFlags)
 ;Start the OS, minimal as it is
+       res indicOnly,(iy+indicFlags)
+       call ReadKeypad
+       cp skGraphvar
+       jr z,StartBootLoader
        ld hl,0
        ld (appBackUpScreen+50),hl
@@ -530 +534 @@
        DB "This is a test!",0
 
+StartBootLoader:
+       ld hl,6
+       ld (curRow),hl
+       ld hl,sBoot
+       call PutS
+       jr TurnCalculatorOn
+sBoot: DB "Boot Loader",0
+

trunk/page00/input.asm

@@ -4 +4 @@
  include "includes\os2.inc"
 
- PUBLIC ReadKeyboardKey,GetCSC,HandleLinkKeyActivity
+ PUBLIC ReadKeyboardKey,GetCSC,HandleLinkKeyActivity,ReadKeypad
  EXTERN NZIf83Plus
 

trunk/page01/01base.asm

@@ -8 +8 @@
 
 GetKey:
-       res 5,(iy+3Dh)
        in a,(2)
        and 80h
-       jr z,$F
+       jr z,GetKeyStart
        set linkAssistEnabled,(iy+linkAssistFlags)
        in a,(laStatusPort)
@@ -29 +28 @@
        ld a,80h
        out (8),a
-$$:
+GetKeyStart:
+       xor a
 GetKeyMainLoop:
        call DisplayShift
@@ -38 +38 @@
        xor a
        ret
-$$:    or a
+$$:    call GetCSC
+       or a
        jr nz,scanCodeFound
        call HandleLinkKeyActivity
@@ -44 +45 @@
        and 80h
        jr z,$F
-       ld a,(9CAFh)
-       or a
-       jr nz,isReceivingData
        bit 0,(iy+3Eh)
        jr z,$F
-       in a,(9)
+       in a,(laStatusPort)
        bit 6,a
        jr z,noError