Mercurial > hg > Members > kono > nitros9-code

changeset 2644:c953f1a62a67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated liber809 boot ROM to show screen and text...
author Boisy Pitre <boisy.pitre@nuance.com>
date Wed, 29 Feb 2012 22:34:24 -0600
parents d7cde3d3ccea
children 23ad0888c0f0
files level1/atari/bootfiles/makefile level1/atari/bootroms/liber809.asm
diffstat 2 files changed, 463 insertions(+), 33 deletions(-) [+]
line wrap: on
line diff
--- a/level1/atari/bootfiles/makefile	Tue Feb 28 23:44:57 2012 -0600
+++ b/level1/atari/bootfiles/makefile	Wed Feb 29 22:34:24 2012 -0600
@@ -17,7 +17,7 @@
 BOOTFILE_P2 = $(MD)/rbf.mn $(MD)/rbdw3.dr \
 		$(MD)/x0.dd $(MD)/x1.dd $(MD)/dw3.sb \
 		$(MD)/scdwp.dr $(MD)/p_scdwp.dd \
-		$(CD)/shell_21 $(CD)/ded $(CD)/iniz $(CD)/deiniz
+		$(CD)/shell_21
 
 BOOTFILES	= bootfile
 
--- a/level1/atari/bootroms/liber809.asm	Tue Feb 28 23:44:57 2012 -0600
+++ b/level1/atari/bootroms/liber809.asm	Wed Feb 29 22:34:24 2012 -0600
@@ -8,13 +8,12 @@
 
      use  atari.d
      use  drivewire.d
-     
-RAMDest      EQU  $4000			location of routine copied to RAM
+     use   atarivtio.d
+
+RAMDest      EQU  $1000			location of routine copied to RAM
 
 	org  $F000
 
-	
-
 *******************************************************
 * ROM CODE
 *
@@ -24,6 +23,9 @@
 RESETVct
 * mask interrupts, then prepare to copy routine into RAM
      	orcc	#$50
+     	lds	#$0100
+          bsr	ClearIO
+
           clr  D.IRQENSHDW		DW routines use this low-mem global, so we clear it
           leax Target,pcr
           ldu  #RAMDest	
@@ -36,8 +38,23 @@
           leay -1,y
           bne  loop@
 * this is our jumping off point into the RAM routine
-          jmp  RAMDest
+          jmp  >RAMDEST+(TargetEntry-Target)
           
+* clear the I/O space between $D000-$D3FFF
+ClearIO
+          clrb
+loop
+	     ldx		#$D000
+     	clr		b,x
+     	ldx		#$D200
+     	clr		b,x
+     	ldx		#$D300
+     	clr		b,x
+     	ldx		#$D400
+     	clr		b,x
+     	decb
+     	bne		loop
+     	rts
 
 *******************************************************
 * RAM CODE
@@ -45,13 +62,176 @@
 * This code is copied to lower RAM and executed there.
 *
 Target
