00000000  2f 2a 0a 20 20 20 6f 75  72 5f 6c 69 62 2e 68 20  |/*.   our_lib.h |
00000010  3a 20 57 72 69 74 74 65  6e 20 62 79 20 47 72 65  |: Written by Gre|
00000020  67 20 53 63 6f 74 74 20  20 20 31 39 39 37 0a 20  |g Scott   1997. |
00000030  20 20 66 6f 72 20 41 63  6f 72 6e 20 55 73 65 72  |  for Acorn User|
00000040  2c 20 61 73 20 70 61 72  74 20 6f 66 20 74 68 65  |, as part of the|
00000050  20 22 56 69 72 74 75 61  6c 0a 20 20 20 57 6f 72  | "Virtual.   Wor|
00000060  6c 64 73 22 20 73 65 72  69 65 73 2e 0a 0a 20 20  |lds" series...  |
00000070  20 55 73 61 67 65 20 6f  66 20 74 68 65 20 73 6f  | Usage of the so|
00000080  75 72 63 65 20 63 6f 64  65 20 69 73 20 64 6f 6e  |urce code is don|
00000090  65 20 61 74 20 74 68 65  0a 20 20 20 6f 77 6e 65  |e at the.   owne|
000000a0  72 73 20 72 69 73 6b 2c  20 61 6e 64 20 41 63 6f  |rs risk, and Aco|
000000b0  72 6e 20 55 73 65 72 20  6f 72 20 74 68 65 20 61  |rn User or the a|
000000c0  75 74 68 0a 20 20 20 6f  72 20 68 6f 6c 64 20 6e  |uth.   or hold n|
000000d0  6f 20 72 65 73 70 6f 6e  73 69 62 69 6c 69 74 79  |o responsibility|
000000e0  20 66 6f 72 20 64 61 6d  61 67 65 73 2e 0a 0a 20  | for damages... |
000000f0  20 20 54 68 69 73 20 68  61 73 20 62 65 65 6e 20  |  This has been |
00000100  77 72 69 74 74 65 6e 20  77 69 74 68 20 45 61 73  |written with Eas|
00000110  79 43 2f 43 2b 2b 2c 20  68 65 6e 63 65 0a 20 20  |yC/C++, hence.  |
00000120  20 74 68 65 20 23 70 72  61 67 6d 61 20 63 6f 6d  | the #pragma com|
00000130  6d 61 6e 64 73 2e 20 41  20 6c 69 74 74 6c 65 20  |mands. A little |
00000140  63 75 74 74 69 6e 67 2f  70 61 73 74 69 6e 67 0a  |cutting/pasting.|
00000150  20 20 20 73 68 6f 75 6c  64 20 62 65 20 61 64 65  |   should be ade|
00000160  71 75 61 74 65 20 66 6f  72 20 6f 74 68 65 72 20  |quate for other |
00000170  63 6f 6d 70 69 6c 65 72  73 2e 20 4f 74 68 65 72  |compilers. Other|
00000180  77 69 73 65 0a 20 20 20  6a 75 73 74 20 72 75 6e  |wise.   just run|
00000190  20 74 68 65 20 65 78 65  63 75 74 61 62 6c 65 21  | the executable!|
000001a0  0a 2a 2f 0a 0a 23 69 6e  63 6c 75 64 65 20 3c 73  |.*/..#include <s|
000001b0  74 64 69 6f 2e 68 3e 0a  0a 2f 2a 20 41 73 73 65  |tdio.h>../* Asse|
000001c0  6d 62 6c 65 72 20 46 75  6e 63 74 69 6f 6e 73 20  |mbler Functions |
000001d0  28 53 57 49 73 2c 20 65  74 63 29 20 2a 2f 0a 23  |(SWIs, etc) */.#|
000001e0  70 72 61 67 6d 61 20 61  73 6d 0a 45 58 50 4f 52  |pragma asm.EXPOR|
000001f0  54 20 6f 75 72 6c 69 62  5f 67 65 74 74 69 6d 65  |T ourlib_gettime|
00000200  0a 2e 6f 75 72 6c 69 62  5f 67 65 74 74 69 6d 65  |..ourlib_gettime|
00000210  0a 0a 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |..STMFD R13!,{R1|
00000220  2d 52 34 2c 52 31 34 7d  0a 53 57 49 20 4f 53 5f  |-R4,R14}.SWI OS_|
00000230  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
00000240  65 0a 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 31  |e.LDMFD R13!,{R1|
00000250  2d 52 34 2c 52 31 35 7d  0a 0a 0a 0a 45 58 50 4f  |-R4,R15}....EXPO|
00000260  52 54 20 6f 75 72 6c 69  62 5f 6b 65 79 64 6f 77  |RT ourlib_keydow|
00000270  6e 0a 2e 6f 75 72 6c 69  62 5f 6b 65 79 64 6f 77  |n..ourlib_keydow|
00000280  6e 0a 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |n.STMFD R13!,{R1|
00000290  2d 52 32 2c 52 31 34 7d  0a 0a 45 4f 52 20 52 31  |-R2,R14}..EOR R1|
000002a0  2c 52 30 2c 23 31 32 38  0a 4d 4f 56 20 52 30 2c  |,R0,#128.MOV R0,|
000002b0  23 31 32 31 0a 53 57 49  20 4f 53 5f 42 79 74 65  |#121.SWI OS_Byte|
000002c0  0a 4d 4f 56 20 52 30 2c  52 31 0a 4c 44 4d 46 44  |.MOV R0,R1.LDMFD|
000002d0  20 52 31 33 21 2c 7b 52  31 2d 52 32 2c 50 43 7d  | R13!,{R1-R2,PC}|
000002e0  0a 0a 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |....EXPORT ourli|
000002f0  62 5f 73 6c 69 76 65 72  5f 6d 61 73 6b 0a 2e 6f  |b_sliver_mask..o|
00000300  75 72 6c 69 62 5f 73 6c  69 76 65 72 5f 6d 61 73  |urlib_sliver_mas|
00000310  6b 0a 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |k.STMFD R13!,{R1|
00000320  2d 52 39 2c 52 31 34 7d  0a 4c 44 4d 49 41 20 52  |-R9,R14}.LDMIA R|
00000330  30 2c 7b 52 30 2d 52 34  7d 0a 2f 2a 0a 2e 6e 6f  |0,{R0-R4}./*..no|
00000340  63 6c 69 70 70 69 6e 67  7a 0a 41 44 44 20 52 31  |clippingz.ADD R1|
00000350  2c 52 31 2c 52 36 2c 4c  53 4c 20 23 31 32 20 3b  |,R1,R6,LSL #12 ;|
00000360  20 63 61 6c 63 75 6c 61  74 65 20 6f 66 66 73 65  | calculate offse|
00000370  74 20 69 6e 20 77 61 6c  6c 73 5b 5d 5b 5d 20 61  |t in walls[][] a|
00000380  72 72 61 79 0a 41 44 44  20 52 31 2c 52 31 2c 52  |rray.ADD R1,R1,R|
00000390  32 20 20 20 20 20 20 20  20 20 3b 20 61 64 64 20  |2         ; add |
000003a0  74 68 65 20 63 6f 6c 75  6d 6e 20 74 6f 20 74 68  |the column to th|
000003b0  69 73 0a 2a 2f 0a 43 4d  50 20 52 33 2c 52 32 0a  |is.*/.CMP R3,R2.|
000003c0  4d 4f 56 47 45 20 52 33  2c 52 32 0a 0a 4d 4f 56  |MOVGE R3,R2..MOV|
000003d0  20 52 38 2c 23 31 32 38  0a 53 55 42 20 52 38 2c  | R8,#128.SUB R8,|
000003e0  52 38 2c 52 33 2c 4c 53  52 20 23 31 20 3b 20 73  |R8,R3,LSR #1 ; s|
000003f0  65 74 20 73 74 61 72 74  20 79 20 70 6f 73 0a 41  |et start y pos.A|
00000400  44 44 20 52 34 2c 52 34  2c 52 38 2c 4c 53 4c 20  |DD R4,R4,R8,LSL |
00000410  23 38 20 3b 20 77 6f 72  6b 20 6f 75 74 20 75 73  |#8 ; work out us|
00000420  75 61 6c 20 73 63 72 65  65 6e 20 28 33 32 30 78  |ual screen (320x|
00000430  32 35 36 29 0a 41 44 44  20 52 34 2c 52 34 2c 52  |256).ADD R4,R4,R|
00000440  38 2c 4c 53 4c 20 23 36  20 3b 20 6f 66 66 73 65  |8,LSL #6 ; offse|
00000450  74 20 74 6f 20 62 65 67  69 6e 20 6c 6f 6f 70 0a  |t to begin loop.|
00000460  41 44 44 20 52 30 2c 52  30 2c 52 34 0a 0a 4d 4f  |ADD R0,R0,R4..MO|
00000470  56 20 52 38 2c 23 36 34  20 20 20 20 20 20 20 20  |V R8,#64        |
00000480  3b 20 73 74 61 72 74 20  6c 6f 6f 70 20 63 6f 75  |; start loop cou|
00000490  6e 74 65 72 0a 4d 4f 56  20 52 37 2c 52 38 0a 0a  |nter.MOV R7,R8..|
000004a0  43 4d 50 20 52 33 2c 23  36 34 0a 42 4c 4c 45 20  |CMP R3,#64.BLLE |
000004b0  6c 6f 6f 70 79 36 34 6c  6f 6f 7a 0a 43 4d 50 20  |loopy64looz.CMP |
000004c0  52 33 2c 23 31 32 37 0a  42 4c 4c 45 20 6c 6f 6f  |R3,#127.BLLE loo|
000004d0  70 79 31 32 37 6c 6f 6f  7a 0a 43 4d 50 20 52 33  |py127looz.CMP R3|
000004e0  2c 23 31 39 31 0a 42 4c  4c 45 20 6c 6f 6f 70 79  |,#191.BLLE loopy|
000004f0  31 39 31 6c 6f 6f 7a 0a  42 4c 20 6c 6f 6f 70 79  |191looz.BL loopy|
00000500  31 39 32 6c 6f 6f 7a 0a  2e 6c 6f 6f 70 79 36 34  |192looz..loopy64|
00000510  6c 6f 6f 7a 0a 2e 64 6f  64 64 6c 65 36 34 7a 0a  |looz..doddle64z.|
00000520  43 4d 50 20 52 37 2c 23  36 34 0a 42 4c 4c 54 20  |CMP R7,#64.BLLT |
00000530  64 6f 6e 65 36 34 6c 6f  6f 7a 0a 4c 44 52 42 20  |done64looz.LDRB |
00000540  52 39 2c 5b 52 31 5d 20  20 20 20 20 20 20 3b 20  |R9,[R1]       ; |
00000550  69 66 20 73 6f 20 6c 6f  61 64 20 69 6e 20 70 69  |if so load in pi|
00000560  78 65 6c 20 76 61 6c 75  65 0a 53 55 42 20 52 37  |xel value.SUB R7|
00000570  2c 52 37 2c 23 36 34 0a  43 4d 50 20 52 39 2c 23  |,R7,#64.CMP R9,#|
00000580  30 0a 2f 2a 42 45 51 20  73 6b 69 70 31 2a 2f 0a  |0./*BEQ skip1*/.|
00000590  53 54 52 4e 45 42 20 52  39 2c 5b 52 30 5d 0a 2e  |STRNEB R9,[R0]..|
000005a0  73 6b 69 70 31 0a 41 44  44 20 52 30 2c 52 30 2c  |skip1.ADD R0,R0,|
000005b0  23 33 32 30 0a 0a 2e 64  6f 6e 65 36 34 6c 6f 6f  |#320...done64loo|
000005c0  7a 0a 41 44 44 20 52 31  2c 52 31 2c 23 36 34 0a  |z.ADD R1,R1,#64.|
000005d0  41 44 44 20 52 37 2c 52  37 2c 52 33 20 20 20 20  |ADD R7,R7,R3    |
000005e0  20 20 20 20 20 3b 20 61  64 64 20 73 63 61 6c 65  |     ; add scale|
000005f0  20 6f 6e 74 6f 20 76 65  72 74 2e 20 65 72 72 6f  | onto vert. erro|
00000600  72 20 74 65 72 6d 0a 53  55 42 53 20 52 38 2c 52  |r term.SUBS R8,R|
00000610  38 2c 23 31 0a 42 4c 4e  45 20 6c 6f 6f 70 79 36  |8,#1.BLNE loopy6|
00000620  34 6c 6f 6f 7a 20 20 20  20 20 20 20 20 20 3b 20  |4looz         ; |
00000630  6c 6f 6f 70 20 69 66 20  73 6f 0a 0a 4c 44 4d 46  |loop if so..LDMF|
00000640  44 20 52 31 33 21 2c 7b  52 31 2d 52 39 2c 52 31  |D R13!,{R1-R9,R1|
00000650  35 7d 5e 0a 0a 2e 6c 6f  6f 70 79 31 32 37 6c 6f  |5}^...loopy127lo|
00000660  6f 7a 0a 2e 64 6f 64 64  6c 65 31 32 37 7a 0a 43  |oz..doddle127z.C|
00000670  4d 50 20 52 37 2c 23 36  34 0a 4c 44 52 42 20 52  |MP R7,#64.LDRB R|
00000680  39 2c 5b 52 31 5d 20 20  20 20 20 20 20 3b 20 69  |9,[R1]       ; i|
00000690  66 20 73 6f 20 6c 6f 61  64 20 69 6e 20 70 69 78  |f so load in pix|
000006a0  65 6c 20 76 61 6c 75 65  0a 53 55 42 20 52 37 2c  |el value.SUB R7,|
000006b0  52 37 2c 23 36 34 0a 43  4d 50 20 52 39 2c 23 30  |R7,#64.CMP R9,#0|
000006c0  0a 2f 2a 42 45 51 20 73  6b 69 70 32 2a 2f 0a 53  |./*BEQ skip2*/.S|
000006d0  54 52 4e 45 42 20 52 39  2c 5b 52 30 5d 0a 2e 73  |TRNEB R9,[R0]..s|
000006e0  6b 69 70 32 0a 41 44 44  20 52 30 2c 52 30 2c 23  |kip2.ADD R0,R0,#|
000006f0  33 32 30 0a 0a 43 4d 50  20 52 37 2c 23 36 34 0a  |320..CMP R7,#64.|
00000700  42 4c 4c 54 20 64 6f 6e  65 31 32 37 6c 6f 6f 7a  |BLLT done127looz|
00000710  0a 4c 44 52 42 20 52 39  2c 5b 52 31 5d 20 20 20  |.LDRB R9,[R1]   |
00000720  20 20 20 20 3b 20 69 66  20 73 6f 20 6c 6f 61 64  |    ; if so load|
00000730  20 69 6e 20 70 69 78 65  6c 20 76 61 6c 75 65 0a  | in pixel value.|
00000740  53 55 42 20 52 37 2c 52  37 2c 23 36 34 0a 43 4d  |SUB R7,R7,#64.CM|
00000750  50 20 52 39 2c 23 30 0a  2f 2a 42 45 51 20 73 6b  |P R9,#0./*BEQ sk|
00000760  69 70 33 2a 2f 0a 53 54  52 4e 45 42 20 52 39 2c  |ip3*/.STRNEB R9,|
00000770  5b 52 30 5d 0a 2e 73 6b  69 70 33 0a 41 44 44 20  |[R0]..skip3.ADD |
00000780  52 30 2c 52 30 2c 23 33  32 30 0a 0a 2e 64 6f 6e  |R0,R0,#320...don|
00000790  65 31 32 37 6c 6f 6f 7a  0a 41 44 44 20 52 31 2c  |e127looz.ADD R1,|
000007a0  52 31 2c 23 36 34 0a 41  44 44 20 52 37 2c 52 37  |R1,#64.ADD R7,R7|
000007b0  2c 52 33 20 20 20 20 20  20 20 20 20 3b 20 61 64  |,R3         ; ad|
000007c0  64 20 73 63 61 6c 65 20  6f 6e 74 6f 20 76 65 72  |d scale onto ver|
000007d0  74 2e 20 65 72 72 6f 72  20 74 65 72 6d 0a 53 55  |t. error term.SU|
000007e0  42 53 20 52 38 2c 52 38  2c 23 31 0a 42 4c 4e 45  |BS R8,R8,#1.BLNE|
000007f0  20 6c 6f 6f 70 79 31 32  37 6c 6f 6f 7a 20 20 20  | loopy127looz   |
00000800  20 20 20 20 20 20 3b 20  6c 6f 6f 70 20 69 66 20  |      ; loop if |
00000810  73 6f 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |so.LDMFD R13!,{R|
00000820  31 2d 52 39 2c 52 31 35  7d 5e 0a 0a 0a 2e 6c 6f  |1-R9,R15}^....lo|
00000830  6f 70 79 31 39 31 6c 6f  6f 7a 0a 2e 64 6f 64 64  |opy191looz..dodd|
00000840  6c 65 31 39 31 7a 0a 43  4d 50 20 52 37 2c 23 36  |le191z.CMP R7,#6|
00000850  34 0a 4c 44 52 42 20 52  39 2c 5b 52 31 5d 20 20  |4.LDRB R9,[R1]  |
00000860  20 20 20 20 20 3b 20 69  66 20 73 6f 20 6c 6f 61  |     ; if so loa|
00000870  64 20 69 6e 20 70 69 78  65 6c 20 76 61 6c 75 65  |d in pixel value|
00000880  0a 53 55 42 20 52 37 2c  52 37 2c 23 36 34 0a 43  |.SUB R7,R7,#64.C|
00000890  4d 50 20 52 39 2c 23 30  0a 2f 2a 42 45 51 20 73  |MP R9,#0./*BEQ s|
000008a0  6b 69 70 34 2a 2f 0a 53  54 52 4e 45 42 20 52 39  |kip4*/.STRNEB R9|
000008b0  2c 5b 52 30 5d 0a 2e 73  6b 69 70 34 0a 41 44 44  |,[R0]..skip4.ADD|
000008c0  20 52 30 2c 52 30 2c 23  33 32 30 0a 0a 43 4d 50  | R0,R0,#320..CMP|
000008d0  20 52 37 2c 23 36 34 0a  4c 44 52 42 20 52 39 2c  | R7,#64.LDRB R9,|
000008e0  5b 52 31 5d 20 20 20 20  20 20 20 3b 20 69 66 20  |[R1]       ; if |
000008f0  73 6f 20 6c 6f 61 64 20  69 6e 20 70 69 78 65 6c  |so load in pixel|
00000900  20 76 61 6c 75 65 0a 53  55 42 20 52 37 2c 52 37  | value.SUB R7,R7|
00000910  2c 23 36 34 0a 43 4d 50  20 52 39 2c 23 30 0a 2f  |,#64.CMP R9,#0./|
00000920  2a 42 45 51 20 73 6b 69  70 35 2a 2f 0a 53 54 52  |*BEQ skip5*/.STR|
00000930  4e 45 42 20 52 39 2c 5b  52 30 5d 0a 2e 73 6b 69  |NEB R9,[R0]..ski|
00000940  70 35 0a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |p5.ADD R0,R0,#32|
00000950  30 0a 0a 43 4d 50 20 52  37 2c 23 36 34 0a 42 4c  |0..CMP R7,#64.BL|
00000960  54 20 64 6f 6e 65 31 39  31 6c 6f 6f 7a 0a 4c 44  |T done191looz.LD|
00000970  52 42 20 52 39 2c 5b 52  31 5d 20 20 20 20 20 20  |RB R9,[R1]      |
00000980  20 3b 20 69 66 20 73 6f  20 6c 6f 61 64 20 69 6e  | ; if so load in|
00000990  20 70 69 78 65 6c 20 76  61 6c 75 65 0a 53 55 42  | pixel value.SUB|
000009a0  20 52 37 2c 52 37 2c 23  36 34 0a 43 4d 50 20 52  | R7,R7,#64.CMP R|
000009b0  39 2c 23 30 0a 2f 2a 42  45 51 20 73 6b 69 70 36  |9,#0./*BEQ skip6|
000009c0  2a 2f 0a 53 54 52 4e 45  42 20 52 39 2c 5b 52 30  |*/.STRNEB R9,[R0|
000009d0  5d 0a 2e 73 6b 69 70 36  0a 41 44 44 20 52 30 2c  |]..skip6.ADD R0,|
000009e0  52 30 2c 23 33 32 30 0a  0a 2e 64 6f 6e 65 31 39  |R0,#320...done19|
000009f0  31 6c 6f 6f 7a 0a 41 44  44 20 52 31 2c 52 31 2c  |1looz.ADD R1,R1,|
00000a00  23 36 34 0a 41 44 44 20  52 37 2c 52 37 2c 52 33  |#64.ADD R7,R7,R3|
00000a10  20 20 20 20 20 20 20 20  20 3b 20 61 64 64 20 73  |         ; add s|
00000a20  63 61 6c 65 20 6f 6e 74  6f 20 76 65 72 74 2e 20  |cale onto vert. |
00000a30  65 72 72 6f 72 20 74 65  72 6d 0a 53 55 42 53 20  |error term.SUBS |
00000a40  52 38 2c 52 38 2c 23 31  0a 42 4c 4e 45 20 6c 6f  |R8,R8,#1.BLNE lo|
00000a50  6f 70 79 31 39 31 6c 6f  6f 7a 20 20 20 20 20 20  |opy191looz      |
00000a60  20 20 20 3b 20 6c 6f 6f  70 20 69 66 20 73 6f 0a  |   ; loop if so.|
00000a70  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |LDMFD R13!,{R1-R|
00000a80  39 2c 52 31 35 7d 5e 0a  0a 2e 6c 6f 6f 70 79 31  |9,R15}^...loopy1|
00000a90  39 32 6c 6f 6f 7a 0a 2e  64 6f 64 64 6c 65 31 39  |92looz..doddle19|
00000aa0  32 7a 0a 43 4d 50 20 52  37 2c 23 36 34 0a 4c 44  |2z.CMP R7,#64.LD|
00000ab0  52 42 20 52 39 2c 5b 52  31 5d 20 20 20 20 20 20  |RB R9,[R1]      |
00000ac0  20 3b 20 69 66 20 73 6f  20 6c 6f 61 64 20 69 6e  | ; if so load in|
00000ad0  20 70 69 78 65 6c 20 76  61 6c 75 65 0a 53 55 42  | pixel value.SUB|
00000ae0  20 52 37 2c 52 37 2c 23  36 34 0a 43 4d 50 20 52  | R7,R7,#64.CMP R|
00000af0  39 2c 23 30 0a 2f 2a 42  45 51 20 73 6b 69 70 37  |9,#0./*BEQ skip7|
00000b00  2a 2f 0a 53 54 52 4e 45  42 20 52 39 2c 5b 52 30  |*/.STRNEB R9,[R0|
00000b10  5d 0a 2e 73 6b 69 70 37  0a 41 44 44 20 52 30 2c  |]..skip7.ADD R0,|
00000b20  52 30 2c 23 33 32 30 0a  0a 43 4d 50 20 52 37 2c  |R0,#320..CMP R7,|
00000b30  23 36 34 0a 4c 44 52 42  20 52 39 2c 5b 52 31 5d  |#64.LDRB R9,[R1]|
00000b40  20 20 20 20 20 20 20 3b  20 69 66 20 73 6f 20 6c  |       ; if so l|
00000b50  6f 61 64 20 69 6e 20 70  69 78 65 6c 20 76 61 6c  |oad in pixel val|
00000b60  75 65 0a 53 55 42 20 52  37 2c 52 37 2c 23 36 34  |ue.SUB R7,R7,#64|
00000b70  0a 43 4d 50 20 52 39 2c  23 30 0a 42 45 51 20 73  |.CMP R9,#0.BEQ s|
00000b80  6b 69 70 38 0a 53 54 52  42 20 52 39 2c 5b 52 30  |kip8.STRB R9,[R0|
00000b90  5d 0a 2e 73 6b 69 70 38  0a 41 44 44 20 52 30 2c  |]..skip8.ADD R0,|
00000ba0  52 30 2c 23 33 32 30 0a  0a 43 4d 50 20 52 37 2c  |R0,#320..CMP R7,|
00000bb0  23 36 34 0a 4c 44 52 42  20 52 39 2c 5b 52 31 5d  |#64.LDRB R9,[R1]|
00000bc0  20 20 20 20 20 20 20 3b  20 69 66 20 73 6f 20 6c  |       ; if so l|
00000bd0  6f 61 64 20 69 6e 20 70  69 78 65 6c 20 76 61 6c  |oad in pixel val|
00000be0  75 65 0a 53 55 42 20 52  37 2c 52 37 2c 23 36 34  |ue.SUB R7,R7,#64|
00000bf0  0a 43 4d 50 20 52 39 2c  23 30 0a 2f 2a 42 45 51  |.CMP R9,#0./*BEQ|
00000c00  20 73 6b 69 70 39 2a 2f  0a 53 54 52 4e 45 42 20  | skip9*/.STRNEB |
00000c10  52 39 2c 5b 52 30 5d 0a  2e 73 6b 69 70 39 0a 41  |R9,[R0]..skip9.A|
00000c20  44 44 20 52 30 2c 52 30  2c 23 33 32 30 0a 0a 43  |DD R0,R0,#320..C|
00000c30  4d 50 20 52 37 2c 23 36  34 0a 42 4c 4c 54 20 64  |MP R7,#64.BLLT d|
00000c40  6f 6e 65 31 39 32 6c 6f  6f 7a 0a 4c 44 52 42 20  |one192looz.LDRB |
00000c50  52 39 2c 5b 52 31 5d 20  20 20 20 20 20 20 3b 20  |R9,[R1]       ; |
00000c60  69 66 20 73 6f 20 6c 6f  61 64 20 69 6e 20 70 69  |if so load in pi|
00000c70  78 65 6c 20 76 61 6c 75  65 0a 53 55 42 20 52 37  |xel value.SUB R7|
00000c80  2c 52 37 2c 23 36 34 0a  43 4d 50 20 52 39 2c 23  |,R7,#64.CMP R9,#|
00000c90  30 0a 2f 2a 42 45 51 20  73 6b 69 70 31 30 2a 2f  |0./*BEQ skip10*/|
00000ca0  0a 53 54 52 4e 45 42 20  52 39 2c 5b 52 30 5d 0a  |.STRNEB R9,[R0].|
00000cb0  2e 73 6b 69 70 31 30 0a  41 44 44 20 52 30 2c 52  |.skip10.ADD R0,R|
00000cc0  30 2c 23 33 32 30 0a 0a  2e 64 6f 6e 65 31 39 32  |0,#320...done192|
00000cd0  6c 6f 6f 7a 0a 41 44 44  20 52 31 2c 52 31 2c 23  |looz.ADD R1,R1,#|
00000ce0  36 34 0a 41 44 44 20 52  37 2c 52 37 2c 52 33 20  |64.ADD R7,R7,R3 |
00000cf0  20 20 20 20 20 20 20 20  3b 20 61 64 64 20 73 63  |        ; add sc|
00000d00  61 6c 65 20 6f 6e 74 6f  20 76 65 72 74 2e 20 65  |ale onto vert. e|
00000d10  72 72 6f 72 20 74 65 72  6d 0a 53 55 42 53 20 52  |rror term.SUBS R|
00000d20  38 2c 52 38 2c 23 31 0a  42 4c 4e 45 20 6c 6f 6f  |8,R8,#1.BLNE loo|
00000d30  70 79 31 39 32 6c 6f 6f  7a 20 20 20 20 20 20 20  |py192looz       |
00000d40  20 20 3b 20 6c 6f 6f 70  20 69 66 20 73 6f 0a 2e  |  ; loop if so..|
00000d50  65 6e 64 6f 66 66 75 6e  63 74 69 6f 6e 7a 0a 4c  |endoffunctionz.L|
00000d60  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 39  |DMFD R13!,{R1-R9|
00000d70  2c 52 31 35 7d 5e 0a 0a  45 58 50 4f 52 54 20 6f  |,R15}^..EXPORT o|
00000d80  75 72 6c 69 62 5f 62 61  72 5f 70 6c 6f 74 0a 2e  |urlib_bar_plot..|
00000d90  6f 75 72 6c 69 62 5f 62  61 72 5f 70 6c 6f 74 0a  |ourlib_bar_plot.|
00000da0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00000db0  34 2c 52 31 34 7d 0a 3b  20 52 30 20 3d 20 73 63  |4,R14}.; R0 = sc|
00000dc0  72 65 65 6e 20 52 31 20  3d 20 62 61 72 20 52 32  |reen R1 = bar R2|
00000dd0  20 3d 20 73 74 61 72 74  6f 66 66 73 65 74 0a 4d  | = startoffset.M|
00000de0  4f 56 20 52 33 2c 23 32  35 30 0a 0a 41 44 44 20  |OV R3,#250..ADD |
00000df0  52 30 2c 52 30 2c 52 32  0a 2e 62 61 72 5f 6c 6f  |R0,R0,R2..bar_lo|
00000e00  6f 70 0a 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |op..LDR R2,[R1],|
00000e10  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000e20  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000e30  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 0a  |.STR R2,[R0],#4.|
00000e40  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000e50  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 0a 4c 44  |TR R2,[R0],#4.LD|
00000e60  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
00000e70  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
00000e80  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
00000e90  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
00000ea0  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
00000eb0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
00000ec0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
00000ed0  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
00000ee0  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
00000ef0  2c 23 34 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |,#4.LDR R2,[R1],|
00000f00  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000f10  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000f20  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 0a  |.STR R2,[R0],#4.|
00000f30  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000f40  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 0a 4c 44  |TR R2,[R0],#4.LD|
00000f50  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
00000f60  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
00000f70  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
00000f80  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
00000f90  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
00000fa0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
00000fb0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
00000fc0  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
00000fd0  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
00000fe0  2c 23 34 53 55 42 53 20  52 33 2c 52 33 2c 23 31  |,#4SUBS R3,R3,#1|
00000ff0  0a 42 4e 45 20 62 61 72  5f 6c 6f 6f 70 0a 0a 4c  |.BNE bar_loop..L|
00001000  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 34  |DMFD R13!,{R1-R4|
00001010  2c 52 31 35 7d 5e 0a 0a  45 58 50 4f 52 54 20 6f  |,R15}^..EXPORT o|
00001020  75 72 6c 69 62 5f 67 75  6e 5f 70 6c 6f 74 0a 2e  |urlib_gun_plot..|
00001030  6f 75 72 6c 69 62 5f 67  75 6e 5f 70 6c 6f 74 0a  |ourlib_gun_plot.|
00001040  0a 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.STMFD R13!,{R1-|
00001050  52 31 32 2c 52 31 34 7d  0a 0a 2f 2a 20 52 30 20  |R12,R14}../* R0 |
00001060  3d 20 76 69 64 65 6f 20  52 31 20 3d 67 72 61 70  |= video R1 =grap|
00001070  68 69 63 20 52 32 20 3d  20 77 69 64 74 68 20 52  |hic R2 = width R|
00001080  33 20 3d 68 65 69 67 68  74 20 2a 2f 0a 4d 4f 56  |3 =height */.MOV|
00001090  20 52 35 2c 52 30 0a 0a  2e 79 67 5f 6c 6f 6f 70  | R5,R0...yg_loop|
000010a0  0a 4d 4f 56 20 52 34 2c  52 32 0a 41 44 44 20 52  |.MOV R4,R2.ADD R|
000010b0  30 2c 52 30 2c 23 33 32  30 0a 4d 4f 56 20 52 35  |0,R0,#320.MOV R5|
000010c0  2c 52 30 0a 2e 78 67 5f  6c 6f 6f 70 0a 4c 44 52  |,R0..xg_loop.LDR|
000010d0  42 20 52 36 2c 5b 52 31  5d 2c 23 31 0a 43 4d 50  |B R6,[R1],#1.CMP|
000010e0  20 52 36 2c 23 31 35 31  0a 42 45 51 20 63 6f 6e  | R6,#151.BEQ con|
000010f0  74 0a 53 54 52 42 20 52  36 2c 5b 52 35 5d 0a 2e  |t.STRB R6,[R5]..|
00001100  63 6f 6e 74 0a 41 44 44  20 52 35 2c 52 35 2c 23  |cont.ADD R5,R5,#|
00001110  31 0a 0a 0a 53 55 42 53  20 52 34 2c 52 34 2c 23  |1...SUBS R4,R4,#|
00001120  31 0a 42 4e 45 20 78 67  5f 6c 6f 6f 70 0a 53 55  |1.BNE xg_loop.SU|
00001130  42 53 20 52 33 2c 52 33  2c 23 31 0a 42 4e 45 20  |BS R3,R3,#1.BNE |
00001140  79 67 5f 6c 6f 6f 70 0a  0a 4c 44 4d 46 44 20 52  |yg_loop..LDMFD R|
00001150  31 33 21 2c 7b 52 31 2d  52 31 32 2c 52 31 35 7d  |13!,{R1-R12,R15}|
00001160  0a 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |...EXPORT ourlib|
00001170  5f 63 68 61 6e 67 65 6d  6f 64 65 0a 2e 6f 75 72  |_changemode..our|
00001180  6c 69 62 5f 63 68 61 6e  67 65 6d 6f 64 65 0a 53  |lib_changemode.S|
00001190  54 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 34  |TMFD R13!,{R1-R4|
000011a0  2c 52 31 34 7d 0a 4d 4f  56 20 52 31 2c 52 30 0a  |,R14}.MOV R1,R0.|
000011b0  4d 4f 56 20 52 30 2c 23  32 32 0a 53 57 49 20 4f  |MOV R0,#22.SWI O|
000011c0  53 5f 57 72 69 74 65 43  0a 4d 4f 56 20 52 30 2c  |S_WriteC.MOV R0,|
000011d0  52 31 0a 53 57 49 20 4f  53 5f 57 72 69 74 65 43  |R1.SWI OS_WriteC|
000011e0  0a 0a 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 31  |..LDMFD R13!,{R1|
000011f0  2d 52 34 2c 52 31 35 7d  0a 0a 45 58 50 4f 52 54  |-R4,R15}..EXPORT|
00001200  20 6f 75 72 6c 69 62 5f  77 61 69 74 0a 2e 6f 75  | ourlib_wait..ou|
00001210  72 6c 69 62 5f 77 61 69  74 0a 53 54 4d 46 44 20  |rlib_wait.STMFD |
00001220  52 31 33 21 2c 7b 52 31  2d 52 35 2c 52 31 34 7d  |R13!,{R1-R5,R14}|
00001230  0a 4d 4f 56 20 52 33 2c  52 30 20 2f 2a 20 43 6f  |.MOV R3,R0 /* Co|
00001240  70 79 20 76 61 72 69 61  62 6c 65 20 69 6e 74 6f  |py variable into|
00001250  20 73 61 66 65 20 70 6c  61 63 65 20 2a 2f 0a 53  | safe place */.S|
00001260  57 49 20 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |WI OS_ReadMonoto|
00001270  6e 69 63 54 69 6d 65 0a  41 44 44 20 52 32 2c 52  |nicTime.ADD R2,R|
00001280  30 2c 52 33 0a 2e 74 69  6d 65 5f 6c 6f 6f 70 0a  |0,R3..time_loop.|
00001290  53 57 49 20 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |SWI OS_ReadMonot|
000012a0  6f 6e 69 63 54 69 6d 65  0a 43 4d 50 20 52 30 2c  |onicTime.CMP R0,|
000012b0  52 32 0a 42 4c 45 20 74  69 6d 65 5f 6c 6f 6f 70  |R2.BLE time_loop|
000012c0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
000012d0  52 35 2c 52 31 35 7d 5e  0a 0a 45 58 50 4f 52 54  |R5,R15}^..EXPORT|
000012e0  20 6f 75 72 6c 69 62 5f  63 6c 6f 73 65 64 6f 77  | ourlib_closedow|
000012f0  6e 5f 73 63 72 65 65 6e  73 0a 2e 6f 75 72 6c 69  |n_screens..ourli|
00001300  62 5f 63 6c 6f 73 65 64  6f 77 6e 5f 73 63 72 65  |b_closedown_scre|
00001310  65 6e 73 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |ens.STMFD R13!,{|
00001320  52 31 2d 52 34 2c 52 31  34 7d 0a 4d 4f 56 20 52  |R1-R4,R14}.MOV R|
00001330  30 2c 23 31 31 34 0a 4d  4f 56 20 52 31 2c 23 31  |0,#114.MOV R1,#1|
00001340  0a 53 57 49 20 22 4f 53  5f 42 79 74 65 22 0a 4c  |.SWI "OS_Byte".L|
00001350  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 34  |DMFD R13!,{R1-R4|
00001360  2c 52 31 35 7d 5e 0a 0a  0a 0a 0a 0a 0a 2e 73 69  |,R15}^........si|
00001370  6d 70 6c 65 6e 75 6d 62  65 72 0a 45 51 55 44 20  |mplenumber.EQUD |
00001380  30 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |0..EXPORT ourlib|
00001390  5f 73 69 6d 70 6c 65 73  77 69 74 63 68 0a 2e 6f  |_simpleswitch..o|
000013a0  75 72 6c 69 62 5f 73 69  6d 70 6c 65 73 77 69 74  |urlib_simpleswit|
000013b0  63 68 0a 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |ch.STMFD R13!,{R|
000013c0  31 2d 52 35 2c 52 31 34  7d 0a 4c 44 52 20 52 31  |1-R5,R14}.LDR R1|
000013d0  2c 73 69 6d 70 6c 65 6e  75 6d 62 65 72 0a 4d 4f  |,simplenumber.MO|
000013e0  56 20 52 30 2c 23 31 31  33 0a 4d 4f 56 20 52 34  |V R0,#113.MOV R4|
000013f0  2c 52 31 0a 53 57 49 20  22 4f 53 5f 42 79 74 65  |,R1.SWI "OS_Byte|
00001400  22 0a 4d 56 4e 20 52 31  2c 52 34 0a 53 54 52 20  |".MVN R1,R4.STR |
00001410  52 31 2c 73 69 6d 70 6c  65 6e 75 6d 62 65 72 0a  |R1,simplenumber.|
00001420  4d 4f 56 20 52 30 2c 23  31 31 32 0a 53 57 49 20  |MOV R0,#112.SWI |
00001430  22 4f 53 5f 42 79 74 65  22 0a 4c 44 4d 46 44 20  |"OS_Byte".LDMFD |
00001440  52 31 33 21 2c 7b 52 31  2d 52 35 2c 52 31 35 7d  |R13!,{R1-R5,R15}|
00001450  5e 0a 0a 0a 0a 0a 45 58  50 4f 52 54 20 6f 75 72  |^.....EXPORT our|
00001460  6c 69 62 5f 73 65 74 75  70 5f 73 63 72 65 65 6e  |lib_setup_screen|
00001470  73 0a 2e 6f 75 72 6c 69  62 5f 73 65 74 75 70 5f  |s..ourlib_setup_|
00001480  73 63 72 65 65 6e 73 0a  0a 53 54 4d 46 44 20 52  |screens..STMFD R|
00001490  31 33 21 2c 7b 52 31 2d  52 34 2c 52 31 34 7d 0a  |13!,{R1-R4,R14}.|
000014a0  4d 4f 56 20 52 30 2c 23  31 31 34 0a 4d 4f 56 20  |MOV R0,#114.MOV |
000014b0  52 31 2c 23 30 0a 53 57  49 20 22 4f 53 5f 42 79  |R1,#0.SWI "OS_By|
000014c0  74 65 22 0a 0a 4c 44 4d  46 44 20 52 31 33 21 2c  |te"..LDMFD R13!,|
000014d0  7b 52 31 2d 52 34 2c 52  31 35 7d 5e 0a 0a 45 58  |{R1-R4,R15}^..EX|
000014e0  50 4f 52 54 20 6f 75 72  6c 69 62 5f 6b 69 6c 6c  |PORT ourlib_kill|
000014f0  63 75 72 73 6f 72 0a 2e  6f 75 72 6c 69 62 5f 6b  |cursor..ourlib_k|
00001500  69 6c 6c 63 75 72 73 6f  72 0a 53 54 4d 46 44 20  |illcursor.STMFD |
00001510  52 31 33 21 2c 7b 52 31  2d 52 34 2c 52 31 34 7d  |R13!,{R1-R4,R14}|
00001520  0a 53 57 49 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |.SWI "OS_RemoveC|
00001530  75 72 73 6f 72 73 22 0a  4c 44 4d 46 44 20 52 31  |ursors".LDMFD R1|
00001540  33 21 2c 7b 52 31 2d 52  34 2c 52 31 35 7d 5e 0a  |3!,{R1-R4,R15}^.|
00001550  0a 45 58 50 4f 52 54 20  6f 75 72 6c 69 62 5f 72  |.EXPORT ourlib_r|
00001560  65 76 69 76 65 63 75 72  73 6f 72 0a 2e 6f 75 72  |evivecursor..our|
00001570  6c 69 62 5f 72 65 76 69  76 65 63 75 72 73 6f 72  |lib_revivecursor|
00001580  0a 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.STMFD R13!,{R1-|
00001590  52 34 2c 52 31 34 7d 0a  53 57 49 20 22 4f 53 5f  |R4,R14}.SWI "OS_|
000015a0  52 65 73 74 6f 72 65 43  75 72 73 6f 72 73 22 0a  |RestoreCursors".|
000015b0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |LDMFD R13!,{R1-R|
000015c0  34 2c 52 31 35 7d 5e 0a  0a 0a 0a 45 58 50 4f 52  |4,R15}^....EXPOR|
000015d0  54 20 6f 75 72 6c 69 62  5f 73 6c 69 76 65 72 5f  |T ourlib_sliver_|
000015e0  74 77 6f 0a 2e 6f 75 72  6c 69 62 5f 73 6c 69 76  |two..ourlib_sliv|
000015f0  65 72 5f 74 77 6f 0a 53  54 4d 46 44 20 52 31 33  |er_two.STMFD R13|
00001600  21 2c 7b 52 31 2d 52 31  32 2c 52 31 34 7d 0a 4c  |!,{R1-R12,R14}.L|
00001610  44 4d 49 41 20 52 30 2c  7b 52 30 2d 52 36 7d 0a  |DMIA R0,{R0-R6}.|
00001620  0a 43 4d 50 20 52 33 2c  23 32 35 35 0a 4d 4f 56  |.CMP R3,#255.MOV|
00001630  47 45 20 52 33 2c 23 32  35 35 0a 41 44 44 20 52  |GE R3,#255.ADD R|
00001640  31 2c 52 31 2c 52 36 2c  4c 53 4c 20 23 32 0a 41  |1,R1,R6,LSL #2.A|
00001650  44 44 20 52 31 2c 52 31  2c 52 32 0a 4d 4f 56 20  |DD R1,R1,R2.MOV |
00001660  52 38 2c 23 31 32 38 0a  53 55 42 20 52 38 2c 52  |R8,#128.SUB R8,R|
00001670  38 2c 52 33 2c 4c 53 52  20 23 31 0a 41 44 44 20  |8,R3,LSR #1.ADD |
00001680  52 34 2c 52 34 2c 52 38  2c 4c 53 4c 20 23 38 0a  |R4,R4,R8,LSL #8.|
00001690  41 44 44 20 52 34 2c 52  34 2c 52 38 2c 4c 53 4c  |ADD R4,R4,R8,LSL|
000016a0  20 23 36 0a 41 44 44 20  52 30 2c 52 30 2c 52 34  | #6.ADD R0,R0,R4|
000016b0  0a 4d 4f 56 20 52 31 30  2c 23 30 0a 4d 4f 56 20  |.MOV R10,#0.MOV |
000016c0  52 38 2c 52 33 0a 4d 4f  56 20 52 33 2c 52 31 0a  |R8,R3.MOV R3,R1.|
000016d0  2e 6c 6f 6f 6f 70 0a 4c  44 52 42 20 52 39 2c 5b  |.looop.LDRB R9,[|
000016e0  52 31 2c 52 31 30 2c 4c  53 4c 20 23 36 5d 20 20  |R1,R10,LSL #6]  |
000016f0  20 20 20 20 20 3b 20 69  66 20 73 6f 20 6c 6f 61  |     ; if so loa|
00001700  64 20 69 6e 20 70 69 78  65 6c 20 76 61 6c 75 65  |d in pixel value|
00001710  0a 53 54 52 42 20 52 39  2c 5b 52 30 5d 2c 23 33  |.STRB R9,[R0],#3|
00001720  32 30 0a 41 44 44 20 52  31 30 2c 52 31 30 2c 52  |20.ADD R10,R10,R|
00001730  35 0a 4d 4f 56 20 52 31  30 2c 52 31 30 2c 4c 53  |5.MOV R10,R10,LS|
00001740  52 20 23 38 0a 53 55 42  53 20 52 38 2c 52 38 2c  |R #8.SUBS R8,R8,|
00001750  23 31 0a 42 4e 45 20 6c  6f 6f 6f 70 0a 0a 20 4c  |#1.BNE looop.. L|
00001760  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 31  |DMFD R13!,{R0-R1|
00001770  32 2c 52 31 35 7d 5e 0a  0a 45 58 50 4f 52 54 20  |2,R15}^..EXPORT |
00001780  6f 75 72 6c 69 62 5f 73  6c 69 76 65 72 0a 2e 6f  |ourlib_sliver..o|
00001790  75 72 6c 69 62 5f 73 6c  69 76 65 72 0a 53 54 4d  |urlib_sliver.STM|
000017a0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 31 32 2c  |FD R13!,{R1-R12,|
000017b0  52 31 34 7d 0a 4c 44 4d  49 41 20 52 30 2c 7b 52  |R14}.LDMIA R0,{R|
000017c0  30 2d 52 34 7d 0a 0a 43  4d 50 20 52 33 2c 52 32  |0-R4}..CMP R3,R2|
000017d0  0a 4d 4f 56 47 45 20 52  33 2c 52 32 0a 0a 2f 2a  |.MOVGE R3,R2../*|
000017e0  2e 6e 6f 63 6c 69 70 70  69 6e 67 0a 41 44 44 20  |.noclipping.ADD |
000017f0  52 31 2c 52 31 2c 52 36  2c 4c 53 4c 20 23 31 32  |R1,R1,R6,LSL #12|
00001800  20 3b 20 63 61 6c 63 75  6c 61 74 65 20 6f 66 66  | ; calculate off|
00001810  73 65 74 20 69 6e 20 77  61 6c 6c 73 5b 5d 5b 5d  |set in walls[][]|
00001820  20 61 72 72 61 79 0a 41  44 44 20 52 31 2c 52 31  | array.ADD R1,R1|
00001830  2c 52 32 20 20 20 20 20  20 20 20 20 3b 20 61 64  |,R2         ; ad|
00001840  64 20 74 68 65 20 63 6f  6c 75 6d 6e 20 74 6f 20  |d the column to |
00001850  74 68 69 73 0a 2a 2f 0a  0a 4d 4f 56 20 52 38 2c  |this.*/..MOV R8,|
00001860  23 31 32 38 0a 53 55 42  20 52 38 2c 52 38 2c 52  |#128.SUB R8,R8,R|
00001870  33 2c 4c 53 52 20 23 31  20 3b 20 73 65 74 20 73  |3,LSR #1 ; set s|
00001880  74 61 72 74 20 79 20 70  6f 73 0a 41 44 44 20 52  |tart y pos.ADD R|
00001890  34 2c 52 34 2c 52 38 2c  4c 53 4c 20 23 38 20 3b  |4,R4,R8,LSL #8 ;|
000018a0  20 77 6f 72 6b 20 6f 75  74 20 75 73 75 61 6c 20  | work out usual |
000018b0  73 63 72 65 65 6e 20 28  33 32 30 78 32 35 36 29  |screen (320x256)|
000018c0  0a 41 44 44 20 52 34 2c  52 34 2c 52 38 2c 4c 53  |.ADD R4,R4,R8,LS|
000018d0  4c 20 23 36 20 3b 20 6f  66 66 73 65 74 20 74 6f  |L #6 ; offset to|
000018e0  20 62 65 67 69 6e 20 6c  6f 6f 70 0a 41 44 44 20  | begin loop.ADD |
000018f0  52 30 2c 52 30 2c 52 34  0a 0a 4d 4f 56 20 52 38  |R0,R0,R4..MOV R8|
00001900  2c 23 36 34 20 20 20 20  20 20 20 20 3b 20 73 74  |,#64        ; st|
00001910  61 72 74 20 6c 6f 6f 70  20 63 6f 75 6e 74 65 72  |art loop counter|
00001920  0a 4d 4f 56 20 52 37 2c  52 38 0a 0a 43 4d 50 20  |.MOV R7,R8..CMP |
00001930  52 33 2c 23 36 34 0a 42  4c 4c 45 20 6c 6f 6f 70  |R3,#64.BLLE loop|
00001940  79 36 34 6c 6f 6f 0a 43  4d 50 20 52 33 2c 23 31  |y64loo.CMP R3,#1|
00001950  32 37 0a 42 4c 4c 45 20  6c 6f 6f 70 79 31 32 37  |27.BLLE loopy127|
00001960  6c 6f 6f 0a 43 4d 50 20  52 33 2c 23 31 39 31 0a  |loo.CMP R3,#191.|
00001970  42 4c 4c 45 20 6c 6f 6f  70 79 31 39 31 6c 6f 6f  |BLLE loopy191loo|
00001980  0a 42 4c 20 6c 6f 6f 70  79 31 39 32 6c 6f 6f 0a  |.BL loopy192loo.|
00001990  2e 6c 6f 6f 70 79 36 34  6c 6f 6f 0a 2e 64 6f 64  |.loopy64loo..dod|
000019a0  64 6c 65 36 34 0a 43 4d  50 20 52 37 2c 23 36 34  |dle64.CMP R7,#64|
000019b0  0a 42 4c 4c 54 20 64 6f  6e 65 36 34 6c 6f 6f 0a  |.BLLT done64loo.|
000019c0  4c 44 52 42 20 52 39 2c  5b 52 31 5d 20 20 20 20  |LDRB R9,[R1]    |
000019d0  20 20 20 3b 20 69 66 20  73 6f 20 6c 6f 61 64 20  |   ; if so load |
000019e0  69 6e 20 70 69 78 65 6c  20 76 61 6c 75 65 0a 53  |in pixel value.S|
000019f0  54 52 42 20 52 39 2c 5b  52 30 5d 2c 23 33 32 30  |TRB R9,[R0],#320|
00001a00  0a 53 55 42 20 52 37 2c  52 37 2c 23 36 34 0a 2e  |.SUB R7,R7,#64..|
00001a10  64 6f 6e 65 36 34 6c 6f  6f 0a 41 44 44 20 52 31  |done64loo.ADD R1|
00001a20  2c 52 31 2c 23 36 34 0a  41 44 44 20 52 37 2c 52  |,R1,#64.ADD R7,R|
00001a30  37 2c 52 33 20 20 20 20  20 20 20 20 20 3b 20 61  |7,R3         ; a|
00001a40  64 64 20 73 63 61 6c 65  20 6f 6e 74 6f 20 76 65  |dd scale onto ve|
00001a50  72 74 2e 20 65 72 72 6f  72 20 74 65 72 6d 0a 53  |rt. error term.S|
00001a60  55 42 53 20 52 38 2c 52  38 2c 23 31 0a 42 4c 4e  |UBS R8,R8,#1.BLN|
00001a70  45 20 6c 6f 6f 70 79 36  34 6c 6f 6f 20 20 20 20  |E loopy64loo    |
00001a80  20 20 20 20 20 3b 20 6c  6f 6f 70 20 69 66 20 73  |     ; loop if s|
00001a90  6f 0a 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |o..LDMFD R13!,{R|
00001aa0  31 2d 52 31 32 2c 52 31  35 7d 5e 0a 2f 2a 4d 4f  |1-R12,R15}^./*MO|
00001ab0  56 53 20 50 43 2c 52 31  34 2a 2f 0a 0a 0a 2e 6c  |VS PC,R14*/....l|
00001ac0  6f 6f 70 79 31 32 37 6c  6f 6f 0a 2e 64 6f 64 64  |oopy127loo..dodd|
00001ad0  6c 65 31 32 37 0a 43 4d  50 20 52 37 2c 23 36 34  |le127.CMP R7,#64|
00001ae0  0a 4c 44 52 42 20 52 39  2c 5b 52 31 5d 20 20 20  |.LDRB R9,[R1]   |
00001af0  20 20 20 20 3b 20 69 66  20 73 6f 20 6c 6f 61 64  |    ; if so load|
00001b00  20 69 6e 20 70 69 78 65  6c 20 76 61 6c 75 65 0a  | in pixel value.|
00001b10  53 54 52 42 20 52 39 2c  5b 52 30 5d 2c 23 33 32  |STRB R9,[R0],#32|
00001b20  30 0a 53 55 42 20 52 37  2c 52 37 2c 23 36 34 0a  |0.SUB R7,R7,#64.|
00001b30  43 4d 50 20 52 37 2c 23  36 34 0a 42 4c 4c 54 20  |CMP R7,#64.BLLT |
00001b40  64 6f 6e 65 31 32 37 6c  6f 6f 0a 4c 44 52 42 20  |done127loo.LDRB |
00001b50  52 39 2c 5b 52 31 5d 20  20 20 20 20 20 20 3b 20  |R9,[R1]       ; |
00001b60  69 66 20 73 6f 20 6c 6f  61 64 20 69 6e 20 70 69  |if so load in pi|
00001b70  78 65 6c 20 76 61 6c 75  65 0a 53 54 52 42 20 52  |xel value.STRB R|
00001b80  39 2c 5b 52 30 5d 2c 23  33 32 30 0a 53 55 42 20  |9,[R0],#320.SUB |
00001b90  52 37 2c 52 37 2c 23 36  34 0a 2e 64 6f 6e 65 31  |R7,R7,#64..done1|
00001ba0  32 37 6c 6f 6f 0a 41 44  44 20 52 31 2c 52 31 2c  |27loo.ADD R1,R1,|
00001bb0  23 36 34 0a 41 44 44 20  52 37 2c 52 37 2c 52 33  |#64.ADD R7,R7,R3|
00001bc0  20 20 20 20 20 20 20 20  20 3b 20 61 64 64 20 73  |         ; add s|
00001bd0  63 61 6c 65 20 6f 6e 74  6f 20 76 65 72 74 2e 20  |cale onto vert. |
00001be0  65 72 72 6f 72 20 74 65  72 6d 0a 53 55 42 53 20  |error term.SUBS |
00001bf0  52 38 2c 52 38 2c 23 31  0a 42 4c 4e 45 20 6c 6f  |R8,R8,#1.BLNE lo|
00001c00  6f 70 79 31 32 37 6c 6f  6f 20 20 20 20 20 20 20  |opy127loo       |
00001c10  20 20 3b 20 6c 6f 6f 70  20 69 66 20 73 6f 0a 4c  |  ; loop if so.L|
00001c20  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 31  |DMFD R13!,{R1-R1|
00001c30  32 2c 52 31 35 7d 5e 0a  0a 2f 2a 4d 4f 56 53 20  |2,R15}^../*MOVS |
00001c40  50 43 2c 52 31 34 2a 2f  0a 0a 0a 2e 6c 6f 6f 70  |PC,R14*/....loop|
00001c50  79 31 39 31 6c 6f 6f 0a  2e 64 6f 64 64 6c 65 31  |y191loo..doddle1|
00001c60  39 31 0a 43 4d 50 20 52  37 2c 23 36 34 0a 4c 44  |91.CMP R7,#64.LD|
00001c70  52 42 20 52 39 2c 5b 52  31 5d 20 20 20 20 20 20  |RB R9,[R1]      |
00001c80  20 3b 20 69 66 20 73 6f  20 6c 6f 61 64 20 69 6e  | ; if so load in|
00001c90  20 70 69 78 65 6c 20 76  61 6c 75 65 0a 53 54 52  | pixel value.STR|
00001ca0  42 20 52 39 2c 5b 52 30  5d 2c 23 33 32 30 0a 53  |B R9,[R0],#320.S|
00001cb0  55 42 20 52 37 2c 52 37  2c 23 36 34 0a 43 4d 50  |UB R7,R7,#64.CMP|
00001cc0  20 52 37 2c 23 36 34 0a  4c 44 52 42 20 52 39 2c  | R7,#64.LDRB R9,|
00001cd0  5b 52 31 5d 20 20 20 20  20 20 20 3b 20 69 66 20  |[R1]       ; if |
00001ce0  73 6f 20 6c 6f 61 64 20  69 6e 20 70 69 78 65 6c  |so load in pixel|
00001cf0  20 76 61 6c 75 65 0a 53  54 52 42 20 52 39 2c 5b  | value.STRB R9,[|
00001d00  52 30 5d 2c 23 33 32 30  0a 53 55 42 20 52 37 2c  |R0],#320.SUB R7,|
00001d10  52 37 2c 23 36 34 0a 43  4d 50 20 52 37 2c 23 36  |R7,#64.CMP R7,#6|
00001d20  34 0a 42 4c 54 20 64 6f  6e 65 31 39 31 6c 6f 6f  |4.BLT done191loo|
00001d30  0a 4c 44 52 42 20 52 39  2c 5b 52 31 5d 20 20 20  |.LDRB R9,[R1]   |
00001d40  20 20 20 20 3b 20 69 66  20 73 6f 20 6c 6f 61 64  |    ; if so load|
00001d50  20 69 6e 20 70 69 78 65  6c 20 76 61 6c 75 65 0a  | in pixel value.|
00001d60  53 54 52 42 20 52 39 2c  5b 52 30 5d 2c 23 33 32  |STRB R9,[R0],#32|
00001d70  30 0a 53 55 42 20 52 37  2c 52 37 2c 23 36 34 0a  |0.SUB R7,R7,#64.|
00001d80  2e 64 6f 6e 65 31 39 31  6c 6f 6f 0a 41 44 44 20  |.done191loo.ADD |
00001d90  52 31 2c 52 31 2c 23 36  34 0a 41 44 44 20 52 37  |R1,R1,#64.ADD R7|
00001da0  2c 52 37 2c 52 33 20 20  20 20 20 20 20 20 20 3b  |,R7,R3         ;|
00001db0  20 61 64 64 20 73 63 61  6c 65 20 6f 6e 74 6f 20  | add scale onto |
00001dc0  76 65 72 74 2e 20 65 72  72 6f 72 20 74 65 72 6d  |vert. error term|
00001dd0  0a 53 55 42 53 20 52 38  2c 52 38 2c 23 31 0a 42  |.SUBS R8,R8,#1.B|
00001de0  4c 4e 45 20 6c 6f 6f 70  79 31 39 31 6c 6f 6f 20  |LNE loopy191loo |
00001df0  20 20 20 20 20 20 20 20  3b 20 6c 6f 6f 70 20 69  |        ; loop i|
00001e00  66 20 73 6f 0a 4c 44 4d  46 44 20 52 31 33 21 2c  |f so.LDMFD R13!,|
00001e10  7b 52 31 2d 52 31 32 2c  52 31 35 7d 5e 0a 2f 2a  |{R1-R12,R15}^./*|
00001e20  4d 4f 56 53 20 50 43 2c  52 31 34 2a 2f 0a 0a 0a  |MOVS PC,R14*/...|
00001e30  2e 6c 6f 6f 70 79 31 39  32 6c 6f 6f 0a 2e 64 6f  |.loopy192loo..do|
00001e40  64 64 6c 65 31 39 32 0a  43 4d 50 20 52 37 2c 23  |ddle192.CMP R7,#|
00001e50  36 34 0a 4c 44 52 42 20  52 39 2c 5b 52 31 5d 20  |64.LDRB R9,[R1] |
00001e60  20 20 20 20 20 20 3b 20  69 66 20 73 6f 20 6c 6f  |      ; if so lo|
00001e70  61 64 20 69 6e 20 70 69  78 65 6c 20 76 61 6c 75  |ad in pixel valu|
00001e80  65 0a 53 54 52 42 20 52  39 2c 5b 52 30 5d 2c 23  |e.STRB R9,[R0],#|
00001e90  33 32 30 0a 53 55 42 20  52 37 2c 52 37 2c 23 36  |320.SUB R7,R7,#6|
00001ea0  34 0a 43 4d 50 20 52 37  2c 23 36 34 0a 4c 44 52  |4.CMP R7,#64.LDR|
00001eb0  42 20 52 39 2c 5b 52 31  5d 20 20 20 20 20 20 20  |B R9,[R1]       |
00001ec0  3b 20 69 66 20 73 6f 20  6c 6f 61 64 20 69 6e 20  |; if so load in |
00001ed0  70 69 78 65 6c 20 76 61  6c 75 65 0a 53 54 52 42  |pixel value.STRB|
00001ee0  20 52 39 2c 5b 52 30 5d  2c 23 33 32 30 0a 53 55  | R9,[R0],#320.SU|
00001ef0  42 20 52 37 2c 52 37 2c  23 36 34 0a 43 4d 50 20  |B R7,R7,#64.CMP |
00001f00  52 37 2c 23 36 34 0a 4c  44 52 42 20 52 39 2c 5b  |R7,#64.LDRB R9,[|
00001f10  52 31 5d 20 20 20 20 20  20 20 3b 20 69 66 20 73  |R1]       ; if s|
00001f20  6f 20 6c 6f 61 64 20 69  6e 20 70 69 78 65 6c 20  |o load in pixel |
00001f30  76 61 6c 75 65 0a 53 54  52 42 20 52 39 2c 5b 52  |value.STRB R9,[R|
00001f40  30 5d 2c 23 33 32 30 0a  53 55 42 20 52 37 2c 52  |0],#320.SUB R7,R|
00001f50  37 2c 23 36 34 0a 43 4d  50 20 52 37 2c 23 36 34  |7,#64.CMP R7,#64|
00001f60  0a 42 4c 4c 54 20 64 6f  6e 65 31 39 32 6c 6f 6f  |.BLLT done192loo|
00001f70  0a 4c 44 52 42 20 52 39  2c 5b 52 31 5d 20 20 20  |.LDRB R9,[R1]   |
00001f80  20 20 20 20 3b 20 69 66  20 73 6f 20 6c 6f 61 64  |    ; if so load|
00001f90  20 69 6e 20 70 69 78 65  6c 20 76 61 6c 75 65 0a  | in pixel value.|
00001fa0  53 54 52 42 20 52 39 2c  5b 52 30 5d 2c 23 33 32  |STRB R9,[R0],#32|
00001fb0  30 0a 53 55 42 20 52 37  2c 52 37 2c 23 36 34 0a  |0.SUB R7,R7,#64.|
00001fc0  2e 64 6f 6e 65 31 39 32  6c 6f 6f 0a 41 44 44 20  |.done192loo.ADD |
00001fd0  52 31 2c 52 31 2c 23 36  34 0a 41 44 44 20 52 37  |R1,R1,#64.ADD R7|
00001fe0  2c 52 37 2c 52 33 20 20  20 20 20 20 20 20 20 3b  |,R7,R3         ;|
00001ff0  20 61 64 64 20 73 63 61  6c 65 20 6f 6e 74 6f 20  | add scale onto |
00002000  76 65 72 74 2e 20 65 72  72 6f 72 20 74 65 72 6d  |vert. error term|
00002010  0a 53 55 42 53 20 52 38  2c 52 38 2c 23 31 0a 42  |.SUBS R8,R8,#1.B|
00002020  4c 4e 45 20 6c 6f 6f 70  79 31 39 32 6c 6f 6f 20  |LNE loopy192loo |
00002030  20 20 20 20 20 20 20 20  3b 20 6c 6f 6f 70 20 69  |        ; loop i|
00002040  66 20 73 6f 0a 2e 65 6e  64 6f 66 66 75 6e 63 74  |f so..endoffunct|
00002050  69 6f 6e 0a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |ion.LDMFD R13!,{|
00002060  52 31 2d 52 31 32 2c 52  31 35 7d 5e 0a 2f 2a 4d  |R1-R12,R15}^./*M|
00002070  4f 56 53 20 50 43 2c 52  31 34 5e 2a 2f 0a 0a 45  |OVS PC,R14^*/..E|
00002080  58 50 4f 52 54 20 6f 75  72 6c 69 62 5f 73 6c 69  |XPORT ourlib_sli|
00002090  76 65 72 78 0a 2e 6f 75  72 6c 69 62 5f 73 6c 69  |verx..ourlib_sli|
000020a0  76 65 72 78 0a 53 54 4d  46 44 20 52 31 33 21 2c  |verx.STMFD R13!,|
000020b0  7b 52 30 2d 52 31 32 2c  52 31 34 7d 0a 4c 44 4d  |{R0-R12,R14}.LDM|
000020c0  49 41 20 52 30 2c 7b 52  30 2d 52 37 7d 0a 4d 4f  |IA R0,{R0-R7}.MO|
000020d0  56 20 52 31 30 2c 23 32  35 36 0a 43 4d 50 20 52  |V R10,#256.CMP R|
000020e0  33 2c 52 35 0a 4d 4f 56  47 45 20 52 33 2c 52 35  |3,R5.MOVGE R3,R5|
000020f0  0a 0a 2e 6e 6f 63 6c 69  70 70 69 6e 67 78 0a 41  |...noclippingx.A|
00002100  44 44 20 52 31 2c 52 31  2c 52 36 2c 4c 53 4c 20  |DD R1,R1,R6,LSL |
00002110  23 31 32 20 3b 20 63 61  6c 63 75 6c 61 74 65 20  |#12 ; calculate |
00002120  6f 66 66 73 65 74 20 69  6e 20 77 61 6c 6c 73 5b  |offset in walls[|
00002130  5d 5b 5d 20 61 72 72 61  79 0a 41 44 44 20 52 31  |][] array.ADD R1|
00002140  2c 52 31 2c 52 32 20 20  20 20 20 20 20 20 20 3b  |,R1,R2         ;|
00002150  20 61 64 64 20 74 68 65  20 63 6f 6c 75 6d 6e 20  | add the column |
00002160  74 6f 20 74 68 69 73 0a  4d 4f 56 20 52 38 2c 23  |to this.MOV R8,#|
00002170  31 30 30 0a 53 55 42 20  52 38 2c 52 38 2c 52 33  |100.SUB R8,R8,R3|
00002180  2c 4c 53 52 20 23 31 20  3b 20 73 65 74 20 73 74  |,LSR #1 ; set st|
00002190  61 72 74 20 79 20 70 6f  73 0a 41 44 44 20 52 34  |art y pos.ADD R4|
000021a0  2c 52 34 2c 52 38 2c 4c  53 4c 20 23 38 20 3b 20  |,R4,R8,LSL #8 ; |
000021b0  77 6f 72 6b 20 6f 75 74  20 75 73 75 61 6c 20 73  |work out usual s|
000021c0  63 72 65 65 6e 20 28 33  32 30 78 32 35 36 29 0a  |creen (320x256).|
000021d0  41 44 44 20 52 34 2c 52  34 2c 52 38 2c 4c 53 4c  |ADD R4,R4,R8,LSL|
000021e0  20 23 36 20 3b 20 6f 66  66 73 65 74 20 74 6f 20  | #6 ; offset to |
000021f0  62 65 67 69 6e 20 6c 6f  6f 70 0a 41 44 44 20 52  |begin loop.ADD R|
00002200  30 2c 52 30 2c 52 34 0a  0a 3b 20 73 65 74 75 70  |0,R0,R4..; setup|
00002210  20 69 6e 63 20 61 6e 64  20 66 69 78 65 64 0a 4d  | inc and fixed.M|
00002220  4f 56 20 52 39 2c 23 30  2c 4c 53 4c 20 23 31 36  |OV R9,#0,LSL #16|
00002230  0a 4d 4f 56 20 52 31 31  2c 23 30 0a 3b 20 52 33  |.MOV R11,#0.; R3|
00002240  20 68 6f 6c 64 73 20 63  6f 75 6e 74 65 72 0a 2e  | holds counter..|
00002250  6c 6f 6f 70 78 78 78 0a  4c 44 52 42 20 52 31 30  |loopxxx.LDRB R10|
00002260  2c 5b 52 31 2c 52 31 31  2c 4c 53 4c 20 23 36 5d  |,[R1,R11,LSL #6]|
00002270  0a 53 54 52 42 20 52 31  30 2c 5b 52 30 5d 2c 23  |.STRB R10,[R0],#|
00002280  33 32 30 0a 41 44 44 20  52 39 2c 52 39 2c 52 37  |320.ADD R9,R9,R7|
00002290  0a 4d 4f 56 20 52 31 31  2c 52 39 2c 4c 53 52 20  |.MOV R11,R9,LSR |
000022a0  23 31 36 0a 0a 3b 65 6e  64 78 78 78 0a 53 55 42  |#16..;endxxx.SUB|
000022b0  53 20 52 33 2c 52 33 2c  23 31 0a 42 4e 45 20 6c  |S R3,R3,#1.BNE l|
000022c0  6f 6f 70 78 78 78 0a 0a  0a 4c 44 4d 46 44 20 52  |oopxxx...LDMFD R|
000022d0  31 33 21 2c 7b 52 30 2d  52 31 32 2c 52 31 35 7d  |13!,{R0-R12,R15}|
000022e0  5e 0a 2f 2a 4d 4f 56 53  20 50 43 2c 52 31 34 5e  |^./*MOVS PC,R14^|
000022f0  2a 2f 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |*/..EXPORT ourli|
00002300  62 5f 73 6c 6f 77 63 6c  65 61 72 0a 2e 6f 75 72  |b_slowclear..our|
00002310  6c 69 62 5f 73 6c 6f 77  63 6c 65 61 72 0a 53 54  |lib_slowclear.ST|
00002320  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 35 2c  |MFD R13!,{R0-R5,|
00002330  52 31 34 7d 0a 0a 2e 63  6c 65 61 72 69 6e 67 0a  |R14}...clearing.|
00002340  53 54 52 42 20 52 32 2c  5b 52 30 2c 52 31 5d 0a  |STRB R2,[R0,R1].|
00002350  53 55 42 53 20 52 31 2c  52 31 2c 23 31 0a 42 4e  |SUBS R1,R1,#1.BN|
00002360  45 20 63 6c 65 61 72 69  6e 67 0a 4c 44 4d 46 44  |E clearing.LDMFD|
00002370  20 52 31 33 21 2c 7b 52  30 2d 52 35 2c 52 31 35  | R13!,{R0-R5,R15|
00002380  7d 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |}..EXPORT ourlib|
00002390  5f 66 61 73 74 63 6c 67  5f 74 77 6f 0a 2e 6f 75  |_fastclg_two..ou|
000023a0  72 6c 69 62 5f 66 61 73  74 63 6c 67 5f 74 77 6f  |rlib_fastclg_two|
000023b0  0a 0a 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..STMFD R13!,{R0|
000023c0  2d 52 31 32 2c 52 31 34  7d 0a 0a 4d 4f 56 20 52  |-R12,R14}..MOV R|
000023d0  34 2c 23 31 32 38 0a 0a  53 55 42 20 52 34 2c 52  |4,#128..SUB R4,R|
000023e0  34 2c 52 32 2c 41 53 52  20 23 31 0a 41 44 44 20  |4,R2,ASR #1.ADD |
000023f0  52 31 31 2c 52 30 2c 52  34 2c 4c 53 4c 20 23 38  |R11,R0,R4,LSL #8|
00002400  0a 41 44 44 20 52 31 31  2c 52 31 31 2c 52 34 2c  |.ADD R11,R11,R4,|
00002410  4c 53 4c 20 23 36 0a 4d  4f 56 20 52 31 30 2c 52  |LSL #6.MOV R10,R|
00002420  31 31 20 3b 20 73 74 61  72 74 20 6f 66 66 73 65  |11 ; start offse|
00002430  74 20 63 61 6c 63 75 6c  61 74 65 64 0a 4d 4f 56  |t calculated.MOV|
00002440  20 52 39 2c 52 31 0a 0a  4d 4f 56 20 52 31 32 2c  | R9,R1..MOV R12,|
00002450  52 32 2c 4c 53 52 20 23  31 0a 0a 4c 44 52 20 52  |R2,LSR #1..LDR R|
00002460  30 2c 74 6f 70 63 6f 6c  6f 75 72 0a 4d 4f 56 20  |0,topcolour.MOV |
00002470  52 31 2c 52 30 0a 4d 4f  56 20 52 32 2c 52 30 0a  |R1,R0.MOV R2,R0.|
00002480  4d 4f 56 20 52 33 2c 52  30 0a 4d 4f 56 20 52 34  |MOV R3,R0.MOV R4|
00002490  2c 52 30 0a 4d 4f 56 20  52 35 2c 52 30 0a 4d 4f  |,R0.MOV R5,R0.MO|
000024a0  56 20 52 36 2c 52 30 0a  4d 4f 56 20 52 37 2c 52  |V R6,R0.MOV R7,R|
000024b0  30 0a 0a 4d 4f 56 20 52  31 34 2c 52 31 32 0a 2e  |0..MOV R14,R12..|
000024c0  79 5f 6c 6f 6f 70 0a 4d  4f 56 20 52 38 2c 52 39  |y_loop.MOV R8,R9|
000024d0  2c 4c 53 52 20 23 35 0a  2e 78 5f 6c 6f 6f 70 0a  |,LSR #5..x_loop.|
000024e0  0a 53 54 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |.STMIA R11!,{R0-|
000024f0  52 37 7d 0a 53 55 42 53  20 52 38 2c 52 38 2c 23  |R7}.SUBS R8,R8,#|
00002500  31 0a 42 4e 45 20 78 5f  6c 6f 6f 70 0a 0a 41 44  |1.BNE x_loop..AD|
00002510  44 20 52 31 30 2c 52 31  30 2c 23 33 32 30 0a 4d  |D R10,R10,#320.M|
00002520  4f 56 20 52 31 31 2c 52  31 30 0a 0a 53 55 42 53  |OV R11,R10..SUBS|
00002530  20 52 31 32 2c 52 31 32  2c 23 31 0a 42 4e 45 20  | R12,R12,#1.BNE |
00002540  79 5f 6c 6f 6f 70 0a 0a  4c 44 52 20 52 30 2c 62  |y_loop..LDR R0,b|
00002550  6f 74 74 6f 6d 63 6f 6c  6f 75 72 0a 4d 4f 56 20  |ottomcolour.MOV |
00002560  52 31 2c 52 30 0a 4d 4f  56 20 52 32 2c 52 30 0a  |R1,R0.MOV R2,R0.|
00002570  4d 4f 56 20 52 33 2c 52  30 0a 4d 4f 56 20 52 34  |MOV R3,R0.MOV R4|
00002580  2c 52 30 0a 4d 4f 56 20  52 35 2c 52 30 0a 4d 4f  |,R0.MOV R5,R0.MO|
00002590  56 20 52 36 2c 52 30 0a  4d 4f 56 20 52 37 2c 52  |V R6,R0.MOV R7,R|
000025a0  30 0a 4d 4f 56 20 52 31  32 2c 52 31 34 0a 2e 79  |0.MOV R12,R14..y|
000025b0  5f 6c 6f 6f 70 62 0a 4d  4f 56 20 52 38 2c 52 39  |_loopb.MOV R8,R9|
000025c0  2c 4c 53 52 20 23 35 0a  2e 78 5f 6c 6f 6f 70 62  |,LSR #5..x_loopb|
000025d0  0a 0a 53 54 4d 49 41 20  52 31 31 21 2c 7b 52 30  |..STMIA R11!,{R0|
000025e0  2d 52 37 7d 0a 53 55 42  53 20 52 38 2c 52 38 2c  |-R7}.SUBS R8,R8,|
000025f0  23 31 0a 42 4e 45 20 78  5f 6c 6f 6f 70 62 0a 0a  |#1.BNE x_loopb..|
00002600  41 44 44 20 52 31 30 2c  52 31 30 2c 23 33 32 30  |ADD R10,R10,#320|
00002610  0a 4d 4f 56 20 52 31 31  2c 52 31 30 0a 0a 53 55  |.MOV R11,R10..SU|
00002620  42 53 20 52 31 32 2c 52  31 32 2c 23 31 0a 42 4e  |BS R12,R12,#1.BN|
00002630  45 20 79 5f 6c 6f 6f 70  62 0a 0a 0a 0a 0a 0a 0a  |E y_loopb.......|
00002640  0a 0a 0a 0a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |....LDMFD R13!,{|
00002650  52 30 2d 52 31 32 2c 52  31 35 7d 5e 0a 0a 0a 45  |R0-R12,R15}^...E|
00002660  58 50 4f 52 54 20 6f 75  72 6c 69 62 5f 66 61 73  |XPORT ourlib_fas|
00002670  74 63 6c 67 0a 2e 6f 75  72 6c 69 62 5f 66 61 73  |tclg..ourlib_fas|
00002680  74 63 6c 67 0a 53 54 4d  46 44 20 52 31 33 21 2c  |tclg.STMFD R13!,|
00002690  7b 52 31 2d 52 31 32 2c  52 31 34 7d 0a 0a 0a 4d  |{R1-R12,R14}...M|
000026a0  4f 56 20 52 31 31 2c 52  30 0a 0a 0a 4d 4f 56 20  |OV R11,R0...MOV |
000026b0  52 31 30 2c 23 33 32 0a  0a 4c 44 52 20 52 30 2c  |R10,#32..LDR R0,|
000026c0  74 6f 70 63 6f 6c 6f 75  72 0a 4d 4f 56 20 52 30  |topcolour.MOV R0|
000026d0  2c 52 30 0a 4d 4f 56 20  52 31 2c 52 30 0a 4d 4f  |,R0.MOV R1,R0.MO|
000026e0  56 20 52 32 2c 52 30 0a  4d 4f 56 20 52 33 2c 52  |V R2,R0.MOV R3,R|
000026f0  30 0a 4d 4f 56 20 52 34  2c 52 30 0a 4d 4f 56 20  |0.MOV R4,R0.MOV |
00002700  52 35 2c 52 30 0a 4d 4f  56 20 52 36 2c 52 30 0a  |R5,R0.MOV R6,R0.|
00002710  4d 4f 56 20 52 37 2c 52  30 0a 4d 4f 56 20 52 38  |MOV R7,R0.MOV R8|
00002720  2c 52 30 0a 4d 4f 56 20  52 39 2c 52 30 0a 2e 66  |,R0.MOV R9,R0..f|
00002730  61 73 74 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |ast.STMIA  R11!,|
00002740  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00002750  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00002760  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00002770  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00002780  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00002790  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
000027a0  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
000027b0  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
000027c0  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
000027d0  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
000027e0  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
000027f0  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00002800  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00002810  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00002820  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00002830  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00002840  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00002850  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00002860  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00002870  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00002880  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00002890  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
000028a0  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
000028b0  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
000028c0  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
000028d0  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
000028e0  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
000028f0  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00002900  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00002910  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00002920  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00002930  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00002940  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00002950  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00002960  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00002970  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00002980  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00002990  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
000029a0  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
000029b0  52 39 7d 0a 53 55 42 53  20 20 20 52 31 30 2c 52  |R9}.SUBS   R10,R|
000029c0  31 30 2c 23 31 0a 42 4e  45 20 20 20 20 66 61 73  |10,#1.BNE    fas|
000029d0  74 0a 0a 0a 4d 4f 56 20  52 31 30 2c 23 33 32 0a  |t...MOV R10,#32.|
000029e0  4c 44 52 20 52 31 2c 62  6f 74 74 6f 6d 63 6f 6c  |LDR R1,bottomcol|
000029f0  6f 75 72 0a 4d 4f 56 20  52 30 2c 52 31 0a 4d 4f  |our.MOV R0,R1.MO|
00002a00  56 20 52 32 2c 52 31 0a  4d 4f 56 20 52 33 2c 52  |V R2,R1.MOV R3,R|
00002a10  31 0a 4d 4f 56 20 52 34  2c 52 31 0a 4d 4f 56 20  |1.MOV R4,R1.MOV |
00002a20  52 35 2c 52 31 0a 4d 4f  56 20 52 36 2c 52 31 0a  |R5,R1.MOV R6,R1.|
00002a30  4d 4f 56 20 52 37 2c 52  31 0a 4d 4f 56 20 52 38  |MOV R7,R1.MOV R8|
00002a40  2c 52 31 0a 4d 4f 56 20  52 39 2c 52 31 0a 2e 66  |,R1.MOV R9,R1..f|
00002a50  61 73 74 32 0a 53 54 4d  49 41 20 20 52 31 31 21  |ast2.STMIA  R11!|
00002a60  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002a70  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002a80  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002a90  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002aa0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002ab0  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002ac0  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002ad0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002ae0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002af0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002b00  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002b10  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002b20  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002b30  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002b40  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002b50  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002b60  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002b70  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002b80  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002b90  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002ba0  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002bb0  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002bc0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002bd0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002be0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002bf0  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002c00  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002c10  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002c20  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002c30  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002c40  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002c50  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002c60  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002c70  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002c80  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002c90  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002ca0  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002cb0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002cc0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002cd0  2d 52 39 7d 0a 53 55 42  53 20 20 20 52 31 30 2c  |-R9}.SUBS   R10,|
00002ce0  52 31 30 2c 23 31 0a 42  4e 45 20 20 20 20 66 61  |R10,#1.BNE    fa|
00002cf0  73 74 32 0a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |st2.LDMFD R13!,{|
00002d00  52 31 2d 52 31 32 2c 52  31 35 7d 5e 0a 0a 0a 2e  |R1-R12,R15}^....|
00002d10  74 6f 70 63 6f 6c 6f 75  72 0a 45 51 55 44 20 30  |topcolour.EQUD 0|
00002d20  0a 2e 62 6f 74 74 6f 6d  63 6f 6c 6f 75 72 0a 45  |..bottomcolour.E|
00002d30  51 55 44 20 30 0a 2e 73  63 72 65 65 6e 79 6f 66  |QUD 0..screenyof|
00002d40  66 73 65 74 0a 45 51 55  44 20 30 0a 2e 73 63 72  |fset.EQUD 0..scr|
00002d50  65 65 6e 79 73 74 6f 70  0a 45 51 55 44 20 30 0a  |eenystop.EQUD 0.|
00002d60  2e 73 63 72 65 65 6e 78  6f 66 66 73 65 74 0a 45  |.screenxoffset.E|
00002d70  51 55 44 20 30 0a 2e 73  63 72 65 65 6e 78 73 74  |QUD 0..screenxst|
00002d80  6f 70 0a 45 51 55 44 20  30 0a 0a 0a 0a 0a 45 58  |op.EQUD 0.....EX|
00002d90  50 4f 52 54 20 6f 75 72  6c 69 62 5f 73 65 74 75  |PORT ourlib_setu|
00002da0  70 62 61 63 6b 67 72 6f  75 6e 64 0a 2e 6f 75 72  |pbackground..our|
00002db0  6c 69 62 5f 73 65 74 75  70 5f 62 61 63 6b 67 72  |lib_setup_backgr|
00002dc0  6f 75 6e 64 0a 53 54 4d  46 44 20 52 31 33 21 2c  |ound.STMFD R13!,|
00002dd0  7b 52 31 2d 52 36 2c 52  31 34 7d 0a 2f 2a 4d 4f  |{R1-R6,R14}./*MO|
00002de0  56 20 52 31 30 2c 23 33  32 30 0a 53 55 42 20 52  |V R10,#320.SUB R|
00002df0  39 2c 52 31 30 2c 52 32  2c 4c 53 52 20 23 31 0a  |9,R10,R2,LSR #1.|
00002e00  53 54 52 20 52 39 2c 73  63 72 65 65 6e 78 6f 66  |STR R9,screenxof|
00002e10  66 73 65 74 0a 53 55 42  20 52 39 2c 52 31 30 2c  |fset.SUB R9,R10,|
00002e20  52 39 0a 53 54 52 20 52  39 2c 73 63 72 65 65 6e  |R9.STR R9,screen|
00002e30  78 73 74 6f 70 0a 4d 4f  56 20 52 31 30 2c 23 31  |xstop.MOV R10,#1|
00002e40  32 38 0a 53 55 42 20 52  39 2c 52 31 30 2c 52 33  |28.SUB R9,R10,R3|
00002e50  2c 4c 53 52 20 23 31 0a  53 54 52 20 52 39 2c 73  |,LSR #1.STR R9,s|
00002e60  63 72 65 65 6e 79 6f 66  66 73 65 74 0a 4d 4f 56  |creenyoffset.MOV|
00002e70  20 52 31 30 2c 23 32 35  36 0a 53 55 42 20 52 39  | R10,#256.SUB R9|
00002e80  2c 52 31 30 2c 52 39 0a  53 54 52 20 52 39 2c 73  |,R10,R9.STR R9,s|
00002e90  63 72 65 65 6e 79 73 74  6f 70 2a 2f 0a 0a 4d 4f  |creenystop*/..MO|
00002ea0  56 20 52 33 2c 52 30 0a  4d 4f 56 20 52 34 2c 52  |V R3,R0.MOV R4,R|
00002eb0  31 0a 0a 4f 52 52 20 52  30 2c 52 30 2c 52 33 0a  |1..ORR R0,R0,R3.|
00002ec0  4f 52 52 20 52 30 2c 52  30 2c 52 33 2c 4c 53 4c  |ORR R0,R0,R3,LSL|
00002ed0  20 23 38 0a 4f 52 52 20  52 30 2c 52 30 2c 52 33  | #8.ORR R0,R0,R3|
00002ee0  2c 4c 53 4c 20 23 31 36  0a 4f 52 52 20 52 30 2c  |,LSL #16.ORR R0,|
00002ef0  52 30 2c 52 33 2c 4c 53  4c 20 23 32 34 0a 53 54  |R0,R3,LSL #24.ST|
00002f00  52 20 52 30 2c 74 6f 70  63 6f 6c 6f 75 72 0a 0a  |R R0,topcolour..|
00002f10  4d 4f 56 20 52 30 2c 23  30 0a 4f 52 52 20 52 30  |MOV R0,#0.ORR R0|
00002f20  2c 52 30 2c 52 34 0a 4f  52 52 20 52 30 2c 52 30  |,R0,R4.ORR R0,R0|
00002f30  2c 52 34 2c 4c 53 4c 20  23 38 0a 4f 52 52 20 52  |,R4,LSL #8.ORR R|
00002f40  30 2c 52 30 2c 52 34 2c  4c 53 4c 20 23 31 36 0a  |0,R0,R4,LSL #16.|
00002f50  4f 52 52 20 52 30 2c 52  30 2c 52 34 2c 4c 53 4c  |ORR R0,R0,R4,LSL|
00002f60  20 23 32 34 0a 53 54 52  20 52 30 2c 62 6f 74 74  | #24.STR R0,bott|
00002f70  6f 6d 63 6f 6c 6f 75 72  0a 4c 44 4d 46 44 20 52  |omcolour.LDMFD R|
00002f80  31 33 21 2c 7b 52 31 2d  52 36 2c 52 31 35 7d 5e  |13!,{R1-R6,R15}^|
00002f90  0a 0a 45 58 50 4f 52 54  20 63 6f 6c 6f 75 72 5f  |..EXPORT colour_|
00002fa0  62 6f 78 0a 2e 63 6f 6c  6f 75 72 5f 62 6f 78 0a  |box..colour_box.|
00002fb0  0a 2f 2a 20 52 30 20 3d  20 76 69 64 65 6f 5f 61  |./* R0 = video_a|
00002fc0  64 64 72 65 73 73 20 52  31 3d 20 73 74 61 72 74  |ddress R1= start|
00002fd0  78 20 52 32 20 3d 20 73  74 61 72 74 79 20 52 33  |x R2 = starty R3|
00002fe0  20 3d 20 65 6e 64 78 20  52 34 20 3d 20 65 6e 64  | = endx R4 = end|
00002ff0  79 20 52 35 20 3d 20 63  6f 6c 6f 75 72 2a 2f 0a  |y R5 = colour*/.|
00003000  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00003010  31 30 2c 52 31 34 7d 0a  4c 44 4d 49 41 20 52 30  |10,R14}.LDMIA R0|
00003020  2c 7b 52 30 2d 52 35 7d  0a 0a 4d 4f 56 20 52 36  |,{R0-R5}..MOV R6|
00003030  2c 52 32 0a 0a 2e 6c 6f  6f 70 5f 79 0a 4d 4f 56  |,R2...loop_y.MOV|
00003040  20 52 37 2c 52 31 0a 2e  6c 6f 6f 70 5f 78 0a 41  | R7,R1..loop_x.A|
00003050  44 44 20 52 38 2c 52 37  2c 52 36 2c 4c 53 4c 20  |DD R8,R7,R6,LSL |
00003060  23 38 0a 41 44 44 20 52  38 2c 52 38 2c 52 36 2c  |#8.ADD R8,R8,R6,|
00003070  4c 53 4c 20 23 36 0a 53  54 52 42 20 52 35 2c 5b  |LSL #6.STRB R5,[|
00003080  52 30 2c 52 38 5d 0a 41  44 44 20 52 37 2c 52 37  |R0,R8].ADD R7,R7|
00003090  2c 23 31 0a 43 4d 50 20  52 37 2c 52 33 0a 42 4c  |,#1.CMP R7,R3.BL|
000030a0  54 20 6c 6f 6f 70 5f 78  0a 0a 41 44 44 20 52 36  |T loop_x..ADD R6|
000030b0  2c 52 36 2c 23 31 0a 43  4d 50 20 52 36 2c 52 34  |,R6,#1.CMP R6,R4|
000030c0  0a 42 4c 54 20 6c 6f 6f  70 5f 79 0a 0a 4c 44 4d  |.BLT loop_y..LDM|
000030d0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 31 30 2c  |FD R13!,{R1-R10,|
000030e0  50 43 7d 0a 0a 0a 0a 0a  0a 0a 45 58 50 4f 52 54  |PC}.......EXPORT|
000030f0  20 6f 75 72 6c 69 62 5f  72 61 79 62 61 63 6b 0a  | ourlib_rayback.|
00003100  2e 6f 75 72 6c 69 62 5f  72 61 79 62 61 63 6b 0a  |.ourlib_rayback.|
00003110  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00003120  31 32 2c 52 31 34 7d 0a  0a 4d 4f 56 20 52 31 32  |12,R14}..MOV R12|
00003130  2c 23 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |,#00000000000000|
00003140  0a 4d 4f 56 20 52 32 2c  23 32 30 34 38 30 0a 0a  |.MOV R2,#20480..|
00003150  2e 72 61 79 62 61 63 6b  6c 6f 6f 70 0a 53 54 52  |.raybackloop.STR|
00003160  20 52 31 32 2c 5b 52 30  2c 23 34 5d 21 0a 53 55  | R12,[R0,#4]!.SU|
00003170  42 53 20 52 32 2c 52 32  20 2c 23 31 0a 42 4e 45  |BS R2,R2 ,#1.BNE|
00003180  20 72 61 79 62 61 63 6b  6c 6f 6f 70 0a 0a 0a 4c  | raybackloop...L|
00003190  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 31  |DMFD R13!,{R1-R1|
000031a0  32 2c 52 31 35 7d 5e 0a  0a 45 58 50 4f 52 54 20  |2,R15}^..EXPORT |
000031b0  6f 75 72 6c 69 62 5f 77  61 69 74 76 73 79 6e 63  |ourlib_waitvsync|
000031c0  0a 2e 6f 75 72 6c 69 62  5f 77 61 69 74 76 73 79  |..ourlib_waitvsy|
000031d0  6e 63 0a 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |nc.STMFD R13!,{R|
000031e0  31 2d 52 32 2c 52 31 34  7d 0a 4d 4f 56 20 52 30  |1-R2,R14}.MOV R0|
000031f0  2c 23 31 39 0a 53 57 49  20 4f 53 5f 42 79 74 65  |,#19.SWI OS_Byte|
00003200  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00003210  52 32 2c 52 31 35 7d 5e  0a 0a 45 58 50 4f 52 54  |R2,R15}^..EXPORT|
00003220  20 6f 75 72 6c 69 62 5f  73 63 72 65 65 6e 5f 72  | ourlib_screen_r|
00003230  6f 74 61 74 65 0a 2e 6f  75 72 6c 69 62 5f 73 63  |otate..ourlib_sc|
00003240  72 65 65 6e 5f 72 6f 74  61 74 65 0a 53 54 4d 46  |reen_rotate.STMF|
00003250  44 20 52 31 33 21 2c 7b  52 31 2d 52 34 2c 52 31  |D R13!,{R1-R4,R1|
00003260  34 7d 0a 4c 44 52 20 52  31 2c 73 63 72 65 65 6e  |4}.LDR R1,screen|
00003270  73 69 7a 65 0a 4c 44 52  20 52 31 2c 73 63 72 65  |size.LDR R1,scre|
00003280  65 6e 73 69 7a 65 0a 2e  72 6f 74 61 74 65 6c 6f  |ensize..rotatelo|
00003290  6f 70 0a 4c 44 52 42 20  52 33 2c 5b 52 30 5d 0a  |op.LDRB R3,[R0].|
000032a0  4d 4f 56 20 52 33 2c 52  33 2c 52 4f 52 20 23 32  |MOV R3,R3,ROR #2|
000032b0  34 0a 53 54 52 42 20 52  33 2c 5b 52 30 5d 2c 23  |4.STRB R3,[R0],#|
000032c0  31 0a 53 55 42 53 20 52  31 2c 52 31 2c 23 31 0a  |1.SUBS R1,R1,#1.|
000032d0  42 4e 45 20 72 6f 74 61  74 65 6c 6f 6f 70 0a 4c  |BNE rotateloop.L|
000032e0  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 34  |DMFD R13!,{R1-R4|
000032f0  2c 50 43 7d 0a 2e 73 63  72 65 65 6e 73 69 7a 65  |,PC}..screensize|
00003300  0a 45 51 55 44 20 38 31  39 32 30 0a 0a 0a 0a 0a  |.EQUD 81920.....|
00003310  45 58 50 4f 52 54 20 6f  75 72 6c 69 62 5f 66 61  |EXPORT ourlib_fa|
00003320  64 65 5f 6f 75 74 0a 2e  6f 75 72 6c 69 62 5f 66  |de_out..ourlib_f|
00003330  61 64 65 5f 6f 75 74 0a  53 54 4d 46 44 20 52 31  |ade_out.STMFD R1|
00003340  33 21 2c 7b 52 31 2d 52  37 2c 52 31 34 7d 0a 2f  |3!,{R1-R7,R14}./|
00003350  2a 20 52 30 20 3d 20 76  69 64 65 6f 61 64 64 72  |* R0 = videoaddr|
00003360  65 73 73 20 52 31 20 3d  20 73 63 72 65 65 6e 73  |ess R1 = screens|
00003370  69 7a 65 20 2a 2f 0a 0a  41 44 44 20 52 30 2c 52  |ize */..ADD R0,R|
00003380  30 2c 52 31 20 20 20 20  20 20 20 20 20 3b 20 50  |0,R1         ; P|
00003390  6f 69 6e 74 20 52 30 20  74 6f 20 62 6f 74 74 6f  |oint R0 to botto|
000033a0  6d 20 6f 66 20 73 63 72  65 65 6e 0a 4d 4f 56 20  |m of screen.MOV |
000033b0  52 35 2c 23 38 20 20 20  20 20 20 20 20 20 20 20  |R5,#8           |
000033c0  20 3b 20 4c 6f 6f 70 20  77 69 6c 6c 20 65 78 65  | ; Loop will exe|
000033d0  63 75 74 65 20 20 23 34  20 63 79 63 6c 65 73 0a  |cute  #4 cycles.|
000033e0  2e 6f 75 74 65 72 5f 6c  6f 6f 70 20 20 20 20 20  |.outer_loop     |
000033f0  20 20 20 20 20 3b 20 4f  75 74 65 72 20 6c 6f 6f  |     ; Outer loo|
00003400  70 20 62 65 67 69 6e 73  0a 4d 4f 56 20 52 34 2c  |p begins.MOV R4,|
00003410  52 31 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |R1            ; |
00003420  4d 6f 76 65 20 73 63 72  65 65 6e 73 69 7a 65 20  |Move screensize |
00003430  69 6e 74 6f 20 74 65 6d  70 20 52 34 0a 2e 66 61  |into temp R4..fa|
00003440  64 65 72 5f 6c 6f 6f 70  20 20 20 20 20 20 20 20  |der_loop        |
00003450  20 20 3b 20 49 6e 6e 65  72 20 6c 6f 6f 70 20 62  |  ; Inner loop b|
00003460  65 67 69 6e 73 0a 53 55  42 20 52 32 2c 52 30 2c  |egins.SUB R2,R0,|
00003470  52 34 20 20 20 20 20 20  20 20 20 3b 20 53 75 62  |R4         ; Sub|
00003480  74 72 61 63 74 20 52 34  20 66 72 6f 6d 20 73 63  |tract R4 from sc|
00003490  72 65 65 6e 20 70 6f 69  6e 74 65 72 0a 4c 44 52  |reen pointer.LDR|
000034a0  42 20 52 33 2c 5b 52 32  5d 20 20 20 20 20 20 20  |B R3,[R2]       |
000034b0  20 20 3b 20 4c 6f 61 64  20 74 68 65 20 76 61 6c  |  ; Load the val|
000034c0  75 65 20 70 6f 69 6e 74  65 64 20 74 6f 0a 4d 4f  |ue pointed to.MO|
000034d0  56 20 52 33 2c 52 33 2c  4c 53 52 20 23 31 20 20  |V R3,R3,LSR #1  |
000034e0  20 20 20 3b 20 53 68 69  66 74 20 28 66 61 64 65  |   ; Shift (fade|
000034f0  29 20 69 74 0a 53 54 52  42 20 52 33 2c 5b 52 32  |) it.STRB R3,[R2|
00003500  5d 20 20 20 20 20 20 20  20 20 3b 20 41 6e 64 20  |]         ; And |
00003510  73 74 6f 72 65 20 69 74  20 62 61 63 6b 20 77 68  |store it back wh|
00003520  65 72 65 20 69 74 20 77  61 73 0a 53 55 42 53 20  |ere it was.SUBS |
00003530  52 34 2c 52 34 2c 23 31  20 20 20 20 20 20 20 20  |R4,R4,#1        |
00003540  3b 20 4d 6f 76 65 20 70  6f 69 6e 74 65 72 20 74  |; Move pointer t|
00003550  6f 20 6e 65 78 74 20 70  69 78 65 6c 0a 42 4e 45  |o next pixel.BNE|
00003560  20 66 61 64 65 72 5f 6c  6f 6f 70 20 20 20 20 20  | fader_loop     |
00003570  20 20 3b 20 4c 6f 6f 70  20 69 66 20 6e 6f 74 20  |  ; Loop if not |
00003580  64 6f 6e 65 20 79 65 74  0a 53 55 42 53 20 52 35  |done yet.SUBS R5|
00003590  2c 52 35 2c 23 31 20 20  20 20 20 20 20 20 3b 20  |,R5,#1        ; |
000035a0  44 65 63 72 65 6d 65 6e  74 20 6f 75 74 65 72 20  |Decrement outer |
000035b0  6c 6f 6f 70 20 63 6f 75  6e 74 65 72 0a 42 4e 45  |loop counter.BNE|
000035c0  20 6f 75 74 65 72 5f 6c  6f 6f 70 20 20 20 20 20  | outer_loop     |
000035d0  20 20 3b 20 4c 6f 6f 70  20 61 67 61 69 6e 20 69  |  ; Loop again i|
000035e0  66 20 69 6e 63 6f 6d 70  6c 65 74 65 0a 4c 44 4d  |f incomplete.LDM|
000035f0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 37 2c 50  |FD R13!,{R1-R7,P|
00003600  43 7d 5e 0a 0a 45 58 50  4f 52 54 20 6f 75 72 6c  |C}^..EXPORT ourl|
00003610  69 62 5f 63 6f 6c 6f 75  72 73 63 72 65 65 6e 31  |ib_colourscreen1|
00003620  33 0a 2e 6f 75 72 6c 69  62 5f 63 6f 6c 6f 75 72  |3..ourlib_colour|
00003630  73 63 72 65 65 6e 31 33  0a 0a 53 54 4d 46 44 20  |screen13..STMFD |
00003640  52 31 33 21 2c 7b 52 31  2d 52 31 32 2c 52 31 34  |R13!,{R1-R12,R14|
00003650  7d 0a 2f 2a 20 52 30 20  3d 20 76 69 64 65 6f 5f  |}./* R0 = video_|
00003660  61 64 64 72 65 73 73 20  52 31 20 3d 20 70 69 78  |address R1 = pix|
00003670  65 6c 73 20 52 32 20 3d  20 63 6f 6c 6f 75 72 20  |els R2 = colour |
00003680  2a 2f 0a 0a 2e 6c 6f 6f  70 5f 70 69 78 65 6c 0a  |*/...loop_pixel.|
00003690  53 54 52 42 20 52 32 2c  5b 52 30 2c 52 31 5d 0a  |STRB R2,[R0,R1].|
000036a0  53 55 42 53 20 52 31 2c  52 31 2c 23 31 0a 42 4e  |SUBS R1,R1,#1.BN|
000036b0  45 20 6c 6f 6f 70 5f 70  69 78 65 6c 0a 4c 44 4d  |E loop_pixel.LDM|
000036c0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 31 32 2c  |FD R13!,{R1-R12,|
000036d0  52 31 35 7d 5e 0a 0a 0a  45 58 50 4f 52 54 20 6f  |R15}^...EXPORT o|
000036e0  75 72 6c 69 62 5f 66 69  6e 64 73 63 72 65 65 6e  |urlib_findscreen|
000036f0  0a 2e 6f 75 72 6c 69 62  5f 66 69 6e 64 73 63 72  |..ourlib_findscr|
00003700  65 65 6e 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |een.STMFD R13!,{|
00003710  52 31 2d 52 35 2c 52 31  34 7d 0a 41 44 52 20 52  |R1-R5,R14}.ADR R|
00003720  30 2c 53 63 72 65 65 6e  5f 50 61 72 61 6d 73 0a  |0,Screen_Params.|
00003730  41 44 52 20 52 31 2c 53  63 72 65 65 6e 5f 41 64  |ADR R1,Screen_Ad|
00003740  64 72 65 73 73 0a 53 57  49 20 22 4f 53 5f 52 65  |dress.SWI "OS_Re|
00003750  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 0a  |adVduVariables".|
00003760  4c 44 52 20 52 30 2c 53  63 72 65 65 6e 5f 41 64  |LDR R0,Screen_Ad|
00003770  64 72 65 73 73 0a 4c 44  4d 46 44 20 52 31 33 21  |dress.LDMFD R13!|
00003780  2c 7b 52 31 2d 52 35 2c  52 31 35 7d 5e 0a 2e 53  |,{R1-R5,R15}^..S|
00003790  63 72 65 65 6e 5f 41 64  64 72 65 73 73 0a 45 51  |creen_Address.EQ|
000037a0  55 44 20 30 3b 0a 2e 53  63 72 65 65 6e 5f 50 61  |UD 0;..Screen_Pa|
000037b0  72 61 6d 73 0a 45 51 55  44 20 31 34 38 3b 0a 45  |rams.EQUD 148;.E|
000037c0  51 55 44 20 2d 31 3b 0a  0a 0a 23 70 72 61 67 6d  |QUD -1;...#pragm|
000037d0  61 20 65 6e 64 61 73 6d  0a 0a 0a 76 6f 69 64 20  |a endasm...void |
000037e0  6f 75 72 6c 69 62 5f 77  72 69 74 65 28 63 68 61  |ourlib_write(cha|
000037f0  72 20 73 74 72 69 6e 67  5b 5d 29 3b 0a 76 6f 69  |r string[]);.voi|
00003800  64 20 6f 75 72 6c 69 62  5f 62 69 74 6d 61 70 5f  |d ourlib_bitmap_|
00003810  70 6c 6f 74 28 69 6e 74  20 73 74 61 72 74 5f 78  |plot(int start_x|
00003820  2c 69 6e 74 20 73 74 61  72 74 5f 79 2c 69 6e 74  |,int start_y,int|
00003830  20 65 6e 64 5f 78 2c 69  6e 74 20 65 6e 64 5f 79  | end_x,int end_y|
00003840  2c 63 68 61 72 20 2a 6d  65 6d 6f 72 79 2c 63 68  |,char *memory,ch|
00003850  61 72 20 2a 76 69 64 65  6f 29 3b 0a 76 6f 69 64  |ar *video);.void|
00003860  20 6f 75 72 6c 69 62 5f  62 69 74 6d 61 70 5f 67  | ourlib_bitmap_g|
00003870  72 61 62 28 69 6e 74 20  73 74 61 72 74 5f 78 2c  |rab(int start_x,|
00003880  69 6e 74 20 73 74 61 72  74 5f 79 2c 69 6e 74 20  |int start_y,int |
00003890  65 6e 64 5f 78 2c 69 6e  74 20 65 6e 64 5f 79 2c  |end_x,int end_y,|
000038a0  63 68 61 72 20 2a 6d 65  6d 6f 72 79 2c 63 68 61  |char *memory,cha|
000038b0  72 20 2a 76 69 64 65 6f  29 3b 0a 0a 0a 76 6f 69  |r *video);...voi|
000038c0  64 20 6f 75 72 6c 69 62  5f 62 69 74 6d 61 70 5f  |d ourlib_bitmap_|
000038d0  67 72 61 62 28 69 6e 74  20 73 74 61 72 74 5f 78  |grab(int start_x|
000038e0  2c 69 6e 74 20 73 74 61  72 74 5f 79 2c 69 6e 74  |,int start_y,int|
000038f0  20 65 6e 64 5f 78 2c 69  6e 74 20 65 6e 64 5f 79  | end_x,int end_y|
00003900  2c 63 68 61 72 20 2a 6d  65 6d 6f 72 79 2c 63 68  |,char *memory,ch|
00003910  61 72 20 2a 76 69 64 65  6f 29 0a 7b 0a 20 20 69  |ar *video).{.  i|
00003920  6e 74 20 6f 66 66 73 65  74 5f 69 6e 5f 6d 65 6d  |nt offset_in_mem|
00003930  6f 72 79 3b 0a 20 20 69  6e 74 20 6f 66 66 73 65  |ory;.  int offse|
00003940  74 5f 69 6e 5f 73 63 72  65 65 6e 3b 0a 20 20 69  |t_in_screen;.  i|
00003950  6e 74 20 70 69 78 65 6c  5f 78 2c 70 69 78 65 6c  |nt pixel_x,pixel|
00003960  5f 79 3b 0a 0a 20 20 66  6f 72 28 6f 66 66 73 65  |_y;..  for(offse|
00003970  74 5f 69 6e 5f 6d 65 6d  6f 72 79 3d 30 2c 70 69  |t_in_memory=0,pi|
00003980  78 65 6c 5f 79 3d 73 74  61 72 74 5f 79 3b 70 69  |xel_y=start_y;pi|
00003990  78 65 6c 5f 79 3c 3d 65  6e 64 5f 79 3b 70 69 78  |xel_y<=end_y;pix|
000039a0  65 6c 5f 79 2b 2b 29 0a  20 20 7b 0a 20 20 20 20  |el_y++).  {.    |
000039b0  66 6f 72 28 70 69 78 65  6c 5f 78 3d 73 74 61 72  |for(pixel_x=star|
000039c0  74 5f 78 3b 70 69 78 65  6c 5f 78 3c 3d 65 6e 64  |t_x;pixel_x<=end|
000039d0  5f 78 3b 70 69 78 65 6c  5f 78 2b 2b 2c 6f 66 66  |_x;pixel_x++,off|
000039e0  73 65 74 5f 69 6e 5f 6d  65 6d 6f 72 79 2b 2b 29  |set_in_memory++)|
000039f0  0a 20 20 20 20 7b 0a 20  20 20 20 20 20 6f 66 66  |.    {.      off|
00003a00  73 65 74 5f 69 6e 5f 73  63 72 65 65 6e 3d 70 69  |set_in_screen=pi|
00003a10  78 65 6c 5f 78 2b 28 70  69 78 65 6c 5f 79 3c 3c  |xel_x+(pixel_y<<|
00003a20  36 29 2b 28 70 69 78 65  6c 5f 79 3c 3c 38 29 3b  |6)+(pixel_y<<8);|
00003a30  0a 20 20 20 20 20 20 6d  65 6d 6f 72 79 5b 6f 66  |.      memory[of|
00003a40  66 73 65 74 5f 69 6e 5f  6d 65 6d 6f 72 79 5d 3d  |fset_in_memory]=|
00003a50  2a 28 76 69 64 65 6f 2b  6f 66 66 73 65 74 5f 69  |*(video+offset_i|
00003a60  6e 5f 73 63 72 65 65 6e  29 3b 0a 0a 20 20 20 20  |n_screen);..    |
00003a70  7d 0a 20 20 7d 0a 0a 7d  0a 76 6f 69 64 20 6f 75  |}.  }..}.void ou|
00003a80  72 6c 69 62 5f 62 69 74  6d 61 70 5f 70 6c 6f 74  |rlib_bitmap_plot|
00003a90  28 69 6e 74 20 73 74 61  72 74 5f 78 2c 69 6e 74  |(int start_x,int|
00003aa0  20 73 74 61 72 74 5f 79  2c 69 6e 74 20 65 6e 64  | start_y,int end|
00003ab0  5f 78 2c 69 6e 74 20 65  6e 64 5f 79 2c 63 68 61  |_x,int end_y,cha|
00003ac0  72 20 2a 6d 65 6d 6f 72  79 2c 63 68 61 72 20 2a  |r *memory,char *|
00003ad0  76 69 64 65 6f 29 0a 7b  0a 20 20 69 6e 74 20 6f  |video).{.  int o|
00003ae0  66 66 73 65 74 5f 69 6e  5f 6d 65 6d 6f 72 79 3b  |ffset_in_memory;|
00003af0  0a 20 20 69 6e 74 20 6f  66 66 73 65 74 5f 69 6e  |.  int offset_in|
00003b00  5f 73 63 72 65 65 6e 3b  0a 20 20 69 6e 74 20 70  |_screen;.  int p|
00003b10  69 78 65 6c 5f 78 2c 70  69 78 65 6c 5f 79 3b 0a  |ixel_x,pixel_y;.|
00003b20  0a 20 20 66 6f 72 28 6f  66 66 73 65 74 5f 69 6e  |.  for(offset_in|
00003b30  5f 6d 65 6d 6f 72 79 3d  30 2c 70 69 78 65 6c 5f  |_memory=0,pixel_|
00003b40  79 3d 73 74 61 72 74 5f  79 3b 70 69 78 65 6c 5f  |y=start_y;pixel_|
00003b50  79 3c 3d 65 6e 64 5f 79  3b 70 69 78 65 6c 5f 79  |y<=end_y;pixel_y|
00003b60  2b 2b 29 0a 20 20 7b 0a  20 20 20 20 66 6f 72 28  |++).  {.    for(|
00003b70  70 69 78 65 6c 5f 78 3d  73 74 61 72 74 5f 78 3b  |pixel_x=start_x;|
00003b80  70 69 78 65 6c 5f 78 3c  3d 65 6e 64 5f 78 3b 70  |pixel_x<=end_x;p|
00003b90  69 78 65 6c 5f 78 2b 2b  2c 6f 66 66 73 65 74 5f  |ixel_x++,offset_|
00003ba0  69 6e 5f 6d 65 6d 6f 72  79 2b 2b 29 0a 20 20 20  |in_memory++).   |
00003bb0  20 7b 0a 20 20 20 20 20  20 6f 66 66 73 65 74 5f  | {.      offset_|
00003bc0  69 6e 5f 73 63 72 65 65  6e 3d 70 69 78 65 6c 5f  |in_screen=pixel_|
00003bd0  78 2b 28 70 69 78 65 6c  5f 79 3c 3c 36 29 2b 28  |x+(pixel_y<<6)+(|
00003be0  70 69 78 65 6c 5f 79 3c  3c 38 29 3b 0a 20 20 20  |pixel_y<<8);.   |
00003bf0  20 20 20 2a 28 76 69 64  65 6f 2b 6f 66 66 73 65  |   *(video+offse|
00003c00  74 5f 69 6e 5f 73 63 72  65 65 6e 29 3d 6d 65 6d  |t_in_screen)=mem|
00003c10  6f 72 79 5b 6f 66 66 73  65 74 5f 69 6e 5f 6d 65  |ory[offset_in_me|
00003c20  6d 6f 72 79 5d 3b 0a 20  20 20 20 7d 0a 20 20 7d  |mory];.    }.  }|
00003c30  0a 7d 0a 76 6f 69 64 20  6f 75 72 6c 69 62 5f 77  |.}.void ourlib_w|
00003c40  72 69 74 65 28 63 68 61  72 20 73 74 72 69 6e 67  |rite(char string|
00003c50  5b 5d 29 0a 7b 0a 20 70  72 69 6e 74 66 28 22 25  |[]).{. printf("%|
00003c60  73 5c 6e 22 2c 73 74 72  69 6e 67 29 3b 0a 7d 0a  |s\n",string);.}.|
00003c70  76 6f 69 64 20 6f 75 72  6c 69 62 5f 62 69 74 6d  |void ourlib_bitm|
00003c80  61 70 5f 73 63 61 6c 65  28 63 68 61 72 20 2a 73  |ap_scale(char *s|
00003c90  63 72 65 65 6e 2c 69 6e  74 20 73 63 72 65 65 6e  |creen,int screen|
00003ca0  78 2c 69 6e 74 20 73 63  72 65 65 6e 79 2c 69 6e  |x,int screeny,in|
00003cb0  74 20 70 65 72 63 65 6e  74 2c 20 69 6e 74 20 77  |t percent, int w|
00003cc0  69 64 74 68 2c 69 6e 74  20 68 65 69 67 68 74 2c  |idth,int height,|
00003cd0  63 68 61 72 20 2a 62 69  74 6d 61 70 29 0a 7b 0a  |char *bitmap).{.|
00003ce0  0a 0a 20 20 20 20 20 20  69 6e 74 20 79 65 72 72  |..      int yerr|
00003cf0  6f 72 3d 30 3b 0a 0a 20  20 20 20 20 20 2f 2a 69  |or=0;..      /*i|
00003d00  6e 74 20 73 63 72 65 65  6e 79 3d 28 32 30 30 2d  |nt screeny=(200-|
00003d10  70 65 72 63 65 6e 74 29  2f 32 3b 2a 2f 0a 69 6e  |percent)/2;*/.in|
00003d20  74 20 78 65 72 72 6f 72  2c 78 3b 0a 0a 0a 20 20  |t xerror,x;...  |
00003d30  20 20 20 20 75 6e 73 69  67 6e 65 64 20 69 6e 74  |    unsigned int|
00003d40  20 73 63 72 70 74 72 3d  73 63 72 65 65 6e 79 2a  | scrptr=screeny*|
00003d50  33 32 30 2b 73 63 72 65  65 6e 78 3b 0a 20 20 20  |320+screenx;.   |
00003d60  20 20 20 75 6e 73 69 67  6e 65 64 20 69 6e 74 20  |   unsigned int |
00003d70  62 69 74 70 74 72 3d 30  3b 0a 0a 20 20 20 20 20  |bitptr=0;..     |
00003d80  20 69 6e 74 20 79 3b 0a  75 6e 73 69 67 6e 65 64  | int y;.unsigned|
00003d90  20 69 6e 74 20 6f 6c 64  5f 73 63 72 70 74 72 3b  | int old_scrptr;|
00003da0  0a 75 6e 73 69 67 6e 65  64 20 69 6e 74 20 6f 6c  |.unsigned int ol|
00003db0  64 5f 62 69 74 70 74 72  3b 0a 20 20 20 20 20 20  |d_bitptr;.      |
00003dc0  66 6f 72 20 28 79 3d 30  3b 20 79 3c 68 65 69 67  |for (y=0; y<heig|
00003dd0  68 74 3b 20 79 2b 2b 29  20 7b 0a 0a 0a 0a 20 20  |ht; y++) {....  |
00003de0  20 20 20 20 20 20 79 65  72 72 6f 72 2b 3d 70 65  |      yerror+=pe|
00003df0  72 63 65 6e 74 3b 0a 0a  0a 0a 20 20 20 20 20 20  |rcent;....      |
00003e00  20 20 77 68 69 6c 65 20  28 79 65 72 72 6f 72 3e  |  while (yerror>|
00003e10  31 30 30 29 20 7b 0a 0a  0a 0a 20 20 20 20 20 20  |100) {....      |
00003e20  20 20 20 20 79 65 72 72  6f 72 2d 3d 31 30 30 3b  |    yerror-=100;|
00003e30  0a 0a 0a 20 20 20 20 20  20 20 20 6f 6c 64 5f 73  |...        old_s|
00003e40  63 72 70 74 72 3d 73 63  72 70 74 72 3b 0a 0a 0a  |crptr=scrptr;...|
00003e50  0a 20 20 20 20 20 20 20  20 20 6f 6c 64 5f 62 69  |.         old_bi|
00003e60  74 70 74 72 3d 62 69 74  70 74 72 3b 0a 0a 0a 0a  |tptr=bitptr;....|
00003e70  20 20 20 20 20 20 20 20  20 20 20 78 65 72 72 6f  |           xerro|
00003e80  72 3d 30 3b 0a 0a 0a 0a  20 20 20 20 20 20 20 20  |r=0;....        |
00003e90  20 20 66 6f 72 20 28 20  78 3d 30 3b 20 78 3c 77  |  for ( x=0; x<w|
00003ea0  69 64 74 68 3b 20 78 2b  2b 29 20 7b 0a 0a 0a 20  |idth; x++) {... |
00003eb0  20 20 20 20 20 20 20 20  20 20 20 78 65 72 72 6f  |           xerro|
00003ec0  72 2b 3d 70 65 72 63 65  6e 74 3b 0a 0a 0a 20 20  |r+=percent;...  |
00003ed0  20 20 20 20 20 20 20 20  20 20 77 68 69 6c 65 20  |          while |
00003ee0  28 78 65 72 72 6f 72 3e  31 30 30 29 20 7b 0a 0a  |(xerror>100) {..|
00003ef0  0a 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00003f00  78 65 72 72 6f 72 2d 3d  31 30 30 3b 0a 0a 0a 0a  |xerror-=100;....|
00003f10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 73 63  |              sc|
00003f20  72 65 65 6e 5b 73 63 72  70 74 72 5d 3d 62 69 74  |reen[scrptr]=bit|
00003f30  6d 61 70 5b 62 69 74 70  74 72 5d 3b 0a 0a 0a 20  |map[bitptr];... |
00003f40  20 20 20 20 20 20 20 20  20 20 20 20 20 73 63 72  |             scr|
00003f50  70 74 72 2b 2b 3b 0a 20  20 20 20 20 20 20 20 20  |ptr++;.         |
00003f60  20 20 20 7d 0a 0a 0a 20  20 20 20 20 20 20 20 20  |   }...         |
00003f70  20 20 20 62 69 74 70 74  72 2b 2b 3b 0a 20 20 20  |   bitptr++;.   |
00003f80  20 20 20 20 20 20 20 7d  0a 0a 0a 0a 20 20 20 20  |       }....    |
00003f90  20 20 20 20 20 20 73 63  72 70 74 72 3d 6f 6c 64  |      scrptr=old|
00003fa0  5f 73 63 72 70 74 72 2b  33 32 30 3b 0a 0a 0a 0a  |_scrptr+320;....|
00003fb0  20 20 20 20 20 20 20 20  20 20 62 69 74 70 74 72  |          bitptr|
00003fc0  3d 6f 6c 64 5f 62 69 74  70 74 72 3b 0a 20 20 20  |=old_bitptr;.   |
00003fd0  20 20 20 20 20 7d 0a 0a  0a 0a 20 20 20 20 20 20  |     }....      |
00003fe0  20 20 62 69 74 70 74 72  2b 3d 77 69 64 74 68 3b  |  bitptr+=width;|
00003ff0  0a 20 20 20 20 20 20 7d  0a 0a 0a 0a 20 20 20 20  |.      }....    |
00004000  7d 0a 0a 76 6f 69 64 20  6f 75 72 6c 69 62 5f 73  |}..void ourlib_s|
00004010  63 72 65 65 6e 5f 64 69  73 73 6f 6c 76 65 28 63  |creen_dissolve(c|
00004020  68 61 72 20 2a 73 63 72  65 65 6e 5f 61 64 64 72  |har *screen_addr|
00004030  65 73 73 2c 69 6e 74 20  73 63 72 65 65 6e 5f 73  |ess,int screen_s|
00004040  69 7a 65 29 0a 7b 0a 20  20 69 6e 74 20 6e 75 6d  |ize).{.  int num|
00004050  62 65 72 2c 0a 20 20 63  6f 75 6e 74 65 72 3b 0a  |ber,.  counter;.|
00004060  20 20 66 6c 6f 61 74 20  74 65 6d 70 3b 0a 0a 0a  |  float temp;...|
00004070  20 20 66 6f 72 28 63 6f  75 6e 74 65 72 3d 34 30  |  for(counter=40|
00004080  30 30 30 30 3b 63 6f 75  6e 74 65 72 3e 30 3b 63  |0000;counter>0;c|
00004090  6f 75 6e 74 65 72 2d 2d  29 0a 20 20 7b 0a 20 20  |ounter--).  {.  |
000040a0  20 6e 75 6d 62 65 72 3d  72 61 6e 64 28 29 3b 0a  | number=rand();.|
000040b0  0a 20 20 20 74 65 6d 70  3d 28 66 6c 6f 61 74 29  |.   temp=(float)|
000040c0  6e 75 6d 62 65 72 2f 52  41 4e 44 5f 4d 41 58 3b  |number/RAND_MAX;|
000040d0  0a 20 6e 75 6d 62 65 72  3d 28 66 6c 6f 61 74 29  |. number=(float)|
000040e0  74 65 6d 70 2a 73 63 72  65 65 6e 5f 73 69 7a 65  |temp*screen_size|
000040f0  3b 3b 0a 69 66 28 6e 75  6d 62 65 72 3e 73 63 72  |;;.if(number>scr|
00004100  65 65 6e 5f 73 69 7a 65  29 6e 75 6d 62 65 72 3d  |een_size)number=|
00004110  73 63 72 65 65 6e 5f 73  69 7a 65 3b 0a 0a 20 2a  |screen_size;.. *|
00004120  28 73 63 72 65 65 6e 5f  61 64 64 72 65 73 73 2b  |(screen_address+|
00004130  6e 75 6d 62 65 72 29 3d  30 3b 0a 0a 20 20 7d 0a  |number)=0;..  }.|
00004140  0a 0a 0a 7d 0a 76 6f 69  64 20 6f 75 72 6c 69 62  |...}.void ourlib|
00004150  5f 73 63 72 65 65 6e 5f  73 68 69 66 74 28 63 68  |_screen_shift(ch|
00004160  61 72 20 2a 73 63 72 65  65 6e 5f 61 64 64 72 65  |ar *screen_addre|
00004170  73 73 2c 69 6e 74 20 73  63 72 65 65 6e 5f 73 69  |ss,int screen_si|
00004180  7a 65 29 0a 7b 0a 20 69  6e 74 20 63 6f 75 6e 74  |ze).{. int count|
00004190  65 72 3b 0a 0a 0a 20 20  66 6f 72 28 63 6f 75 6e  |er;...  for(coun|
000041a0  74 65 72 3d 73 63 72 65  65 6e 5f 73 69 7a 65 3b  |ter=screen_size;|
000041b0  63 6f 75 6e 74 65 72 3e  30 3b 63 6f 75 6e 74 65  |counter>0;counte|
000041c0  72 2d 2d 29 0a 20 20 7b  0a 20 2a 28 73 63 72 65  |r--).  {. *(scre|
000041d0  65 6e 5f 61 64 64 72 65  73 73 2b 63 6f 75 6e 74  |en_address+count|
000041e0  65 72 29 3e 3e 3d 31 3b  0a 0a 20 20 7d 0a 0a 0a  |er)>>=1;..  }...|
000041f0  0a 7d 0a 0a 76 6f 69 64  20 6f 75 72 6c 69 62 5f  |.}..void ourlib_|
00004200  73 63 72 65 65 6e 5f 73  77 69 74 63 68 28 63 68  |screen_switch(ch|
00004210  61 72 20 2a 73 63 72 65  65 6e 5f 61 64 64 72 65  |ar *screen_addre|
00004220  73 73 2c 63 68 61 72 20  2a 6d 65 6d 6f 72 79 2c  |ss,char *memory,|
00004230  69 6e 74 20 73 63 72 65  65 6e 5f 73 69 7a 65 29  |int screen_size)|
00004240  0a 7b 0a 20 20 69 6e 74  20 6e 75 6d 62 65 72 2c  |.{.  int number,|
00004250  0a 20 20 63 6f 75 6e 74  65 72 3b 0a 20 20 66 6c  |.  counter;.  fl|
00004260  6f 61 74 20 74 65 6d 70  3b 0a 0a 0a 20 20 66 6f  |oat temp;...  fo|
00004270  72 28 63 6f 75 6e 74 65  72 3d 34 30 30 30 30 30  |r(counter=400000|
00004280  3b 63 6f 75 6e 74 65 72  3e 30 3b 63 6f 75 6e 74  |;counter>0;count|
00004290  65 72 2d 2d 29 0a 20 20  7b 0a 20 20 20 6e 75 6d  |er--).  {.   num|
000042a0  62 65 72 3d 72 61 6e 64  28 29 3b 0a 0a 20 20 20  |ber=rand();..   |
000042b0  74 65 6d 70 3d 28 66 6c  6f 61 74 29 6e 75 6d 62  |temp=(float)numb|
000042c0  65 72 2f 52 41 4e 44 5f  4d 41 58 3b 0a 20 6e 75  |er/RAND_MAX;. nu|
000042d0  6d 62 65 72 3d 28 66 6c  6f 61 74 29 74 65 6d 70  |mber=(float)temp|
000042e0  2a 73 63 72 65 65 6e 5f  73 69 7a 65 3b 3b 0a 69  |*screen_size;;.i|
000042f0  66 28 6e 75 6d 62 65 72  3e 73 63 72 65 65 6e 5f  |f(number>screen_|
00004300  73 69 7a 65 29 6e 75 6d  62 65 72 3d 73 63 72 65  |size)number=scre|
00004310  65 6e 5f 73 69 7a 65 3b  0a 0a 20 2a 28 73 63 72  |en_size;.. *(scr|
00004320  65 65 6e 5f 61 64 64 72  65 73 73 2b 6e 75 6d 62  |een_address+numb|
00004330  65 72 29 3d 2a 28 6d 65  6d 6f 72 79 2b 6e 75 6d  |er)=*(memory+num|
00004340  62 65 72 29 3b 0a 0a 20  20 7d 0a 0a 7d 0a        |ber);..  }..}.|
0000434e