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

Tree @master (Download .tar.gz)

pageprop.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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
;--- BEGIN ---------------------------------------------------;

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

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

SEGMENT	.data

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

SEGMENT	.bss

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

SEGMENT	.text

		;;--------------------------------------------;
		;; Displays the properties of the current page
		;; on the status bar, if there is room.
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
		;; di: * -> GARBAGE
		;; cx: * -> GARBAGE
DisplayProperties:mov	al, 1
		call	AssertStatusBar

		mov	di, 24			; position on screen
		mov	cx, 58			; length of bar
		mov	ax, 2020h		; attr + char
		call	DrawBar

;		mov	di, 0
;.Green:		mov	ax, di			; TODO: abstract into routine
;		shl	ax, 1
;		mov	si, ax			; si = di * 2
;		mov	ax, 2020h
;		mov	[es:si + 24], ax
;		inc	di
;		cmp	di, 58
;		jne	.Green

		mov	di, 0
		cmp	[cheader], word 0bef0h	; validate header ID.
		je	.Draw
		jmp	MoveCursor
						; TODO: abstract into routine.
.Draw:		mov	ax, di			; show file description.
		shl	ax, 1
		mov	si, ax			; si = di * 2
		mov	ah, 71h
		mov	al, [cheader + 32 + di]
		mov	[es:si + 100], ax
		inc	di
		cmp	di, 16
		jne	.Draw

		mov	ah, 71h
		mov	bx, [cheader+2]
		mov	di, 32
		call	DisplayShort

		mov	ah, 74h
		mov	bx, [cheader+4]
		call	DisplayShort

		mov	ah, 7ah
		mov	bx, [cheader+6]
		call	DisplayShort

		mov	ah, 7bh
		mov	bx, [cheader+8]
		call	DisplayShort

		mov	ah, 70h
		mov	bx, [cheader+10]
		call	DisplayShort

		jmp	MoveCursor



		;;--------------------------------------------;
		;; Edits the properties of the current page
		;; in the status bar, if there is room.
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
		;; di: * -> GARBAGE
EditPageProps:	call	EditModeOnly
		mov	al, 1
		call	AssertStatusBar

		cmp	[cheader], word 0bef0h	; first off validate header ID.
		jnz	.Abort
		mov	di, 0
		jmp	.Edit
.Abort:		jmp	BadLight
.Edit:		mov	ah, 71h
		mov	di, 100
		mov	cx, 16
		call	EditString
						; TODO: abstract into routine.
		mov	di, 0
.Save:		mov	ax, di			; read file description.
		shl	ax, 1
		mov	si, ax			; si = di * 2
		mov	ax, [es:si + 100]
		mov	[cheader + 32 + di], al
		inc	di
		cmp	di, 16
		jne	.Save

		mov	ah, 71h
		mov	bx, [cheader+2]
		push	bx
		mov	di, 32
		call	EditShort
		mov	[cheader+2], bx

		mov	ah, 74h
		mov	bx, [cheader+4]
		pop	bx
		call	EditShort
		mov	[cheader+4], bx

		mov	ah, 7ah
		mov	bx, [cheader+6]
		call	EditShort
		mov	[cheader+6], bx

		mov	ah, 7bh
		mov	bx, [cheader+8]
		call	EditShort
		mov	[cheader+8], bx

		mov	ah, 70h
		mov	bx, [cheader+10]
		call	EditShort
		mov	[cheader+10], bx

		jmp	MoveCursor


		;;--------------------------------------------;
		;; Initializes the properties of the page.
		;; Sets the signature to bef0h and zeroes out
		;; the page number links.
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
		;; di: * -> GARBAGE
InitPageProps:	call	EditModeOnly
		mov	[cheader], word 0bef0h
		xor	ax, ax
		mov	[cheader+2], ax
		mov	[cheader+4], ax
		mov	[cheader+6], ax
		mov	[cheader+8], ax
		mov	[cheader+10], ax
		jmp	DisplayProperties



		;;--------------------------------------------;
		;; Invalidates the properties of the page.
		;; Sets the signature to 0000h.
		;; ax: * -> GARBAGE
		;; si: * -> GARBAGE
		;; di: * -> GARBAGE
DelPageProps:	call	EditModeOnly
		mov	[cheader], word 0000h	; invalidate the header ID.
		jmp	DisplayProperties

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