� >ULTRALINE3
� (c) JAN VLIETINCK
� vlietin@intec.rug.ac.be
(�13:� �:�:� " at line"�:�
2	�line
3	�main
4�
<
F� �main
P*POINTER
Zȗ �
dȗ ȓ 0,0,1024,1024
n�:� 28,32,31,39,0
x6� �0,7) " CLIPPED":� " LINES":� " PER":� " SECOND"
�	� set
��
��=0
�� random
�T=�
�%� �0,12) " ="+�(�(1000000/T))+" "
�� 0
��
�
�� �line
�
� Q% 8000
�Q%=16*(Q%�16)+16
�
�� DITABLE 320*4

P%=DITABLE+4

� I=1 � 320


[OPT 0

"EQUD (2^30/I)<<2

,]

6�

7

J� DITABLE2 1024*4

TP%=DITABLE2+4

^� I=1 � 1024

h
[OPT 0

rEQUD (2^20/I)

|]

��

�

�;X1=0:Y1=1:X2=2:Y2=3:XL=6:XR=7:YB=8:YT=9:DT=10:S=11:T=12

�&LL=0:RR=1:A=2:B=3:C=4:O=5:D=6:CT=7

�F=5:TEL=6:TEL2=7

�

�� P=0 � 2 � 2

�	P%=Q%

