Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Julie Stamp
TaskWindow
Commits
4ca6567b
Commit
4ca6567b
authored
26 years ago
by
Mike Stephens
Browse files
Options
Download
Email Patches
Plain Diff
- increase readline buffers to 1k (was 256)
- update to Ursula format (service table)
parent
4112b2ad
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
30 additions
and
13 deletions
+30
-13
Version
Version
+3
-3
s/Taskman
s/Taskman
+27
-10
No files found.
Version
View file @
4ca6567b
...
...
@@ -4,8 +4,8 @@
GBLS VString
GBLS Date
Version SETA 05
6
VString SETS "0.5
6
"
Date SETS "
1
7
Jan
199
7
"
Version SETA 05
7
VString SETS "0.5
7
"
Date SETS "
2
7
Mar
199
8
"
END
This diff is collapsed.
Click to expand it.
s/Taskman
View file @
4ca6567b
...
...
@@ -308,9 +308,6 @@ ESend * 17
ESendRec
*
18
EAck
*
19
;
; Module service codes
;
Module_Memory
*
&11
;
TaskWindow_SWIBase
EQU
&43380
; *********************** Module code starts here *****************************
...
...
@@ -870,7 +867,29 @@ MyWord
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ServiceTable
DCD
0
; flags
DCD
Code_UServiceEntry
-
Code_ModuleBase
DCD
Service_Memory
[
DoingSwi
DCD
Service_Reset
]
DCD
Service_WimpCloseDown
DCD
Service_WimpReportError
DCD
0
; terminator
DCD
ServiceTable
-
Code_ModuleBase
; table anchor
;
Code_ServiceEntry
ROUT
MOV
r0
,
r0
; magic intruction
TEQ
r1
,
#
Service_Memory
[
DoingSwi
TEQNE
r1
,
#
Service_Reset
]
TEQNE
r1
,
#
Service_WimpCloseDown
TEQNE
r1
,
#
Service_WimpReportError
MOVNES
PC
,
LR
;
Code_UServiceEntry
;
; Entry:- r1 = service number
; r2 = CAO if r1 = &11 (Memory)
...
...
@@ -894,18 +913,16 @@ Code_ServiceEntry ROUT
TEQ
r1
,
#
Service_Reset
BEQ
svc_reset
]
TEQ
r1
,
#
Module_Memory
MOVNES
pc
,
r14
;else fall through to handle Service_Memory
LDR
r1
,
FirstWord
TEQ
r1
,
#
0
; Are we active?
MOVEQ
r1
,
#
Modul
e_Memory
MOVEQ
r1
,
#
Servic
e_Memory
MOVEQS
pc
,
r14
; Return if not
CMP
r0
,
#-
64
*
&100000
; check for Wimp's magic value
ADREQL
r1
,
Code_ModuleBase
; we don't require memory otherwise
CMPEQ
r2
,
r1
; Is it us?
MOVNE
r1
,
#
Modul
e_Memory
MOVNE
r1
,
#
Servic
e_Memory
MOVEQ
r1
,
#
0
MOVS
pc
,
r14
; Return if not
10
...
...
@@ -2283,7 +2300,7 @@ Code_NewCommand
SWI
OS_WriteN
ADR
r0
,
ReadLineBuffer
MOV
r1
,
#
&
10
0
; Max length
MOV
r1
,
#
10
24
; Max length
(changed for Ursula, was 256)
MOV
r2
,
#
" "
; Lowest character
MOV
r3
,
#
&FF
; Highest
SWI
XOS_ReadLine
; Read
...
...
@@ -5298,7 +5315,7 @@ MyDomain Word
WHILE
((:INDEX:
@
)
:MOD:
16
)
<>
0
#
4
WEND
ReadLineBuffer
Word
65
ReadLineBuffer
Word
257
; changed for Ursula (was
65
)
InkeyCount
Word
Moribund
Word
; Task to be killed at some appropriate time
Suspended
Word
; Task inactive at the moment, waiting
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment