Code:
*-----------------------------------------------------------
* Title : Demo of Trap Task #11, Cursor Position
* Written by : Charles Kelly
* Date : June-10-2017
* Description: Moves the cursor and displays some text.
*-----------------------------------------------------------
ORG $1000
START:
* The high byte of D1.W holds the COL number (0-255).
* The low byte of D1.W holds the ROW number (0-128).
* 0,0 is top left.
move.b #11,D0 ; Cursor Position trap task.
move.w #$0A0A,D1 ; Column 10, Row 10.
trap #15 ; Move cursor.
move.b #6,D0 ; Display ASCII character from D1.b
move.b #'A',D1 ; Letter 'A'
trap #15 ; Display char
move.b #23,D0 ; Delay n/100 second. D1.L = n
move.l #100,D1 ; 1 second delay
trap #15 ; Perform delay
move.b #11,D0 ; Cursor Position trap task.
move.w #$140A,D1 ; Column 20, Row 10.
trap #15 ; Move cursor.
move.b #6,D0 ; Display ASCII character from D1.b
move.b #'B',D1 ; Letter 'B'
trap #15 ; Display char
move.b #23,D0 ; Delay n/100 second. D1.L = n
move.l #100,D1 ; 1 second delay
trap #15 ; Perform delay
move.b #11,D0 ; Cursor Position trap task.
move.w #$1414,D1 ; Column 20, Row 20.
trap #15 ; Move cursor.
move.b #6,D0 ; Display ASCII character from D1.b
move.b #'C',D1 ; Letter 'C'
trap #15 ; Display char
move.b #23,D0 ; Delay n/100 second. D1.L = n
move.l #100,D1 ; 1 second delay
trap #15 ; Perform delay
move.b #11,D0 ; Cursor Position trap task.
move.w #$0A14,D1 ; Column 10, Row 20.
trap #15 ; Move cursor.
move.b #6,D0 ; Display ASCII character from D1.b
move.b #'D',D1 ; Letter 'D'
trap #15 ; Display char
move.b #23,D0 ; Delay n/100 second. D1.L = n
move.l #100,D1 ; 1 second delay
trap #15 ; Perform delay
* Clear screen
move.b #11,D0 ; Clear screen
move.w #$FF00,D1
trap #15 ; Perform clear
bra START ; <<<<< INFINITE LOOP >>>>>
SIMHALT ; halt simulator
* Variables and constants
END START ; last line of source