+*          org  RAMDest
+* Character Set -- must be aligned on a 1K boundary!
+CharSet
+		fcb	$00,$00,$00,$00,$00,$00,$00,$00	;$00 - space
+		fcb	$00,$18,$18,$18,$18,$00,$18,$00	;$01 - !
+		fcb	$00,$66,$66,$66,$00,$00,$00,$00	;$02 - "
+		fcb	$00,$66,$FF,$66,$66,$FF,$66,$00	;$03 - #
+		fcb	$18,$3E,$60,$3C,$06,$7C,$18,$00	;$04 - $
+		fcb	$00,$66,$6C,$18,$30,$66,$46,$00	;$05 - %
+		fcb	$1C,$36,$1C,$38,$6F,$66,$3B,$00	;$06 - &
+		fcb	$00,$18,$18,$18,$00,$00,$00,$00	;$07 - '
+		fcb	$00,$0E,$1C,$18,$18,$1C,$0E,$00	;$08 - (
+		fcb	$00,$70,$38,$18,$18,$38,$70,$00	;$09 - )
+		fcb	$00,$66,$3C,$FF,$3C,$66,$00,$00	;$0A - asterisk
+		fcb	$00,$18,$18,$7E,$18,$18,$00,$00	;$0B - plus
+		fcb	$00,$00,$00,$00,$00,$18,$18,$30	;$0C - comma
+		fcb	$00,$00,$00,$7E,$00,$00,$00,$00	;$0D - minus
+		fcb	$00,$00,$00,$00,$00,$18,$18,$00	;$0E - period
+		fcb	$00,$06,$0C,$18,$30,$60,$40,$00	;$0F - /
+		
+		fcb	$00,$3C,$66,$6E,$76,$66,$3C,$00	;$10 - 0
+		fcb	$00,$18,$38,$18,$18,$18,$7E,$00	;$11 - 1
+		fcb	$00,$3C,$66,$0C,$18,$30,$7E,$00	;$12 - 2
+		fcb	$00,$7E,$0C,$18,$0C,$66,$3C,$00	;$13 - 3
+		fcb	$00,$0C,$1C,$3C,$6C,$7E,$0C,$00	;$14 - 4
+		fcb	$00,$7E,$60,$7C,$06,$66,$3C,$00	;$15 - 5
+		fcb	$00,$3C,$60,$7C,$66,$66,$3C,$00	;$16 - 6
+		fcb	$00,$7E,$06,$0C,$18,$30,$30,$00	;$17 - 7
+		fcb	$00,$3C,$66,$3C,$66,$66,$3C,$00	;$18 - 8
+		fcb	$00,$3C,$66,$3E,$06,$0C,$38,$00	;$19 - 9
+		fcb	$00,$00,$18,$18,$00,$18,$18,$00	;$1A - colon
+		fcb	$00,$00,$18,$18,$00,$18,$18,$30	;$1B - semicolon
+		fcb	$06,$0C,$18,$30,$18,$0C,$06,$00	;$1C - <
+		fcb	$00,$00,$7E,$00,$00,$7E,$00,$00	;$1D - =
+		fcb	$60,$30,$18,$0C,$18,$30,$60,$00	;$1E - >
+		fcb	$00,$3C,$66,$0C,$18,$00,$18,$00	;$1F - ?
+		
+		fcb	$00,$3C,$66,$6E,$6E,$60,$3E,$00	;$20 - @
+		fcb	$00,$18,$3C,$66,$66,$7E,$66,$00	;$21 - A
+		fcb	$00,$7C,$66,$7C,$66,$66,$7C,$00	;$22 - B
+		fcb	$00,$3C,$66,$60,$60,$66,$3C,$00	;$23 - C
+		fcb	$00,$78,$6C,$66,$66,$6C,$78,$00	;$24 - D
+		fcb	$00,$7E,$60,$7C,$60,$60,$7E,$00	;$25 - E
+		fcb	$00,$7E,$60,$7C,$60,$60,$60,$00	;$26 - F
+		fcb	$00,$3E,$60,$60,$6E,$66,$3E,$00	;$27 - G
+		fcb	$00,$66,$66,$7E,$66,$66,$66,$00	;$28 - H
+		fcb	$00,$7E,$18,$18,$18,$18,$7E,$00	;$29 - I
+		fcb	$00,$06,$06,$06,$06,$66,$3C,$00	;$2A - J
+		fcb	$00,$66,$6C,$78,$78,$6C,$66,$00	;$2B - K
+		fcb	$00,$60,$60,$60,$60,$60,$7E,$00	;$2C - L
+		fcb	$00,$63,$77,$7F,$6B,$63,$63,$00	;$2D - M
+		fcb	$00,$66,$76,$7E,$7E,$6E,$66,$00	;$2E - N
+		fcb	$00,$3C,$66,$66,$66,$66,$3C,$00	;$2F - O
+		
+		fcb	$00,$7C,$66,$66,$7C,$60,$60,$00	;$30 - P
+		fcb	$00,$3C,$66,$66,$66,$6C,$36,$00	;$31 - Q
+		fcb	$00,$7C,$66,$66,$7C,$6C,$66,$00	;$32 - R
+		fcb	$00,$3C,$60,$3C,$06,$06,$3C,$00	;$33 - S
+		fcb	$00,$7E,$18,$18,$18,$18,$18,$00	;$34 - T
+		fcb	$00,$66,$66,$66,$66,$66,$7E,$00	;$35 - U
+		fcb	$00,$66,$66,$66,$66,$3C,$18,$00	;$36 - V
+		fcb	$00,$63,$63,$6B,$7F,$77,$63,$00	;$37 - W
+		fcb	$00,$66,$66,$3C,$3C,$66,$66,$00	;$38 - X
+		fcb	$00,$66,$66,$3C,$18,$18,$18,$00	;$39 - Y
+		fcb	$00,$7E,$0C,$18,$30,$60,$7E,$00	;$3A - Z
+		fcb	$00,$1E,$18,$18,$18,$18,$1E,$00	;$3B - [
+		fcb	$00,$40,$60,$30,$18,$0C,$06,$00	;$3C - \
+		fcb	$00,$78,$18,$18,$18,$18,$78,$00	;$3D - ]
+		fcb	$00,$08,$1C,$36,$63,$00,$00,$00	;$3E - ^
+		fcb	$00,$00,$00,$00,$00,$00,$FF,$00	;$3F - underline
+		
+		fcb	$00,$18,$3C,$7E,$7E,$3C,$18,$00	;$60 - diamond card
+		fcb	$00,$00,$3C,$06,$3E,$66,$3E,$00	;$61 - a
+		fcb	$00,$60,$60,$7C,$66,$66,$7C,$00	;$62 - b
+		fcb	$00,$00,$3C,$60,$60,$60,$3C,$00	;$63 - c
+		fcb	$00,$06,$06,$3E,$66,$66,$3E,$00	;$64 - d
+		fcb	$00,$00,$3C,$66,$7E,$60,$3C,$00	;$65 - e
+		fcb	$00,$0E,$18,$3E,$18,$18,$18,$00	;$66 - f
+		fcb	$00,$00,$3E,$66,$66,$3E,$06,$7C	;$67 - g
+		fcb	$00,$60,$60,$7C,$66,$66,$66,$00	;$68 - h
+		fcb	$00,$18,$00,$38,$18,$18,$3C,$00	;$69 - i
+		fcb	$00,$06,$00,$06,$06,$06,$06,$3C	;$6A - j
+		fcb	$00,$60,$60,$6C,$78,$6C,$66,$00	;$6B - k
+		fcb	$00,$38,$18,$18,$18,$18,$3C,$00	;$6C - l
+		fcb	$00,$00,$66,$7F,$7F,$6B,$63,$00	;$6D - m
+		fcb	$00,$00,$7C,$66,$66,$66,$66,$00	;$6E - n
+		fcb	$00,$00,$3C,$66,$66,$66,$3C,$00	;$6F - o
+		
+		fcb	$00,$00,$7C,$66,$66,$7C,$60,$60	;$70 - p
+		fcb	$00,$00,$3E,$66,$66,$3E,$06,$06	;$71 - q
+		fcb	$00,$00,$7C,$66,$60,$60,$60,$00	;$72 - r
+		fcb	$00,$00,$3E,$60,$3C,$06,$7C,$00	;$73 - s
+		fcb	$00,$18,$7E,$18,$18,$18,$0E,$00	;$74 - t
+		fcb	$00,$00,$66,$66,$66,$66,$3E,$00	;$75 - u
+		fcb	$00,$00,$66,$66,$66,$3C,$18,$00	;$76 - v
+		fcb	$00,$00,$63,$6B,$7F,$3E,$36,$00	;$77 - w
+		fcb	$00,$00,$66,$3C,$18,$3C,$66,$00	;$78 - x
+		fcb	$00,$00,$66,$66,$66,$3E,$0C,$78	;$79 - y
+		fcb	$00,$00,$7E,$0C,$18,$30,$7E,$00	;$7A - z
+		fcb	$00,$18,$3C,$7E,$7E,$18,$3C,$00	;$7B - spade card
+		fcb	$18,$18,$18,$18,$18,$18,$18,$18	;$7C - |
+		fcb	$00,$7E,$78,$7C,$6E,$66,$06,$00	;$7D - display clear
+		fcb	$08,$18,$38,$78,$38,$18,$08,$00	;$7E - display backspace
+		fcb	$10,$18,$1C,$1E,$1C,$18,$10,$00	;$7F - display tab
+
+		fcb	$00,$36,$7F,$7F,$3E,$1C,$08,$00	;$40 - heart card
+		fcb	$18,$18,$18,$1F,$1F,$18,$18,$18	;$41 - mid left window
+		fcb	$03,$03,$03,$03,$03,$03,$03,$03	;$42 - right box
+		fcb	$18,$18,$18,$F8,$F8,$00,$00,$00	;$43 - low right window
+		fcb	$18,$18,$18,$F8,$F8,$18,$18,$18	;$44 - mid right window
+		fcb	$00,$00,$00,$F8,$F8,$18,$18,$18	;$45 - up right window
+		fcb	$03,$07,$0E,$1C,$38,$70,$E0,$C0	;$46 - right slant box
+		fcb	$C0,$E0,$70,$38,$1C,$0E,$07,$03	;$47 - left slant box
+		fcb	$01,$03,$07,$0F,$1F,$3F,$7F,$FF	;$48 - right slant solid
+		fcb	$00,$00,$00,$00,$0F,$0F,$0F,$0F	;$49 - low right solid
+		fcb	$80,$C0,$E0,$F0,$F8,$FC,$FE,$FF	;$4A - left slant solid
+		fcb	$0F,$0F,$0F,$0F,$00,$00,$00,$00	;$4B - up right solid
+		fcb	$F0,$F0,$F0,$F0,$00,$00,$00,$00	;$4C - up left solid
+		fcb	$FF,$FF,$00,$00,$00,$00,$00,$00	;$4D - top box
+		fcb	$00,$00,$00,$00,$00,$00,$FF,$FF	;$4E - bottom box
+		fcb	$00,$00,$00,$00,$F0,$F0,$F0,$F0	;$4F - low left solid
+		
+		fcb	$00,$1C,$1C,$77,$77,$08,$1C,$00	;$50 - club card
+		fcb	$00,$00,$00,$1F,$1F,$18,$18,$18	;$51 - up left window
+		fcb	$00,$00,$00,$FF,$FF,$00,$00,$00	;$52 - mid box
+		fcb	$18,$18,$18,$FF,$FF,$18,$18,$18	;$53 - mid window
+		fcb	$00,$00,$3C,$7E,$7E,$7E,$3C,$00	;$54 - solid circle
+		fcb	$00,$00,$00,$00,$FF,$FF,$FF,$FF	;$55 - bottom solid
+		fcb	$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0	;$56 - left box
+		fcb	$00,$00,$00,$FF,$FF,$18,$18,$18	;$57 - up mid window
+		fcb	$18,$18,$18,$FF,$FF,$00,$00,$00	;$58 - low mid window
+		fcb	$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0	;$59 - left solid
+		fcb	$18,$18,$18,$1F,$1F,$00,$00,$00	;$5A - low left window
+		fcb	$78,$60,$78,$60,$7E,$18,$1E,$00	;$5B - display escape
+		fcb	$00,$18,$3C,$7E,$18,$18,$18,$00	;$5C - up arrow
+		fcb	$00,$18,$18,$18,$7E,$3C,$18,$00	;$5D - down arrow
+		fcb	$00,$18,$30,$7E,$30,$18,$00,$00	;$5E - left arrow
+		fcb	$00,$18,$0C,$7E,$0C,$18,$00,$00	;$5F - right arrow
+
+* The display list sets up the ANTIC chip to display the main screen. 
+* It is copied to the Atari Screen Area in low memory (see atari.d)
+* The size of this code MUST be <= G.DListSize
+DList
+		fcb	$70,$70,$70	3 * 8 blank scanlines
+		fcb	$42			Mode 2 with LMS (Load Memory Scan).  Mode 2 = 40 column hires text, next 2 bytes L/H determine screen origin
+		fdbs	G.ScrStart+(G.Cols*0)		origin
+		fcb	2,2,2,2,2,2,2,2,2,2
+		fcb	2,2,2,2,2,2,2,2,2,2
+		fcb	2,2,2
+* 23 extra mode 2 lines for total of 24.  240 scanlines can be used for display area, but a hires line cannot be on scanline 240 due to an Antic bug
+		fcb	$41			this is the end of Display List command JVB (Jump and wait for Vertical Blank)
+         	fdbs RAMDest+(DList-Target)
+
+
+SignOn    fcc  "Liber809 Boot ROM for the Atari XL/XE"
+          fcb  $0D,$0A
+          fcc  "Copyright (C) 2012 Boisy G. Pitre"
+          fcb  $0D,$0A
+          fcc  00
+          
 * setup the stack and the Atari hardware
