Re: Nspire Compatibility
Posted: Sun 06 Dec, 2009 2:40 am
Does VDU 4 crash as well?
Code: Select all
; ========================================================================================
; VDU 4 DRAW TEXT AT TEXT CURSOR
; ========================================================================================
Vdu4
ld hl,(Text.4.PutMapNoWriteBuffer)
ld (Text.PutMapNoWritebuffer+1),hl
ld hl,(Text.4.PutMap)
ld (Text.PutMap+1),hl
ld hl,Text.Cursor.Up.Routine \ ld (Text.Cursor.Up+1),hl
ld hl,Text.Cursor.Down.Routine \ ld (Text.Cursor.Down+1),hl
ld hl,Text.Cursor.Left.Routine \ ld (Text.Cursor.Left+1),hl
ld hl,Text.Cursor.Right.Routine \ ld (Text.Cursor.Right+1),hl
ld hl,Text.Cursor.PutBlinking.Routine \ ld (Text.Cursor.PutBlinking+1),hl
ld hl,Text.Cursor.MoveToLeft.Routine \ ld (Vdu.Text.Cursor.MoveToLeft+1),hl
xor a
- ld (Text.GraphicalText),a
ret
; ========================================================================================
; VDU 5 DRAW TEXT AT GRAPHICS CURSOR
; ========================================================================================
Vdu5
ld hl,Text.Graphical.PutMap.Routine
ld (Text.PutMapNoWritebuffer+1),hl
ld (Text.PutMap+1),hl
ld hl,Text.Graphical.Cursor.Up.Routine \ ld (Text.Cursor.Up+1),hl
ld hl,Text.Graphical.Cursor.Down.Routine \ ld (Text.Cursor.Down+1),hl
ld hl,Text.Graphical.Cursor.Left.Routine \ ld (Text.Cursor.Left+1),hl
ld hl,Text.Graphical.Cursor.Right.Routine \ ld (Text.Cursor.Right+1),hl
ld hl,Text.Graphical.Cursor.PutBlinking.Routine \ ld (Text.Cursor.PutBlinking+1),hl
ld hl,Text.Graphical.Cursor.MoveToLeft.Routine \ ld (Vdu.Text.Cursor.MoveToLeft+1),hl
ld a,$FF
jr -