git @ Cat's Eye Technologies BefOS / master src / kernel / screen.s
master

Tree @master (Download .tar.gz)

screen.s @master — raw · history · blame 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
;--- CONSTANTS -----------------------------------------------;

;--- DATA ----------------------------------------------------;

SEGMENT .bss

winbuf:		RESW	4096

SEGMENT	.data

winbufptr:	dw	winbuf

;--- CODE ----------------------------------------------------;

SEGMENT	.text

		;;--------------------------------------------;
		;; Given a row and a column, determine offset.
		;; al: row (0-based) -> GARBAGE
		;; ah: column (0-based) -> GARBAGE
		;; cx: * -> GARBAGE
		;; dx: * -> GARBAGE
		;; di: * -> offset
CalcScreenOffset:mov	cl, ah
		xor	ch, ch
		xor	ah, ah
		xor	dx, dx
		mul	word [bytesperline]
		shl	cx, 1
		add	ax, cx
		mov	di, ax
		ret



		;;--------------------------------------------;
		;; Save a row of the screen to a buffer.
		;; di: ptr to start of screen row -> INCREMENTED
		;; cl: length of row -> 0
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
SaveScreenRow:	mov	si, [winbufptr]
.Loop:		mov	ax, [es:di]
		mov	[ds:si], ax
		inc	di
		inc	di
		inc	si
		inc	si
		dec	cl
		jnz	.Loop
		mov	[winbufptr], si
		ret

		;;--------------------------------------------;
		;; Save a portion of the screen to a buffer.
		;; al: row (0-based) of upper-left corner ->
		;; ah: column (0-based) of upper-left corner ->
		;; bl: height of portion to save -> 0
		;; bh: width of portion to save ->
		;; cx: * -> GARBAGE
		;; di: * -> GARBAGE
SaveScreen:	push	ax
		push	bx
		call	CalcScreenOffset
.Loop:		mov	cl, bh
		push	di
		call	SaveScreenRow
		pop	di
		add	di, [bytesperline]
		dec	bl
		jnz	.Loop
		mov	di, [winbufptr]
		pop	bx
		pop	ax
		mov	[ds:di], ax
		inc	di
		inc	di
		mov	[ds:di], bx
		inc	di
		inc	di
		mov	[winbufptr], di
		ret


		;;--------------------------------------------;
		;; Restore a row of the screen from the buffer.
		;; di: ptr to start of screen row -> INCREMENTED
		;; cl: length of row -> 0
		;; ch: * -> GARBAGE
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
RestoreScreenRow:xor	ch, ch
		mov	si, [winbufptr]
		mov	ax, cx
		shl	ax, 1
		sub	si, ax
		mov	[winbufptr], si
.Loop:		mov	ax, [ds:si]
		mov	[es:di], ax
		inc	di
		inc	di
		inc	si
		inc	si
		dec	cl
		jnz	.Loop
		ret


		;;--------------------------------------------;
		;; Restore a portion of the screen from buffer.
		;; *: * -> GARBAGE
RestoreScreen:	mov	di, [winbufptr]
		dec	di
		dec	di
		mov	bx, [ds:di]		; bl = height, bh = width
		dec	di
		dec	di
		mov	ax, [ds:di]		; al = row, ah = column
		mov	[winbufptr], di
		add	al, bl			; work from bot to top!
		dec	al
		call	CalcScreenOffset	; di = offset
.Loop:		mov	cl, bh
		push	di
		call	RestoreScreenRow
		pop	di
		sub	di, [bytesperline]
		dec	bl
		jnz	.Loop
		ret

PopUpTest:	mov	ax, 200ah
		mov	bx, 0a05h
		call	SaveScreen

		mov	bh, 0
		mov	cx, 0a20h		; (10,32)-
		mov	dx, 0e29h		; (14,41)
		mov	ax, 0600h		; BIOS clear rectangle
		int	10h

		; draw a border here!

		call	GetKey
		
		call	RestoreScreen
		ret


;--- END -----------------------------------------------------;