-     	lds	#$0100
-          lbsr	ClearIO
+TargetEntry
+          ldu  #$400
      	lbsr SetupPIA
           lbsr	SetupPOKEY
           lbsr SetupSerial
           lbsr	SetupANTIC
+          
+          leax SignOn,pcr
+          lbsr WriteString
 
 * Put Atari into All RAM mode
           clr  $D40E
@@ -70,7 +250,6 @@
           ldx  #$8000
           ldy  #$0000
 ReadLoop
-*          bsr  Wait
 * Send Read Command
           cmpy #$0050
           bne  keepon
@@ -109,22 +288,33 @@
           clra
           lbsr DWRead          
           puls a,x,y
-          bcs  readerr
+          bcs  ReadLoop
           tsta
           bne  ReadLoop
+          pshs x,y
+          lda  #'.
+          lbsr WriteChar
+          puls x,y
           leax $100,x
           leay 1,y
           cmpx #$0000
           bne  ReadLoop
           ldx  -2,x
 
+          leax JumpMsg,pcr
+          lbsr WriteString
+          
           jmp  [>$FFFE]
 
+JumpMsg   fcb  $0D,$0A
+          fcc  "Jumping into Kernel..."
+          fcb  0
+
 checkerr
 * redo transfer
           leax -$100,x
           leay -1,y
