Changeset 49 for trunk/page00/boot.asm

Timestamp:

10/11/09 00:42:34 (3 years ago)

Author:

brandonlw

Message:

Added a whole bunch of variable/memory management routines -- not complete, but we're close to being able to query, store, and manipulate variables and the VAT again

Files:

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

trunk/page00/boot.asm

@@ -6 +6 @@
  PUBLIC LdHLInd,BCALLRoutine,CheckForBootLoader,OS2Marker,AppInit
  EXTERN PutS,PutC,ifastcopy,CallUSBActivityHook,CheckLowBatteriesTurnOff,SaveOScreen
- EXTERN RunLinkActivityHook,HandleLinkKeyActivity,ResetStacks
+ EXTERN RunLinkActivityHook,HandleLinkKeyActivity,ResetStacks,_LCD_DRIVERON
  EXTERN _APP_PUSH_ERRORH,_APP_POP_ERRORH,FindSym,PushRealO1,Mov9ToOP1,FPAdd,OP1ToOP2,LCDDelay
  EXTERN Placeholder005Fh,Placeholder0006h,Placeholder004Eh,Placeholder0003h,Placeholder0035h
@@ -439 +439 @@
        ld iy,flags
        ;Do any other initialization
-       call SetContrast
        ;Appear "off"
        xor a
@@ -487 +486 @@
        ld (hl),0
        ldir
+       ld hl,0109h ;English
+       ld (localLanguage),hl
+       ld sp,0FFF7h
+       ld a,17h ;default contrast level
+       ld (contrast),a
+       call _LCD_DRIVERON
+       ld hl,0800h
+       ld (winTop),hl
+       B_CALL ClrScrnFull
+       ld hl,userMem
+       ld (tempMem),hl
+       ld (fpBase),hl
+       ld (FPS),hl
+       ld (newDataPtr),hl
+       ld hl,symTable
+       ld (pTemp),hl
+       ld (OPBase),hl
+       ld (OPS),hl
+       ld (progPtr),hl
+       ld hl,lcdTallP
+       ld (hl),64
+       inc hl
+       ld (hl),96
+       inc hl
+       ld (hl),95
+       inc hl
+       ld (hl),94
+       ld hl,_monErrorHandler
+       call APP_PUSH_ERRORH
+       ld (onSP),sp
 $$:    ;Screw up the RAM checksum so it's no longer valid
        dec de
@@ -505 +534 @@
        set apdAble,(iy+apdFlags)
        set apdRunning,(iy+apdFlags)
-       ld sp,0FFF7h
-       ld hl,0109h ;English
-       ld (localLanguage),hl
+       xor a
+       ld (menuCurrent),a
        ld a,appStart
        call _newContext0
-       ld hl,_monErrorHandler
-       call APP_PUSH_ERRORH
-       ld (onSP),sp
        call ResetStacks
-       xor a
-       ld (menuCurrent),a
        set appTextSave,(iy+appFlags)
 RestartMon: