Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars » StarInfo/Vlietinck/!3dSurf/Transluc

StarInfo/Vlietinck/!3dSurf/Transluc

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars
Filename: StarInfo/Vlietinck/!3dSurf/Transluc
Read OK:
File size: 4C7D bytes
Load address: 0000
Exec address: 0000
File contents
   10REM >Transluc
   20REM (c) Jan Vlietinck
   21REM vlietin@intec.rug.ac.be
   30
   40REMON ERROR:PRINT "Error at "ERL:END
   41ON ERROR:END
   50MODE13+128:MODE 9
   60
   70NP=14
   80NV=24
   90BUT=2
  100SH=4:FIX=2^SH
  110lengte=64+16
  120DIM PUNT  NP*4*6+4
  130DIM PROJECT NP*4*2
  140DIM VLAK  NV*4*3
  150PROCass
  160PROCbuildpunt
  170PROCbuildvlak
  180PROCset_palette
  190OFF:CALL main
  200END
  210
  220DEF PROCset_palette
  230FOR N%=0 TO 3
  240COLOUR N%+8,(4*N%+3)*16,(2*N%+1)*16,0
  250COLOUR N%+12,(4*N%+3)*16,0,(2*N%+1)*16
  260NEXT
  270COLOUR 0,0,0,128
  280COLOUR 4,0,128,0
  290ENDPROC
  300
  310DEF PROCmain
  320VT=4
  330!DHXD=(-1)^RND(2)*(RND(VT*2)+VT)
  340!DHYD=(-1)^RND(2)*(RND(VT*2)+VT)
  350!DHZD=(-1)^RND(2)*(RND(VT*2)+VT)
  360!HXD=HX:!HYD=HY:!HZD=HZ
  370!TXD=0:!TYD=0:!TZD=440*16
  380FOR PASS=0 TO 2 STEP 2
  390P%=Q%
  400[OPT PASS
  410.main
  420          STMFD     13!,{14}
  430.mainloop
  440          BL        calc_rot_matrix
  450          MOV       R0,#&70
  460          MOV       R1,#2
  470          SWI       "OS_Byte"
  480          SWI       &10C
  490          BL        transform
  500          BL        set
  510          BL        drawobject
  520          BL        back_ground
  530          MOV       R0,#&13
  540          SWI       "OS_Byte"
  550          MOV       R0,#&71
  560          MOV       R1,#2
  570          SWI       "OS_Byte"
  580          
  590          BL        calc_rot_matrix
  600          MOV       R0,#&70
  610          MOV       R1,#1
  620          SWI       "OS_Byte"
  630          SWI       &10C
  640          BL        transform
  650          BL        set
  660          BL        drawobject
  670          BL        back_ground
  680          MOV       R0,#&13
  690          SWI       "OS_Byte"
  700          MOV       R0,#&71
  710          MOV       R1,#1
  720          SWI       "OS_Byte"          
  730          SWI       "OS_ReadEscapeState"
  740          BCC       mainloop
  750          LDMFD     13!,{PC}
  760          
  770]
  780NEXT
  790Q%=P%
  800ENDPROC
  810
  820
  830DEF PROCass
  840DIM Q% 130000
  850DIM INVERS 4*1024
  860DIM DITABLE 4000*16*4
  870DIM CSTABLE 4096*8
  880DIM CTABLE 100*16
  890PROCcalc_invers
  900PROCcalc_cstable
  910PROCcalc_divtable
  920PROCtransform
  930PROCconvex
  940PROCcalc_rot_matrix
  950PROCdrawobject
  960PROCmain
  970ENDPROC
  980
  990
 1000DEF PROCbuildpunt
 1010P%=PUNT
 1020L=lengte*FIX
 1030FOR I=1 TO 14
 1040READ X:READ Y:READ Z
 1050[OPT 0
 1060EQUD X*L:EQUD Y*L:EQUD Z*L
 1070]
 1080NEXT
 1090[OPT 0
 1100EQUD (1<<30)
 1110]
 1120ENDPROC
 1130
 1140DEF PROCbuildvlak
 1150P%=VLAK
 1160FOR I=1 TO NV
 1170READ P1:READ P2:READ P3
 1180P1-=1:P2-=1:P3-=1
 1190[OPT 0
 1200EQUD PROJECT+8*P1:EQUD PROJECT+8*P2:EQUD PROJECT+8*P3
 1210]
 1220NEXT
 1230ENDPROC
 1240
 1250REM 12 vertices
 1260DATA 1,1,1, -1,1,1, -1,-1,1, 1,-1,1
 1270DATA 1,1,-1, -1,1,-1, -1,-1,-1, 1,-1,-1
 1280DATA BUT,0,0, 0,BUT,0, -BUT,0,0, 0,-BUT,0, 0,0,BUT, 0,0,-BUT
 1290
 1300REM 24 facets
 1310DATA 9,1,4, 9,4,8, 9,8,5, 9,5,1
 1320DATA 10,6,2, 10,2,1, 10,1,5, 10,5,6
 1330DATA 11,6,7, 11,2,6, 11,3,2, 11,7,3
 1340DATA 12,3,7, 12,7,8, 12,8,4, 12,4,3
 1350DATA 13,1,2, 13,2,3, 13,3,4, 13,4,1
 1360DATA 14,6,5, 14,7,6, 14,8,7, 14,5,8
 1370
 1380
 1390
 1400DEF PROCcalc_invers
 1410K=2<<20
 1420FOR I=1 TO 1023:INVERS!(4*I)=K/I+.5:NEXT
 1430ENDPROC
 1440
 1450DEF PROCcalc_cstable
 1460F=2*PI/4096:V=2^15
 1470T2=CSTABLE+8*1024
 1480T3=CSTABLE+8*2048
 1490T4=CSTABLE+8*3072
 1500FOR H=0 TO 1023
 1510K=F*H
 1520CS=COS(K)*V:SN=SIN(K)*V
 1530CSTABLE!(8*H)=CS
 1540CSTABLE!(8*H+4)=SN
 1550T2!(8*H)=-SN
 1560T2!(8*H+4)=CS
 1570T3!(8*H)=-CS
 1580T3!(8*H+4)=-SN
 1590T4!(8*H)=SN
 1600T4!(8*H+4)=-CS
 1610NEXT
 1620ENDPROC
 1630
 1640DEF PROCcalc_divtable
 1650T=0:N=1:Q=2:I=3:J=4:DIT=5
 1660FOR PASS=0 TO 2 STEP 2
 1670P%=Q%
 1680[OPT PASS
 1690.DNRD EQUD 4000*16
 1700.DITH EQUD DITABLE
 1710.calc_divtable
 1720          STMFD     13!,{0-12,14}
 1730          LDR       DIT,DITH
 1740          LDR       I,DNRD
 1750.DVLOOP2
 1760          MOV       T,#200<<12
 1770          MOV       N,I
 1780          MOV       J,#0
 1790          MOV       Q,#0
 1800.DVLOOP3
 1810          CMP       N,T
 1820          MOVLO     N,N,LSL #1
 1830          ADDLO     J,J,#1
 1840          BLO       DVLOOP3
 1850          MOV       N,N,LSR J
 1860.DVLOOP1
 1870          CMP       T,N,LSL J
 1880          SUBHS     T,T,N,LSL J
 1890          ADC       Q,Q,Q
 1900          SUBS      J,J,#1
 1910          BPL       DVLOOP1
 1920          STR       Q,[DIT,I,LSL #2]
 1930          SUBS      I,I,#1
 1940          BNE       DVLOOP2
 1950          LDMFD     13!,{0-12,PC}
 1960]
 1970NEXT
 1980Q%=P%
 1990CALL calc_divtable
 2000ENDPROC
 2010
 2020DEF PROCcalc_rot_matrix
 2030CHX=0:SHX=1
 2040CHY=2:SHY=3
 2050CHZ=4:SHZ=5
 2060T=6:S=7:H=8
 2070DHX=3:DHY=4:DHZ=5
 2080HX=9:HY=10:HZ=11
 2090TX=9:TY=10:TZ=11
 2100CS=12
 2110SCR=0:COL=1
 2120FOR PASS=0 TO 2 STEP 2
 2130P%=Q%
 2140[OPT PASS
 2150.DHXD EQUD 0
 2160.DHYD EQUD 0
 2170.DHZD EQUD 0
 2180.HXD EQUD 0
 2190.HYD EQUD 0
 2200.HZD EQUD 0
 2210.CSD EQUD CSTABLE
 2220.TXD EQUD 0
 2230.TYD EQUD 0
 2240.TZD EQUD 0
 2250.calc_rot_matrix
 2260          STMFD 13!,{0-12,14}
 2270          SWI "OS_Mouse"
 2280          SUB R0,R0,#640
 2290          MOV R0,R0,LSL #3
 2300          STR R0,TXD
 2310          SUB R1,R1,#512
 2320          MOV R1,R1,LSL #3
 2330          STR R1,TYD
 2340          LDR R0,TZD
 2350          TST R2,#1
 2360          SUBEQ R0,R0,#64
 2370          TST R2,#4
 2380          ADDEQ R0,R0,#64
 2390          STR R0,TZD
 2400          ADR T,DHXD
 2410          LDMIA T,{DHX,DHY,DHZ,HX,HY,HZ,CS}
 2420          ADD DHX,DHX,HX
 2430          ADD DHY,DHY,HY
 2440          ADD DHZ,DHZ,HZ
 2450          ADD T,T,#3*4
 2460          STMIA T,{DHX,DHY,DHZ}
 2470          MOV S,#4096
 2480          SUB S,S,#1
 2490          CMP HX,#0
 2500          RSBMI HX,HX,#0
 2510          AND HX,HX,S
 2520          ADD T,CS,HX,LSL #3
 2530          LDMIA T,{CHX,SHX}
 2540          RSBMI SHX,SHX,#0
 2550          CMP HY,#0
 2560          RSBMI HY,HY,#0
 2570          AND HY,HY,S
 2580          ADD T,CS,HY,LSL #3
 2590          LDMIA T,{CHY,SHY}
 2600          RSBMI SHY,SHY,#0
 2610          CMP HZ,#0
 2620          RSBMI HZ,HZ,#0
 2630          AND HZ,HZ,S
 2640          ADD T,CS,HZ,LSL #3
 2650          LDMIA T,{CHZ,SHZ}
 2660          RSBMI SHZ,SHZ,#0
 2670          ADR T,TXD
 2680          LDMIA T,{TX,TY,TZ}
 2690          MUL T,CHY,CHZ
 2700          MOV T,T,ASR #15
 2710          MUL S,CHY,SHZ
 2720          MOV S,S,LSR #15
 2730          ADD T,S,T,LSL #16
 2740          STR T,A1D
 2750          ADD T,TX,SHY,LSL #16
 2760          STR T,A2D
 2770
 2780          MUL T,SHX,SHY
 2790          MOV T,T,ASR #15
 2800          MOV S,T
 2810          MUL H,CHX,SHZ
 2820          MLA T,CHZ,T,H
 2830          RSB T,T,#0
 2840          MOV T,T,ASR #15
 2850          MUL H,CHX,CHZ
 2860          MUL S,SHZ,S
 2870          SUB S,H,S
 2880          MOV S,S,LSR #15
 2890
 2900          ADD T,S,T,LSL #16
 2910          STR T,B1D
 2920          MUL T,SHX,CHY
 2930          MOV T,T,ASR #15
 2940          ADD T,TY,T,LSL #16
 2950          STR T,B2D
 2960          MUL T,CHX,SHY
 2970          MOV T,T,ASR #15
 2980          MOV S,T
 2990          MUL T,CHZ,T
 3000          MUL H,SHX,SHZ
 3010          SUB T,H,T
 3020          MOV T,T,ASR #15
 3030          MUL S,SHZ,S
 3040          MLA H,SHX,CHZ,S
 3050          RSB S,H,#0
 3060          MOV S,S,LSR #15
 3070          ADD T,S,T,LSL #16
 3080          STR T,C1D
 3090          MUL T,CHX,CHY
 3100          MOV T,T,ASR #15
 3110          ADD T,TZ,T,LSL #16
 3120          STR T,C2D
 3130          LDMFD 13!,{0-12,PC}
 3140]
 3150NEXT
 3160Q%=P%
 3170ENDPROC
 3180
 3190
 3200
 3210DEF PROCtransform
 3220A1=0:A2=1:B1=2:B2=3:C1=4:C2=5:T=6:DIT=7:U=8:V=9:W=10:X=10:Y=11:Z=12
 3230A=13:B=14
 3240FOR PASS=0 TO 2 STEP 2
 3250P%=Q%
 3260[OPT PASS
 3270.A1D EQUD 0:.A2D EQUD 0
 3280.B1D EQUD 0:.B2D EQUD 0
 3290.C1D EQUD 0:.C2D EQUD 0
 3300.DITD EQUD DITABLE
 3310.AD EQUD PUNT
 3320.BD EQUD PROJECT
 3330.VD EQUD 0
 3340.SP EQUD 0
 3350.LK EQUD 0
 3360
 3370
 3380.transform
 3390          STMFD     13!,{0-12,14}
 3400          STR       13,SP
 3410          ADR       T,A1D
 3420          LDMIA     T,{A1,A2,B1,B2,C1,C2,DIT,A,B}
 3430          LDMIA     (A)!,{X,Y,Z}
 3440.TRANS
 3450          MOV       T,A1,ASR #16
 3460          MUL       U,X,T
 3470          MOV       T,A1,LSL #16
 3480          MOV       T,T,ASR #16
 3490          MLA       U,Y,T,U
 3500          MOV       T,A2,ASR #16
 3510          MLA       U,Z,T,U
 3520          MOV       T,A2,LSL #16
 3530          MOV       T,T,ASR #16
 3540          ADD       U,T,U,ASR #15
 3550          MOV       T,B1,ASR #16
 3560          MUL       V,X,T
 3570          MOV       T,B1,LSL #16
 3580          MOV       T,T,ASR #16
 3590          MLA       V,Y,T,V
 3600          MOV       T,B2,ASR #16
 3610          MLA       V,Z,T,V
 3620          MOV       T,B2,LSL #16
 3630          MOV       T,T,ASR #16
 3640          ADD       V,T,V,ASR #15
 3650          MOV       T,C1,ASR #16
 3660          MUL       W,T,X
 3670          MOV       T,C1,LSL #16
 3680          MOV       T,T,ASR #16
 3690          MLA       W,Y,T,W
 3700          MOV       T,C2,ASR #16
 3710          MLA       W,Z,T,W
 3720          MOV       T,C2,LSL #16
 3730          MOV       T,T,ASR #16
 3740          ADD       W,T,W,ASR #15
 3750          LDR       W,[DIT,W,LSL #2]
 3760          MUL       U,W,U
 3770          MUL       V,W,V
 3780          MOV       U,U,ASR #12
 3790          MOV       V,V,ASR #12
 3800          ADD       U,U,#160
 3810          RSB       V,V,#128
 3820          STMIA     (B)!,{U,V}
 3830          LDMIA     (A)!,{X,Y,Z}
 3840          CMP       X,#1<<30
 3850          BNE       TRANS
 3860          LDR       13,SP
 3870          LDMFD     13!,{0-12,PC}
 3880
 3890]
 3900NEXT
 3910Q%=P%
 3920ENDPROC
 3930
 3940
 3950DEF PROCbegin
 3960SP=13:LK=14:PC=15
 3970FOR PASS=0 TO 2 STEP 2
 3980P%=Q%
 3990[OPT PASS
 4000.animate
 4010STMFD 13!,{14}
 4020]
 4030NEXT
 4040Q%=P%
 4050ENDPROC
 4060
 4070DEF PROCend
 4080FOR PASS=0 TO 2 STEP 2
 4090P%=Q%
 4100[OPT PASS
 4110SWI "OS_ReadEscapeState"
 4120LDMFD (SP)!,{PC}
 4130]
 4140NEXT
 4150Q%=P%
 4160ENDPROC
 4170
 4180
 4190DEF PROCdrawobject
 4200T=0:V=1:TAB=2:CV=3:NR=4:X1=5:Y1=6:X2=7:Y2=8:X3=9:Y3=10
 4210P1=5:P2=7:P3=9
 4220FOR PASS=0 TO 2 STEP 2
 4230P%=Q%
 4240[OPT PASS
 4250.VLAKP    EQUD VLAK
 4260.TABD     EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
 4270          EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
 4280
 4290.drawobject
 4300          STMFD     13!,{0-12,14}
 4310          LDR       V,VLAKP
 4320          MOV       CV,#NV
 4330.draw
 4340          ADR       TAB,TABD
 4350          LDMIA     (V)!,{P1,P2,P3}
 4360          LDMIA     P1,{X1,Y1}
 4370          STMIA     (TAB)!,{X1,Y1}
 4380          LDMIA     P2,{X2,Y2}
 4390          STMIA     (TAB)!,{X2,Y2}
 4400          LDMIA     P3,{X3,Y3}
 4410          STMIA     (TAB)!,{X3,Y3}
 4420          SUB       X2,X2,X1
 4430          SUB       X3,X3,X1
 4440          SUB       Y2,Y2,Y1
 4450          SUB       Y3,Y3,Y1
 4460          MUL       T,X2,Y3
 4470          RSB       T,T,#0
 4480          MLA       T,X3,Y2,T
 4490          CMP       T,#0
 4500;         BMI       nodraw
 4510          AND       T,CV,#1
 4520          MOVMI     T,T,LSL #1
 4530          BMI       drawit
 4540          CMP       T,#0
 4550          BEQ       nodraw
 4560.drawit
 4570          ORR       T,T,#8
 4590          MOV       NR,#3
 4600          ADR       TAB,TABD
 4610          BL        convex
 4620.nodraw
 4630          SUBS      CV,CV,#1
 4640          BNE       draw
 4650          LDMFD     13!,{0-12,PC}
 4660]
 4670NEXT
 4680REM
 4690Q%=P%
 4700ENDPROC
 4710
 4720DEF PROCconvex
 4730
 4740
 4750X1=0:Y1=1:X2=2:Y2=3:XL=4:XR=5:YB=6:YT=7:K1=8:K2=9:DT=10:S=11:T=12
 4760
 4770LL=0:RR=1:A=2:B=3:C=4:O=5:D=6:CT=7
 4780FOR PASS=0 TO 2 STEP 2
 4790P%=Q%
 4800[OPT PASS
 4810\-------------------------------------------------------------------------
 4820.screen1 EQUD 148:EQUD -1
 4830.screen EQUD 0
 4840.set
 4850ADR R0,screen1:ADR R1,screen:SWI "OS_ReadVduVariables"
 4860MOV PC,R14
 4870
 4880.back_col  DCD      &44444444
 4890.back_ground
 4900          STMFD     13!,{0-12,14}
 4910          
 4920          LDR       5,back_col
 4930          LDR       12,screen
 4940          MOV       7,#8
 4950.block_loop2
 4960          MOV       6,#5
 4970.block_loop1
 4980          MOV       8,#32
 4990.block_loop3
 5000          LDMIA     12,{0,1,2,3}
 5010          ORR       0,0,5
 5020          ORR       1,1,5
 5030          ORR       2,2,5
 5040          ORR       3,3,5
 5050          STMIA     12,{0,1,2,3}
 5060          ADD       12,12,#160
 5070          LDMIA     12,{0,1,2,3}
 5080          ORR       0,0,5
 5090          ORR       1,1,5
 5100          ORR       2,2,5
 5110          ORR       3,3,5
 5120          STMIA     12,{0,1,2,3}
 5130          ADD       12,12,#160
 5140          SUBS      8,8,#2
 5150          BNE       block_loop3
 5200          ADD       12,12,#32
 5210          SUB       12,12,#32*160
 5220          SUBS      6,6,#1
 5230          BNE       block_loop1
 5250          SUB       12,12,#160
 5260          ADD       12,12,#32*160
 5270          TST       7,#1
 5280          ADDEQ     12,12,#16
 5290          SUBNE     12,12,#16
 5300          SUBS      7,7,#1
 5310          BNE       block_loop2
 5320          LDMFD     13!,{0-12,PC}
 5330
 5340]
 5350NEXT
 5360Q%=P%
 5370
 5380
 5390NL=0:    :TAB=2:FREE=3:NR=4:INV=5:CO=6:   N=7:     X1=9:Y1=10:X2=11:Y2=12
 5400LE=0:RE=1:  L=2:   R=3:XL=4: XR=5:DXL=6:DXR=7: O=8:C1=9:C2=10:C3=11:C4=12
 5410PL=0:PR=1
 5420 Q=13:T=14
 5430PO=13
 5440C=4:TEL=5:F=6:X3=7:Y3=8
 5450FOR PASS=0 TO 2 STEP 2
 5460P%=Q%
 5470[OPT PASS
 5480                                                                                                                                                                                                        
 5490.kol EQUD 7+16*7
 5500.ST EQUD 0
 5510.LK EQUD 0
 5520.TABD    EQUD CTABLE
 5530.INVERSD EQUD INVERS
 5540
 5550.convex
 5560          STMFD     13!,{0-12,14}
 5570          STR       13,ST
 5580          STRB      R0,kol
 5590;         LDR       TAB,LSTAD
 5600;         LDR       NR,[TAB],#4
 5610          ADD       T,TAB,NR,LSL #3     \T wijst na source tabel
 5620          LDMDB     T,{X1,Y1}           \ (x1,y1) laatste koppel in source tabel
 5630          ADD       NR,NR,NR,LSL #1     \nr=3*n
 5640          LDR       FREE,TABD           \
 5650          ADD       FREE,FREE,NR,LSL #2 \ free wijst in midden dest. tabel
 5660          MOV       CO,NR               \ co= 3*n
 5670          MOV       RE,FREE             \ re= free
 5680          LDR       O,screen
 5690          ADD       O,O,Y1,LSL #7
 5700          ADD       O,O,Y1,LSL #5
 5710          LDR       INV,INVERSD         \ inv wijzer in tabel met inversen
 5720          LDMIA     (TAB)!,{X2,Y2}      \ (x2,y2) eerste koppel in source tabel
 5730          SUBS      N,Y2,Y1
 5740
 5750.loopb
 5760          MOVS      NL,N
 5770          RSBLT     N,N,#0
 5780          MOVLT     Y1,Y2               \y1<= y2
 5790          SUB       T,X2,X1             \t= x2-x1
 5800          RSBLT     T,T,#0              \n= y2-y1
 5810          MOVLT     X1,X2
 5820          LDR       Q,[INV,N,LSL #2]
 5830          MUL       Q,T,Q
 5840          MOV       Q,Q,ASR #9
 5850          MOV       X1,X1,LSL #12       \ x1= (x1+320y1) << 12 + q/2 +0.5
 5860          ADD       X1,X1,Q,ASR #1
 5870          ADD       X1,X1,#1<<11
 5880          STMIA     (FREE)!,{N,X1,Q}    \n= #y-intersecties x1=startpunt q=dx
 5890          SUBS      CO,CO,#3
 5900          BEQ       endl
 5910          MOV       X1,X2               \ x1=x2 y1=y2
 5920          MOV       Y1,Y2
 5930          LDMIA     (TAB)!,{X2,Y2}      \ volgende (x2,y2) koppel
 5940          SUBS      N,Y2,Y1
 5950
 5960          BMI       loopb               \branch als y-coord hoekpunten strikt dalen
 5970
 5980          TEQ       NL,N
 5990          BPL       loopb               \bracnh als stijgend en vorige ook stijgend
 6000          SUB       FREE,FREE,NR,LSL #2
 6010          MOV       RE,FREE             \RE laagst punt in dest, tabel hieronder rechter
 6020          LDR       O,screen
 6030          ADD       O,O,Y1,LSL #7
 6040          ADD       O,O,Y1,LSL #5
 6050          BAL       loopb               \RE= LE - n
 6060.endl
 6070          ADD       LE,RE,NR,LSL #2     \LE hoogst punt in dest. tabel, entries hierboven
 6080          LDRB      C1,kol
 6090          AND       C1,C1,#15
 6100          ADD       C1,C1,C1,LSL #4
 6110          ADD       C1,C1,C1,LSL #8
 6120          ADD       C1,C1,C1,LSL #16
 6130          MOV       C2,C1
 6140          MOV       C3,C1
 6150          MOV       C4,C1
 6160          MOV       R,#0
 6170          ADR       T,pointers
 6180.loop
 6190          MOV       L,R,LSR #16
 6200          BICS      R,R,L,LSL #16
 6210          LDMEQIA   (RE)!,{R,XR,DXR}
 6220          CMP       L,#0
 6230          LDMEQDB   (LE)!,{L,XL,DXL}
 6240          STMIA     T,{LE,RE}
 6250
 6260          CMP       XR,XL
 6270          CMPEQ     DXR,DXL
 6280          MOVLT     T,L
 6290          MOVLT     L,R
 6300          MOVLT     R,T
 6310          MOVLT     T,XL
 6320          MOVLT     XL,XR
 6330          MOVLT     XR,T
 6340          MOVLT     T,DXL
 6350          MOVLT     DXL,DXR
 6360          MOVLT     DXR,T
 6370
 6380          SUBS      T,L,R
 6390          RSBMI     R,T,#0
 6400          MOVPL     L,R
 6410          MOVPL     R,T,LSL #16
 6420          CMP       L,#0
 6430          BEQ       endseg
 6440          LDR       T,screen
 6450          CMP       O,T
 6460          BHS       eclip
 6470.clip
 6480          ADD       XL,XL,DXL
 6490          ADD       XR,XR,DXR
 6500          ADD       O,O,#160
 6510          SUBS      L,L,#1
 6520          BEQ       endseg
 6530          CMP       O,T
 6540          BLO       clip
 6550.eclip
 6560          ADD       T,T,#160*256
 6570          SUBS      T,T,O
 6580          BLS       endseg
 6590          ADD       L,L,L,LSL #2
 6600          CMP       L,T,LSR #5
 6610          MOVHI     L,T,LSR #5
 6620          CMP       XL,#0
 6630          MOV       PL,XL,ASR #12
 6640          MOVLT     PL,#0
 6650          ADR       PO,endspan
 6660          BAL       span
 6670          FNvulc
 6680.endspan
 6690          ADD       O,O,#160
 6700          ADDS      XL,XL,DXL
 6710          MOV       PL,XL,ASR #12
 6720          MOVLT     PL,#0
 6730          ADD       XR,XR,DXR
 6740          SUBS      L,L,#5
 6750          BEQ       endseg
 6760.span
 6770          CMP       XR,#320<<12
 6780          MOV       PR,XR,ASR #12
 6790          MOVGT     PR,#320
 6800          CMP       PR,PL
 6810          BLE       endspan
 6820          MVN       C3,#0
 6830          EOR       T,PL,PR
 6840          MOVS      T,T,LSR #3
 6850          BEQ       exep
 6860          
 6870          ANDS      T,PL,#7
 6880          BIC       PL,PL,T
 6890          ADD       PL,O,PL,LSR #1
 6900          LDMNEIA   PL,{C2}
 6910          MOV       T,T,LSL #2
 6920          MOV       T,C3,LSL T
 6930;         BIC       C2,C2,T
 6940          AND       T,C1,T
 6950          ORR       C2,C2,T
 6960          STMNEIA   (PL)!,{C2}
 6970
 6980          ANDS      T,PR,#7
 6990          BIC       PR,PR,T
 7000          ADD       PR,O,PR,LSR #1
 7010          LDMNEIA   PR,{C2}
 7020          MOV       T,T,LSL #2
 7030          MOV       T,C3,LSL T
 7040;         AND       C2,C2,T
 7050          BIC       T,C1,T
 7060          ORR       C2,C2,T
 7070          STMNEIA   PR,{C2}
 7080          
 7090          MOV       C2,C1
 7100          MOV       C3,C1
 7110          SUBS      T,PR,PL
 7120          MOVS      T,T,LSR #3
 7130          LDMCSIA   (PL),{C4}
 7140          ORR       C4,C4,C1
 7150          STMCSIA   (PL)!,{C4}
 7160
 7170          MOVS      C2,T,LSR #1
 7180          LDMCSIA   (PL),{C3,C4}
 7190          ORR       C3,C3,C1
 7200          ORR       C4,C4,C1
 7210          STMCSIA   (PL)!,{C3,C4}
 7220
 7230          ADD       C2,C2,C2,LSL #1
 7240          SUB       PC,PO,C2,LSL #3
 7250
 7260.endseg
 7270          ADR       T,pointers
 7280          LDMIA     T,{RE,LE}
 7290          CMP       RE,LE
 7300          BLO       loop
 7310          LDR       13,ST
 7320          LDMFD     13!,{0-12,PC}
 7330.exep
 7340          AND       T,PL,#7
 7350          BIC       PL,PL,T
 7360          MOV       T,T,LSL #2
 7370          MOV       C4,C3,LSL T
 7380          AND       T,PR,#7
 7390          MOV       T,T,LSL #2
 7400          MOV       T,C3,LSL T
 7410          BIC       T,C4,T
 7420          MOV       C4,C1
 7430          ADD       PL,O,PL,LSR #1
 7440          LDMIA     PL,{C2}
 7450;         BIC       C2,C2,T
 7460          AND       T,C1,T
 7470          ORR       C2,C2,T
 7480          STMIA     (PL)!,{C2}
 7490          BAL       endspan
 7500          
 7510.pointers EQUD0:EQUD 0
 7520.cotabel
 7530
 7540]
 7550NEXT
 7560Q%=P%
 7570ENDPROC
 7580
 7590
 7600DEF FNvulc
 7610FOR I=1 TO 20
 7620[OPT PASS
 7630          LDMIA     (PL),{T,C2,C3,C4}
 7640          ORR       T,T,C1
 7650          ORR       C2,C2,C1
 7660          ORR       C3,C3,C1
 7670          ORR       C4,C4,C1
 7680          STMIA     (PL)!,{T,C2,C3,C4}
 7690]
 7700NEXT
 7710=""
 7720

� >Transluc
� (c) Jan Vlietinck
� vlietin@intec.rug.ac.be

(&�ON ERROR:PRINT "Error at "ERL:END
)	� �:�
2�13+128:� 9
<
F	NP=14
P	NV=24
Z	BUT=2
dSH=4:FIX=2^SH
nlengte=64+16
x� PUNT  NP*4*6+4
�� PROJECT NP*4*2
�� VLAK  NV*4*3
��ass
��buildpunt
��buildvlak
��set_palette
��:� main
��
�
�� �set_palette
�� N%=0 � 3
�$� N%+8,(4*N%+3)*16,(2*N%+1)*16,0
�%� N%+12,(4*N%+3)*16,0,(2*N%+1)*16
�
� 0,0,0,128
� 4,0,128,0
"�
,
6� �main
@VT=4
J !DHXD=(-1)^�(2)*(�(VT*2)+VT)
T !DHYD=(-1)^�(2)*(�(VT*2)+VT)
^ !DHZD=(-1)^�(2)*(�(VT*2)+VT)
h!HXD=HX:!HYD=HY:!HZD=HZ
r!TXD=0:!TYD=0:!TZD=440*16
|� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�	.main
�           STMFD     13!,{14}
�
.mainloop
�'          BL        calc_rot_matrix
�          MOV       R0,#&70
�          MOV       R1,#2
�!          SWI       "OS_Byte"
�          SWI       &10C
�!          BL        transform
�          BL        set
�"          BL        drawobject
#          BL        back_ground
          MOV       R0,#&13
!          SWI       "OS_Byte"
&          MOV       R0,#&71
0          MOV       R1,#2
:!          SWI       "OS_Byte"
D          
N'          BL        calc_rot_matrix
X          MOV       R0,#&70
b          MOV       R1,#1
l!          SWI       "OS_Byte"
v          SWI       &10C
�!          BL        transform
�          BL        set
�"          BL        drawobject
�#          BL        back_ground
�          MOV       R0,#&13
�!          SWI       "OS_Byte"
�          MOV       R0,#&71
�          MOV       R1,#1
�+          SWI       "OS_Byte"          
�,          SWI       "OS_ReadEscapeState"
�           BCC       mainloop
�           LDMFD     13!,{PC}
�          
]
�
	Q%=P%
 �
*
4
>
� �ass
H� Q% 130000
R� INVERS 4*1024
\� DITABLE 4000*16*4
f� CSTABLE 4096*8
p� CTABLE 100*16
z�calc_invers
��calc_cstable
��calc_divtable
��transform
��convex
��calc_rot_matrix
��drawobject
�	�main
��
�
�
�� �buildpunt
�P%=PUNT
�L=lengte*FIX
� I=1 � 14
� X:� Y:� Z

[OPT 0
$EQUD X*L:EQUD Y*L:EQUD Z*L
.]
8�
B
[OPT 0
LEQUD (1<<30)
V]
`�
j
t� �buildvlak
~P%=VLAK
�� I=1 � NV
�� P1:� P2:� P3
�P1-=1:P2-=1:P3-=1
�
[OPT 0
�9EQUD PROJECT+8*P1:EQUD PROJECT+8*P2:EQUD PROJECT+8*P3
�]
��
��
�
�� 12 vertices
�$� 1,1,1, -1,1,1, -1,-1,1, 1,-1,1
�(� 1,1,-1, -1,1,-1, -1,-1,-1, 1,-1,-1
=� BUT,0,0, 0,BUT,0, -BUT,0,0, 0,-BUT,0, 0,0,BUT, 0,0,-BUT


� 24 facets
 � 9,1,4, 9,4,8, 9,8,5, 9,5,1
($� 10,6,2, 10,2,1, 10,1,5, 10,5,6
2$� 11,6,7, 11,2,6, 11,3,2, 11,7,3
<$� 12,3,7, 12,7,8, 12,8,4, 12,4,3
F$� 13,1,2, 13,2,3, 13,3,4, 13,4,1
P$� 14,6,5, 14,7,6, 14,8,7, 14,5,8
Z
d
n
x� �calc_invers
�K=2<<20
�&� I=1 � 1023:INVERS!(4*I)=K/I+.5:�
��
�
�� �calc_cstable
�F=2*�/4096:V=2^15
�T2=CSTABLE+8*1024
�T3=CSTABLE+8*2048
�T4=CSTABLE+8*3072
�� H=0 � 1023
�	K=F*H
�CS=�(K)*V:SN=�(K)*V
�CSTABLE!(8*H)=CS
CSTABLE!(8*H+4)=SN
T2!(8*H)=-SN
T2!(8*H+4)=CS
"T3!(8*H)=-CS
,T3!(8*H+4)=-SN
6T4!(8*H)=SN
@T4!(8*H+4)=-CS
J�
T�
^
h� �calc_divtable
rT=0:N=1:Q=2:I=3:J=4:DIT=5
|� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.DNRD EQUD 4000*16
�.DITH EQUD DITABLE
�.calc_divtable
�%          STMFD     13!,{0-12,14}
�           LDR       DIT,DITH
�          LDR       I,DNRD
�.DVLOOP2
�"          MOV       T,#200<<12
�          MOV       N,I
�          MOV       J,#0
�          MOV       Q,#0
.DVLOOP3
          CMP       N,T
"          MOVLO     N,N,LSL #1
&          ADDLO     J,J,#1
0          BLO       DVLOOP3
:!          MOV       N,N,LSR J
D.DVLOOP1
N!          CMP       T,N,LSL J
X#          SUBHS     T,T,N,LSL J
b          ADC       Q,Q,Q
l          SUBS      J,J,#1
v          BPL       DVLOOP1
�(          STR       Q,[DIT,I,LSL #2]
�          SUBS      I,I,#1
�          BNE       DVLOOP2
�%          LDMFD     13!,{0-12,PC}
�]
��
�	Q%=P%
�� calc_divtable
��
�
�� �calc_rot_matrix
�CHX=0:SHX=1
�CHY=2:SHY=3
CHZ=4:SHZ=5
T=6:S=7:H=8
DHX=3:DHY=4:DHZ=5
 HX=9:HY=10:HZ=11
*TX=9:TY=10:TZ=11
4	CS=12
>SCR=0:COL=1
H� PASS=0 � 2 � 2
R	P%=Q%
\
[OPT PASS
f.DHXD EQUD 0
p.DHYD EQUD 0
z.DHZD EQUD 0
�.HXD EQUD 0
�.HYD EQUD 0
�.HZD EQUD 0
�.CSD EQUD CSTABLE
�.TXD EQUD 0
�.TYD EQUD 0
�.TZD EQUD 0
�.calc_rot_matrix
�!          STMFD 13!,{0-12,14}
�          SWI "OS_Mouse"
�          SUB R0,R0,#640
�          MOV R0,R0,LSL #3
�          STR R0,TXD
	          SUB R1,R1,#512
	          MOV R1,R1,LSL #3
	          STR R1,TYD
	$          LDR R0,TZD
	.          TST R2,#1
	8          SUBEQ R0,R0,#64
	B          TST R2,#4
	L          ADDEQ R0,R0,#64
	V          STR R0,TZD
	`          ADR T,DHXD
	j/          LDMIA T,{DHX,DHY,DHZ,HX,HY,HZ,CS}
	t          ADD DHX,DHX,HX
	~          ADD DHY,DHY,HY
	�          ADD DHZ,DHZ,HZ
	�          ADD T,T,#3*4
	�#          STMIA T,{DHX,DHY,DHZ}
	�          MOV S,#4096
	�          SUB S,S,#1
	�          CMP HX,#0
	�          RSBMI HX,HX,#0
	�          � HX,HX,S
	�           ADD T,CS,HX,LSL #3
	�          LDMIA T,{CHX,SHX}
	�          RSBMI SHX,SHX,#0
	�          CMP HY,#0
          RSBMI HY,HY,#0

          � HY,HY,S
           ADD T,CS,HY,LSL #3
          LDMIA T,{CHY,SHY}
(          RSBMI SHY,SHY,#0
2          CMP HZ,#0
<          RSBMI HZ,HZ,#0
F          � HZ,HZ,S
P           ADD T,CS,HZ,LSL #3
Z          LDMIA T,{CHZ,SHZ}
d          RSBMI SHZ,SHZ,#0
n          ADR T,TXD
x           LDMIA T,{TX,TY,TZ}
�          MUL T,CHY,CHZ
�          MOV T,T,ASR #15
�          MUL S,CHY,SHZ
�          MOV S,S,LSR #15
�          ADD T,S,T,LSL #16
�          STR T,A1D
�"          ADD T,TX,SHY,LSL #16
�          STR T,A2D
�
�          MUL T,SHX,SHY
�          MOV T,T,ASR #15
�          MOV S,T
�          MUL H,CHX,SHZ
          MLA T,CHZ,T,H
          RSB T,T,#0
          MOV T,T,ASR #15
"          MUL H,CHX,CHZ
,          MUL S,SHZ,S
6          SUB S,H,S
@          MOV S,S,LSR #15
J
T          ADD T,S,T,LSL #16
^          STR T,B1D
h          MUL T,SHX,CHY
r          MOV T,T,ASR #15
|           ADD T,TY,T,LSL #16
�          STR T,B2D
�          MUL T,CHX,SHY
�          MOV T,T,ASR #15
�          MOV S,T
�          MUL T,CHZ,T
�          MUL H,SHX,SHZ
�          SUB T,H,T
�          MOV T,T,ASR #15
�          MUL S,SHZ,S
�          MLA H,SHX,CHZ,S
�          RSB S,H,#0
�          MOV S,S,LSR #15
�          ADD T,S,T,LSL #16
          STR T,C1D
          MUL T,CHX,CHY
          MOV T,T,ASR #15
&           ADD T,TZ,T,LSL #16
0          STR T,C2D
:!          LDMFD 13!,{0-12,PC}
D]
N�
X	Q%=P%
b�
l
v
�
�� �transform
�GA1=0:A2=1:B1=2:B2=3:C1=4:C2=5:T=6:DIT=7:U=8:V=9:W=10:X=10:Y=11:Z=12
�
A=13:B=14
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.A1D EQUD 0:.A2D EQUD 0
�.B1D EQUD 0:.B2D EQUD 0
�.C1D EQUD 0:.C2D EQUD 0
�.DITD EQUD DITABLE
�.AD EQUD PUNT
�.BD EQUD PROJECT

.VD EQUD 0

.SP EQUD 0

.LK EQUD 0

 

*

4.transform

>%          STMFD     13!,{0-12,14}

H          STR       13,SP

R          ADR       T,A1D

\5          LDMIA     T,{A1,A2,B1,B2,C1,C2,DIT,A,B}

f$          LDMIA     (A)!,{X,Y,Z}

p
.TRANS

z$          MOV       T,A1,ASR #16

�          MUL       U,X,T

�$          MOV       T,A1,LSL #16

�#          MOV       T,T,ASR #16

�          MLA       U,Y,T,U

�$          MOV       T,A2,ASR #16

�          MLA       U,Z,T,U

�$          MOV       T,A2,LSL #16

�#          MOV       T,T,ASR #16

�%          ADD       U,T,U,ASR #15

�$          MOV       T,B1,ASR #16

�          MUL       V,X,T

�$          MOV       T,B1,LSL #16

�#          MOV       T,T,ASR #16
          MLA       V,Y,T,V
$          MOV       T,B2,ASR #16
          MLA       V,Z,T,V
$$          MOV       T,B2,LSL #16
.#          MOV       T,T,ASR #16
8%          ADD       V,T,V,ASR #15
B$          MOV       T,C1,ASR #16
L          MUL       W,T,X
V$          MOV       T,C1,LSL #16
`#          MOV       T,T,ASR #16
j          MLA       W,Y,T,W
t$          MOV       T,C2,ASR #16
~          MLA       W,Z,T,W
�$          MOV       T,C2,LSL #16
�#          MOV       T,T,ASR #16
�%          ADD       W,T,W,ASR #15
�(          LDR       W,[DIT,W,LSL #2]
�          MUL       U,W,U
�          MUL       V,W,V
�#          MOV       U,U,ASR #12
�#          MOV       V,V,ASR #12
�           ADD       U,U,#160
�           RSB       V,V,#128
�"          STMIA     (B)!,{U,V}
�$          LDMIA     (A)!,{X,Y,Z}
           CMP       X,#1<<30

          BNE       TRANS
          LDR       13,SP
%          LDMFD     13!,{0-12,PC}
(
2]
<�
F	Q%=P%
P�
Z
d
n� �begin
xSP=13:LK=14:PC=15
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.animate
�STMFD 13!,{14}
�]
��
�	Q%=P%
��
�
�
� �end
�� PASS=0 � 2 � 2
�	P%=Q%

[OPT PASS
SWI "OS_ReadEscapeState"
LDMFD (SP)!,{PC}
"]
,�
6	Q%=P%
@�
J
T
^� �drawobject
h:T=0:V=1:TAB=2:CV=3:NR=4:X1=5:Y1=6:X2=7:Y2=8:X3=9:Y3=10
rP1=5:P2=7:P3=9
|� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.VLAKP    EQUD VLAK
�>.TABD     EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�>          EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
�.drawobject
�%          STMFD     13!,{0-12,14}
�          LDR       V,VLAKP
�          MOV       CV,#NV
�	.draw
�           ADR       TAB,TABD
�'          LDMIA     (V)!,{P1,P2,P3}
"          LDMIA     P1,{X1,Y1}
&          STMIA     (TAB)!,{X1,Y1}
"          LDMIA     P2,{X2,Y2}
&&          STMIA     (TAB)!,{X2,Y2}
0"          LDMIA     P3,{X3,Y3}
:&          STMIA     (TAB)!,{X3,Y3}
D           SUB       X2,X2,X1
N           SUB       X3,X3,X1
X           SUB       Y2,Y2,Y1
b           SUB       Y3,Y3,Y1
l          MUL       T,X2,Y3
v          RSB       T,T,#0
�!          MLA       T,X3,Y2,T
�          CMP       T,#0
�;         BMI       nodraw
�          �       T,CV,#1
�"          MOVMI     T,T,LSL #1
�          BMI       drawit
�          CMP       T,#0
�          BEQ       nodraw
�.drawit
�          �R       T,T,#8
�          MOV       NR,#3
�           ADR       TAB,TABD
          BL        convex
.nodraw
           SUBS      CV,CV,#1
           BNE       draw
*%          LDMFD     13!,{0-12,PC}
4]
>�
H�
R	Q%=P%
\�
f
p
� �convex
z
�
�EX1=0:Y1=1:X2=2:Y2=3:XL=4:XR=5:YB=6:YT=7:K1=8:K2=9:DT=10:S=11:T=12
�
�&LL=0:RR=1:A=2:B=3:C=4:O=5:D=6:CT=7
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�N\-------------------------------------------------------------------------
�.screen1 EQUD 148:EQUD -1
�.screen EQUD 0
�.set
�:ADR R0,screen1:ADR R1,screen:SWI "OS_ReadVduVariables"
�MOV PC,R14

!.back_col  DCD      &44444444
.back_ground
$%          STMFD     13!,{0-12,14}
.          
8"          LDR       5,back_col
B!          LDR       12,screen
L          MOV       7,#8
V.block_loop2
`          MOV       6,#5
j.block_loop1
t          MOV       8,#32
~.block_loop3
�$          LDMIA     12,{0,1,2,3}
�          �R       0,0,5
�          �R       1,1,5
�          �R       2,2,5
�          �R       3,3,5
�$          STMIA     12,{0,1,2,3}
�"          ADD       12,12,#160
�$          LDMIA     12,{0,1,2,3}
�          �R       0,0,5
�          �R       1,1,5
�          �R       2,2,5
�          �R       3,3,5
$          STMIA     12,{0,1,2,3}

"          ADD       12,12,#160
          SUBS      8,8,#2
#          BNE       block_loop3
P!          ADD       12,12,#32
Z%          SUB       12,12,#32*160
d          SUBS      6,6,#1
n#          BNE       block_loop1
�"          SUB       12,12,#160
�%          ADD       12,12,#32*160
�          TST       7,#1
�!          ADDEQ     12,12,#16
�!          SUBNE     12,12,#16
�          SUBS      7,7,#1
�#          BNE       block_loop2
�%          LDMFD     13!,{0-12,PC}
�
�]
��
�	Q%=P%
�

MNL=0:    :TAB=2:FREE=3:NR=4:INV=5:CO=6:   N=7:     X1=9:Y1=10:X2=11:Y2=12
MLE=0:RE=1:  L=2:   R=3:XL=4: XR=5:DXL=6:DXR=7: O=8:C1=9:C2=10:C3=11:C4=12
"
PL=0:PR=1
, Q=13:T=14
6	PO=13
@C=4:TEL=5:F=6:X3=7:Y3=8
J� PASS=0 � 2 � 2
T	P%=Q%
^
[OPT PASS
h�                                                                                                                                                                                                        
r.kol EQUD 7+16*7
|.ST EQUD 0
�.LK EQUD 0
�.TABD    EQUD CTABLE
�.INVERSD EQUD INVERS
�
�.convex
�%          STMFD     13!,{0-12,14}
�          STR       13,ST
�          STRB      R0,kol
�!;         LDR       TAB,LSTAD
�#;         LDR       NR,[TAB],#4
�D          ADD       T,TAB,NR,LSL #3     \T wijst na source tabel
�T          LDMDB     T,{X1,Y1}           \ (x1,y1) laatste koppel in source tabel
�3          ADD       NR,NR,NR,LSL #1     \nr=3*n
-          LDR       FREE,TABD           \
N          ADD       FREE,FREE,NR,LSL #2 \ free wijst in midden dest. tabel
5          MOV       CO,NR               \ co= 3*n
&6          MOV       RE,FREE             \ re= free
0           LDR       O,screen
:%          ADD       O,O,Y1,LSL #7
D%          ADD       O,O,Y1,LSL #5
NN          LDR       INV,INVERSD         \ inv wijzer in tabel met inversen
XS          LDMIA     (TAB)!,{X2,Y2}      \ (x2,y2) eerste koppel in source tabel
b          SUBS      N,Y2,Y1
l
v
.loopb
�          MOVS      NL,N
�          RSBLT     N,N,#0
�4          MOVLT     Y1,Y2               \y1<= y2
�5          SUB       T,X2,X1             \t= x2-x1
�5          RSBLT     T,T,#0              \n= y2-y1
�          MOVLT     X1,X2
�(          LDR       Q,[INV,N,LSL #2]
�          MUL       Q,T,Q
�"          MOV       Q,Q,ASR #9
�M          MOV       X1,X1,LSL #12       \ x1= (x1+320y1) << 12 + q/2 +0.5
�&          ADD       X1,X1,Q,ASR #1
�$          ADD       X1,X1,#1<<11
�Q          STMIA     (FREE)!,{N,X1,Q}    \n= #y-intersecties x1=startpunt q=dx
           SUBS      CO,CO,#3
          BEQ       endl
9          MOV       X1,X2               \ x1=x2 y1=y2
           MOV       Y1,Y2
*E          LDMIA     (TAB)!,{X2,Y2}      \ volgende (x2,y2) koppel
4          SUBS      N,Y2,Y1
>
HW          BMI       loopb               \branch als y-coord hoekpunten strikt dalen
R
\          TEQ       NL,N
fW          BPL       loopb               \bracnh als stijgend en vorige ook stijgend
p+          SUB       FREE,FREE,NR,LSL #2
z\          MOV       RE,FREE             \RE laagst punt in dest, tabel hieronder rechter
�           LDR       O,screen
�%          ADD       O,O,Y1,LSL #7
�%          ADD       O,O,Y1,LSL #5
�7          BAL       loopb               \RE= LE - n
�	.endl
�]          ADD       LE,RE,NR,LSL #2     \LE hoogst punt in dest. tabel, entries hierboven
�          LDRB      C1,kol
�          �       C1,C1,#15
�'          ADD       C1,C1,C1,LSL #4
�'          ADD       C1,C1,C1,LSL #8
�(          ADD       C1,C1,C1,LSL #16
�          MOV       C2,C1
�          MOV       C3,C1
          MOV       C4,C1
          MOV       R,#0
"          ADR       T,pointers
$	.loop
.#          MOV       L,R,LSR #16
8%          BICS      R,R,L,LSL #16
B(          LDMEQIA   (RE)!,{R,XR,DXR}
L          CMP       L,#0
V(          LDMEQDB   (LE)!,{L,XL,DXL}
`!          STMIA     T,{LE,RE}
j
t          CMP       XR,XL
~          CMPEQ     DXR,DXL
�          MOVLT     T,L
�          MOVLT     L,R
�          MOVLT     R,T
�          MOVLT     T,XL
�          MOVLT     XL,XR
�          MOVLT     XR,T
�          MOVLT     T,DXL
�          MOVLT     DXL,DXR
�          MOVLT     DXR,T
�
�          SUBS      T,L,R
�          RSBMI     R,T,#0
          MOVPL     L,R

#          MOVPL     R,T,LSL #16
          CMP       L,#0
          BEQ       endseg
(           LDR       T,screen
2          CMP       O,T
<          BHS       eclip
F	.clip
P!          ADD       XL,XL,DXL
Z!          ADD       XR,XR,DXR
d           ADD       O,O,#160
n          SUBS      L,L,#1
x          BEQ       endseg
�          CMP       O,T
�          BLO       clip
�
.eclip
�$          ADD       T,T,#160*256
�          SUBS      T,T,O
�          BLS       endseg
�$          ADD       L,L,L,LSL #2
�"          CMP       L,T,LSR #5
�"          MOVHI     L,T,LSR #5
�          CMP       XL,#0
�%          MOV       PL,XL,ASR #12
�          MOVLT     PL,#0
�"          ADR       PO,endspan
          BAL       span
          �vulc
.endspan
"           ADD       O,O,#160
,!          ADDS      XL,XL,DXL
6%          MOV       PL,XL,ASR #12
@          MOVLT     PL,#0
J!          ADD       XR,XR,DXR
T          SUBS      L,L,#5
^          BEQ       endseg
h	.span
r#          CMP       XR,#320<<12
|%          MOV       PR,XR,ASR #12
�          MOVGT     PR,#320
�          CMP       PR,PL
�          BLE       endspan
�          MVN       C3,#0
�          �       T,PL,PR
�"          MOVS      T,T,LSR #3
�          BEQ       exep
�          
�          �S      T,PL,#7
�          BIC       PL,PL,T
�&          ADD       PL,O,PL,LSR #1
�          LDMNEIA   PL,{C2}
�"          MOV       T,T,LSL #2
"          MOV       T,C3,LSL T
;         BIC       C2,C2,T
          �       T,C1,T
&          �R       C2,C2,T
0"          STMNEIA   (PL)!,{C2}
:
D          �S      T,PR,#7
N          BIC       PR,PR,T
X&          ADD       PR,O,PR,LSR #1
b          LDMNEIA   PR,{C2}
l"          MOV       T,T,LSL #2
v"          MOV       T,C3,LSL T
�;         �       C2,C2,T
�          BIC       T,C1,T
�          �R       C2,C2,T
�          STMNEIA   PR,{C2}
�          
�          MOV       C2,C1
�          MOV       C3,C1
�          SUBS      T,PR,PL
�"          MOVS      T,T,LSR #3
�!          LDMCSIA   (PL),{C4}
�          �R       C4,C4,C1
�"          STMCSIA   (PL)!,{C4}
�
#          MOVS      C2,T,LSR #1
$          LDMCSIA   (PL),{C3,C4}
          �R       C3,C3,C1
           �R       C4,C4,C1
*%          STMCSIA   (PL)!,{C3,C4}
4
>'          ADD       C2,C2,C2,LSL #1
H'          SUB       PC,PO,C2,LSL #3
R
\.endseg
f"          ADR       T,pointers
p!          LDMIA     T,{RE,LE}
z          CMP       RE,LE
�          BLO       loop
�          LDR       13,ST
�%          LDMFD     13!,{0-12,PC}
�	.exep
�          �       T,PL,#7
�          BIC       PL,PL,T
�"          MOV       T,T,LSL #2
�#          MOV       C4,C3,LSL T
�          �       T,PR,#7
�"          MOV       T,T,LSL #2
�"          MOV       T,C3,LSL T
�          BIC       T,C4,T
�          MOV       C4,C1
&          ADD       PL,O,PL,LSR #1
          LDMIA     PL,{C2}
;         BIC       C2,C2,T
$          �       T,C1,T
.          �R       C2,C2,T
8"          STMIA     (PL)!,{C2}
B          BAL       endspan
L          
V.pointers EQUD0:EQUD 0
`.cotabel
j
t]
~�
�	Q%=P%
��
�
�
�� �vulc
�� I=1 � 20
�
[OPT PASS
�)          LDMIA     (PL),{T,C2,C3,C4}
�          �R       T,T,C1
�          �R       C2,C2,C1
�          �R       C3,C3,C1
�          �R       C4,C4,C1
*          STMIA     (PL)!,{T,C2,C3,C4}

]
�
=""
(
�
00000000  0d 00 0a 0f f4 20 3e 54  72 61 6e 73 6c 75 63 0d  |..... >Transluc.|
00000010  00 14 17 f4 20 28 63 29  20 4a 61 6e 20 56 6c 69  |.... (c) Jan Vli|
00000020  65 74 69 6e 63 6b 0d 00  15 1d f4 20 76 6c 69 65  |etinck..... vlie|
00000030  74 69 6e 40 69 6e 74 65  63 2e 72 75 67 2e 61 63  |tin@intec.rug.ac|
00000040  2e 62 65 0d 00 1e 04 0d  00 28 26 f4 4f 4e 20 45  |.be......(&.ON E|
00000050  52 52 4f 52 3a 50 52 49  4e 54 20 22 45 72 72 6f  |RROR:PRINT "Erro|
00000060  72 20 61 74 20 22 45 52  4c 3a 45 4e 44 0d 00 29  |r at "ERL:END..)|
00000070  09 ee 20 85 3a e0 0d 00  32 0f eb 31 33 2b 31 32  |.. .:...2..13+12|
00000080  38 3a eb 20 39 0d 00 3c  04 0d 00 46 09 4e 50 3d  |8:. 9..<...F.NP=|
00000090  31 34 0d 00 50 09 4e 56  3d 32 34 0d 00 5a 09 42  |14..P.NV=24..Z.B|
000000a0  55 54 3d 32 0d 00 64 11  53 48 3d 34 3a 46 49 58  |UT=2..d.SH=4:FIX|
000000b0  3d 32 5e 53 48 0d 00 6e  10 6c 65 6e 67 74 65 3d  |=2^SH..n.lengte=|
000000c0  36 34 2b 31 36 0d 00 78  14 de 20 50 55 4e 54 20  |64+16..x.. PUNT |
000000d0  20 4e 50 2a 34 2a 36 2b  34 0d 00 82 14 de 20 50  | NP*4*6+4..... P|
000000e0  52 4f 4a 45 43 54 20 4e  50 2a 34 2a 32 0d 00 8c  |ROJECT NP*4*2...|
000000f0  12 de 20 56 4c 41 4b 20  20 4e 56 2a 34 2a 33 0d  |.. VLAK  NV*4*3.|
00000100  00 96 08 f2 61 73 73 0d  00 a0 0e f2 62 75 69 6c  |....ass.....buil|
00000110  64 70 75 6e 74 0d 00 aa  0e f2 62 75 69 6c 64 76  |dpunt.....buildv|
00000120  6c 61 6b 0d 00 b4 10 f2  73 65 74 5f 70 61 6c 65  |lak.....set_pale|
00000130  74 74 65 0d 00 be 0c 87  3a d6 20 6d 61 69 6e 0d  |tte.....:. main.|
00000140  00 c8 05 e0 0d 00 d2 04  0d 00 dc 12 dd 20 f2 73  |............. .s|
00000150  65 74 5f 70 61 6c 65 74  74 65 0d 00 e6 0e e3 20  |et_palette..... |
00000160  4e 25 3d 30 20 b8 20 33  0d 00 f0 24 fb 20 4e 25  |N%=0 . 3...$. N%|
00000170  2b 38 2c 28 34 2a 4e 25  2b 33 29 2a 31 36 2c 28  |+8,(4*N%+3)*16,(|
00000180  32 2a 4e 25 2b 31 29 2a  31 36 2c 30 0d 00 fa 25  |2*N%+1)*16,0...%|
00000190  fb 20 4e 25 2b 31 32 2c  28 34 2a 4e 25 2b 33 29  |. N%+12,(4*N%+3)|
000001a0  2a 31 36 2c 30 2c 28 32  2a 4e 25 2b 31 29 2a 31  |*16,0,(2*N%+1)*1|
000001b0  36 0d 01 04 05 ed 0d 01  0e 0f fb 20 30 2c 30 2c  |6.......... 0,0,|
000001c0  30 2c 31 32 38 0d 01 18  0f fb 20 34 2c 30 2c 31  |0,128..... 4,0,1|
000001d0  32 38 2c 30 0d 01 22 05  e1 0d 01 2c 04 0d 01 36  |28,0.."....,...6|
000001e0  0b dd 20 f2 6d 61 69 6e  0d 01 40 08 56 54 3d 34  |.. .main..@.VT=4|
000001f0  0d 01 4a 20 21 44 48 58  44 3d 28 2d 31 29 5e b3  |..J !DHXD=(-1)^.|
00000200  28 32 29 2a 28 b3 28 56  54 2a 32 29 2b 56 54 29  |(2)*(.(VT*2)+VT)|
00000210  0d 01 54 20 21 44 48 59  44 3d 28 2d 31 29 5e b3  |..T !DHYD=(-1)^.|
00000220  28 32 29 2a 28 b3 28 56  54 2a 32 29 2b 56 54 29  |(2)*(.(VT*2)+VT)|
00000230  0d 01 5e 20 21 44 48 5a  44 3d 28 2d 31 29 5e b3  |..^ !DHZD=(-1)^.|
00000240  28 32 29 2a 28 b3 28 56  54 2a 32 29 2b 56 54 29  |(2)*(.(VT*2)+VT)|
00000250  0d 01 68 1b 21 48 58 44  3d 48 58 3a 21 48 59 44  |..h.!HXD=HX:!HYD|
00000260  3d 48 59 3a 21 48 5a 44  3d 48 5a 0d 01 72 1d 21  |=HY:!HZD=HZ..r.!|
00000270  54 58 44 3d 30 3a 21 54  59 44 3d 30 3a 21 54 5a  |TXD=0:!TYD=0:!TZ|
00000280  44 3d 34 34 30 2a 31 36  0d 01 7c 14 e3 20 50 41  |D=440*16..|.. PA|
00000290  53 53 3d 30 20 b8 20 32  20 88 20 32 0d 01 86 09  |SS=0 . 2 . 2....|
000002a0  50 25 3d 51 25 0d 01 90  0d 5b 4f 50 54 20 50 41  |P%=Q%....[OPT PA|
000002b0  53 53 0d 01 9a 09 2e 6d  61 69 6e 0d 01 a4 20 20  |SS.....main...  |
000002c0  20 20 20 20 20 20 20 20  20 53 54 4d 46 44 20 20  |         STMFD  |
000002d0  20 20 20 31 33 21 2c 7b  31 34 7d 0d 01 ae 0d 2e  |   13!,{14}.....|
000002e0  6d 61 69 6e 6c 6f 6f 70  0d 01 b8 27 20 20 20 20  |mainloop...'    |
000002f0  20 20 20 20 20 20 42 4c  20 20 20 20 20 20 20 20  |      BL        |
00000300  63 61 6c 63 5f 72 6f 74  5f 6d 61 74 72 69 78 0d  |calc_rot_matrix.|
00000310  01 c2 1f 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00000320  20 20 20 20 20 20 20 52  30 2c 23 26 37 30 0d 01  |       R0,#&70..|
00000330  cc 1d 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |..          MOV |
00000340  20 20 20 20 20 20 52 31  2c 23 32 0d 01 d6 21 20  |      R1,#2...! |
00000350  20 20 20 20 20 20 20 20  20 53 57 49 20 20 20 20  |         SWI    |
00000360  20 20 20 22 4f 53 5f 42  79 74 65 22 0d 01 e0 1c  |   "OS_Byte"....|
00000370  20 20 20 20 20 20 20 20  20 20 53 57 49 20 20 20  |          SWI   |
00000380  20 20 20 20 26 31 30 43  0d 01 ea 21 20 20 20 20  |    &10C...!    |
00000390  20 20 20 20 20 20 42 4c  20 20 20 20 20 20 20 20  |      BL        |
000003a0  74 72 61 6e 73 66 6f 72  6d 0d 01 f4 1b 20 20 20  |transform....   |
000003b0  20 20 20 20 20 20 20 42  4c 20 20 20 20 20 20 20  |       BL       |
000003c0  20 73 65 74 0d 01 fe 22  20 20 20 20 20 20 20 20  | set..."        |
000003d0  20 20 42 4c 20 20 20 20  20 20 20 20 64 72 61 77  |  BL        draw|
000003e0  6f 62 6a 65 63 74 0d 02  08 23 20 20 20 20 20 20  |object...#      |
000003f0  20 20 20 20 42 4c 20 20  20 20 20 20 20 20 62 61  |    BL        ba|
00000400  63 6b 5f 67 72 6f 75 6e  64 0d 02 12 1f 20 20 20  |ck_ground....   |
00000410  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
00000420  20 52 30 2c 23 26 31 33  0d 02 1c 21 20 20 20 20  | R0,#&13...!    |
00000430  20 20 20 20 20 20 53 57  49 20 20 20 20 20 20 20  |      SWI       |
00000440  22 4f 53 5f 42 79 74 65  22 0d 02 26 1f 20 20 20  |"OS_Byte"..&.   |
00000450  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
00000460  20 52 30 2c 23 26 37 31  0d 02 30 1d 20 20 20 20  | R0,#&71..0.    |
00000470  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00000480  52 31 2c 23 32 0d 02 3a  21 20 20 20 20 20 20 20  |R1,#2..:!       |
00000490  20 20 20 53 57 49 20 20  20 20 20 20 20 22 4f 53  |   SWI       "OS|
000004a0  5f 42 79 74 65 22 0d 02  44 0e 20 20 20 20 20 20  |_Byte"..D.      |
000004b0  20 20 20 20 0d 02 4e 27  20 20 20 20 20 20 20 20  |    ..N'        |
000004c0  20 20 42 4c 20 20 20 20  20 20 20 20 63 61 6c 63  |  BL        calc|
000004d0  5f 72 6f 74 5f 6d 61 74  72 69 78 0d 02 58 1f 20  |_rot_matrix..X. |
000004e0  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
000004f0  20 20 20 52 30 2c 23 26  37 30 0d 02 62 1d 20 20  |   R0,#&70..b.  |
00000500  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000510  20 20 52 31 2c 23 31 0d  02 6c 21 20 20 20 20 20  |  R1,#1..l!     |
00000520  20 20 20 20 20 53 57 49  20 20 20 20 20 20 20 22  |     SWI       "|
00000530  4f 53 5f 42 79 74 65 22  0d 02 76 1c 20 20 20 20  |OS_Byte"..v.    |
00000540  20 20 20 20 20 20 53 57  49 20 20 20 20 20 20 20  |      SWI       |
00000550  26 31 30 43 0d 02 80 21  20 20 20 20 20 20 20 20  |&10C...!        |
00000560  20 20 42 4c 20 20 20 20  20 20 20 20 74 72 61 6e  |  BL        tran|
00000570  73 66 6f 72 6d 0d 02 8a  1b 20 20 20 20 20 20 20  |sform....       |
00000580  20 20 20 42 4c 20 20 20  20 20 20 20 20 73 65 74  |   BL        set|
00000590  0d 02 94 22 20 20 20 20  20 20 20 20 20 20 42 4c  |..."          BL|
000005a0  20 20 20 20 20 20 20 20  64 72 61 77 6f 62 6a 65  |        drawobje|
000005b0  63 74 0d 02 9e 23 20 20  20 20 20 20 20 20 20 20  |ct...#          |
000005c0  42 4c 20 20 20 20 20 20  20 20 62 61 63 6b 5f 67  |BL        back_g|
000005d0  72 6f 75 6e 64 0d 02 a8  1f 20 20 20 20 20 20 20  |round....       |
000005e0  20 20 20 4d 4f 56 20 20  20 20 20 20 20 52 30 2c  |   MOV       R0,|
000005f0  23 26 31 33 0d 02 b2 21  20 20 20 20 20 20 20 20  |#&13...!        |
00000600  20 20 53 57 49 20 20 20  20 20 20 20 22 4f 53 5f  |  SWI       "OS_|
00000610  42 79 74 65 22 0d 02 bc  1f 20 20 20 20 20 20 20  |Byte"....       |
00000620  20 20 20 4d 4f 56 20 20  20 20 20 20 20 52 30 2c  |   MOV       R0,|
00000630  23 26 37 31 0d 02 c6 1d  20 20 20 20 20 20 20 20  |#&71....        |
00000640  20 20 4d 4f 56 20 20 20  20 20 20 20 52 31 2c 23  |  MOV       R1,#|
00000650  31 0d 02 d0 2b 20 20 20  20 20 20 20 20 20 20 53  |1...+          S|
00000660  57 49 20 20 20 20 20 20  20 22 4f 53 5f 42 79 74  |WI       "OS_Byt|
00000670  65 22 20 20 20 20 20 20  20 20 20 20 0d 02 da 2c  |e"          ...,|
00000680  20 20 20 20 20 20 20 20  20 20 53 57 49 20 20 20  |          SWI   |
00000690  20 20 20 20 22 4f 53 5f  52 65 61 64 45 73 63 61  |    "OS_ReadEsca|
000006a0  70 65 53 74 61 74 65 22  0d 02 e4 20 20 20 20 20  |peState"...     |
000006b0  20 20 20 20 20 20 42 43  43 20 20 20 20 20 20 20  |      BCC       |
000006c0  6d 61 69 6e 6c 6f 6f 70  0d 02 ee 20 20 20 20 20  |mainloop...     |
000006d0  20 20 20 20 20 20 4c 44  4d 46 44 20 20 20 20 20  |      LDMFD     |
000006e0  31 33 21 2c 7b 50 43 7d  0d 02 f8 0e 20 20 20 20  |13!,{PC}....    |
000006f0  20 20 20 20 20 20 0d 03  02 05 5d 0d 03 0c 05 ed  |      ....].....|
00000700  0d 03 16 09 51 25 3d 50  25 0d 03 20 05 e1 0d 03  |....Q%=P%.. ....|
00000710  2a 04 0d 03 34 04 0d 03  3e 0a dd 20 f2 61 73 73  |*...4...>.. .ass|
00000720  0d 03 48 0f de 20 51 25  20 31 33 30 30 30 30 0d  |..H.. Q% 130000.|
00000730  03 52 13 de 20 49 4e 56  45 52 53 20 34 2a 31 30  |.R.. INVERS 4*10|
00000740  32 34 0d 03 5c 17 de 20  44 49 54 41 42 4c 45 20  |24..\.. DITABLE |
00000750  34 30 30 30 2a 31 36 2a  34 0d 03 66 14 de 20 43  |4000*16*4..f.. C|
00000760  53 54 41 42 4c 45 20 34  30 39 36 2a 38 0d 03 70  |STABLE 4096*8..p|
00000770  13 de 20 43 54 41 42 4c  45 20 31 30 30 2a 31 36  |.. CTABLE 100*16|
00000780  0d 03 7a 10 f2 63 61 6c  63 5f 69 6e 76 65 72 73  |..z..calc_invers|
00000790  0d 03 84 11 f2 63 61 6c  63 5f 63 73 74 61 62 6c  |.....calc_cstabl|
000007a0  65 0d 03 8e 12 f2 63 61  6c 63 5f 64 69 76 74 61  |e.....calc_divta|
000007b0  62 6c 65 0d 03 98 0e f2  74 72 61 6e 73 66 6f 72  |ble.....transfor|
000007c0  6d 0d 03 a2 0b f2 63 6f  6e 76 65 78 0d 03 ac 14  |m.....convex....|
000007d0  f2 63 61 6c 63 5f 72 6f  74 5f 6d 61 74 72 69 78  |.calc_rot_matrix|
000007e0  0d 03 b6 0f f2 64 72 61  77 6f 62 6a 65 63 74 0d  |.....drawobject.|
000007f0  03 c0 09 f2 6d 61 69 6e  0d 03 ca 05 e1 0d 03 d4  |....main........|
00000800  04 0d 03 de 04 0d 03 e8  10 dd 20 f2 62 75 69 6c  |.......... .buil|
00000810  64 70 75 6e 74 0d 03 f2  0b 50 25 3d 50 55 4e 54  |dpunt....P%=PUNT|
00000820  0d 03 fc 10 4c 3d 6c 65  6e 67 74 65 2a 46 49 58  |....L=lengte*FIX|
00000830  0d 04 06 0e e3 20 49 3d  31 20 b8 20 31 34 0d 04  |..... I=1 . 14..|
00000840  10 0f f3 20 58 3a f3 20  59 3a f3 20 5a 0d 04 1a  |... X:. Y:. Z...|
00000850  0a 5b 4f 50 54 20 30 0d  04 24 1e 45 51 55 44 20  |.[OPT 0..$.EQUD |
00000860  58 2a 4c 3a 45 51 55 44  20 59 2a 4c 3a 45 51 55  |X*L:EQUD Y*L:EQU|
00000870  44 20 5a 2a 4c 0d 04 2e  05 5d 0d 04 38 05 ed 0d  |D Z*L....]..8...|
00000880  04 42 0a 5b 4f 50 54 20  30 0d 04 4c 10 45 51 55  |.B.[OPT 0..L.EQU|
00000890  44 20 28 31 3c 3c 33 30  29 0d 04 56 05 5d 0d 04  |D (1<<30)..V.]..|
000008a0  60 05 e1 0d 04 6a 04 0d  04 74 10 dd 20 f2 62 75  |`....j...t.. .bu|
000008b0  69 6c 64 76 6c 61 6b 0d  04 7e 0b 50 25 3d 56 4c  |ildvlak..~.P%=VL|
000008c0  41 4b 0d 04 88 0e e3 20  49 3d 31 20 b8 20 4e 56  |AK..... I=1 . NV|
000008d0  0d 04 92 12 f3 20 50 31  3a f3 20 50 32 3a f3 20  |..... P1:. P2:. |
000008e0  50 33 0d 04 9c 15 50 31  2d 3d 31 3a 50 32 2d 3d  |P3....P1-=1:P2-=|
000008f0  31 3a 50 33 2d 3d 31 0d  04 a6 0a 5b 4f 50 54 20  |1:P3-=1....[OPT |
00000900  30 0d 04 b0 39 45 51 55  44 20 50 52 4f 4a 45 43  |0...9EQUD PROJEC|
00000910  54 2b 38 2a 50 31 3a 45  51 55 44 20 50 52 4f 4a  |T+8*P1:EQUD PROJ|
00000920  45 43 54 2b 38 2a 50 32  3a 45 51 55 44 20 50 52  |ECT+8*P2:EQUD PR|
00000930  4f 4a 45 43 54 2b 38 2a  50 33 0d 04 ba 05 5d 0d  |OJECT+8*P3....].|
00000940  04 c4 05 ed 0d 04 ce 05  e1 0d 04 d8 04 0d 04 e2  |................|
00000950  11 f4 20 31 32 20 76 65  72 74 69 63 65 73 0d 04  |.. 12 vertices..|
00000960  ec 24 dc 20 31 2c 31 2c  31 2c 20 2d 31 2c 31 2c  |.$. 1,1,1, -1,1,|
00000970  31 2c 20 2d 31 2c 2d 31  2c 31 2c 20 31 2c 2d 31  |1, -1,-1,1, 1,-1|
00000980  2c 31 0d 04 f6 28 dc 20  31 2c 31 2c 2d 31 2c 20  |,1...(. 1,1,-1, |
00000990  2d 31 2c 31 2c 2d 31 2c  20 2d 31 2c 2d 31 2c 2d  |-1,1,-1, -1,-1,-|
000009a0  31 2c 20 31 2c 2d 31 2c  2d 31 0d 05 00 3d dc 20  |1, 1,-1,-1...=. |
000009b0  42 55 54 2c 30 2c 30 2c  20 30 2c 42 55 54 2c 30  |BUT,0,0, 0,BUT,0|
000009c0  2c 20 2d 42 55 54 2c 30  2c 30 2c 20 30 2c 2d 42  |, -BUT,0,0, 0,-B|
000009d0  55 54 2c 30 2c 20 30 2c  30 2c 42 55 54 2c 20 30  |UT,0, 0,0,BUT, 0|
000009e0  2c 30 2c 2d 42 55 54 0d  05 0a 04 0d 05 14 0f f4  |,0,-BUT.........|
000009f0  20 32 34 20 66 61 63 65  74 73 0d 05 1e 20 dc 20  | 24 facets... . |
00000a00  39 2c 31 2c 34 2c 20 39  2c 34 2c 38 2c 20 39 2c  |9,1,4, 9,4,8, 9,|
00000a10  38 2c 35 2c 20 39 2c 35  2c 31 0d 05 28 24 dc 20  |8,5, 9,5,1..($. |
00000a20  31 30 2c 36 2c 32 2c 20  31 30 2c 32 2c 31 2c 20  |10,6,2, 10,2,1, |
00000a30  31 30 2c 31 2c 35 2c 20  31 30 2c 35 2c 36 0d 05  |10,1,5, 10,5,6..|
00000a40  32 24 dc 20 31 31 2c 36  2c 37 2c 20 31 31 2c 32  |2$. 11,6,7, 11,2|
00000a50  2c 36 2c 20 31 31 2c 33  2c 32 2c 20 31 31 2c 37  |,6, 11,3,2, 11,7|
00000a60  2c 33 0d 05 3c 24 dc 20  31 32 2c 33 2c 37 2c 20  |,3..<$. 12,3,7, |
00000a70  31 32 2c 37 2c 38 2c 20  31 32 2c 38 2c 34 2c 20  |12,7,8, 12,8,4, |
00000a80  31 32 2c 34 2c 33 0d 05  46 24 dc 20 31 33 2c 31  |12,4,3..F$. 13,1|
00000a90  2c 32 2c 20 31 33 2c 32  2c 33 2c 20 31 33 2c 33  |,2, 13,2,3, 13,3|
00000aa0  2c 34 2c 20 31 33 2c 34  2c 31 0d 05 50 24 dc 20  |,4, 13,4,1..P$. |
00000ab0  31 34 2c 36 2c 35 2c 20  31 34 2c 37 2c 36 2c 20  |14,6,5, 14,7,6, |
00000ac0  31 34 2c 38 2c 37 2c 20  31 34 2c 35 2c 38 0d 05  |14,8,7, 14,5,8..|
00000ad0  5a 04 0d 05 64 04 0d 05  6e 04 0d 05 78 12 dd 20  |Z...d...n...x.. |
00000ae0  f2 63 61 6c 63 5f 69 6e  76 65 72 73 0d 05 82 0b  |.calc_invers....|
00000af0  4b 3d 32 3c 3c 32 30 0d  05 8c 26 e3 20 49 3d 31  |K=2<<20...&. I=1|
00000b00  20 b8 20 31 30 32 33 3a  49 4e 56 45 52 53 21 28  | . 1023:INVERS!(|
00000b10  34 2a 49 29 3d 4b 2f 49  2b 2e 35 3a ed 0d 05 96  |4*I)=K/I+.5:....|
00000b20  05 e1 0d 05 a0 04 0d 05  aa 13 dd 20 f2 63 61 6c  |........... .cal|
00000b30  63 5f 63 73 74 61 62 6c  65 0d 05 b4 15 46 3d 32  |c_cstable....F=2|
00000b40  2a af 2f 34 30 39 36 3a  56 3d 32 5e 31 35 0d 05  |*./4096:V=2^15..|
00000b50  be 15 54 32 3d 43 53 54  41 42 4c 45 2b 38 2a 31  |..T2=CSTABLE+8*1|
00000b60  30 32 34 0d 05 c8 15 54  33 3d 43 53 54 41 42 4c  |024....T3=CSTABL|
00000b70  45 2b 38 2a 32 30 34 38  0d 05 d2 15 54 34 3d 43  |E+8*2048....T4=C|
00000b80  53 54 41 42 4c 45 2b 38  2a 33 30 37 32 0d 05 dc  |STABLE+8*3072...|
00000b90  10 e3 20 48 3d 30 20 b8  20 31 30 32 33 0d 05 e6  |.. H=0 . 1023...|
00000ba0  09 4b 3d 46 2a 48 0d 05  f0 17 43 53 3d 9b 28 4b  |.K=F*H....CS=.(K|
00000bb0  29 2a 56 3a 53 4e 3d b5  28 4b 29 2a 56 0d 05 fa  |)*V:SN=.(K)*V...|
00000bc0  14 43 53 54 41 42 4c 45  21 28 38 2a 48 29 3d 43  |.CSTABLE!(8*H)=C|
00000bd0  53 0d 06 04 16 43 53 54  41 42 4c 45 21 28 38 2a  |S....CSTABLE!(8*|
00000be0  48 2b 34 29 3d 53 4e 0d  06 0e 10 54 32 21 28 38  |H+4)=SN....T2!(8|
00000bf0  2a 48 29 3d 2d 53 4e 0d  06 18 11 54 32 21 28 38  |*H)=-SN....T2!(8|
00000c00  2a 48 2b 34 29 3d 43 53  0d 06 22 10 54 33 21 28  |*H+4)=CS..".T3!(|
00000c10  38 2a 48 29 3d 2d 43 53  0d 06 2c 12 54 33 21 28  |8*H)=-CS..,.T3!(|
00000c20  38 2a 48 2b 34 29 3d 2d  53 4e 0d 06 36 0f 54 34  |8*H+4)=-SN..6.T4|
00000c30  21 28 38 2a 48 29 3d 53  4e 0d 06 40 12 54 34 21  |!(8*H)=SN..@.T4!|
00000c40  28 38 2a 48 2b 34 29 3d  2d 43 53 0d 06 4a 05 ed  |(8*H+4)=-CS..J..|
00000c50  0d 06 54 05 e1 0d 06 5e  04 0d 06 68 14 dd 20 f2  |..T....^...h.. .|
00000c60  63 61 6c 63 5f 64 69 76  74 61 62 6c 65 0d 06 72  |calc_divtable..r|
00000c70  1d 54 3d 30 3a 4e 3d 31  3a 51 3d 32 3a 49 3d 33  |.T=0:N=1:Q=2:I=3|
00000c80  3a 4a 3d 34 3a 44 49 54  3d 35 0d 06 7c 14 e3 20  |:J=4:DIT=5..|.. |
00000c90  50 41 53 53 3d 30 20 b8  20 32 20 88 20 32 0d 06  |PASS=0 . 2 . 2..|
00000ca0  86 09 50 25 3d 51 25 0d  06 90 0d 5b 4f 50 54 20  |..P%=Q%....[OPT |
00000cb0  50 41 53 53 0d 06 9a 16  2e 44 4e 52 44 20 45 51  |PASS.....DNRD EQ|
00000cc0  55 44 20 34 30 30 30 2a  31 36 0d 06 a4 16 2e 44  |UD 4000*16.....D|
00000cd0  49 54 48 20 45 51 55 44  20 44 49 54 41 42 4c 45  |ITH EQUD DITABLE|
00000ce0  0d 06 ae 12 2e 63 61 6c  63 5f 64 69 76 74 61 62  |.....calc_divtab|
00000cf0  6c 65 0d 06 b8 25 20 20  20 20 20 20 20 20 20 20  |le...%          |
00000d00  53 54 4d 46 44 20 20 20  20 20 31 33 21 2c 7b 30  |STMFD     13!,{0|
00000d10  2d 31 32 2c 31 34 7d 0d  06 c2 20 20 20 20 20 20  |-12,14}...      |
00000d20  20 20 20 20 20 4c 44 52  20 20 20 20 20 20 20 44  |     LDR       D|
00000d30  49 54 2c 44 49 54 48 0d  06 cc 1e 20 20 20 20 20  |IT,DITH....     |
00000d40  20 20 20 20 20 4c 44 52  20 20 20 20 20 20 20 49  |     LDR       I|
00000d50  2c 44 4e 52 44 0d 06 d6  0c 2e 44 56 4c 4f 4f 50  |,DNRD.....DVLOOP|
00000d60  32 0d 06 e0 22 20 20 20  20 20 20 20 20 20 20 4d  |2..."          M|
00000d70  4f 56 20 20 20 20 20 20  20 54 2c 23 32 30 30 3c  |OV       T,#200<|
00000d80  3c 31 32 0d 06 ea 1b 20  20 20 20 20 20 20 20 20  |<12....         |
00000d90  20 4d 4f 56 20 20 20 20  20 20 20 4e 2c 49 0d 06  | MOV       N,I..|
00000da0  f4 1c 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |..          MOV |
00000db0  20 20 20 20 20 20 4a 2c  23 30 0d 06 fe 1c 20 20  |      J,#0....  |
00000dc0  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000dd0  20 20 51 2c 23 30 0d 07  08 0c 2e 44 56 4c 4f 4f  |  Q,#0.....DVLOO|
00000de0  50 33 0d 07 12 1b 20 20  20 20 20 20 20 20 20 20  |P3....          |
00000df0  43 4d 50 20 20 20 20 20  20 20 4e 2c 54 0d 07 1c  |CMP       N,T...|
00000e00  22 20 20 20 20 20 20 20  20 20 20 4d 4f 56 4c 4f  |"          MOVLO|
00000e10  20 20 20 20 20 4e 2c 4e  2c 4c 53 4c 20 23 31 0d  |     N,N,LSL #1.|
00000e20  07 26 1e 20 20 20 20 20  20 20 20 20 20 41 44 44  |.&.          ADD|
00000e30  4c 4f 20 20 20 20 20 4a  2c 4a 2c 23 31 0d 07 30  |LO     J,J,#1..0|
00000e40  1f 20 20 20 20 20 20 20  20 20 20 42 4c 4f 20 20  |.          BLO  |
00000e50  20 20 20 20 20 44 56 4c  4f 4f 50 33 0d 07 3a 21  |     DVLOOP3..:!|
00000e60  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00000e70  20 20 20 20 4e 2c 4e 2c  4c 53 52 20 4a 0d 07 44  |    N,N,LSR J..D|
00000e80  0c 2e 44 56 4c 4f 4f 50  31 0d 07 4e 21 20 20 20  |..DVLOOP1..N!   |
00000e90  20 20 20 20 20 20 20 43  4d 50 20 20 20 20 20 20  |       CMP      |
00000ea0  20 54 2c 4e 2c 4c 53 4c  20 4a 0d 07 58 23 20 20  | T,N,LSL J..X#  |
00000eb0  20 20 20 20 20 20 20 20  53 55 42 48 53 20 20 20  |        SUBHS   |
00000ec0  20 20 54 2c 54 2c 4e 2c  4c 53 4c 20 4a 0d 07 62  |  T,T,N,LSL J..b|
00000ed0  1d 20 20 20 20 20 20 20  20 20 20 41 44 43 20 20  |.          ADC  |
00000ee0  20 20 20 20 20 51 2c 51  2c 51 0d 07 6c 1e 20 20  |     Q,Q,Q..l.  |
00000ef0  20 20 20 20 20 20 20 20  53 55 42 53 20 20 20 20  |        SUBS    |
00000f00  20 20 4a 2c 4a 2c 23 31  0d 07 76 1f 20 20 20 20  |  J,J,#1..v.    |
00000f10  20 20 20 20 20 20 42 50  4c 20 20 20 20 20 20 20  |      BPL       |
00000f20  44 56 4c 4f 4f 50 31 0d  07 80 28 20 20 20 20 20  |DVLOOP1...(     |
00000f30  20 20 20 20 20 53 54 52  20 20 20 20 20 20 20 51  |     STR       Q|
00000f40  2c 5b 44 49 54 2c 49 2c  4c 53 4c 20 23 32 5d 0d  |,[DIT,I,LSL #2].|
00000f50  07 8a 1e 20 20 20 20 20  20 20 20 20 20 53 55 42  |...          SUB|
00000f60  53 20 20 20 20 20 20 49  2c 49 2c 23 31 0d 07 94  |S      I,I,#1...|
00000f70  1f 20 20 20 20 20 20 20  20 20 20 42 4e 45 20 20  |.          BNE  |
00000f80  20 20 20 20 20 44 56 4c  4f 4f 50 32 0d 07 9e 25  |     DVLOOP2...%|
00000f90  20 20 20 20 20 20 20 20  20 20 4c 44 4d 46 44 20  |          LDMFD |
00000fa0  20 20 20 20 31 33 21 2c  7b 30 2d 31 32 2c 50 43  |    13!,{0-12,PC|
00000fb0  7d 0d 07 a8 05 5d 0d 07  b2 05 ed 0d 07 bc 09 51  |}....].........Q|
00000fc0  25 3d 50 25 0d 07 c6 13  d6 20 63 61 6c 63 5f 64  |%=P%..... calc_d|
00000fd0  69 76 74 61 62 6c 65 0d  07 d0 05 e1 0d 07 da 04  |ivtable.........|
00000fe0  0d 07 e4 16 dd 20 f2 63  61 6c 63 5f 72 6f 74 5f  |..... .calc_rot_|
00000ff0  6d 61 74 72 69 78 0d 07  ee 0f 43 48 58 3d 30 3a  |matrix....CHX=0:|
00001000  53 48 58 3d 31 0d 07 f8  0f 43 48 59 3d 32 3a 53  |SHX=1....CHY=2:S|
00001010  48 59 3d 33 0d 08 02 0f  43 48 5a 3d 34 3a 53 48  |HY=3....CHZ=4:SH|
00001020  5a 3d 35 0d 08 0c 0f 54  3d 36 3a 53 3d 37 3a 48  |Z=5....T=6:S=7:H|
00001030  3d 38 0d 08 16 15 44 48  58 3d 33 3a 44 48 59 3d  |=8....DHX=3:DHY=|
00001040  34 3a 44 48 5a 3d 35 0d  08 20 14 48 58 3d 39 3a  |4:DHZ=5.. .HX=9:|
00001050  48 59 3d 31 30 3a 48 5a  3d 31 31 0d 08 2a 14 54  |HY=10:HZ=11..*.T|
00001060  58 3d 39 3a 54 59 3d 31  30 3a 54 5a 3d 31 31 0d  |X=9:TY=10:TZ=11.|
00001070  08 34 09 43 53 3d 31 32  0d 08 3e 0f 53 43 52 3d  |.4.CS=12..>.SCR=|
00001080  30 3a 43 4f 4c 3d 31 0d  08 48 14 e3 20 50 41 53  |0:COL=1..H.. PAS|
00001090  53 3d 30 20 b8 20 32 20  88 20 32 0d 08 52 09 50  |S=0 . 2 . 2..R.P|
000010a0  25 3d 51 25 0d 08 5c 0d  5b 4f 50 54 20 50 41 53  |%=Q%..\.[OPT PAS|
000010b0  53 0d 08 66 10 2e 44 48  58 44 20 45 51 55 44 20  |S..f..DHXD EQUD |
000010c0  30 0d 08 70 10 2e 44 48  59 44 20 45 51 55 44 20  |0..p..DHYD EQUD |
000010d0  30 0d 08 7a 10 2e 44 48  5a 44 20 45 51 55 44 20  |0..z..DHZD EQUD |
000010e0  30 0d 08 84 0f 2e 48 58  44 20 45 51 55 44 20 30  |0.....HXD EQUD 0|
000010f0  0d 08 8e 0f 2e 48 59 44  20 45 51 55 44 20 30 0d  |.....HYD EQUD 0.|
00001100  08 98 0f 2e 48 5a 44 20  45 51 55 44 20 30 0d 08  |....HZD EQUD 0..|
00001110  a2 15 2e 43 53 44 20 45  51 55 44 20 43 53 54 41  |...CSD EQUD CSTA|
00001120  42 4c 45 0d 08 ac 0f 2e  54 58 44 20 45 51 55 44  |BLE.....TXD EQUD|
00001130  20 30 0d 08 b6 0f 2e 54  59 44 20 45 51 55 44 20  | 0.....TYD EQUD |
00001140  30 0d 08 c0 0f 2e 54 5a  44 20 45 51 55 44 20 30  |0.....TZD EQUD 0|
00001150  0d 08 ca 14 2e 63 61 6c  63 5f 72 6f 74 5f 6d 61  |.....calc_rot_ma|
00001160  74 72 69 78 0d 08 d4 21  20 20 20 20 20 20 20 20  |trix...!        |
00001170  20 20 53 54 4d 46 44 20  31 33 21 2c 7b 30 2d 31  |  STMFD 13!,{0-1|
00001180  32 2c 31 34 7d 0d 08 de  1c 20 20 20 20 20 20 20  |2,14}....       |
00001190  20 20 20 53 57 49 20 22  4f 53 5f 4d 6f 75 73 65  |   SWI "OS_Mouse|
000011a0  22 0d 08 e8 1c 20 20 20  20 20 20 20 20 20 20 53  |"....          S|
000011b0  55 42 20 52 30 2c 52 30  2c 23 36 34 30 0d 08 f2  |UB R0,R0,#640...|
000011c0  1e 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 52  |.          MOV R|
000011d0  30 2c 52 30 2c 4c 53 4c  20 23 33 0d 08 fc 18 20  |0,R0,LSL #3.... |
000011e0  20 20 20 20 20 20 20 20  20 53 54 52 20 52 30 2c  |         STR R0,|
000011f0  54 58 44 0d 09 06 1c 20  20 20 20 20 20 20 20 20  |TXD....         |
00001200  20 53 55 42 20 52 31 2c  52 31 2c 23 35 31 32 0d  | SUB R1,R1,#512.|
00001210  09 10 1e 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00001220  20 52 31 2c 52 31 2c 4c  53 4c 20 23 33 0d 09 1a  | R1,R1,LSL #3...|
00001230  18 20 20 20 20 20 20 20  20 20 20 53 54 52 20 52  |.          STR R|
00001240  31 2c 54 59 44 0d 09 24  18 20 20 20 20 20 20 20  |1,TYD..$.       |
00001250  20 20 20 4c 44 52 20 52  30 2c 54 5a 44 0d 09 2e  |   LDR R0,TZD...|
00001260  17 20 20 20 20 20 20 20  20 20 20 54 53 54 20 52  |.          TST R|
00001270  32 2c 23 31 0d 09 38 1d  20 20 20 20 20 20 20 20  |2,#1..8.        |
00001280  20 20 53 55 42 45 51 20  52 30 2c 52 30 2c 23 36  |  SUBEQ R0,R0,#6|
00001290  34 0d 09 42 17 20 20 20  20 20 20 20 20 20 20 54  |4..B.          T|
000012a0  53 54 20 52 32 2c 23 34  0d 09 4c 1d 20 20 20 20  |ST R2,#4..L.    |
000012b0  20 20 20 20 20 20 41 44  44 45 51 20 52 30 2c 52  |      ADDEQ R0,R|
000012c0  30 2c 23 36 34 0d 09 56  18 20 20 20 20 20 20 20  |0,#64..V.       |
000012d0  20 20 20 53 54 52 20 52  30 2c 54 5a 44 0d 09 60  |   STR R0,TZD..`|
000012e0  18 20 20 20 20 20 20 20  20 20 20 41 44 52 20 54  |.          ADR T|
000012f0  2c 44 48 58 44 0d 09 6a  2f 20 20 20 20 20 20 20  |,DHXD..j/       |
00001300  20 20 20 4c 44 4d 49 41  20 54 2c 7b 44 48 58 2c  |   LDMIA T,{DHX,|
00001310  44 48 59 2c 44 48 5a 2c  48 58 2c 48 59 2c 48 5a  |DHY,DHZ,HX,HY,HZ|
00001320  2c 43 53 7d 0d 09 74 1c  20 20 20 20 20 20 20 20  |,CS}..t.        |
00001330  20 20 41 44 44 20 44 48  58 2c 44 48 58 2c 48 58  |  ADD DHX,DHX,HX|
00001340  0d 09 7e 1c 20 20 20 20  20 20 20 20 20 20 41 44  |..~.          AD|
00001350  44 20 44 48 59 2c 44 48  59 2c 48 59 0d 09 88 1c  |D DHY,DHY,HY....|
00001360  20 20 20 20 20 20 20 20  20 20 41 44 44 20 44 48  |          ADD DH|
00001370  5a 2c 44 48 5a 2c 48 5a  0d 09 92 1a 20 20 20 20  |Z,DHZ,HZ....    |
00001380  20 20 20 20 20 20 41 44  44 20 54 2c 54 2c 23 33  |      ADD T,T,#3|
00001390  2a 34 0d 09 9c 23 20 20  20 20 20 20 20 20 20 20  |*4...#          |
000013a0  53 54 4d 49 41 20 54 2c  7b 44 48 58 2c 44 48 59  |STMIA T,{DHX,DHY|
000013b0  2c 44 48 5a 7d 0d 09 a6  19 20 20 20 20 20 20 20  |,DHZ}....       |
000013c0  20 20 20 4d 4f 56 20 53  2c 23 34 30 39 36 0d 09  |   MOV S,#4096..|
000013d0  b0 18 20 20 20 20 20 20  20 20 20 20 53 55 42 20  |..          SUB |
000013e0  53 2c 53 2c 23 31 0d 09  ba 17 20 20 20 20 20 20  |S,S,#1....      |
000013f0  20 20 20 20 43 4d 50 20  48 58 2c 23 30 0d 09 c4  |    CMP HX,#0...|
00001400  1c 20 20 20 20 20 20 20  20 20 20 52 53 42 4d 49  |.          RSBMI|
00001410  20 48 58 2c 48 58 2c 23  30 0d 09 ce 17 20 20 20  | HX,HX,#0....   |
00001420  20 20 20 20 20 20 20 80  20 48 58 2c 48 58 2c 53  |       . HX,HX,S|
00001430  0d 09 d8 20 20 20 20 20  20 20 20 20 20 20 41 44  |...           AD|
00001440  44 20 54 2c 43 53 2c 48  58 2c 4c 53 4c 20 23 33  |D T,CS,HX,LSL #3|
00001450  0d 09 e2 1f 20 20 20 20  20 20 20 20 20 20 4c 44  |....          LD|
00001460  4d 49 41 20 54 2c 7b 43  48 58 2c 53 48 58 7d 0d  |MIA T,{CHX,SHX}.|
00001470  09 ec 1e 20 20 20 20 20  20 20 20 20 20 52 53 42  |...          RSB|
00001480  4d 49 20 53 48 58 2c 53  48 58 2c 23 30 0d 09 f6  |MI SHX,SHX,#0...|
00001490  17 20 20 20 20 20 20 20  20 20 20 43 4d 50 20 48  |.          CMP H|
000014a0  59 2c 23 30 0d 0a 00 1c  20 20 20 20 20 20 20 20  |Y,#0....        |
000014b0  20 20 52 53 42 4d 49 20  48 59 2c 48 59 2c 23 30  |  RSBMI HY,HY,#0|
000014c0  0d 0a 0a 17 20 20 20 20  20 20 20 20 20 20 80 20  |....          . |
000014d0  48 59 2c 48 59 2c 53 0d  0a 14 20 20 20 20 20 20  |HY,HY,S...      |
000014e0  20 20 20 20 20 41 44 44  20 54 2c 43 53 2c 48 59  |     ADD T,CS,HY|
000014f0  2c 4c 53 4c 20 23 33 0d  0a 1e 1f 20 20 20 20 20  |,LSL #3....     |
00001500  20 20 20 20 20 4c 44 4d  49 41 20 54 2c 7b 43 48  |     LDMIA T,{CH|
00001510  59 2c 53 48 59 7d 0d 0a  28 1e 20 20 20 20 20 20  |Y,SHY}..(.      |
00001520  20 20 20 20 52 53 42 4d  49 20 53 48 59 2c 53 48  |    RSBMI SHY,SH|
00001530  59 2c 23 30 0d 0a 32 17  20 20 20 20 20 20 20 20  |Y,#0..2.        |
00001540  20 20 43 4d 50 20 48 5a  2c 23 30 0d 0a 3c 1c 20  |  CMP HZ,#0..<. |
00001550  20 20 20 20 20 20 20 20  20 52 53 42 4d 49 20 48  |         RSBMI H|
00001560  5a 2c 48 5a 2c 23 30 0d  0a 46 17 20 20 20 20 20  |Z,HZ,#0..F.     |
00001570  20 20 20 20 20 80 20 48  5a 2c 48 5a 2c 53 0d 0a  |     . HZ,HZ,S..|
00001580  50 20 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |P           ADD |
00001590  54 2c 43 53 2c 48 5a 2c  4c 53 4c 20 23 33 0d 0a  |T,CS,HZ,LSL #3..|
000015a0  5a 1f 20 20 20 20 20 20  20 20 20 20 4c 44 4d 49  |Z.          LDMI|
000015b0  41 20 54 2c 7b 43 48 5a  2c 53 48 5a 7d 0d 0a 64  |A T,{CHZ,SHZ}..d|
000015c0  1e 20 20 20 20 20 20 20  20 20 20 52 53 42 4d 49  |.          RSBMI|
000015d0  20 53 48 5a 2c 53 48 5a  2c 23 30 0d 0a 6e 17 20  | SHZ,SHZ,#0..n. |
000015e0  20 20 20 20 20 20 20 20  20 41 44 52 20 54 2c 54  |         ADR T,T|
000015f0  58 44 0d 0a 78 20 20 20  20 20 20 20 20 20 20 20  |XD..x           |
00001600  4c 44 4d 49 41 20 54 2c  7b 54 58 2c 54 59 2c 54  |LDMIA T,{TX,TY,T|
00001610  5a 7d 0d 0a 82 1b 20 20  20 20 20 20 20 20 20 20  |Z}....          |
00001620  4d 55 4c 20 54 2c 43 48  59 2c 43 48 5a 0d 0a 8c  |MUL T,CHY,CHZ...|
00001630  1d 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 54  |.          MOV T|
00001640  2c 54 2c 41 53 52 20 23  31 35 0d 0a 96 1b 20 20  |,T,ASR #15....  |
00001650  20 20 20 20 20 20 20 20  4d 55 4c 20 53 2c 43 48  |        MUL S,CH|
00001660  59 2c 53 48 5a 0d 0a a0  1d 20 20 20 20 20 20 20  |Y,SHZ....       |
00001670  20 20 20 4d 4f 56 20 53  2c 53 2c 4c 53 52 20 23  |   MOV S,S,LSR #|
00001680  31 35 0d 0a aa 1f 20 20  20 20 20 20 20 20 20 20  |15....          |
00001690  41 44 44 20 54 2c 53 2c  54 2c 4c 53 4c 20 23 31  |ADD T,S,T,LSL #1|
000016a0  36 0d 0a b4 17 20 20 20  20 20 20 20 20 20 20 53  |6....          S|
000016b0  54 52 20 54 2c 41 31 44  0d 0a be 22 20 20 20 20  |TR T,A1D..."    |
000016c0  20 20 20 20 20 20 41 44  44 20 54 2c 54 58 2c 53  |      ADD T,TX,S|
000016d0  48 59 2c 4c 53 4c 20 23  31 36 0d 0a c8 17 20 20  |HY,LSL #16....  |
000016e0  20 20 20 20 20 20 20 20  53 54 52 20 54 2c 41 32  |        STR T,A2|
000016f0  44 0d 0a d2 04 0d 0a dc  1b 20 20 20 20 20 20 20  |D........       |
00001700  20 20 20 4d 55 4c 20 54  2c 53 48 58 2c 53 48 59  |   MUL T,SHX,SHY|
00001710  0d 0a e6 1d 20 20 20 20  20 20 20 20 20 20 4d 4f  |....          MO|
00001720  56 20 54 2c 54 2c 41 53  52 20 23 31 35 0d 0a f0  |V T,T,ASR #15...|
00001730  15 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 53  |.          MOV S|
00001740  2c 54 0d 0a fa 1b 20 20  20 20 20 20 20 20 20 20  |,T....          |
00001750  4d 55 4c 20 48 2c 43 48  58 2c 53 48 5a 0d 0b 04  |MUL H,CHX,SHZ...|
00001760  1b 20 20 20 20 20 20 20  20 20 20 4d 4c 41 20 54  |.          MLA T|
00001770  2c 43 48 5a 2c 54 2c 48  0d 0b 0e 18 20 20 20 20  |,CHZ,T,H....    |
00001780  20 20 20 20 20 20 52 53  42 20 54 2c 54 2c 23 30  |      RSB T,T,#0|
00001790  0d 0b 18 1d 20 20 20 20  20 20 20 20 20 20 4d 4f  |....          MO|
000017a0  56 20 54 2c 54 2c 41 53  52 20 23 31 35 0d 0b 22  |V T,T,ASR #15.."|
000017b0  1b 20 20 20 20 20 20 20  20 20 20 4d 55 4c 20 48  |.          MUL H|
000017c0  2c 43 48 58 2c 43 48 5a  0d 0b 2c 19 20 20 20 20  |,CHX,CHZ..,.    |
000017d0  20 20 20 20 20 20 4d 55  4c 20 53 2c 53 48 5a 2c  |      MUL S,SHZ,|
000017e0  53 0d 0b 36 17 20 20 20  20 20 20 20 20 20 20 53  |S..6.          S|
000017f0  55 42 20 53 2c 48 2c 53  0d 0b 40 1d 20 20 20 20  |UB S,H,S..@.    |
00001800  20 20 20 20 20 20 4d 4f  56 20 53 2c 53 2c 4c 53  |      MOV S,S,LS|
00001810  52 20 23 31 35 0d 0b 4a  04 0d 0b 54 1f 20 20 20  |R #15..J...T.   |
00001820  20 20 20 20 20 20 20 41  44 44 20 54 2c 53 2c 54  |       ADD T,S,T|
00001830  2c 4c 53 4c 20 23 31 36  0d 0b 5e 17 20 20 20 20  |,LSL #16..^.    |
00001840  20 20 20 20 20 20 53 54  52 20 54 2c 42 31 44 0d  |      STR T,B1D.|
00001850  0b 68 1b 20 20 20 20 20  20 20 20 20 20 4d 55 4c  |.h.          MUL|
00001860  20 54 2c 53 48 58 2c 43  48 59 0d 0b 72 1d 20 20  | T,SHX,CHY..r.  |
00001870  20 20 20 20 20 20 20 20  4d 4f 56 20 54 2c 54 2c  |        MOV T,T,|
00001880  41 53 52 20 23 31 35 0d  0b 7c 20 20 20 20 20 20  |ASR #15..|      |
00001890  20 20 20 20 20 41 44 44  20 54 2c 54 59 2c 54 2c  |     ADD T,TY,T,|
000018a0  4c 53 4c 20 23 31 36 0d  0b 86 17 20 20 20 20 20  |LSL #16....     |
000018b0  20 20 20 20 20 53 54 52  20 54 2c 42 32 44 0d 0b  |     STR T,B2D..|
000018c0  90 1b 20 20 20 20 20 20  20 20 20 20 4d 55 4c 20  |..          MUL |
000018d0  54 2c 43 48 58 2c 53 48  59 0d 0b 9a 1d 20 20 20  |T,CHX,SHY....   |
000018e0  20 20 20 20 20 20 20 4d  4f 56 20 54 2c 54 2c 41  |       MOV T,T,A|
000018f0  53 52 20 23 31 35 0d 0b  a4 15 20 20 20 20 20 20  |SR #15....      |
00001900  20 20 20 20 4d 4f 56 20  53 2c 54 0d 0b ae 19 20  |    MOV S,T.... |
00001910  20 20 20 20 20 20 20 20  20 4d 55 4c 20 54 2c 43  |         MUL T,C|
00001920  48 5a 2c 54 0d 0b b8 1b  20 20 20 20 20 20 20 20  |HZ,T....        |
00001930  20 20 4d 55 4c 20 48 2c  53 48 58 2c 53 48 5a 0d  |  MUL H,SHX,SHZ.|
00001940  0b c2 17 20 20 20 20 20  20 20 20 20 20 53 55 42  |...          SUB|
00001950  20 54 2c 48 2c 54 0d 0b  cc 1d 20 20 20 20 20 20  | T,H,T....      |
00001960  20 20 20 20 4d 4f 56 20  54 2c 54 2c 41 53 52 20  |    MOV T,T,ASR |
00001970  23 31 35 0d 0b d6 19 20  20 20 20 20 20 20 20 20  |#15....         |
00001980  20 4d 55 4c 20 53 2c 53  48 5a 2c 53 0d 0b e0 1d  | MUL S,SHZ,S....|
00001990  20 20 20 20 20 20 20 20  20 20 4d 4c 41 20 48 2c  |          MLA H,|
000019a0  53 48 58 2c 43 48 5a 2c  53 0d 0b ea 18 20 20 20  |SHX,CHZ,S....   |
000019b0  20 20 20 20 20 20 20 52  53 42 20 53 2c 48 2c 23  |       RSB S,H,#|
000019c0  30 0d 0b f4 1d 20 20 20  20 20 20 20 20 20 20 4d  |0....          M|
000019d0  4f 56 20 53 2c 53 2c 4c  53 52 20 23 31 35 0d 0b  |OV S,S,LSR #15..|
000019e0  fe 1f 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |..          ADD |
000019f0  54 2c 53 2c 54 2c 4c 53  4c 20 23 31 36 0d 0c 08  |T,S,T,LSL #16...|
00001a00  17 20 20 20 20 20 20 20  20 20 20 53 54 52 20 54  |.          STR T|
00001a10  2c 43 31 44 0d 0c 12 1b  20 20 20 20 20 20 20 20  |,C1D....        |
00001a20  20 20 4d 55 4c 20 54 2c  43 48 58 2c 43 48 59 0d  |  MUL T,CHX,CHY.|
00001a30  0c 1c 1d 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00001a40  20 54 2c 54 2c 41 53 52  20 23 31 35 0d 0c 26 20  | T,T,ASR #15..& |
00001a50  20 20 20 20 20 20 20 20  20 20 41 44 44 20 54 2c  |          ADD T,|
00001a60  54 5a 2c 54 2c 4c 53 4c  20 23 31 36 0d 0c 30 17  |TZ,T,LSL #16..0.|
00001a70  20 20 20 20 20 20 20 20  20 20 53 54 52 20 54 2c  |          STR T,|
00001a80  43 32 44 0d 0c 3a 21 20  20 20 20 20 20 20 20 20  |C2D..:!         |
00001a90  20 4c 44 4d 46 44 20 31  33 21 2c 7b 30 2d 31 32  | LDMFD 13!,{0-12|
00001aa0  2c 50 43 7d 0d 0c 44 05  5d 0d 0c 4e 05 ed 0d 0c  |,PC}..D.]..N....|
00001ab0  58 09 51 25 3d 50 25 0d  0c 62 05 e1 0d 0c 6c 04  |X.Q%=P%..b....l.|
00001ac0  0d 0c 76 04 0d 0c 80 04  0d 0c 8a 10 dd 20 f2 74  |..v.......... .t|
00001ad0  72 61 6e 73 66 6f 72 6d  0d 0c 94 47 41 31 3d 30  |ransform...GA1=0|
00001ae0  3a 41 32 3d 31 3a 42 31  3d 32 3a 42 32 3d 33 3a  |:A2=1:B1=2:B2=3:|
00001af0  43 31 3d 34 3a 43 32 3d  35 3a 54 3d 36 3a 44 49  |C1=4:C2=5:T=6:DI|
00001b00  54 3d 37 3a 55 3d 38 3a  56 3d 39 3a 57 3d 31 30  |T=7:U=8:V=9:W=10|
00001b10  3a 58 3d 31 30 3a 59 3d  31 31 3a 5a 3d 31 32 0d  |:X=10:Y=11:Z=12.|
00001b20  0c 9e 0d 41 3d 31 33 3a  42 3d 31 34 0d 0c a8 14  |...A=13:B=14....|
00001b30  e3 20 50 41 53 53 3d 30  20 b8 20 32 20 88 20 32  |. PASS=0 . 2 . 2|
00001b40  0d 0c b2 09 50 25 3d 51  25 0d 0c bc 0d 5b 4f 50  |....P%=Q%....[OP|
00001b50  54 20 50 41 53 53 0d 0c  c6 1b 2e 41 31 44 20 45  |T PASS.....A1D E|
00001b60  51 55 44 20 30 3a 2e 41  32 44 20 45 51 55 44 20  |QUD 0:.A2D EQUD |
00001b70  30 0d 0c d0 1b 2e 42 31  44 20 45 51 55 44 20 30  |0.....B1D EQUD 0|
00001b80  3a 2e 42 32 44 20 45 51  55 44 20 30 0d 0c da 1b  |:.B2D EQUD 0....|
00001b90  2e 43 31 44 20 45 51 55  44 20 30 3a 2e 43 32 44  |.C1D EQUD 0:.C2D|
00001ba0  20 45 51 55 44 20 30 0d  0c e4 16 2e 44 49 54 44  | EQUD 0.....DITD|
00001bb0  20 45 51 55 44 20 44 49  54 41 42 4c 45 0d 0c ee  | EQUD DITABLE...|
00001bc0  11 2e 41 44 20 45 51 55  44 20 50 55 4e 54 0d 0c  |..AD EQUD PUNT..|
00001bd0  f8 14 2e 42 44 20 45 51  55 44 20 50 52 4f 4a 45  |...BD EQUD PROJE|
00001be0  43 54 0d 0d 02 0e 2e 56  44 20 45 51 55 44 20 30  |CT.....VD EQUD 0|
00001bf0  0d 0d 0c 0e 2e 53 50 20  45 51 55 44 20 30 0d 0d  |.....SP EQUD 0..|
00001c00  16 0e 2e 4c 4b 20 45 51  55 44 20 30 0d 0d 20 04  |...LK EQUD 0.. .|
00001c10  0d 0d 2a 04 0d 0d 34 0e  2e 74 72 61 6e 73 66 6f  |..*...4..transfo|
00001c20  72 6d 0d 0d 3e 25 20 20  20 20 20 20 20 20 20 20  |rm..>%          |
00001c30  53 54 4d 46 44 20 20 20  20 20 31 33 21 2c 7b 30  |STMFD     13!,{0|
00001c40  2d 31 32 2c 31 34 7d 0d  0d 48 1d 20 20 20 20 20  |-12,14}..H.     |
00001c50  20 20 20 20 20 53 54 52  20 20 20 20 20 20 20 31  |     STR       1|
00001c60  33 2c 53 50 0d 0d 52 1d  20 20 20 20 20 20 20 20  |3,SP..R.        |
00001c70  20 20 41 44 52 20 20 20  20 20 20 20 54 2c 41 31  |  ADR       T,A1|
00001c80  44 0d 0d 5c 35 20 20 20  20 20 20 20 20 20 20 4c  |D..\5          L|
00001c90  44 4d 49 41 20 20 20 20  20 54 2c 7b 41 31 2c 41  |DMIA     T,{A1,A|
00001ca0  32 2c 42 31 2c 42 32 2c  43 31 2c 43 32 2c 44 49  |2,B1,B2,C1,C2,DI|
00001cb0  54 2c 41 2c 42 7d 0d 0d  66 24 20 20 20 20 20 20  |T,A,B}..f$      |
00001cc0  20 20 20 20 4c 44 4d 49  41 20 20 20 20 20 28 41  |    LDMIA     (A|
00001cd0  29 21 2c 7b 58 2c 59 2c  5a 7d 0d 0d 70 0a 2e 54  |)!,{X,Y,Z}..p..T|
00001ce0  52 41 4e 53 0d 0d 7a 24  20 20 20 20 20 20 20 20  |RANS..z$        |
00001cf0  20 20 4d 4f 56 20 20 20  20 20 20 20 54 2c 41 31  |  MOV       T,A1|
00001d00  2c 41 53 52 20 23 31 36  0d 0d 84 1d 20 20 20 20  |,ASR #16....    |
00001d10  20 20 20 20 20 20 4d 55  4c 20 20 20 20 20 20 20  |      MUL       |
00001d20  55 2c 58 2c 54 0d 0d 8e  24 20 20 20 20 20 20 20  |U,X,T...$       |
00001d30  20 20 20 4d 4f 56 20 20  20 20 20 20 20 54 2c 41  |   MOV       T,A|
00001d40  31 2c 4c 53 4c 20 23 31  36 0d 0d 98 23 20 20 20  |1,LSL #16...#   |
00001d50  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
00001d60  20 54 2c 54 2c 41 53 52  20 23 31 36 0d 0d a2 1f  | T,T,ASR #16....|
00001d70  20 20 20 20 20 20 20 20  20 20 4d 4c 41 20 20 20  |          MLA   |
00001d80  20 20 20 20 55 2c 59 2c  54 2c 55 0d 0d ac 24 20  |    U,Y,T,U...$ |
00001d90  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00001da0  20 20 20 54 2c 41 32 2c  41 53 52 20 23 31 36 0d  |   T,A2,ASR #16.|
00001db0  0d b6 1f 20 20 20 20 20  20 20 20 20 20 4d 4c 41  |...          MLA|
00001dc0  20 20 20 20 20 20 20 55  2c 5a 2c 54 2c 55 0d 0d  |       U,Z,T,U..|
00001dd0  c0 24 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |.$          MOV |
00001de0  20 20 20 20 20 20 54 2c  41 32 2c 4c 53 4c 20 23  |      T,A2,LSL #|
00001df0  31 36 0d 0d ca 23 20 20  20 20 20 20 20 20 20 20  |16...#          |
00001e00  4d 4f 56 20 20 20 20 20  20 20 54 2c 54 2c 41 53  |MOV       T,T,AS|
00001e10  52 20 23 31 36 0d 0d d4  25 20 20 20 20 20 20 20  |R #16...%       |
00001e20  20 20 20 41 44 44 20 20  20 20 20 20 20 55 2c 54  |   ADD       U,T|
00001e30  2c 55 2c 41 53 52 20 23  31 35 0d 0d de 24 20 20  |,U,ASR #15...$  |
00001e40  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00001e50  20 20 54 2c 42 31 2c 41  53 52 20 23 31 36 0d 0d  |  T,B1,ASR #16..|
00001e60  e8 1d 20 20 20 20 20 20  20 20 20 20 4d 55 4c 20  |..          MUL |
00001e70  20 20 20 20 20 20 56 2c  58 2c 54 0d 0d f2 24 20  |      V,X,T...$ |
00001e80  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00001e90  20 20 20 54 2c 42 31 2c  4c 53 4c 20 23 31 36 0d  |   T,B1,LSL #16.|
00001ea0  0d fc 23 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |..#          MOV|
00001eb0  20 20 20 20 20 20 20 54  2c 54 2c 41 53 52 20 23  |       T,T,ASR #|
00001ec0  31 36 0d 0e 06 1f 20 20  20 20 20 20 20 20 20 20  |16....          |
00001ed0  4d 4c 41 20 20 20 20 20  20 20 56 2c 59 2c 54 2c  |MLA       V,Y,T,|
00001ee0  56 0d 0e 10 24 20 20 20  20 20 20 20 20 20 20 4d  |V...$          M|
00001ef0  4f 56 20 20 20 20 20 20  20 54 2c 42 32 2c 41 53  |OV       T,B2,AS|
00001f00  52 20 23 31 36 0d 0e 1a  1f 20 20 20 20 20 20 20  |R #16....       |
00001f10  20 20 20 4d 4c 41 20 20  20 20 20 20 20 56 2c 5a  |   MLA       V,Z|
00001f20  2c 54 2c 56 0d 0e 24 24  20 20 20 20 20 20 20 20  |,T,V..$$        |
00001f30  20 20 4d 4f 56 20 20 20  20 20 20 20 54 2c 42 32  |  MOV       T,B2|
00001f40  2c 4c 53 4c 20 23 31 36  0d 0e 2e 23 20 20 20 20  |,LSL #16...#    |
00001f50  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00001f60  54 2c 54 2c 41 53 52 20  23 31 36 0d 0e 38 25 20  |T,T,ASR #16..8% |
00001f70  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00001f80  20 20 20 56 2c 54 2c 56  2c 41 53 52 20 23 31 35  |   V,T,V,ASR #15|
00001f90  0d 0e 42 24 20 20 20 20  20 20 20 20 20 20 4d 4f  |..B$          MO|
00001fa0  56 20 20 20 20 20 20 20  54 2c 43 31 2c 41 53 52  |V       T,C1,ASR|
00001fb0  20 23 31 36 0d 0e 4c 1d  20 20 20 20 20 20 20 20  | #16..L.        |
00001fc0  20 20 4d 55 4c 20 20 20  20 20 20 20 57 2c 54 2c  |  MUL       W,T,|
00001fd0  58 0d 0e 56 24 20 20 20  20 20 20 20 20 20 20 4d  |X..V$          M|
00001fe0  4f 56 20 20 20 20 20 20  20 54 2c 43 31 2c 4c 53  |OV       T,C1,LS|
00001ff0  4c 20 23 31 36 0d 0e 60  23 20 20 20 20 20 20 20  |L #16..`#       |
00002000  20 20 20 4d 4f 56 20 20  20 20 20 20 20 54 2c 54  |   MOV       T,T|
00002010  2c 41 53 52 20 23 31 36  0d 0e 6a 1f 20 20 20 20  |,ASR #16..j.    |
00002020  20 20 20 20 20 20 4d 4c  41 20 20 20 20 20 20 20  |      MLA       |
00002030  57 2c 59 2c 54 2c 57 0d  0e 74 24 20 20 20 20 20  |W,Y,T,W..t$     |
00002040  20 20 20 20 20 4d 4f 56  20 20 20 20 20 20 20 54  |     MOV       T|
00002050  2c 43 32 2c 41 53 52 20  23 31 36 0d 0e 7e 1f 20  |,C2,ASR #16..~. |
00002060  20 20 20 20 20 20 20 20  20 4d 4c 41 20 20 20 20  |         MLA    |
00002070  20 20 20 57 2c 5a 2c 54  2c 57 0d 0e 88 24 20 20  |   W,Z,T,W...$  |
00002080  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00002090  20 20 54 2c 43 32 2c 4c  53 4c 20 23 31 36 0d 0e  |  T,C2,LSL #16..|
000020a0  92 23 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |.#          MOV |
000020b0  20 20 20 20 20 20 54 2c  54 2c 41 53 52 20 23 31  |      T,T,ASR #1|
000020c0  36 0d 0e 9c 25 20 20 20  20 20 20 20 20 20 20 41  |6...%          A|
000020d0  44 44 20 20 20 20 20 20  20 57 2c 54 2c 57 2c 41  |DD       W,T,W,A|
000020e0  53 52 20 23 31 35 0d 0e  a6 28 20 20 20 20 20 20  |SR #15...(      |
000020f0  20 20 20 20 4c 44 52 20  20 20 20 20 20 20 57 2c  |    LDR       W,|
00002100  5b 44 49 54 2c 57 2c 4c  53 4c 20 23 32 5d 0d 0e  |[DIT,W,LSL #2]..|
00002110  b0 1d 20 20 20 20 20 20  20 20 20 20 4d 55 4c 20  |..          MUL |
00002120  20 20 20 20 20 20 55 2c  57 2c 55 0d 0e ba 1d 20  |      U,W,U.... |
00002130  20 20 20 20 20 20 20 20  20 4d 55 4c 20 20 20 20  |         MUL    |
00002140  20 20 20 56 2c 57 2c 56  0d 0e c4 23 20 20 20 20  |   V,W,V...#    |
00002150  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00002160  55 2c 55 2c 41 53 52 20  23 31 32 0d 0e ce 23 20  |U,U,ASR #12...# |
00002170  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00002180  20 20 20 56 2c 56 2c 41  53 52 20 23 31 32 0d 0e  |   V,V,ASR #12..|
00002190  d8 20 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |.           ADD |
000021a0  20 20 20 20 20 20 55 2c  55 2c 23 31 36 30 0d 0e  |      U,U,#160..|
000021b0  e2 20 20 20 20 20 20 20  20 20 20 20 52 53 42 20  |.           RSB |
000021c0  20 20 20 20 20 20 56 2c  56 2c 23 31 32 38 0d 0e  |      V,V,#128..|
000021d0  ec 22 20 20 20 20 20 20  20 20 20 20 53 54 4d 49  |."          STMI|
000021e0  41 20 20 20 20 20 28 42  29 21 2c 7b 55 2c 56 7d  |A     (B)!,{U,V}|
000021f0  0d 0e f6 24 20 20 20 20  20 20 20 20 20 20 4c 44  |...$          LD|
00002200  4d 49 41 20 20 20 20 20  28 41 29 21 2c 7b 58 2c  |MIA     (A)!,{X,|
00002210  59 2c 5a 7d 0d 0f 00 20  20 20 20 20 20 20 20 20  |Y,Z}...         |
00002220  20 20 43 4d 50 20 20 20  20 20 20 20 58 2c 23 31  |  CMP       X,#1|
00002230  3c 3c 33 30 0d 0f 0a 1d  20 20 20 20 20 20 20 20  |<<30....        |
00002240  20 20 42 4e 45 20 20 20  20 20 20 20 54 52 41 4e  |  BNE       TRAN|
00002250  53 0d 0f 14 1d 20 20 20  20 20 20 20 20 20 20 4c  |S....          L|
00002260  44 52 20 20 20 20 20 20  20 31 33 2c 53 50 0d 0f  |DR       13,SP..|
00002270  1e 25 20 20 20 20 20 20  20 20 20 20 4c 44 4d 46  |.%          LDMF|
00002280  44 20 20 20 20 20 31 33  21 2c 7b 30 2d 31 32 2c  |D     13!,{0-12,|
00002290  50 43 7d 0d 0f 28 04 0d  0f 32 05 5d 0d 0f 3c 05  |PC}..(...2.]..<.|
000022a0  ed 0d 0f 46 09 51 25 3d  50 25 0d 0f 50 05 e1 0d  |...F.Q%=P%..P...|
000022b0  0f 5a 04 0d 0f 64 04 0d  0f 6e 0c dd 20 f2 62 65  |.Z...d...n.. .be|
000022c0  67 69 6e 0d 0f 78 15 53  50 3d 31 33 3a 4c 4b 3d  |gin..x.SP=13:LK=|
000022d0  31 34 3a 50 43 3d 31 35  0d 0f 82 14 e3 20 50 41  |14:PC=15..... PA|
000022e0  53 53 3d 30 20 b8 20 32  20 88 20 32 0d 0f 8c 09  |SS=0 . 2 . 2....|
000022f0  50 25 3d 51 25 0d 0f 96  0d 5b 4f 50 54 20 50 41  |P%=Q%....[OPT PA|
00002300  53 53 0d 0f a0 0c 2e 61  6e 69 6d 61 74 65 0d 0f  |SS.....animate..|
00002310  aa 12 53 54 4d 46 44 20  31 33 21 2c 7b 31 34 7d  |..STMFD 13!,{14}|
00002320  0d 0f b4 05 5d 0d 0f be  05 ed 0d 0f c8 09 51 25  |....].........Q%|
00002330  3d 50 25 0d 0f d2 05 e1  0d 0f dc 04 0d 0f e6 0a  |=P%.............|
00002340  dd 20 f2 65 6e 64 0d 0f  f0 14 e3 20 50 41 53 53  |. .end..... PASS|
00002350  3d 30 20 b8 20 32 20 88  20 32 0d 0f fa 09 50 25  |=0 . 2 . 2....P%|
00002360  3d 51 25 0d 10 04 0d 5b  4f 50 54 20 50 41 53 53  |=Q%....[OPT PASS|
00002370  0d 10 0e 1c 53 57 49 20  22 4f 53 5f 52 65 61 64  |....SWI "OS_Read|
00002380  45 73 63 61 70 65 53 74  61 74 65 22 0d 10 18 14  |EscapeState"....|
00002390  4c 44 4d 46 44 20 28 53  50 29 21 2c 7b 50 43 7d  |LDMFD (SP)!,{PC}|
000023a0  0d 10 22 05 5d 0d 10 2c  05 ed 0d 10 36 09 51 25  |..".]..,....6.Q%|
000023b0  3d 50 25 0d 10 40 05 e1  0d 10 4a 04 0d 10 54 04  |=P%..@....J...T.|
000023c0  0d 10 5e 11 dd 20 f2 64  72 61 77 6f 62 6a 65 63  |..^.. .drawobjec|
000023d0  74 0d 10 68 3a 54 3d 30  3a 56 3d 31 3a 54 41 42  |t..h:T=0:V=1:TAB|
000023e0  3d 32 3a 43 56 3d 33 3a  4e 52 3d 34 3a 58 31 3d  |=2:CV=3:NR=4:X1=|
000023f0  35 3a 59 31 3d 36 3a 58  32 3d 37 3a 59 32 3d 38  |5:Y1=6:X2=7:Y2=8|
00002400  3a 58 33 3d 39 3a 59 33  3d 31 30 0d 10 72 12 50  |:X3=9:Y3=10..r.P|
00002410  31 3d 35 3a 50 32 3d 37  3a 50 33 3d 39 0d 10 7c  |1=5:P2=7:P3=9..||
00002420  14 e3 20 50 41 53 53 3d  30 20 b8 20 32 20 88 20  |.. PASS=0 . 2 . |
00002430  32 0d 10 86 09 50 25 3d  51 25 0d 10 90 0d 5b 4f  |2....P%=Q%....[O|
00002440  50 54 20 50 41 53 53 0d  10 9a 17 2e 56 4c 41 4b  |PT PASS.....VLAK|
00002450  50 20 20 20 20 45 51 55  44 20 56 4c 41 4b 0d 10  |P    EQUD VLAK..|
00002460  a4 3e 2e 54 41 42 44 20  20 20 20 20 45 51 55 44  |.>.TABD     EQUD|
00002470  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
00002480  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
00002490  51 55 44 20 30 3a 45 51  55 44 20 30 0d 10 ae 3e  |QUD 0:EQUD 0...>|
000024a0  20 20 20 20 20 20 20 20  20 20 45 51 55 44 20 30  |          EQUD 0|
000024b0  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
000024c0  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
000024d0  44 20 30 3a 45 51 55 44  20 30 0d 10 b8 04 0d 10  |D 0:EQUD 0......|
000024e0  c2 0f 2e 64 72 61 77 6f  62 6a 65 63 74 0d 10 cc  |...drawobject...|
000024f0  25 20 20 20 20 20 20 20  20 20 20 53 54 4d 46 44  |%          STMFD|
00002500  20 20 20 20 20 31 33 21  2c 7b 30 2d 31 32 2c 31  |     13!,{0-12,1|
00002510  34 7d 0d 10 d6 1f 20 20  20 20 20 20 20 20 20 20  |4}....          |
00002520  4c 44 52 20 20 20 20 20  20 20 56 2c 56 4c 41 4b  |LDR       V,VLAK|
00002530  50 0d 10 e0 1e 20 20 20  20 20 20 20 20 20 20 4d  |P....          M|
00002540  4f 56 20 20 20 20 20 20  20 43 56 2c 23 4e 56 0d  |OV       CV,#NV.|
00002550  10 ea 09 2e 64 72 61 77  0d 10 f4 20 20 20 20 20  |....draw...     |
00002560  20 20 20 20 20 20 41 44  52 20 20 20 20 20 20 20  |      ADR       |
00002570  54 41 42 2c 54 41 42 44  0d 10 fe 27 20 20 20 20  |TAB,TABD...'    |
00002580  20 20 20 20 20 20 4c 44  4d 49 41 20 20 20 20 20  |      LDMIA     |
00002590  28 56 29 21 2c 7b 50 31  2c 50 32 2c 50 33 7d 0d  |(V)!,{P1,P2,P3}.|
000025a0  11 08 22 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |.."          LDM|
000025b0  49 41 20 20 20 20 20 50  31 2c 7b 58 31 2c 59 31  |IA     P1,{X1,Y1|
000025c0  7d 0d 11 12 26 20 20 20  20 20 20 20 20 20 20 53  |}...&          S|
000025d0  54 4d 49 41 20 20 20 20  20 28 54 41 42 29 21 2c  |TMIA     (TAB)!,|
000025e0  7b 58 31 2c 59 31 7d 0d  11 1c 22 20 20 20 20 20  |{X1,Y1}..."     |
000025f0  20 20 20 20 20 4c 44 4d  49 41 20 20 20 20 20 50  |     LDMIA     P|
00002600  32 2c 7b 58 32 2c 59 32  7d 0d 11 26 26 20 20 20  |2,{X2,Y2}..&&   |
00002610  20 20 20 20 20 20 20 53  54 4d 49 41 20 20 20 20  |       STMIA    |
00002620  20 28 54 41 42 29 21 2c  7b 58 32 2c 59 32 7d 0d  | (TAB)!,{X2,Y2}.|
00002630  11 30 22 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |.0"          LDM|
00002640  49 41 20 20 20 20 20 50  33 2c 7b 58 33 2c 59 33  |IA     P3,{X3,Y3|
00002650  7d 0d 11 3a 26 20 20 20  20 20 20 20 20 20 20 53  |}..:&          S|
00002660  54 4d 49 41 20 20 20 20  20 28 54 41 42 29 21 2c  |TMIA     (TAB)!,|
00002670  7b 58 33 2c 59 33 7d 0d  11 44 20 20 20 20 20 20  |{X3,Y3}..D      |
00002680  20 20 20 20 20 53 55 42  20 20 20 20 20 20 20 58  |     SUB       X|
00002690  32 2c 58 32 2c 58 31 0d  11 4e 20 20 20 20 20 20  |2,X2,X1..N      |
000026a0  20 20 20 20 20 53 55 42  20 20 20 20 20 20 20 58  |     SUB       X|
000026b0  33 2c 58 33 2c 58 31 0d  11 58 20 20 20 20 20 20  |3,X3,X1..X      |
000026c0  20 20 20 20 20 53 55 42  20 20 20 20 20 20 20 59  |     SUB       Y|
000026d0  32 2c 59 32 2c 59 31 0d  11 62 20 20 20 20 20 20  |2,Y2,Y1..b      |
000026e0  20 20 20 20 20 53 55 42  20 20 20 20 20 20 20 59  |     SUB       Y|
000026f0  33 2c 59 33 2c 59 31 0d  11 6c 1f 20 20 20 20 20  |3,Y3,Y1..l.     |
00002700  20 20 20 20 20 4d 55 4c  20 20 20 20 20 20 20 54  |     MUL       T|
00002710  2c 58 32 2c 59 33 0d 11  76 1e 20 20 20 20 20 20  |,X2,Y3..v.      |
00002720  20 20 20 20 52 53 42 20  20 20 20 20 20 20 54 2c  |    RSB       T,|
00002730  54 2c 23 30 0d 11 80 21  20 20 20 20 20 20 20 20  |T,#0...!        |
00002740  20 20 4d 4c 41 20 20 20  20 20 20 20 54 2c 58 33  |  MLA       T,X3|
00002750  2c 59 32 2c 54 0d 11 8a  1c 20 20 20 20 20 20 20  |,Y2,T....       |
00002760  20 20 20 43 4d 50 20 20  20 20 20 20 20 54 2c 23  |   CMP       T,#|
00002770  30 0d 11 94 1e 3b 20 20  20 20 20 20 20 20 20 42  |0....;         B|
00002780  4d 49 20 20 20 20 20 20  20 6e 6f 64 72 61 77 0d  |MI       nodraw.|
00002790  11 9e 1d 20 20 20 20 20  20 20 20 20 20 80 20 20  |...          .  |
000027a0  20 20 20 20 20 54 2c 43  56 2c 23 31 0d 11 a8 22  |     T,CV,#1..."|
000027b0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 4d 49 20  |          MOVMI |
000027c0  20 20 20 20 54 2c 54 2c  4c 53 4c 20 23 31 0d 11  |    T,T,LSL #1..|
000027d0  b2 1e 20 20 20 20 20 20  20 20 20 20 42 4d 49 20  |..          BMI |
000027e0  20 20 20 20 20 20 64 72  61 77 69 74 0d 11 bc 1c  |      drawit....|
000027f0  20 20 20 20 20 20 20 20  20 20 43 4d 50 20 20 20  |          CMP   |
00002800  20 20 20 20 54 2c 23 30  0d 11 c6 1e 20 20 20 20  |    T,#0....    |
00002810  20 20 20 20 20 20 42 45  51 20 20 20 20 20 20 20  |      BEQ       |
00002820  6e 6f 64 72 61 77 0d 11  d0 0b 2e 64 72 61 77 69  |nodraw.....drawi|
00002830  74 0d 11 da 1d 20 20 20  20 20 20 20 20 20 20 84  |t....          .|
00002840  52 20 20 20 20 20 20 20  54 2c 54 2c 23 38 0d 11  |R       T,T,#8..|
00002850  ee 1d 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |..          MOV |
00002860  20 20 20 20 20 20 4e 52  2c 23 33 0d 11 f8 20 20  |      NR,#3...  |
00002870  20 20 20 20 20 20 20 20  20 41 44 52 20 20 20 20  |         ADR    |
00002880  20 20 20 54 41 42 2c 54  41 42 44 0d 12 02 1e 20  |   TAB,TABD.... |
00002890  20 20 20 20 20 20 20 20  20 42 4c 20 20 20 20 20  |         BL     |
000028a0  20 20 20 63 6f 6e 76 65  78 0d 12 0c 0b 2e 6e 6f  |   convex.....no|
000028b0  64 72 61 77 0d 12 16 20  20 20 20 20 20 20 20 20  |draw...         |
000028c0  20 20 53 55 42 53 20 20  20 20 20 20 43 56 2c 43  |  SUBS      CV,C|
000028d0  56 2c 23 31 0d 12 20 1c  20 20 20 20 20 20 20 20  |V,#1.. .        |
000028e0  20 20 42 4e 45 20 20 20  20 20 20 20 64 72 61 77  |  BNE       draw|
000028f0  0d 12 2a 25 20 20 20 20  20 20 20 20 20 20 4c 44  |..*%          LD|
00002900  4d 46 44 20 20 20 20 20  31 33 21 2c 7b 30 2d 31  |MFD     13!,{0-1|
00002910  32 2c 50 43 7d 0d 12 34  05 5d 0d 12 3e 05 ed 0d  |2,PC}..4.]..>...|
00002920  12 48 05 f4 0d 12 52 09  51 25 3d 50 25 0d 12 5c  |.H....R.Q%=P%..\|
00002930  05 e1 0d 12 66 04 0d 12  70 0d dd 20 f2 63 6f 6e  |....f...p.. .con|
00002940  76 65 78 0d 12 7a 04 0d  12 84 04 0d 12 8e 45 58  |vex..z........EX|
00002950  31 3d 30 3a 59 31 3d 31  3a 58 32 3d 32 3a 59 32  |1=0:Y1=1:X2=2:Y2|
00002960  3d 33 3a 58 4c 3d 34 3a  58 52 3d 35 3a 59 42 3d  |=3:XL=4:XR=5:YB=|
00002970  36 3a 59 54 3d 37 3a 4b  31 3d 38 3a 4b 32 3d 39  |6:YT=7:K1=8:K2=9|
00002980  3a 44 54 3d 31 30 3a 53  3d 31 31 3a 54 3d 31 32  |:DT=10:S=11:T=12|
00002990  0d 12 98 04 0d 12 a2 26  4c 4c 3d 30 3a 52 52 3d  |.......&LL=0:RR=|
000029a0  31 3a 41 3d 32 3a 42 3d  33 3a 43 3d 34 3a 4f 3d  |1:A=2:B=3:C=4:O=|
000029b0  35 3a 44 3d 36 3a 43 54  3d 37 0d 12 ac 14 e3 20  |5:D=6:CT=7..... |
000029c0  50 41 53 53 3d 30 20 b8  20 32 20 88 20 32 0d 12  |PASS=0 . 2 . 2..|
000029d0  b6 09 50 25 3d 51 25 0d  12 c0 0d 5b 4f 50 54 20  |..P%=Q%....[OPT |
000029e0  50 41 53 53 0d 12 ca 4e  5c 2d 2d 2d 2d 2d 2d 2d  |PASS...N\-------|
000029f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002a30  2d 2d 0d 12 d4 1d 2e 73  63 72 65 65 6e 31 20 45  |--.....screen1 E|
00002a40  51 55 44 20 31 34 38 3a  45 51 55 44 20 2d 31 0d  |QUD 148:EQUD -1.|
00002a50  12 de 12 2e 73 63 72 65  65 6e 20 45 51 55 44 20  |....screen EQUD |
00002a60  30 0d 12 e8 08 2e 73 65  74 0d 12 f2 3a 41 44 52  |0.....set...:ADR|
00002a70  20 52 30 2c 73 63 72 65  65 6e 31 3a 41 44 52 20  | R0,screen1:ADR |
00002a80  52 31 2c 73 63 72 65 65  6e 3a 53 57 49 20 22 4f  |R1,screen:SWI "O|
00002a90  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00002aa0  65 73 22 0d 12 fc 0e 4d  4f 56 20 50 43 2c 52 31  |es"....MOV PC,R1|
00002ab0  34 0d 13 06 04 0d 13 10  21 2e 62 61 63 6b 5f 63  |4.......!.back_c|
00002ac0  6f 6c 20 20 44 43 44 20  20 20 20 20 20 26 34 34  |ol  DCD      &44|
00002ad0  34 34 34 34 34 34 0d 13  1a 10 2e 62 61 63 6b 5f  |444444.....back_|
00002ae0  67 72 6f 75 6e 64 0d 13  24 25 20 20 20 20 20 20  |ground..$%      |
00002af0  20 20 20 20 53 54 4d 46  44 20 20 20 20 20 31 33  |    STMFD     13|
00002b00  21 2c 7b 30 2d 31 32 2c  31 34 7d 0d 13 2e 0e 20  |!,{0-12,14}.... |
00002b10  20 20 20 20 20 20 20 20  20 0d 13 38 22 20 20 20  |         ..8"   |
00002b20  20 20 20 20 20 20 20 4c  44 52 20 20 20 20 20 20  |       LDR      |
00002b30  20 35 2c 62 61 63 6b 5f  63 6f 6c 0d 13 42 21 20  | 5,back_col..B! |
00002b40  20 20 20 20 20 20 20 20  20 4c 44 52 20 20 20 20  |         LDR    |
00002b50  20 20 20 31 32 2c 73 63  72 65 65 6e 0d 13 4c 1c  |   12,screen..L.|
00002b60  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00002b70  20 20 20 20 37 2c 23 38  0d 13 56 10 2e 62 6c 6f  |    7,#8..V..blo|
00002b80  63 6b 5f 6c 6f 6f 70 32  0d 13 60 1c 20 20 20 20  |ck_loop2..`.    |
00002b90  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00002ba0  36 2c 23 35 0d 13 6a 10  2e 62 6c 6f 63 6b 5f 6c  |6,#5..j..block_l|
00002bb0  6f 6f 70 31 0d 13 74 1d  20 20 20 20 20 20 20 20  |oop1..t.        |
00002bc0  20 20 4d 4f 56 20 20 20  20 20 20 20 38 2c 23 33  |  MOV       8,#3|
00002bd0  32 0d 13 7e 10 2e 62 6c  6f 63 6b 5f 6c 6f 6f 70  |2..~..block_loop|
00002be0  33 0d 13 88 24 20 20 20  20 20 20 20 20 20 20 4c  |3...$          L|
00002bf0  44 4d 49 41 20 20 20 20  20 31 32 2c 7b 30 2c 31  |DMIA     12,{0,1|
00002c00  2c 32 2c 33 7d 0d 13 92  1c 20 20 20 20 20 20 20  |,2,3}....       |
00002c10  20 20 20 84 52 20 20 20  20 20 20 20 30 2c 30 2c  |   .R       0,0,|
00002c20  35 0d 13 9c 1c 20 20 20  20 20 20 20 20 20 20 84  |5....          .|
00002c30  52 20 20 20 20 20 20 20  31 2c 31 2c 35 0d 13 a6  |R       1,1,5...|
00002c40  1c 20 20 20 20 20 20 20  20 20 20 84 52 20 20 20  |.          .R   |
00002c50  20 20 20 20 32 2c 32 2c  35 0d 13 b0 1c 20 20 20  |    2,2,5....   |
00002c60  20 20 20 20 20 20 20 84  52 20 20 20 20 20 20 20  |       .R       |
00002c70  33 2c 33 2c 35 0d 13 ba  24 20 20 20 20 20 20 20  |3,3,5...$       |
00002c80  20 20 20 53 54 4d 49 41  20 20 20 20 20 31 32 2c  |   STMIA     12,|
00002c90  7b 30 2c 31 2c 32 2c 33  7d 0d 13 c4 22 20 20 20  |{0,1,2,3}..."   |
00002ca0  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00002cb0  20 31 32 2c 31 32 2c 23  31 36 30 0d 13 ce 24 20  | 12,12,#160...$ |
00002cc0  20 20 20 20 20 20 20 20  20 4c 44 4d 49 41 20 20  |         LDMIA  |
00002cd0  20 20 20 31 32 2c 7b 30  2c 31 2c 32 2c 33 7d 0d  |   12,{0,1,2,3}.|
00002ce0  13 d8 1c 20 20 20 20 20  20 20 20 20 20 84 52 20  |...          .R |
00002cf0  20 20 20 20 20 20 30 2c  30 2c 35 0d 13 e2 1c 20  |      0,0,5.... |
00002d00  20 20 20 20 20 20 20 20  20 84 52 20 20 20 20 20  |         .R     |
00002d10  20 20 31 2c 31 2c 35 0d  13 ec 1c 20 20 20 20 20  |  1,1,5....     |
00002d20  20 20 20 20 20 84 52 20  20 20 20 20 20 20 32 2c  |     .R       2,|
00002d30  32 2c 35 0d 13 f6 1c 20  20 20 20 20 20 20 20 20  |2,5....         |
00002d40  20 84 52 20 20 20 20 20  20 20 33 2c 33 2c 35 0d  | .R       3,3,5.|
00002d50  14 00 24 20 20 20 20 20  20 20 20 20 20 53 54 4d  |..$          STM|
00002d60  49 41 20 20 20 20 20 31  32 2c 7b 30 2c 31 2c 32  |IA     12,{0,1,2|
00002d70  2c 33 7d 0d 14 0a 22 20  20 20 20 20 20 20 20 20  |,3}..."         |
00002d80  20 41 44 44 20 20 20 20  20 20 20 31 32 2c 31 32  | ADD       12,12|
00002d90  2c 23 31 36 30 0d 14 14  1e 20 20 20 20 20 20 20  |,#160....       |
00002da0  20 20 20 53 55 42 53 20  20 20 20 20 20 38 2c 38  |   SUBS      8,8|
00002db0  2c 23 32 0d 14 1e 23 20  20 20 20 20 20 20 20 20  |,#2...#         |
00002dc0  20 42 4e 45 20 20 20 20  20 20 20 62 6c 6f 63 6b  | BNE       block|
00002dd0  5f 6c 6f 6f 70 33 0d 14  50 21 20 20 20 20 20 20  |_loop3..P!      |
00002de0  20 20 20 20 41 44 44 20  20 20 20 20 20 20 31 32  |    ADD       12|
00002df0  2c 31 32 2c 23 33 32 0d  14 5a 25 20 20 20 20 20  |,12,#32..Z%     |
00002e00  20 20 20 20 20 53 55 42  20 20 20 20 20 20 20 31  |     SUB       1|
00002e10  32 2c 31 32 2c 23 33 32  2a 31 36 30 0d 14 64 1e  |2,12,#32*160..d.|
00002e20  20 20 20 20 20 20 20 20  20 20 53 55 42 53 20 20  |          SUBS  |
00002e30  20 20 20 20 36 2c 36 2c  23 31 0d 14 6e 23 20 20  |    6,6,#1..n#  |
00002e40  20 20 20 20 20 20 20 20  42 4e 45 20 20 20 20 20  |        BNE     |
00002e50  20 20 62 6c 6f 63 6b 5f  6c 6f 6f 70 31 0d 14 82  |  block_loop1...|
00002e60  22 20 20 20 20 20 20 20  20 20 20 53 55 42 20 20  |"          SUB  |
00002e70  20 20 20 20 20 31 32 2c  31 32 2c 23 31 36 30 0d  |     12,12,#160.|
00002e80  14 8c 25 20 20 20 20 20  20 20 20 20 20 41 44 44  |..%          ADD|
00002e90  20 20 20 20 20 20 20 31  32 2c 31 32 2c 23 33 32  |       12,12,#32|
00002ea0  2a 31 36 30 0d 14 96 1c  20 20 20 20 20 20 20 20  |*160....        |
00002eb0  20 20 54 53 54 20 20 20  20 20 20 20 37 2c 23 31  |  TST       7,#1|
00002ec0  0d 14 a0 21 20 20 20 20  20 20 20 20 20 20 41 44  |...!          AD|
00002ed0  44 45 51 20 20 20 20 20  31 32 2c 31 32 2c 23 31  |DEQ     12,12,#1|
00002ee0  36 0d 14 aa 21 20 20 20  20 20 20 20 20 20 20 53  |6...!          S|
00002ef0  55 42 4e 45 20 20 20 20  20 31 32 2c 31 32 2c 23  |UBNE     12,12,#|
00002f00  31 36 0d 14 b4 1e 20 20  20 20 20 20 20 20 20 20  |16....          |
00002f10  53 55 42 53 20 20 20 20  20 20 37 2c 37 2c 23 31  |SUBS      7,7,#1|
00002f20  0d 14 be 23 20 20 20 20  20 20 20 20 20 20 42 4e  |...#          BN|
00002f30  45 20 20 20 20 20 20 20  62 6c 6f 63 6b 5f 6c 6f  |E       block_lo|
00002f40  6f 70 32 0d 14 c8 25 20  20 20 20 20 20 20 20 20  |op2...%         |
00002f50  20 4c 44 4d 46 44 20 20  20 20 20 31 33 21 2c 7b  | LDMFD     13!,{|
00002f60  30 2d 31 32 2c 50 43 7d  0d 14 d2 04 0d 14 dc 05  |0-12,PC}........|
00002f70  5d 0d 14 e6 05 ed 0d 14  f0 09 51 25 3d 50 25 0d  |].........Q%=P%.|
00002f80  14 fa 04 0d 15 04 04 0d  15 0e 4d 4e 4c 3d 30 3a  |..........MNL=0:|
00002f90  20 20 20 20 3a 54 41 42  3d 32 3a 46 52 45 45 3d  |    :TAB=2:FREE=|
00002fa0  33 3a 4e 52 3d 34 3a 49  4e 56 3d 35 3a 43 4f 3d  |3:NR=4:INV=5:CO=|
00002fb0  36 3a 20 20 20 4e 3d 37  3a 20 20 20 20 20 58 31  |6:   N=7:     X1|
00002fc0  3d 39 3a 59 31 3d 31 30  3a 58 32 3d 31 31 3a 59  |=9:Y1=10:X2=11:Y|
00002fd0  32 3d 31 32 0d 15 18 4d  4c 45 3d 30 3a 52 45 3d  |2=12...MLE=0:RE=|
00002fe0  31 3a 20 20 4c 3d 32 3a  20 20 20 52 3d 33 3a 58  |1:  L=2:   R=3:X|
00002ff0  4c 3d 34 3a 20 58 52 3d  35 3a 44 58 4c 3d 36 3a  |L=4: XR=5:DXL=6:|
00003000  44 58 52 3d 37 3a 20 4f  3d 38 3a 43 31 3d 39 3a  |DXR=7: O=8:C1=9:|
00003010  43 32 3d 31 30 3a 43 33  3d 31 31 3a 43 34 3d 31  |C2=10:C3=11:C4=1|
00003020  32 0d 15 22 0d 50 4c 3d  30 3a 50 52 3d 31 0d 15  |2..".PL=0:PR=1..|
00003030  2c 0e 20 51 3d 31 33 3a  54 3d 31 34 0d 15 36 09  |,. Q=13:T=14..6.|
00003040  50 4f 3d 31 33 0d 15 40  1b 43 3d 34 3a 54 45 4c  |PO=13..@.C=4:TEL|
00003050  3d 35 3a 46 3d 36 3a 58  33 3d 37 3a 59 33 3d 38  |=5:F=6:X3=7:Y3=8|
00003060  0d 15 4a 14 e3 20 50 41  53 53 3d 30 20 b8 20 32  |..J.. PASS=0 . 2|
00003070  20 88 20 32 0d 15 54 09  50 25 3d 51 25 0d 15 5e  | . 2..T.P%=Q%..^|
00003080  0d 5b 4f 50 54 20 50 41  53 53 0d 15 68 cc 20 20  |.[OPT PASS..h.  |
00003090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00003150  20 20 20 20 20 20 0d 15  72 14 2e 6b 6f 6c 20 45  |      ..r..kol E|
00003160  51 55 44 20 37 2b 31 36  2a 37 0d 15 7c 0e 2e 53  |QUD 7+16*7..|..S|
00003170  54 20 45 51 55 44 20 30  0d 15 86 0e 2e 4c 4b 20  |T EQUD 0.....LK |
00003180  45 51 55 44 20 30 0d 15  90 18 2e 54 41 42 44 20  |EQUD 0.....TABD |
00003190  20 20 20 45 51 55 44 20  43 54 41 42 4c 45 0d 15  |   EQUD CTABLE..|
000031a0  9a 18 2e 49 4e 56 45 52  53 44 20 45 51 55 44 20  |...INVERSD EQUD |
000031b0  49 4e 56 45 52 53 0d 15  a4 04 0d 15 ae 0b 2e 63  |INVERS.........c|
000031c0  6f 6e 76 65 78 0d 15 b8  25 20 20 20 20 20 20 20  |onvex...%       |
000031d0  20 20 20 53 54 4d 46 44  20 20 20 20 20 31 33 21  |   STMFD     13!|
000031e0  2c 7b 30 2d 31 32 2c 31  34 7d 0d 15 c2 1d 20 20  |,{0-12,14}....  |
000031f0  20 20 20 20 20 20 20 20  53 54 52 20 20 20 20 20  |        STR     |
00003200  20 20 31 33 2c 53 54 0d  15 cc 1e 20 20 20 20 20  |  13,ST....     |
00003210  20 20 20 20 20 53 54 52  42 20 20 20 20 20 20 52  |     STRB      R|
00003220  30 2c 6b 6f 6c 0d 15 d6  21 3b 20 20 20 20 20 20  |0,kol...!;      |
00003230  20 20 20 4c 44 52 20 20  20 20 20 20 20 54 41 42  |   LDR       TAB|
00003240  2c 4c 53 54 41 44 0d 15  e0 23 3b 20 20 20 20 20  |,LSTAD...#;     |
00003250  20 20 20 20 4c 44 52 20  20 20 20 20 20 20 4e 52  |    LDR       NR|
00003260  2c 5b 54 41 42 5d 2c 23  34 0d 15 ea 44 20 20 20  |,[TAB],#4...D   |
00003270  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00003280  20 54 2c 54 41 42 2c 4e  52 2c 4c 53 4c 20 23 33  | T,TAB,NR,LSL #3|
00003290  20 20 20 20 20 5c 54 20  77 69 6a 73 74 20 6e 61  |     \T wijst na|
000032a0  20 73 6f 75 72 63 65 20  74 61 62 65 6c 0d 15 f4  | source tabel...|
000032b0  54 20 20 20 20 20 20 20  20 20 20 4c 44 4d 44 42  |T          LDMDB|
000032c0  20 20 20 20 20 54 2c 7b  58 31 2c 59 31 7d 20 20  |     T,{X1,Y1}  |
000032d0  20 20 20 20 20 20 20 20  20 5c 20 28 78 31 2c 79  |         \ (x1,y|
000032e0  31 29 20 6c 61 61 74 73  74 65 20 6b 6f 70 70 65  |1) laatste koppe|
000032f0  6c 20 69 6e 20 73 6f 75  72 63 65 20 74 61 62 65  |l in source tabe|
00003300  6c 0d 15 fe 33 20 20 20  20 20 20 20 20 20 20 41  |l...3          A|
00003310  44 44 20 20 20 20 20 20  20 4e 52 2c 4e 52 2c 4e  |DD       NR,NR,N|
00003320  52 2c 4c 53 4c 20 23 31  20 20 20 20 20 5c 6e 72  |R,LSL #1     \nr|
00003330  3d 33 2a 6e 0d 16 08 2d  20 20 20 20 20 20 20 20  |=3*n...-        |
00003340  20 20 4c 44 52 20 20 20  20 20 20 20 46 52 45 45  |  LDR       FREE|
00003350  2c 54 41 42 44 20 20 20  20 20 20 20 20 20 20 20  |,TABD           |
00003360  5c 0d 16 12 4e 20 20 20  20 20 20 20 20 20 20 41  |\...N          A|
00003370  44 44 20 20 20 20 20 20  20 46 52 45 45 2c 46 52  |DD       FREE,FR|
00003380  45 45 2c 4e 52 2c 4c 53  4c 20 23 32 20 5c 20 66  |EE,NR,LSL #2 \ f|
00003390  72 65 65 20 77 69 6a 73  74 20 69 6e 20 6d 69 64  |ree wijst in mid|
000033a0  64 65 6e 20 64 65 73 74  2e 20 74 61 62 65 6c 0d  |den dest. tabel.|
000033b0  16 1c 35 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |..5          MOV|
000033c0  20 20 20 20 20 20 20 43  4f 2c 4e 52 20 20 20 20  |       CO,NR    |
000033d0  20 20 20 20 20 20 20 20  20 20 20 5c 20 63 6f 3d  |           \ co=|
000033e0  20 33 2a 6e 0d 16 26 36  20 20 20 20 20 20 20 20  | 3*n..&6        |
000033f0  20 20 4d 4f 56 20 20 20  20 20 20 20 52 45 2c 46  |  MOV       RE,F|
00003400  52 45 45 20 20 20 20 20  20 20 20 20 20 20 20 20  |REE             |
00003410  5c 20 72 65 3d 20 66 72  65 65 0d 16 30 20 20 20  |\ re= free..0   |
00003420  20 20 20 20 20 20 20 20  4c 44 52 20 20 20 20 20  |        LDR     |
00003430  20 20 4f 2c 73 63 72 65  65 6e 0d 16 3a 25 20 20  |  O,screen..:%  |
00003440  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00003450  20 20 4f 2c 4f 2c 59 31  2c 4c 53 4c 20 23 37 0d  |  O,O,Y1,LSL #7.|
00003460  16 44 25 20 20 20 20 20  20 20 20 20 20 41 44 44  |.D%          ADD|
00003470  20 20 20 20 20 20 20 4f  2c 4f 2c 59 31 2c 4c 53  |       O,O,Y1,LS|
00003480  4c 20 23 35 0d 16 4e 4e  20 20 20 20 20 20 20 20  |L #5..NN        |
00003490  20 20 4c 44 52 20 20 20  20 20 20 20 49 4e 56 2c  |  LDR       INV,|
000034a0  49 4e 56 45 52 53 44 20  20 20 20 20 20 20 20 20  |INVERSD         |
000034b0  5c 20 69 6e 76 20 77 69  6a 7a 65 72 20 69 6e 20  |\ inv wijzer in |
000034c0  74 61 62 65 6c 20 6d 65  74 20 69 6e 76 65 72 73  |tabel met invers|
000034d0  65 6e 0d 16 58 53 20 20  20 20 20 20 20 20 20 20  |en..XS          |
000034e0  4c 44 4d 49 41 20 20 20  20 20 28 54 41 42 29 21  |LDMIA     (TAB)!|
000034f0  2c 7b 58 32 2c 59 32 7d  20 20 20 20 20 20 5c 20  |,{X2,Y2}      \ |
00003500  28 78 32 2c 79 32 29 20  65 65 72 73 74 65 20 6b  |(x2,y2) eerste k|
00003510  6f 70 70 65 6c 20 69 6e  20 73 6f 75 72 63 65 20  |oppel in source |
00003520  74 61 62 65 6c 0d 16 62  1f 20 20 20 20 20 20 20  |tabel..b.       |
00003530  20 20 20 53 55 42 53 20  20 20 20 20 20 4e 2c 59  |   SUBS      N,Y|
00003540  32 2c 59 31 0d 16 6c 04  0d 16 76 0a 2e 6c 6f 6f  |2,Y1..l...v..loo|
00003550  70 62 0d 16 80 1c 20 20  20 20 20 20 20 20 20 20  |pb....          |
00003560  4d 4f 56 53 20 20 20 20  20 20 4e 4c 2c 4e 0d 16  |MOVS      NL,N..|
00003570  8a 1e 20 20 20 20 20 20  20 20 20 20 52 53 42 4c  |..          RSBL|
00003580  54 20 20 20 20 20 4e 2c  4e 2c 23 30 0d 16 94 34  |T     N,N,#0...4|
00003590  20 20 20 20 20 20 20 20  20 20 4d 4f 56 4c 54 20  |          MOVLT |
000035a0  20 20 20 20 59 31 2c 59  32 20 20 20 20 20 20 20  |    Y1,Y2       |
000035b0  20 20 20 20 20 20 20 20  5c 79 31 3c 3d 20 79 32  |        \y1<= y2|
000035c0  0d 16 9e 35 20 20 20 20  20 20 20 20 20 20 53 55  |...5          SU|
000035d0  42 20 20 20 20 20 20 20  54 2c 58 32 2c 58 31 20  |B       T,X2,X1 |
000035e0  20 20 20 20 20 20 20 20  20 20 20 20 5c 74 3d 20  |            \t= |
000035f0  78 32 2d 78 31 0d 16 a8  35 20 20 20 20 20 20 20  |x2-x1...5       |
00003600  20 20 20 52 53 42 4c 54  20 20 20 20 20 54 2c 54  |   RSBLT     T,T|
00003610  2c 23 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |,#0             |
00003620  20 5c 6e 3d 20 79 32 2d  79 31 0d 16 b2 1d 20 20  | \n= y2-y1....  |
00003630  20 20 20 20 20 20 20 20  4d 4f 56 4c 54 20 20 20  |        MOVLT   |
00003640  20 20 58 31 2c 58 32 0d  16 bc 28 20 20 20 20 20  |  X1,X2...(     |
00003650  20 20 20 20 20 4c 44 52  20 20 20 20 20 20 20 51  |     LDR       Q|
00003660  2c 5b 49 4e 56 2c 4e 2c  4c 53 4c 20 23 32 5d 0d  |,[INV,N,LSL #2].|
00003670  16 c6 1d 20 20 20 20 20  20 20 20 20 20 4d 55 4c  |...          MUL|
00003680  20 20 20 20 20 20 20 51  2c 54 2c 51 0d 16 d0 22  |       Q,T,Q..."|
00003690  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
000036a0  20 20 20 20 51 2c 51 2c  41 53 52 20 23 39 0d 16  |    Q,Q,ASR #9..|
000036b0  da 4d 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |.M          MOV |
000036c0  20 20 20 20 20 20 58 31  2c 58 31 2c 4c 53 4c 20  |      X1,X1,LSL |
000036d0  23 31 32 20 20 20 20 20  20 20 5c 20 78 31 3d 20  |#12       \ x1= |
000036e0  28 78 31 2b 33 32 30 79  31 29 20 3c 3c 20 31 32  |(x1+320y1) << 12|
000036f0  20 2b 20 71 2f 32 20 2b  30 2e 35 0d 16 e4 26 20  | + q/2 +0.5...& |
00003700  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00003710  20 20 20 58 31 2c 58 31  2c 51 2c 41 53 52 20 23  |   X1,X1,Q,ASR #|
00003720  31 0d 16 ee 24 20 20 20  20 20 20 20 20 20 20 41  |1...$          A|
00003730  44 44 20 20 20 20 20 20  20 58 31 2c 58 31 2c 23  |DD       X1,X1,#|
00003740  31 3c 3c 31 31 0d 16 f8  51 20 20 20 20 20 20 20  |1<<11...Q       |
00003750  20 20 20 53 54 4d 49 41  20 20 20 20 20 28 46 52  |   STMIA     (FR|
00003760  45 45 29 21 2c 7b 4e 2c  58 31 2c 51 7d 20 20 20  |EE)!,{N,X1,Q}   |
00003770  20 5c 6e 3d 20 23 79 2d  69 6e 74 65 72 73 65 63  | \n= #y-intersec|
00003780  74 69 65 73 20 78 31 3d  73 74 61 72 74 70 75 6e  |ties x1=startpun|
00003790  74 20 71 3d 64 78 0d 17  02 20 20 20 20 20 20 20  |t q=dx...       |
000037a0  20 20 20 20 53 55 42 53  20 20 20 20 20 20 43 4f  |    SUBS      CO|
000037b0  2c 43 4f 2c 23 33 0d 17  0c 1c 20 20 20 20 20 20  |,CO,#3....      |
000037c0  20 20 20 20 42 45 51 20  20 20 20 20 20 20 65 6e  |    BEQ       en|
000037d0  64 6c 0d 17 16 39 20 20  20 20 20 20 20 20 20 20  |dl...9          |
000037e0  4d 4f 56 20 20 20 20 20  20 20 58 31 2c 58 32 20  |MOV       X1,X2 |
000037f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00003800  78 31 3d 78 32 20 79 31  3d 79 32 0d 17 20 1d 20  |x1=x2 y1=y2.. . |
00003810  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00003820  20 20 20 59 31 2c 59 32  0d 17 2a 45 20 20 20 20  |   Y1,Y2..*E    |
00003830  20 20 20 20 20 20 4c 44  4d 49 41 20 20 20 20 20  |      LDMIA     |
00003840  28 54 41 42 29 21 2c 7b  58 32 2c 59 32 7d 20 20  |(TAB)!,{X2,Y2}  |
00003850  20 20 20 20 5c 20 76 6f  6c 67 65 6e 64 65 20 28  |    \ volgende (|
00003860  78 32 2c 79 32 29 20 6b  6f 70 70 65 6c 0d 17 34  |x2,y2) koppel..4|
00003870  1f 20 20 20 20 20 20 20  20 20 20 53 55 42 53 20  |.          SUBS |
00003880  20 20 20 20 20 4e 2c 59  32 2c 59 31 0d 17 3e 04  |     N,Y2,Y1..>.|
00003890  0d 17 48 57 20 20 20 20  20 20 20 20 20 20 42 4d  |..HW          BM|
000038a0  49 20 20 20 20 20 20 20  6c 6f 6f 70 62 20 20 20  |I       loopb   |
000038b0  20 20 20 20 20 20 20 20  20 20 20 20 5c 62 72 61  |            \bra|
000038c0  6e 63 68 20 61 6c 73 20  79 2d 63 6f 6f 72 64 20  |nch als y-coord |
000038d0  68 6f 65 6b 70 75 6e 74  65 6e 20 73 74 72 69 6b  |hoekpunten strik|
000038e0  74 20 64 61 6c 65 6e 0d  17 52 04 0d 17 5c 1c 20  |t dalen..R...\. |
000038f0  20 20 20 20 20 20 20 20  20 54 45 51 20 20 20 20  |         TEQ    |
00003900  20 20 20 4e 4c 2c 4e 0d  17 66 57 20 20 20 20 20  |   NL,N..fW     |
00003910  20 20 20 20 20 42 50 4c  20 20 20 20 20 20 20 6c  |     BPL       l|
00003920  6f 6f 70 62 20 20 20 20  20 20 20 20 20 20 20 20  |oopb            |
00003930  20 20 20 5c 62 72 61 63  6e 68 20 61 6c 73 20 73  |   \bracnh als s|
00003940  74 69 6a 67 65 6e 64 20  65 6e 20 76 6f 72 69 67  |tijgend en vorig|
00003950  65 20 6f 6f 6b 20 73 74  69 6a 67 65 6e 64 0d 17  |e ook stijgend..|
00003960  70 2b 20 20 20 20 20 20  20 20 20 20 53 55 42 20  |p+          SUB |
00003970  20 20 20 20 20 20 46 52  45 45 2c 46 52 45 45 2c  |      FREE,FREE,|
00003980  4e 52 2c 4c 53 4c 20 23  32 0d 17 7a 5c 20 20 20  |NR,LSL #2..z\   |
00003990  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
000039a0  20 52 45 2c 46 52 45 45  20 20 20 20 20 20 20 20  | RE,FREE        |
000039b0  20 20 20 20 20 5c 52 45  20 6c 61 61 67 73 74 20  |     \RE laagst |
000039c0  70 75 6e 74 20 69 6e 20  64 65 73 74 2c 20 74 61  |punt in dest, ta|
000039d0  62 65 6c 20 68 69 65 72  6f 6e 64 65 72 20 72 65  |bel hieronder re|
000039e0  63 68 74 65 72 0d 17 84  20 20 20 20 20 20 20 20  |chter...        |
000039f0  20 20 20 4c 44 52 20 20  20 20 20 20 20 4f 2c 73  |   LDR       O,s|
00003a00  63 72 65 65 6e 0d 17 8e  25 20 20 20 20 20 20 20  |creen...%       |
00003a10  20 20 20 41 44 44 20 20  20 20 20 20 20 4f 2c 4f  |   ADD       O,O|
00003a20  2c 59 31 2c 4c 53 4c 20  23 37 0d 17 98 25 20 20  |,Y1,LSL #7...%  |
00003a30  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00003a40  20 20 4f 2c 4f 2c 59 31  2c 4c 53 4c 20 23 35 0d  |  O,O,Y1,LSL #5.|
00003a50  17 a2 37 20 20 20 20 20  20 20 20 20 20 42 41 4c  |..7          BAL|
00003a60  20 20 20 20 20 20 20 6c  6f 6f 70 62 20 20 20 20  |       loopb    |
00003a70  20 20 20 20 20 20 20 20  20 20 20 5c 52 45 3d 20  |           \RE= |
00003a80  4c 45 20 2d 20 6e 0d 17  ac 09 2e 65 6e 64 6c 0d  |LE - n.....endl.|
00003a90  17 b6 5d 20 20 20 20 20  20 20 20 20 20 41 44 44  |..]          ADD|
00003aa0  20 20 20 20 20 20 20 4c  45 2c 52 45 2c 4e 52 2c  |       LE,RE,NR,|
00003ab0  4c 53 4c 20 23 32 20 20  20 20 20 5c 4c 45 20 68  |LSL #2     \LE h|
00003ac0  6f 6f 67 73 74 20 70 75  6e 74 20 69 6e 20 64 65  |oogst punt in de|
00003ad0  73 74 2e 20 74 61 62 65  6c 2c 20 65 6e 74 72 69  |st. tabel, entri|
00003ae0  65 73 20 68 69 65 72 62  6f 76 65 6e 0d 17 c0 1e  |es hierboven....|
00003af0  20 20 20 20 20 20 20 20  20 20 4c 44 52 42 20 20  |          LDRB  |
00003b00  20 20 20 20 43 31 2c 6b  6f 6c 0d 17 ca 1f 20 20  |    C1,kol....  |
00003b10  20 20 20 20 20 20 20 20  80 20 20 20 20 20 20 20  |        .       |
00003b20  43 31 2c 43 31 2c 23 31  35 0d 17 d4 27 20 20 20  |C1,C1,#15...'   |
00003b30  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00003b40  20 43 31 2c 43 31 2c 43  31 2c 4c 53 4c 20 23 34  | C1,C1,C1,LSL #4|
00003b50  0d 17 de 27 20 20 20 20  20 20 20 20 20 20 41 44  |...'          AD|
00003b60  44 20 20 20 20 20 20 20  43 31 2c 43 31 2c 43 31  |D       C1,C1,C1|
00003b70  2c 4c 53 4c 20 23 38 0d  17 e8 28 20 20 20 20 20  |,LSL #8...(     |
00003b80  20 20 20 20 20 41 44 44  20 20 20 20 20 20 20 43  |     ADD       C|
00003b90  31 2c 43 31 2c 43 31 2c  4c 53 4c 20 23 31 36 0d  |1,C1,C1,LSL #16.|
00003ba0  17 f2 1d 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00003bb0  20 20 20 20 20 20 20 43  32 2c 43 31 0d 17 fc 1d  |       C2,C1....|
00003bc0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00003bd0  20 20 20 20 43 33 2c 43  31 0d 18 06 1d 20 20 20  |    C3,C1....   |
00003be0  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
00003bf0  20 43 34 2c 43 31 0d 18  10 1c 20 20 20 20 20 20  | C4,C1....      |
00003c00  20 20 20 20 4d 4f 56 20  20 20 20 20 20 20 52 2c  |    MOV       R,|
00003c10  23 30 0d 18 1a 22 20 20  20 20 20 20 20 20 20 20  |#0..."          |
00003c20  41 44 52 20 20 20 20 20  20 20 54 2c 70 6f 69 6e  |ADR       T,poin|
00003c30  74 65 72 73 0d 18 24 09  2e 6c 6f 6f 70 0d 18 2e  |ters..$..loop...|
00003c40  23 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |#          MOV  |
00003c50  20 20 20 20 20 4c 2c 52  2c 4c 53 52 20 23 31 36  |     L,R,LSR #16|
00003c60  0d 18 38 25 20 20 20 20  20 20 20 20 20 20 42 49  |..8%          BI|
00003c70  43 53 20 20 20 20 20 20  52 2c 52 2c 4c 2c 4c 53  |CS      R,R,L,LS|
00003c80  4c 20 23 31 36 0d 18 42  28 20 20 20 20 20 20 20  |L #16..B(       |
00003c90  20 20 20 4c 44 4d 45 51  49 41 20 20 20 28 52 45  |   LDMEQIA   (RE|
00003ca0  29 21 2c 7b 52 2c 58 52  2c 44 58 52 7d 0d 18 4c  |)!,{R,XR,DXR}..L|
00003cb0  1c 20 20 20 20 20 20 20  20 20 20 43 4d 50 20 20  |.          CMP  |
00003cc0  20 20 20 20 20 4c 2c 23  30 0d 18 56 28 20 20 20  |     L,#0..V(   |
00003cd0  20 20 20 20 20 20 20 4c  44 4d 45 51 44 42 20 20  |       LDMEQDB  |
00003ce0  20 28 4c 45 29 21 2c 7b  4c 2c 58 4c 2c 44 58 4c  | (LE)!,{L,XL,DXL|
00003cf0  7d 0d 18 60 21 20 20 20  20 20 20 20 20 20 20 53  |}..`!          S|
00003d00  54 4d 49 41 20 20 20 20  20 54 2c 7b 4c 45 2c 52  |TMIA     T,{LE,R|
00003d10  45 7d 0d 18 6a 04 0d 18  74 1d 20 20 20 20 20 20  |E}..j...t.      |
00003d20  20 20 20 20 43 4d 50 20  20 20 20 20 20 20 58 52  |    CMP       XR|
00003d30  2c 58 4c 0d 18 7e 1f 20  20 20 20 20 20 20 20 20  |,XL..~.         |
00003d40  20 43 4d 50 45 51 20 20  20 20 20 44 58 52 2c 44  | CMPEQ     DXR,D|
00003d50  58 4c 0d 18 88 1b 20 20  20 20 20 20 20 20 20 20  |XL....          |
00003d60  4d 4f 56 4c 54 20 20 20  20 20 54 2c 4c 0d 18 92  |MOVLT     T,L...|
00003d70  1b 20 20 20 20 20 20 20  20 20 20 4d 4f 56 4c 54  |.          MOVLT|
00003d80  20 20 20 20 20 4c 2c 52  0d 18 9c 1b 20 20 20 20  |     L,R....    |
00003d90  20 20 20 20 20 20 4d 4f  56 4c 54 20 20 20 20 20  |      MOVLT     |
00003da0  52 2c 54 0d 18 a6 1c 20  20 20 20 20 20 20 20 20  |R,T....         |
00003db0  20 4d 4f 56 4c 54 20 20  20 20 20 54 2c 58 4c 0d  | MOVLT     T,XL.|
00003dc0  18 b0 1d 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00003dd0  4c 54 20 20 20 20 20 58  4c 2c 58 52 0d 18 ba 1c  |LT     XL,XR....|
00003de0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 4c 54 20  |          MOVLT |
00003df0  20 20 20 20 58 52 2c 54  0d 18 c4 1d 20 20 20 20  |    XR,T....    |
00003e00  20 20 20 20 20 20 4d 4f  56 4c 54 20 20 20 20 20  |      MOVLT     |
00003e10  54 2c 44 58 4c 0d 18 ce  1f 20 20 20 20 20 20 20  |T,DXL....       |
00003e20  20 20 20 4d 4f 56 4c 54  20 20 20 20 20 44 58 4c  |   MOVLT     DXL|
00003e30  2c 44 58 52 0d 18 d8 1d  20 20 20 20 20 20 20 20  |,DXR....        |
00003e40  20 20 4d 4f 56 4c 54 20  20 20 20 20 44 58 52 2c  |  MOVLT     DXR,|
00003e50  54 0d 18 e2 04 0d 18 ec  1d 20 20 20 20 20 20 20  |T........       |
00003e60  20 20 20 53 55 42 53 20  20 20 20 20 20 54 2c 4c  |   SUBS      T,L|
00003e70  2c 52 0d 18 f6 1e 20 20  20 20 20 20 20 20 20 20  |,R....          |
00003e80  52 53 42 4d 49 20 20 20  20 20 52 2c 54 2c 23 30  |RSBMI     R,T,#0|
00003e90  0d 19 00 1b 20 20 20 20  20 20 20 20 20 20 4d 4f  |....          MO|
00003ea0  56 50 4c 20 20 20 20 20  4c 2c 52 0d 19 0a 23 20  |VPL     L,R...# |
00003eb0  20 20 20 20 20 20 20 20  20 4d 4f 56 50 4c 20 20  |         MOVPL  |
00003ec0  20 20 20 52 2c 54 2c 4c  53 4c 20 23 31 36 0d 19  |   R,T,LSL #16..|
00003ed0  14 1c 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |..          CMP |
00003ee0  20 20 20 20 20 20 4c 2c  23 30 0d 19 1e 1e 20 20  |      L,#0....  |
00003ef0  20 20 20 20 20 20 20 20  42 45 51 20 20 20 20 20  |        BEQ     |
00003f00  20 20 65 6e 64 73 65 67  0d 19 28 20 20 20 20 20  |  endseg..(     |
00003f10  20 20 20 20 20 20 4c 44  52 20 20 20 20 20 20 20  |      LDR       |
00003f20  54 2c 73 63 72 65 65 6e  0d 19 32 1b 20 20 20 20  |T,screen..2.    |
00003f30  20 20 20 20 20 20 43 4d  50 20 20 20 20 20 20 20  |      CMP       |
00003f40  4f 2c 54 0d 19 3c 1d 20  20 20 20 20 20 20 20 20  |O,T..<.         |
00003f50  20 42 48 53 20 20 20 20  20 20 20 65 63 6c 69 70  | BHS       eclip|
00003f60  0d 19 46 09 2e 63 6c 69  70 0d 19 50 21 20 20 20  |..F..clip..P!   |
00003f70  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00003f80  20 58 4c 2c 58 4c 2c 44  58 4c 0d 19 5a 21 20 20  | XL,XL,DXL..Z!  |
00003f90  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00003fa0  20 20 58 52 2c 58 52 2c  44 58 52 0d 19 64 20 20  |  XR,XR,DXR..d  |
00003fb0  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00003fc0  20 20 20 4f 2c 4f 2c 23  31 36 30 0d 19 6e 1e 20  |   O,O,#160..n. |
00003fd0  20 20 20 20 20 20 20 20  20 53 55 42 53 20 20 20  |         SUBS   |
00003fe0  20 20 20 4c 2c 4c 2c 23  31 0d 19 78 1e 20 20 20  |   L,L,#1..x.   |
00003ff0  20 20 20 20 20 20 20 42  45 51 20 20 20 20 20 20  |       BEQ      |
00004000  20 65 6e 64 73 65 67 0d  19 82 1b 20 20 20 20 20  | endseg....     |
00004010  20 20 20 20 20 43 4d 50  20 20 20 20 20 20 20 4f  |     CMP       O|
00004020  2c 54 0d 19 8c 1c 20 20  20 20 20 20 20 20 20 20  |,T....          |
00004030  42 4c 4f 20 20 20 20 20  20 20 63 6c 69 70 0d 19  |BLO       clip..|
00004040  96 0a 2e 65 63 6c 69 70  0d 19 a0 24 20 20 20 20  |...eclip...$    |
00004050  20 20 20 20 20 20 41 44  44 20 20 20 20 20 20 20  |      ADD       |
00004060  54 2c 54 2c 23 31 36 30  2a 32 35 36 0d 19 aa 1d  |T,T,#160*256....|
00004070  20 20 20 20 20 20 20 20  20 20 53 55 42 53 20 20  |          SUBS  |
00004080  20 20 20 20 54 2c 54 2c  4f 0d 19 b4 1e 20 20 20  |    T,T,O....   |
00004090  20 20 20 20 20 20 20 42  4c 53 20 20 20 20 20 20  |       BLS      |
000040a0  20 65 6e 64 73 65 67 0d  19 be 24 20 20 20 20 20  | endseg...$     |
000040b0  20 20 20 20 20 41 44 44  20 20 20 20 20 20 20 4c  |     ADD       L|
000040c0  2c 4c 2c 4c 2c 4c 53 4c  20 23 32 0d 19 c8 22 20  |,L,L,LSL #2..." |
000040d0  20 20 20 20 20 20 20 20  20 43 4d 50 20 20 20 20  |         CMP    |
000040e0  20 20 20 4c 2c 54 2c 4c  53 52 20 23 35 0d 19 d2  |   L,T,LSR #5...|
000040f0  22 20 20 20 20 20 20 20  20 20 20 4d 4f 56 48 49  |"          MOVHI|
00004100  20 20 20 20 20 4c 2c 54  2c 4c 53 52 20 23 35 0d  |     L,T,LSR #5.|
00004110  19 dc 1d 20 20 20 20 20  20 20 20 20 20 43 4d 50  |...          CMP|
00004120  20 20 20 20 20 20 20 58  4c 2c 23 30 0d 19 e6 25  |       XL,#0...%|
00004130  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00004140  20 20 20 20 50 4c 2c 58  4c 2c 41 53 52 20 23 31  |    PL,XL,ASR #1|
00004150  32 0d 19 f0 1d 20 20 20  20 20 20 20 20 20 20 4d  |2....          M|
00004160  4f 56 4c 54 20 20 20 20  20 50 4c 2c 23 30 0d 19  |OVLT     PL,#0..|
00004170  fa 22 20 20 20 20 20 20  20 20 20 20 41 44 52 20  |."          ADR |
00004180  20 20 20 20 20 20 50 4f  2c 65 6e 64 73 70 61 6e  |      PO,endspan|
00004190  0d 1a 04 1c 20 20 20 20  20 20 20 20 20 20 42 41  |....          BA|
000041a0  4c 20 20 20 20 20 20 20  73 70 61 6e 0d 1a 0e 13  |L       span....|
000041b0  20 20 20 20 20 20 20 20  20 20 a4 76 75 6c 63 0d  |          .vulc.|
000041c0  1a 18 0c 2e 65 6e 64 73  70 61 6e 0d 1a 22 20 20  |....endspan.."  |
000041d0  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
000041e0  20 20 20 4f 2c 4f 2c 23  31 36 30 0d 1a 2c 21 20  |   O,O,#160..,! |
000041f0  20 20 20 20 20 20 20 20  20 41 44 44 53 20 20 20  |         ADDS   |
00004200  20 20 20 58 4c 2c 58 4c  2c 44 58 4c 0d 1a 36 25  |   XL,XL,DXL..6%|
00004210  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00004220  20 20 20 20 50 4c 2c 58  4c 2c 41 53 52 20 23 31  |    PL,XL,ASR #1|
00004230  32 0d 1a 40 1d 20 20 20  20 20 20 20 20 20 20 4d  |2..@.          M|
00004240  4f 56 4c 54 20 20 20 20  20 50 4c 2c 23 30 0d 1a  |OVLT     PL,#0..|
00004250  4a 21 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |J!          ADD |
00004260  20 20 20 20 20 20 58 52  2c 58 52 2c 44 58 52 0d  |      XR,XR,DXR.|
00004270  1a 54 1e 20 20 20 20 20  20 20 20 20 20 53 55 42  |.T.          SUB|
00004280  53 20 20 20 20 20 20 4c  2c 4c 2c 23 35 0d 1a 5e  |S      L,L,#5..^|
00004290  1e 20 20 20 20 20 20 20  20 20 20 42 45 51 20 20  |.          BEQ  |
000042a0  20 20 20 20 20 65 6e 64  73 65 67 0d 1a 68 09 2e  |     endseg..h..|
000042b0  73 70 61 6e 0d 1a 72 23  20 20 20 20 20 20 20 20  |span..r#        |
000042c0  20 20 43 4d 50 20 20 20  20 20 20 20 58 52 2c 23  |  CMP       XR,#|
000042d0  33 32 30 3c 3c 31 32 0d  1a 7c 25 20 20 20 20 20  |320<<12..|%     |
000042e0  20 20 20 20 20 4d 4f 56  20 20 20 20 20 20 20 50  |     MOV       P|
000042f0  52 2c 58 52 2c 41 53 52  20 23 31 32 0d 1a 86 1f  |R,XR,ASR #12....|
00004300  20 20 20 20 20 20 20 20  20 20 4d 4f 56 47 54 20  |          MOVGT |
00004310  20 20 20 20 50 52 2c 23  33 32 30 0d 1a 90 1d 20  |    PR,#320.... |
00004320  20 20 20 20 20 20 20 20  20 43 4d 50 20 20 20 20  |         CMP    |
00004330  20 20 20 50 52 2c 50 4c  0d 1a 9a 1f 20 20 20 20  |   PR,PL....    |
00004340  20 20 20 20 20 20 42 4c  45 20 20 20 20 20 20 20  |      BLE       |
00004350  65 6e 64 73 70 61 6e 0d  1a a4 1d 20 20 20 20 20  |endspan....     |
00004360  20 20 20 20 20 4d 56 4e  20 20 20 20 20 20 20 43  |     MVN       C|
00004370  33 2c 23 30 0d 1a ae 1d  20 20 20 20 20 20 20 20  |3,#0....        |
00004380  20 20 82 20 20 20 20 20  20 20 54 2c 50 4c 2c 50  |  .       T,PL,P|
00004390  52 0d 1a b8 22 20 20 20  20 20 20 20 20 20 20 4d  |R..."          M|
000043a0  4f 56 53 20 20 20 20 20  20 54 2c 54 2c 4c 53 52  |OVS      T,T,LSR|
000043b0  20 23 33 0d 1a c2 1c 20  20 20 20 20 20 20 20 20  | #3....         |
000043c0  20 42 45 51 20 20 20 20  20 20 20 65 78 65 70 0d  | BEQ       exep.|
000043d0  1a cc 0e 20 20 20 20 20  20 20 20 20 20 0d 1a d6  |...          ...|
000043e0  1d 20 20 20 20 20 20 20  20 20 20 80 53 20 20 20  |.          .S   |
000043f0  20 20 20 54 2c 50 4c 2c  23 37 0d 1a e0 1f 20 20  |   T,PL,#7....  |
00004400  20 20 20 20 20 20 20 20  42 49 43 20 20 20 20 20  |        BIC     |
00004410  20 20 50 4c 2c 50 4c 2c  54 0d 1a ea 26 20 20 20  |  PL,PL,T...&   |
00004420  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00004430  20 50 4c 2c 4f 2c 50 4c  2c 4c 53 52 20 23 31 0d  | PL,O,PL,LSR #1.|
00004440  1a f4 1f 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |...          LDM|
00004450  4e 45 49 41 20 20 20 50  4c 2c 7b 43 32 7d 0d 1a  |NEIA   PL,{C2}..|
00004460  fe 22 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |."          MOV |
00004470  20 20 20 20 20 20 54 2c  54 2c 4c 53 4c 20 23 32  |      T,T,LSL #2|
00004480  0d 1b 08 22 20 20 20 20  20 20 20 20 20 20 4d 4f  |..."          MO|
00004490  56 20 20 20 20 20 20 20  54 2c 43 33 2c 4c 53 4c  |V       T,C3,LSL|
000044a0  20 54 0d 1b 12 1f 3b 20  20 20 20 20 20 20 20 20  | T....;         |
000044b0  42 49 43 20 20 20 20 20  20 20 43 32 2c 43 32 2c  |BIC       C2,C2,|
000044c0  54 0d 1b 1c 1c 20 20 20  20 20 20 20 20 20 20 80  |T....          .|
000044d0  20 20 20 20 20 20 20 54  2c 43 31 2c 54 0d 1b 26  |       T,C1,T..&|
000044e0  1e 20 20 20 20 20 20 20  20 20 20 84 52 20 20 20  |.          .R   |
000044f0  20 20 20 20 43 32 2c 43  32 2c 54 0d 1b 30 22 20  |    C2,C2,T..0" |
00004500  20 20 20 20 20 20 20 20  20 53 54 4d 4e 45 49 41  |         STMNEIA|
00004510  20 20 20 28 50 4c 29 21  2c 7b 43 32 7d 0d 1b 3a  |   (PL)!,{C2}..:|
00004520  04 0d 1b 44 1d 20 20 20  20 20 20 20 20 20 20 80  |...D.          .|
00004530  53 20 20 20 20 20 20 54  2c 50 52 2c 23 37 0d 1b  |S      T,PR,#7..|
00004540  4e 1f 20 20 20 20 20 20  20 20 20 20 42 49 43 20  |N.          BIC |
00004550  20 20 20 20 20 20 50 52  2c 50 52 2c 54 0d 1b 58  |      PR,PR,T..X|
00004560  26 20 20 20 20 20 20 20  20 20 20 41 44 44 20 20  |&          ADD  |
00004570  20 20 20 20 20 50 52 2c  4f 2c 50 52 2c 4c 53 52  |     PR,O,PR,LSR|
00004580  20 23 31 0d 1b 62 1f 20  20 20 20 20 20 20 20 20  | #1..b.         |
00004590  20 4c 44 4d 4e 45 49 41  20 20 20 50 52 2c 7b 43  | LDMNEIA   PR,{C|
000045a0  32 7d 0d 1b 6c 22 20 20  20 20 20 20 20 20 20 20  |2}..l"          |
000045b0  4d 4f 56 20 20 20 20 20  20 20 54 2c 54 2c 4c 53  |MOV       T,T,LS|
000045c0  4c 20 23 32 0d 1b 76 22  20 20 20 20 20 20 20 20  |L #2..v"        |
000045d0  20 20 4d 4f 56 20 20 20  20 20 20 20 54 2c 43 33  |  MOV       T,C3|
000045e0  2c 4c 53 4c 20 54 0d 1b  80 1d 3b 20 20 20 20 20  |,LSL T....;     |
000045f0  20 20 20 20 80 20 20 20  20 20 20 20 43 32 2c 43  |    .       C2,C|
00004600  32 2c 54 0d 1b 8a 1e 20  20 20 20 20 20 20 20 20  |2,T....         |
00004610  20 42 49 43 20 20 20 20  20 20 20 54 2c 43 31 2c  | BIC       T,C1,|
00004620  54 0d 1b 94 1e 20 20 20  20 20 20 20 20 20 20 84  |T....          .|
00004630  52 20 20 20 20 20 20 20  43 32 2c 43 32 2c 54 0d  |R       C2,C2,T.|
00004640  1b 9e 1f 20 20 20 20 20  20 20 20 20 20 53 54 4d  |...          STM|
00004650  4e 45 49 41 20 20 20 50  52 2c 7b 43 32 7d 0d 1b  |NEIA   PR,{C2}..|
00004660  a8 0e 20 20 20 20 20 20  20 20 20 20 0d 1b b2 1d  |..          ....|
00004670  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00004680  20 20 20 20 43 32 2c 43  31 0d 1b bc 1d 20 20 20  |    C2,C1....   |
00004690  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
000046a0  20 43 33 2c 43 31 0d 1b  c6 1f 20 20 20 20 20 20  | C3,C1....      |
000046b0  20 20 20 20 53 55 42 53  20 20 20 20 20 20 54 2c  |    SUBS      T,|
000046c0  50 52 2c 50 4c 0d 1b d0  22 20 20 20 20 20 20 20  |PR,PL..."       |
000046d0  20 20 20 4d 4f 56 53 20  20 20 20 20 20 54 2c 54  |   MOVS      T,T|
000046e0  2c 4c 53 52 20 23 33 0d  1b da 21 20 20 20 20 20  |,LSR #3...!     |
000046f0  20 20 20 20 20 4c 44 4d  43 53 49 41 20 20 20 28  |     LDMCSIA   (|
00004700  50 4c 29 2c 7b 43 34 7d  0d 1b e4 1f 20 20 20 20  |PL),{C4}....    |
00004710  20 20 20 20 20 20 84 52  20 20 20 20 20 20 20 43  |      .R       C|
00004720  34 2c 43 34 2c 43 31 0d  1b ee 22 20 20 20 20 20  |4,C4,C1..."     |
00004730  20 20 20 20 20 53 54 4d  43 53 49 41 20 20 20 28  |     STMCSIA   (|
00004740  50 4c 29 21 2c 7b 43 34  7d 0d 1b f8 04 0d 1c 02  |PL)!,{C4}.......|
00004750  23 20 20 20 20 20 20 20  20 20 20 4d 4f 56 53 20  |#          MOVS |
00004760  20 20 20 20 20 43 32 2c  54 2c 4c 53 52 20 23 31  |     C2,T,LSR #1|
00004770  0d 1c 0c 24 20 20 20 20  20 20 20 20 20 20 4c 44  |...$          LD|
00004780  4d 43 53 49 41 20 20 20  28 50 4c 29 2c 7b 43 33  |MCSIA   (PL),{C3|
00004790  2c 43 34 7d 0d 1c 16 1f  20 20 20 20 20 20 20 20  |,C4}....        |
000047a0  20 20 84 52 20 20 20 20  20 20 20 43 33 2c 43 33  |  .R       C3,C3|
000047b0  2c 43 31 0d 1c 20 1f 20  20 20 20 20 20 20 20 20  |,C1.. .         |
000047c0  20 84 52 20 20 20 20 20  20 20 43 34 2c 43 34 2c  | .R       C4,C4,|
000047d0  43 31 0d 1c 2a 25 20 20  20 20 20 20 20 20 20 20  |C1..*%          |
000047e0  53 54 4d 43 53 49 41 20  20 20 28 50 4c 29 21 2c  |STMCSIA   (PL)!,|
000047f0  7b 43 33 2c 43 34 7d 0d  1c 34 04 0d 1c 3e 27 20  |{C3,C4}..4...>' |
00004800  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00004810  20 20 20 43 32 2c 43 32  2c 43 32 2c 4c 53 4c 20  |   C2,C2,C2,LSL |
00004820  23 31 0d 1c 48 27 20 20  20 20 20 20 20 20 20 20  |#1..H'          |
00004830  53 55 42 20 20 20 20 20  20 20 50 43 2c 50 4f 2c  |SUB       PC,PO,|
00004840  43 32 2c 4c 53 4c 20 23  33 0d 1c 52 04 0d 1c 5c  |C2,LSL #3..R...\|
00004850  0b 2e 65 6e 64 73 65 67  0d 1c 66 22 20 20 20 20  |..endseg..f"    |
00004860  20 20 20 20 20 20 41 44  52 20 20 20 20 20 20 20  |      ADR       |
00004870  54 2c 70 6f 69 6e 74 65  72 73 0d 1c 70 21 20 20  |T,pointers..p!  |
00004880  20 20 20 20 20 20 20 20  4c 44 4d 49 41 20 20 20  |        LDMIA   |
00004890  20 20 54 2c 7b 52 45 2c  4c 45 7d 0d 1c 7a 1d 20  |  T,{RE,LE}..z. |
000048a0  20 20 20 20 20 20 20 20  20 43 4d 50 20 20 20 20  |         CMP    |
000048b0  20 20 20 52 45 2c 4c 45  0d 1c 84 1c 20 20 20 20  |   RE,LE....    |
000048c0  20 20 20 20 20 20 42 4c  4f 20 20 20 20 20 20 20  |      BLO       |
000048d0  6c 6f 6f 70 0d 1c 8e 1d  20 20 20 20 20 20 20 20  |loop....        |
000048e0  20 20 4c 44 52 20 20 20  20 20 20 20 31 33 2c 53  |  LDR       13,S|
000048f0  54 0d 1c 98 25 20 20 20  20 20 20 20 20 20 20 4c  |T...%          L|
00004900  44 4d 46 44 20 20 20 20  20 31 33 21 2c 7b 30 2d  |DMFD     13!,{0-|
00004910  31 32 2c 50 43 7d 0d 1c  a2 09 2e 65 78 65 70 0d  |12,PC}.....exep.|
00004920  1c ac 1d 20 20 20 20 20  20 20 20 20 20 80 20 20  |...          .  |
00004930  20 20 20 20 20 54 2c 50  4c 2c 23 37 0d 1c b6 1f  |     T,PL,#7....|
00004940  20 20 20 20 20 20 20 20  20 20 42 49 43 20 20 20  |          BIC   |
00004950  20 20 20 20 50 4c 2c 50  4c 2c 54 0d 1c c0 22 20  |    PL,PL,T..." |
00004960  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00004970  20 20 20 54 2c 54 2c 4c  53 4c 20 23 32 0d 1c ca  |   T,T,LSL #2...|
00004980  23 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |#          MOV  |
00004990  20 20 20 20 20 43 34 2c  43 33 2c 4c 53 4c 20 54  |     C4,C3,LSL T|
000049a0  0d 1c d4 1d 20 20 20 20  20 20 20 20 20 20 80 20  |....          . |
000049b0  20 20 20 20 20 20 54 2c  50 52 2c 23 37 0d 1c de  |      T,PR,#7...|
000049c0  22 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |"          MOV  |
000049d0  20 20 20 20 20 54 2c 54  2c 4c 53 4c 20 23 32 0d  |     T,T,LSL #2.|
000049e0  1c e8 22 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |.."          MOV|
000049f0  20 20 20 20 20 20 20 54  2c 43 33 2c 4c 53 4c 20  |       T,C3,LSL |
00004a00  54 0d 1c f2 1e 20 20 20  20 20 20 20 20 20 20 42  |T....          B|
00004a10  49 43 20 20 20 20 20 20  20 54 2c 43 34 2c 54 0d  |IC       T,C4,T.|
00004a20  1c fc 1d 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00004a30  20 20 20 20 20 20 20 43  34 2c 43 31 0d 1d 06 26  |       C4,C1...&|
00004a40  20 20 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |          ADD   |
00004a50  20 20 20 20 50 4c 2c 4f  2c 50 4c 2c 4c 53 52 20  |    PL,O,PL,LSR |
00004a60  23 31 0d 1d 10 1f 20 20  20 20 20 20 20 20 20 20  |#1....          |
00004a70  4c 44 4d 49 41 20 20 20  20 20 50 4c 2c 7b 43 32  |LDMIA     PL,{C2|
00004a80  7d 0d 1d 1a 1f 3b 20 20  20 20 20 20 20 20 20 42  |}....;         B|
00004a90  49 43 20 20 20 20 20 20  20 43 32 2c 43 32 2c 54  |IC       C2,C2,T|
00004aa0  0d 1d 24 1c 20 20 20 20  20 20 20 20 20 20 80 20  |..$.          . |
00004ab0  20 20 20 20 20 20 54 2c  43 31 2c 54 0d 1d 2e 1e  |      T,C1,T....|
00004ac0  20 20 20 20 20 20 20 20  20 20 84 52 20 20 20 20  |          .R    |
00004ad0  20 20 20 43 32 2c 43 32  2c 54 0d 1d 38 22 20 20  |   C2,C2,T..8"  |
00004ae0  20 20 20 20 20 20 20 20  53 54 4d 49 41 20 20 20  |        STMIA   |
00004af0  20 20 28 50 4c 29 21 2c  7b 43 32 7d 0d 1d 42 1f  |  (PL)!,{C2}..B.|
00004b00  20 20 20 20 20 20 20 20  20 20 42 41 4c 20 20 20  |          BAL   |
00004b10  20 20 20 20 65 6e 64 73  70 61 6e 0d 1d 4c 0e 20  |    endspan..L. |
00004b20  20 20 20 20 20 20 20 20  20 0d 1d 56 1a 2e 70 6f  |         ..V..po|
00004b30  69 6e 74 65 72 73 20 45  51 55 44 30 3a 45 51 55  |inters EQUD0:EQU|
00004b40  44 20 30 0d 1d 60 0c 2e  63 6f 74 61 62 65 6c 0d  |D 0..`..cotabel.|
00004b50  1d 6a 04 0d 1d 74 05 5d  0d 1d 7e 05 ed 0d 1d 88  |.j...t.]..~.....|
00004b60  09 51 25 3d 50 25 0d 1d  92 05 e1 0d 1d 9c 04 0d  |.Q%=P%..........|
00004b70  1d a6 04 0d 1d b0 0b dd  20 a4 76 75 6c 63 0d 1d  |........ .vulc..|
00004b80  ba 0e e3 20 49 3d 31 20  b8 20 32 30 0d 1d c4 0d  |... I=1 . 20....|
00004b90  5b 4f 50 54 20 50 41 53  53 0d 1d ce 29 20 20 20  |[OPT PASS...)   |
00004ba0  20 20 20 20 20 20 20 4c  44 4d 49 41 20 20 20 20  |       LDMIA    |
00004bb0  20 28 50 4c 29 2c 7b 54  2c 43 32 2c 43 33 2c 43  | (PL),{T,C2,C3,C|
00004bc0  34 7d 0d 1d d8 1d 20 20  20 20 20 20 20 20 20 20  |4}....          |
00004bd0  84 52 20 20 20 20 20 20  20 54 2c 54 2c 43 31 0d  |.R       T,T,C1.|
00004be0  1d e2 1f 20 20 20 20 20  20 20 20 20 20 84 52 20  |...          .R |
00004bf0  20 20 20 20 20 20 43 32  2c 43 32 2c 43 31 0d 1d  |      C2,C2,C1..|
00004c00  ec 1f 20 20 20 20 20 20  20 20 20 20 84 52 20 20  |..          .R  |
00004c10  20 20 20 20 20 43 33 2c  43 33 2c 43 31 0d 1d f6  |     C3,C3,C1...|
00004c20  1f 20 20 20 20 20 20 20  20 20 20 84 52 20 20 20  |.          .R   |
00004c30  20 20 20 20 43 34 2c 43  34 2c 43 31 0d 1e 00 2a  |    C4,C4,C1...*|
00004c40  20 20 20 20 20 20 20 20  20 20 53 54 4d 49 41 20  |          STMIA |
00004c50  20 20 20 20 28 50 4c 29  21 2c 7b 54 2c 43 32 2c  |    (PL)!,{T,C2,|
00004c60  43 33 2c 43 34 7d 0d 1e  0a 05 5d 0d 1e 14 05 ed  |C3,C4}....].....|
00004c70  0d 1e 1e 07 3d 22 22 0d  1e 28 04 0d ff           |....=""..(...|
00004c7d