�     >SCL.SWI07 (fscanf)

� By  DCA
� For 32-bit machines
(� (c) BAU October 1993
2:
<� �swi07_name
F
="fscanf"
P:
Z� �swi07_init
d=0
n:
x� �swi07_vars
�fscanf=95*4
�=0
�:
�� �swi07_code
�[OPT pass%
�.scl_fscanf
�$        STMDB   (sp)!,{r4-r9,lr}
�        MOV     r9,r1
�        LDMIA   r9,{r0-r7}
�!        STMDB   (sp)!,{r4-r7}
�'        BL      clib_vectors+fscanf
�        ADD     sp,sp,#16
�        STR     r0,[r9]

        MOV     r0,#0

%        LDMIA   (sp)!,{r4-r9,pc}^

]

"=0
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 53 43 4c 2e 53  |.....     >SCL.S|
00000010  57 49 30 37 20 28 66 73  63 61 6e 66 29 0d 00 14  |WI07 (fscanf)...|
00000020  0d f4 20 42 79 20 20 44  43 41 0d 00 1e 19 f4 20  |.. By  DCA..... |
00000030  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000040  6e 65 73 0d 00 28 1a f4  20 28 63 29 20 42 41 55  |nes..(.. (c) BAU|
00000050  20 4f 63 74 6f 62 65 72  20 31 39 39 33 0d 00 32  | October 1993..2|
00000060  05 3a 0d 00 3c 11 dd 20  a4 73 77 69 30 37 5f 6e  |.:..<.. .swi07_n|
00000070  61 6d 65 0d 00 46 0d 3d  22 66 73 63 61 6e 66 22  |ame..F.="fscanf"|
00000080  0d 00 50 05 3a 0d 00 5a  11 dd 20 a4 73 77 69 30  |..P.:..Z.. .swi0|
00000090  37 5f 69 6e 69 74 0d 00  64 06 3d 30 0d 00 6e 05  |7_init..d.=0..n.|
000000a0  3a 0d 00 78 11 dd 20 a4  73 77 69 30 37 5f 76 61  |:..x.. .swi07_va|
000000b0  72 73 0d 00 82 0f 66 73  63 61 6e 66 3d 39 35 2a  |rs....fscanf=95*|
000000c0  34 0d 00 8c 06 3d 30 0d  00 96 05 3a 0d 00 a0 11  |4....=0....:....|
000000d0  dd 20 a4 73 77 69 30 37  5f 63 6f 64 65 0d 00 aa  |. .swi07_code...|
000000e0  0e 5b 4f 50 54 20 70 61  73 73 25 0d 00 b4 0f 2e  |.[OPT pass%.....|
000000f0  73 63 6c 5f 66 73 63 61  6e 66 0d 00 be 24 20 20  |scl_fscanf...$  |
00000100  20 20 20 20 20 20 53 54  4d 44 42 20 20 20 28 73  |      STMDB   (s|
00000110  70 29 21 2c 7b 72 34 2d  72 39 2c 6c 72 7d 0d 00  |p)!,{r4-r9,lr}..|
00000120  c8 19 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |..        MOV   |
00000130  20 20 72 39 2c 72 31 0d  00 d2 1e 20 20 20 20 20  |  r9,r1....     |
00000140  20 20 20 4c 44 4d 49 41  20 20 20 72 39 2c 7b 72  |   LDMIA   r9,{r|
00000150  30 2d 72 37 7d 0d 00 dc  21 20 20 20 20 20 20 20  |0-r7}...!       |
00000160  20 53 54 4d 44 42 20 20  20 28 73 70 29 21 2c 7b  | STMDB   (sp)!,{|
00000170  72 34 2d 72 37 7d 0d 00  e6 27 20 20 20 20 20 20  |r4-r7}...'      |
00000180  20 20 42 4c 20 20 20 20  20 20 63 6c 69 62 5f 76  |  BL      clib_v|
00000190  65 63 74 6f 72 73 2b 66  73 63 61 6e 66 0d 00 f0  |ectors+fscanf...|
000001a0  1d 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |.        ADD    |
000001b0  20 73 70 2c 73 70 2c 23  31 36 0d 00 fa 1b 20 20  | sp,sp,#16....  |
000001c0  20 20 20 20 20 20 53 54  52 20 20 20 20 20 72 30  |      STR     r0|
000001d0  2c 5b 72 39 5d 0d 01 04  19 20 20 20 20 20 20 20  |,[r9]....       |
000001e0  20 4d 4f 56 20 20 20 20  20 72 30 2c 23 30 0d 01  | MOV     r0,#0..|
000001f0  0e 25 20 20 20 20 20 20  20 20 4c 44 4d 49 41 20  |.%        LDMIA |
00000200  20 20 28 73 70 29 21 2c  7b 72 34 2d 72 39 2c 70  |  (sp)!,{r4-r9,p|
00000210  63 7d 5e 0d 01 18 05 5d  0d 01 22 06 3d 30 0d ff  |c}^....]..".=0..|
00000220