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 6f 72 0a 20 20  20 68 6f 6c 64 20 6e 6f  |uthor.   hold no|
000000d0  20 72 65 73 70 6f 6e 73  69 62 69 6c 69 74 79 20  | responsibility |
000000e0  66 6f 72 20 64 61 6d 61  67 65 73 2e 0a 0a 20 20  |for damages...  |
000000f0  20 54 68 69 73 20 68 61  73 20 62 65 65 6e 20 77  | This has been w|
00000100  72 69 74 74 65 6e 20 77  69 74 68 20 45 61 73 79  |ritten with Easy|
00000110  43 2f 43 2b 2b 2c 20 68  65 6e 63 65 0a 20 20 20  |C/C++, hence.   |
00000120  74 68 65 20 23 70 72 61  67 6d 61 20 63 6f 6d 6d  |the #pragma comm|
00000130  61 6e 64 73 2e 20 41 20  6c 69 74 74 6c 65 20 63  |ands. A little c|
00000140  75 74 74 69 6e 67 2f 70  61 73 74 69 6e 67 0a 20  |utting/pasting. |
00000150  20 20 73 68 6f 75 6c 64  20 62 65 20 61 64 65 71  |  should be adeq|
00000160  75 61 74 65 20 66 6f 72  20 6f 74 68 65 72 20 63  |uate for other c|
00000170  6f 6d 70 69 6c 65 72 73  2e 20 4f 74 68 65 72 77  |ompilers. Otherw|
00000180  69 73 65 0a 20 20 20 6a  75 73 74 20 72 75 6e 20  |ise.   just run |
00000190  74 68 65 20 65 78 65 63  75 74 61 62 6c 65 21 0a  |the executable!.|
000001a0  2a 2f 0a 0a 23 69 6e 63  6c 75 64 65 20 3c 73 74  |*/..#include <st|
000001b0  64 69 6f 2e 68 3e 0a 2f  2a 20 41 73 73 65 6d 62  |dio.h>./* Assemb|
000001c0  6c 65 72 20 46 75 6e 63  74 69 6f 6e 73 20 28 53  |ler Functions (S|
000001d0  57 49 73 2c 20 65 74 63  29 20 2a 2f 0a 23 70 72  |WIs, etc) */.#pr|
000001e0  61 67 6d 61 20 61 73 6d  0a 45 58 50 4f 52 54 20  |agma asm.EXPORT |
000001f0  6f 75 72 6c 69 62 5f 67  65 74 74 69 6d 65 0a 2e  |ourlib_gettime..|
00000200  6f 75 72 6c 69 62 5f 67  65 74 74 69 6d 65 0a 0a  |ourlib_gettime..|
00000210  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00000220  34 2c 52 31 34 7d 0a 53  57 49 20 4f 53 5f 52 65  |4,R14}.SWI OS_Re|
00000230  61 64 4d 6f 6e 6f 74 6f  6e 69 63 54 69 6d 65 0a  |adMonotonicTime.|
00000240  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |LDMFD R13!,{R1-R|
00000250  34 2c 52 31 35 7d 0a 0a  0a 0a 45 58 50 4f 52 54  |4,R15}....EXPORT|
00000260  20 6f 75 72 6c 69 62 5f  6b 65 79 64 6f 77 6e 0a  | ourlib_keydown.|
00000270  2e 6f 75 72 6c 69 62 5f  6b 65 79 64 6f 77 6e 0a  |.ourlib_keydown.|
00000280  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00000290  32 2c 52 31 34 7d 0a 0a  45 4f 52 20 52 31 2c 52  |2,R14}..EOR R1,R|
000002a0  30 2c 23 31 32 38 0a 4d  4f 56 20 52 30 2c 23 31  |0,#128.MOV R0,#1|
000002b0  32 31 0a 53 57 49 20 4f  53 5f 42 79 74 65 0a 4d  |21.SWI OS_Byte.M|
000002c0  4f 56 20 52 30 2c 52 31  0a 4c 44 4d 46 44 20 52  |OV R0,R1.LDMFD R|
000002d0  31 33 21 2c 7b 52 31 2d  52 32 2c 50 43 7d 0a 0a  |13!,{R1-R2,PC}..|
000002e0  0a 0a 45 58 50 4f 52 54  20 6f 75 72 6c 69 62 5f  |..EXPORT ourlib_|
000002f0  62 61 72 5f 70 6c 6f 74  0a 2e 6f 75 72 6c 69 62  |bar_plot..ourlib|
00000300  5f 62 61 72 5f 70 6c 6f  74 0a 53 54 4d 46 44 20  |_bar_plot.STMFD |
00000310  52 31 33 21 2c 7b 52 31  2d 52 34 2c 52 31 34 7d  |R13!,{R1-R4,R14}|
00000320  0a 3b 20 52 30 20 3d 20  73 63 72 65 65 6e 20 52  |.; R0 = screen R|
00000330  31 20 3d 20 62 61 72 20  52 32 20 3d 20 73 74 61  |1 = bar R2 = sta|
00000340  72 74 6f 66 66 73 65 74  0a 4d 4f 56 20 52 33 2c  |rtoffset.MOV R3,|
00000350  23 32 35 30 0a 0a 41 44  44 20 52 30 2c 52 30 2c  |#250..ADD R0,R0,|
00000360  52 32 0a 2e 62 61 72 5f  6c 6f 6f 70 0a 0a 4c 44  |R2..bar_loop..LD|
00000370  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
00000380  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
00000390  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
000003a0  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
000003b0  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
000003c0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
000003d0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
000003e0  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
000003f0  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
00000400  2c 23 34 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |,#4.LDR R2,[R1],|
00000410  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000420  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000430  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 0a  |.STR R2,[R0],#4.|
00000440  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000450  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 0a 4c 44  |TR R2,[R0],#4.LD|
00000460  52 20 52 32 2c 5b 52 31  5d 2c 23 34 0a 53 54 52  |R R2,[R1],#4.STR|
00000470  20 52 32 2c 5b 52 30 5d  2c 23 34 0a 4c 44 52 20  | R2,[R0],#4.LDR |
00000480  52 32 2c 5b 52 31 5d 2c  23 34 0a 53 54 52 20 52  |R2,[R1],#4.STR R|
00000490  32 2c 5b 52 30 5d 2c 23  34 0a 4c 44 52 20 52 32  |2,[R0],#4.LDR R2|
000004a0  2c 5b 52 31 5d 2c 23 34  0a 53 54 52 20 52 32 2c  |,[R1],#4.STR R2,|
000004b0  5b 52 30 5d 2c 23 34 0a  4c 44 52 20 52 32 2c 5b  |[R0],#4.LDR R2,[|
000004c0  52 31 5d 2c 23 34 0a 53  54 52 20 52 32 2c 5b 52  |R1],#4.STR R2,[R|
000004d0  30 5d 2c 23 34 0a 4c 44  52 20 52 32 2c 5b 52 31  |0],#4.LDR R2,[R1|
000004e0  5d 2c 23 34 0a 53 54 52  20 52 32 2c 5b 52 30 5d  |],#4.STR R2,[R0]|
000004f0  2c 23 34 0a 4c 44 52 20  52 32 2c 5b 52 31 5d 2c  |,#4.LDR R2,[R1],|
00000500  23 34 0a 53 54 52 20 52  32 2c 5b 52 30 5d 2c 23  |#4.STR R2,[R0],#|
00000510  34 0a 4c 44 52 20 52 32  2c 5b 52 31 5d 2c 23 34  |4.LDR R2,[R1],#4|
00000520  0a 53 54 52 20 52 32 2c  5b 52 30 5d 2c 23 34 0a  |.STR R2,[R0],#4.|
00000530  4c 44 52 20 52 32 2c 5b  52 31 5d 2c 23 34 0a 53  |LDR R2,[R1],#4.S|
00000540  54 52 20 52 32 2c 5b 52  30 5d 2c 23 34 53 55 42  |TR R2,[R0],#4SUB|
00000550  53 20 52 33 2c 52 33 2c  23 31 0a 42 4e 45 20 62  |S R3,R3,#1.BNE b|
00000560  61 72 5f 6c 6f 6f 70 0a  0a 4c 44 4d 46 44 20 52  |ar_loop..LDMFD R|
00000570  31 33 21 2c 7b 52 31 2d  52 34 2c 52 31 35 7d 5e  |13!,{R1-R4,R15}^|
00000580  0a 0a 45 58 50 4f 52 54  20 6f 75 72 6c 69 62 5f  |..EXPORT ourlib_|
00000590  67 75 6e 5f 70 6c 6f 74  0a 2e 6f 75 72 6c 69 62  |gun_plot..ourlib|
000005a0  5f 67 75 6e 5f 70 6c 6f  74 0a 0a 53 54 4d 46 44  |_gun_plot..STMFD|
000005b0  20 52 31 33 21 2c 7b 52  31 2d 52 31 32 2c 52 31  | R13!,{R1-R12,R1|
000005c0  34 7d 0a 0a 2f 2a 20 52  30 20 3d 20 76 69 64 65  |4}../* R0 = vide|
000005d0  6f 20 52 31 20 3d 67 72  61 70 68 69 63 20 52 32  |o R1 =graphic R2|
000005e0  20 3d 20 77 69 64 74 68  20 52 33 20 3d 68 65 69  | = width R3 =hei|
000005f0  67 68 74 20 2a 2f 0a 4d  4f 56 20 52 35 2c 52 30  |ght */.MOV R5,R0|
00000600  0a 0a 2e 79 67 5f 6c 6f  6f 70 0a 4d 4f 56 20 52  |...yg_loop.MOV R|
00000610  34 2c 52 32 0a 41 44 44  20 52 30 2c 52 30 2c 23  |4,R2.ADD R0,R0,#|
00000620  33 32 30 0a 4d 4f 56 20  52 35 2c 52 30 0a 2e 78  |320.MOV R5,R0..x|
00000630  67 5f 6c 6f 6f 70 0a 4c  44 52 42 20 52 36 2c 5b  |g_loop.LDRB R6,[|
00000640  52 31 5d 2c 23 31 0a 43  4d 50 20 52 36 2c 23 31  |R1],#1.CMP R6,#1|
00000650  35 31 0a 42 45 51 20 63  6f 6e 74 0a 53 54 52 42  |51.BEQ cont.STRB|
00000660  20 52 36 2c 5b 52 35 5d  0a 2e 63 6f 6e 74 0a 41  | R6,[R5]..cont.A|
00000670  44 44 20 52 35 2c 52 35  2c 23 31 0a 0a 0a 53 55  |DD R5,R5,#1...SU|
00000680  42 53 20 52 34 2c 52 34  2c 23 31 0a 42 4e 45 20  |BS R4,R4,#1.BNE |
00000690  78 67 5f 6c 6f 6f 70 0a  53 55 42 53 20 52 33 2c  |xg_loop.SUBS R3,|
000006a0  52 33 2c 23 31 0a 42 4e  45 20 79 67 5f 6c 6f 6f  |R3,#1.BNE yg_loo|
000006b0  70 0a 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |p..LDMFD R13!,{R|
000006c0  31 2d 52 31 32 2c 52 31  35 7d 0a 0a 0a 45 58 50  |1-R12,R15}...EXP|
000006d0  4f 52 54 20 6f 75 72 6c  69 62 5f 63 68 61 6e 67  |ORT ourlib_chang|
000006e0  65 6d 6f 64 65 0a 2e 6f  75 72 6c 69 62 5f 63 68  |emode..ourlib_ch|
000006f0  61 6e 67 65 6d 6f 64 65  0a 53 54 4d 46 44 20 52  |angemode.STMFD R|
00000700  31 33 21 2c 7b 52 31 2d  52 34 2c 52 31 34 7d 0a  |13!,{R1-R4,R14}.|
00000710  4d 4f 56 20 52 31 2c 52  30 0a 4d 4f 56 20 52 30  |MOV R1,R0.MOV R0|
00000720  2c 23 32 32 0a 53 57 49  20 4f 53 5f 57 72 69 74  |,#22.SWI OS_Writ|
00000730  65 43 0a 4d 4f 56 20 52  30 2c 52 31 0a 53 57 49  |eC.MOV R0,R1.SWI|
00000740  20 4f 53 5f 57 72 69 74  65 43 0a 0a 4c 44 4d 46  | OS_WriteC..LDMF|
00000750  44 20 52 31 33 21 2c 7b  52 31 2d 52 34 2c 52 31  |D R13!,{R1-R4,R1|
00000760  35 7d 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |5}..EXPORT ourli|
00000770  62 5f 77 61 69 74 0a 2e  6f 75 72 6c 69 62 5f 77  |b_wait..ourlib_w|
00000780  61 69 74 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |ait.STMFD R13!,{|
00000790  52 31 2d 52 35 2c 52 31  34 7d 0a 4d 4f 56 20 52  |R1-R5,R14}.MOV R|
000007a0  33 2c 52 30 20 2f 2a 20  43 6f 70 79 20 76 61 72  |3,R0 /* Copy var|
000007b0  69 61 62 6c 65 20 69 6e  74 6f 20 73 61 66 65 20  |iable into safe |
000007c0  70 6c 61 63 65 20 2a 2f  0a 53 57 49 20 4f 53 5f  |place */.SWI OS_|
000007d0  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
000007e0  65 0a 41 44 44 20 52 32  2c 52 30 2c 52 33 0a 2e  |e.ADD R2,R0,R3..|
000007f0  74 69 6d 65 5f 6c 6f 6f  70 0a 53 57 49 20 4f 53  |time_loop.SWI OS|
00000800  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00000810  6d 65 0a 43 4d 50 20 52  30 2c 52 32 0a 42 4c 45  |me.CMP R0,R2.BLE|
00000820  20 74 69 6d 65 5f 6c 6f  6f 70 0a 4c 44 4d 46 44  | time_loop.LDMFD|
00000830  20 52 31 33 21 2c 7b 52  31 2d 52 35 2c 52 31 35  | R13!,{R1-R5,R15|
00000840  7d 5e 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |}^..EXPORT ourli|
00000850  62 5f 63 6c 6f 73 65 64  6f 77 6e 5f 73 63 72 65  |b_closedown_scre|
00000860  65 6e 73 0a 2e 6f 75 72  6c 69 62 5f 63 6c 6f 73  |ens..ourlib_clos|
00000870  65 64 6f 77 6e 5f 73 63  72 65 65 6e 73 0a 53 54  |edown_screens.ST|
00000880  4d 46 44 20 52 31 33 21  2c 7b 52 31 2d 52 34 2c  |MFD R13!,{R1-R4,|
00000890  52 31 34 7d 0a 4d 4f 56  20 52 30 2c 23 31 31 34  |R14}.MOV R0,#114|
000008a0  0a 4d 4f 56 20 52 31 2c  23 31 0a 53 57 49 20 22  |.MOV R1,#1.SWI "|
000008b0  4f 53 5f 42 79 74 65 22  0a 4c 44 4d 46 44 20 52  |OS_Byte".LDMFD R|
000008c0  31 33 21 2c 7b 52 31 2d  52 34 2c 52 31 35 7d 5e  |13!,{R1-R4,R15}^|
000008d0  0a 0a 0a 0a 0a 0a 0a 2e  73 69 6d 70 6c 65 6e 75  |........simplenu|
000008e0  6d 62 65 72 0a 45 51 55  44 20 30 0a 0a 45 58 50  |mber.EQUD 0..EXP|
000008f0  4f 52 54 20 6f 75 72 6c  69 62 5f 73 69 6d 70 6c  |ORT ourlib_simpl|
00000900  65 73 77 69 74 63 68 0a  2e 6f 75 72 6c 69 62 5f  |eswitch..ourlib_|
00000910  73 69 6d 70 6c 65 73 77  69 74 63 68 0a 53 54 4d  |simpleswitch.STM|
00000920  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 35 2c 52  |FD R13!,{R1-R5,R|
00000930  31 34 7d 0a 4c 44 52 20  52 31 2c 73 69 6d 70 6c  |14}.LDR R1,simpl|
00000940  65 6e 75 6d 62 65 72 0a  4d 4f 56 20 52 30 2c 23  |enumber.MOV R0,#|
00000950  31 31 33 0a 4d 4f 56 20  52 34 2c 52 31 0a 53 57  |113.MOV R4,R1.SW|
00000960  49 20 22 4f 53 5f 42 79  74 65 22 0a 4d 56 4e 20  |I "OS_Byte".MVN |
00000970  52 31 2c 52 34 0a 53 54  52 20 52 31 2c 73 69 6d  |R1,R4.STR R1,sim|
00000980  70 6c 65 6e 75 6d 62 65  72 0a 4d 4f 56 20 52 30  |plenumber.MOV R0|
00000990  2c 23 31 31 32 0a 53 57  49 20 22 4f 53 5f 42 79  |,#112.SWI "OS_By|
000009a0  74 65 22 0a 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |te".LDMFD R13!,{|
000009b0  52 31 2d 52 35 2c 52 31  35 7d 5e 0a 0a 0a 0a 0a  |R1-R5,R15}^.....|
000009c0  45 58 50 4f 52 54 20 6f  75 72 6c 69 62 5f 73 65  |EXPORT ourlib_se|
000009d0  74 75 70 5f 73 63 72 65  65 6e 73 0a 2e 6f 75 72  |tup_screens..our|
000009e0  6c 69 62 5f 73 65 74 75  70 5f 73 63 72 65 65 6e  |lib_setup_screen|
000009f0  73 0a 0a 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |s..STMFD R13!,{R|
00000a00  31 2d 52 34 2c 52 31 34  7d 0a 4d 4f 56 20 52 30  |1-R4,R14}.MOV R0|
00000a10  2c 23 31 31 34 0a 4d 4f  56 20 52 31 2c 23 30 0a  |,#114.MOV R1,#0.|
00000a20  53 57 49 20 22 4f 53 5f  42 79 74 65 22 0a 0a 4c  |SWI "OS_Byte"..L|
00000a30  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 34  |DMFD R13!,{R1-R4|
00000a40  2c 52 31 35 7d 5e 0a 0a  45 58 50 4f 52 54 20 6f  |,R15}^..EXPORT o|
00000a50  75 72 6c 69 62 5f 6b 69  6c 6c 63 75 72 73 6f 72  |urlib_killcursor|
00000a60  0a 2e 6f 75 72 6c 69 62  5f 6b 69 6c 6c 63 75 72  |..ourlib_killcur|
00000a70  73 6f 72 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |sor.STMFD R13!,{|
00000a80  52 31 2d 52 34 2c 52 31  34 7d 0a 53 57 49 20 22  |R1-R4,R14}.SWI "|
00000a90  4f 53 5f 52 65 6d 6f 76  65 43 75 72 73 6f 72 73  |OS_RemoveCursors|
00000aa0  22 0a 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 31  |".LDMFD R13!,{R1|
00000ab0  2d 52 34 2c 52 31 35 7d  5e 0a 0a 45 58 50 4f 52  |-R4,R15}^..EXPOR|
00000ac0  54 20 6f 75 72 6c 69 62  5f 72 65 76 69 76 65 63  |T ourlib_revivec|
00000ad0  75 72 73 6f 72 0a 2e 6f  75 72 6c 69 62 5f 72 65  |ursor..ourlib_re|
00000ae0  76 69 76 65 63 75 72 73  6f 72 0a 53 54 4d 46 44  |vivecursor.STMFD|
00000af0  20 52 31 33 21 2c 7b 52  31 2d 52 34 2c 52 31 34  | R13!,{R1-R4,R14|
00000b00  7d 0a 53 57 49 20 22 4f  53 5f 52 65 73 74 6f 72  |}.SWI "OS_Restor|
00000b10  65 43 75 72 73 6f 72 73  22 0a 4c 44 4d 46 44 20  |eCursors".LDMFD |
00000b20  52 31 33 21 2c 7b 52 31  2d 52 34 2c 52 31 35 7d  |R13!,{R1-R4,R15}|
00000b30  5e 0a 0a 0a 0a 45 58 50  4f 52 54 20 6f 75 72 6c  |^....EXPORT ourl|
00000b40  69 62 5f 73 6c 69 76 65  72 5f 74 77 6f 0a 2e 6f  |ib_sliver_two..o|
00000b50  75 72 6c 69 62 5f 73 6c  69 76 65 72 5f 74 77 6f  |urlib_sliver_two|
00000b60  0a 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.STMFD R13!,{R1-|
00000b70  52 31 32 2c 52 31 34 7d  0a 4c 44 4d 49 41 20 52  |R12,R14}.LDMIA R|
00000b80  30 2c 7b 52 30 2d 52 36  7d 0a 0a 43 4d 50 20 52  |0,{R0-R6}..CMP R|
00000b90  33 2c 23 32 35 35 0a 4d  4f 56 47 45 20 52 33 2c  |3,#255.MOVGE R3,|
00000ba0  23 32 35 35 0a 41 44 44  20 52 31 2c 52 31 2c 52  |#255.ADD R1,R1,R|
00000bb0  36 2c 4c 53 4c 20 23 32  0a 41 44 44 20 52 31 2c  |6,LSL #2.ADD R1,|
00000bc0  52 31 2c 52 32 0a 4d 4f  56 20 52 38 2c 23 31 32  |R1,R2.MOV R8,#12|
00000bd0  38 0a 53 55 42 20 52 38  2c 52 38 2c 52 33 2c 4c  |8.SUB R8,R8,R3,L|
00000be0  53 52 20 23 31 0a 41 44  44 20 52 34 2c 52 34 2c  |SR #1.ADD R4,R4,|
00000bf0  52 38 2c 4c 53 4c 20 23  38 0a 41 44 44 20 52 34  |R8,LSL #8.ADD R4|
00000c00  2c 52 34 2c 52 38 2c 4c  53 4c 20 23 36 0a 41 44  |,R4,R8,LSL #6.AD|
00000c10  44 20 52 30 2c 52 30 2c  52 34 0a 4d 4f 56 20 52  |D R0,R0,R4.MOV R|
00000c20  31 30 2c 23 30 0a 4d 4f  56 20 52 38 2c 52 33 0a  |10,#0.MOV R8,R3.|
00000c30  4d 4f 56 20 52 33 2c 52  31 0a 2e 6c 6f 6f 6f 70  |MOV R3,R1..looop|
00000c40  0a 4c 44 52 42 20 52 39  2c 5b 52 31 2c 52 31 30  |.LDRB R9,[R1,R10|
00000c50  2c 4c 53 4c 20 23 36 5d  20 20 20 20 20 20 20 3b  |,LSL #6]       ;|
00000c60  20 69 66 20 73 6f 20 6c  6f 61 64 20 69 6e 20 70  | if so load in p|
00000c70  69 78 65 6c 20 76 61 6c  75 65 0a 53 54 52 42 20  |ixel value.STRB |
00000c80  52 39 2c 5b 52 30 5d 2c  23 33 32 30 0a 41 44 44  |R9,[R0],#320.ADD|
00000c90  20 52 31 30 2c 52 31 30  2c 52 35 0a 4d 4f 56 20  | R10,R10,R5.MOV |
00000ca0  52 31 30 2c 52 31 30 2c  4c 53 52 20 23 38 0a 53  |R10,R10,LSR #8.S|
00000cb0  55 42 53 20 52 38 2c 52  38 2c 23 31 0a 42 4e 45  |UBS R8,R8,#1.BNE|
00000cc0  20 6c 6f 6f 6f 70 0a 0a  20 4c 44 4d 46 44 20 52  | looop.. LDMFD R|
00000cd0  31 33 21 2c 7b 52 30 2d  52 31 32 2c 52 31 35 7d  |13!,{R0-R12,R15}|
00000ce0  5e 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |^..EXPORT ourlib|
00000cf0  5f 73 6c 69 76 65 72 0a  2e 6f 75 72 6c 69 62 5f  |_sliver..ourlib_|
00000d00  73 6c 69 76 65 72 0a 53  54 4d 46 44 20 52 31 33  |sliver.STMFD R13|
00000d10  21 2c 7b 52 31 2d 52 31  32 2c 52 31 34 7d 0a 4c  |!,{R1-R12,R14}.L|
00000d20  44 4d 49 41 20 52 30 2c  7b 52 30 2d 52 36 7d 0a  |DMIA R0,{R0-R6}.|
00000d30  4d 4f 56 20 52 31 30 2c  23 32 35 36 0a 43 4d 50  |MOV R10,#256.CMP|
00000d40  20 52 33 2c 52 35 0a 4d  4f 56 47 45 20 52 33 2c  | R3,R5.MOVGE R3,|
00000d50  52 35 0a 0a 2e 6e 6f 63  6c 69 70 70 69 6e 67 0a  |R5...noclipping.|
00000d60  41 44 44 20 52 31 2c 52  31 2c 52 36 2c 4c 53 4c  |ADD R1,R1,R6,LSL|
00000d70  20 23 31 32 20 3b 20 63  61 6c 63 75 6c 61 74 65  | #12 ; calculate|
00000d80  20 6f 66 66 73 65 74 20  69 6e 20 77 61 6c 6c 73  | offset in walls|
00000d90  5b 5d 5b 5d 20 61 72 72  61 79 0a 41 44 44 20 52  |[][] array.ADD R|
00000da0  31 2c 52 31 2c 52 32 20  20 20 20 20 20 20 20 20  |1,R1,R2         |
00000db0  3b 20 61 64 64 20 74 68  65 20 63 6f 6c 75 6d 6e  |; add the column|
00000dc0  20 74 6f 20 74 68 69 73  0a 0a 0a 4d 4f 56 20 52  | to this...MOV R|
00000dd0  38 2c 23 31 30 30 0a 53  55 42 20 52 38 2c 52 38  |8,#100.SUB R8,R8|
00000de0  2c 52 33 2c 4c 53 52 20  23 31 20 3b 20 73 65 74  |,R3,LSR #1 ; set|
00000df0  20 73 74 61 72 74 20 79  20 70 6f 73 0a 41 44 44  | start y pos.ADD|
00000e00  20 52 34 2c 52 34 2c 52  38 2c 4c 53 4c 20 23 38  | R4,R4,R8,LSL #8|
00000e10  20 3b 20 77 6f 72 6b 20  6f 75 74 20 75 73 75 61  | ; work out usua|
00000e20  6c 20 73 63 72 65 65 6e  20 28 33 32 30 78 32 35  |l screen (320x25|
00000e30  36 29 0a 41 44 44 20 52  34 2c 52 34 2c 52 38 2c  |6).ADD R4,R4,R8,|
00000e40  4c 53 4c 20 23 36 20 3b  20 6f 66 66 73 65 74 20  |LSL #6 ; offset |
00000e50  74 6f 20 62 65 67 69 6e  20 6c 6f 6f 70 0a 41 44  |to begin loop.AD|
00000e60  44 20 52 30 2c 52 30 2c  52 34 0a 0a 4d 4f 56 20  |D R0,R0,R4..MOV |
00000e70  52 38 2c 23 36 34 20 20  20 20 20 20 20 20 3b 20  |R8,#64        ; |
00000e80  73 74 61 72 74 20 6c 6f  6f 70 20 63 6f 75 6e 74  |start loop count|
00000e90  65 72 0a 4d 4f 56 20 52  37 2c 52 38 0a 0a 43 4d  |er.MOV R7,R8..CM|
00000ea0  50 20 52 33 2c 23 36 34  0a 42 4c 4c 45 20 6c 6f  |P R3,#64.BLLE lo|
00000eb0  6f 70 79 36 34 6c 6f 6f  0a 43 4d 50 20 52 33 2c  |opy64loo.CMP R3,|
00000ec0  23 31 32 37 0a 42 4c 4c  45 20 6c 6f 6f 70 79 31  |#127.BLLE loopy1|
00000ed0  32 37 6c 6f 6f 0a 43 4d  50 20 52 33 2c 23 31 39  |27loo.CMP R3,#19|
00000ee0  31 0a 42 4c 4c 45 20 6c  6f 6f 70 79 31 39 31 6c  |1.BLLE loopy191l|
00000ef0  6f 6f 0a 42 4c 20 6c 6f  6f 70 79 31 39 32 6c 6f  |oo.BL loopy192lo|
00000f00  6f 0a 2e 6c 6f 6f 70 79  36 34 6c 6f 6f 0a 2e 64  |o..loopy64loo..d|
00000f10  6f 64 64 6c 65 36 34 0a  43 4d 50 20 52 37 2c 23  |oddle64.CMP R7,#|
00000f20  36 34 0a 42 4c 4c 54 20  64 6f 6e 65 36 34 6c 6f  |64.BLLT done64lo|
00000f30  6f 0a 4c 44 52 42 20 52  39 2c 5b 52 31 5d 20 20  |o.LDRB R9,[R1]  |
00000f40  20 20 20 20 20 3b 20 69  66 20 73 6f 20 6c 6f 61  |     ; if so loa|
00000f50  64 20 69 6e 20 70 69 78  65 6c 20 76 61 6c 75 65  |d in pixel value|
00000f60  0a 53 54 52 42 20 52 39  2c 5b 52 30 5d 2c 23 33  |.STRB R9,[R0],#3|
00000f70  32 30 0a 53 55 42 20 52  37 2c 52 37 2c 23 36 34  |20.SUB R7,R7,#64|
00000f80  0a 2e 64 6f 6e 65 36 34  6c 6f 6f 0a 41 44 44 20  |..done64loo.ADD |
00000f90  52 31 2c 52 31 2c 23 36  34 0a 41 44 44 20 52 37  |R1,R1,#64.ADD R7|
00000fa0  2c 52 37 2c 52 33 20 20  20 20 20 20 20 20 20 3b  |,R7,R3         ;|
00000fb0  20 61 64 64 20 73 63 61  6c 65 20 6f 6e 74 6f 20  | add scale onto |
00000fc0  76 65 72 74 2e 20 65 72  72 6f 72 20 74 65 72 6d  |vert. error term|
00000fd0  0a 53 55 42 53 20 52 38  2c 52 38 2c 23 31 0a 42  |.SUBS R8,R8,#1.B|
00000fe0  4c 4e 45 20 6c 6f 6f 70  79 36 34 6c 6f 6f 20 20  |LNE loopy64loo  |
00000ff0  20 20 20 20 20 20 20 3b  20 6c 6f 6f 70 20 69 66  |       ; loop if|
00001000  20 73 6f 0a 0a 4c 44 4d  46 44 20 52 31 33 21 2c  | so..LDMFD R13!,|
00001010  7b 52 31 2d 52 31 32 2c  52 31 35 7d 5e 0a 2f 2a  |{R1-R12,R15}^./*|
00001020  4d 4f 56 53 20 50 43 2c  52 31 34 2a 2f 0a 0a 0a  |MOVS PC,R14*/...|
00001030  2e 6c 6f 6f 70 79 31 32  37 6c 6f 6f 0a 2e 64 6f  |.loopy127loo..do|
00001040  64 64 6c 65 31 32 37 0a  43 4d 50 20 52 37 2c 23  |ddle127.CMP R7,#|
00001050  36 34 0a 4c 44 52 42 20  52 39 2c 5b 52 31 5d 20  |64.LDRB R9,[R1] |
00001060  20 20 20 20 20 20 3b 20  69 66 20 73 6f 20 6c 6f  |      ; if so lo|
00001070  61 64 20 69 6e 20 70 69  78 65 6c 20 76 61 6c 75  |ad in pixel valu|
00001080  65 0a 53 54 52 42 20 52  39 2c 5b 52 30 5d 2c 23  |e.STRB R9,[R0],#|
00001090  33 32 30 0a 53 55 42 20  52 37 2c 52 37 2c 23 36  |320.SUB R7,R7,#6|
000010a0  34 0a 43 4d 50 20 52 37  2c 23 36 34 0a 42 4c 4c  |4.CMP R7,#64.BLL|
000010b0  54 20 64 6f 6e 65 31 32  37 6c 6f 6f 0a 4c 44 52  |T done127loo.LDR|
000010c0  42 20 52 39 2c 5b 52 31  5d 20 20 20 20 20 20 20  |B R9,[R1]       |
000010d0  3b 20 69 66 20 73 6f 20  6c 6f 61 64 20 69 6e 20  |; if so load in |
000010e0  70 69 78 65 6c 20 76 61  6c 75 65 0a 53 54 52 42  |pixel value.STRB|
000010f0  20 52 39 2c 5b 52 30 5d  2c 23 33 32 30 0a 53 55  | R9,[R0],#320.SU|
00001100  42 20 52 37 2c 52 37 2c  23 36 34 0a 2e 64 6f 6e  |B R7,R7,#64..don|
00001110  65 31 32 37 6c 6f 6f 0a  41 44 44 20 52 31 2c 52  |e127loo.ADD R1,R|
00001120  31 2c 23 36 34 0a 41 44  44 20 52 37 2c 52 37 2c  |1,#64.ADD R7,R7,|
00001130  52 33 20 20 20 20 20 20  20 20 20 3b 20 61 64 64  |R3         ; add|
00001140  20 73 63 61 6c 65 20 6f  6e 74 6f 20 76 65 72 74  | scale onto vert|
00001150  2e 20 65 72 72 6f 72 20  74 65 72 6d 0a 53 55 42  |. error term.SUB|
00001160  53 20 52 38 2c 52 38 2c  23 31 0a 42 4c 4e 45 20  |S R8,R8,#1.BLNE |
00001170  6c 6f 6f 70 79 31 32 37  6c 6f 6f 20 20 20 20 20  |loopy127loo     |
00001180  20 20 20 20 3b 20 6c 6f  6f 70 20 69 66 20 73 6f  |    ; loop if so|
00001190  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
000011a0  52 31 32 2c 52 31 35 7d  5e 0a 0a 2f 2a 4d 4f 56  |R12,R15}^../*MOV|
000011b0  53 20 50 43 2c 52 31 34  2a 2f 0a 0a 0a 2e 6c 6f  |S PC,R14*/....lo|
000011c0  6f 70 79 31 39 31 6c 6f  6f 0a 2e 64 6f 64 64 6c  |opy191loo..doddl|
000011d0  65 31 39 31 0a 43 4d 50  20 52 37 2c 23 36 34 0a  |e191.CMP R7,#64.|
000011e0  4c 44 52 42 20 52 39 2c  5b 52 31 5d 20 20 20 20  |LDRB R9,[R1]    |
000011f0  20 20 20 3b 20 69 66 20  73 6f 20 6c 6f 61 64 20  |   ; if so load |
00001200  69 6e 20 70 69 78 65 6c  20 76 61 6c 75 65 0a 53  |in pixel value.S|
00001210  54 52 42 20 52 39 2c 5b  52 30 5d 2c 23 33 32 30  |TRB R9,[R0],#320|
00001220  0a 53 55 42 20 52 37 2c  52 37 2c 23 36 34 0a 43  |.SUB R7,R7,#64.C|
00001230  4d 50 20 52 37 2c 23 36  34 0a 4c 44 52 42 20 52  |MP R7,#64.LDRB R|
00001240  39 2c 5b 52 31 5d 20 20  20 20 20 20 20 3b 20 69  |9,[R1]       ; i|
00001250  66 20 73 6f 20 6c 6f 61  64 20 69 6e 20 70 69 78  |f so load in pix|
00001260  65 6c 20 76 61 6c 75 65  0a 53 54 52 42 20 52 39  |el value.STRB R9|
00001270  2c 5b 52 30 5d 2c 23 33  32 30 0a 53 55 42 20 52  |,[R0],#320.SUB R|
00001280  37 2c 52 37 2c 23 36 34  0a 43 4d 50 20 52 37 2c  |7,R7,#64.CMP R7,|
00001290  23 36 34 0a 42 4c 54 20  64 6f 6e 65 31 39 31 6c  |#64.BLT done191l|
000012a0  6f 6f 0a 4c 44 52 42 20  52 39 2c 5b 52 31 5d 20  |oo.LDRB R9,[R1] |
000012b0  20 20 20 20 20 20 3b 20  69 66 20 73 6f 20 6c 6f  |      ; if so lo|
000012c0  61 64 20 69 6e 20 70 69  78 65 6c 20 76 61 6c 75  |ad in pixel valu|
000012d0  65 0a 53 54 52 42 20 52  39 2c 5b 52 30 5d 2c 23  |e.STRB R9,[R0],#|
000012e0  33 32 30 0a 53 55 42 20  52 37 2c 52 37 2c 23 36  |320.SUB R7,R7,#6|
000012f0  34 0a 2e 64 6f 6e 65 31  39 31 6c 6f 6f 0a 41 44  |4..done191loo.AD|
00001300  44 20 52 31 2c 52 31 2c  23 36 34 0a 41 44 44 20  |D R1,R1,#64.ADD |
00001310  52 37 2c 52 37 2c 52 33  20 20 20 20 20 20 20 20  |R7,R7,R3        |
00001320  20 3b 20 61 64 64 20 73  63 61 6c 65 20 6f 6e 74  | ; add scale ont|
00001330  6f 20 76 65 72 74 2e 20  65 72 72 6f 72 20 74 65  |o vert. error te|
00001340  72 6d 0a 53 55 42 53 20  52 38 2c 52 38 2c 23 31  |rm.SUBS R8,R8,#1|
00001350  0a 42 4c 4e 45 20 6c 6f  6f 70 79 31 39 31 6c 6f  |.BLNE loopy191lo|
00001360  6f 20 20 20 20 20 20 20  20 20 3b 20 6c 6f 6f 70  |o         ; loop|
00001370  20 69 66 20 73 6f 0a 4c  44 4d 46 44 20 52 31 33  | if so.LDMFD R13|
00001380  21 2c 7b 52 31 2d 52 31  32 2c 52 31 35 7d 5e 0a  |!,{R1-R12,R15}^.|
00001390  2f 2a 4d 4f 56 53 20 50  43 2c 52 31 34 2a 2f 0a  |/*MOVS PC,R14*/.|
000013a0  0a 0a 2e 6c 6f 6f 70 79  31 39 32 6c 6f 6f 0a 2e  |...loopy192loo..|
000013b0  64 6f 64 64 6c 65 31 39  32 0a 43 4d 50 20 52 37  |doddle192.CMP R7|
000013c0  2c 23 36 34 0a 4c 44 52  42 20 52 39 2c 5b 52 31  |,#64.LDRB R9,[R1|
000013d0  5d 20 20 20 20 20 20 20  3b 20 69 66 20 73 6f 20  |]       ; if so |
000013e0  6c 6f 61 64 20 69 6e 20  70 69 78 65 6c 20 76 61  |load in pixel va|
000013f0  6c 75 65 0a 53 54 52 42  20 52 39 2c 5b 52 30 5d  |lue.STRB R9,[R0]|
00001400  2c 23 33 32 30 0a 53 55  42 20 52 37 2c 52 37 2c  |,#320.SUB R7,R7,|
00001410  23 36 34 0a 43 4d 50 20  52 37 2c 23 36 34 0a 4c  |#64.CMP R7,#64.L|
00001420  44 52 42 20 52 39 2c 5b  52 31 5d 20 20 20 20 20  |DRB R9,[R1]     |
00001430  20 20 3b 20 69 66 20 73  6f 20 6c 6f 61 64 20 69  |  ; if so load i|
00001440  6e 20 70 69 78 65 6c 20  76 61 6c 75 65 0a 53 54  |n pixel value.ST|
00001450  52 42 20 52 39 2c 5b 52  30 5d 2c 23 33 32 30 0a  |RB R9,[R0],#320.|
00001460  53 55 42 20 52 37 2c 52  37 2c 23 36 34 0a 43 4d  |SUB R7,R7,#64.CM|
00001470  50 20 52 37 2c 23 36 34  0a 4c 44 52 42 20 52 39  |P R7,#64.LDRB R9|
00001480  2c 5b 52 31 5d 20 20 20  20 20 20 20 3b 20 69 66  |,[R1]       ; if|
00001490  20 73 6f 20 6c 6f 61 64  20 69 6e 20 70 69 78 65  | so load in pixe|
000014a0  6c 20 76 61 6c 75 65 0a  53 54 52 42 20 52 39 2c  |l value.STRB R9,|
000014b0  5b 52 30 5d 2c 23 33 32  30 0a 53 55 42 20 52 37  |[R0],#320.SUB R7|
000014c0  2c 52 37 2c 23 36 34 0a  43 4d 50 20 52 37 2c 23  |,R7,#64.CMP R7,#|
000014d0  36 34 0a 42 4c 4c 54 20  64 6f 6e 65 31 39 32 6c  |64.BLLT done192l|
000014e0  6f 6f 0a 4c 44 52 42 20  52 39 2c 5b 52 31 5d 20  |oo.LDRB R9,[R1] |
000014f0  20 20 20 20 20 20 3b 20  69 66 20 73 6f 20 6c 6f  |      ; if so lo|
00001500  61 64 20 69 6e 20 70 69  78 65 6c 20 76 61 6c 75  |ad in pixel valu|
00001510  65 0a 53 54 52 42 20 52  39 2c 5b 52 30 5d 2c 23  |e.STRB R9,[R0],#|
00001520  33 32 30 0a 53 55 42 20  52 37 2c 52 37 2c 23 36  |320.SUB R7,R7,#6|
00001530  34 0a 2e 64 6f 6e 65 31  39 32 6c 6f 6f 0a 41 44  |4..done192loo.AD|
00001540  44 20 52 31 2c 52 31 2c  23 36 34 0a 41 44 44 20  |D R1,R1,#64.ADD |
00001550  52 37 2c 52 37 2c 52 33  20 20 20 20 20 20 20 20  |R7,R7,R3        |
00001560  20 3b 20 61 64 64 20 73  63 61 6c 65 20 6f 6e 74  | ; add scale ont|
00001570  6f 20 76 65 72 74 2e 20  65 72 72 6f 72 20 74 65  |o vert. error te|
00001580  72 6d 0a 53 55 42 53 20  52 38 2c 52 38 2c 23 31  |rm.SUBS R8,R8,#1|
00001590  0a 42 4c 4e 45 20 6c 6f  6f 70 79 31 39 32 6c 6f  |.BLNE loopy192lo|
000015a0  6f 20 20 20 20 20 20 20  20 20 3b 20 6c 6f 6f 70  |o         ; loop|
000015b0  20 69 66 20 73 6f 0a 2e  65 6e 64 6f 66 66 75 6e  | if so..endoffun|
000015c0  63 74 69 6f 6e 0a 4c 44  4d 46 44 20 52 31 33 21  |ction.LDMFD R13!|
000015d0  2c 7b 52 31 2d 52 31 32  2c 52 31 35 7d 5e 0a 2f  |,{R1-R12,R15}^./|
000015e0  2a 4d 4f 56 53 20 50 43  2c 52 31 34 5e 2a 2f 0a  |*MOVS PC,R14^*/.|
000015f0  0a 45 58 50 4f 52 54 20  6f 75 72 6c 69 62 5f 73  |.EXPORT ourlib_s|
00001600  6c 69 76 65 72 78 0a 2e  6f 75 72 6c 69 62 5f 73  |liverx..ourlib_s|
00001610  6c 69 76 65 72 78 0a 53  54 4d 46 44 20 52 31 33  |liverx.STMFD R13|
00001620  21 2c 7b 52 30 2d 52 31  32 2c 52 31 34 7d 0a 4c  |!,{R0-R12,R14}.L|
00001630  44 4d 49 41 20 52 30 2c  7b 52 30 2d 52 37 7d 0a  |DMIA R0,{R0-R7}.|
00001640  4d 4f 56 20 52 31 30 2c  23 32 35 36 0a 43 4d 50  |MOV R10,#256.CMP|
00001650  20 52 33 2c 52 35 0a 4d  4f 56 47 45 20 52 33 2c  | R3,R5.MOVGE R3,|
00001660  52 35 0a 0a 2e 6e 6f 63  6c 69 70 70 69 6e 67 78  |R5...noclippingx|
00001670  0a 41 44 44 20 52 31 2c  52 31 2c 52 36 2c 4c 53  |.ADD R1,R1,R6,LS|
00001680  4c 20 23 31 32 20 3b 20  63 61 6c 63 75 6c 61 74  |L #12 ; calculat|
00001690  65 20 6f 66 66 73 65 74  20 69 6e 20 77 61 6c 6c  |e offset in wall|
000016a0  73 5b 5d 5b 5d 20 61 72  72 61 79 0a 41 44 44 20  |s[][] array.ADD |
000016b0  52 31 2c 52 31 2c 52 32  20 20 20 20 20 20 20 20  |R1,R1,R2        |
000016c0  20 3b 20 61 64 64 20 74  68 65 20 63 6f 6c 75 6d  | ; add the colum|
000016d0  6e 20 74 6f 20 74 68 69  73 0a 4d 4f 56 20 52 38  |n to this.MOV R8|
000016e0  2c 23 31 30 30 0a 53 55  42 20 52 38 2c 52 38 2c  |,#100.SUB R8,R8,|
000016f0  52 33 2c 4c 53 52 20 23  31 20 3b 20 73 65 74 20  |R3,LSR #1 ; set |
00001700  73 74 61 72 74 20 79 20  70 6f 73 0a 41 44 44 20  |start y pos.ADD |
00001710  52 34 2c 52 34 2c 52 38  2c 4c 53 4c 20 23 38 20  |R4,R4,R8,LSL #8 |
00001720  3b 20 77 6f 72 6b 20 6f  75 74 20 75 73 75 61 6c  |; work out usual|
00001730  20 73 63 72 65 65 6e 20  28 33 32 30 78 32 35 36  | screen (320x256|
00001740  29 0a 41 44 44 20 52 34  2c 52 34 2c 52 38 2c 4c  |).ADD R4,R4,R8,L|
00001750  53 4c 20 23 36 20 3b 20  6f 66 66 73 65 74 20 74  |SL #6 ; offset t|
00001760  6f 20 62 65 67 69 6e 20  6c 6f 6f 70 0a 41 44 44  |o begin loop.ADD|
00001770  20 52 30 2c 52 30 2c 52  34 0a 0a 3b 20 73 65 74  | R0,R0,R4..; set|
00001780  75 70 20 69 6e 63 20 61  6e 64 20 66 69 78 65 64  |up inc and fixed|
00001790  0a 4d 4f 56 20 52 39 2c  23 30 2c 4c 53 4c 20 23  |.MOV R9,#0,LSL #|
000017a0  31 36 0a 4d 4f 56 20 52  31 31 2c 23 30 0a 3b 20  |16.MOV R11,#0.; |
000017b0  52 33 20 68 6f 6c 64 73  20 63 6f 75 6e 74 65 72  |R3 holds counter|
000017c0  0a 2e 6c 6f 6f 70 78 78  78 0a 4c 44 52 42 20 52  |..loopxxx.LDRB R|
000017d0  31 30 2c 5b 52 31 2c 52  31 31 2c 4c 53 4c 20 23  |10,[R1,R11,LSL #|
000017e0  36 5d 0a 53 54 52 42 20  52 31 30 2c 5b 52 30 5d  |6].STRB R10,[R0]|
000017f0  2c 23 33 32 30 0a 41 44  44 20 52 39 2c 52 39 2c  |,#320.ADD R9,R9,|
00001800  52 37 0a 4d 4f 56 20 52  31 31 2c 52 39 2c 4c 53  |R7.MOV R11,R9,LS|
00001810  52 20 23 31 36 0a 0a 3b  65 6e 64 78 78 78 0a 53  |R #16..;endxxx.S|
00001820  55 42 53 20 52 33 2c 52  33 2c 23 31 0a 42 4e 45  |UBS R3,R3,#1.BNE|
00001830  20 6c 6f 6f 70 78 78 78  0a 0a 0a 4c 44 4d 46 44  | loopxxx...LDMFD|
00001840  20 52 31 33 21 2c 7b 52  30 2d 52 31 32 2c 52 31  | R13!,{R0-R12,R1|
00001850  35 7d 5e 0a 2f 2a 4d 4f  56 53 20 50 43 2c 52 31  |5}^./*MOVS PC,R1|
00001860  34 5e 2a 2f 0a 0a 0a 45  58 50 4f 52 54 20 6f 75  |4^*/...EXPORT ou|
00001870  72 6c 69 62 5f 66 61 73  74 63 6c 67 5f 74 77 6f  |rlib_fastclg_two|
00001880  0a 2e 6f 75 72 6c 69 62  5f 66 61 73 74 63 6c 67  |..ourlib_fastclg|
00001890  5f 74 77 6f 0a 0a 53 54  4d 46 44 20 52 31 33 21  |_two..STMFD R13!|
000018a0  2c 7b 52 30 2d 52 31 32  2c 52 31 34 7d 0a 0a 4d  |,{R0-R12,R14}..M|
000018b0  4f 56 20 52 34 2c 23 31  30 30 0a 0a 53 55 42 20  |OV R4,#100..SUB |
000018c0  52 34 2c 52 34 2c 52 32  2c 41 53 52 20 23 31 0a  |R4,R4,R2,ASR #1.|
000018d0  41 44 44 20 52 31 31 2c  52 30 2c 52 34 2c 4c 53  |ADD R11,R0,R4,LS|
000018e0  4c 20 23 38 0a 41 44 44  20 52 31 31 2c 52 31 31  |L #8.ADD R11,R11|
000018f0  2c 52 34 2c 4c 53 4c 20  23 36 0a 4d 4f 56 20 52  |,R4,LSL #6.MOV R|
00001900  31 30 2c 52 31 31 20 3b  20 73 74 61 72 74 20 6f  |10,R11 ; start o|
00001910  66 66 73 65 74 20 63 61  6c 63 75 6c 61 74 65 64  |ffset calculated|
00001920  0a 4d 4f 56 20 52 39 2c  52 31 0a 0a 4d 4f 56 20  |.MOV R9,R1..MOV |
00001930  52 31 32 2c 52 32 2c 4c  53 52 20 23 31 0a 0a 4c  |R12,R2,LSR #1..L|
00001940  44 52 20 52 30 2c 74 6f  70 63 6f 6c 6f 75 72 0a  |DR R0,topcolour.|
00001950  4d 4f 56 20 52 31 2c 52  30 0a 4d 4f 56 20 52 32  |MOV R1,R0.MOV R2|
00001960  2c 52 30 0a 4d 4f 56 20  52 33 2c 52 30 0a 4d 4f  |,R0.MOV R3,R0.MO|
00001970  56 20 52 34 2c 52 30 0a  4d 4f 56 20 52 35 2c 52  |V R4,R0.MOV R5,R|
00001980  30 0a 4d 4f 56 20 52 36  2c 52 30 0a 4d 4f 56 20  |0.MOV R6,R0.MOV |
00001990  52 37 2c 52 30 0a 0a 4d  4f 56 20 52 31 34 2c 52  |R7,R0..MOV R14,R|
000019a0  31 32 0a 2e 79 5f 6c 6f  6f 70 0a 4d 4f 56 20 52  |12..y_loop.MOV R|
000019b0  38 2c 52 39 2c 4c 53 52  20 23 35 0a 2e 78 5f 6c  |8,R9,LSR #5..x_l|
000019c0  6f 6f 70 0a 0a 53 54 4d  49 41 20 52 31 31 21 2c  |oop..STMIA R11!,|
000019d0  7b 52 30 2d 52 37 7d 0a  53 55 42 53 20 52 38 2c  |{R0-R7}.SUBS R8,|
000019e0  52 38 2c 23 31 0a 42 4e  45 20 78 5f 6c 6f 6f 70  |R8,#1.BNE x_loop|
000019f0  0a 0a 41 44 44 20 52 31  30 2c 52 31 30 2c 23 33  |..ADD R10,R10,#3|
00001a00  32 30 0a 4d 4f 56 20 52  31 31 2c 52 31 30 0a 0a  |20.MOV R11,R10..|
00001a10  53 55 42 53 20 52 31 32  2c 52 31 32 2c 23 31 0a  |SUBS R12,R12,#1.|
00001a20  42 4e 45 20 79 5f 6c 6f  6f 70 0a 0a 4c 44 52 20  |BNE y_loop..LDR |
00001a30  52 30 2c 62 6f 74 74 6f  6d 63 6f 6c 6f 75 72 0a  |R0,bottomcolour.|
00001a40  4d 4f 56 20 52 31 2c 52  30 0a 4d 4f 56 20 52 32  |MOV R1,R0.MOV R2|
00001a50  2c 52 30 0a 4d 4f 56 20  52 33 2c 52 30 0a 4d 4f  |,R0.MOV R3,R0.MO|
00001a60  56 20 52 34 2c 52 30 0a  4d 4f 56 20 52 35 2c 52  |V R4,R0.MOV R5,R|
00001a70  30 0a 4d 4f 56 20 52 36  2c 52 30 0a 4d 4f 56 20  |0.MOV R6,R0.MOV |
00001a80  52 37 2c 52 30 0a 4d 4f  56 20 52 31 32 2c 52 31  |R7,R0.MOV R12,R1|
00001a90  34 0a 2e 79 5f 6c 6f 6f  70 62 0a 4d 4f 56 20 52  |4..y_loopb.MOV R|
00001aa0  38 2c 52 39 2c 4c 53 52  20 23 35 0a 2e 78 5f 6c  |8,R9,LSR #5..x_l|
00001ab0  6f 6f 70 62 0a 0a 53 54  4d 49 41 20 52 31 31 21  |oopb..STMIA R11!|
00001ac0  2c 7b 52 30 2d 52 37 7d  0a 53 55 42 53 20 52 38  |,{R0-R7}.SUBS R8|
00001ad0  2c 52 38 2c 23 31 0a 42  4e 45 20 78 5f 6c 6f 6f  |,R8,#1.BNE x_loo|
00001ae0  70 62 0a 0a 41 44 44 20  52 31 30 2c 52 31 30 2c  |pb..ADD R10,R10,|
00001af0  23 33 32 30 0a 4d 4f 56  20 52 31 31 2c 52 31 30  |#320.MOV R11,R10|
00001b00  0a 0a 53 55 42 53 20 52  31 32 2c 52 31 32 2c 23  |..SUBS R12,R12,#|
00001b10  31 0a 42 4e 45 20 79 5f  6c 6f 6f 70 62 0a 0a 0a  |1.BNE y_loopb...|
00001b20  0a 0a 0a 0a 0a 0a 0a 0a  4c 44 4d 46 44 20 52 31  |........LDMFD R1|
00001b30  33 21 2c 7b 52 30 2d 52  31 32 2c 52 31 35 7d 5e  |3!,{R0-R12,R15}^|
00001b40  0a 0a 0a 45 58 50 4f 52  54 20 6f 75 72 6c 69 62  |...EXPORT ourlib|
00001b50  5f 66 61 73 74 63 6c 67  0a 2e 6f 75 72 6c 69 62  |_fastclg..ourlib|
00001b60  5f 66 61 73 74 63 6c 67  0a 53 54 4d 46 44 20 52  |_fastclg.STMFD R|
00001b70  31 33 21 2c 7b 52 31 2d  52 31 32 2c 52 31 34 7d  |13!,{R1-R12,R14}|
00001b80  0a 0a 0a 4d 4f 56 20 52  31 31 2c 52 30 0a 0a 0a  |...MOV R11,R0...|
00001b90  4d 4f 56 20 52 31 30 2c  23 33 32 0a 0a 4c 44 52  |MOV R10,#32..LDR|
00001ba0  20 52 30 2c 74 6f 70 63  6f 6c 6f 75 72 0a 4d 4f  | R0,topcolour.MO|
00001bb0  56 20 52 30 2c 52 30 0a  4d 4f 56 20 52 31 2c 52  |V R0,R0.MOV R1,R|
00001bc0  30 0a 4d 4f 56 20 52 32  2c 52 30 0a 4d 4f 56 20  |0.MOV R2,R0.MOV |
00001bd0  52 33 2c 52 30 0a 4d 4f  56 20 52 34 2c 52 30 0a  |R3,R0.MOV R4,R0.|
00001be0  4d 4f 56 20 52 35 2c 52  30 0a 4d 4f 56 20 52 36  |MOV R5,R0.MOV R6|
00001bf0  2c 52 30 0a 4d 4f 56 20  52 37 2c 52 30 0a 4d 4f  |,R0.MOV R7,R0.MO|
00001c00  56 20 52 38 2c 52 30 0a  4d 4f 56 20 52 39 2c 52  |V R8,R0.MOV R9,R|
00001c10  30 0a 2e 66 61 73 74 0a  53 54 4d 49 41 20 20 52  |0..fast.STMIA  R|
00001c20  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001c30  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001c40  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001c50  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001c60  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001c70  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001c80  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001c90  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001ca0  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001cb0  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001cc0  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001cd0  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001ce0  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001cf0  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001d00  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001d10  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001d20  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001d30  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001d40  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001d50  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001d60  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001d70  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001d80  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001d90  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001da0  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001db0  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001dc0  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001dd0  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001de0  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001df0  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001e00  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001e10  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001e20  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001e30  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001e40  7b 52 30 2d 52 39 7d 0a  53 54 4d 49 41 20 20 52  |{R0-R9}.STMIA  R|
00001e50  31 31 21 2c 7b 52 30 2d  52 39 7d 0a 53 54 4d 49  |11!,{R0-R9}.STMI|
00001e60  41 20 20 52 31 31 21 2c  7b 52 30 2d 52 39 7d 0a  |A  R11!,{R0-R9}.|
00001e70  53 54 4d 49 41 20 20 52  31 31 21 2c 7b 52 30 2d  |STMIA  R11!,{R0-|
00001e80  52 39 7d 0a 53 54 4d 49  41 20 20 52 31 31 21 2c  |R9}.STMIA  R11!,|
00001e90  7b 52 30 2d 52 39 7d 0a  53 55 42 53 20 20 20 52  |{R0-R9}.SUBS   R|
00001ea0  31 30 2c 52 31 30 2c 23  31 0a 42 4e 45 20 20 20  |10,R10,#1.BNE   |
00001eb0  20 66 61 73 74 0a 0a 0a  4d 4f 56 20 52 31 30 2c  | fast...MOV R10,|
00001ec0  23 33 32 0a 4c 44 52 20  52 31 2c 62 6f 74 74 6f  |#32.LDR R1,botto|
00001ed0  6d 63 6f 6c 6f 75 72 0a  4d 4f 56 20 52 30 2c 52  |mcolour.MOV R0,R|
00001ee0  31 0a 4d 4f 56 20 52 32  2c 52 31 0a 4d 4f 56 20  |1.MOV R2,R1.MOV |
00001ef0  52 33 2c 52 31 0a 4d 4f  56 20 52 34 2c 52 31 0a  |R3,R1.MOV R4,R1.|
00001f00  4d 4f 56 20 52 35 2c 52  31 0a 4d 4f 56 20 52 36  |MOV R5,R1.MOV R6|
00001f10  2c 52 31 0a 4d 4f 56 20  52 37 2c 52 31 0a 4d 4f  |,R1.MOV R7,R1.MO|
00001f20  56 20 52 38 2c 52 31 0a  4d 4f 56 20 52 39 2c 52  |V R8,R1.MOV R9,R|
00001f30  31 0a 2e 66 61 73 74 32  0a 53 54 4d 49 41 20 20  |1..fast2.STMIA  |
00001f40  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00001f50  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00001f60  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00001f70  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00001f80  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00001f90  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00001fa0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00001fb0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00001fc0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00001fd0  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00001fe0  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00001ff0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002000  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002010  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002020  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002030  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002040  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002050  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002060  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002070  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002080  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002090  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
000020a0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
000020b0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
000020c0  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
000020d0  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
000020e0  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
000020f0  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002100  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002110  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002120  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002130  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002140  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
00002150  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
00002160  2c 7b 52 30 2d 52 39 7d  0a 53 54 4d 49 41 20 20  |,{R0-R9}.STMIA  |
00002170  52 31 31 21 2c 7b 52 30  2d 52 39 7d 0a 53 54 4d  |R11!,{R0-R9}.STM|
00002180  49 41 20 20 52 31 31 21  2c 7b 52 30 2d 52 39 7d  |IA  R11!,{R0-R9}|
00002190  0a 53 54 4d 49 41 20 20  52 31 31 21 2c 7b 52 30  |.STMIA  R11!,{R0|
000021a0  2d 52 39 7d 0a 53 54 4d  49 41 20 20 52 31 31 21  |-R9}.STMIA  R11!|
000021b0  2c 7b 52 30 2d 52 39 7d  0a 53 55 42 53 20 20 20  |,{R0-R9}.SUBS   |
000021c0  52 31 30 2c 52 31 30 2c  23 31 0a 42 4e 45 20 20  |R10,R10,#1.BNE  |
000021d0  20 20 66 61 73 74 32 0a  4c 44 4d 46 44 20 52 31  |  fast2.LDMFD R1|
000021e0  33 21 2c 7b 52 31 2d 52  31 32 2c 52 31 35 7d 5e  |3!,{R1-R12,R15}^|
000021f0  0a 0a 0a 2e 74 6f 70 63  6f 6c 6f 75 72 0a 45 51  |....topcolour.EQ|
00002200  55 44 20 30 0a 2e 62 6f  74 74 6f 6d 63 6f 6c 6f  |UD 0..bottomcolo|
00002210  75 72 0a 45 51 55 44 20  30 0a 2e 73 63 72 65 65  |ur.EQUD 0..scree|
00002220  6e 79 6f 66 66 73 65 74  0a 45 51 55 44 20 30 0a  |nyoffset.EQUD 0.|
00002230  2e 73 63 72 65 65 6e 79  73 74 6f 70 0a 45 51 55  |.screenystop.EQU|
00002240  44 20 30 0a 2e 73 63 72  65 65 6e 78 6f 66 66 73  |D 0..screenxoffs|
00002250  65 74 0a 45 51 55 44 20  30 0a 2e 73 63 72 65 65  |et.EQUD 0..scree|
00002260  6e 78 73 74 6f 70 0a 45  51 55 44 20 30 0a 0a 0a  |nxstop.EQUD 0...|
00002270  0a 0a 45 58 50 4f 52 54  20 6f 75 72 6c 69 62 5f  |..EXPORT ourlib_|
00002280  73 65 74 75 70 62 61 63  6b 67 72 6f 75 6e 64 0a  |setupbackground.|
00002290  2e 6f 75 72 6c 69 62 5f  73 65 74 75 70 5f 62 61  |.ourlib_setup_ba|
000022a0  63 6b 67 72 6f 75 6e 64  0a 53 54 4d 46 44 20 52  |ckground.STMFD R|
000022b0  31 33 21 2c 7b 52 31 2d  52 36 2c 52 31 34 7d 0a  |13!,{R1-R6,R14}.|
000022c0  2f 2a 4d 4f 56 20 52 31  30 2c 23 33 32 30 0a 53  |/*MOV R10,#320.S|
000022d0  55 42 20 52 39 2c 52 31  30 2c 52 32 2c 4c 53 52  |UB R9,R10,R2,LSR|
000022e0  20 23 31 0a 53 54 52 20  52 39 2c 73 63 72 65 65  | #1.STR R9,scree|
000022f0  6e 78 6f 66 66 73 65 74  0a 53 55 42 20 52 39 2c  |nxoffset.SUB R9,|
00002300  52 31 30 2c 52 39 0a 53  54 52 20 52 39 2c 73 63  |R10,R9.STR R9,sc|
00002310  72 65 65 6e 78 73 74 6f  70 0a 4d 4f 56 20 52 31  |reenxstop.MOV R1|
00002320  30 2c 23 31 32 38 0a 53  55 42 20 52 39 2c 52 31  |0,#128.SUB R9,R1|
00002330  30 2c 52 33 2c 4c 53 52  20 23 31 0a 53 54 52 20  |0,R3,LSR #1.STR |
00002340  52 39 2c 73 63 72 65 65  6e 79 6f 66 66 73 65 74  |R9,screenyoffset|
00002350  0a 4d 4f 56 20 52 31 30  2c 23 32 35 36 0a 53 55  |.MOV R10,#256.SU|
00002360  42 20 52 39 2c 52 31 30  2c 52 39 0a 53 54 52 20  |B R9,R10,R9.STR |
00002370  52 39 2c 73 63 72 65 65  6e 79 73 74 6f 70 2a 2f  |R9,screenystop*/|
00002380  0a 0a 4d 4f 56 20 52 33  2c 52 30 0a 4d 4f 56 20  |..MOV R3,R0.MOV |
00002390  52 34 2c 52 31 0a 0a 4f  52 52 20 52 30 2c 52 30  |R4,R1..ORR R0,R0|
000023a0  2c 52 33 0a 4f 52 52 20  52 30 2c 52 30 2c 52 33  |,R3.ORR R0,R0,R3|
000023b0  2c 4c 53 4c 20 23 38 0a  4f 52 52 20 52 30 2c 52  |,LSL #8.ORR R0,R|
000023c0  30 2c 52 33 2c 4c 53 4c  20 23 31 36 0a 4f 52 52  |0,R3,LSL #16.ORR|
000023d0  20 52 30 2c 52 30 2c 52  33 2c 4c 53 4c 20 23 32  | R0,R0,R3,LSL #2|
000023e0  34 0a 53 54 52 20 52 30  2c 74 6f 70 63 6f 6c 6f  |4.STR R0,topcolo|
000023f0  75 72 0a 0a 4d 4f 56 20  52 30 2c 23 30 0a 4f 52  |ur..MOV R0,#0.OR|
00002400  52 20 52 30 2c 52 30 2c  52 34 0a 4f 52 52 20 52  |R R0,R0,R4.ORR R|
00002410  30 2c 52 30 2c 52 34 2c  4c 53 4c 20 23 38 0a 4f  |0,R0,R4,LSL #8.O|
00002420  52 52 20 52 30 2c 52 30  2c 52 34 2c 4c 53 4c 20  |RR R0,R0,R4,LSL |
00002430  23 31 36 0a 4f 52 52 20  52 30 2c 52 30 2c 52 34  |#16.ORR R0,R0,R4|
00002440  2c 4c 53 4c 20 23 32 34  0a 53 54 52 20 52 30 2c  |,LSL #24.STR R0,|
00002450  62 6f 74 74 6f 6d 63 6f  6c 6f 75 72 0a 4c 44 4d  |bottomcolour.LDM|
00002460  46 44 20 52 31 33 21 2c  7b 52 31 2d 52 36 2c 52  |FD R13!,{R1-R6,R|
00002470  31 35 7d 5e 0a 0a 45 58  50 4f 52 54 20 63 6f 6c  |15}^..EXPORT col|
00002480  6f 75 72 5f 62 6f 78 0a  2e 63 6f 6c 6f 75 72 5f  |our_box..colour_|
00002490  62 6f 78 0a 0a 2f 2a 20  52 30 20 3d 20 76 69 64  |box../* R0 = vid|
000024a0  65 6f 5f 61 64 64 72 65  73 73 20 52 31 3d 20 73  |eo_address R1= s|
000024b0  74 61 72 74 78 20 52 32  20 3d 20 73 74 61 72 74  |tartx R2 = start|
000024c0  79 20 52 33 20 3d 20 65  6e 64 78 20 52 34 20 3d  |y R3 = endx R4 =|
000024d0  20 65 6e 64 79 20 52 35  20 3d 20 63 6f 6c 6f 75  | endy R5 = colou|
000024e0  72 2a 2f 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |r*/.STMFD R13!,{|
000024f0  52 31 2d 52 31 30 2c 52  31 34 7d 0a 4c 44 4d 49  |R1-R10,R14}.LDMI|
00002500  41 20 52 30 2c 7b 52 30  2d 52 35 7d 0a 0a 4d 4f  |A R0,{R0-R5}..MO|
00002510  56 20 52 36 2c 52 32 0a  0a 2e 6c 6f 6f 70 5f 79  |V R6,R2...loop_y|
00002520  0a 4d 4f 56 20 52 37 2c  52 31 0a 2e 6c 6f 6f 70  |.MOV R7,R1..loop|
00002530  5f 78 0a 41 44 44 20 52  38 2c 52 37 2c 52 36 2c  |_x.ADD R8,R7,R6,|
00002540  4c 53 4c 20 23 38 0a 41  44 44 20 52 38 2c 52 38  |LSL #8.ADD R8,R8|
00002550  2c 52 36 2c 4c 53 4c 20  23 36 0a 53 54 52 42 20  |,R6,LSL #6.STRB |
00002560  52 35 2c 5b 52 30 2c 52  38 5d 0a 41 44 44 20 52  |R5,[R0,R8].ADD R|
00002570  37 2c 52 37 2c 23 31 0a  43 4d 50 20 52 37 2c 52  |7,R7,#1.CMP R7,R|
00002580  33 0a 42 4c 54 20 6c 6f  6f 70 5f 78 0a 0a 41 44  |3.BLT loop_x..AD|
00002590  44 20 52 36 2c 52 36 2c  23 31 0a 43 4d 50 20 52  |D R6,R6,#1.CMP R|
000025a0  36 2c 52 34 0a 42 4c 54  20 6c 6f 6f 70 5f 79 0a  |6,R4.BLT loop_y.|
000025b0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
000025c0  52 31 30 2c 50 43 7d 0a  0a 0a 0a 0a 0a 0a 45 58  |R10,PC}.......EX|
000025d0  50 4f 52 54 20 6f 75 72  6c 69 62 5f 72 61 79 62  |PORT ourlib_rayb|
000025e0  61 63 6b 0a 2e 6f 75 72  6c 69 62 5f 72 61 79 62  |ack..ourlib_rayb|
000025f0  61 63 6b 0a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |ack.STMFD R13!,{|
00002600  52 31 2d 52 31 32 2c 52  31 34 7d 0a 0a 4d 4f 56  |R1-R12,R14}..MOV|
00002610  20 52 31 32 2c 23 30 30  30 30 30 30 30 30 30 30  | R12,#0000000000|
00002620  30 30 30 30 0a 4d 4f 56  20 52 32 2c 23 32 30 34  |0000.MOV R2,#204|
00002630  38 30 0a 0a 2e 72 61 79  62 61 63 6b 6c 6f 6f 70  |80...raybackloop|
00002640  0a 53 54 52 20 52 31 32  2c 5b 52 30 2c 23 34 5d  |.STR R12,[R0,#4]|
00002650  21 0a 53 55 42 53 20 52  32 2c 52 32 20 2c 23 31  |!.SUBS R2,R2 ,#1|
00002660  0a 42 4e 45 20 72 61 79  62 61 63 6b 6c 6f 6f 70  |.BNE raybackloop|
00002670  0a 0a 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |...LDMFD R13!,{R|
00002680  31 2d 52 31 32 2c 52 31  35 7d 5e 0a 0a 45 58 50  |1-R12,R15}^..EXP|
00002690  4f 52 54 20 6f 75 72 6c  69 62 5f 77 61 69 74 76  |ORT ourlib_waitv|
000026a0  73 79 6e 63 0a 2e 6f 75  72 6c 69 62 5f 77 61 69  |sync..ourlib_wai|
000026b0  74 76 73 79 6e 63 0a 53  54 4d 46 44 20 52 31 33  |tvsync.STMFD R13|
000026c0  21 2c 7b 52 31 2d 52 32  2c 52 31 34 7d 0a 4d 4f  |!,{R1-R2,R14}.MO|
000026d0  56 20 52 30 2c 23 31 39  0a 53 57 49 20 4f 53 5f  |V R0,#19.SWI OS_|
000026e0  42 79 74 65 0a 4c 44 4d  46 44 20 52 31 33 21 2c  |Byte.LDMFD R13!,|
000026f0  7b 52 31 2d 52 32 2c 52  31 35 7d 5e 0a 0a 45 58  |{R1-R2,R15}^..EX|
00002700  50 4f 52 54 20 6f 75 72  6c 69 62 5f 73 63 72 65  |PORT ourlib_scre|
00002710  65 6e 5f 72 6f 74 61 74  65 0a 2e 6f 75 72 6c 69  |en_rotate..ourli|
00002720  62 5f 73 63 72 65 65 6e  5f 72 6f 74 61 74 65 0a  |b_screen_rotate.|
00002730  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 2d 52  |STMFD R13!,{R1-R|
00002740  34 2c 52 31 34 7d 0a 4c  44 52 20 52 31 2c 73 63  |4,R14}.LDR R1,sc|
00002750  72 65 65 6e 73 69 7a 65  0a 4c 44 52 20 52 31 2c  |reensize.LDR R1,|
00002760  73 63 72 65 65 6e 73 69  7a 65 0a 2e 72 6f 74 61  |screensize..rota|
00002770  74 65 6c 6f 6f 70 0a 4c  44 52 42 20 52 33 2c 5b  |teloop.LDRB R3,[|
00002780  52 30 5d 0a 4d 4f 56 20  52 33 2c 52 33 2c 52 4f  |R0].MOV R3,R3,RO|
00002790  52 20 23 32 34 0a 53 54  52 42 20 52 33 2c 5b 52  |R #24.STRB R3,[R|
000027a0  30 5d 2c 23 31 0a 53 55  42 53 20 52 31 2c 52 31  |0],#1.SUBS R1,R1|
000027b0  2c 23 31 0a 42 4e 45 20  72 6f 74 61 74 65 6c 6f  |,#1.BNE rotatelo|
000027c0  6f 70 0a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |op.LDMFD R13!,{R|
000027d0  31 2d 52 34 2c 50 43 7d  0a 2e 73 63 72 65 65 6e  |1-R4,PC}..screen|
000027e0  73 69 7a 65 0a 45 51 55  44 20 38 31 39 32 30 0a  |size.EQUD 81920.|
000027f0  0a 0a 0a 0a 45 58 50 4f  52 54 20 6f 75 72 6c 69  |....EXPORT ourli|
00002800  62 5f 66 61 64 65 5f 6f  75 74 0a 2e 6f 75 72 6c  |b_fade_out..ourl|
00002810  69 62 5f 66 61 64 65 5f  6f 75 74 0a 53 54 4d 46  |ib_fade_out.STMF|
00002820  44 20 52 31 33 21 2c 7b  52 31 2d 52 37 2c 52 31  |D R13!,{R1-R7,R1|
00002830  34 7d 0a 2f 2a 20 52 30  20 3d 20 76 69 64 65 6f  |4}./* R0 = video|
00002840  61 64 64 72 65 73 73 20  52 31 20 3d 20 73 63 72  |address R1 = scr|
00002850  65 65 6e 73 69 7a 65 20  2a 2f 0a 0a 41 44 44 20  |eensize */..ADD |
00002860  52 30 2c 52 30 2c 52 31  20 20 20 20 20 20 20 20  |R0,R0,R1        |
00002870  20 3b 20 50 6f 69 6e 74  20 52 30 20 74 6f 20 62  | ; Point R0 to b|
00002880  6f 74 74 6f 6d 20 6f 66  20 73 63 72 65 65 6e 0a  |ottom of screen.|
00002890  4d 4f 56 20 52 35 2c 23  38 20 20 20 20 20 20 20  |MOV R5,#8       |
000028a0  20 20 20 20 20 3b 20 4c  6f 6f 70 20 77 69 6c 6c  |     ; Loop will|
000028b0  20 65 78 65 63 75 74 65  20 20 23 34 20 63 79 63  | execute  #4 cyc|
000028c0  6c 65 73 0a 2e 6f 75 74  65 72 5f 6c 6f 6f 70 20  |les..outer_loop |
000028d0  20 20 20 20 20 20 20 20  20 3b 20 4f 75 74 65 72  |         ; Outer|
000028e0  20 6c 6f 6f 70 20 62 65  67 69 6e 73 0a 4d 4f 56  | loop begins.MOV|
000028f0  20 52 34 2c 52 31 20 20  20 20 20 20 20 20 20 20  | R4,R1          |
00002900  20 20 3b 20 4d 6f 76 65  20 73 63 72 65 65 6e 73  |  ; Move screens|
00002910  69 7a 65 20 69 6e 74 6f  20 74 65 6d 70 20 52 34  |ize into temp R4|
00002920  0a 2e 66 61 64 65 72 5f  6c 6f 6f 70 20 20 20 20  |..fader_loop    |
00002930  20 20 20 20 20 20 3b 20  49 6e 6e 65 72 20 6c 6f  |      ; Inner lo|
00002940  6f 70 20 62 65 67 69 6e  73 0a 53 55 42 20 52 32  |op begins.SUB R2|
00002950  2c 52 30 2c 52 34 20 20  20 20 20 20 20 20 20 3b  |,R0,R4         ;|
00002960  20 53 75 62 74 72 61 63  74 20 52 34 20 66 72 6f  | Subtract R4 fro|
00002970  6d 20 73 63 72 65 65 6e  20 70 6f 69 6e 74 65 72  |m screen pointer|
00002980  0a 4c 44 52 42 20 52 33  2c 5b 52 32 5d 20 20 20  |.LDRB R3,[R2]   |
00002990  20 20 20 20 20 20 3b 20  4c 6f 61 64 20 74 68 65  |      ; Load the|
000029a0  20 76 61 6c 75 65 20 70  6f 69 6e 74 65 64 20 74  | value pointed t|
000029b0  6f 0a 4d 4f 56 20 52 33  2c 52 33 2c 4c 53 52 20  |o.MOV R3,R3,LSR |
000029c0  23 31 20 20 20 20 20 3b  20 53 68 69 66 74 20 28  |#1     ; Shift (|
000029d0  66 61 64 65 29 20 69 74  0a 53 54 52 42 20 52 33  |fade) it.STRB R3|
000029e0  2c 5b 52 32 5d 20 20 20  20 20 20 20 20 20 3b 20  |,[R2]         ; |
000029f0  41 6e 64 20 73 74 6f 72  65 20 69 74 20 62 61 63  |And store it bac|
00002a00  6b 20 77 68 65 72 65 20  69 74 20 77 61 73 0a 53  |k where it was.S|
00002a10  55 42 53 20 52 34 2c 52  34 2c 23 31 20 20 20 20  |UBS R4,R4,#1    |
00002a20  20 20 20 20 3b 20 4d 6f  76 65 20 70 6f 69 6e 74  |    ; Move point|
00002a30  65 72 20 74 6f 20 6e 65  78 74 20 70 69 78 65 6c  |er to next pixel|
00002a40  0a 42 4e 45 20 66 61 64  65 72 5f 6c 6f 6f 70 20  |.BNE fader_loop |
00002a50  20 20 20 20 20 20 3b 20  4c 6f 6f 70 20 69 66 20  |      ; Loop if |
00002a60  6e 6f 74 20 64 6f 6e 65  20 79 65 74 0a 53 55 42  |not done yet.SUB|
00002a70  53 20 52 35 2c 52 35 2c  23 31 20 20 20 20 20 20  |S R5,R5,#1      |
00002a80  20 20 3b 20 44 65 63 72  65 6d 65 6e 74 20 6f 75  |  ; Decrement ou|
00002a90  74 65 72 20 6c 6f 6f 70  20 63 6f 75 6e 74 65 72  |ter loop counter|
00002aa0  0a 42 4e 45 20 6f 75 74  65 72 5f 6c 6f 6f 70 20  |.BNE outer_loop |
00002ab0  20 20 20 20 20 20 3b 20  4c 6f 6f 70 20 61 67 61  |      ; Loop aga|
00002ac0  69 6e 20 69 66 20 69 6e  63 6f 6d 70 6c 65 74 65  |in if incomplete|
00002ad0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00002ae0  52 37 2c 50 43 7d 5e 0a  0a 45 58 50 4f 52 54 20  |R7,PC}^..EXPORT |
00002af0  6f 75 72 6c 69 62 5f 63  6f 6c 6f 75 72 73 63 72  |ourlib_colourscr|
00002b00  65 65 6e 31 33 0a 2e 6f  75 72 6c 69 62 5f 63 6f  |een13..ourlib_co|
00002b10  6c 6f 75 72 73 63 72 65  65 6e 31 33 0a 0a 53 54  |lourscreen13..ST|
00002b20  4d 46 44 20 52 31 33 21  2c 7b 52 31 2d 52 31 32  |MFD R13!,{R1-R12|
00002b30  2c 52 31 34 7d 0a 2f 2a  20 52 30 20 3d 20 76 69  |,R14}./* R0 = vi|
00002b40  64 65 6f 5f 61 64 64 72  65 73 73 20 52 31 20 3d  |deo_address R1 =|
00002b50  20 70 69 78 65 6c 73 20  52 32 20 3d 20 63 6f 6c  | pixels R2 = col|
00002b60  6f 75 72 20 2a 2f 0a 0a  2e 6c 6f 6f 70 5f 70 69  |our */...loop_pi|
00002b70  78 65 6c 0a 53 54 52 42  20 52 32 2c 5b 52 30 2c  |xel.STRB R2,[R0,|
00002b80  52 31 5d 0a 53 55 42 53  20 52 31 2c 52 31 2c 23  |R1].SUBS R1,R1,#|
00002b90  31 0a 42 4e 45 20 6c 6f  6f 70 5f 70 69 78 65 6c  |1.BNE loop_pixel|
00002ba0  0a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2d  |.LDMFD R13!,{R1-|
00002bb0  52 31 32 2c 52 31 35 7d  5e 0a 0a 0a 45 58 50 4f  |R12,R15}^...EXPO|
00002bc0  52 54 20 6f 75 72 6c 69  62 5f 66 69 6e 64 73 63  |RT ourlib_findsc|
00002bd0  72 65 65 6e 0a 2e 6f 75  72 6c 69 62 5f 66 69 6e  |reen..ourlib_fin|
00002be0  64 73 63 72 65 65 6e 0a  53 54 4d 46 44 20 52 31  |dscreen.STMFD R1|
00002bf0  33 21 2c 7b 52 31 2d 52  35 2c 52 31 34 7d 0a 41  |3!,{R1-R5,R14}.A|
00002c00  44 52 20 52 30 2c 53 63  72 65 65 6e 5f 50 61 72  |DR R0,Screen_Par|
00002c10  61 6d 73 0a 41 44 52 20  52 31 2c 53 63 72 65 65  |ams.ADR R1,Scree|
00002c20  6e 5f 41 64 64 72 65 73  73 0a 53 57 49 20 22 4f  |n_Address.SWI "O|
00002c30  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00002c40  65 73 22 0a 4c 44 52 20  52 30 2c 53 63 72 65 65  |es".LDR R0,Scree|
00002c50  6e 5f 41 64 64 72 65 73  73 0a 4c 44 4d 46 44 20  |n_Address.LDMFD |
00002c60  52 31 33 21 2c 7b 52 31  2d 52 35 2c 52 31 35 7d  |R13!,{R1-R5,R15}|
00002c70  5e 0a 2e 53 63 72 65 65  6e 5f 41 64 64 72 65 73  |^..Screen_Addres|
00002c80  73 0a 45 51 55 44 20 30  3b 0a 2e 53 63 72 65 65  |s.EQUD 0;..Scree|
00002c90  6e 5f 50 61 72 61 6d 73  0a 45 51 55 44 20 31 34  |n_Params.EQUD 14|
00002ca0  38 3b 0a 45 51 55 44 20  2d 31 3b 0a 0a 0a 23 70  |8;.EQUD -1;...#p|
00002cb0  72 61 67 6d 61 20 65 6e  64 61 73 6d 0a 0a 0a 76  |ragma endasm...v|
00002cc0  6f 69 64 20 6f 75 72 6c  69 62 5f 77 72 69 74 65  |oid ourlib_write|
00002cd0  28 63 68 61 72 20 73 74  72 69 6e 67 5b 5d 29 3b  |(char string[]);|
00002ce0  0a 76 6f 69 64 20 6f 75  72 6c 69 62 5f 62 69 74  |.void ourlib_bit|
00002cf0  6d 61 70 5f 70 6c 6f 74  28 69 6e 74 20 73 74 61  |map_plot(int sta|
00002d00  72 74 5f 78 2c 69 6e 74  20 73 74 61 72 74 5f 79  |rt_x,int start_y|
00002d10  2c 69 6e 74 20 65 6e 64  5f 78 2c 69 6e 74 20 65  |,int end_x,int e|
00002d20  6e 64 5f 79 2c 63 68 61  72 20 2a 6d 65 6d 6f 72  |nd_y,char *memor|
00002d30  79 2c 63 68 61 72 20 2a  76 69 64 65 6f 29 3b 0a  |y,char *video);.|
00002d40  76 6f 69 64 20 6f 75 72  6c 69 62 5f 62 69 74 6d  |void ourlib_bitm|
00002d50  61 70 5f 67 72 61 62 28  69 6e 74 20 73 74 61 72  |ap_grab(int star|
00002d60  74 5f 78 2c 69 6e 74 20  73 74 61 72 74 5f 79 2c  |t_x,int start_y,|
00002d70  69 6e 74 20 65 6e 64 5f  78 2c 69 6e 74 20 65 6e  |int end_x,int en|
00002d80  64 5f 79 2c 63 68 61 72  20 2a 6d 65 6d 6f 72 79  |d_y,char *memory|
00002d90  2c 63 68 61 72 20 2a 76  69 64 65 6f 29 3b 0a 0a  |,char *video);..|
00002da0  0a 76 6f 69 64 20 6f 75  72 6c 69 62 5f 62 69 74  |.void ourlib_bit|
00002db0  6d 61 70 5f 67 72 61 62  28 69 6e 74 20 73 74 61  |map_grab(int sta|
00002dc0  72 74 5f 78 2c 69 6e 74  20 73 74 61 72 74 5f 79  |rt_x,int start_y|
00002dd0  2c 69 6e 74 20 65 6e 64  5f 78 2c 69 6e 74 20 65  |,int end_x,int e|
00002de0  6e 64 5f 79 2c 63 68 61  72 20 2a 6d 65 6d 6f 72  |nd_y,char *memor|
00002df0  79 2c 63 68 61 72 20 2a  76 69 64 65 6f 29 0a 7b  |y,char *video).{|
00002e00  0a 20 20 69 6e 74 20 6f  66 66 73 65 74 5f 69 6e  |.  int offset_in|
00002e10  5f 6d 65 6d 6f 72 79 3b  0a 20 20 69 6e 74 20 6f  |_memory;.  int o|
00002e20  66 66 73 65 74 5f 69 6e  5f 73 63 72 65 65 6e 3b  |ffset_in_screen;|
00002e30  0a 20 20 69 6e 74 20 70  69 78 65 6c 5f 78 2c 70  |.  int pixel_x,p|
00002e40  69 78 65 6c 5f 79 3b 0a  0a 0a 20 20 66 6f 72 28  |ixel_y;...  for(|
00002e50  6f 66 66 73 65 74 5f 69  6e 5f 6d 65 6d 6f 72 79  |offset_in_memory|
00002e60  3d 30 2c 70 69 78 65 6c  5f 79 3d 73 74 61 72 74  |=0,pixel_y=start|
00002e70  5f 79 3b 70 69 78 65 6c  5f 79 3c 3d 65 6e 64 5f  |_y;pixel_y<=end_|
00002e80  79 3b 70 69 78 65 6c 5f  79 2b 2b 29 0a 20 20 7b  |y;pixel_y++).  {|
00002e90  0a 20 20 20 20 66 6f 72  28 70 69 78 65 6c 5f 78  |.    for(pixel_x|
00002ea0  3d 73 74 61 72 74 5f 78  3b 70 69 78 65 6c 5f 78  |=start_x;pixel_x|
00002eb0  3c 3d 65 6e 64 5f 78 3b  70 69 78 65 6c 5f 78 2b  |<=end_x;pixel_x+|
00002ec0  2b 2c 6f 66 66 73 65 74  5f 69 6e 5f 6d 65 6d 6f  |+,offset_in_memo|
00002ed0  72 79 2b 2b 29 0a 20 20  20 20 7b 0a 20 20 20 20  |ry++).    {.    |
00002ee0  20 20 6f 66 66 73 65 74  5f 69 6e 5f 73 63 72 65  |  offset_in_scre|
00002ef0  65 6e 3d 70 69 78 65 6c  5f 78 2b 28 70 69 78 65  |en=pixel_x+(pixe|
00002f00  6c 5f 79 3c 3c 36 29 2b  28 70 69 78 65 6c 5f 79  |l_y<<6)+(pixel_y|
00002f10  3c 3c 38 29 3b 0a 20 20  20 20 20 20 6d 65 6d 6f  |<<8);.      memo|
00002f20  72 79 5b 6f 66 66 73 65  74 5f 69 6e 5f 6d 65 6d  |ry[offset_in_mem|
00002f30  6f 72 79 5d 3d 2a 28 76  69 64 65 6f 2b 6f 66 66  |ory]=*(video+off|
00002f40  73 65 74 5f 69 6e 5f 73  63 72 65 65 6e 29 3b 0a  |set_in_screen);.|
00002f50  0a 20 20 20 20 7d 0a 20  20 7d 0a 0a 7d 0a 76 6f  |.    }.  }..}.vo|
00002f60  69 64 20 6f 75 72 6c 69  62 5f 62 69 74 6d 61 70  |id ourlib_bitmap|
00002f70  5f 70 6c 6f 74 28 69 6e  74 20 73 74 61 72 74 5f  |_plot(int start_|
00002f80  78 2c 69 6e 74 20 73 74  61 72 74 5f 79 2c 69 6e  |x,int start_y,in|
00002f90  74 20 65 6e 64 5f 78 2c  69 6e 74 20 65 6e 64 5f  |t end_x,int end_|
00002fa0  79 2c 63 68 61 72 20 2a  6d 65 6d 6f 72 79 2c 63  |y,char *memory,c|
00002fb0  68 61 72 20 2a 76 69 64  65 6f 29 0a 7b 0a 20 20  |har *video).{.  |
00002fc0  69 6e 74 20 6f 66 66 73  65 74 5f 69 6e 5f 6d 65  |int offset_in_me|
00002fd0  6d 6f 72 79 3b 0a 20 20  69 6e 74 20 6f 66 66 73  |mory;.  int offs|
00002fe0  65 74 5f 69 6e 5f 73 63  72 65 65 6e 3b 0a 20 20  |et_in_screen;.  |
00002ff0  69 6e 74 20 70 69 78 65  6c 5f 78 2c 70 69 78 65  |int pixel_x,pixe|
00003000  6c 5f 79 3b 0a 0a 20 20  66 6f 72 28 6f 66 66 73  |l_y;..  for(offs|
00003010  65 74 5f 69 6e 5f 6d 65  6d 6f 72 79 3d 30 2c 70  |et_in_memory=0,p|
00003020  69 78 65 6c 5f 79 3d 73  74 61 72 74 5f 79 3b 70  |ixel_y=start_y;p|
00003030  69 78 65 6c 5f 79 3c 3d  65 6e 64 5f 79 3b 70 69  |ixel_y<=end_y;pi|
00003040  78 65 6c 5f 79 2b 2b 29  0a 20 20 7b 0a 20 20 20  |xel_y++).  {.   |
00003050  20 66 6f 72 28 70 69 78  65 6c 5f 78 3d 73 74 61  | for(pixel_x=sta|
00003060  72 74 5f 78 3b 70 69 78  65 6c 5f 78 3c 3d 65 6e  |rt_x;pixel_x<=en|
00003070  64 5f 78 3b 70 69 78 65  6c 5f 78 2b 2b 2c 6f 66  |d_x;pixel_x++,of|
00003080  66 73 65 74 5f 69 6e 5f  6d 65 6d 6f 72 79 2b 2b  |fset_in_memory++|
00003090  29 0a 20 20 20 20 7b 0a  20 20 20 20 20 20 6f 66  |).    {.      of|
000030a0  66 73 65 74 5f 69 6e 5f  73 63 72 65 65 6e 3d 70  |fset_in_screen=p|
000030b0  69 78 65 6c 5f 78 2b 28  70 69 78 65 6c 5f 79 3c  |ixel_x+(pixel_y<|
000030c0  3c 36 29 2b 28 70 69 78  65 6c 5f 79 3c 3c 38 29  |<6)+(pixel_y<<8)|
000030d0  3b 0a 20 20 20 20 20 20  2a 28 76 69 64 65 6f 2b  |;.      *(video+|
000030e0  6f 66 66 73 65 74 5f 69  6e 5f 73 63 72 65 65 6e  |offset_in_screen|
000030f0  29 3d 6d 65 6d 6f 72 79  5b 6f 66 66 73 65 74 5f  |)=memory[offset_|
00003100  69 6e 5f 6d 65 6d 6f 72  79 5d 3b 0a 20 20 20 20  |in_memory];.    |
00003110  7d 0a 20 20 7d 0a 7d 0a  76 6f 69 64 20 6f 75 72  |}.  }.}.void our|
00003120  6c 69 62 5f 77 72 69 74  65 28 63 68 61 72 20 73  |lib_write(char s|
00003130  74 72 69 6e 67 5b 5d 29  0a 7b 0a 20 70 72 69 6e  |tring[]).{. prin|
00003140  74 66 28 22 25 73 5c 6e  22 2c 73 74 72 69 6e 67  |tf("%s\n",string|
00003150  29 3b 0a 7d 0a 76 6f 69  64 20 6f 75 72 6c 69 62  |);.}.void ourlib|
00003160  5f 62 69 74 6d 61 70 5f  73 63 61 6c 65 28 63 68  |_bitmap_scale(ch|
00003170  61 72 20 2a 73 63 72 65  65 6e 2c 69 6e 74 20 73  |ar *screen,int s|
00003180  63 72 65 65 6e 78 2c 69  6e 74 20 73 63 72 65 65  |creenx,int scree|
00003190  6e 79 2c 69 6e 74 20 70  65 72 63 65 6e 74 2c 20  |ny,int percent, |
000031a0  69 6e 74 20 77 69 64 74  68 2c 69 6e 74 20 68 65  |int width,int he|
000031b0  69 67 68 74 2c 63 68 61  72 20 2a 62 69 74 6d 61  |ight,char *bitma|
000031c0  70 29 0a 7b 0a 0a 0a 20  20 20 20 20 20 69 6e 74  |p).{...      int|
000031d0  20 79 65 72 72 6f 72 3d  30 3b 0a 0a 20 20 20 20  | yerror=0;..    |
000031e0  20 20 2f 2a 69 6e 74 20  73 63 72 65 65 6e 79 3d  |  /*int screeny=|
000031f0  28 32 30 30 2d 70 65 72  63 65 6e 74 29 2f 32 3b  |(200-percent)/2;|
00003200  2a 2f 0a 69 6e 74 20 78  65 72 72 6f 72 2c 78 3b  |*/.int xerror,x;|
00003210  0a 0a 0a 20 20 20 20 20  20 75 6e 73 69 67 6e 65  |...      unsigne|
00003220  64 20 69 6e 74 20 73 63  72 70 74 72 3d 73 63 72  |d int scrptr=scr|
00003230  65 65 6e 79 2a 33 32 30  2b 73 63 72 65 65 6e 78  |eeny*320+screenx|
00003240  3b 0a 20 20 20 20 20 20  75 6e 73 69 67 6e 65 64  |;.      unsigned|
00003250  20 69 6e 74 20 62 69 74  70 74 72 3d 30 3b 0a 0a  | int bitptr=0;..|
00003260  20 20 20 20 20 20 69 6e  74 20 79 3b 0a 75 6e 73  |      int y;.uns|
00003270  69 67 6e 65 64 20 69 6e  74 20 6f 6c 64 5f 73 63  |igned int old_sc|
00003280  72 70 74 72 3b 0a 75 6e  73 69 67 6e 65 64 20 69  |rptr;.unsigned i|
00003290  6e 74 20 6f 6c 64 5f 62  69 74 70 74 72 3b 0a 20  |nt old_bitptr;. |
000032a0  20 20 20 20 20 66 6f 72  20 28 79 3d 30 3b 20 79  |     for (y=0; y|
000032b0  3c 68 65 69 67 68 74 3b  20 79 2b 2b 29 20 7b 0a  |<height; y++) {.|
000032c0  0a 0a 0a 20 20 20 20 20  20 20 20 79 65 72 72 6f  |...        yerro|
000032d0  72 2b 3d 70 65 72 63 65  6e 74 3b 0a 0a 0a 0a 20  |r+=percent;.... |
000032e0  20 20 20 20 20 20 20 77  68 69 6c 65 20 28 79 65  |       while (ye|
000032f0  72 72 6f 72 3e 31 30 30  29 20 7b 0a 0a 0a 0a 20  |rror>100) {.... |
00003300  20 20 20 20 20 20 20 20  20 79 65 72 72 6f 72 2d  |         yerror-|
00003310  3d 31 30 30 3b 0a 0a 0a  20 20 20 20 20 20 20 20  |=100;...        |
00003320  6f 6c 64 5f 73 63 72 70  74 72 3d 73 63 72 70 74  |old_scrptr=scrpt|
00003330  72 3b 0a 0a 0a 0a 20 20  20 20 20 20 20 20 20 6f  |r;....         o|
00003340  6c 64 5f 62 69 74 70 74  72 3d 62 69 74 70 74 72  |ld_bitptr=bitptr|
00003350  3b 0a 0a 0a 0a 20 20 20  20 20 20 20 20 20 20 20  |;....           |
00003360  78 65 72 72 6f 72 3d 30  3b 0a 0a 0a 0a 20 20 20  |xerror=0;....   |
00003370  20 20 20 20 20 20 20 66  6f 72 20 28 20 78 3d 30  |       for ( x=0|
00003380  3b 20 78 3c 77 69 64 74  68 3b 20 78 2b 2b 29 20  |; x<width; x++) |
00003390  7b 0a 0a 0a 20 20 20 20  20 20 20 20 20 20 20 20  |{...            |
000033a0  78 65 72 72 6f 72 2b 3d  70 65 72 63 65 6e 74 3b  |xerror+=percent;|
000033b0  0a 0a 0a 20 20 20 20 20  20 20 20 20 20 20 20 77  |...            w|
000033c0  68 69 6c 65 20 28 78 65  72 72 6f 72 3e 31 30 30  |hile (xerror>100|
000033d0  29 20 7b 0a 0a 0a 0a 20  20 20 20 20 20 20 20 20  |) {....         |
000033e0  20 20 20 20 20 78 65 72  72 6f 72 2d 3d 31 30 30  |     xerror-=100|
000033f0  3b 0a 0a 0a 0a 20 20 20  20 20 20 20 20 20 20 20  |;....           |
00003400  20 20 20 73 63 72 65 65  6e 5b 73 63 72 70 74 72  |   screen[scrptr|
00003410  5d 3d 62 69 74 6d 61 70  5b 62 69 74 70 74 72 5d  |]=bitmap[bitptr]|
00003420  3b 0a 0a 0a 20 20 20 20  20 20 20 20 20 20 20 20  |;...            |
00003430  20 20 73 63 72 70 74 72  2b 2b 3b 0a 20 20 20 20  |  scrptr++;.    |
00003440  20 20 20 20 20 20 20 20  7d 0a 0a 0a 20 20 20 20  |        }...    |
00003450  20 20 20 20 20 20 20 20  62 69 74 70 74 72 2b 2b  |        bitptr++|
00003460  3b 0a 20 20 20 20 20 20  20 20 20 20 7d 0a 0a 0a  |;.          }...|
00003470  0a 20 20 20 20 20 20 20  20 20 20 73 63 72 70 74  |.          scrpt|
00003480  72 3d 6f 6c 64 5f 73 63  72 70 74 72 2b 33 32 30  |r=old_scrptr+320|
00003490  3b 0a 0a 0a 0a 20 20 20  20 20 20 20 20 20 20 62  |;....          b|
000034a0  69 74 70 74 72 3d 6f 6c  64 5f 62 69 74 70 74 72  |itptr=old_bitptr|
000034b0  3b 0a 20 20 20 20 20 20  20 20 7d 0a 0a 0a 0a 20  |;.        }.... |
000034c0  20 20 20 20 20 20 20 62  69 74 70 74 72 2b 3d 77  |       bitptr+=w|
000034d0  69 64 74 68 3b 0a 20 20  20 20 20 20 7d 0a 0a 0a  |idth;.      }...|
000034e0  0a 20 20 20 20 7d 0a 0a                           |.    }..|
000034e8