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 62 61 72 5f 70 6c  6f 74 0a 2e 6f 75 72 6c  |b_bar_plot..ourl|
00000300  69 62 5f 62 61 72 5f 70  6c 6f 74 0a 53 54 4d 46  |ib_bar_plot.STMF|
00000310  44 20 52 31 33 21 2c 7b  52 31 2d 52 34 2c 52 31  |D R13!,{R1-R4,R1|
00000320  34 7d 0a 3b 20 52 30 20  3d 20 73 63 72 65 65 6e  |4}.; R0 = screen|
00000330  20 52 31 20 3d 20 62 61  72 20 52 32 20 3d 20 73  | R1 = bar R2 = s|
00000340  74 61 72 74 6f 66 66 73  65 74 0a 4d 4f 56 20 52  |tartoffset.MOV R|
00000350  33 2c 23 32 35 30 0a 0a  41 44 44 20 52 30 2c 52  |3,#250..ADD R0,R|
00000360  30 2c 52 32 0a 2e 62 61  72 5f 6c 6f 6f 70 0a 0a  |0,R2..bar_loop..|
00000370  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000380  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 0a 4c 44  |TR R2,[R0],#4.LD|
00000390  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
000003a0  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
000003b0  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
000003c0  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
000003d0  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
000003e0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
000003f0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
00000400  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
00000410  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
00000420  2c 23 34 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |,#4.LDR R2,[R1],|
00000430  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000440  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000450  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 0a  |.STR R2,[R0],#4.|
00000460  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000470  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 0a 4c 44  |TR R2,[R0],#4.LD|
00000480  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
00000490  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
000004a0  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
000004b0  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
000004c0  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
000004d0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
000004e0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
000004f0  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
00000500  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
00000510  2c 23 34 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |,#4.LDR R2,[R1],|
00000520  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000530  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000540  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 53  |.STR R2,[R0],#4S|
00000550  55 42 53 20 52 33 2c 52  33 2c 23 31 0a 42 4e 45  |UBS R3,R3,#1.BNE|
00000560  20 62 61 72 5f 6c 6f 6f  70 0a 0a 4c 44 4d 46 44  | bar_loop..LDMFD|
00000570  20 52 31 33 21 2c 7b 52  31 2d 52 34 2c 52 31 35  | R13!,{R1-R4,R15|
00000580  7d 5e 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |}^..EXPORT ourli|
00000590  62 5f 67 75 6e 5f 70 6c  6f 74 0a 2e 6f 75 72 6c  |b_gun_plot..ourl|
000005a0  69 62 5f 67 75 6e 5f 70  6c 6f 74 0a 0a 53 54 4d  |ib_gun_plot..STM|
000005b0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 31 32 2c  |FD R13!,{R1-R12,|
000005c0  52 31 34 7d 0a 0a 2f 2a  20 52 30 20 3d 20 76 69  |R14}../* R0 = vi|
000005d0  64 65 6f 20 52 31 20 3d  67 72 61 70 68 69 63 20  |deo R1 =graphic |
000005e0  52 32 20 3d 20 77 69 64  74 68 20 52 33 20 3d 68  |R2 = width R3 =h|
000005f0  65 69 67 68 74 20 2a 2f  0a 4d 4f 56 20 52 35 2c  |eight */.MOV R5,|
00000600  52 30 0a 0a 2e 79 67 5f  6c 6f 6f 70 0a 4d 4f 56  |R0...yg_loop.MOV|
00000610  20 52 34 2c 52 32 0a 41  44 44 20 52 30 2c 52 30  | R4,R2.ADD R0,R0|
00000620  2c 23 33 32 30 0a 4d 4f  56 20 52 35 2c 52 30 0a  |,#320.MOV R5,R0.|
00000630  2e 78 67 5f 6c 6f 6f 70  0a 4c 44 52 42 20 52 36  |.xg_loop.LDRB R6|
00000640  2c 5b 52 31 5d 2c 23 31  0a 43 4d 50 20 52 36 2c  |,[R1],#1.CMP R6,|
00000650  23 31 35 31 0a 42 45 51  20 63 6f 6e 74 0a 53 54  |#151.BEQ cont.ST|
00000660  52 42 20 52 36 2c 5b 52  35 5d 0a 2e 63 6f 6e 74  |RB R6,[R5]..cont|
00000670  0a 41 44 44 20 52 35 2c  52 35 2c 23 31 0a 0a 0a  |.ADD R5,R5,#1...|
00000680  53 55 42 53 20 52 34 2c  52 34 2c 23 31 0a 42 4e  |SUBS R4,R4,#1.BN|
00000690  45 20 78 67 5f 6c 6f 6f  70 0a 53 55 42 53 20 52  |E xg_loop.SUBS R|
000006a0  33 2c 52 33 2c 23 31 0a  42 4e 45 20 79 67 5f 6c  |3,R3,#1.BNE yg_l|
000006b0  6f 6f 70 0a 0a 4c 44 4d  46 44 20 52 31 33 21 2c  |oop..LDMFD R13!,|
000006c0  7b 52 31 2d 52 31 32 2c  52 31 35 7d 0a 0a 0a 45  |{R1-R12,R15}...E|
000006d0  58 50 4f 52 54 20 6f 75  72 6c 69 62 5f 63 68 61  |XPORT ourlib_cha|
000006e0  6e 67 65 6d 6f 64 65 0a  2e 6f 75 72 6c 69 62 5f  |ngemode..ourlib_|
000006f0  63 68 61 6e 67 65 6d 6f  64 65 0a 53 54 4d 46 44  |changemode.STMFD|
00000700  20 52 31 33 21 2c 7b 52  31 2d 52 34 2c 52 31 34  | R13!,{R1-R4,R14|
00000710  7d 0a 4d 4f 56 20 52 31  2c 52 30 0a 4d 4f 56 20  |}.MOV R1,R0.MOV |
00000720  52 30 2c 23 32 32 0a 53  57 49 20 4f 53 5f 57 72  |R0,#22.SWI OS_Wr|
00000730  69 74 65 43 0a 4d 4f 56  20 52 30 2c 52 31 0a 53  |iteC.MOV R0,R1.S|
00000740  57 49 20 4f 53 5f 57 72  69 74 65 43 0a 0a 4c 44  |WI OS_WriteC..LD|
00000750  4d 46 44 20 52 31 33 21  2c 7b 52 31 2d 52 34 2c  |MFD R13!,{R1-R4,|
00000760  52 31 35 7d 0a 0a 45 58  50 4f 52 54 20 6f 75 72  |R15}..EXPORT our|
00000770  6c 69 62 5f 77 61 69 74  0a 2e 6f 75 72 6c 69 62  |lib_wait..ourlib|
00000780  5f 77 61 69 74 0a 53 54  4d 46 44 20 52 31 33 21  |_wait.STMFD R13!|
00000790  2c 7b 52 31 2d 52 35 2c  52 31 34 7d 0a 4d 4f 56  |,{R1-R5,R14}.MOV|
000007a0  20 52 33 2c 52 30 20 2f  2a 20 43 6f 70 79 20 76  | R3,R0 /* Copy v|
000007b0  61 72 69 61 62 6c 65 20  69 6e 74 6f 20 73 61 66  |ariable into saf|
000007c0  65 20 70 6c 61 63 65 20  2a 2f 0a 53 57 49 20 4f  |e place */.SWI O|
000007d0  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
000007e0  69 6d 65 0a 41 44 44 20  52 32 2c 52 30 2c 52 33  |ime.ADD R2,R0,R3|
000007f0  0a 2e 74 69 6d 65 5f 6c  6f 6f 70 0a 53 57 49 20  |..time_loop.SWI |
00000800  4f 53 5f 52 65 61 64 4d  6f 6e 6f 74 6f 6e 69 63  |OS_ReadMonotonic|
00000810  54 69 6d 65 0a 43 4d 50  20 52 30 2c 52 32 0a 42  |Time.CMP R0,R2.B|
00000820  4c 45 20 74 69 6d 65 5f  6c 6f 6f 70 0a 4c 44 4d  |LE time_loop.LDM|
00000830  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 35 2c 52  |FD R13!,{R1-R5,R|
00000840  31 35 7d 5e 0a 0a 45 58  50 4f 52 54 20 6f 75 72  |15}^..EXPORT our|
00000850  6c 69 62 5f 63 6c 6f 73  65 64 6f 77 6e 5f 73 63  |lib_closedown_sc|
00000860  72 65 65 6e 73 0a 2e 6f  75 72 6c 69 62 5f 63 6c  |reens..ourlib_cl|
00000870  6f 73 65 64 6f 77 6e 5f  73 63 72 65 65 6e 73 0a  |osedown_screens.|
00000880  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00000890  34 2c 52 31 34 7d 0a 4d  4f 56 20 52 30 2c 23 31  |4,R14}.MOV R0,#1|
000008a0  31 34 0a 4d 4f 56 20 52  31 2c 23 31 0a 53 57 49  |14.MOV R1,#1.SWI|
000008b0  20 22 4f 53 5f 42 79 74  65 22 0a 4c 44 4d 46 44  | "OS_Byte".LDMFD|
000008c0  20 52 31 33 21 2c 7b 52  31 2d 52 34 2c 52 31 35  | R13!,{R1-R4,R15|
000008d0  7d 5e 0a 0a 0a 0a 0a 0a  0a 2e 73 69 6d 70 6c 65  |}^........simple|
000008e0  6e 75 6d 62 65 72 0a 45  51 55 44 20 30 0a 0a 45  |number.EQUD 0..E|
000008f0  58 50 4f 52 54 20 6f 75  72 6c 69 62 5f 73 69 6d  |XPORT ourlib_sim|
00000900  70 6c 65 73 77 69 74 63  68 0a 2e 6f 75 72 6c 69  |pleswitch..ourli|
00000910  62 5f 73 69 6d 70 6c 65  73 77 69 74 63 68 0a 53  |b_simpleswitch.S|
00000920  54 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 35  |TMFD R13!,{R1-R5|
00000930  2c 52 31 34 7d 0a 4c 44  52 20 52 31 2c 73 69 6d  |,R14}.LDR R1,sim|
00000940  70 6c 65 6e 75 6d 62 65  72 0a 4d 4f 56 20 52 30  |plenumber.MOV R0|
00000950  2c 23 31 31 33 0a 4d 4f  56 20 52 34 2c 52 31 0a  |,#113.MOV R4,R1.|
00000960  53 57 49 20 22 4f 53 5f  42 79 74 65 22 0a 4d 56  |SWI "OS_Byte".MV|
00000970  4e 20 52 31 2c 52 34 0a  53 54 52 20 52 31 2c 73  |N R1,R4.STR R1,s|
00000980  69 6d 70 6c 65 6e 75 6d  62 65 72 0a 4d 4f 56 20  |implenumber.MOV |
00000990  52 30 2c 23 31 31 32 0a  53 57 49 20 22 4f 53 5f  |R0,#112.SWI "OS_|
000009a0  42 79 74 65 22 0a 4c 44  4d 46 44 20 52 31 33 21  |Byte".LDMFD R13!|
000009b0  2c 7b 52 31 2d 52 35 2c  52 31 35 7d 5e 0a 0a 0a  |,{R1-R5,R15}^...|
000009c0  0a 0a 45 58 50 4f 52 54  20 6f 75 72 6c 69 62 5f  |..EXPORT ourlib_|
000009d0  73 65 74 75 70 5f 73 63  72 65 65 6e 73 0a 2e 6f  |setup_screens..o|
000009e0  75 72 6c 69 62 5f 73 65  74 75 70 5f 73 63 72 65  |urlib_setup_scre|
000009f0  65 6e 73 0a 0a 53 54 4d  46 44 20 52 31 33 21 2c  |ens..STMFD R13!,|
00000a00  7b 52 31 2d 52 34 2c 52  31 34 7d 0a 4d 4f 56 20  |{R1-R4,R14}.MOV |
00000a10  52 30 2c 23 31 31 34 0a  4d 4f 56 20 52 31 2c 23  |R0,#114.MOV R1,#|
00000a20  30 0a 53 57 49 20 22 4f  53 5f 42 79 74 65 22 0a  |0.SWI "OS_Byte".|
00000a30  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00000a40  52 34 2c 52 31 35 7d 5e  0a 0a 45 58 50 4f 52 54  |R4,R15}^..EXPORT|
00000a50  20 6f 75 72 6c 69 62 5f  6b 69 6c 6c 63 75 72 73  | ourlib_killcurs|
00000a60  6f 72 0a 2e 6f 75 72 6c  69 62 5f 6b 69 6c 6c 63  |or..ourlib_killc|
00000a70  75 72 73 6f 72 0a 53 54  4d 46 44 20 52 31 33 21  |ursor.STMFD R13!|
00000a80  2c 7b 52 31 2d 52 34 2c  52 31 34 7d 0a 53 57 49  |,{R1-R4,R14}.SWI|
00000a90  20 22 4f 53 5f 52 65 6d  6f 76 65 43 75 72 73 6f  | "OS_RemoveCurso|
00000aa0  72 73 22 0a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |rs".LDMFD R13!,{|
00000ab0  52 31 2d 52 34 2c 52 31  35 7d 5e 0a 0a 45 58 50  |R1-R4,R15}^..EXP|
00000ac0  4f 52 54 20 6f 75 72 6c  69 62 5f 72 65 76 69 76  |ORT ourlib_reviv|
00000ad0  65 63 75 72 73 6f 72 0a  2e 6f 75 72 6c 69 62 5f  |ecursor..ourlib_|
00000ae0  72 65 76 69 76 65 63 75  72 73 6f 72 0a 53 54 4d  |revivecursor.STM|
00000af0  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 34 2c 52  |FD R13!,{R1-R4,R|
00000b00  31 34 7d 0a 53 57 49 20  22 4f 53 5f 52 65 73 74  |14}.SWI "OS_Rest|
00000b10  6f 72 65 43 75 72 73 6f  72 73 22 0a 4c 44 4d 46  |oreCursors".LDMF|
00000b20  44 20 52 31 33 21 2c 7b  52 31 2d 52 34 2c 52 31  |D R13!,{R1-R4,R1|
00000b30  35 7d 5e 0a 0a 0a 0a 45  58 50 4f 52 54 20 6f 75  |5}^....EXPORT ou|
00000b40  72 6c 69 62 5f 73 6c 69  76 65 72 5f 74 77 6f 0a  |rlib_sliver_two.|
00000b50  2e 6f 75 72 6c 69 62 5f  73 6c 69 76 65 72 5f 74  |.ourlib_sliver_t|
00000b60  77 6f 0a 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |wo.STMFD R13!,{R|
00000b70  31 2d 52 31 32 2c 52 31  34 7d 0a 4c 44 4d 49 41  |1-R12,R14}.LDMIA|
00000b80  20 52 30 2c 7b 52 30 2d  52 36 7d 0a 0a 43 4d 50  | R0,{R0-R6}..CMP|
00000b90  20 52 33 2c 23 32 35 35  0a 4d 4f 56 47 45 20 52  | R3,#255.MOVGE R|
00000ba0  33 2c 23 32 35 35 0a 41  44 44 20 52 31 2c 52 31  |3,#255.ADD R1,R1|
00000bb0  2c 52 36 2c 4c 53 4c 20  23 32 0a 41 44 44 20 52  |,R6,LSL #2.ADD R|
00000bc0  31 2c 52 31 2c 52 32 0a  4d 4f 56 20 52 38 2c 23  |1,R1,R2.MOV R8,#|
00000bd0  31 32 38 0a 53 55 42 20  52 38 2c 52 38 2c 52 33  |128.SUB R8,R8,R3|
00000be0  2c 4c 53 52 20 23 31 0a  41 44 44 20 52 34 2c 52  |,LSR #1.ADD R4,R|
00000bf0  34 2c 52 38 2c 4c 53 4c  20 23 38 0a 41 44 44 20  |4,R8,LSL #8.ADD |
00000c00  52 34 2c 52 34 2c 52 38  2c 4c 53 4c 20 23 36 0a  |R4,R4,R8,LSL #6.|
00000c10  41 44 44 20 52 30 2c 52  30 2c 52 34 0a 4d 4f 56  |ADD R0,R0,R4.MOV|
00000c20  20 52 31 30 2c 23 30 0a  4d 4f 56 20 52 38 2c 52  | R10,#0.MOV R8,R|
00000c30  33 0a 4d 4f 56 20 52 33  2c 52 31 0a 2e 6c 6f 6f  |3.MOV R3,R1..loo|
00000c40  6f 70 0a 4c 44 52 42 20  52 39 2c 5b 52 31 2c 52  |op.LDRB R9,[R1,R|
00000c50  31 30 2c 4c 53 4c 20 23  36 5d 20 20 20 20 20 20  |10,LSL #6]      |
00000c60  20 3b 20 69 66 20 73 6f  20 6c 6f 61 64 20 69 6e  | ; if so load in|
00000c70  20 70 69 78 65 6c 20 76  61 6c 75 65 0a 53 54 52  | pixel value.STR|
00000c80  42 20 52 39 2c 5b 52 30  5d 2c 23 33 32 30 0a 41  |B R9,[R0],#320.A|
00000c90  44 44 20 52 31 30 2c 52  31 30 2c 52 35 0a 4d 4f  |DD R10,R10,R5.MO|
00000ca0  56 20 52 31 30 2c 52 31  30 2c 4c 53 52 20 23 38  |V R10,R10,LSR #8|
00000cb0  0a 53 55 42 53 20 52 38  2c 52 38 2c 23 31 0a 42  |.SUBS R8,R8,#1.B|
00000cc0  4e 45 20 6c 6f 6f 6f 70  0a 0a 20 4c 44 4d 46 44  |NE looop.. LDMFD|
00000cd0  20 52 31 33 21 2c 7b 52  30 2d 52 31 32 2c 52 31  | R13!,{R0-R12,R1|
00000ce0  35 7d 5e 0a 0a 45 58 50  4f 52 54 20 6f 75 72 6c  |5}^..EXPORT ourl|
00000cf0  69 62 5f 73 6c 69 76 65  72 0a 2e 6f 75 72 6c 69  |ib_sliver..ourli|
00000d00  62 5f 73 6c 69 76 65 72  0a 53 54 4d 46 44 20 52  |b_sliver.STMFD R|
00000d10  31 33 21 2c 7b 52 31 2d  52 31 32 2c 52 31 34 7d  |13!,{R1-R12,R14}|
00000d20  0a 4c 44 4d 49 41 20 52  30 2c 7b 52 30 2d 52 36  |.LDMIA R0,{R0-R6|
00000d30  7d 0a 4d 4f 56 20 52 31  30 2c 23 32 35 36 0a 43  |}.MOV R10,#256.C|
00000d40  4d 50 20 52 33 2c 52 35  0a 4d 4f 56 47 45 20 52  |MP R3,R5.MOVGE R|
00000d50  33 2c 52 35 0a 0a 2e 6e  6f 63 6c 69 70 70 69 6e  |3,R5...noclippin|
00000d60  67 0a 41 44 44 20 52 31  2c 52 31 2c 52 36 2c 4c  |g.ADD R1,R1,R6,L|
00000d70  53 4c 20 23 31 32 20 3b  20 63 61 6c 63 75 6c 61  |SL #12 ; calcula|
00000d80  74 65 20 6f 66 66 73 65  74 20 69 6e 20 77 61 6c  |te offset in wal|
00000d90  6c 73 5b 5d 5b 5d 20 61  72 72 61 79 0a 41 44 44  |ls[][] array.ADD|
00000da0  20 52 31 2c 52 31 2c 52  32 20 20 20 20 20 20 20  | R1,R1,R2       |
00000db0  20 20 3b 20 61 64 64 20  74 68 65 20 63 6f 6c 75  |  ; add the colu|
00000dc0  6d 6e 20 74 6f 20 74 68  69 73 0a 0a 0a 4d 4f 56  |mn to this...MOV|
00000dd0  20 52 38 2c 23 31 30 30  0a 53 55 42 20 52 38 2c  | R8,#100.SUB R8,|
00000de0  52 38 2c 52 33 2c 4c 53  52 20 23 31 20 3b 20 73  |R8,R3,LSR #1 ; s|
00000df0  65 74 20 73 74 61 72 74  20 79 20 70 6f 73 0a 41  |et start y pos.A|
00000e00  44 44 20 52 34 2c 52 34  2c 52 38 2c 4c 53 4c 20  |DD R4,R4,R8,LSL |
00000e10  23 38 20 3b 20 77 6f 72  6b 20 6f 75 74 20 75 73  |#8 ; work out us|
00000e20  75 61 6c 20 73 63 72 65  65 6e 20 28 33 32 30 78  |ual screen (320x|
00000e30  32 35 36 29 0a 41 44 44  20 52 34 2c 52 34 2c 52  |256).ADD R4,R4,R|
00000e40  38 2c 4c 53 4c 20 23 36  20 3b 20 6f 66 66 73 65  |8,LSL #6 ; offse|
00000e50  74 20 74 6f 20 62 65 67  69 6e 20 6c 6f 6f 70 0a  |t to begin loop.|
00000e60  41 44 44 20 52 30 2c 52  30 2c 52 34 0a 0a 4d 4f  |ADD R0,R0,R4..MO|
00000e70  56 20 52 38 2c 23 36 34  20 20 20 20 20 20 20 20  |V R8,#64        |
00000e80  3b 20 73 74 61 72 74 20  6c 6f 6f 70 20 63 6f 75  |; start loop cou|
00000e90  6e 74 65 72 0a 4d 4f 56  20 52 37 2c 52 38 0a 0a  |nter.MOV R7,R8..|
00000ea0  43 4d 50 20 52 33 2c 23  36 34 0a 42 4c 4c 45 20  |CMP R3,#64.BLLE |
00000eb0  6c 6f 6f 70 79 36 34 6c  6f 6f 0a 43 4d 50 20 52  |loopy64loo.CMP R|
00000ec0  33 2c 23 31 32 37 0a 42  4c 4c 45 20 6c 6f 6f 70  |3,#127.BLLE loop|
00000ed0  79 31 32 37 6c 6f 6f 0a  43 4d 50 20 52 33 2c 23  |y127loo.CMP R3,#|
00000ee0  31 39 31 0a 42 4c 4c 45  20 6c 6f 6f 70 79 31 39  |191.BLLE loopy19|
00000ef0  31 6c 6f 6f 0a 42 4c 20  6c 6f 6f 70 79 31 39 32  |1loo.BL loopy192|
00000f00  6c 6f 6f 0a 2e 6c 6f 6f  70 79 36 34 6c 6f 6f 0a  |loo..loopy64loo.|
00000f10  2e 64 6f 64 64 6c 65 36  34 0a 43 4d 50 20 52 37  |.doddle64.CMP R7|
00000f20  2c 23 36 34 0a 42 4c 4c  54 20 64 6f 6e 65 36 34  |,#64.BLLT done64|
00000f30  6c 6f 6f 0a 4c 44 52 42  20 52 39 2c 5b 52 31 5d  |loo.LDRB R9,[R1]|
00000f40  20 20 20 20 20 20 20 3b  20 69 66 20 73 6f 20 6c  |       ; if so l|
00000f50  6f 61 64 20 69 6e 20 70  69 78 65 6c 20 76 61 6c  |oad in pixel val|
00000f60  75 65 0a 53 54 52 42 20  52 39 2c 5b 52 30 5d 2c  |ue.STRB R9,[R0],|
00000f70  23 33 32 30 0a 53 55 42  20 52 37 2c 52 37 2c 23  |#320.SUB R7,R7,#|
00000f80  36 34 0a 2e 64 6f 6e 65  36 34 6c 6f 6f 0a 41 44  |64..done64loo.AD|
00000f90  44 20 52 31 2c 52 31 2c  23 36 34 0a 41 44 44 20  |D R1,R1,#64.ADD |
00000fa0  52 37 2c 52 37 2c 52 33  20 20 20 20 20 20 20 20  |R7,R7,R3        |
00000fb0  20 3b 20 61 64 64 20 73  63 61 6c 65 20 6f 6e 74  | ; add scale ont|
00000fc0  6f 20 76 65 72 74 2e 20  65 72 72 6f 72 20 74 65  |o vert. error te|
00000fd0  72 6d 0a 53 55 42 53 20  52 38 2c 52 38 2c 23 31  |rm.SUBS R8,R8,#1|
00000fe0  0a 42 4c 4e 45 20 6c 6f  6f 70 79 36 34 6c 6f 6f  |.BLNE loopy64loo|
00000ff0  20 20 20 20 20 20 20 20  20 3b 20 6c 6f 6f 70 20  |         ; loop |
00001000  69 66 20 73 6f 0a 0a 4c  44 4d 46 44 20 52 31 33  |if so..LDMFD R13|
00001010  21 2c 7b 52 31 2d 52 31  32 2c 52 31 35 7d 5e 0a  |!,{R1-R12,R15}^.|
00001020  2f 2a 4d 4f 56 53 20 50  43 2c 52 31 34 2a 2f 0a  |/*MOVS PC,R14*/.|
00001030  0a 0a 2e 6c 6f 6f 70 79  31 32 37 6c 6f 6f 0a 2e  |...loopy127loo..|
00001040  64 6f 64 64 6c 65 31 32  37 0a 43 4d 50 20 52 37  |doddle127.CMP R7|
00001050  2c 23 36 34 0a 4c 44 52  42 20 52 39 2c 5b 52 31  |,#64.LDRB R9,[R1|
00001060  5d 20 20 20 20 20 20 20  3b 20 69 66 20 73 6f 20  |]       ; if so |
00001070  6c 6f 61 64 20 69 6e 20  70 69 78 65 6c 20 76 61  |load in pixel va|
00001080  6c 75 65 0a 53 54 52 42  20 52 39 2c 5b 52 30 5d  |lue.STRB R9,[R0]|
00001090  2c 23 33 32 30 0a 53 55  42 20 52 37 2c 52 37 2c  |,#320.SUB R7,R7,|
000010a0  23 36 34 0a 43 4d 50 20  52 37 2c 23 36 34 0a 42  |#64.CMP R7,#64.B|
000010b0  4c 4c 54 20 64 6f 6e 65  31 32 37 6c 6f 6f 0a 4c  |LLT done127loo.L|
000010c0  44 52 42 20 52 39 2c 5b  52 31 5d 20 20 20 20 20  |DRB R9,[R1]     |
000010d0  20 20 3b 20 69 66 20 73  6f 20 6c 6f 61 64 20 69  |  ; if so load i|
000010e0  6e 20 70 69 78 65 6c 20  76 61 6c 75 65 0a 53 54  |n pixel value.ST|
000010f0  52 42 20 52 39 2c 5b 52  30 5d 2c 23 33 32 30 0a  |RB R9,[R0],#320.|
00001100  53 55 42 20 52 37 2c 52  37 2c 23 36 34 0a 2e 64  |SUB R7,R7,#64..d|
00001110  6f 6e 65 31 32 37 6c 6f  6f 0a 41 44 44 20 52 31  |one127loo.ADD R1|
00001120  2c 52 31 2c 23 36 34 0a  41 44 44 20 52 37 2c 52  |,R1,#64.ADD R7,R|
00001130  37 2c 52 33 20 20 20 20  20 20 20 20 20 3b 20 61  |7,R3         ; a|
00001140  64 64 20 73 63 61 6c 65  20 6f 6e 74 6f 20 76 65  |dd scale onto ve|
00001150  72 74 2e 20 65 72 72 6f  72 20 74 65 72 6d 0a 53  |rt. error term.S|
00001160  55 42 53 20 52 38 2c 52  38 2c 23 31 0a 42 4c 4e  |UBS R8,R8,#1.BLN|
00001170  45 20 6c 6f 6f 70 79 31  32 37 6c 6f 6f 20 20 20  |E loopy127loo   |
00001180  20 20 20 20 20 20 3b 20  6c 6f 6f 70 20 69 66 20  |      ; loop if |
00001190  73 6f 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |so.LDMFD R13!,{R|
000011a0  31 2d 52 31 32 2c 52 31  35 7d 5e 0a 0a 2f 2a 4d  |1-R12,R15}^../*M|
000011b0  4f 56 53 20 50 43 2c 52  31 34 2a 2f 0a 0a 0a 2e  |OVS PC,R14*/....|
000011c0  6c 6f 6f 70 79 31 39 31  6c 6f 6f 0a 2e 64 6f 64  |loopy191loo..dod|
000011d0  64 6c 65 31 39 31 0a 43  4d 50 20 52 37 2c 23 36  |dle191.CMP R7,#6|
000011e0  34 0a 4c 44 52 42 20 52  39 2c 5b 52 31 5d 20 20  |4.LDRB R9,[R1]  |
000011f0  20 20 20 20 20 3b 20 69  66 20 73 6f 20 6c 6f 61  |     ; if so loa|
00001200  64 20 69 6e 20 70 69 78  65 6c 20 76 61 6c 75 65  |d in pixel value|
00001210  0a 53 54 52 42 20 52 39  2c 5b 52 30 5d 2c 23 33  |.STRB R9,[R0],#3|
00001220  32 30 0a 53 55 42 20 52  37 2c 52 37 2c 23 36 34  |20.SUB R7,R7,#64|
00001230  0a 43 4d 50 20 52 37 2c  23 36 34 0a 4c 44 52 42  |.CMP R7,#64.LDRB|
00001240  20 52 39 2c 5b 52 31 5d  20 20 20 20 20 20 20 3b  | R9,[R1]       ;|
00001250  20 69 66 20 73 6f 20 6c  6f 61 64 20 69 6e 20 70  | if so load in p|
00001260  69 78 65 6c 20 76 61 6c  75 65 0a 53 54 52 42 20  |ixel value.STRB |
00001270  52 39 2c 5b 52 30 5d 2c  23 33 32 30 0a 53 55 42  |R9,[R0],#320.SUB|
00001280  20 52 37 2c 52 37 2c 23  36 34 0a 43 4d 50 20 52  | R7,R7,#64.CMP R|
00001290  37 2c 23 36 34 0a 42 4c  54 20 64 6f 6e 65 31 39  |7,#64.BLT done19|
000012a0  31 6c 6f 6f 0a 4c 44 52  42 20 52 39 2c 5b 52 31  |1loo.LDRB R9,[R1|
000012b0  5d 20 20 20 20 20 20 20  3b 20 69 66 20 73 6f 20  |]       ; if so |
000012c0  6c 6f 61 64 20 69 6e 20  70 69 78 65 6c 20 76 61  |load in pixel va|
000012d0  6c 75 65 0a 53 54 52 42  20 52 39 2c 5b 52 30 5d  |lue.STRB R9,[R0]|
000012e0  2c 23 33 32 30 0a 53 55  42 20 52 37 2c 52 37 2c  |,#320.SUB R7,R7,|
000012f0  23 36 34 0a 2e 64 6f 6e  65 31 39 31 6c 6f 6f 0a  |#64..done191loo.|
00001300  41 44 44 20 52 31 2c 52  31 2c 23 36 34 0a 41 44  |ADD R1,R1,#64.AD|
00001310  44 20 52 37 2c 52 37 2c  52 33 20 20 20 20 20 20  |D R7,R7,R3      |
00001320  20 20 20 3b 20 61 64 64  20 73 63 61 6c 65 20 6f  |   ; add scale o|
00001330  6e 74 6f 20 76 65 72 74  2e 20 65 72 72 6f 72 20  |nto vert. error |
00001340  74 65 72 6d 0a 53 55 42  53 20 52 38 2c 52 38 2c  |term.SUBS R8,R8,|
00001350  23 31 0a 42 4c 4e 45 20  6c 6f 6f 70 79 31 39 31  |#1.BLNE loopy191|
00001360  6c 6f 6f 20 20 20 20 20  20 20 20 20 3b 20 6c 6f  |loo         ; lo|
00001370  6f 70 20 69 66 20 73 6f  0a 4c 44 4d 46 44 20 52  |op if so.LDMFD R|
00001380  31 33 21 2c 7b 52 31 2d  52 31 32 2c 52 31 35 7d  |13!,{R1-R12,R15}|
00001390  5e 0a 2f 2a 4d 4f 56 53  20 50 43 2c 52 31 34 2a  |^./*MOVS PC,R14*|
000013a0  2f 0a 0a 0a 2e 6c 6f 6f  70 79 31 39 32 6c 6f 6f  |/....loopy192loo|
000013b0  0a 2e 64 6f 64 64 6c 65  31 39 32 0a 43 4d 50 20  |..doddle192.CMP |
000013c0  52 37 2c 23 36 34 0a 4c  44 52 42 20 52 39 2c 5b  |R7,#64.LDRB R9,[|
000013d0  52 31 5d 20 20 20 20 20  20 20 3b 20 69 66 20 73  |R1]       ; if s|
000013e0  6f 20 6c 6f 61 64 20 69  6e 20 70 69 78 65 6c 20  |o load in pixel |
000013f0  76 61 6c 75 65 0a 53 54  52 42 20 52 39 2c 5b 52  |value.STRB R9,[R|
00001400  30 5d 2c 23 33 32 30 0a  53 55 42 20 52 37 2c 52  |0],#320.SUB R7,R|
00001410  37 2c 23 36 34 0a 43 4d  50 20 52 37 2c 23 36 34  |7,#64.CMP R7,#64|
00001420  0a 4c 44 52 42 20 52 39  2c 5b 52 31 5d 20 20 20  |.LDRB R9,[R1]   |
00001430  20 20 20 20 3b 20 69 66  20 73 6f 20 6c 6f 61 64  |    ; if so load|
00001440  20 69 6e 20 70 69 78 65  6c 20 76 61 6c 75 65 0a  | in pixel value.|
00001450  53 54 52 42 20 52 39 2c  5b 52 30 5d 2c 23 33 32  |STRB R9,[R0],#32|
00001460  30 0a 53 55 42 20 52 37  2c 52 37 2c 23 36 34 0a  |0.SUB R7,R7,#64.|
00001470  43 4d 50 20 52 37 2c 23  36 34 0a 4c 44 52 42 20  |CMP R7,#64.LDRB |
00001480  52 39 2c 5b 52 31 5d 20  20 20 20 20 20 20 3b 20  |R9,[R1]       ; |
00001490  69 66 20 73 6f 20 6c 6f  61 64 20 69 6e 20 70 69  |if so load in pi|
000014a0  78 65 6c 20 76 61 6c 75  65 0a 53 54 52 42 20 52  |xel value.STRB R|
000014b0  39 2c 5b 52 30 5d 2c 23  33 32 30 0a 53 55 42 20  |9,[R0],#320.SUB |
000014c0  52 37 2c 52 37 2c 23 36  34 0a 43 4d 50 20 52 37  |R7,R7,#64.CMP R7|
000014d0  2c 23 36 34 0a 42 4c 4c  54 20 64 6f 6e 65 31 39  |,#64.BLLT done19|
000014e0  32 6c 6f 6f 0a 4c 44 52  42 20 52 39 2c 5b 52 31  |2loo.LDRB R9,[R1|
000014f0  5d 20 20 20 20 20 20 20  3b 20 69 66 20 73 6f 20  |]       ; if so |
00001500  6c 6f 61 64 20 69 6e 20  70 69 78 65 6c 20 76 61  |load in pixel va|
00001510  6c 75 65 0a 53 54 52 42  20 52 39 2c 5b 52 30 5d  |lue.STRB R9,[R0]|
00001520  2c 23 33 32 30 0a 53 55  42 20 52 37 2c 52 37 2c  |,#320.SUB R7,R7,|
00001530  23 36 34 0a 2e 64 6f 6e  65 31 39 32 6c 6f 6f 0a  |#64..done192loo.|
00001540  41 44 44 20 52 31 2c 52  31 2c 23 36 34 0a 41 44  |ADD R1,R1,#64.AD|
00001550  44 20 52 37 2c 52 37 2c  52 33 20 20 20 20 20 20  |D R7,R7,R3      |
00001560  20 20 20 3b 20 61 64 64  20 73 63 61 6c 65 20 6f  |   ; add scale o|
00001570  6e 74 6f 20 76 65 72 74  2e 20 65 72 72 6f 72 20  |nto vert. error |
00001580  74 65 72 6d 0a 53 55 42  53 20 52 38 2c 52 38 2c  |term.SUBS R8,R8,|
00001590  23 31 0a 42 4c 4e 45 20  6c 6f 6f 70 79 31 39 32  |#1.BLNE loopy192|
000015a0  6c 6f 6f 20 20 20 20 20  20 20 20 20 3b 20 6c 6f  |loo         ; lo|
000015b0  6f 70 20 69 66 20 73 6f  0a 2e 65 6e 64 6f 66 66  |op if so..endoff|
000015c0  75 6e 63 74 69 6f 6e 0a  4c 44 4d 46 44 20 52 31  |unction.LDMFD R1|
000015d0  33 21 2c 7b 52 31 2d 52  31 32 2c 52 31 35 7d 5e  |3!,{R1-R12,R15}^|
000015e0  0a 2f 2a 4d 4f 56 53 20  50 43 2c 52 31 34 5e 2a  |./*MOVS PC,R14^*|
000015f0  2f 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |/..EXPORT ourlib|
00001600  5f 73 6c 69 76 65 72 78  0a 2e 6f 75 72 6c 69 62  |_sliverx..ourlib|
00001610  5f 73 6c 69 76 65 72 78  0a 53 54 4d 46 44 20 52  |_sliverx.STMFD R|
00001620  31 33 21 2c 7b 52 30 2d  52 31 32 2c 52 31 34 7d  |13!,{R0-R12,R14}|
00001630  0a 4c 44 4d 49 41 20 52  30 2c 7b 52 30 2d 52 37  |.LDMIA R0,{R0-R7|
00001640  7d 0a 4d 4f 56 20 52 31  30 2c 23 32 35 36 0a 43  |}.MOV R10,#256.C|
00001650  4d 50 20 52 33 2c 52 35  0a 4d 4f 56 47 45 20 52  |MP R3,R5.MOVGE R|
00001660  33 2c 52 35 0a 0a 2e 6e  6f 63 6c 69 70 70 69 6e  |3,R5...noclippin|
00001670  67 78 0a 41 44 44 20 52  31 2c 52 31 2c 52 36 2c  |gx.ADD R1,R1,R6,|
00001680  4c 53 4c 20 23 31 32 20  3b 20 63 61 6c 63 75 6c  |LSL #12 ; calcul|
00001690  61 74 65 20 6f 66 66 73  65 74 20 69 6e 20 77 61  |ate offset in wa|
000016a0  6c 6c 73 5b 5d 5b 5d 20  61 72 72 61 79 0a 41 44  |lls[][] array.AD|
000016b0  44 20 52 31 2c 52 31 2c  52 32 20 20 20 20 20 20  |D R1,R1,R2      |
000016c0  20 20 20 3b 20 61 64 64  20 74 68 65 20 63 6f 6c  |   ; add the col|
000016d0  75 6d 6e 20 74 6f 20 74  68 69 73 0a 4d 4f 56 20  |umn to this.MOV |
000016e0  52 38 2c 23 31 30 30 0a  53 55 42 20 52 38 2c 52  |R8,#100.SUB R8,R|
000016f0  38 2c 52 33 2c 4c 53 52  20 23 31 20 3b 20 73 65  |8,R3,LSR #1 ; se|
00001700  74 20 73 74 61 72 74 20  79 20 70 6f 73 0a 41 44  |t start y pos.AD|
00001710  44 20 52 34 2c 52 34 2c  52 38 2c 4c 53 4c 20 23  |D R4,R4,R8,LSL #|
00001720  38 20 3b 20 77 6f 72 6b  20 6f 75 74 20 75 73 75  |8 ; work out usu|
00001730  61 6c 20 73 63 72 65 65  6e 20 28 33 32 30 78 32  |al screen (320x2|
00001740  35 36 29 0a 41 44 44 20  52 34 2c 52 34 2c 52 38  |56).ADD R4,R4,R8|
00001750  2c 4c 53 4c 20 23 36 20  3b 20 6f 66 66 73 65 74  |,LSL #6 ; offset|
00001760  20 74 6f 20 62 65 67 69  6e 20 6c 6f 6f 70 0a 41  | to begin loop.A|
00001770  44 44 20 52 30 2c 52 30  2c 52 34 0a 0a 3b 20 73  |DD R0,R0,R4..; s|
00001780  65 74 75 70 20 69 6e 63  20 61 6e 64 20 66 69 78  |etup inc and fix|
00001790  65 64 0a 4d 4f 56 20 52  39 2c 23 30 2c 4c 53 4c  |ed.MOV R9,#0,LSL|
000017a0  20 23 31 36 0a 4d 4f 56  20 52 31 31 2c 23 30 0a  | #16.MOV R11,#0.|
000017b0  3b 20 52 33 20 68 6f 6c  64 73 20 63 6f 75 6e 74  |; R3 holds count|
000017c0  65 72 0a 2e 6c 6f 6f 70  78 78 78 0a 4c 44 52 42  |er..loopxxx.LDRB|
000017d0  20 52 31 30 2c 5b 52 31  2c 52 31 31 2c 4c 53 4c  | R10,[R1,R11,LSL|
000017e0  20 23 36 5d 0a 53 54 52  42 20 52 31 30 2c 5b 52  | #6].STRB R10,[R|
000017f0  30 5d 2c 23 33 32 30 0a  41 44 44 20 52 39 2c 52  |0],#320.ADD R9,R|
00001800  39 2c 52 37 0a 4d 4f 56  20 52 31 31 2c 52 39 2c  |9,R7.MOV R11,R9,|
00001810  4c 53 52 20 23 31 36 0a  0a 3b 65 6e 64 78 78 78  |LSR #16..;endxxx|
00001820  0a 53 55 42 53 20 52 33  2c 52 33 2c 23 31 0a 42  |.SUBS R3,R3,#1.B|
00001830  4e 45 20 6c 6f 6f 70 78  78 78 0a 0a 0a 4c 44 4d  |NE loopxxx...LDM|
00001840  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 31 32 2c  |FD R13!,{R0-R12,|
00001850  52 31 35 7d 5e 0a 2f 2a  4d 4f 56 53 20 50 43 2c  |R15}^./*MOVS PC,|
00001860  52 31 34 5e 2a 2f 0a 0a  0a 45 58 50 4f 52 54 20  |R14^*/...EXPORT |
00001870  6f 75 72 6c 69 62 5f 66  61 73 74 63 6c 67 5f 74  |ourlib_fastclg_t|
00001880  77 6f 0a 2e 6f 75 72 6c  69 62 5f 66 61 73 74 63  |wo..ourlib_fastc|
00001890  6c 67 5f 74 77 6f 0a 0a  53 54 4d 46 44 20 52 31  |lg_two..STMFD R1|
000018a0  33 21 2c 7b 52 30 2d 52  31 32 2c 52 31 34 7d 0a  |3!,{R0-R12,R14}.|
000018b0  0a 4d 4f 56 20 52 34 2c  23 31 30 30 0a 0a 53 55  |.MOV R4,#100..SU|
000018c0  42 20 52 34 2c 52 34 2c  52 32 2c 41 53 52 20 23  |B R4,R4,R2,ASR #|
000018d0  31 0a 41 44 44 20 52 31  31 2c 52 30 2c 52 34 2c  |1.ADD R11,R0,R4,|
000018e0  4c 53 4c 20 23 38 0a 41  44 44 20 52 31 31 2c 52  |LSL #8.ADD R11,R|
000018f0  31 31 2c 52 34 2c 4c 53  4c 20 23 36 0a 4d 4f 56  |11,R4,LSL #6.MOV|
00001900  20 52 31 30 2c 52 31 31  20 3b 20 73 74 61 72 74  | R10,R11 ; start|
00001910  20 6f 66 66 73 65 74 20  63 61 6c 63 75 6c 61 74  | offset calculat|
00001920  65 64 0a 4d 4f 56 20 52  39 2c 52 31 0a 0a 4d 4f  |ed.MOV R9,R1..MO|
00001930  56 20 52 31 32 2c 52 32  2c 4c 53 52 20 23 31 0a  |V R12,R2,LSR #1.|
00001940  0a 4c 44 52 20 52 30 2c  74 6f 70 63 6f 6c 6f 75  |.LDR R0,topcolou|
00001950  72 0a 4d 4f 56 20 52 31  2c 52 30 0a 4d 4f 56 20  |r.MOV R1,R0.MOV |
00001960  52 32 2c 52 30 0a 4d 4f  56 20 52 33 2c 52 30 0a  |R2,R0.MOV R3,R0.|
00001970  4d 4f 56 20 52 34 2c 52  30 0a 4d 4f 56 20 52 35  |MOV R4,R0.MOV R5|
00001980  2c 52 30 0a 4d 4f 56 20  52 36 2c 52 30 0a 4d 4f  |,R0.MOV R6,R0.MO|
00001990  56 20 52 37 2c 52 30 0a  0a 4d 4f 56 20 52 31 34  |V R7,R0..MOV R14|
000019a0  2c 52 31 32 0a 2e 79 5f  6c 6f 6f 70 0a 4d 4f 56  |,R12..y_loop.MOV|
000019b0  20 52 38 2c 52 39 2c 4c  53 52 20 23 35 0a 2e 78  | R8,R9,LSR #5..x|
000019c0  5f 6c 6f 6f 70 0a 0a 53  54 4d 49 41 20 52 31 31  |_loop..STMIA R11|
000019d0  21 2c 7b 52 30 2d 52 37  7d 0a 53 55 42 53 20 52  |!,{R0-R7}.SUBS R|
000019e0  38 2c 52 38 2c 23 31 0a  42 4e 45 20 78 5f 6c 6f  |8,R8,#1.BNE x_lo|
000019f0  6f 70 0a 0a 41 44 44 20  52 31 30 2c 52 31 30 2c  |op..ADD R10,R10,|
00001a00  23 33 32 30 0a 4d 4f 56  20 52 31 31 2c 52 31 30  |#320.MOV R11,R10|
00001a10  0a 0a 53 55 42 53 20 52  31 32 2c 52 31 32 2c 23  |..SUBS R12,R12,#|
00001a20  31 0a 42 4e 45 20 79 5f  6c 6f 6f 70 0a 0a 4c 44  |1.BNE y_loop..LD|
00001a30  52 20 52 30 2c 62 6f 74  74 6f 6d 63 6f 6c 6f 75  |R R0,bottomcolou|
00001a40  72 0a 4d 4f 56 20 52 31  2c 52 30 0a 4d 4f 56 20  |r.MOV R1,R0.MOV |
00001a50  52 32 2c 52 30 0a 4d 4f  56 20 52 33 2c 52 30 0a  |R2,R0.MOV R3,R0.|
00001a60  4d 4f 56 20 52 34 2c 52  30 0a 4d 4f 56 20 52 35  |MOV R4,R0.MOV R5|
00001a70  2c 52 30 0a 4d 4f 56 20  52 36 2c 52 30 0a 4d 4f  |,R0.MOV R6,R0.MO|
00001a80  56 20 52 37 2c 52 30 0a  4d 4f 56 20 52 31 32 2c  |V R7,R0.MOV R12,|
00001a90  52 31 34 0a 2e 79 5f 6c  6f 6f 70 62 0a 4d 4f 56  |R14..y_loopb.MOV|
00001aa0  20 52 38 2c 52 39 2c 4c  53 52 20 23 35 0a 2e 78  | R8,R9,LSR #5..x|
00001ab0  5f 6c 6f 6f 70 62 0a 0a  53 54 4d 49 41 20 52 31  |_loopb..STMIA R1|
00001ac0  31 21 2c 7b 52 30 2d 52  37 7d 0a 53 55 42 53 20  |1!,{R0-R7}.SUBS |
00001ad0  52 38 2c 52 38 2c 23 31  0a 42 4e 45 20 78 5f 6c  |R8,R8,#1.BNE x_l|
00001ae0  6f 6f 70 62 0a 0a 41 44  44 20 52 31 30 2c 52 31  |oopb..ADD R10,R1|
00001af0  30 2c 23 33 32 30 0a 4d  4f 56 20 52 31 31 2c 52  |0,#320.MOV R11,R|
00001b00  31 30 0a 0a 53 55 42 53  20 52 31 32 2c 52 31 32  |10..SUBS R12,R12|
00001b10  2c 23 31 0a 42 4e 45 20  79 5f 6c 6f 6f 70 62 0a  |,#1.BNE y_loopb.|
00001b20  0a 0a 0a 0a 0a 0a 0a 0a  0a 0a 4c 44 4d 46 44 20  |..........LDMFD |
00001b30  52 31 33 21 2c 7b 52 30  2d 52 31 32 2c 52 31 35  |R13!,{R0-R12,R15|
00001b40  7d 5e 0a 0a 0a 45 58 50  4f 52 54 20 6f 75 72 6c  |}^...EXPORT ourl|
00001b50  69 62 5f 66 61 73 74 63  6c 67 0a 2e 6f 75 72 6c  |ib_fastclg..ourl|
00001b60  69 62 5f 66 61 73 74 63  6c 67 0a 53 54 4d 46 44  |ib_fastclg.STMFD|
00001b70  20 52 31 33 21 2c 7b 52  31 2d 52 31 32 2c 52 31  | R13!,{R1-R12,R1|
00001b80  34 7d 0a 0a 0a 4d 4f 56  20 52 31 31 2c 52 30 0a  |4}...MOV R11,R0.|
00001b90  0a 0a 4d 4f 56 20 52 31  30 2c 23 33 32 0a 0a 4c  |..MOV R10,#32..L|
00001ba0  44 52 20 52 30 2c 74 6f  70 63 6f 6c 6f 75 72 0a  |DR R0,topcolour.|
00001bb0  4d 4f 56 20 52 30 2c 52  30 0a 4d 4f 56 20 52 31  |MOV R0,R0.MOV R1|
00001bc0  2c 52 30 0a 4d 4f 56 20  52 32 2c 52 30 0a 4d 4f  |,R0.MOV R2,R0.MO|
00001bd0  56 20 52 33 2c 52 30 0a  4d 4f 56 20 52 34 2c 52  |V R3,R0.MOV R4,R|
00001be0  30 0a 4d 4f 56 20 52 35  2c 52 30 0a 4d 4f 56 20  |0.MOV R5,R0.MOV |
00001bf0  52 36 2c 52 30 0a 4d 4f  56 20 52 37 2c 52 30 0a  |R6,R0.MOV R7,R0.|
00001c00  4d 4f 56 20 52 38 2c 52  30 0a 4d 4f 56 20 52 39  |MOV R8,R0.MOV R9|
00001c10  2c 52 30 0a 2e 66 61 73  74 0a 53 54 4d 49 41 20  |,R0..fast.STMIA |
00001c20  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001c30  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001c40  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001c50  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001c60  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001c70  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001c80  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001c90  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001ca0  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001cb0  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001cc0  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001cd0  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001ce0  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001cf0  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001d00  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001d10  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001d20  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001d30  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001d40  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001d50  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001d60  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001d70  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001d80  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001d90  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001da0  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001db0  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001dc0  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001dd0  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001de0  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001df0  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001e00  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001e10  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001e20  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001e30  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001e40  21 2c 7b 52 30 2d 52 39  7d 0a 53 54 4d 49 41 20  |!,{R0-R9}.STMIA |
00001e50  20 52 31 31 21 2c 7b 52  30 2d 52 39 7d 0a 53 54  | R11!,{R0-R9}.ST|
00001e60  4d 49 41 20 20 52 31 31  21 2c 7b 52 30 2d 52 39  |MIA  R11!,{R0-R9|
00001e70  7d 0a 53 54 4d 49 41 20  20 52 31 31 21 2c 7b 52  |}.STMIA  R11!,{R|
00001e80  30 2d 52 39 7d 0a 53 54  4d 49 41 20 20 52 31 31  |0-R9}.STMIA  R11|
00001e90  21 2c 7b 52 30 2d 52 39  7d 0a 53 55 42 53 20 20  |!,{R0-R9}.SUBS  |
00001ea0  20 52 31 30 2c 52 31 30  2c 23 31 0a 42 4e 45 20  | R10,R10,#1.BNE |
00001eb0  20 20 20 66 61 73 74 0a  0a 0a 4d 4f 56 20 52 31  |   fast...MOV R1|
00001ec0  30 2c 23 33 32 0a 4c 44  52 20 52 31 2c 62 6f 74  |0,#32.LDR R1,bot|
00001ed0  74 6f 6d 63 6f 6c 6f 75  72 0a 4d 4f 56 20 52 30  |tomcolour.MOV R0|
00001ee0  2c 52 31 0a 4d 4f 56 20  52 32 2c 52 31 0a 4d 4f  |,R1.MOV R2,R1.MO|
00001ef0  56 20 52 33 2c 52 31 0a  4d 4f 56 20 52 34 2c 52  |V R3,R1.MOV R4,R|
00001f00  31 0a 4d 4f 56 20 52 35  2c 52 31 0a 4d 4f 56 20  |1.MOV R5,R1.MOV |
00001f10  52 36 2c 52 31 0a 4d 4f  56 20 52 37 2c 52 31 0a  |R6,R1.MOV R7,R1.|
00001f20  4d 4f 56 20 52 38 2c 52  31 0a 4d 4f 56 20 52 39  |MOV R8,R1.MOV R9|
00001f30  2c 52 31 0a 2e 66 61 73  74 32 0a 53 54 4d 49 41  |,R1..fast2.STMIA|
00001f40  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00001f50  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00001f60  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00001f70  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00001f80  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00001f90  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00001fa0  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00001fb0  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00001fc0  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00001fd0  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00001fe0  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00001ff0  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00002000  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00002010  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00002020  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00002030  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00002040  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00002050  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00002060  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00002070  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00002080  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00002090  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
000020a0  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
000020b0  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
000020c0  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
000020d0  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
000020e0  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
000020f0  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00002100  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00002110  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00002120  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00002130  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00002140  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
00002150  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
00002160  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 54 4d 49 41  |1!,{R0-R9}.STMIA|
00002170  20 20 52 31 31 21 2c 7b  52 30 2d 52 39 7d 0a 53  |  R11!,{R0-R9}.S|
00002180  54 4d 49 41 20 20 52 31  31 21 2c 7b 52 30 2d 52  |TMIA  R11!,{R0-R|
00002190  39 7d 0a 53 54 4d 49 41  20 20 52 31 31 21 2c 7b  |9}.STMIA  R11!,{|
000021a0  52 30 2d 52 39 7d 0a 53  54 4d 49 41 20 20 52 31  |R0-R9}.STMIA  R1|
000021b0  31 21 2c 7b 52 30 2d 52  39 7d 0a 53 55 42 53 20  |1!,{R0-R9}.SUBS |
000021c0  20 20 52 31 30 2c 52 31  30 2c 23 31 0a 42 4e 45  |  R10,R10,#1.BNE|
000021d0  20 20 20 20 66 61 73 74  32 0a 4c 44 4d 46 44 20  |    fast2.LDMFD |
000021e0  52 31 33 21 2c 7b 52 31  2d 52 31 32 2c 52 31 35  |R13!,{R1-R12,R15|
000021f0  7d 5e 0a 0a 0a 2e 74 6f  70 63 6f 6c 6f 75 72 0a  |}^....topcolour.|
00002200  45 51 55 44 20 30 0a 2e  62 6f 74 74 6f 6d 63 6f  |EQUD 0..bottomco|
00002210  6c 6f 75 72 0a 45 51 55  44 20 30 0a 2e 73 63 72  |lour.EQUD 0..scr|
00002220  65 65 6e 79 6f 66 66 73  65 74 0a 45 51 55 44 20  |eenyoffset.EQUD |
00002230  30 0a 2e 73 63 72 65 65  6e 79 73 74 6f 70 0a 45  |0..screenystop.E|
00002240  51 55 44 20 30 0a 2e 73  63 72 65 65 6e 78 6f 66  |QUD 0..screenxof|
00002250  66 73 65 74 0a 45 51 55  44 20 30 0a 2e 73 63 72  |fset.EQUD 0..scr|
00002260  65 65 6e 78 73 74 6f 70  0a 45 51 55 44 20 30 0a  |eenxstop.EQUD 0.|
00002270  0a 0a 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |....EXPORT ourli|
00002280  62 5f 73 65 74 75 70 62  61 63 6b 67 72 6f 75 6e  |b_setupbackgroun|
00002290  64 0a 2e 6f 75 72 6c 69  62 5f 73 65 74 75 70 5f  |d..ourlib_setup_|
000022a0  62 61 63 6b 67 72 6f 75  6e 64 0a 53 54 4d 46 44  |background.STMFD|
000022b0  20 52 31 33 21 2c 7b 52  31 2d 52 36 2c 52 31 34  | R13!,{R1-R6,R14|
000022c0  7d 0a 2f 2a 4d 4f 56 20  52 31 30 2c 23 33 32 30  |}./*MOV R10,#320|
000022d0  0a 53 55 42 20 52 39 2c  52 31 30 2c 52 32 2c 4c  |.SUB R9,R10,R2,L|
000022e0  53 52 20 23 31 0a 53 54  52 20 52 39 2c 73 63 72  |SR #1.STR R9,scr|
000022f0  65 65 6e 78 6f 66 66 73  65 74 0a 53 55 42 20 52  |eenxoffset.SUB R|
00002300  39 2c 52 31 30 2c 52 39  0a 53 54 52 20 52 39 2c  |9,R10,R9.STR R9,|
00002310  73 63 72 65 65 6e 78 73  74 6f 70 0a 4d 4f 56 20  |screenxstop.MOV |
00002320  52 31 30 2c 23 31 32 38  0a 53 55 42 20 52 39 2c  |R10,#128.SUB R9,|
00002330  52 31 30 2c 52 33 2c 4c  53 52 20 23 31 0a 53 54  |R10,R3,LSR #1.ST|
00002340  52 20 52 39 2c 73 63 72  65 65 6e 79 6f 66 66 73  |R R9,screenyoffs|
00002350  65 74 0a 4d 4f 56 20 52  31 30 2c 23 32 35 36 0a  |et.MOV R10,#256.|
00002360  53 55 42 20 52 39 2c 52  31 30 2c 52 39 0a 53 54  |SUB R9,R10,R9.ST|
00002370  52 20 52 39 2c 73 63 72  65 65 6e 79 73 74 6f 70  |R R9,screenystop|
00002380  2a 2f 0a 0a 4d 4f 56 20  52 33 2c 52 30 0a 4d 4f  |*/..MOV R3,R0.MO|
00002390  56 20 52 34 2c 52 31 0a  0a 4f 52 52 20 52 30 2c  |V R4,R1..ORR R0,|
000023a0  52 30 2c 52 33 0a 4f 52  52 20 52 30 2c 52 30 2c  |R0,R3.ORR R0,R0,|
000023b0  52 33 2c 4c 53 4c 20 23  38 0a 4f 52 52 20 52 30  |R3,LSL #8.ORR R0|
000023c0  2c 52 30 2c 52 33 2c 4c  53 4c 20 23 31 36 0a 4f  |,R0,R3,LSL #16.O|
000023d0  52 52 20 52 30 2c 52 30  2c 52 33 2c 4c 53 4c 20  |RR R0,R0,R3,LSL |
000023e0  23 32 34 0a 53 54 52 20  52 30 2c 74 6f 70 63 6f  |#24.STR R0,topco|
000023f0  6c 6f 75 72 0a 0a 4d 4f  56 20 52 30 2c 23 30 0a  |lour..MOV R0,#0.|
00002400  4f 52 52 20 52 30 2c 52  30 2c 52 34 0a 4f 52 52  |ORR R0,R0,R4.ORR|
00002410  20 52 30 2c 52 30 2c 52  34 2c 4c 53 4c 20 23 38  | R0,R0,R4,LSL #8|
00002420  0a 4f 52 52 20 52 30 2c  52 30 2c 52 34 2c 4c 53  |.ORR R0,R0,R4,LS|
00002430  4c 20 23 31 36 0a 4f 52  52 20 52 30 2c 52 30 2c  |L #16.ORR R0,R0,|
00002440  52 34 2c 4c 53 4c 20 23  32 34 0a 53 54 52 20 52  |R4,LSL #24.STR R|
00002450  30 2c 62 6f 74 74 6f 6d  63 6f 6c 6f 75 72 0a 4c  |0,bottomcolour.L|
00002460  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 36  |DMFD R13!,{R1-R6|
00002470  2c 52 31 35 7d 5e 0a 0a  45 58 50 4f 52 54 20 6f  |,R15}^..EXPORT o|
00002480  75 72 6c 69 62 5f 63 6f  6c 6f 75 72 5f 62 6f 78  |urlib_colour_box|
00002490  0a 2e 6f 75 72 6c 69 62  5f 63 6f 6c 6f 75 72 5f  |..ourlib_colour_|
000024a0  62 6f 78 0a 0a 2f 2a 20  52 30 20 3d 20 76 69 64  |box../* R0 = vid|
000024b0  65 6f 5f 61 64 64 72 65  73 73 20 52 31 3d 20 73  |eo_address R1= s|
000024c0  74 61 72 74 78 20 52 32  20 3d 20 73 74 61 72 74  |tartx R2 = start|
000024d0  79 20 52 33 20 3d 20 65  6e 64 78 20 52 34 20 3d  |y R3 = endx R4 =|
000024e0  20 65 6e 64 79 20 52 35  20 3d 20 63 6f 6c 6f 75  | endy R5 = colou|
000024f0  72 2a 2f 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |r*/.STMFD R13!,{|
00002500  52 31 2d 52 31 30 2c 52  31 34 7d 0a 4c 44 4d 49  |R1-R10,R14}.LDMI|
00002510  41 20 52 30 2c 7b 52 30  2d 52 35 7d 0a 0a 4d 4f  |A R0,{R0-R5}..MO|
00002520  56 20 52 36 2c 52 32 0a  0a 2e 6c 6f 6f 70 5f 79  |V R6,R2...loop_y|
00002530  0a 4d 4f 56 20 52 37 2c  52 31 0a 2e 6c 6f 6f 70  |.MOV R7,R1..loop|
00002540  5f 78 0a 41 44 44 20 52  38 2c 52 37 2c 52 36 2c  |_x.ADD R8,R7,R6,|
00002550  4c 53 4c 20 23 38 0a 41  44 44 20 52 38 2c 52 38  |LSL #8.ADD R8,R8|
00002560  2c 52 36 2c 4c 53 4c 20  23 36 0a 53 54 52 42 20  |,R6,LSL #6.STRB |
00002570  52 35 2c 5b 52 30 2c 52  38 5d 0a 41 44 44 20 52  |R5,[R0,R8].ADD R|
00002580  37 2c 52 37 2c 23 31 0a  43 4d 50 20 52 37 2c 52  |7,R7,#1.CMP R7,R|
00002590  33 0a 42 4c 54 20 6c 6f  6f 70 5f 78 0a 0a 41 44  |3.BLT loop_x..AD|
000025a0  44 20 52 36 2c 52 36 2c  23 31 0a 43 4d 50 20 52  |D R6,R6,#1.CMP R|
000025b0  36 2c 52 34 0a 42 4c 54  20 6c 6f 6f 70 5f 79 0a  |6,R4.BLT loop_y.|
000025c0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
000025d0  52 31 30 2c 50 43 7d 0a  0a 0a 0a 0a 0a 0a 45 58  |R10,PC}.......EX|
000025e0  50 4f 52 54 20 6f 75 72  6c 69 62 5f 72 61 79 62  |PORT ourlib_rayb|
000025f0  61 63 6b 0a 2e 6f 75 72  6c 69 62 5f 72 61 79 62  |ack..ourlib_rayb|
00002600  61 63 6b 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |ack.STMFD R13!,{|
00002610  52 31 2d 52 31 32 2c 52  31 34 7d 0a 0a 4d 4f 56  |R1-R12,R14}..MOV|
00002620  20 52 31 32 2c 23 30 30  30 30 30 30 30 30 30 30  | R12,#0000000000|
00002630  30 30 30 30 0a 4d 4f 56  20 52 32 2c 23 32 30 34  |0000.MOV R2,#204|
00002640  38 30 0a 0a 2e 72 61 79  62 61 63 6b 6c 6f 6f 70  |80...raybackloop|
00002650  0a 53 54 52 20 52 31 32  2c 5b 52 30 2c 23 34 5d  |.STR R12,[R0,#4]|
00002660  21 0a 53 55 42 53 20 52  32 2c 52 32 20 2c 23 31  |!.SUBS R2,R2 ,#1|
00002670  0a 42 4e 45 20 72 61 79  62 61 63 6b 6c 6f 6f 70  |.BNE raybackloop|
00002680  0a 0a 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |...LDMFD R13!,{R|
00002690  31 2d 52 31 32 2c 52 31  35 7d 5e 0a 0a 45 58 50  |1-R12,R15}^..EXP|
000026a0  4f 52 54 20 6f 75 72 6c  69 62 5f 77 61 69 74 76  |ORT ourlib_waitv|
000026b0  73 79 6e 63 0a 2e 6f 75  72 6c 69 62 5f 77 61 69  |sync..ourlib_wai|
000026c0  74 76 73 79 6e 63 0a 53  54 4d 46 44 20 52 31 33  |tvsync.STMFD R13|
000026d0  21 2c 7b 52 31 2d 52 32  2c 52 31 34 7d 0a 4d 4f  |!,{R1-R2,R14}.MO|
000026e0  56 20 52 30 2c 23 31 39  0a 53 57 49 20 4f 53 5f  |V R0,#19.SWI OS_|
000026f0  42 79 74 65 0a 4c 44 4d  46 44 20 52 31 33 21 2c  |Byte.LDMFD R13!,|
00002700  7b 52 31 2d 52 32 2c 52  31 35 7d 5e 0a 0a 45 58  |{R1-R2,R15}^..EX|
00002710  50 4f 52 54 20 6f 75 72  6c 69 62 5f 73 63 72 65  |PORT ourlib_scre|
00002720  65 6e 5f 72 6f 74 61 74  65 0a 2e 6f 75 72 6c 69  |en_rotate..ourli|
00002730  62 5f 73 63 72 65 65 6e  5f 72 6f 74 61 74 65 0a  |b_screen_rotate.|
00002740  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00002750  34 2c 52 31 34 7d 0a 4c  44 52 20 52 31 2c 73 63  |4,R14}.LDR R1,sc|
00002760  72 65 65 6e 73 69 7a 65  0a 4c 44 52 20 52 31 2c  |reensize.LDR R1,|
00002770  73 63 72 65 65 6e 73 69  7a 65 0a 2e 72 6f 74 61  |screensize..rota|
00002780  74 65 6c 6f 6f 70 0a 4c  44 52 42 20 52 33 2c 5b  |teloop.LDRB R3,[|
00002790  52 30 5d 0a 4d 4f 56 20  52 33 2c 52 33 2c 52 4f  |R0].MOV R3,R3,RO|
000027a0  52 20 23 32 34 0a 53 54  52 42 20 52 33 2c 5b 52  |R #24.STRB R3,[R|
000027b0  30 5d 2c 23 31 0a 53 55  42 53 20 52 31 2c 52 31  |0],#1.SUBS R1,R1|
000027c0  2c 23 31 0a 42 4e 45 20  72 6f 74 61 74 65 6c 6f  |,#1.BNE rotatelo|
000027d0  6f 70 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |op.LDMFD R13!,{R|
000027e0  31 2d 52 34 2c 50 43 7d  0a 2e 73 63 72 65 65 6e  |1-R4,PC}..screen|
000027f0  73 69 7a 65 0a 45 51 55  44 20 38 31 39 32 30 0a  |size.EQUD 81920.|
00002800  0a 0a 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |....EXPORT ourli|
00002810  62 5f 66 61 64 65 5f 6f  75 74 0a 2e 6f 75 72 6c  |b_fade_out..ourl|
00002820  69 62 5f 66 61 64 65 5f  6f 75 74 0a 53 54 4d 46  |ib_fade_out.STMF|
00002830  44 20 52 31 33 21 2c 7b  52 31 2d 52 37 2c 52 31  |D R13!,{R1-R7,R1|
00002840  34 7d 0a 2f 2a 20 52 30  20 3d 20 76 69 64 65 6f  |4}./* R0 = video|
00002850  61 64 64 72 65 73 73 20  52 31 20 3d 20 73 63 72  |address R1 = scr|
00002860  65 65 6e 73 69 7a 65 20  2a 2f 0a 0a 41 44 44 20  |eensize */..ADD |
00002870  52 30 2c 52 30 2c 52 31  20 20 20 20 20 20 20 20  |R0,R0,R1        |
00002880  20 3b 20 50 6f 69 6e 74  20 52 30 20 74 6f 20 62  | ; Point R0 to b|
00002890  6f 74 74 6f 6d 20 6f 66  20 73 63 72 65 65 6e 0a  |ottom of screen.|
000028a0  4d 4f 56 20 52 35 2c 23  38 20 20 20 20 20 20 20  |MOV R5,#8       |
000028b0  20 20 20 20 20 3b 20 4c  6f 6f 70 20 77 69 6c 6c  |     ; Loop will|
000028c0  20 65 78 65 63 75 74 65  20 20 23 34 20 63 79 63  | execute  #4 cyc|
000028d0  6c 65 73 0a 2e 6f 75 74  65 72 5f 6c 6f 6f 70 20  |les..outer_loop |
000028e0  20 20 20 20 20 20 20 20  20 3b 20 4f 75 74 65 72  |         ; Outer|
000028f0  20 6c 6f 6f 70 20 62 65  67 69 6e 73 0a 4d 4f 56  | loop begins.MOV|
00002900  20 52 34 2c 52 31 20 20  20 20 20 20 20 20 20 20  | R4,R1          |
00002910  20 20 3b 20 4d 6f 76 65  20 73 63 72 65 65 6e 73  |  ; Move screens|
00002920  69 7a 65 20 69 6e 74 6f  20 74 65 6d 70 20 52 34  |ize into temp R4|
00002930  0a 2e 66 61 64 65 72 5f  6c 6f 6f 70 20 20 20 20  |..fader_loop    |
00002940  20 20 20 20 20 20 3b 20  49 6e 6e 65 72 20 6c 6f  |      ; Inner lo|
00002950  6f 70 20 62 65 67 69 6e  73 0a 53 55 42 20 52 32  |op begins.SUB R2|
00002960  2c 52 30 2c 52 34 20 20  20 20 20 20 20 20 20 3b  |,R0,R4         ;|
00002970  20 53 75 62 74 72 61 63  74 20 52 34 20 66 72 6f  | Subtract R4 fro|
00002980  6d 20 73 63 72 65 65 6e  20 70 6f 69 6e 74 65 72  |m screen pointer|
00002990  0a 4c 44 52 42 20 52 33  2c 5b 52 32 5d 20 20 20  |.LDRB R3,[R2]   |
000029a0  20 20 20 20 20 20 3b 20  4c 6f 61 64 20 74 68 65  |      ; Load the|
000029b0  20 76 61 6c 75 65 20 70  6f 69 6e 74 65 64 20 74  | value pointed t|
000029c0  6f 0a 4d 4f 56 20 52 33  2c 52 33 2c 4c 53 52 20  |o.MOV R3,R3,LSR |
000029d0  23 31 20 20 20 20 20 3b  20 53 68 69 66 74 20 28  |#1     ; Shift (|
000029e0  66 61 64 65 29 20 69 74  0a 53 54 52 42 20 52 33  |fade) it.STRB R3|
000029f0  2c 5b 52 32 5d 20 20 20  20 20 20 20 20 20 3b 20  |,[R2]         ; |
00002a00  41 6e 64 20 73 74 6f 72  65 20 69 74 20 62 61 63  |And store it bac|
00002a10  6b 20 77 68 65 72 65 20  69 74 20 77 61 73 0a 53  |k where it was.S|
00002a20  55 42 53 20 52 34 2c 52  34 2c 23 31 20 20 20 20  |UBS R4,R4,#1    |
00002a30  20 20 20 20 3b 20 4d 6f  76 65 20 70 6f 69 6e 74  |    ; Move point|
00002a40  65 72 20 74 6f 20 6e 65  78 74 20 70 69 78 65 6c  |er to next pixel|
00002a50  0a 42 4e 45 20 66 61 64  65 72 5f 6c 6f 6f 70 20  |.BNE fader_loop |
00002a60  20 20 20 20 20 20 3b 20  4c 6f 6f 70 20 69 66 20  |      ; Loop if |
00002a70  6e 6f 74 20 64 6f 6e 65  20 79 65 74 0a 53 55 42  |not done yet.SUB|
00002a80  53 20 52 35 2c 52 35 2c  23 31 20 20 20 20 20 20  |S R5,R5,#1      |
00002a90  20 20 3b 20 44 65 63 72  65 6d 65 6e 74 20 6f 75  |  ; Decrement ou|
00002aa0  74 65 72 20 6c 6f 6f 70  20 63 6f 75 6e 74 65 72  |ter loop counter|
00002ab0  0a 42 4e 45 20 6f 75 74  65 72 5f 6c 6f 6f 70 20  |.BNE outer_loop |
00002ac0  20 20 20 20 20 20 3b 20  4c 6f 6f 70 20 61 67 61  |      ; Loop aga|
00002ad0  69 6e 20 69 66 20 69 6e  63 6f 6d 70 6c 65 74 65  |in if incomplete|
00002ae0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00002af0  52 37 2c 50 43 7d 5e 0a  0a 45 58 50 4f 52 54 20  |R7,PC}^..EXPORT |
00002b00  6f 75 72 6c 69 62 5f 63  6f 6c 6f 75 72 73 63 72  |ourlib_colourscr|
00002b10  65 65 6e 31 33 0a 2e 6f  75 72 6c 69 62 5f 63 6f  |een13..ourlib_co|
00002b20  6c 6f 75 72 73 63 72 65  65 6e 31 33 0a 0a 53 54  |lourscreen13..ST|
00002b30  4d 46 44 20 52 31 33 21  2c 7b 52 31 2d 52 31 32  |MFD R13!,{R1-R12|
00002b40  2c 52 31 34 7d 0a 2f 2a  20 52 30 20 3d 20 76 69  |,R14}./* R0 = vi|
00002b50  64 65 6f 5f 61 64 64 72  65 73 73 20 52 31 20 3d  |deo_address R1 =|
00002b60  20 70 69 78 65 6c 73 20  52 32 20 3d 20 63 6f 6c  | pixels R2 = col|
00002b70  6f 75 72 20 2a 2f 0a 0a  2e 6c 6f 6f 70 5f 70 69  |our */...loop_pi|
00002b80  78 65 6c 0a 53 54 52 42  20 52 32 2c 5b 52 30 2c  |xel.STRB R2,[R0,|
00002b90  52 31 5d 0a 53 55 42 53  20 52 31 2c 52 31 2c 23  |R1].SUBS R1,R1,#|
00002ba0  31 0a 42 4e 45 20 6c 6f  6f 70 5f 70 69 78 65 6c  |1.BNE loop_pixel|
00002bb0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00002bc0  52 31 32 2c 52 31 35 7d  5e 0a 0a 0a 45 58 50 4f  |R12,R15}^...EXPO|
00002bd0  52 54 20 6f 75 72 6c 69  62 5f 66 69 6e 64 73 63  |RT ourlib_findsc|
00002be0  72 65 65 6e 0a 2e 6f 75  72 6c 69 62 5f 66 69 6e  |reen..ourlib_fin|
00002bf0  64 73 63 72 65 65 6e 0a  53 54 4d 46 44 20 52 31  |dscreen.STMFD R1|
00002c00  33 21 2c 7b 52 31 2d 52  35 2c 52 31 34 7d 0a 41  |3!,{R1-R5,R14}.A|
00002c10  44 52 20 52 30 2c 53 63  72 65 65 6e 5f 50 61 72  |DR R0,Screen_Par|
00002c20  61 6d 73 0a 41 44 52 20  52 31 2c 53 63 72 65 65  |ams.ADR R1,Scree|
00002c30  6e 5f 41 64 64 72 65 73  73 0a 53 57 49 20 22 4f  |n_Address.SWI "O|
00002c40  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00002c50  65 73 22 0a 4c 44 52 20  52 30 2c 53 63 72 65 65  |es".LDR R0,Scree|
00002c60  6e 5f 41 64 64 72 65 73  73 0a 4c 44 4d 46 44 20  |n_Address.LDMFD |
00002c70  52 31 33 21 2c 7b 52 31  2d 52 35 2c 52 31 35 7d  |R13!,{R1-R5,R15}|
00002c80  5e 0a 2e 53 63 72 65 65  6e 5f 41 64 64 72 65 73  |^..Screen_Addres|
00002c90  73 0a 45 51 55 44 20 30  3b 0a 2e 53 63 72 65 65  |s.EQUD 0;..Scree|
00002ca0  6e 5f 50 61 72 61 6d 73  0a 45 51 55 44 20 31 34  |n_Params.EQUD 14|
00002cb0  38 3b 0a 45 51 55 44 20  2d 31 3b 0a 0a 0a 23 70  |8;.EQUD -1;...#p|
00002cc0  72 61 67 6d 61 20 65 6e  64 61 73 6d 0a 0a 0a 76  |ragma endasm...v|
00002cd0  6f 69 64 20 6f 75 72 6c  69 62 5f 77 72 69 74 65  |oid ourlib_write|
00002ce0  28 63 68 61 72 20 73 74  72 69 6e 67 5b 5d 29 3b  |(char string[]);|
00002cf0  0a 76 6f 69 64 20 6f 75  72 6c 69 62 5f 62 69 74  |.void ourlib_bit|
00002d00  6d 61 70 5f 70 6c 6f 74  28 69 6e 74 20 73 74 61  |map_plot(int sta|
00002d10  72 74 5f 78 2c 69 6e 74  20 73 74 61 72 74 5f 79  |rt_x,int start_y|
00002d20  2c 69 6e 74 20 65 6e 64  5f 78 2c 69 6e 74 20 65  |,int end_x,int e|
00002d30  6e 64 5f 79 2c 63 68 61  72 20 2a 6d 65 6d 6f 72  |nd_y,char *memor|
00002d40  79 2c 63 68 61 72 20 2a  76 69 64 65 6f 29 3b 0a  |y,char *video);.|
00002d50  76 6f 69 64 20 6f 75 72  6c 69 62 5f 62 69 74 6d  |void ourlib_bitm|
00002d60  61 70 5f 67 72 61 62 28  69 6e 74 20 73 74 61 72  |ap_grab(int star|
00002d70  74 5f 78 2c 69 6e 74 20  73 74 61 72 74 5f 79 2c  |t_x,int start_y,|
00002d80  69 6e 74 20 65 6e 64 5f  78 2c 69 6e 74 20 65 6e  |int end_x,int en|
00002d90  64 5f 79 2c 63 68 61 72  20 2a 6d 65 6d 6f 72 79  |d_y,char *memory|
00002da0  2c 63 68 61 72 20 2a 76  69 64 65 6f 29 3b 0a 0a  |,char *video);..|
00002db0  0a 76 6f 69 64 20 6f 75  72 6c 69 62 5f 62 69 74  |.void ourlib_bit|
00002dc0  6d 61 70 5f 67 72 61 62  28 69 6e 74 20 73 74 61  |map_grab(int sta|
00002dd0  72 74 5f 78 2c 69 6e 74  20 73 74 61 72 74 5f 79  |rt_x,int start_y|
00002de0  2c 69 6e 74 20 65 6e 64  5f 78 2c 69 6e 74 20 65  |,int end_x,int e|
00002df0  6e 64 5f 79 2c 63 68 61  72 20 2a 6d 65 6d 6f 72  |nd_y,char *memor|
00002e00  79 2c 63 68 61 72 20 2a  76 69 64 65 6f 29 0a 7b  |y,char *video).{|
00002e10  0a 20 20 69 6e 74 20 6f  66 66 73 65 74 5f 69 6e  |.  int offset_in|
00002e20  5f 6d 65 6d 6f 72 79 3b  0a 20 20 69 6e 74 20 6f  |_memory;.  int o|
00002e30  66 66 73 65 74 5f 69 6e  5f 73 63 72 65 65 6e 3b  |ffset_in_screen;|
00002e40  0a 20 20 69 6e 74 20 70  69 78 65 6c 5f 78 2c 70  |.  int pixel_x,p|
00002e50  69 78 65 6c 5f 79 3b 0a  0a 20 20 66 6f 72 28 6f  |ixel_y;..  for(o|
00002e60  66 66 73 65 74 5f 69 6e  5f 6d 65 6d 6f 72 79 3d  |ffset_in_memory=|
00002e70  30 2c 70 69 78 65 6c 5f  79 3d 73 74 61 72 74 5f  |0,pixel_y=start_|
00002e80  79 3b 70 69 78 65 6c 5f  79 3c 3d 65 6e 64 5f 79  |y;pixel_y<=end_y|
00002e90  3b 70 69 78 65 6c 5f 79  2b 2b 29 0a 20 20 7b 0a  |;pixel_y++).  {.|
00002ea0  20 20 20 20 66 6f 72 28  70 69 78 65 6c 5f 78 3d  |    for(pixel_x=|
00002eb0  73 74 61 72 74 5f 78 3b  70 69 78 65 6c 5f 78 3c  |start_x;pixel_x<|
00002ec0  3d 65 6e 64 5f 78 3b 70  69 78 65 6c 5f 78 2b 2b  |=end_x;pixel_x++|
00002ed0  2c 6f 66 66 73 65 74 5f  69 6e 5f 6d 65 6d 6f 72  |,offset_in_memor|
00002ee0  79 2b 2b 29 0a 20 20 20  20 7b 0a 20 20 20 20 20  |y++).    {.     |
00002ef0  20 6f 66 66 73 65 74 5f  69 6e 5f 73 63 72 65 65  | offset_in_scree|
00002f00  6e 3d 70 69 78 65 6c 5f  78 2b 28 70 69 78 65 6c  |n=pixel_x+(pixel|
00002f10  5f 79 3c 3c 36 29 2b 28  70 69 78 65 6c 5f 79 3c  |_y<<6)+(pixel_y<|
00002f20  3c 38 29 3b 0a 20 20 20  20 20 20 6d 65 6d 6f 72  |<8);.      memor|
00002f30  79 5b 6f 66 66 73 65 74  5f 69 6e 5f 6d 65 6d 6f  |y[offset_in_memo|
00002f40  72 79 5d 3d 2a 28 76 69  64 65 6f 2b 6f 66 66 73  |ry]=*(video+offs|
00002f50  65 74 5f 69 6e 5f 73 63  72 65 65 6e 29 3b 0a 0a  |et_in_screen);..|
00002f60  20 20 20 20 7d 0a 20 20  7d 0a 0a 7d 0a 76 6f 69  |    }.  }..}.voi|
00002f70  64 20 6f 75 72 6c 69 62  5f 62 69 74 6d 61 70 5f  |d ourlib_bitmap_|
00002f80  70 6c 6f 74 28 69 6e 74  20 73 74 61 72 74 5f 78  |plot(int start_x|
00002f90  2c 69 6e 74 20 73 74 61  72 74 5f 79 2c 69 6e 74  |,int start_y,int|
00002fa0  20 65 6e 64 5f 78 2c 69  6e 74 20 65 6e 64 5f 79  | end_x,int end_y|
00002fb0  2c 63 68 61 72 20 2a 6d  65 6d 6f 72 79 2c 63 68  |,char *memory,ch|
00002fc0  61 72 20 2a 76 69 64 65  6f 29 0a 7b 0a 20 20 69  |ar *video).{.  i|
00002fd0  6e 74 20 6f 66 66 73 65  74 5f 69 6e 5f 6d 65 6d  |nt offset_in_mem|
00002fe0  6f 72 79 3b 0a 20 20 69  6e 74 20 6f 66 66 73 65  |ory;.  int offse|
00002ff0  74 5f 69 6e 5f 73 63 72  65 65 6e 3b 0a 20 20 69  |t_in_screen;.  i|
00003000  6e 74 20 70 69 78 65 6c  5f 78 2c 70 69 78 65 6c  |nt pixel_x,pixel|
00003010  5f 79 3b 0a 0a 20 20 66  6f 72 28 6f 66 66 73 65  |_y;..  for(offse|
00003020  74 5f 69 6e 5f 6d 65 6d  6f 72 79 3d 30 2c 70 69  |t_in_memory=0,pi|
00003030  78 65 6c 5f 79 3d 73 74  61 72 74 5f 79 3b 70 69  |xel_y=start_y;pi|
00003040  78 65 6c 5f 79 3c 3d 65  6e 64 5f 79 3b 70 69 78  |xel_y<=end_y;pix|
00003050  65 6c 5f 79 2b 2b 29 0a  20 20 7b 0a 20 20 20 20  |el_y++).  {.    |
00003060  66 6f 72 28 70 69 78 65  6c 5f 78 3d 73 74 61 72  |for(pixel_x=star|
00003070  74 5f 78 3b 70 69 78 65  6c 5f 78 3c 3d 65 6e 64  |t_x;pixel_x<=end|
00003080  5f 78 3b 70 69 78 65 6c  5f 78 2b 2b 2c 6f 66 66  |_x;pixel_x++,off|
00003090  73 65 74 5f 69 6e 5f 6d  65 6d 6f 72 79 2b 2b 29  |set_in_memory++)|
000030a0  0a 20 20 20 20 7b 0a 20  20 20 20 20 20 6f 66 66  |.    {.      off|
000030b0  73 65 74 5f 69 6e 5f 73  63 72 65 65 6e 3d 70 69  |set_in_screen=pi|
000030c0  78 65 6c 5f 78 2b 28 70  69 78 65 6c 5f 79 3c 3c  |xel_x+(pixel_y<<|
000030d0  36 29 2b 28 70 69 78 65  6c 5f 79 3c 3c 38 29 3b  |6)+(pixel_y<<8);|
000030e0  0a 20 20 20 20 20 20 2a  28 76 69 64 65 6f 2b 6f  |.      *(video+o|
000030f0  66 66 73 65 74 5f 69 6e  5f 73 63 72 65 65 6e 29  |ffset_in_screen)|
00003100  3d 6d 65 6d 6f 72 79 5b  6f 66 66 73 65 74 5f 69  |=memory[offset_i|
00003110  6e 5f 6d 65 6d 6f 72 79  5d 3b 0a 20 20 20 20 7d  |n_memory];.    }|
00003120  0a 20 20 7d 0a 7d 0a 76  6f 69 64 20 6f 75 72 6c  |.  }.}.void ourl|
00003130  69 62 5f 77 72 69 74 65  28 63 68 61 72 20 73 74  |ib_write(char st|
00003140  72 69 6e 67 5b 5d 29 0a  7b 0a 20 70 72 69 6e 74  |ring[]).{. print|
00003150  66 28 22 25 73 5c 6e 22  2c 73 74 72 69 6e 67 29  |f("%s\n",string)|
00003160  3b 0a 7d 0a 76 6f 69 64  20 6f 75 72 6c 69 62 5f  |;.}.void ourlib_|
00003170  62 69 74 6d 61 70 5f 73  63 61 6c 65 28 63 68 61  |bitmap_scale(cha|
00003180  72 20 2a 73 63 72 65 65  6e 2c 69 6e 74 20 73 63  |r *screen,int sc|
00003190  72 65 65 6e 78 2c 69 6e  74 20 73 63 72 65 65 6e  |reenx,int screen|
000031a0  79 2c 69 6e 74 20 70 65  72 63 65 6e 74 2c 20 69  |y,int percent, i|
000031b0  6e 74 20 77 69 64 74 68  2c 69 6e 74 20 68 65 69  |nt width,int hei|
000031c0  67 68 74 2c 63 68 61 72  20 2a 62 69 74 6d 61 70  |ght,char *bitmap|
000031d0  29 0a 7b 0a 0a 0a 20 20  20 20 20 20 69 6e 74 20  |).{...      int |
000031e0  79 65 72 72 6f 72 3d 30  3b 0a 0a 20 20 20 20 20  |yerror=0;..     |
000031f0  20 2f 2a 69 6e 74 20 73  63 72 65 65 6e 79 3d 28  | /*int screeny=(|
00003200  32 30 30 2d 70 65 72 63  65 6e 74 29 2f 32 3b 2a  |200-percent)/2;*|
00003210  2f 0a 69 6e 74 20 78 65  72 72 6f 72 2c 78 3b 0a  |/.int xerror,x;.|
00003220  0a 0a 20 20 20 20 20 20  75 6e 73 69 67 6e 65 64  |..      unsigned|
00003230  20 69 6e 74 20 73 63 72  70 74 72 3d 73 63 72 65  | int scrptr=scre|
00003240  65 6e 79 2a 33 32 30 2b  73 63 72 65 65 6e 78 3b  |eny*320+screenx;|
00003250  0a 20 20 20 20 20 20 75  6e 73 69 67 6e 65 64 20  |.      unsigned |
00003260  69 6e 74 20 62 69 74 70  74 72 3d 30 3b 0a 0a 20  |int bitptr=0;.. |
00003270  20 20 20 20 20 69 6e 74  20 79 3b 0a 75 6e 73 69  |     int y;.unsi|
00003280  67 6e 65 64 20 69 6e 74  20 6f 6c 64 5f 73 63 72  |gned int old_scr|
00003290  70 74 72 3b 0a 75 6e 73  69 67 6e 65 64 20 69 6e  |ptr;.unsigned in|
000032a0  74 20 6f 6c 64 5f 62 69  74 70 74 72 3b 0a 20 20  |t old_bitptr;.  |
000032b0  20 20 20 20 66 6f 72 20  28 79 3d 30 3b 20 79 3c  |    for (y=0; y<|
000032c0  68 65 69 67 68 74 3b 20  79 2b 2b 29 20 7b 0a 0a  |height; y++) {..|
000032d0  0a 0a 20 20 20 20 20 20  20 20 79 65 72 72 6f 72  |..        yerror|
000032e0  2b 3d 70 65 72 63 65 6e  74 3b 0a 0a 0a 0a 20 20  |+=percent;....  |
000032f0  20 20 20 20 20 20 77 68  69 6c 65 20 28 79 65 72  |      while (yer|
00003300  72 6f 72 3e 31 30 30 29  20 7b 0a 0a 0a 0a 20 20  |ror>100) {....  |
00003310  20 20 20 20 20 20 20 20  79 65 72 72 6f 72 2d 3d  |        yerror-=|
00003320  31 30 30 3b 0a 0a 0a 20  20 20 20 20 20 20 20 6f  |100;...        o|
00003330  6c 64 5f 73 63 72 70 74  72 3d 73 63 72 70 74 72  |ld_scrptr=scrptr|
00003340  3b 0a 0a 0a 0a 20 20 20  20 20 20 20 20 20 6f 6c  |;....         ol|
00003350  64 5f 62 69 74 70 74 72  3d 62 69 74 70 74 72 3b  |d_bitptr=bitptr;|
00003360  0a 0a 0a 0a 20 20 20 20  20 20 20 20 20 20 20 78  |....           x|
00003370  65 72 72 6f 72 3d 30 3b  0a 0a 0a 0a 20 20 20 20  |error=0;....    |
00003380  20 20 20 20 20 20 66 6f  72 20 28 20 78 3d 30 3b  |      for ( x=0;|
00003390  20 78 3c 77 69 64 74 68  3b 20 78 2b 2b 29 20 7b  | x<width; x++) {|
000033a0  0a 0a 0a 20 20 20 20 20  20 20 20 20 20 20 20 78  |...            x|
000033b0  65 72 72 6f 72 2b 3d 70  65 72 63 65 6e 74 3b 0a  |error+=percent;.|
000033c0  0a 0a 20 20 20 20 20 20  20 20 20 20 20 20 77 68  |..            wh|
000033d0  69 6c 65 20 28 78 65 72  72 6f 72 3e 31 30 30 29  |ile (xerror>100)|
000033e0  20 7b 0a 0a 0a 0a 20 20  20 20 20 20 20 20 20 20  | {....          |
000033f0  20 20 20 20 78 65 72 72  6f 72 2d 3d 31 30 30 3b  |    xerror-=100;|
00003400  0a 0a 0a 0a 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00003410  20 20 73 63 72 65 65 6e  5b 73 63 72 70 74 72 5d  |  screen[scrptr]|
00003420  3d 62 69 74 6d 61 70 5b  62 69 74 70 74 72 5d 3b  |=bitmap[bitptr];|
00003430  0a 0a 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00003440  20 73 63 72 70 74 72 2b  2b 3b 0a 20 20 20 20 20  | scrptr++;.     |
00003450  20 20 20 20 20 20 20 7d  0a 0a 0a 20 20 20 20 20  |       }...     |
00003460  20 20 20 20 20 20 20 62  69 74 70 74 72 2b 2b 3b  |       bitptr++;|
00003470  0a 20 20 20 20 20 20 20  20 20 20 7d 0a 0a 0a 0a  |.          }....|
00003480  20 20 20 20 20 20 20 20  20 20 73 63 72 70 74 72  |          scrptr|
00003490  3d 6f 6c 64 5f 73 63 72  70 74 72 2b 33 32 30 3b  |=old_scrptr+320;|
000034a0  0a 0a 0a 0a 20 20 20 20  20 20 20 20 20 20 62 69  |....          bi|
000034b0  74 70 74 72 3d 6f 6c 64  5f 62 69 74 70 74 72 3b  |tptr=old_bitptr;|
000034c0  0a 20 20 20 20 20 20 20  20 7d 0a 0a 0a 0a 20 20  |.        }....  |
000034d0  20 20 20 20 20 20 62 69  74 70 74 72 2b 3d 77 69  |      bitptr+=wi|
000034e0  64 74 68 3b 0a 20 20 20  20 20 20 7d 0a 0a 0a 0a  |dth;.      }....|
000034f0  20 20 20 20 7d 0a 0a                              |    }..|
000034f7