Gold Fish 1/GoldFishApril1994_CD1.img/d1xx/d150/airfoil/airfoil.asm

Assembly Source File | 1987-06-15 | 13.1 KB | 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