� > <Basic$Path>Shell
�
:
(>� Main procedure: assemble code, read environment variable
2� �Assemble_Shell
<,� A$,P%,O%,I%:� O% 1000,Shell_String 256
Fș"OS_GetEnv" � A$
P$ȕ�A$,1)<>" "��A$<>0 A$=�A$,2):�
Zȕ�A$,1)=" " A$=�A$,2):�
dȕ�A$,1)=" " A$=�A$):�
n&�Shell_String_UC(�A$,5))="-QUIT"�
x.A$=�A$,7):ȕ�A$,1)<>" "��A$<>0 A$=�A$,2):�
�ȕ�A$,1)=" " A$=�A$,2):�
��
�Shell_Env$=A$
�
�I%=0�2�2
�	P%=O%
�[ OPT I%
�.Shell_Call
�% MOV   R9,R0 ;save string address
�:
� MOV   R0,#0
� MOV   R1,#0
� MOV   R2,#0
� MOV   R3,#2

 MOV   R4,#0

 MOV   R5,#0

 MOV   R6,#0

" MOV   R7,#0

, SWI   "OS_SetEnv"

67 STMFD R13!,{R0-R7, R12} ; Save BASIC's environment

@ MOV   R0,#0

J MOV   R1,#0

T MOV   R2,#0

^ MOV   R3,#0

h SWI   "OS_Control"

r2 STMFD R13!,{R0-R3}     ; Save BASIC's control

| MOV   R0,#&10

� MOV   R1,#0

� MOV   R2,#0

�D SWI   "XOS_ChangeEnvironment" ; Ignore error, maybe Arthur 1.20

�9 STMFD R13!,{R1,R2}     ; Save BASIC's upcall handler

�:

�2 LDR   R3,[R14,#28]     ; Magic useful value !

�B LDR   R3,[R8,R3]       ; Address of current end of work space

�E STMFD R13!,{R3,R9,R14} ; Save parameters needed to restore world

�> SUB   R9,R13,#1024     ; Address of where to copy code to

� MOV   R5,R9

� ADR   R6,Shell_Job

� ADR   R4,Shell_Job_End

�.Shell_Copy
D LDR   R2,[R6],#4       ; Copy the asm core program to the stack
 STR   R2,[R5],#4
 CMP   R6,R4
& BCC   Shell_Copy
04 MOV   PC,R9            ; Call copied shell code
::
D.Shell_Job
NA LDR   R2,[R3,#-4]!     ; Now copy BASIC's workspace upstairs
X STR   R2,[R9,#-4]!
b CMP   R3,#&8000
l BHI   Shell_Job
v STMFD R13!,{R9}
�:
� ADR   R0,Shell_Exit
� MOV   R1,R9
� MOV   R2,#0
� MOV   R3,#2
� MOV   R4,#0
� MOV   R5,#0
� MOV   R6,#0
� MOV   R7,#0
� SWI   "OS_SetEnv"
� ADR   R0,Shell_Error
� ADR   R1,Shell_Buffer
� MOV   R2,#0
 MOV   R3,#0
 SWI   "OS_Control"
 MOV   R0,#&10
  ADR   R1,Shell_UpCall
* MVN   R2,#0
4D SWI   "XOS_ChangeEnvironment" ; Ignore error, maybe Arthur 1.20
>:
H STR   R13,Shell_Job_End
R LDR   R0,[R13,#4*2]
\ ADD   R0,R0,R9
f SUB   R0,R0,#&8000
p SWI   "OS_CLI"
z:
�.Shell_Exit
� MOV   r0, #0
�:
�.Shell_Common
� STR   r0, Shell_ErrorWord
� LDR   R13,Shell_Job_End
� LDMFD R13!,{R8,R9,R10,R14}
�:
� LDMFD R13!,{R1-R2}
� MOV   R0,#&10
�! SWI   "OS_ChangeEnvironment"
� LDMFD R13!,{R0-R3}
� SWI   "OS_Control"
 LDMFD R13!,{R0-R7, R12}
 SWI   "OS_SetEnv"
:
$ MOV   R1,#&8000
..Shell_Restore
8 LDR   R2,[R8],#4
B STR   R2,[R1],#4
L CMP   R1,R9
V BCC   Shell_Restore
` LDR   R0,Shell_ErrorWord
j TEQ   R0,#0
t BICEQS PC,R14,#&10000000
~ �RNES PC,R14,#&10000000
�:
�=.Shell_UpCall ; Just stop them getting to BASIC's handler
� MOV   PC,R14
�:
�.Shell_Error
� ADR   r0, Shell_Buffer + 4
� B     Shell_Common
�:
�..Shell_Buffer ; Must be within copied area
� EQUD 0
� EQUD &12345678
� EQUS �128,�13)
 EQUS �128,�13)

:
.Shell_ErrorWord
 EQUD 0
(.Shell_Job_End
2 EQUD 0
<]
F�
P�
Z:
d'� Call via CLI with return to BASIC
n� �Shell(A$)
x*�A%:A%=Shell_String:$A%=A$:�Shell_Call
��
�:
�.� Function to convert string to upper case
�� �Shell_String_UC(A$)
�!�A%,Z%:A%=Shell_String:$A%=A$
�2�Z%=0��A$-1:�A%?Z%>=�"a"�A%?Z%<=�"z" A%?Z%-=32
�
�:=$A%
�:
�B� Function to split string to array of strings and give number
�� �Shell_Array(A$(),A$)
�<��(A$())<>1 � 99,"Wrong size array for Shell_Array call"
�
�A%,B%
�A%=0:B%=�A$," ")
ȕ B%<>0
'A%+=1:A$(A%)=�A$,B%-1):A$=�A$,B%+1)
ȕ �A$,1)=" ":A$=�A$,2):�
"B%=�A$," ")
,�
6�A$<>"" A%+=1:A$(A%)=A$
@=A%
�

00000000  0d 00 0a 19 f4 20 3e 20  3c 42 61 73 69 63 24 50  |..... > <Basic$P|
00000010  61 74 68 3e 53 68 65 6c  6c 0d 00 14 05 e0 0d 00  |ath>Shell.......|
00000020  1e 05 3a 0d 00 28 3e f4  20 4d 61 69 6e 20 70 72  |..:..(>. Main pr|
00000030  6f 63 65 64 75 72 65 3a  20 61 73 73 65 6d 62 6c  |ocedure: assembl|
00000040  65 20 63 6f 64 65 2c 20  72 65 61 64 20 65 6e 76  |e code, read env|
00000050  69 72 6f 6e 6d 65 6e 74  20 76 61 72 69 61 62 6c  |ironment variabl|
00000060  65 0d 00 32 15 dd 20 f2  41 73 73 65 6d 62 6c 65  |e..2.. .Assemble|
00000070  5f 53 68 65 6c 6c 0d 00  3c 2c ea 20 41 24 2c 50  |_Shell..<,. A$,P|
00000080  25 2c 4f 25 2c 49 25 3a  de 20 4f 25 20 31 30 30  |%,O%,I%:. O% 100|
00000090  30 2c 53 68 65 6c 6c 5f  53 74 72 69 6e 67 20 32  |0,Shell_String 2|
000000a0  35 36 0d 00 46 16 c8 99  22 4f 53 5f 47 65 74 45  |56..F..."OS_GetE|
000000b0  6e 76 22 20 b8 20 41 24  0d 00 50 24 c8 95 c0 41  |nv" . A$..P$...A|
000000c0  24 2c 31 29 3c 3e 22 20  22 80 a9 41 24 3c 3e 30  |$,1)<>" "..A$<>0|
000000d0  20 41 24 3d c1 41 24 2c  32 29 3a ce 0d 00 5a 1c  | A$=.A$,2):...Z.|
000000e0  c8 95 c0 41 24 2c 31 29  3d 22 20 22 20 41 24 3d  |...A$,1)=" " A$=|
000000f0  c1 41 24 2c 32 29 3a ce  0d 00 64 1a c8 95 c2 41  |.A$,2):...d....A|
00000100  24 2c 31 29 3d 22 20 22  20 41 24 3d c0 41 24 29  |$,1)=" " A$=.A$)|
00000110  3a ce 0d 00 6e 26 e7 a4  53 68 65 6c 6c 5f 53 74  |:...n&..Shell_St|
00000120  72 69 6e 67 5f 55 43 28  c0 41 24 2c 35 29 29 3d  |ring_UC(.A$,5))=|
00000130  22 2d 51 55 49 54 22 8c  0d 00 78 2e 41 24 3d c1  |"-QUIT"...x.A$=.|
00000140  41 24 2c 37 29 3a c8 95  c0 41 24 2c 31 29 3c 3e  |A$,7):...A$,1)<>|
00000150  22 20 22 80 a9 41 24 3c  3e 30 20 41 24 3d c1 41  |" "..A$<>0 A$=.A|
00000160  24 2c 32 29 3a ce 0d 00  82 1c c8 95 c0 41 24 2c  |$,2):........A$,|
00000170  31 29 3d 22 20 22 20 41  24 3d c1 41 24 2c 32 29  |1)=" " A$=.A$,2)|
00000180  3a ce 0d 00 8c 05 cd 0d  00 96 11 53 68 65 6c 6c  |:..........Shell|
00000190  5f 45 6e 76 24 3d 41 24  0d 00 a0 0d e3 49 25 3d  |_Env$=A$.....I%=|
000001a0  30 b8 32 88 32 0d 00 aa  09 50 25 3d 4f 25 0d 00  |0.2.2....P%=O%..|
000001b0  b4 0c 5b 20 4f 50 54 20  49 25 0d 00 be 0f 2e 53  |..[ OPT I%.....S|
000001c0  68 65 6c 6c 5f 43 61 6c  6c 0d 00 c8 25 20 4d 4f  |hell_Call...% MO|
000001d0  56 20 20 20 52 39 2c 52  30 20 3b 73 61 76 65 20  |V   R9,R0 ;save |
000001e0  73 74 72 69 6e 67 20 61  64 64 72 65 73 73 0d 00  |string address..|
000001f0  d2 05 3a 0d 00 dc 10 20  4d 4f 56 20 20 20 52 30  |..:.... MOV   R0|
00000200  2c 23 30 0d 00 e6 10 20  4d 4f 56 20 20 20 52 31  |,#0.... MOV   R1|
00000210  2c 23 30 0d 00 f0 10 20  4d 4f 56 20 20 20 52 32  |,#0.... MOV   R2|
00000220  2c 23 30 0d 00 fa 10 20  4d 4f 56 20 20 20 52 33  |,#0.... MOV   R3|
00000230  2c 23 32 0d 01 04 10 20  4d 4f 56 20 20 20 52 34  |,#2.... MOV   R4|
00000240  2c 23 30 0d 01 0e 10 20  4d 4f 56 20 20 20 52 35  |,#0.... MOV   R5|
00000250  2c 23 30 0d 01 18 10 20  4d 4f 56 20 20 20 52 36  |,#0.... MOV   R6|
00000260  2c 23 30 0d 01 22 10 20  4d 4f 56 20 20 20 52 37  |,#0..". MOV   R7|
00000270  2c 23 30 0d 01 2c 16 20  53 57 49 20 20 20 22 4f  |,#0..,. SWI   "O|
00000280  53 5f 53 65 74 45 6e 76  22 0d 01 36 37 20 53 54  |S_SetEnv"..67 ST|
00000290  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 37 2c  |MFD R13!,{R0-R7,|
000002a0  20 52 31 32 7d 20 3b 20  53 61 76 65 20 42 41 53  | R12} ; Save BAS|
000002b0  49 43 27 73 20 65 6e 76  69 72 6f 6e 6d 65 6e 74  |IC's environment|
000002c0  0d 01 40 10 20 4d 4f 56  20 20 20 52 30 2c 23 30  |..@. MOV   R0,#0|
000002d0  0d 01 4a 10 20 4d 4f 56  20 20 20 52 31 2c 23 30  |..J. MOV   R1,#0|
000002e0  0d 01 54 10 20 4d 4f 56  20 20 20 52 32 2c 23 30  |..T. MOV   R2,#0|
000002f0  0d 01 5e 10 20 4d 4f 56  20 20 20 52 33 2c 23 30  |..^. MOV   R3,#0|
00000300  0d 01 68 17 20 53 57 49  20 20 20 22 4f 53 5f 43  |..h. SWI   "OS_C|
00000310  6f 6e 74 72 6f 6c 22 0d  01 72 32 20 53 54 4d 46  |ontrol"..r2 STMF|
00000320  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 7d 20 20  |D R13!,{R0-R3}  |
00000330  20 20 20 3b 20 53 61 76  65 20 42 41 53 49 43 27  |   ; Save BASIC'|
00000340  73 20 63 6f 6e 74 72 6f  6c 0d 01 7c 12 20 4d 4f  |s control..|. MO|
00000350  56 20 20 20 52 30 2c 23  26 31 30 0d 01 86 10 20  |V   R0,#&10.... |
00000360  4d 4f 56 20 20 20 52 31  2c 23 30 0d 01 90 10 20  |MOV   R1,#0.... |
00000370  4d 4f 56 20 20 20 52 32  2c 23 30 0d 01 9a 44 20  |MOV   R2,#0...D |
00000380  53 57 49 20 20 20 22 58  4f 53 5f 43 68 61 6e 67  |SWI   "XOS_Chang|
00000390  65 45 6e 76 69 72 6f 6e  6d 65 6e 74 22 20 3b 20  |eEnvironment" ; |
000003a0  49 67 6e 6f 72 65 20 65  72 72 6f 72 2c 20 6d 61  |Ignore error, ma|
000003b0  79 62 65 20 41 72 74 68  75 72 20 31 2e 32 30 0d  |ybe Arthur 1.20.|
000003c0  01 a4 39 20 53 54 4d 46  44 20 52 31 33 21 2c 7b  |..9 STMFD R13!,{|
000003d0  52 31 2c 52 32 7d 20 20  20 20 20 3b 20 53 61 76  |R1,R2}     ; Sav|
000003e0  65 20 42 41 53 49 43 27  73 20 75 70 63 61 6c 6c  |e BASIC's upcall|
000003f0  20 68 61 6e 64 6c 65 72  0d 01 ae 05 3a 0d 01 b8  | handler....:...|
00000400  32 20 4c 44 52 20 20 20  52 33 2c 5b 52 31 34 2c  |2 LDR   R3,[R14,|
00000410  23 32 38 5d 20 20 20 20  20 3b 20 4d 61 67 69 63  |#28]     ; Magic|
00000420  20 75 73 65 66 75 6c 20  76 61 6c 75 65 20 21 0d  | useful value !.|
00000430  01 c2 42 20 4c 44 52 20  20 20 52 33 2c 5b 52 38  |..B LDR   R3,[R8|
00000440  2c 52 33 5d 20 20 20 20  20 20 20 3b 20 41 64 64  |,R3]       ; Add|
00000450  72 65 73 73 20 6f 66 20  63 75 72 72 65 6e 74 20  |ress of current |
00000460  65 6e 64 20 6f 66 20 77  6f 72 6b 20 73 70 61 63  |end of work spac|
00000470  65 0d 01 cc 45 20 53 54  4d 46 44 20 52 31 33 21  |e...E STMFD R13!|
00000480  2c 7b 52 33 2c 52 39 2c  52 31 34 7d 20 3b 20 53  |,{R3,R9,R14} ; S|
00000490  61 76 65 20 70 61 72 61  6d 65 74 65 72 73 20 6e  |ave parameters n|
000004a0  65 65 64 65 64 20 74 6f  20 72 65 73 74 6f 72 65  |eeded to restore|
000004b0  20 77 6f 72 6c 64 0d 01  d6 3e 20 53 55 42 20 20  | world...> SUB  |
000004c0  20 52 39 2c 52 31 33 2c  23 31 30 32 34 20 20 20  | R9,R13,#1024   |
000004d0  20 20 3b 20 41 64 64 72  65 73 73 20 6f 66 20 77  |  ; Address of w|
000004e0  68 65 72 65 20 74 6f 20  63 6f 70 79 20 63 6f 64  |here to copy cod|
000004f0  65 20 74 6f 0d 01 e0 10  20 4d 4f 56 20 20 20 52  |e to.... MOV   R|
00000500  35 2c 52 39 0d 01 ea 17  20 41 44 52 20 20 20 52  |5,R9.... ADR   R|
00000510  36 2c 53 68 65 6c 6c 5f  4a 6f 62 0d 01 f4 1b 20  |6,Shell_Job.... |
00000520  41 44 52 20 20 20 52 34  2c 53 68 65 6c 6c 5f 4a  |ADR   R4,Shell_J|
00000530  6f 62 5f 45 6e 64 0d 01  fe 0f 2e 53 68 65 6c 6c  |ob_End.....Shell|
00000540  5f 43 6f 70 79 0d 02 08  44 20 4c 44 52 20 20 20  |_Copy...D LDR   |
00000550  52 32 2c 5b 52 36 5d 2c  23 34 20 20 20 20 20 20  |R2,[R6],#4      |
00000560  20 3b 20 43 6f 70 79 20  74 68 65 20 61 73 6d 20  | ; Copy the asm |
00000570  63 6f 72 65 20 70 72 6f  67 72 61 6d 20 74 6f 20  |core program to |
00000580  74 68 65 20 73 74 61 63  6b 0d 02 12 15 20 53 54  |the stack.... ST|
00000590  52 20 20 20 52 32 2c 5b  52 35 5d 2c 23 34 0d 02  |R   R2,[R5],#4..|
000005a0  1c 10 20 43 4d 50 20 20  20 52 36 2c 52 34 0d 02  |.. CMP   R6,R4..|
000005b0  26 15 20 42 43 43 20 20  20 53 68 65 6c 6c 5f 43  |&. BCC   Shell_C|
000005c0  6f 70 79 0d 02 30 34 20  4d 4f 56 20 20 20 50 43  |opy..04 MOV   PC|
000005d0  2c 52 39 20 20 20 20 20  20 20 20 20 20 20 20 3b  |,R9            ;|
000005e0  20 43 61 6c 6c 20 63 6f  70 69 65 64 20 73 68 65  | Call copied she|
000005f0  6c 6c 20 63 6f 64 65 0d  02 3a 05 3a 0d 02 44 0e  |ll code..:.:..D.|
00000600  2e 53 68 65 6c 6c 5f 4a  6f 62 0d 02 4e 41 20 4c  |.Shell_Job..NA L|
00000610  44 52 20 20 20 52 32 2c  5b 52 33 2c 23 2d 34 5d  |DR   R2,[R3,#-4]|
00000620  21 20 20 20 20 20 3b 20  4e 6f 77 20 63 6f 70 79  |!     ; Now copy|
00000630  20 42 41 53 49 43 27 73  20 77 6f 72 6b 73 70 61  | BASIC's workspa|
00000640  63 65 20 75 70 73 74 61  69 72 73 0d 02 58 17 20  |ce upstairs..X. |
00000650  53 54 52 20 20 20 52 32  2c 5b 52 39 2c 23 2d 34  |STR   R2,[R9,#-4|
00000660  5d 21 0d 02 62 14 20 43  4d 50 20 20 20 52 33 2c  |]!..b. CMP   R3,|
00000670  23 26 38 30 30 30 0d 02  6c 14 20 42 48 49 20 20  |#&8000..l. BHI  |
00000680  20 53 68 65 6c 6c 5f 4a  6f 62 0d 02 76 14 20 53  | Shell_Job..v. S|
00000690  54 4d 46 44 20 52 31 33  21 2c 7b 52 39 7d 0d 02  |TMFD R13!,{R9}..|
000006a0  80 05 3a 0d 02 8a 18 20  41 44 52 20 20 20 52 30  |..:.... ADR   R0|
000006b0  2c 53 68 65 6c 6c 5f 45  78 69 74 0d 02 94 10 20  |,Shell_Exit.... |
000006c0  4d 4f 56 20 20 20 52 31  2c 52 39 0d 02 9e 10 20  |MOV   R1,R9.... |
000006d0  4d 4f 56 20 20 20 52 32  2c 23 30 0d 02 a8 10 20  |MOV   R2,#0.... |
000006e0  4d 4f 56 20 20 20 52 33  2c 23 32 0d 02 b2 10 20  |MOV   R3,#2.... |
000006f0  4d 4f 56 20 20 20 52 34  2c 23 30 0d 02 bc 10 20  |MOV   R4,#0.... |
00000700  4d 4f 56 20 20 20 52 35  2c 23 30 0d 02 c6 10 20  |MOV   R5,#0.... |
00000710  4d 4f 56 20 20 20 52 36  2c 23 30 0d 02 d0 10 20  |MOV   R6,#0.... |
00000720  4d 4f 56 20 20 20 52 37  2c 23 30 0d 02 da 16 20  |MOV   R7,#0.... |
00000730  53 57 49 20 20 20 22 4f  53 5f 53 65 74 45 6e 76  |SWI   "OS_SetEnv|
00000740  22 0d 02 e4 19 20 41 44  52 20 20 20 52 30 2c 53  |".... ADR   R0,S|
00000750  68 65 6c 6c 5f 45 72 72  6f 72 0d 02 ee 1a 20 41  |hell_Error.... A|
00000760  44 52 20 20 20 52 31 2c  53 68 65 6c 6c 5f 42 75  |DR   R1,Shell_Bu|
00000770  66 66 65 72 0d 02 f8 10  20 4d 4f 56 20 20 20 52  |ffer.... MOV   R|
00000780  32 2c 23 30 0d 03 02 10  20 4d 4f 56 20 20 20 52  |2,#0.... MOV   R|
00000790  33 2c 23 30 0d 03 0c 17  20 53 57 49 20 20 20 22  |3,#0.... SWI   "|
000007a0  4f 53 5f 43 6f 6e 74 72  6f 6c 22 0d 03 16 12 20  |OS_Control".... |
000007b0  4d 4f 56 20 20 20 52 30  2c 23 26 31 30 0d 03 20  |MOV   R0,#&10.. |
000007c0  1a 20 41 44 52 20 20 20  52 31 2c 53 68 65 6c 6c  |. ADR   R1,Shell|
000007d0  5f 55 70 43 61 6c 6c 0d  03 2a 10 20 4d 56 4e 20  |_UpCall..*. MVN |
000007e0  20 20 52 32 2c 23 30 0d  03 34 44 20 53 57 49 20  |  R2,#0..4D SWI |
000007f0  20 20 22 58 4f 53 5f 43  68 61 6e 67 65 45 6e 76  |  "XOS_ChangeEnv|
00000800  69 72 6f 6e 6d 65 6e 74  22 20 3b 20 49 67 6e 6f  |ironment" ; Igno|
00000810  72 65 20 65 72 72 6f 72  2c 20 6d 61 79 62 65 20  |re error, maybe |
00000820  41 72 74 68 75 72 20 31  2e 32 30 0d 03 3e 05 3a  |Arthur 1.20..>.:|
00000830  0d 03 48 1c 20 53 54 52  20 20 20 52 31 33 2c 53  |..H. STR   R13,S|
00000840  68 65 6c 6c 5f 4a 6f 62  5f 45 6e 64 0d 03 52 18  |hell_Job_End..R.|
00000850  20 4c 44 52 20 20 20 52  30 2c 5b 52 31 33 2c 23  | LDR   R0,[R13,#|
00000860  34 2a 32 5d 0d 03 5c 13  20 41 44 44 20 20 20 52  |4*2]..\. ADD   R|
00000870  30 2c 52 30 2c 52 39 0d  03 66 17 20 53 55 42 20  |0,R0,R9..f. SUB |
00000880  20 20 52 30 2c 52 30 2c  23 26 38 30 30 30 0d 03  |  R0,R0,#&8000..|
00000890  70 13 20 53 57 49 20 20  20 22 4f 53 5f 43 4c 49  |p. SWI   "OS_CLI|
000008a0  22 0d 03 7a 05 3a 0d 03  84 0f 2e 53 68 65 6c 6c  |"..z.:.....Shell|
000008b0  5f 45 78 69 74 0d 03 8e  11 20 4d 4f 56 20 20 20  |_Exit.... MOV   |
000008c0  72 30 2c 20 23 30 0d 03  98 05 3a 0d 03 a2 11 2e  |r0, #0....:.....|
000008d0  53 68 65 6c 6c 5f 43 6f  6d 6d 6f 6e 0d 03 ac 1e  |Shell_Common....|
000008e0  20 53 54 52 20 20 20 72  30 2c 20 53 68 65 6c 6c  | STR   r0, Shell|
000008f0  5f 45 72 72 6f 72 57 6f  72 64 0d 03 b6 1c 20 4c  |_ErrorWord.... L|
00000900  44 52 20 20 20 52 31 33  2c 53 68 65 6c 6c 5f 4a  |DR   R13,Shell_J|
00000910  6f 62 5f 45 6e 64 0d 03  c0 1f 20 4c 44 4d 46 44  |ob_End.... LDMFD|
00000920  20 52 31 33 21 2c 7b 52  38 2c 52 39 2c 52 31 30  | R13!,{R8,R9,R10|
00000930  2c 52 31 34 7d 0d 03 ca  05 3a 0d 03 d4 17 20 4c  |,R14}....:.... L|
00000940  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 32  |DMFD R13!,{R1-R2|
00000950  7d 0d 03 de 12 20 4d 4f  56 20 20 20 52 30 2c 23  |}.... MOV   R0,#|
00000960  26 31 30 0d 03 e8 21 20  53 57 49 20 20 20 22 4f  |&10...! SWI   "O|
00000970  53 5f 43 68 61 6e 67 65  45 6e 76 69 72 6f 6e 6d  |S_ChangeEnvironm|
00000980  65 6e 74 22 0d 03 f2 17  20 4c 44 4d 46 44 20 52  |ent".... LDMFD R|
00000990  31 33 21 2c 7b 52 30 2d  52 33 7d 0d 03 fc 17 20  |13!,{R0-R3}.... |
000009a0  53 57 49 20 20 20 22 4f  53 5f 43 6f 6e 74 72 6f  |SWI   "OS_Contro|
000009b0  6c 22 0d 04 06 1c 20 4c  44 4d 46 44 20 52 31 33  |l".... LDMFD R13|
000009c0  21 2c 7b 52 30 2d 52 37  2c 20 52 31 32 7d 0d 04  |!,{R0-R7, R12}..|
000009d0  10 16 20 53 57 49 20 20  20 22 4f 53 5f 53 65 74  |.. SWI   "OS_Set|
000009e0  45 6e 76 22 0d 04 1a 05  3a 0d 04 24 14 20 4d 4f  |Env"....:..$. MO|
000009f0  56 20 20 20 52 31 2c 23  26 38 30 30 30 0d 04 2e  |V   R1,#&8000...|
00000a00  12 2e 53 68 65 6c 6c 5f  52 65 73 74 6f 72 65 0d  |..Shell_Restore.|
00000a10  04 38 15 20 4c 44 52 20  20 20 52 32 2c 5b 52 38  |.8. LDR   R2,[R8|
00000a20  5d 2c 23 34 0d 04 42 15  20 53 54 52 20 20 20 52  |],#4..B. STR   R|
00000a30  32 2c 5b 52 31 5d 2c 23  34 0d 04 4c 10 20 43 4d  |2,[R1],#4..L. CM|
00000a40  50 20 20 20 52 31 2c 52  39 0d 04 56 18 20 42 43  |P   R1,R9..V. BC|
00000a50  43 20 20 20 53 68 65 6c  6c 5f 52 65 73 74 6f 72  |C   Shell_Restor|
00000a60  65 0d 04 60 1d 20 4c 44  52 20 20 20 52 30 2c 53  |e..`. LDR   R0,S|
00000a70  68 65 6c 6c 5f 45 72 72  6f 72 57 6f 72 64 0d 04  |hell_ErrorWord..|
00000a80  6a 10 20 54 45 51 20 20  20 52 30 2c 23 30 0d 04  |j. TEQ   R0,#0..|
00000a90  74 1d 20 42 49 43 45 51  53 20 50 43 2c 52 31 34  |t. BICEQS PC,R14|
00000aa0  2c 23 26 31 30 30 30 30  30 30 30 0d 04 7e 1c 20  |,#&10000000..~. |
00000ab0  84 52 4e 45 53 20 50 43  2c 52 31 34 2c 23 26 31  |.RNES PC,R14,#&1|
00000ac0  30 30 30 30 30 30 30 0d  04 88 05 3a 0d 04 92 3d  |0000000....:...=|
00000ad0  2e 53 68 65 6c 6c 5f 55  70 43 61 6c 6c 20 3b 20  |.Shell_UpCall ; |
00000ae0  4a 75 73 74 20 73 74 6f  70 20 74 68 65 6d 20 67  |Just stop them g|
00000af0  65 74 74 69 6e 67 20 74  6f 20 42 41 53 49 43 27  |etting to BASIC'|
00000b00  73 20 68 61 6e 64 6c 65  72 0d 04 9c 11 20 4d 4f  |s handler.... MO|
00000b10  56 20 20 20 50 43 2c 52  31 34 0d 04 a6 05 3a 0d  |V   PC,R14....:.|
00000b20  04 b0 10 2e 53 68 65 6c  6c 5f 45 72 72 6f 72 0d  |....Shell_Error.|
00000b30  04 ba 1f 20 41 44 52 20  20 20 72 30 2c 20 53 68  |... ADR   r0, Sh|
00000b40  65 6c 6c 5f 42 75 66 66  65 72 20 2b 20 34 0d 04  |ell_Buffer + 4..|
00000b50  c4 17 20 42 20 20 20 20  20 53 68 65 6c 6c 5f 43  |.. B     Shell_C|
00000b60  6f 6d 6d 6f 6e 0d 04 ce  05 3a 0d 04 d8 2e 2e 53  |ommon....:.....S|
00000b70  68 65 6c 6c 5f 42 75 66  66 65 72 20 3b 20 4d 75  |hell_Buffer ; Mu|
00000b80  73 74 20 62 65 20 77 69  74 68 69 6e 20 63 6f 70  |st be within cop|
00000b90  69 65 64 20 61 72 65 61  0d 04 e2 0b 20 45 51 55  |ied area.... EQU|
00000ba0  44 20 30 0d 04 ec 13 20  45 51 55 44 20 26 31 32  |D 0.... EQUD &12|
00000bb0  33 34 35 36 37 38 0d 04  f6 13 20 45 51 55 53 20  |345678.... EQUS |
00000bc0  c4 31 32 38 2c bd 31 33  29 0d 05 00 13 20 45 51  |.128,.13).... EQ|
00000bd0  55 53 20 c4 31 32 38 2c  bd 31 33 29 0d 05 0a 05  |US .128,.13)....|
00000be0  3a 0d 05 14 14 2e 53 68  65 6c 6c 5f 45 72 72 6f  |:.....Shell_Erro|
00000bf0  72 57 6f 72 64 0d 05 1e  0b 20 45 51 55 44 20 30  |rWord.... EQUD 0|
00000c00  0d 05 28 12 2e 53 68 65  6c 6c 5f 4a 6f 62 5f 45  |..(..Shell_Job_E|
00000c10  6e 64 0d 05 32 0b 20 45  51 55 44 20 30 0d 05 3c  |nd..2. EQUD 0..<|
00000c20  05 5d 0d 05 46 05 ed 0d  05 50 05 e1 0d 05 5a 05  |.]..F....P....Z.|
00000c30  3a 0d 05 64 27 f4 20 43  61 6c 6c 20 76 69 61 20  |:..d'. Call via |
00000c40  43 4c 49 20 77 69 74 68  20 72 65 74 75 72 6e 20  |CLI with return |
00000c50  74 6f 20 42 41 53 49 43  0d 05 6e 10 dd 20 f2 53  |to BASIC..n.. .S|
00000c60  68 65 6c 6c 28 41 24 29  0d 05 78 2a ea 41 25 3a  |hell(A$)..x*.A%:|
00000c70  41 25 3d 53 68 65 6c 6c  5f 53 74 72 69 6e 67 3a  |A%=Shell_String:|
00000c80  24 41 25 3d 41 24 3a d6  53 68 65 6c 6c 5f 43 61  |$A%=A$:.Shell_Ca|
00000c90  6c 6c 0d 05 82 05 e1 0d  05 8c 05 3a 0d 05 96 2e  |ll.........:....|
00000ca0  f4 20 46 75 6e 63 74 69  6f 6e 20 74 6f 20 63 6f  |. Function to co|
00000cb0  6e 76 65 72 74 20 73 74  72 69 6e 67 20 74 6f 20  |nvert string to |
00000cc0  75 70 70 65 72 20 63 61  73 65 0d 05 a0 1a dd 20  |upper case..... |
00000cd0  a4 53 68 65 6c 6c 5f 53  74 72 69 6e 67 5f 55 43  |.Shell_String_UC|
00000ce0  28 41 24 29 0d 05 aa 21  ea 41 25 2c 5a 25 3a 41  |(A$)...!.A%,Z%:A|
00000cf0  25 3d 53 68 65 6c 6c 5f  53 74 72 69 6e 67 3a 24  |%=Shell_String:$|
00000d00  41 25 3d 41 24 0d 05 b4  32 e3 5a 25 3d 30 b8 a9  |A%=A$...2.Z%=0..|
00000d10  41 24 2d 31 3a e7 41 25  3f 5a 25 3e 3d 97 22 61  |A$-1:.A%?Z%>=."a|
00000d20  22 e7 41 25 3f 5a 25 3c  3d 97 22 7a 22 20 41 25  |".A%?Z%<=."z" A%|
00000d30  3f 5a 25 2d 3d 33 32 0d  05 be 0a ed 3a 3d 24 41  |?Z%-=32.....:=$A|
00000d40  25 0d 05 c8 05 3a 0d 05  d2 42 f4 20 46 75 6e 63  |%....:...B. Func|
00000d50  74 69 6f 6e 20 74 6f 20  73 70 6c 69 74 20 73 74  |tion to split st|
00000d60  72 69 6e 67 20 74 6f 20  61 72 72 61 79 20 6f 66  |ring to array of|
00000d70  20 73 74 72 69 6e 67 73  20 61 6e 64 20 67 69 76  | strings and giv|
00000d80  65 20 6e 75 6d 62 65 72  0d 05 dc 1b dd 20 a4 53  |e number..... .S|
00000d90  68 65 6c 6c 5f 41 72 72  61 79 28 41 24 28 29 2c  |hell_Array(A$(),|
00000da0  41 24 29 0d 05 e6 3c e7  de 28 41 24 28 29 29 3c  |A$)...<..(A$())<|
00000db0  3e 31 20 85 20 39 39 2c  22 57 72 6f 6e 67 20 73  |>1 . 99,"Wrong s|
00000dc0  69 7a 65 20 61 72 72 61  79 20 66 6f 72 20 53 68  |ize array for Sh|
00000dd0  65 6c 6c 5f 41 72 72 61  79 20 63 61 6c 6c 22 0d  |ell_Array call".|
00000de0  05 f0 0a ea 41 25 2c 42  25 0d 05 fa 14 41 25 3d  |....A%,B%....A%=|
00000df0  30 3a 42 25 3d a7 41 24  2c 22 20 22 29 0d 06 04  |0:B%=.A$," ")...|
00000e00  0c c8 95 20 42 25 3c 3e  30 0d 06 0e 27 41 25 2b  |... B%<>0...'A%+|
00000e10  3d 31 3a 41 24 28 41 25  29 3d c0 41 24 2c 42 25  |=1:A$(A%)=.A$,B%|
00000e20  2d 31 29 3a 41 24 3d c1  41 24 2c 42 25 2b 31 29  |-1):A$=.A$,B%+1)|
00000e30  0d 06 18 1d c8 95 20 c0  41 24 2c 31 29 3d 22 20  |...... .A$,1)=" |
00000e40  22 3a 41 24 3d c1 41 24  2c 32 29 3a ce 0d 06 22  |":A$=.A$,2):..."|
00000e50  0f 42 25 3d a7 41 24 2c  22 20 22 29 0d 06 2c 05  |.B%=.A$," ")..,.|
00000e60  ce 0d 06 36 1b e7 41 24  3c 3e 22 22 20 41 25 2b  |...6..A$<>"" A%+|
00000e70  3d 31 3a 41 24 28 41 25  29 3d 41 24 0d 06 40 07  |=1:A$(A%)=A$..@.|
00000e80  3d 41 25 0d ff                                    |=A%..|
00000e85