-          bra  ReadLoop
+          lbra ReadLoop
           
 readerr
 
@@ -135,6 +325,7 @@
           cmpx ,s
           bra  gl@
 
+
 SetupPIA
 		  LDA	  #$38		  ;LOOK AT DATA DIRECTION REGISTERS IN PIA
 		  STA	  PACTL
@@ -148,23 +339,6 @@
 		  STA	  PBCTL
           rts
           
-* clear the I/O space between $D000-$D3FFF
-ClearIO
-          clrb
-loop
-	     ldx		#$D000
-     	clr		b,x
-     	ldx		#$D200
-     	clr		b,x
-     	ldx		#$D300
-     	clr		b,x
-     	ldx		#$D400
-     	clr		b,x
-     	decb
-     	bne		loop
-     	rts
-
-
 * setup POKEY here
 SetupPOKEY
      	lda		#3
@@ -190,11 +364,269 @@
           
 * setup ANTIC here
 SetupANTIC
-     	lda		#$46
-     	sta		COLBK
-     	rts
+		leax	ChkSpc,pcr
+		stx	V.EscVect,u
+
+* setup static vars
+		clra
+		clrb
+		std	V.CurRow,u
+
+* Clear screen memory
+          ldd  #G.ScrStart+(G.Rows*G.Cols)
+          pshs d
+          ldy  #G.ScrStart
+          ldd  #$0000
+clearLoop@
+     	std	,y++
+     	cmpy	,s
+     	bne	clearLoop@
+     	puls d
+     	
+* tell the ANTIC where the dlist is
+		ldd	#RAMDest+(DList-Target)
+		exg  a,b
+		std	DLISTL
+
+* tell the ANTIC where the character set is (page aligned, currently in Krn)		
+		lda	#RAMDest>>8
+		sta	CHBASE
+		
+* set background color
+		lda	#$00
+ 		sta	COLBK
+
+* set text color
+		lda	#$0F
+* 		sta	COLPF0
+ 		sta	COLPF1
+* 		sta	COLPF3
+		lda	#$94
+ 		sta	COLPF2
+ 		
+* tell ANTIC to start DMA
+		lda	#$22
+ 		sta	DMACTL
+
+* tell ANTIC to enable character set 2
+		lda	#$02
+ 		sta	CHACTL
+done     	rts
+
+* X = nul-terminated string to write
+WriteString
+          lda  ,x+
+          beq  done
+          pshs x
+          bsr  WriteChar
+          puls x
+          bra  WriteString
+          
+
+WriteChar
+		bsr		hidecursor		
+
+		ldx		V.EscVect,u
+		jmp		,x
+
+ChkSpc
+		cmpa		#$20 			space or greater?
+		bcs		ChkESC			branch if not
+		
+wchar	suba		#$20
+		pshs		a
+		lda		V.CurRow,u
+		ldb		#G.Cols
+		mul
+		addb		V.CurCol,u
+		adca		#0
+		ldx		#G.ScrStart
+		leax		d,x
+		puls		a
+		sta		,x
+		ldd		V.CurRow,u
+		incb
+		cmpb		#G.Cols
+		blt		ok
+		clrb
+incrow
+		inca
+		cmpa		#G.Rows
+		blt		clrline
+SCROLL	EQU		1
+		IFNE		SCROLL
+		deca						set A to G.Rows - 1
+		pshs		d				save off Row/Col
+		ldx		#G.ScrStart		get start of screen memory
+		ldy		#G.Cols*(G.Rows-1)	set Y to size of screen minus last row
+scroll_loop
+		ldd		G.Cols,x			get two bytes on next row
+		std		,x++				store on this row
+		leay		-2,y				decrement Y
+		bne		scroll_loop		branch if not 0
+		puls		d				recover Row/Col
+		ELSE
+		clra
+		ENDC
+* clear line
+clrline	std		V.CurRow,u
+		bsr		DelLine
+		bra		drawcursor
+ok		std		V.CurRow,u
+		bra		drawcursor
+		
+* calculates the cursor location in screen memory
+* Exit: X = address of cursor
+*       All other regs preserved
+calcloc
+		pshs		d
+		lda		V.CurRow,u
+		ldb		#G.Cols
+		mul
+		addb		V.CurCol,u
+		adca		#0
+		ldx		#G.ScrStart
+		leax		d,x
+		puls		d,pc
 
+drawcursor
+*		bsr		calcloc
+*		lda		,x
+*		sta		V.CurChr,u
+*		lda		#$80
+*		sta		,x
+		rts
 
+hidecursor
+		pshs		a
+*		bsr		calcloc
+*		lda		V.CurChr,u
+*		sta		,x
+		puls		a,pc
+
+ChkESC
+		cmpa	#$1B			ESC?
+		lbeq	EscHandler
+		cmpa  #$0D		$0D?
+		bhi   drawcursor	branch if higher than
+		leax  <DCodeTbl,pcr	deal with screen codes
+		lsla  			adjust for table entry size
+		ldd   a,x		get address in D
+		jmp   d,x		and jump to routine
+
+* display functions dispatch table
+DCodeTbl	fdb   NoOp-DCodeTbl			$00:no-op (null)
+		fdb   CurHome-DCodeTbl		$01:HOME cursor
+		fdb   CurXY-DCodeTbl		$02:CURSOR XY
+		fdb   DelLine-DCodeTbl		$03:ERASE LINE
+		fdb   ErEOLine-DCodeTbl		$04:CLEAR TO EOL
+		fdb   Do05-DCodeTbl			$05:CURSOR ON/OFF
+		fdb   CurRght-DCodeTbl		$005e  $06:CURSOR RIGHT
+		fdb   NoOp-DCodeTbl			$07:no-op (bel:handled in VTIO)
+		fdb   CurLeft-DCodeTbl		$08:CURSOR LEFT
+		fdb   CurUp-DCodeTbl		$09:CURSOR UP
+		fdb   CurDown-DCodeTbl		$0A:CURSOR DOWN
+		fdb   ErEOScrn-DCodeTbl		$0B:ERASE TO EOS
+		fdb   ClrScrn-DCodeTbl		$0C:CLEAR SCREEN
+		fdb   Retrn-DCodeTbl		$0D:RETURN
+         
+DelLine
+		lda		V.CurRow,u
+		ldb		#G.Cols
+		mul
+		ldx		#G.ScrStart
+		leax		d,x
+		lda		#G.Cols
+clrloop@	clr		,x+
+		deca
+		bne		clrloop@
+		rts
+		
+ClrScrn
+ErEOScrn
+CurUp
+NoOp
+CurHome
+CurXY
+ErEOLine
+Do05
+CurRght
+		bra		drawcursor
+
+CurLeft
+		ldd		V.CurRow,u
+		beq		leave
+		decb
+		bpl		erasechar
+		ldb		#G.Cols-1
+		deca
+		bpl		erasechar
+		clra
+erasechar
+		std		V.CurRow,u
+		ldb		#G.Cols
+		mul
+		addb		V.CurCol,u
+		adca		#0
+		ldx		#G.ScrStart
+		leax		d,x
+		clr		1,x
+		
+leave	ldd		V.CurRow,u
+		lbra		drawcursor
+
+CurDown
+		ldd		V.CurRow,u
+		lbra		incrow
+
+Retrn
+		lda		V.CurRow,u
+		ldb		#G.Cols
+		mul
+		addb		V.CurCol,u
+		adca		#0
+		ldx		#G.ScrStart
+		leax		d,x
+		lda		#$00
+		sta		,x
+		clr		V.CurCol,u
+		lbra		drawcursor
+
+EscHandler
+		leax		EscHandler2,pcr
+eschandlerout
+		stx		V.EscVect,u
+		lbra		drawcursor
+
+EscHandler2
+		sta		V.EscCh1,u
+		leax		EscHandler3,pcr
+		bra		eschandlerout
+
+EscHandler3
+		ldb		V.EscCh1,u
+		cmpb		#$32
+		beq		DoFore
+		cmpb		#$33
+		beq		DoBack
+		cmpb		#$34
+		beq		DoBord
+eschandler3out
+		leax		ChkSpc,pcr
+		bra		eschandlerout
+
+DoFore
+*		sta		COLPF0
+		sta		COLPF1
+*		sta		COLPF3
+		bra		eschandler3out
+DoBack
+		sta		COLPF2
+		bra		eschandler3out
+DoBord
+		sta		COLBK
+		bra		eschandler3out
+		
 
 * DriveWire read/write routines for SIO are here
           use  dwread.asm
@@ -213,8 +645,6 @@
 * End of our RAM-based routine
 TargetL   equ  *-Target
 
-
-
 * 6809 Vectors - these go at the very last 16 bytes of ROM
 	fill	$FF,$FFF0-*
 	fdb		$0000		Reserved