�
[OPT P

�N\-------------------------------------------------------------------------

�.ran EQUD �

�.nr EQUD 10000
.random
STMFD R13!,{R14}
&
LDR F,ran
0MOV TEL2,#100
:
.box_loop
DSWI "OS_Mouse"
NRSB 0,0,#1024
XRSB 1,1,#1024
bMOV 2,1,LSR #3
lRSB 3,2,#256
vMOV 0,0,LSR #3
�RSB 1,0,#256
�
ADR T,BOX
�STMIA T,{0,1,2,3}
�MOV TEL,#100
�	.loop
�%ADD F,F,F,LSL #8:MOV X1,F,LSR #24
�%ADD F,F,F,LSL #8:MOV Y1,F,LSR #24
�%ADD F,F,F,LSL #8:MOV X2,F,LSR #24
�%ADD F,F,F,LSL #8:MOV Y2,F,LSR #24
�ADD C,X1,Y2
�BL line
�SUBS TEL,TEL,#1
�BNE loop
SUBS TEL2,TEL2,#1
BNE box_loop

STR F,ran
 LDMFD R13!,{PC}
*
4N\-------------------------------------------------------------------------
H.screen1 EQUD 148:EQUD -1
R.screen EQUD 0
\.DITABLED EQUD DITABLE
fN\-------------------------------------------------------------------------
p.BOX
z.XLEFT   EQUD 1
�.XRIGHT  EQUD 318
�.YBOTTOM EQUD 1
�.YTOP    EQUD 254
�.DITABLED2 EQUD DITABLE2
�.set
�:ADR R0,screen1:ADR R1,screen:SWI "OS_ReadVduVariables"
�MOV PC,R14
�N\-------------------------------------------------------------------------
�
�	.line
�STMFD 13!,{5-12}
�
ADR T,BOX
�LDMIA T,{XL,XR,YB,YT,DT}
CMP   XL,X1
CMPLE X1,XR
CMPLE YB,Y1
$CMPLE Y1,YT
.CMPLE XL,X2
8CMPLE X2,XR
BCMPLE YB,Y2
LCMPLE Y2,YT
V9BLE inside   ;� fast case lines completely inside box
`
jECMP X1,X2    ;� clip to left and right, if too left or rigth quit
t%MOVGT T,X1:MOVGT X1,X2:MOVGT X2,T
~%MOVGT T,Y1:MOVGT Y1,Y2:MOVGT Y2,T
�-CMP X2,XL:LDMLTFD 13!,{5-12}:MOVLT PC,R14
�-CMP X1,XR:LDMGTFD 13!,{5-12}:MOVGT PC,R14
�#SUB T,X2,X1:LDR S,[DT,T,LSL #2]
�)SUB T,Y2,Y1:MUL S,T,S:MOV S,S,ASR #10
�ICMP X1,XL:SUBLT T,XL,X1:MULLT T,S,T:ADDLT Y1,Y1,T,ASR #10:MOVLT X1,XL
�ICMP X2,XR:SUBGT T,XR,X2:MULGT T,S,T:ADDGT Y2,Y2,T,ASR #10:MOVGT X2,XR
�
�CCMP Y1,Y2    ;� clip to bottom and top, if too low or high quit
�%MOVGT T,X1:MOVGT X1,X2:MOVGT X2,T
�%MOVGT T,Y1:MOVGT Y1,Y2:MOVGT Y2,T
�-CMP Y2,YB:LDMLTFD 13!,{5-12}:MOVLT PC,R14
�-CMP Y1,YT:LDMGTFD 13!,{5-12}:MOVGT PC,R14
#SUB T,Y2,Y1:LDR S,[DT,T,LSL #2]

)SUB T,X2,X1:MUL S,T,S:MOV S,S,ASR #10
ICMP Y1,YB:SUBLT T,YB,Y1:MULLT T,S,T:ADDLT X1,X1,T,ASR #10:MOVLT Y1,YB
ICMP Y2,YT:SUBGT T,YT,Y2:MULGT T,S,T:ADDGT X2,X2,T,ASR #10:MOVGT Y2,YT
(
2+.inside    \ Line completely inside box
<ADR T,screen
FLDMIA T,{O,DT}
PRSB T,Y1,#255
ZADD T,T,T,LSL #2
dADD T,X1,T,LSL #6
n
ADD O,O,T
xSUB A,X2,X1
�SUB B,Y2,Y1
�
MOV LL,#1
�MOV RR,#320
�RSB RR,RR,#0
�CMP A,#0
� RSBLT A,A,#0
� RSBLT LL,LL,#0
�CMP B,#0
� RSBLT B,B,#0
� RSBLT RR,RR,#0
�CMP A,B
� MOVLT T,A
� MOVLT A,B
 MOVLT B,T
 MOVLT T,LL
 MOVLT LL,RR
" MOVLT RR,T
,STRB C,[O]
6LDR T,[DT,A,LSL #2]
@
MUL B,T,B
JMOV D,#1<<31
T
ADR T,end
^SUB T,T,A,LSL #2
hSUB PC,T,A,LSL #3
r]
|� I=1 � 321
�
[OPT 0
�KADDS D,D,B      ;� plot each pixel on the line with only 3 instructions
�ADDCS O,O,RR
�STRB C,[O,LL]!
�]
��
�
[OPT P
�.end
�LDMFD 13!,{5-12}
�MOV PC,R14
�]
��
��
�

00000000  0d 00 0a 11 f4 20 3e 55  4c 54 52 41 4c 49 4e 45  |..... >ULTRALINE|
00000010  33 0d 00 14 17 f4 20 28  63 29 20 4a 41 4e 20 56  |3..... (c) JAN V|
00000020  4c 49 45 54 49 4e 43 4b  0d 00 1e 1d f4 20 76 6c  |LIETINCK..... vl|
00000030  69 65 74 69 6e 40 69 6e  74 65 63 2e 72 75 67 2e  |ietin@intec.rug.|
00000040  61 63 2e 62 65 0d 00 28  1d eb 31 33 3a ee 20 85  |ac.be..(..13:. .|
00000050  3a f6 3a f1 20 22 20 61  74 20 6c 69 6e 65 22 9e  |:.:. " at line".|
00000060  3a e0 0d 00 32 09 f2 6c  69 6e 65 0d 00 33 09 f2  |:...2..line..3..|
00000070  6d 61 69 6e 0d 00 34 05  e0 0d 00 3c 04 0d 00 46  |main..4....<...F|
00000080  0b dd 20 f2 6d 61 69 6e  0d 00 50 0c 2a 50 4f 49  |.. .main..P.*POI|
00000090  4e 54 45 52 0d 00 5a 08  c8 97 20 ee 0d 00 64 17  |NTER..Z... ...d.|
000000a0  c8 97 20 c8 93 20 30 2c  30 2c 31 30 32 34 2c 31  |.. .. 0,0,1024,1|
000000b0  30 32 34 0d 00 6e 15 87  3a ef 20 32 38 2c 33 32  |024..n..:. 28,32|
000000c0  2c 33 31 2c 33 39 2c 30  0d 00 78 36 f1 20 8a 30  |,31,39,0..x6. .0|
000000d0  2c 37 29 20 22 20 43 4c  49 50 50 45 44 22 3a f1  |,7) " CLIPPED":.|
000000e0  20 22 20 4c 49 4e 45 53  22 3a f1 20 22 20 50 45  | " LINES":. " PE|
000000f0  52 22 3a f1 20 22 20 53  45 43 4f 4e 44 22 0d 00  |R":. " SECOND"..|
00000100  82 09 d6 20 73 65 74 0d  00 8c 05 f5 0d 00 96 07  |... set.........|
00000110  d1 3d 30 0d 00 a0 0c d6  20 72 61 6e 64 6f 6d 0d  |.=0..... random.|
00000120  00 aa 07 54 3d 91 0d 00  b4 25 f1 20 8a 30 2c 31  |...T=....%. .0,1|
00000130  32 29 20 22 20 3d 22 2b  c3 28 a8 28 31 30 30 30  |2) " ="+.(.(1000|
00000140  30 30 30 2f 54 29 29 2b  22 20 22 0d 00 be 07 fd  |000/T))+" ".....|
00000150  20 30 0d 00 c8 05 e1 0d  00 d2 04 0d 00 d3 0b dd  | 0..............|
00000160  20 f2 6c 69 6e 65 0d 00  dc 0d de 20 51 25 20 38  | .line..... Q% 8|
00000170  30 30 30 0d 00 e6 14 51  25 3d 31 36 2a 28 51 25  |000....Q%=16*(Q%|
00000180  81 31 36 29 2b 31 36 0d  00 f0 04 0d 00 fa 13 de  |.16)+16.........|
00000190  20 44 49 54 41 42 4c 45  20 33 32 30 2a 34 0d 01  | DITABLE 320*4..|
000001a0  04 10 50 25 3d 44 49 54  41 42 4c 45 2b 34 0d 01  |..P%=DITABLE+4..|
000001b0  0e 0f e3 20 49 3d 31 20  b8 20 33 32 30 0d 01 18  |... I=1 . 320...|
000001c0  0a 5b 4f 50 54 20 30 0d  01 22 14 45 51 55 44 20  |.[OPT 0..".EQUD |
000001d0  28 32 5e 33 30 2f 49 29  3c 3c 32 0d 01 2c 05 5d  |(2^30/I)<<2..,.]|
000001e0  0d 01 36 05 ed 0d 01 37  04 0d 01 4a 15 de 20 44  |..6....7...J.. D|
000001f0  49 54 41 42 4c 45 32 20  31 30 32 34 2a 34 0d 01  |ITABLE2 1024*4..|
00000200  54 11 50 25 3d 44 49 54  41 42 4c 45 32 2b 34 0d  |T.P%=DITABLE2+4.|
00000210  01 5e 10 e3 20 49 3d 31  20 b8 20 31 30 32 34 0d  |.^.. I=1 . 1024.|
00000220  01 68 0a 5b 4f 50 54 20  30 0d 01 72 11 45 51 55  |.h.[OPT 0..r.EQU|
00000230  44 20 28 32 5e 32 30 2f  49 29 0d 01 7c 05 5d 0d  |D (2^20/I)..|.].|
00000240  01 86 05 ed 0d 01 90 04  0d 01 a4 3b 58 31 3d 30  |...........;X1=0|
00000250  3a 59 31 3d 31 3a 58 32  3d 32 3a 59 32 3d 33 3a  |:Y1=1:X2=2:Y2=3:|
00000260  58 4c 3d 36 3a 58 52 3d  37 3a 59 42 3d 38 3a 59  |XL=6:XR=7:YB=8:Y|
00000270  54 3d 39 3a 44 54 3d 31  30 3a 53 3d 31 31 3a 54  |T=9:DT=10:S=11:T|
00000280  3d 31 32 0d 01 ae 26 4c  4c 3d 30 3a 52 52 3d 31  |=12...&LL=0:RR=1|
00000290  3a 41 3d 32 3a 42 3d 33  3a 43 3d 34 3a 4f 3d 35  |:A=2:B=3:C=4:O=5|
000002a0  3a 44 3d 36 3a 43 54 3d  37 0d 01 b8 14 46 3d 35  |:D=6:CT=7....F=5|
000002b0  3a 54 45 4c 3d 36 3a 54  45 4c 32 3d 37 0d 01 c2  |:TEL=6:TEL2=7...|
000002c0  04 0d 01 cc 11 e3 20 50  3d 30 20 b8 20 32 20 88  |...... P=0 . 2 .|
000002d0  20 32 0d 01 d6 09 50 25  3d 51 25 0d 01 e0 0a 5b  | 2....P%=Q%....[|
000002e0  4f 50 54 20 50 0d 01 ea  4e 5c 2d 2d 2d 2d 2d 2d  |OPT P...N\------|
000002f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000330  2d 2d 2d 0d 01 f4 0f 2e  72 61 6e 20 45 51 55 44  |---.....ran EQUD|
00000340  20 b3 0d 01 fe 12 2e 6e  72 20 45 51 55 44 20 31  | ......nr EQUD 1|
00000350  30 30 30 30 0d 02 12 0b  2e 72 61 6e 64 6f 6d 0d  |0000.....random.|
00000360  02 1c 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
00000370  31 34 7d 0d 02 26 0d 4c  44 52 20 46 2c 72 61 6e  |14}..&.LDR F,ran|
00000380  0d 02 30 11 4d 4f 56 20  54 45 4c 32 2c 23 31 30  |..0.MOV TEL2,#10|
00000390  30 0d 02 3a 0d 2e 62 6f  78 5f 6c 6f 6f 70 0d 02  |0..:..box_loop..|
000003a0  44 12 53 57 49 20 22 4f  53 5f 4d 6f 75 73 65 22  |D.SWI "OS_Mouse"|
000003b0  0d 02 4e 11 52 53 42 20  30 2c 30 2c 23 31 30 32  |..N.RSB 0,0,#102|
000003c0  34 0d 02 58 11 52 53 42  20 31 2c 31 2c 23 31 30  |4..X.RSB 1,1,#10|
000003d0  32 34 0d 02 62 12 4d 4f  56 20 32 2c 31 2c 4c 53  |24..b.MOV 2,1,LS|
000003e0  52 20 23 33 0d 02 6c 10  52 53 42 20 33 2c 32 2c  |R #3..l.RSB 3,2,|
000003f0  23 32 35 36 0d 02 76 12  4d 4f 56 20 30 2c 30 2c  |#256..v.MOV 0,0,|
00000400  4c 53 52 20 23 33 0d 02  80 10 52 53 42 20 31 2c  |LSR #3....RSB 1,|
00000410  30 2c 23 32 35 36 0d 02  8a 0d 41 44 52 20 54 2c  |0,#256....ADR T,|
00000420  42 4f 58 0d 02 94 15 53  54 4d 49 41 20 54 2c 7b  |BOX....STMIA T,{|
00000430  30 2c 31 2c 32 2c 33 7d  0d 02 9e 10 4d 4f 56 20  |0,1,2,3}....MOV |
00000440  54 45 4c 2c 23 31 30 30  0d 02 a8 09 2e 6c 6f 6f  |TEL,#100.....loo|
00000450  70 0d 02 b2 25 41 44 44  20 46 2c 46 2c 46 2c 4c  |p...%ADD F,F,F,L|
00000460  53 4c 20 23 38 3a 4d 4f  56 20 58 31 2c 46 2c 4c  |SL #8:MOV X1,F,L|
00000470  53 52 20 23 32 34 0d 02  bc 25 41 44 44 20 46 2c  |SR #24...%ADD F,|
00000480  46 2c 46 2c 4c 53 4c 20  23 38 3a 4d 4f 56 20 59  |F,F,LSL #8:MOV Y|
00000490  31 2c 46 2c 4c 53 52 20  23 32 34 0d 02 c6 25 41  |1,F,LSR #24...%A|
000004a0  44 44 20 46 2c 46 2c 46  2c 4c 53 4c 20 23 38 3a  |DD F,F,F,LSL #8:|
000004b0  4d 4f 56 20 58 32 2c 46  2c 4c 53 52 20 23 32 34  |MOV X2,F,LSR #24|
000004c0  0d 02 d0 25 41 44 44 20  46 2c 46 2c 46 2c 4c 53  |...%ADD F,F,F,LS|
000004d0  4c 20 23 38 3a 4d 4f 56  20 59 32 2c 46 2c 4c 53  |L #8:MOV Y2,F,LS|
000004e0  52 20 23 32 34 0d 02 da  0f 41 44 44 20 43 2c 58  |R #24....ADD C,X|
000004f0  31 2c 59 32 0d 02 e4 0b  42 4c 20 6c 69 6e 65 0d  |1,Y2....BL line.|
00000500  02 ee 13 53 55 42 53 20  54 45 4c 2c 54 45 4c 2c  |...SUBS TEL,TEL,|
00000510  23 31 0d 02 f8 0c 42 4e  45 20 6c 6f 6f 70 0d 03  |#1....BNE loop..|
00000520  02 15 53 55 42 53 20 54  45 4c 32 2c 54 45 4c 32  |..SUBS TEL2,TEL2|
00000530  2c 23 31 0d 03 0c 10 42  4e 45 20 62 6f 78 5f 6c  |,#1....BNE box_l|
00000540  6f 6f 70 0d 03 16 0d 53  54 52 20 46 2c 72 61 6e  |oop....STR F,ran|
00000550  0d 03 20 13 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.. .LDMFD R13!,{|
00000560  50 43 7d 0d 03 2a 04 0d  03 34 4e 5c 2d 2d 2d 2d  |PC}..*...4N\----|
00000570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005b0  2d 2d 2d 2d 2d 0d 03 48  1d 2e 73 63 72 65 65 6e  |-----..H..screen|
000005c0  31 20 45 51 55 44 20 31  34 38 3a 45 51 55 44 20  |1 EQUD 148:EQUD |
000005d0  2d 31 0d 03 52 12 2e 73  63 72 65 65 6e 20 45 51  |-1..R..screen EQ|
000005e0  55 44 20 30 0d 03 5c 1a  2e 44 49 54 41 42 4c 45  |UD 0..\..DITABLE|
000005f0  44 20 45 51 55 44 20 44  49 54 41 42 4c 45 0d 03  |D EQUD DITABLE..|
00000600  66 4e 5c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |fN\-------------|
00000610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 03 70 08  |------------..p.|
00000650  2e 42 4f 58 0d 03 7a 13  2e 58 4c 45 46 54 20 20  |.BOX..z..XLEFT  |
00000660  20 45 51 55 44 20 31 0d  03 84 15 2e 58 52 49 47  | EQUD 1.....XRIG|
00000670  48 54 20 20 45 51 55 44  20 33 31 38 0d 03 8e 13  |HT  EQUD 318....|
00000680  2e 59 42 4f 54 54 4f 4d  20 45 51 55 44 20 31 0d  |.YBOTTOM EQUD 1.|
00000690  03 98 15 2e 59 54 4f 50  20 20 20 20 45 51 55 44  |....YTOP    EQUD|
000006a0  20 32 35 34 0d 03 a2 1c  2e 44 49 54 41 42 4c 45  | 254.....DITABLE|
000006b0  44 32 20 45 51 55 44 20  44 49 54 41 42 4c 45 32  |D2 EQUD DITABLE2|
000006c0  0d 03 ac 08 2e 73 65 74  0d 03 b6 3a 41 44 52 20  |.....set...:ADR |
000006d0  52 30 2c 73 63 72 65 65  6e 31 3a 41 44 52 20 52  |R0,screen1:ADR R|
000006e0  31 2c 73 63 72 65 65 6e  3a 53 57 49 20 22 4f 53  |1,screen:SWI "OS|
000006f0  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00000700  73 22 0d 03 c0 0e 4d 4f  56 20 50 43 2c 52 31 34  |s"....MOV PC,R14|
00000710  0d 03 ca 4e 5c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...N\-----------|
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 03  |--------------..|
00000760  d4 04 0d 03 de 09 2e 6c  69 6e 65 0d 03 e8 14 53  |.......line....S|
00000770  54 4d 46 44 20 31 33 21  2c 7b 35 2d 31 32 7d 0d  |TMFD 13!,{5-12}.|
00000780  03 f2 0d 41 44 52 20 54  2c 42 4f 58 0d 03 fc 1c  |...ADR T,BOX....|
00000790  4c 44 4d 49 41 20 54 2c  7b 58 4c 2c 58 52 2c 59  |LDMIA T,{XL,XR,Y|
000007a0  42 2c 59 54 2c 44 54 7d  0d 04 06 0f 43 4d 50 20  |B,YT,DT}....CMP |
000007b0  20 20 58 4c 2c 58 31 0d  04 10 0f 43 4d 50 4c 45  |  XL,X1....CMPLE|
000007c0  20 58 31 2c 58 52 0d 04  1a 0f 43 4d 50 4c 45 20  | X1,XR....CMPLE |
000007d0  59 42 2c 59 31 0d 04 24  0f 43 4d 50 4c 45 20 59  |YB,Y1..$.CMPLE Y|
000007e0  31 2c 59 54 0d 04 2e 0f  43 4d 50 4c 45 20 58 4c  |1,YT....CMPLE XL|
000007f0  2c 58 32 0d 04 38 0f 43  4d 50 4c 45 20 58 32 2c  |,X2..8.CMPLE X2,|
00000800  58 52 0d 04 42 0f 43 4d  50 4c 45 20 59 42 2c 59  |XR..B.CMPLE YB,Y|
00000810  32 0d 04 4c 0f 43 4d 50  4c 45 20 59 32 2c 59 54  |2..L.CMPLE Y2,YT|
00000820  0d 04 56 39 42 4c 45 20  69 6e 73 69 64 65 20 20  |..V9BLE inside  |
00000830  20 3b f4 20 66 61 73 74  20 63 61 73 65 20 6c 69  | ;. fast case li|
00000840  6e 65 73 20 63 6f 6d 70  6c 65 74 65 6c 79 20 69  |nes completely i|
00000850  6e 73 69 64 65 20 62 6f  78 0d 04 60 04 0d 04 6a  |nside box..`...j|
00000860  45 43 4d 50 20 58 31 2c  58 32 20 20 20 20 3b f4  |ECMP X1,X2    ;.|
00000870  20 63 6c 69 70 20 74 6f  20 6c 65 66 74 20 61 6e  | clip to left an|
00000880  64 20 72 69 67 68 74 2c  20 69 66 20 74 6f 6f 20  |d right, if too |
00000890  6c 65 66 74 20 6f 72 20  72 69 67 74 68 20 71 75  |left or rigth qu|
000008a0  69 74 0d 04 74 25 4d 4f  56 47 54 20 54 2c 58 31  |it..t%MOVGT T,X1|
000008b0  3a 4d 4f 56 47 54 20 58  31 2c 58 32 3a 4d 4f 56  |:MOVGT X1,X2:MOV|
000008c0  47 54 20 58 32 2c 54 0d  04 7e 25 4d 4f 56 47 54  |GT X2,T..~%MOVGT|
000008d0  20 54 2c 59 31 3a 4d 4f  56 47 54 20 59 31 2c 59  | T,Y1:MOVGT Y1,Y|
000008e0  32 3a 4d 4f 56 47 54 20  59 32 2c 54 0d 04 88 2d  |2:MOVGT Y2,T...-|
000008f0  43 4d 50 20 58 32 2c 58  4c 3a 4c 44 4d 4c 54 46  |CMP X2,XL:LDMLTF|
00000900  44 20 31 33 21 2c 7b 35  2d 31 32 7d 3a 4d 4f 56  |D 13!,{5-12}:MOV|
00000910  4c 54 20 50 43 2c 52 31  34 0d 04 92 2d 43 4d 50  |LT PC,R14...-CMP|
00000920  20 58 31 2c 58 52 3a 4c  44 4d 47 54 46 44 20 31  | X1,XR:LDMGTFD 1|
00000930  33 21 2c 7b 35 2d 31 32  7d 3a 4d 4f 56 47 54 20  |3!,{5-12}:MOVGT |
00000940  50 43 2c 52 31 34 0d 04  9c 23 53 55 42 20 54 2c  |PC,R14...#SUB T,|
00000950  58 32 2c 58 31 3a 4c 44  52 20 53 2c 5b 44 54 2c  |X2,X1:LDR S,[DT,|
00000960  54 2c 4c 53 4c 20 23 32  5d 0d 04 a6 29 53 55 42  |T,LSL #2]...)SUB|
00000970  20 54 2c 59 32 2c 59 31  3a 4d 55 4c 20 53 2c 54  | T,Y2,Y1:MUL S,T|
00000980  2c 53 3a 4d 4f 56 20 53  2c 53 2c 41 53 52 20 23  |,S:MOV S,S,ASR #|
00000990  31 30 0d 04 b0 49 43 4d  50 20 58 31 2c 58 4c 3a  |10...ICMP X1,XL:|
000009a0  53 55 42 4c 54 20 54 2c  58 4c 2c 58 31 3a 4d 55  |SUBLT T,XL,X1:MU|
000009b0  4c 4c 54 20 54 2c 53 2c  54 3a 41 44 44 4c 54 20  |LLT T,S,T:ADDLT |
000009c0  59 31 2c 59 31 2c 54 2c  41 53 52 20 23 31 30 3a  |Y1,Y1,T,ASR #10:|
000009d0  4d 4f 56 4c 54 20 58 31  2c 58 4c 0d 04 ba 49 43  |MOVLT X1,XL...IC|
000009e0  4d 50 20 58 32 2c 58 52  3a 53 55 42 47 54 20 54  |MP X2,XR:SUBGT T|
000009f0  2c 58 52 2c 58 32 3a 4d  55 4c 47 54 20 54 2c 53  |,XR,X2:MULGT T,S|
00000a00  2c 54 3a 41 44 44 47 54  20 59 32 2c 59 32 2c 54  |,T:ADDGT Y2,Y2,T|
00000a10  2c 41 53 52 20 23 31 30  3a 4d 4f 56 47 54 20 58  |,ASR #10:MOVGT X|
00000a20  32 2c 58 52 0d 04 c4 04  0d 04 ce 43 43 4d 50 20  |2,XR.......CCMP |
00000a30  59 31 2c 59 32 20 20 20  20 3b f4 20 63 6c 69 70  |Y1,Y2    ;. clip|
00000a40  20 74 6f 20 62 6f 74 74  6f 6d 20 61 6e 64 20 74  | to bottom and t|
00000a50  6f 70 2c 20 69 66 20 74  6f 6f 20 6c 6f 77 20 6f  |op, if too low o|
00000a60  72 20 68 69 67 68 20 71  75 69 74 0d 04 d8 25 4d  |r high quit...%M|
00000a70  4f 56 47 54 20 54 2c 58  31 3a 4d 4f 56 47 54 20  |OVGT T,X1:MOVGT |
00000a80  58 31 2c 58 32 3a 4d 4f  56 47 54 20 58 32 2c 54  |X1,X2:MOVGT X2,T|
00000a90  0d 04 e2 25 4d 4f 56 47  54 20 54 2c 59 31 3a 4d  |...%MOVGT T,Y1:M|
00000aa0  4f 56 47 54 20 59 31 2c  59 32 3a 4d 4f 56 47 54  |OVGT Y1,Y2:MOVGT|
00000ab0  20 59 32 2c 54 0d 04 ec  2d 43 4d 50 20 59 32 2c  | Y2,T...-CMP Y2,|
00000ac0  59 42 3a 4c 44 4d 4c 54  46 44 20 31 33 21 2c 7b  |YB:LDMLTFD 13!,{|
00000ad0  35 2d 31 32 7d 3a 4d 4f  56 4c 54 20 50 43 2c 52  |5-12}:MOVLT PC,R|
00000ae0  31 34 0d 04 f6 2d 43 4d  50 20 59 31 2c 59 54 3a  |14...-CMP Y1,YT:|
00000af0  4c 44 4d 47 54 46 44 20  31 33 21 2c 7b 35 2d 31  |LDMGTFD 13!,{5-1|
00000b00  32 7d 3a 4d 4f 56 47 54  20 50 43 2c 52 31 34 0d  |2}:MOVGT PC,R14.|
00000b10  05 00 23 53 55 42 20 54  2c 59 32 2c 59 31 3a 4c  |..#SUB T,Y2,Y1:L|
00000b20  44 52 20 53 2c 5b 44 54  2c 54 2c 4c 53 4c 20 23  |DR S,[DT,T,LSL #|
00000b30  32 5d 0d 05 0a 29 53 55  42 20 54 2c 58 32 2c 58  |2]...)SUB T,X2,X|
00000b40  31 3a 4d 55 4c 20 53 2c  54 2c 53 3a 4d 4f 56 20  |1:MUL S,T,S:MOV |
00000b50  53 2c 53 2c 41 53 52 20  23 31 30 0d 05 14 49 43  |S,S,ASR #10...IC|
00000b60  4d 50 20 59 31 2c 59 42  3a 53 55 42 4c 54 20 54  |MP Y1,YB:SUBLT T|
00000b70  2c 59 42 2c 59 31 3a 4d  55 4c 4c 54 20 54 2c 53  |,YB,Y1:MULLT T,S|
00000b80  2c 54 3a 41 44 44 4c 54  20 58 31 2c 58 31 2c 54  |,T:ADDLT X1,X1,T|
00000b90  2c 41 53 52 20 23 31 30  3a 4d 4f 56 4c 54 20 59  |,ASR #10:MOVLT Y|
00000ba0  31 2c 59 42 0d 05 1e 49  43 4d 50 20 59 32 2c 59  |1,YB...ICMP Y2,Y|
00000bb0  54 3a 53 55 42 47 54 20  54 2c 59 54 2c 59 32 3a  |T:SUBGT T,YT,Y2:|
00000bc0  4d 55 4c 47 54 20 54 2c  53 2c 54 3a 41 44 44 47  |MULGT T,S,T:ADDG|
00000bd0  54 20 58 32 2c 58 32 2c  54 2c 41 53 52 20 23 31  |T X2,X2,T,ASR #1|
00000be0  30 3a 4d 4f 56 47 54 20  59 32 2c 59 54 0d 05 28  |0:MOVGT Y2,YT..(|
00000bf0  04 0d 05 32 2b 2e 69 6e  73 69 64 65 20 20 20 20  |...2+.inside    |
00000c00  5c 20 4c 69 6e 65 20 63  6f 6d 70 6c 65 74 65 6c  |\ Line completel|
00000c10  79 20 69 6e 73 69 64 65  20 62 6f 78 0d 05 3c 10  |y inside box..<.|
00000c20  41 44 52 20 54 2c 73 63  72 65 65 6e 0d 05 46 12  |ADR T,screen..F.|
00000c30  4c 44 4d 49 41 20 54 2c  7b 4f 2c 44 54 7d 0d 05  |LDMIA T,{O,DT}..|
00000c40  50 11 52 53 42 20 54 2c  59 31 2c 23 32 35 35 0d  |P.RSB T,Y1,#255.|
00000c50  05 5a 14 41 44 44 20 54  2c 54 2c 54 2c 4c 53 4c  |.Z.ADD T,T,T,LSL|
00000c60  20 23 32 0d 05 64 15 41  44 44 20 54 2c 58 31 2c  | #2..d.ADD T,X1,|
00000c70  54 2c 4c 53 4c 20 23 36  0d 05 6e 0d 41 44 44 20  |T,LSL #6..n.ADD |
00000c80  4f 2c 4f 2c 54 0d 05 78  0f 53 55 42 20 41 2c 58  |O,O,T..x.SUB A,X|
00000c90  32 2c 58 31 0d 05 82 0f  53 55 42 20 42 2c 59 32  |2,X1....SUB B,Y2|
00000ca0  2c 59 31 0d 05 8c 0d 4d  4f 56 20 4c 4c 2c 23 31  |,Y1....MOV LL,#1|
00000cb0  0d 05 96 0f 4d 4f 56 20  52 52 2c 23 33 32 30 0d  |....MOV RR,#320.|
00000cc0  05 a0 10 52 53 42 20 52  52 2c 52 52 2c 23 30 0d  |...RSB RR,RR,#0.|
00000cd0  05 aa 0c 43 4d 50 20 41  2c 23 30 0d 05 b4 11 20  |...CMP A,#0.... |
00000ce0  52 53 42 4c 54 20 41 2c  41 2c 23 30 0d 05 be 13  |RSBLT A,A,#0....|
00000cf0  20 52 53 42 4c 54 20 4c  4c 2c 4c 4c 2c 23 30 0d  | RSBLT LL,LL,#0.|
00000d00  05 c8 0c 43 4d 50 20 42  2c 23 30 0d 05 d2 11 20  |...CMP B,#0.... |
00000d10  52 53 42 4c 54 20 42 2c  42 2c 23 30 0d 05 dc 13  |RSBLT B,B,#0....|
00000d20  20 52 53 42 4c 54 20 52  52 2c 52 52 2c 23 30 0d  | RSBLT RR,RR,#0.|
00000d30  05 e6 0b 43 4d 50 20 41  2c 42 0d 05 f0 0e 20 4d  |...CMP A,B.... M|
00000d40  4f 56 4c 54 20 54 2c 41  0d 05 fa 0e 20 4d 4f 56  |OVLT T,A.... MOV|
00000d50  4c 54 20 41 2c 42 0d 06  04 0e 20 4d 4f 56 4c 54  |LT A,B.... MOVLT|
00000d60  20 42 2c 54 0d 06 0e 0f  20 4d 4f 56 4c 54 20 54  | B,T.... MOVLT T|
00000d70  2c 4c 4c 0d 06 18 10 20  4d 4f 56 4c 54 20 4c 4c  |,LL.... MOVLT LL|
00000d80  2c 52 52 0d 06 22 0f 20  4d 4f 56 4c 54 20 52 52  |,RR..". MOVLT RR|
00000d90  2c 54 0d 06 2c 0e 53 54  52 42 20 43 2c 5b 4f 5d  |,T..,.STRB C,[O]|
00000da0  0d 06 36 17 4c 44 52 20  54 2c 5b 44 54 2c 41 2c  |..6.LDR T,[DT,A,|
00000db0  4c 53 4c 20 23 32 5d 0d  06 40 0d 4d 55 4c 20 42  |LSL #2]..@.MUL B|
00000dc0  2c 54 2c 42 0d 06 4a 10  4d 4f 56 20 44 2c 23 31  |,T,B..J.MOV D,#1|
00000dd0  3c 3c 33 31 0d 06 54 0d  41 44 52 20 54 2c 65 6e  |<<31..T.ADR T,en|
00000de0  64 0d 06 5e 14 53 55 42  20 54 2c 54 2c 41 2c 4c  |d..^.SUB T,T,A,L|
00000df0  53 4c 20 23 32 0d 06 68  15 53 55 42 20 50 43 2c  |SL #2..h.SUB PC,|
00000e00  54 2c 41 2c 4c 53 4c 20  23 33 0d 06 72 05 5d 0d  |T,A,LSL #3..r.].|
00000e10  06 7c 0f e3 20 49 3d 31  20 b8 20 33 32 31 0d 06  |.|.. I=1 . 321..|
00000e20  86 0a 5b 4f 50 54 20 30  0d 06 90 4b 41 44 44 53  |..[OPT 0...KADDS|
00000e30  20 44 2c 44 2c 42 20 20  20 20 20 20 3b f4 20 70  | D,D,B      ;. p|
00000e40  6c 6f 74 20 65 61 63 68  20 70 69 78 65 6c 20 6f  |lot each pixel o|
00000e50  6e 20 74 68 65 20 6c 69  6e 65 20 77 69 74 68 20  |n the line with |
00000e60  6f 6e 6c 79 20 33 20 69  6e 73 74 72 75 63 74 69  |only 3 instructi|
00000e70  6f 6e 73 0d 06 9a 10 41  44 44 43 53 20 4f 2c 4f  |ons....ADDCS O,O|
00000e80  2c 52 52 0d 06 a4 12 53  54 52 42 20 43 2c 5b 4f  |,RR....STRB C,[O|
00000e90  2c 4c 4c 5d 21 0d 06 ae  05 5d 0d 06 b8 05 ed 0d  |,LL]!....]......|
00000ea0  06 c2 0a 5b 4f 50 54 20  50 0d 06 cc 08 2e 65 6e  |...[OPT P.....en|
00000eb0  64 0d 06 d6 14 4c 44 4d  46 44 20 31 33 21 2c 7b  |d....LDMFD 13!,{|
00000ec0  35 2d 31 32 7d 0d 06 e0  0e 4d 4f 56 20 50 43 2c  |5-12}....MOV PC,|
00000ed0  52 31 34 0d 06 ea 05 5d  0d 06 f4 05 ed 0d 06 fe  |R14....]........|
00000ee0  05 e1 0d ff                                       |....|
00000ee4