Changeset 47 for trunk/page00/display.asm

Timestamp:

10/10/09 03:20:47 (3 years ago)

Author:

brandonlw

Message:

I'm reaching a point where I really need to be adding oncalc debugging tools, so I guess I'll start working on the system monitor and a basic menu system, rebuilding the APPS and PRGM menus to start with.
From there I can get a Calcsys-style hex editor in there and oncalc usb8x/USBTools-style logging.
Heck, maybe I can even transfer Calcsys TO it and execute at least part of it.
It's a lot of work and kind of off-track, but it's the only way I'm going to diagnose the dual booting and linking problems.

Files:

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

trunk/page00/display.asm

@@ -3 +3 @@
 
  PUBLIC AnimateRunIndicator,DispHexA,PutS,PutC,curBlink,SaveOScreen,DispHexHL,EraseEOL,ClrLCDFull
- PUBLIC _LCD_COMMAND,SetXAutoIncrementMode,SetYAutoIncrementMode,IPutSB,PutMap
+ PUBLIC _LCD_COMMAND,SetXAutoIncrementMode,SetYAutoIncrementMode,IPutSB,PutMap,ClrScrnFull,ClrTxtShd
  PUBLIC saveTR,restoreTR,showCursor,CursorOff,CursorOn,hideCursor,RunIndicOn,IPutC
- EXTERN IsAtEditTail,IsAtBtm,LCDDelay
+ EXTERN IsAtEditTail,IsAtBtm,LCDDelay,ATimes16
 
  include "includes\os2.inc"
@@ -16 +16 @@
 CursorOn:
 ;TODO: come back to these...
+       ret
+
+ClrScrnFull:
+       call ClrLCDFull
+ClrTxtShd:
+       bit appTextSave,(iy+appFlags)
+       ret z
+       ld hl,textShadow
+       ld (hl),' '
+       ld de,textShadow+1
+       ld bc,127
+       ldir
        ret
 
@@ -229 +241 @@
 ;TODO: get this using a built-in font table instead of this boot code hack
 PutC:
-       ld b,a
+       push af
+       push bc
+       push de
+       push hl
+       push ix
+       bit appTextSave,(iy+appFlags)
+       jr z,$F
+       call GetTextShadowOffset
+       ld (hl),a
+$$:    ld b,a
        in a,(6)
        push af
@@ -265 +286 @@
        ld a,b
        out (6),a
+       pop ix
+       pop hl
+       pop de
+       pop bc
+       pop af
+       ret
+GetTextShadowOffset:
+       push af
+       push bc
+       push de
+       ld hl,(curRow)
+       ld a,l
+       call ATimes16
+       add a,h
+       ld l,a
+       ld h,0
+       ld de,textShadow
+       add hl,de
+       pop de
+       pop bc
+       pop af
        ret