home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d150
/
airfoil.lha
/
Airfoil
/
airfoil.asm
< prev
next >
Wrap
Assembly Source File
|
1987-06-15
|
13KB
|
931 lines
;:ts=8
dseg
ds 0
public _mask
_mask:
dc.l $0000
cseg
global _IntuitionBase,4
global _GfxBase,4
global _message,4
global _vp,4
global _rp,4
global _s,4
global _w,4
global _AirRequest,112
global _trp,8
global _area,24
global _buffer,1250
dseg
ds 0
public _camber
_camber:
dc.l $0004
cseg
dseg
ds 0
public _thickness
_thickness:
dc.l $0006
cseg
dseg
ds 0
public _angle
_angle:
dc.l $0000
cseg
dseg
ds 0
public _velocity
_velocity:
dc.l $0008
cseg
global _a,4
global _b,4
global _c,4
global _t,4
global _r,4
global _alpha,4
global _PEN,4
global _FILL,4
dseg
ds 0
public _Continue
_Continue:
dc.l $0001
cseg
dseg
ds 0
public _mode
_mode:
dc.l $0001
cseg
dseg
ds 0
public _title
_title:
dc.l $0000
cseg
global _ixo,4
global _iyo,4
dseg
ds 0
public _about
_about:
dc.l .1+0
dc.l .1+65
dc.l .1+67
dc.l .1+105
dc.l .1+140
dc.l .1+172
dc.l .1+174
dc.l .1+244
dc.l .1+317
dc.l .1+390
dc.l .1+461
dc.l .1+491
dc.l .1+493
dc.l .1+548
dc.l .1+603
dc.l .1+605
dc.l .1+667
dc.l .1+735
dc.l .1+803
dc.l .1+879
dc.l .1+945
dc.l .1+1014
dc.l .1+1079
dc.l .1+1148
cseg
.1
dc.b 32,32,32,32,32,32,32,32,65,105,114,102,111,105,108
dc.b 32,71,101,110,101,114,97,116,111,114,32,85,116,105,108
dc.b 105,122,105,110,103,32,116,104,101,32,74,111,117,107,111
dc.b 119,115,107,105,32,84,114,97,110,115,102,111,114,109,97
dc.b 116,105,111,110,0,32,0,32,32,32,32,32,32,32,32
dc.b 87,114,105,116,116,101,110,32,98,121,58,32,32,82,117
dc.b 115,115,101,108,108,32,76,101,105,103,104,116,111,110,0
dc.b 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,76,97,110,99,97,115,116,101,114
dc.b 44,32,67,65,0,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,77,97,114,99
dc.b 104,32,49,57,56,55,0,32,0,32,32,32,32,32,32
dc.b 32,32,84,111,32,117,115,101,32,116,104,105,115,32,112
dc.b 114,111,103,114,97,109,32,98,114,105,110,103,32,117,112
dc.b 32,116,104,101,32,114,101,113,117,101,115,116,101,114,32
dc.b 98,121,32,100,111,117,98,108,101,32,99,108,105,99,107
dc.b 105,110,103,0,32,32,32,32,32,32,32,32,116,104,101
dc.b 32,114,105,103,104,116,32,109,111,117,115,101,32,98,117
dc.b 116,116,111,110,32,40,116,104,101,32,109,101,110,117,32
dc.b 98,117,116,116,111,110,41,46,32,32,84,104,105,115,32
dc.b 114,101,113,117,101,115,116,101,114,32,99,97,110,32,98
dc.b 101,0,32,32,32,32,32,32,32,32,98,114,111,117,103
dc.b 104,116,32,117,112,32,97,116,32,97,110,121,32,116,105
dc.b 109,101,32,40,101,118,101,110,32,100,117,114,105,110,103
dc.b 32,112,108,111,116,116,105,110,103,41,32,98,121,32,100
dc.b 111,117,98,108,101,32,99,108,105,99,107,105,110,103,0
dc.b 32,32,32,32,32,32,32,32,116,104,101,32,114,105,103
dc.b 104,116,32,109,111,117,115,101,32,98,117,116,116,111,110
dc.b 46,32,32,84,104,101,32,114,101,113,117,101,115,116,101
dc.b 114,32,103,97,100,103,101,116,115,32,97,114,101,32,108
dc.b 111,99,97,116,101,100,32,97,110,100,0,32,32,32,32
dc.b 32,32,32,32,100,101,115,99,114,105,98,101,100,32,97
dc.b 115,32,102,111,108,108,111,119,115,46,0,32,0,32,32
dc.b 32,32,32,32,32,32,71,97,100,103,101,116,32,32,32
dc.b 32,32,76,111,99,97,116,105,111,110,32,32,32,32,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,68,101,115,99
dc.b 114,105,112,116,105,111,110,0,32,32,32,32,32,32,32
dc.b 32,45,45,45,45,45,45,32,32,32,32,32,45,45,45
dc.b 45,45,45,45,45,32,32,32,32,32,32,32,32,32,32
dc.b 32,32,32,32,32,32,45,45,45,45,45,45,45,45,45
dc.b 45,45,0,32,0,32,32,32,32,32,32,32,32,81,117
dc.b 105,116,32,32,32,32,32,32,32,85,112,112,101,114,32
dc.b 108,101,102,116,32,99,111,114,110,101,114,32,32,32,32
dc.b 32,32,32,69,120,105,116,115,32,102,114,111,109,32,112
dc.b 114,111,103,114,97,109,0,32,32,32,32,32,32,32,32
dc.b 67,108,111,115,101,32,32,32,32,32,32,85,112,112,101
dc.b 114,32,114,105,103,104,116,32,99,111,114,110,101,114,32
dc.b 32,32,32,32,32,83,116,97,114,116,115,32,111,114,32
dc.b 99,111,110,116,105,110,117,101,115,32,112,108,111,116,0
dc.b 32,32,32,32,32,32,32,32,83,104,111,119,84,105,116
dc.b 108,101,32,32,85,112,112,101,114,32,99,101,110,116,101
dc.b 114,32,32,32,32,32,32,32,32,32,32,32,32,84,111
dc.b 103,103,108,101,115,32,115,99,114,101,101,110,32,116,105
dc.b 116,108,101,32,98,97,114,0,32,32,32,32,32,32,32
dc.b 32,65,105,114,102,111,105,108,32,32,32,32,66,101,108
dc.b 111,119,32,83,104,111,119,84,105,116,108,101,32,103,97
dc.b 100,103,101,116,32,32,84,111,103,103,108,101,115,32,115
dc.b 116,114,101,97,109,108,105,110,101,47,112,114,101,115,115
dc.b 117,114,101,32,112,108,111,116,0,32,32,32,32,32,32
dc.b 32,32,67,97,109,98,101,114,32,32,32,32,32,66,101
dc.b 108,111,119,32,65,105,114,102,111,105,108,32,103,97,100
dc.b 103,101,116,32,32,32,32,77,105,100,45,99,104,111,114
dc.b 100,32,99,97,109,98,101,114,32,101,110,116,114,121,0
dc.b 32,32,32,32,32,32,32,32,84,104,105,99,107,110,101
dc.b 115,115,32,32,66,101,108,111,119,32,67,97,109,98,101
dc.b 114,32,103,97,100,103,101,116,32,32,32,32,32,77,105
dc.b 100,45,99,104,111,114,100,32,116,104,105,99,107,110,101
dc.b 115,115,32,101,110,116,114,121,0,32,32,32,32,32,32
dc.b 32,32,65,110,103,108,101,32,32,32,32,32,32,66,101
dc.b 108,111,119,32,84,104,105,99,107,110,101,115,115,32,103
dc.b 97,100,103,101,116,32,32,65,110,103,108,101,32,111,102
dc.b 32,97,116,116,97,99,107,32,101,110,116,114,121,0,32
dc.b 32,32,32,32,32,32,32,86,101,108,111,99,105,116,121
dc.b 32,32,32,66,111,116,116,111,109,32,101,100,103,101,32
dc.b 32,32,32,32,32,32,32,32,32,32,32,32,83,108,105
dc.b 100,101,114,32,102,111,114,32,118,101,108,111,99,105,116
dc.b 121,32,101,110,116,114,121,0,32,0
ds 0
dseg
ds 0
public _colors
_colors:
dc.w 70
dc.w 0
dc.w 3072
dc.w 3168
dc.w 3216
dc.w 3264
dc.w 192
dc.w 199
dc.w 204
dc.w 156
dc.w 108
dc.w 12
dc.w 9
dc.w 6
dc.w 0
dc.w 3276
cseg
dseg
ds 0
public _closeimage
_closeimage:
dc.w 16383
dc.w -1024
dc.w 12288
dc.w 3072
dc.w 13311
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 13251
dc.w -13312
dc.w 13251
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 13311
dc.w -13312
dc.w 12288
dc.w 3072
dc.w 16383
dc.w -1024
cseg
dseg
ds 0
public _streamimage
_streamimage:
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -16
dc.w 15
dc.w -1024
dc.w -31
dc.w 63
dc.w -4
dc.w 1023
dc.w -2
dc.w 32767
dc.w -2
dc.w 0
dc.w -4
dc.w 0
dc.w 0
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w -1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 255
dc.w -8
dc.w -16
dc.w 15
dc.w -1009
dc.w -15
dc.w 1023
dc.w 30
dc.w -64
dc.w 3
dc.w -1024
dc.w 1
dc.w -32768
dc.w 1
dc.w -1
dc.w 3
dc.w -1
dc.w -1
dc.w 1
dc.w -4
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w 0
dc.w 510
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -1
dc.w -1
dc.w -256
dc.w 7
dc.w 255
dc.w -8
dc.w -16
dc.w 15
dc.w -1024
dc.w 1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -2
dc.w 3
dc.w -1
dc.w -1
dc.w 0
dc.w 510
dc.w -1
dc.w -511
dc.w -1
dc.w -1
dc.w 0
dc.w 0
dc.w 0
dc.w 0
cseg
dseg
ds 0
public _pressureimage
_pressureimage:
dc.w 0
dc.w -128
dc.w 7
dc.w 96
dc.w 56
dc.w 16
dc.w 192
dc.w 8
dc.w 256
dc.w 4
dc.w 512
dc.w 2
dc.w 1024
dc.w 2
dc.w 2048
dc.w 1
dc.w 4096
dc.w -31
dc.w 8255
dc.w -3
dc.w 17407
dc.w -2
dc.w 32767
dc.w -2
dc.w 16384
dc.w -3
dc.w 8192
dc.w 1
dc.w 4096
dc.w 2
dc.w 3072
dc.w 4
dc.w 896
dc.w 8
dc.w 112
dc.w 48
dc.w 15
dc.w 192
dc.w 0
dc.w -256
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w -128
dc.w 7
dc.w -32
dc.w 63
dc.w -16
dc.w 255
dc.w -8
dc.w 511
dc.w -4
dc.w 1023
dc.w -4
dc.w 2047
dc.w -2
dc.w 4095
dc.w 30
dc.w 8128
dc.w 2
dc.w 15360
dc.w 0
dc.w 0
dc.w 0
dc.w 16383
dc.w 2
dc.w 8191
dc.w -2
dc.w 4095
dc.w -4
dc.w 1023
dc.w -8
dc.w 127
dc.w -16
dc.w 15
dc.w -64
dc.w 0
dc.w -256
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 0
cseg
dseg
ds 0
public _title_xy
_title_xy:
dc.w 0
dc.w 0
dc.w 151
dc.w 0
dc.w 151
dc.w 10
dc.w 0
dc.w 10
dc.w 0
dc.w 0
cseg
dseg
ds 0
public _title_border
_title_border:
ds.b 0
dc.w 0
dc.w 0
dc.b 1
dc.b 1
dc.b 0
dc.b 5
dc.l _title_xy
dc.l $0000
cseg
dseg
ds 0
public _quit_image
_quit_image:
ds.b 0
dc.w 0
dc.w 0
dc.w 24
dc.w 10
dc.w 1
dc.l _closeimage
dc.b 2
dc.b 0
dc.l $0000
cseg
dseg
ds 0
public _close_image
_close_image:
ds.b 0
dc.w 0
dc.w 0
dc.w 24
dc.w 10
dc.w 1
dc.l _closeimage
dc.b 1
dc.b 0
dc.l $0000
cseg
dseg
ds 0
public _stream_image
_stream_image:
ds.b 0
dc.w 0
dc.w 0
dc.w 32
dc.w 22
dc.w 3
dc.l _streamimage
dc.b 13
dc.b 0
dc.l $0000
cseg
dseg
ds 0
public _pressure_image
_pressure_image:
ds.b 0
dc.w 0
dc.w 0
dc.w 32
dc.w 22
dc.w 2
dc.l _pressureimage
dc.b 3
dc.b 0
dc.l $0000
cseg
global _prop_image,20
dseg
ds 0
public _camber_text
_camber_text:
ds.b 0
dc.b 1
dc.b 1
dc.b 0
dc.w 2
dc.w -11
dc.l $0000
dc.l .2+0
dc.l $0000
cseg
.2
dc.b 67,97,109,98,101,114,32,40,37,32,111,102,32,99,104
dc.b 111,114,100,41,58,0
ds 0
dseg
ds 0
public _thick_text
_thick_text:
ds.b 0
dc.b 1
dc.b 1
dc.b 0
dc.w 2
dc.w -11
dc.l $0000
dc.l .3+0
dc.l $0000
cseg
.3
dc.b 84,104,105,99,107,110,101,115,115,32,40,37,32,111,102
dc.b 32,99,104,111,114,100,41,58,0
ds 0
dseg
ds 0
public _angle_text
_angle_text:
ds.b 0
dc.b 1
dc.b 1
dc.b 0
dc.w 2
dc.w -11
dc.l $0000
dc.l .4+0
dc.l $0000
cseg
.4
dc.b 65,110,103,108,101,32,111,102,32,97,116,116,97,99,107
dc.b 32,40,100,101,103,41,58,0
ds 0
dseg
ds 0
public _velocity_text
_velocity_text:
ds.b 0
dc.b 1
dc.b 1
dc.b 0
dc.w 2
dc.w -11
dc.l $0000
dc.l .5+0
dc.l $0000
cseg
.5
dc.b 43,32,32,32,32,32,32,32,86,101,108,111,99,105,116
dc.b 121,32,32,32,32,32,32,32,45,0
ds 0
dseg
public _CambBuf
_CambBuf:
dc.b 52
dc.b 0
ds.b 14
cseg
dseg
public _ThicBuf
_ThicBuf:
dc.b 54
dc.b 0
ds.b 14
cseg
dseg
public _AnglBuf
_AnglBuf:
dc.b 48
dc.b 0
ds.b 14
cseg
global _UndoBuf,16
dseg
ds 0
public _camber_string
_camber_string:
ds.b 0
dc.l _CambBuf
dc.l _UndoBuf
dc.w 0
dc.w 16
dc.w 0
dc.w 0
dc.w 8
dc.w 0
dc.w 0
dc.w 0
dc.l $0000
dc.l $0000
dc.l $0000
cseg
dseg
ds 0
public _thick_string
_thick_string:
ds.b 0
dc.l _ThicBuf
dc.l _UndoBuf
dc.w 0
dc.w 16
dc.w 0
dc.w 0
dc.w 8
dc.w 0
dc.w 0
dc.w 0
dc.l $0000
dc.l $0000
dc.l $0000
cseg
dseg
ds 0
public _angle_string
_angle_string:
ds.b 0
dc.l _AnglBuf
dc.l _UndoBuf
dc.w 0
dc.w 16
dc.w 0
dc.w 0
dc.w 8
dc.w 0
dc.w 0
dc.w 0
dc.l $0000
dc.l $0000
dc.l $0000
cseg
dseg
ds 0
public _velocity_prop
_velocity_prop:
ds.b 0
dc.w 3
dc.w 32767
dc.w 0
dc.w 2048
dc.w 0
dc.w 200
dc.w 11
dc.w 1
dc.w 1
dc.w 0
dc.w 0
cseg
dseg
ds 0
public _camber_gad
_camber_gad:
ds.b 0
dc.l $0000
dc.w 10
dc.w 50
dc.w 100
dc.w 11
dc.w 0
dc.w 2049
dc.w 4100
dc.l $0000
dc.l $0000
dc.l _camber_text
dc.l $0000
dc.l _camber_string
dc.w 0
dc.l $0000
cseg
dseg
ds 0
public _thick_gad
_thick_gad:
ds.b 0
dc.l _camber_gad
dc.w 10
dc.w 80
dc.w 100
dc.w 11
dc.w 0
dc.w 2049
dc.w 4100
dc.l $0000
dc.l $0000
dc.l _thick_text
dc.l $0000
dc.l _thick_string
dc.w 1
dc.l $0000
cseg
dseg
ds 0
public _angle_gad
_angle_gad:
ds.b 0
dc.l _thick_gad
dc.w 10
dc.w 110
dc.w 100
dc.w 11
dc.w 0
dc.w 2049
dc.w 4100
dc.l $0000
dc.l $0000
dc.l _angle_text
dc.l $0000
dc.l _angle_string
dc.w 2
dc.l $0000
cseg
dseg
ds 0
public _velocity_gad
_velocity_gad:
ds.b 0
dc.l _angle_gad
dc.w 0
dc.w 138
dc.w 199
dc.w 11
dc.w 0
dc.w 1
dc.w 4099
dc.l _prop_image
dc.l $0000
dc.l _velocity_text
dc.l $0000
dc.l _velocity_prop
dc.w 3
dc.l $0000
cseg
dseg
ds 0
public _airfoil_gad
_airfoil_gad:
ds.b 0
dc.l _velocity_gad
dc.w 84
dc.w 15
dc.w 32
dc.w 22
dc.w 6
dc.w 258
dc.w 4097
dc.l _stream_image
dc.l _pressure_image
dc.l $0000
dc.l $0000
dc.l $0000
dc.w 4
dc.l $0000
cseg
dseg
ds 0
public _title_gad
_title_gad:
ds.b 0
dc.l _airfoil_gad
dc.w 24
dc.w 0
dc.w 151
dc.w 10
dc.w 0
dc.w 258
dc.w 4097
dc.l _title_border
dc.l $0000
dc.l $0000
dc.l $0000
dc.l $0000
dc.w 5
dc.l $0000
cseg
dseg
ds 0
public _close_gad
_close_gad:
ds.b 0
dc.l _title_gad
dc.w 176
dc.w 0
dc.w 24
dc.w 10
dc.w 4
dc.w 7
dc.w 4097
dc.l _close_image
dc.l $0000
dc.l $0000
dc.l $0000
dc.l $0000
dc.w 6
dc.l $0000
cseg
dseg
ds 0
public _quit_gad
_quit_gad:
ds.b 0
dc.l _close_gad
dc.w 0
dc.w 0
dc.w 24
dc.w 10
dc.w 4
dc.w 7
dc.w 4097
dc.l _quit_image
dc.l $0000
dc.l $0000
dc.l $0000
dc.l $0000
dc.w 7
dc.l $0000
cseg
dseg
ds 0
public _ns
_ns:
ds.b 0
dc.w 0
dc.w 0
dc.w 640
dc.w 400
dc.w 4
dc.b 0
dc.b 1
dc.w -32764
dc.w 15
dc.l $0000
dc.l .6+0
dc.l $0000
dc.l $0000
cseg
.6
dc.b 74,79,85,75,79,87,83,75,73,32,65,73,82,70,79
dc.b 73,76,32,71,69,78,69,82,65,84,79,82,0
ds 0
dseg
ds 0
public _nw
_nw:
ds.b 0
dc.w 0
dc.w 0
dc.w 640
dc.w 400
dc.b 0
dc.b 1
dc.l $1860
dc.l $1100
dc.l $0000
dc.l $0000
dc.l $0000
dc.l $0000
dc.l $0000
dc.w 0
dc.w 0
dc.w 0
dc.w 0
dc.w 15
cseg
public .begin
dseg
end
