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

Tree @master (Download .tar.gz)

dataedit.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
;--- BEGIN ---------------------------------------------------;

;--- CONSTANTS -----------------------------------------------;

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

SEGMENT	.data

;--- BSS -----------------------------------------------------;

SEGMENT	.bss

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

SEGMENT	.text

		;;--------------------------------------------;
		;; Allow user to change a 16-bit value displayed
		;; on-screen as a hexadecimal integer.
		;; ah: attributes -> GARBAGE
		;; al: * -> GARBAGE
		;; bx: number to edit -> edited number
		;; di: location on screen -> INCREMENTED
		;; cx: * -> GARBAGE
		;; dx: * -> GARBAGE
EditShort:	mov	[attr], ah
		mov	[temp2], bx
		mov	[temp], di
		call	DisplayShort

		mov	ax, [temp]
		shr	ax, 1
		mov	[temp], di

.Cur:		xor	dx, dx			; TODO: abstract
		mov	bx, 80
		div	bx
		mov	dh, al
		add	dl, 3			; cursor to right of num
		mov	ah, 02h
		mov	bh, 00h
		int	10h			; cursor gotoxy

						; loop and modify temp2
.Select:	call	GetKey
		cmp	cl, 13
		je	.Done

		mov	al, cl
		call	HexToNybble
		test	al, 10h
		jnz	.Select

.AnyDigit:	shl	word [temp2], 4
		or	[temp2], al

		mov	bx, [temp2]
		mov	ax, [temp]
		sub	ax, 8
		mov	di, ax
		mov	ah, [attr]
		call	DisplayShort

		jmp	.Select

.Done:		mov	di, [temp]		; restore registers
		mov	bx, [temp2]
		ret


		;;--------------------------------------------;
		;; Allow user to change a string on-screen.
		;; ah: attributes -> GARBAGE
		;; al: * -> GARBAGE
		;; bx: * -> GARBAGE
		;; di: location on screen -> ???
		;; cx: length of string -> GARBAGE
		;; dx: * -> GARBAGE
EditString:	mov	[attr], ah
		mov	[temp], di
		mov	[templen], cx

		mov	dx, 0

.Cur:		mov	ax, [temp]
		shr	ax, 1
		add	ax, dx
		mov	[temp2], dx

		xor	dx, dx
		mov	bx, 80
		div	bx
		mov	dh, al
		mov	ah, 02h
		mov	bh, 00h
		int	10h			; cursor gotoxy

						; loop and modify temp2
.Select:	xor	ah, ah			; get a key
		int	16h
		mov	[keyhit], ax

		cmp	ax, 4b00h
		jne	.Next1

		mov	dx, [temp2]
		cmp	dx, 0
		je	.CarryOn
		dec	dx
		jmp	.CarryOn

.Next1:		cmp	ax, 4d00h
		jne	.Next2

		mov	dx, [temp2]
		inc	dx
		jmp	.CarryOn

.Next2:		cmp	al, 13
		je	.Bail

;		mov	bx, ax
;		mov	ah, 07h
;		mov	di, 140
;		call	DisplayShort

		mov	dx, [temp2]
		shl	dx, 1
		mov	di, [temp]
		add	di, dx
		mov	ah, [attr]
		mov	[es:di], ax

		mov	dx, [temp2]
		inc	dx
.CarryOn:	mov	cx, [templen]
		cmp	dx, cx
		je	.Bail

		jmp	.Cur

.Bail:		mov	di, [temp]		; restore registers
		mov	bx, [temp2]
		ret

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