org $22000
load $22000
custom = $dff000
ciaa = $bfe001
ciab = $bfd000

ssmallloop:macro
?1:move.l d1,(a4)
move.w d6,(a5)
move.w d6,(a1)
move.w (a3)+,(a6)
move.w (a3)+,(a0)
move.w d0,(a2)

dbf d2,?1
endm

veryloop:macro
move.l d1,(a4)
move.w d6,(a5)
move.w d6,(a1)
move.w (a3)+,(a6)
move.w (a3)+,(a0)
move.w d0,(a2)

endm

bltcon0     =   $040
bltcon1     =   $042
bltafwm     =   $044
bltalwm     =   $046
bltcpt      =   $048
bltbpt      =   $04C
bltapt      =   $050
bltdpt      =   $054
bltsize     =   $058
bltsise     =   $058
bltcmod     =   $060
bltbmod     =   $062
bltamod     =   $064
bltdmod     =   $066
bltcdat     =   $070
bltbdat     =   $072
bltadat     =   $074
bltddat     =   $000
dmaconr     =   $002
vposr       =   $004
vhposr      =   $006
dskdatr     =   $008
joy0dat     =   $00A
joy1dat     =   $00C
clxdat      =   $00E
adkconr     =   $010
pot0dat     =   $012
pot1dat     =   $014
potgor      =   $016
serdatr     =   $018
dskbytr     =   $01A
intenar     =   $01C
intreqr     =   $01E

dskpt       =   $020
dsklen      =   $024
dskdat      =   $026
refptr      =   $028
vposw       =   $02A
vhposw      =   $02C
copcon      =   $02E
serdat      =   $030
serper      =   $032
potgo       =   $034
joytest     =   $036
strequ      =   $038
strvbl      =   $03A
strhor      =   $03C
strlong     =   $03E

dsksync     =   $07E

cop1lc      =   $080
cop2lc      =   $084
copjmp1     =   $088
copjmp2     =   $08A
copins      =   $08C
diwstrt     =   $08E
diwstop     =   $090
ddfstrt     =   $092
ddfstop     =   $094
dmacon      =   $096
clxcon      =   $098
intena      =   $09A
intreq      =   $09C
adkcon      =   $09E

aud         =   $0A0
aud0        =   $0A0
aud1        =   $0B0
aud2        =   $0C0
aud3        =   $0D0

ptr      =   $00
len      =   $04
per      =   $06
vol      =   $08
dat      =   $0A
SIZEOF   =   $10

bpl1pth     =   $0E0
bpl1ptl     =   $0E2
bpl2pth     =   $0E4
bpl2ptl     =   $0E6
bpl3pth     =   $0E8
bpl3ptl     =   $0Ea
bpl4pth     =   $0Ec
bpl4ptl     =   $0Ee
bpl5pth     =   $0f0
bpl5ptl     =   $0f2
bpl6pth     =   $0f4
bpl6ptl     =   $0f6

bplcon0     =   $100
bplcon1     =   $102
bplcon2     =   $104
bpl1mod     =   $108
bpl2mod     =   $10A

bpldat      =   $110

spr0pth=$120
spr1pth=$124
spr2pth=$128
spr3pth=$12c
spr4pth=$130
spr5pth=$134
spr6pth=$138
spr7pth=$13c
spr0ptl=$122
spr1ptl=$126
spr2ptl=$12a
spr3ptl=$12e
spr4ptl=$132
spr5ptl=$136
spr6ptl=$13a
spr7ptl=$13e

spr0pos=$140
spr1pos=$148
spr2pos=$150
spr3pos=$158
spr4pos=$160
spr5pos=$168
spr6pos=$170
spr7pos=$178

spr0ctl=$142
spr1ctl=$14a
spr2ctl=$152
spr3ctl=$15a
spr4ctl=$162
spr5ctl=$16a
spr6ctl=$172
spr7ctl=$17a

spr0data=$144
spr1data=$14c
spr2data=$154
spr3data=$15c
spr4data=$164
spr5data=$16c
spr6data=$174
spr7data=$17c

spr0datb=$146
spr1datb=$14e
spr2datb=$156
spr3datb=$15e
spr4datb=$166
spr5datb=$16e
spr6datb=$176
spr7datb=$17e

color0      =   $180
color1      =   $182
color2      =   $184
color3      =   $186
color4      =   $188
color5      =   $18a
color6      =   $18c
color7      =   $18e
color8      =   $190
color9      =   $192
color10     =   $194
color11     =   $196
color12     =   $198
color13     =   $19a
color14     =   $19c
color15     =   $19e
color16     =   $1a0
color17     =   $1a2
color18     =   $1a4
color19     =   $1a6
color20     =   $1a8
color21     =   $1aa
color22     =   $1ac
color23     =   $1ae
color24     =   $1b0
color25     =   $1b2
color26     =   $1b4
color27     =   $1b6
color28     =   $1b8
color29     =   $1ba
color30     =   $1bc
color31     =   $1be

r0 = $000
r1 = $100
r2 = $200
r3 = $300
r4 = $400
r5 = $500
r6 = $600
r7 = $700
r8 = $800
r9 = $900
ra = $a00
rb = $b00
rc = $c00
rd = $d00
re = $e00
rf = $f00

p1  = 0
p2  = 2
p3  = 4
p4  = 6
p5  = 8
p6  = 10
p7  = 12
p8  = 14
p9  = 16
p10 = 18
p11 = 20

p12 = 22
p13 = 24
p14 = 26
p15 = 28
p16 = 30
w1 = 32
w2 = 33
w3 = 34
w4 = 35
w5 = 36
w6 = 37
w7 = 38
w8 = 39
w9 = 40
w10 = 41
w11 = 42
w12 = 43
w13 = 44
w14 = 45
w15 = 46
w16 = 47
w17 = 48
w18 = 49
w19 = 50
w20 = 51
w21 = 52
w22 = 53
w23 = 54

c1a = 55
c1b = 56
c1c = 57
c1d = 58
c2a = 59
c2b = 60
c2c = 61
c2d = 62
c3a = 63
c3b = 64
c3c = 65
c3d = 66
c4a = 67
c4b = 68
c4c = 69
c4d = 70
c5a = 71
c5b = 72
c5c = 73
c5d = 74
c6a = 75
c6b = 76
c6c = 77
c6d = 78
c7a = 79
c7b = 80
c7c = 81
c7d = 82
c8a = 83
c8b = 84
c8c = 85
c8d = 86
c9a = 87
c9b = 88
c9c = 89
c9d = 90
c10a = 91
c10b = 92
c10c = 93
c10d = 94
c11a = 95
c11b = 96
c11c = 97
c11d = 98
c12a = 99
c12b = 100
c12c = 101
c12d = 102
c13a = 103
c13b = 104
c13c = 105
c13d = 106

cp0 = 108
cp1 = 110
cp2 = 112
cp3 = 114
cp4 = 116
cp5 = 118
cp6 = 120
cp7 = 122
cp8 = 124
cp9 = 126
cp10 = 128
cp11 = 130
cp12 = 132
cp13 = 134

alku:
 jmp start

rras1:blk.b 12800,0
rras2:blk.b 8680,0
rras3:blk.b 8680,0
rras4:blk.b 8680,0
rras5:blk.b 8680,0
rras6:blk.b 8680,0
brras1:blk.b 7440,0
brras2:blk.b 7440,0
brras3:blk.b 7440,0
brras4:blk.b 7440,0
brras5:blk.b 7440,0

goinhome:
dc.b 0,%1,0,%10000000,%10,%11
dc.b %1000000,%11000000
blk.b 8,0
dc.b %100,%101,%100000,%10100000,%110,%111
dc.b %1100000,%11100000
seventable2:
	dc.b %00010000
	dc.b %00100000
	dc.b %00110000
	dc.b %01010000
	dc.b %01100000
	dc.b %01110000
	dc.b %10000000

sixtable2:
	dc.b %00000000
	dc.b %00100000
	dc.b %01000000
	dc.b %01100000
	dc.b %10000000
	dc.b %10100000
fivetable2:
	dc.b %00100000
	dc.b %01000000
	dc.b %01100000
	dc.b %10010000
	dc.b %10110000
fourtable2:
	dc.b %00110000
	dc.b %01100000
	dc.b %10100000
	dc.b %11000000
threetable2:
	dc.b %00100000
	dc.b %01100000
	dc.b %10110000
twotable2:
	dc.b %00110000
	dc.b %10100000
paused:dc.b 0
blk.b 12,0
dc.b%1000,%1001,%10000,%10010000
dc.b %1010,%1011,%1010000,%11010000
blk.b 8,0
dc.b %1100,%1101,%110000,%10110000,%1110,%1111
dc.b %1110000,%11110000

onethreetable:
blk.b 128,0
headtable:
dc.w 55,72,48,48
dc.w 55,72,65,65
dc.w 55,55,48,65
dc.w 72,72,48,65
dummysp:dc.l 0,0

dc.b %00010000,%00010001,%00001000,%10001000
dc.b %00010010,%00010011,%01001000,%11001000
blk.b 8
dc.b %00010100,%00010101,%00101000,%10101000
dc.b %00010110,%00010111,%01101000,%11101000
lowerfoottable:
dc.w 55,72,114,114
dc.w 55,72,131,131
dc.w 55,55,114,131
dc.w 72,72,114,131
blk.b 8
dc.b %11000,%11001,%00011000,%10011000
dc.b %11010,%11011,%01011000,%11011000
blk.b 8
dc.b %11100,%11101,%00111000,%10111000
dc.b %11110,%11111,%01111000,%11111000
nibble:blk.b 256,0
threequartertable:
blk.b 192,0
threequarterftable:
blk.b 192,0

breasttable:
dc.w 55,72,70,70
dc.w 55,72,87,87
dc.w 55,55,70,87
dc.w 72,72,70,87
blk.b 8,0

dc.b %00100000,%00100001,%00000100,%10000100,%00100010,%00100011
dc.b %01000100,%11000100
blk.b 8
dc.b %00100100,%00100101,%00100100,%10100100,%00100110,%00100111
dc.b %01100100,%11100100

upperfoottable:
dc.w 55,72,92,92
dc.w 55,72,109,109
dc.w 55,55,92,109
dc.w 72,72,92,109
blk.b 8
dc.b %00101000,%00101001,%00010100,%10010100,%00101010,%00101011
dc.b %01010100,%11010100
blk.b 8
dc.b %00101100,%00101101,%00110100,%10110100,%00101110,%00101111
dc.b %01110100,%11110100
quarterflipbtable:
blk.b 64,0
halvebtable:
blk.b 64,0
lefthandtable:
dc.w 31,48,74,74
dc.w 31,48,91,91
dc.w 31,31,74,91
dc.w 48,48,74,91
blk.b 8
dc.b %00110000,%00110001,%00001100,%10001100,%00110010,%00110011
dc.b %01001100,%11001100
blk.b 8
dc.b %00110100,%00110101,%00101100,%10101100,%00110110,%00110111
dc.b %01101100,%11101100
intrequest1: dc.l 0
intrequest2: dc.l 0
intrequest3: dc.l 0
intrequest4: dc.l 0
intrequest5: dc.l 0
intrequest6: dc.l 0
blk.b 16,0
dc.b %00111000,%00111001,%00011100,%10011100,%00111010,%00111011
dc.b %01011100,%11011100
blk.b 8,0
dc.b %00111100,%00111101,%00111100,%10111100,%00111110,%00111111
dc.b %01111100,%11111100









;part II
taulu:blk.b 384,0
taulu2:blk.b 384,0
taulu3:blk.b 192,0
taulu4:blk.b 192,0
taulu5:blk.b 96,0
taulu6:blk.b 96,0
taulu7:blk.b 112,0
taulu8:blk.b 112,0
taulu9:blk.b 96,0
taulu10:blk.b 96,0
taulu11:blk.b 88,0
taulu12:blk.b 88,0
taulu13:blk.b 96,0
taulu14:blk.b 96,0
taapeli2:
blk.b 114,0
taapeli:
blk.b 242,0
oliktable:
blk.b 210,0
keybuffer: blk.b 21,$ff
dc.b $fe

blk.b 12

dc.b %01000000,%01000001,%00000010,%10000010,%01000010,%01000011
dc.b %01000010,%11000010
blk.b 8,0
dc.b %01000100,%01000101,%00100010,%10100010,%01000110,%01000111
dc.b %01100010,%11100010
blk.b 40,0
dc.b %01001000,%01001001,%00010010,%10010010
dc.b %01001010,%01001011,%01010010,%11010010
blk.b 8,0
dc.b %01001100,%01001101,%00110010,%10110010,%01001110,%01001111
dc.b %01110010,%11110010
hiwordblitftable:
blk.b 64,0
lowordblitftable:
blk.b 64,0
righthandtable:
dc.w 79,96,74,74
dc.w 79,96,91,91
dc.w 79,79,74,91
dc.w 96,96,74,91
blk.b 8
dc.b %01010000,%01010001,%00001010,%10001010,%01010010,%01010011
dc.b %01001010,%11001010
blk.b 8
dc.b %01010100,%01010101,%00101010,%10101010,%01010110,%01010111
dc.b %01101010,%11101010
upperringtable:
dc.w 79,96,79+21,79+21
dc.w 79,96,79+21,79+21
dc.w 79,79,79+21,95+21
dc.w 96,96,79+21,95+21
blk.b 8
dc.b %01011000,%01011001,%00011010,%10011010,%01011010,%01011011
dc.b %01011010,%11011010
blk.b 8
dc.b %01011100,%01011101,%00111010,%10111010,%01011110,%01011111
dc.b %01111010,%11111010
mpr1:
dc.w $f05b
dc.w $0602
blk.l 22,0
people1:blk.b 76,0

mpr2:
dc.w $f07f
dc.w $0602
blk.l 22,0
people2:blk.b 76,0

mpr3:
dc.w $f0a3
dc.w $0602
blk.l 22,0
people3:blk.b 76,0

mpr4:
dc.w $f0c7
dc.w $0602
blk.l 22,0
people4:blk.b 76,0
blk.b 8,0
dc.b %01100000,%01100001,%00000110,%10000110,%01100010,%01100011
dc.b %01000110,%11000110
blk.b 8
dc.b %01100100,%01100101,%00100110,%10100110,%01100110,%01100111
dc.b %01100110,%11100110
lowerringtable:
dc.w 79,96,96+21,96+21
dc.w 79,96,96+21+17,96+21+17
dc.w 79,79,96+21,96+16+21
dc.w 96,96,96+21,96+16+21
blk.b 8
dc.b %01101000,%01101001,%00010110,%10010110,%01101010,%01101011
dc.b %01010110,%11010110
blk.b 8
dc.b %01101100,%01101101,%00110110,%10110110,%01101110,%01101111
dc.b %01110110,%11110110
halveflipbtable:
blk.b 64,0
quarterbtable:
blk.b 64,0


siz5:blk.b 34,0
currentlevel: dc.w 0
blk.b 4
dc.b %01110000,%01110001,%00001110,%10001110,%01110010,%01110011
dc.b %01001110,%11001110
blk.b 8
dc.b %01110100,%01110101,%00101110,%10101110,%01110110,%01110111
dc.b %01101110,%11101110
blk.b 40,0
dc.b %01111000,%01111001,%00011110,%10011110,%01111010,%01111011
dc.b %01011110,%11011110
blk.b 8,0
dc.b %01111100,%01111101,%00111110,%10111110,%01111110,%01111111
dc.b %01111110,%11111110


;part III


platteout:blk.b 1536,0
member1:dc.l name1
dc.w 1
dc.w 0
dc.w 2

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

blk.w 20,0

dc.w 0
dc.w 40
dc.w 40
dc.w 50
dc.w 50
dc.b 1
dc.b 2
dc.w 1
dc.w 0
dc.w 0
dc.b 90
dc.b 90
dc.w 9
dc.w 9
dc.w 9
dc.w 9
dc.w 9
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.w 0
dc.w 0
dc.l 0
dc.b 1
dc.b 1
dc.b 1
dc.b 0
dc.l mpr1
dc.w 17

dc.w 0
dc.w 0
dc.w 0

member2:dc.l name2
dc.w 2
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

blk.w 20,0

dc.w 0
dc.w 42
dc.w 42
dc.w 50
dc.w 50
dc.b 1
dc.b 2
dc.w 0
dc.w 0
dc.w 0
dc.b 48
dc.b 48
dc.w 6
dc.w 5
dc.w 12
dc.w 12
dc.w 7
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.w 0
dc.w 0
dc.l 0
dc.b 1
dc.b 2
dc.b 2
dc.b 0
dc.l mpr2
dc.w 11

dc.w 0
dc.w 0
dc.w 0

member3:dc.l name3
dc.w 3
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

blk.w 20,0

dc.w 0
dc.w 38
dc.w 38
dc.w 55
dc.w 55
dc.b 1
dc.b 2
dc.w 0
dc.w 0
dc.w 0
dc.b 32
dc.b 32
dc.w 14
dc.w 11
dc.w 7
dc.w 7
dc.w 13
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.w 0
dc.w 0
dc.l 0
dc.b 1
dc.b 3
dc.b 3
dc.b 0
dc.l mpr3
dc.w 5

dc.w 0
dc.w 0
dc.w 0

member4:dc.l name4
dc.w 4
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

blk.w 20,0

dc.w 0
dc.w 35
dc.w 35
dc.w 48
dc.w 48
dc.b 1
dc.b 2
dc.w 0
dc.w 0
dc.w 0
dc.b 16
dc.b 16
dc.w 9
dc.w 9
dc.w 9
dc.w 9
dc.w 9
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.b 0
dc.w 0
dc.w 0
dc.l 0
dc.b 1
dc.b 4
dc.b 4
dc.b 0
dc.l mpr4
dc.w 12

dc.w 0
dc.w 0
dc.w 0

;283
buttonbuffer:
blk.l 10,$ffffffff
dc.l $ffffffff

cmdstr:blk.b 40,0

dc.b "  "
lastcmd:blk.b 40,0
shift:dc.b 0

rawkey:dc.b 'a',$20,0
dc.b 'b',$35,0
dc.b 'c',$33,0
dc.b 'd',$22,0
dc.b 'e',$12,0
dc.b 'f',$23,0
dc.b 'g',$24,0
dc.b 'h',$25,0
dc.b 'i',$17,0
dc.b 'j',$26,0
dc.b 'k',$27,0
dc.b 'l',$28,0
dc.b 'm',$37,0
dc.b 'n',$36,0
dc.b 'o',$18,0
dc.b 'p',$19,0
dc.b 'q',$10,0
dc.b 'r',$13,0
dc.b 's',$21,0
dc.b 't',$14,0
dc.b 'u',$16,0
dc.b 'v',$34,0
dc.b 'w',$11,0
dc.b 'x',$32,0
dc.b 'y',$15,0
dc.b 122,$31,0
dc.b 'A',$20,$ff
dc.b 'B',$35,$ff
dc.b 'C',$33,$ff
dc.b 'D',$22,$ff
dc.b 'E',$12,$ff
dc.b 'F',$23,$ff
dc.b 'G',$24,$ff
dc.b 'H',$25,$ff
dc.b 'I',$17,$ff
dc.b 'J',$26,$ff
dc.b 'K',$27,$ff
dc.b 'L',$28,$ff
dc.b 'M',$37,$ff
dc.b 'N',$36,$ff
dc.b 'O',$18,$ff
dc.b 'P',$19,$ff
dc.b 'Q',$10,$ff
dc.b 'R',$13,$ff
dc.b 'S',$21,$ff
dc.b 'T',$14,$ff
dc.b 'U',$16,$ff
dc.b 'V',$34,$ff
dc.b 'W',$11,$ff
dc.b 'X',$32,$ff
dc.b 'Y',$15,$ff
dc.b 90,$31,$ff

dc.b '1',1,0
dc.b '2',2,0
dc.b '3',3,0
dc.b '4',4,0
dc.b '5',5,0
dc.b '6',6,0
dc.b '7',7,0
dc.b '8',8,0
dc.b '9',9,0
dc.b '0',$a,0
dc.b '!',$1,$ff
dc.b '?',$3a,$ff
dc.b '.',$39,0
dc.b ',',$38,0
dc.b ':',$29,$ff
dc.b '$',$4,$ff
dc.b '"',$2a,$ff
dc.b "#",$2a,0
dc.b 254,$41,0
dc.b ' ',0,0
dc.b 0

cop11:blk.b 16,0

cop12:blk.b 16,0

cop13:blk.b 16,0

cop9:blk.b 16,0

cop10:blk.b 16,0

cop6:blk.b 16,0

cop4:blk.b 26,0

cop8:blk.b 26,0

cop5:blk.b 16,0

cop7:blk.b 16,0

;cop1:dc.b 0
;dc.b 0,69 ;x,y
;dc.b %00000000 ;cond
;dc.b 1,3 ;new !width! and !startword!
;dc.b 0,0
;dc.b %00000000
;;dc.b $ff,$ff
;dc.b 0,74
;dc.b %00000000
;dc.b 1,3
;dc.b 0,0
;dc.b %00000000
;dc.b $ff,$ff
;dc.b 0,60
;dc.b %00000000
;dc.b 2,2
cop1:blk.b 26,0

cop3:blk.b 26,0

cop2:blk.b 16,0


thin0:blk.b 16,0

thin1:blk.b 26,0

thin2:blk.b 16,0

thin3:blk.b 26,0

thin4:blk.b 16,0

thin5:blk.b 26,0

thin6:blk.b 16,0

thin7:blk.b 16,0

thin8:blk.b 16,0

thin9:blk.b 16,0

thin10:blk.b 16,0

thin11:blk.b 16,0

thin12:blk.b 16,0

thin13:blk.b 16,0


fhin0:blk.b 16,0

fhin1:blk.b 16,0

fhin2:blk.b 16,0

fhin3:blk.b 26,0

fhin4:blk.b 16,0

fhin5:blk.b 16,0

fhin6:blk.b 16,0

fhin7:blk.b 16,0

fhin8:blk.b 16,0



chin0:blk.b 13,0

chin1:blk.b 13,0

chin2:blk.b 13,0

chin3:blk.b 13,0

chin4:blk.b 13,0

chin5:blk.b 13,0

chin6:blk.b 13,0

chin7:blk.b 13,0

chin8:blk.b 13,0

chin9:blk.b 13,0

chin10:blk.b 13,0

chin11:blk.b 13,0

chin12:blk.b 13,0

chin13:blk.b 13,0

overlay:dc.l ol1,ol2,ol3,ol4,ol5,ol6,ol7,ol8,ol9,ol10,ol11,ol12
dc.l ol13,ol14,ol15,ol16,ol17,ol18,ol19

rrock1:dc.l rock1,rock1b,rock2,rock2b,rock3,rock3b,rock4,rock4b
dc.l rock5,rock5b,rock6,rock6b,rock7,rock7b

brras6:blk.b 7440,0

plattecout:blk.b 96,0
blk.b 22,0

dc.b %10000000,%10000001,%00000001,%10000001,%10000010,%10000011
dc.b %01000001,%11000001
blk.b 8,0
dc.b %10000100,%10000101,%00100001,%10100001,%10000110,%10000111
dc.b %01100001,%11100001
blk.b 40,0
dc.b %10001000,%10001001,%00010001,%10010001
dc.b %10001010,%10001011,%01010001,%11010001
blk.b 8,0
dc.b %10001100,%10001101,%00110001,%10110001,%10001110,%10001111
dc.b %01110001,%11110001
eightbtable:
blk.b 64,0
eightflipbtable:
blk.b 64,0
siz3:blk.b 32,0

blk.b 8
dc.b %10010000,%10010001,%00001001,%10001001,%10010010,%10010011
dc.b %01001001,%11001001
blk.b 8
dc.b %10010100,%10010101,%00101001,%10101001,%10010110,%10010111
dc.b %01101001,%11101001
blk.b 40
dc.b %10011000,%10011001,%00011001,%10011001,%10011010,%10011011
dc.b %01011001,%11011001
blk.b 8
dc.b %10011100,%10011101,%00111001,%10111001,%10011110,%10011111
dc.b %01111001,%11111001

ol1:blk.b 30,0
ol2:blk.b 18,0
ol3:blk.b 18,0
ol4:blk.b 12,0
ol5:blk.b 12,0
ol6:blk.b 18,0
ol7:blk.b 12,0
ol8:blk.b 12,0
ol9:blk.b 18,0
ol10:blk.b 30,0
ol11:blk.b 18,0
ol12:blk.b 12,0
ol13:blk.b 12,0
ol14:blk.b 18,0
ol15:blk.b 30,0
ol16:blk.b 18,0
ol17:blk.b 12,0
ol18:blk.b 12,0
ol19:blk.b 18,0

siz2:blk.b 66,0

sixteenbtable:
blk.b 64,0
onethreeftable:
blk.b 192,0

blk.b 28

dc.b %10100000,%10100001,%00000101,%10000101,%10100010,%10100011
dc.b %01000101,%11000101
blk.b 8
dc.b %10100100,%10100101,%00100101,%10100101,%10100110,%10100111
dc.b %01100101,%11100101
blk.b 40
dc.b %10101000,%10101001,%00010101,%10010101,%10101010,%10101011
dc.b %01010101,%11010101
blk.b 8
dc.b %10101100,%10101101,%00110101,%10110101,%10101110,%10101111
dc.b %01110101,%11110101
siz1:blk.b 64,0

siz4:blk.b 64,0

blk.b 40
dc.b %10110000,%10110001,%00001101,%10001101,%10110010,%10110011
dc.b %01001101,%11001101
blk.b 8
dc.b %10110100,%10110101,%00101101,%10101101,%10110110,%10110111
dc.b %01101101,%11101101
blk.b 40,0
dc.b %10111000,%10111001,%00011101,%10011101,%10111010,%10111011
dc.b %01011101,%11011101
blk.b 8,0
dc.b %10111100,%10111101,%00111101,%10111101,%10111110,%10111111
dc.b %01111101,%11111101

;part IIII


; 176

rapu2:dc.w 2,10,54+21,0,31,10,54+21,0,37,10,54+21,0
rapu:dc.w 3,4,54+21,0,32,4,54+21,0,38,4,54+21,0
rapu3:dc.w 1,7,28+21,0,30,7,28+21,0,34,7,28+21,0
rapu4:dc.w 6,7,72+21,0,35,7,72+21,0
rapu5:dc.w 7,7,94+21,0,36,7,94+21,0,39,7,94+21,0
rapu6:dc.w 27,10,80+21,0,27,10,80+21,0,37,10,80+21,0
rapu7:dc.w 26,10,80+21+17,0,26,10,80+21+17,0,38,10,80+21+17,0
rapu8:dc.w 4,7,50+21,0,33,7,50+21,0

; 128
highwordblittable:
dc.w %0000100110100000,$8000,%0001110111100100,$4000
dc.w %0001110111100100,$2000,%0010110111100100,$1000
dc.w %0010110111100100,$800,%0011110111100100,$400
dc.w %0011110111100100,$200,%0100110111100100,$100
dc.w %0100110111100100,$80,%0101110111100100,$40
dc.w %0101110111100100,$20,%0110110111100100,$10
dc.w %0110110111100100,$8,%0111110111100100,$4
dc.w %0111110111100100,$2,%1000110111100100,$1

lowordblittable:
dc.w %1000100111100100,$8000,%0111110111100100,$4000
dc.w %0111110111100100,$2000,%0110110111100100,$1000
dc.w %0110110111100100,$800,%0101110111100100,$400
dc.w %0101110111100100,$200,%0100110111100100,$100
dc.w %0100110111100100,$80,%0011110111100100,$40
dc.w %0011110111100100,$20,%0010110111100100,$10
dc.w %0010110111100100,$8,%0001110111100100,$4
dc.w %0001110111100100,$2,%0000110111100100,$1

; 122
mamq:
dc.w 28,14,17+21,30,16,17+21,32,18,17+21,34,20,17+21
dc.w 36,22,17+21,38,24,17+21,40,26,17+21,42,28,17+21
dc.w 44,30,17+21,46,32,17+21,48,14,34+21,50,16,34+21
dc.w 52,18,34+21,54,20,34+21,56,22,34+21,58,24,34+21
dc.w 60,26,34+21,62,28,34+21,64,30,34+21,66,32,34+21,-1

; 112
joss:dc.w 8,10,54+21,6,4,54+21,20,2,80+21,22,4,80+21
dc.w 24,2,97+21,26,4,97+21,16,7,72+21,18,7,94+21
dc.w 12,7,50+21,10,7,28+21,14,3,33+21,68,11,33+21
dc.w 82,10,80+21,84,10,97+21,-1
rnsm:dc.w 5,3,33+21,14,10,12+21,8,4,12+21,18,4,80+21,-1

; 70
cursor:
poss:dc.w $0000
ctls:dc.w $0f00
data1l:dc.w $0000
data1h:dc.w $0000
blk.b 62,0

; 70
cursor2:
poss2:dc.w $0000
ctls2:dc.w $0f00
data1l2:dc.w $0000
data1h2:dc.w $0000
blk.b 62,0

; x in words, y , eestaas (2=jep), planesize, startadd,
; deststart
; planeptstart
; planeincpt, taulupt (0=noneed)

; 288
dplaci1:dc.w 18,8,0,288,0,6760 ;1
dc.l 0
dc.w $ffff
dc.w 16,48,2,1536,0,4840 ;2
dc.l taulu
dc.w 0
dc.w 16,48,0,1536,0,4842 ;3
dc.l 0
dc.w 0
dc.w 16,48,0,1536,0,4840 ;4
dc.l taulu2
dc.w 0
dc.w 8,14,2,384,0,3880 ;5
dc.l taulu8
dc.w %010100
dc.w 8,24,2,384,0,3880 ;6
dc.l taulu3
dc.w %010100
dc.w 8,24,0,384,0,3890 ;7
dc.l 0
dc.w %010100
dc.w 8,24,0,384,0,3880 ;8
dc.l taulu4
dc.w %010100
dc.w 8,14,0,384,0,3880 ;9
dc.l taulu7
dc.w %010100
dc.w 4,12,2,96,0,3400 ;10
dc.l taulu10
dc.w %101000
dc.w 4,12,2,96,0,3400 ;11
dc.l taulu6
dc.w %101000
dc.w 4,12,0,96,0,3414 ;12
dc.l 0
dc.w %101000
dc.w 4,12,0,96,0,3400 ;13
dc.l taulu5
dc.w %101000
dc.w 4,12,0,96,0,3400 ;14
dc.l taulu9
dc.w %101000
dc.w 18,6,2,288,0,6760 ;15
dc.l taulu13
dc.w $ffff
dc.w 18,6,0,288,0,6760 ;16
dc.l taulu14
dc.w $ffff

; 288
uplaci1:dc.w 18,10,0,288,286,34 ;1
dc.l 0
dc.w $ffff
dc.w 16,32,2,1536,1504,400 ;2
dc.l taulu2
dc.w 0
dc.w 16,32,0,1536,1534,432 ;3
dc.l 0
dc.w 0
dc.w 16,32,0,1536,1504,400 ;4
dc.l taulu3
dc.w 0
dc.w 8,10,2,384,224,1920 ;5
dc.l taulu9
dc.w %010100
dc.w 8,16,2,384,368,1680 ;6
dc.l taulu4
dc.w %010100
dc.w 8,16,0,384,382,1704 ;7
dc.l 0
dc.w %010100
dc.w 8,16,0,384,368,1680 ;8
dc.l taulu5
dc.w %010100
dc.w 8,10,0,384,224,1920 ;9
dc.l taulu8
dc.w %010100
dc.w 4,8,2,96,88,2320 ;10
dc.l taulu11
dc.w %101000
dc.w 4,8,2,96,88,2320 ;11
dc.l taulu7
dc.w %101000
dc.w 4,8,0,96,94,2340 ;12
dc.l 0
dc.w %101000
dc.w 4,8,0,96,88,2320 ;13
dc.l taulu6
dc.w %101000
dc.w 4,8,0,96,88,2320 ;14
dc.l taulu10
dc.w %101000
dc.w 18,8,2,288,180,120 ;15
dc.l taulu12
dc.w $ffff
dc.w 18,8,0,288,180,120 ;16
dc.l taulu13
dc.w $ffff

rock1:	blk.b 240,0
rock1b:	blk.b 240,0
rock2:	blk.b 240,0
rock2b:	blk.b 240,0
rock3:	blk.b 240,0
rock3b:	blk.b 240,0
olddmareq:dc.l 0
oldintreq:dc.l 0
has1:	dc.l 0
has2:	dc.l 0
has3:	dc.l 0
has4:	dc.l 0
has5:	dc.l 0
has6:	dc.l 0
runxtext: dc.w 0

dc.b %11000000,%11000001,%00000011,%10000011,%11000010,%11000011
dc.b %01000011,%11000011
blk.b 8,0
dc.b %11000100,%11000101,%00100011,%10100011,%11000110,%11000111
dc.b %01100011,%11100011
blk.b 40,0
dc.b %11001000,%11001001,%00010011,%10010011
dc.b %11001010,%11001011,%01010011,%11010011
blk.b 8,0
dc.b %11001100,%11001101,%00110011,%10110011,%11001110,%11001111
dc.b %01110011,%11110011
; 84
gettable:
dc.w 80,96,54+21,54+21+16,8,0
dc.w 32,48,54+21,54+21+16,6,0
dc.w 56,72,94+21,94+21+16,18,5
dc.w 56,72,72+21,72+21+16,16,4
dc.w 56,72,50+21,50+21+16,12,2
dc.w 56,72,28+21,28+21+16,10,1
dc.w 24,40,33+21,33+21+16,14,3
;80
karsten:dc.b 0,-1,0,1,1,0,-1,0
dc.b 0,-2,0,2,2,0,-2,0
dc.b -1,-1,1,1,-1,1,1,-1
dc.b 0,-3,0,3,0,-3,0,3
dc.b -2,-1,2,1,-2,1,2,-1 ;-34
dc.b -1,-2,1,2,-1,2,1,-2 ;-63
dc.b 0,-4,0,4,-4,0,4,0
dc.b -3,1,3,1,3,-1,-3,-1
dc.b 2,2,-2,-2,2,-2,-2,2
dc.b 3,1,3,-1,-3,1,-3,-1
blk.b 4
dc.b %11010000,%11010001,%00001011,%10001011,%11010010,%11010011
dc.b %01001011,%11001011
blk.b 8
dc.b %11010100,%11010101,%00101011,%10101011,%11010110,%11010111
dc.b %01101011,%11101011
blk.b 40
dc.b %11011000,%11011001,%00011011,%10011011,%11011010,%11011011
dc.b %01011011,%11011011
blk.b 8
dc.b %11011100,%11011101,%00111011,%10111011,%11011110,%11011111
dc.b %01111011,%11111011
;328
craja:dc.w 16,32,80+21,80+21+16,20,6
dc.w 32,48,80+21,80+21+16,22,6
dc.w 16,32,97+21,97+21+16,24,6
dc.w 32,48,97+21,97+21+16,26,6
dc.w 88,88+16,33+21,33+21+16,68,7
dc.w 80,96,80+21,80+21+16,82,9
dc.w 80,96,96+21,96+21+16,84,9
dc.w -1
dc.w 112,128,17+21,17+21+16,28,8
dc.w 128,144,17+21,17+21+16,30,8
dc.w 144,160,17+21,17+21+16,32,8
dc.w 160,176,17+21,17+21+16,34,8
dc.w 176,192,17+21,17+21+16,36,8
dc.w 192,208,17+21,17+21+16,38,8
dc.w 208,224,17+21,17+21+16,40,8
dc.w 224,240,17+21,17+21+16,42,8
dc.w 240,256,17+21,17+21+16,44,8
dc.w 256,272,17+21,17+21+16,46,8
dc.w 112,128,34+21,34+21+16,48,8
dc.w 128,144,34+21,34+21+16,50,8
dc.w 144,160,34+21,34+21+16,52,8
dc.w 160,176,34+21,34+21+16,54,8
dc.w 176,192,34+21,34+21+16,56,8
dc.w 192,208,34+21,34+21+16,58,8
dc.w 208,224,34+21,34+21+16,60,8
dc.w 224,240,34+21,34+21+16,62,8
dc.w 240,256,34+21,34+21+16,64,8
dc.w 256,272,34+21,34+21+16,66,8

dc.w -2

;320
fl1:dc.l 0,2000,4000,8000,18000,35000,70000,125000,250000,500000
dc.l 750000,1000000,1250000,1500000,1750000,2000000,2250000
dc.l 2500000,2750000,3000000
ml1:dc.l 0,2500,5000,10000,22500,40000,60000,90000,135000,250000
dc.l 375000,750000,1125000,1500000,1875000,2250000,2625000
dc.l 3000000,3375000,3750000
th1:dc.l 0,1250,2500,5000,10000,20000,42500,70000,1100007,1600007
dc.l 2200006,440000,660000,880000,1100000,1320000,1540000
dc.l 1760000,1980000,2200000
rn1:dc.l 0,2250,4500,10000,20000,40000,90000,150000,225000,325000
dc.l 650000,975000,1300000,1600000,1900000,2200000,2500000
dc.l 2800000,3100000,3400000
blk.b 32
dc.b %11100000,%11100001,%00000111,%10000111,%11100010,%11100011
dc.b %01000111,%11000111
blk.b 8
dc.b %11100100,%11100101,%00100111,%10100111,%11100110,%11100111
dc.b %01100111,%11100111
blk.b 40
dc.b %11101000,%11101001,%00010111,%10010111,%11101010,%11101011
dc.b %01010111,%11010111
blk.b 8
dc.b %11101100,%11101101,%00110111,%10110111,%11101110,%11101111
dc.b %01110111,%11110111
; 80
fnl1:dc.b 20,15,15,10,10,10,10,10,10,10,8,8,8,8,8,8,8,8,8,8
dc.b 10,10,8,8,6,6,6,4,4,4,3,3,3,3,2,2,2,2,2,2
dc.b 12,12,10,8,8,8,8,7,7,7,6,6,6,4,4,4,4,3,3,2
dc.b 18,16,16,14,12,10,10,10,10,8,8,8,8,6,6,6,6,6,4,4

;80
raabel:dc.b 0,-32, 0,32, 0,1, 0,-1
dc.b 4,-64, 4,64, 4,2, 4,-2
dc.b 4,-33, 4,33, 4,31, 4,-31
dc.b 8,-96, 8,96, 8,-3, 8,3
dc.b 8,-34, 8,-30, 8,30, 8,34
dc.b 8,-63, 8,-65, 8,63, 8,65
dc.b 12,-128, 12,128, 12,-4, 12,4
dc.b 12,-97, 12,-95, 12,97, 12,95
dc.b 12,-66, 12,-62, 12,66, 12,62
dc.b 12,-29, 12,-35, 12,29, 12,35
blk.b 8
dc.b %11110000,%11110001,%00001111,%10001111,%11110010,%11110011
dc.b %01001111,%11001111
blk.b 8
dc.b %11110100,%11110101,%00101111,%10101111,%11110110,%11110111
dc.b %01101111,%11101111
cursordats1: blk.b 24,0
khaired:dc.b 1,1,0,0
	dc.b 1,0,1,0
	dc.b 0,0,1,1
	dc.b 0,1,0,1
dc.b %11111000,%11111001,%00011111,%10011111,%11111010,%11111011
dc.b %01011111,%11011111
blk.b 8,0
dc.b %11111100,%11111101,%00111111,%10111111,%11111110,%11111111
dc.b %01111111,%11111111

rock4:	blk.b 240,0
rock4b:	blk.b 240,0
rock5:	blk.b 240,0
rock5b:	blk.b 240,0
rock6:	blk.b 240,0
rock6b:	blk.b 240,0
rock7:	blk.b 240,0
rock7b:	blk.b 240,0
pnorth:	blk.b 72,0
peast:	blk.b 72,0
psouth:	blk.b 72,0
pwest:	blk.b 72,0
plattedout:blk.b 288,0

crea1info:
dc.l cop1,cop2,cop3,cop4,cop5,cop6,cop7,cop8,cop9
dc.l cop10,cop11,cop12,cop13

dc.l thin0
thinginfo1:
dc.l thin1,thin2,thin3,thin4,thin5,thin6,thin7,thin8,thin9
dc.l thin10,thin11,thin12,thin13

dc.l fhin0
thinginfo3:
dc.l fhin1,fhin2,fhin3,fhin4,fhin5,fhin6,fhin7,fhin8,thin9
dc.l thin10,thin11,thin12,thin13

dc.l chin0
thinginfo2:
dc.l chin1,chin2,chin3,chin4,chin5,chin6,chin7,chin8,chin9
dc.l chin10,chin11,chin12,chin13

line1:dc.b 1,2,1,1,1,1,1,1,1,1,1,1,1,0,1,1
line2:dc.b 0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0
line3:dc.b -1,-1,0,-1,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,0
line4:dc.b -1,-2,-2,-1,-2,-2,-1,-1,-2,-1,-2,-1,-1,-1,-1,-1

plattebout:blk.b 384,0

bb1:	blk.b 62,0







coplist:
dc.w diwstrt
dc.w $2a81
dc.w diwstop,$2dc0
dc.w bplcon1,0
dc.w intreq,$a000
dc.w $0901,$fffe
dc.w intreq,$0010
dc.w $1501,$fffe

dc.w color1
cc1:dc.w 0
dc.w color2
dc.w 0
dc.w color3
dc.w 0
dc.w color4
dc.w 0
dc.w color5
dc.w 0
dc.w color6
dc.w 0
dc.w color7
dc.w 0
dc.w color8
dc.w 0
dc.w color9
dc.w 0
dc.w color10
dc.w 0
dc.w color11
dc.w 0
dc.w color12
dc.w 0
dc.w color13
dc.w 0
dc.w color14
dc.w 0
dc.w color15
dc.w 0
dc.w color16
dc.w 0
dc.w color17
dc.w 0
dc.w color18
dc.w 0
dc.w color19
dc.w 0
dc.w color20
dc.w 0
dc.w color21
dc.w 0
dc.w color22
dc.w 0
dc.w color23
dc.w 0
dc.w color24
dc.w 0
dc.w color25
dc.w 0
dc.w color26
dc.w 0
dc.w color27
dc.w 0
dc.w color28
dc.w 0
dc.w color29
dc.w 0
dc.w color30
dc.w $ccc
dc.w color31
dc.w 0

dc.w bpl1pth
pt1h:dc.w $0000
dc.w bpl2pth
pt2h:dc.w $0000
dc.w bpl3pth
pt3h:dc.w $0000
dc.w bpl4pth
pt4h:dc.w $0000
dc.w bpl5pth
pt5h:dc.w $0000
dc.w bpl6pth
pt6h:dc.w $0000
dc.w bpl6ptl
pt6l:dc.w $0000
dc.w bpl5ptl
pt5l:dc.w $0000
dc.w bpl4ptl
pt4l:dc.w $0000
dc.w bpl3ptl
pt3l:dc.w $0000
dc.w bpl2ptl
pt2l:dc.w $0000
dc.w bpl1ptl
pt1l:dc.w $0000

dc.w spr0pth
sppt0h:dc.w 0
dc.w spr0ptl
sppt0l:dc.w 0
dc.w spr1pth
sppt1h:dc.w 0
dc.w spr2pth
sppt2h:dc.w 0
dc.w spr3pth
sppt3h:dc.w 0
dc.w spr4pth
sppt4h:dc.w 0
dc.w spr5pth
sppt5h:dc.w 0
dc.w spr6pth
sppt6h:dc.w 0
dc.w spr7pth
sppt7h:dc.w 0
dc.w spr7ptl
sppt7l:dc.w 0
dc.w spr6ptl
sppt6l:dc.w 0
dc.w spr5ptl
sppt5l:dc.w 0
dc.w spr4ptl
sppt4l:dc.w 0
dc.w spr3ptl
sppt3l:dc.w 0
dc.w spr2ptl
sppt2l:dc.w 0
dc.w spr1ptl
sppt1l:dc.w 0

dc.w bplcon0
moped:dc.w %0110001000000000
dc.w ddfstrt,$38
dc.w ddfstop,$d0

dc.w $aa01,$fffe
dc.w intreq,$8010

dc.w cop2lc
cophigh:dc.w 0
dc.w cop2lc+2
coplow:dc.w 0

dc.w $da01,$fffe
dc.w color1
mopo2:dc.w 0
dc.w color2
mopo1:dc.w 0
dc.w color3
mopo0:dc.w 0

dc.w $e201,$fffe
dc.w ddfstrt,$3c
dc.w ddfstop,$d4
dc.w bplcon0,%1001001000000000
dc.w color1,$fff
dc.w bpl1ptl
cpt1l:dc.w $0000
dc.w bpl1pth
cpt1h:dc.w $0000

dc.w $e301,$fffe
luuppikaks:
dc.w $ff3f,$80fe
dc.w color1
farbe1:dc.w $000
dc.w $ff5f,$80fe
dc.w color1
farbe2:dc.w $000
dc.w $ff83,$80fe
dc.w color1
farbe3:dc.w $000
dc.w $ffa7,$80fe
dc.w color1
farbe4:dc.w $000
dc.w $ffcb,$80fe
dc.w color1
farbe5:dc.w $000
dc.w $ffe1,$80fe

dc.w $ec01,$ff01
dc.w copjmp2,0

dc.w ddfstrt,$38
dc.w color1,0
dc.w color26
dc.w $a22
dc.w color27
dc.w $cc0
dc.w color31
dc.w $2b2

dc.w $ecd9,$fffe
dc.w bplcon0,%0110001000000000

dc.w bpl1ptl
bpt1l:dc.w $0000
dc.w bpl1pth
bpt1h:dc.w $0000
dc.w bpl2ptl
bpt2l:dc.w $0000
dc.w bpl2pth
bpt2h:dc.w $0000
dc.w bpl3ptl
bpt3l:dc.w $0000
dc.w bpl3pth
bpt3h:dc.w $0000
dc.w bpl4pth
bpt4h:dc.w $0000
dc.w bpl4ptl
bpt4l:dc.w $0000
dc.w bpl5pth
bpt5h:dc.w $0000
dc.w bpl5ptl
bpt5l:dc.w $0000
dc.w bpl6ptl
bpt6l:dc.w $0000
dc.w bpl6pth
bpt6h:dc.w $0000
dc.w ddfstop,$d0

dc.w color1
dd1:dc.w $222
dc.w color2
dc.w $444
dc.w color3
dc.w $666
dc.w color4
dc.w $888
dc.w color5
dc.w $aaa
dc.w color6
dc.w $ccc
dc.w color7
dc.w $eee
dc.w color8
dc.w $000
dc.w color9
dc.w $000
dc.w color10
dc.w $000
dc.w color11
dc.w $000
dc.w color12
dc.w $000
dc.w color13
dc.w $000
dc.w color14
dc.w $000
dc.w color15
dc.w $000
dc.w color16
dc.w $000
dc.w color17
dc.w $222
dc.w color18
dc.w $444
dc.w color19
dc.w $666
dc.w color20
dc.w $888
dc.w color21
dc.w $aaa
dc.w color22
dc.w $ccc
dc.w color23
dc.w $eee
dc.w color24
dc.w $000
dc.w color25
dc.w $000

dc.w $ffe1,$fffe

dc.w $07e1,$fffe
dc.w spr1ctl,$0
dc.w spr1pos,$0
dc.w spr1data,0
dc.w spr1datb,0
dc.w color17
hik1:dc.w $000
dc.w color18
hik2:dc.w $ccc
dc.w color19
hik3:dc.w $000
dc.w ddfstrt,$3c
dc.w ddfstop,$d4
dc.w bplcon0,%1001001000000000
dc.w color1,$def
dc.w color26
ckakkos:dc.w $cc0
dc.w color21
dc.w $aaf
dc.w color23
dc.w $880
dc.w color25
dc.w $aaf
dc.w color30
bnelos:dc.w $2a2
dc.w color22
bykkos:dc.w $06c
dc.w color27
dc.w $880
dc.w color29
dc.w $aaf
dc.w color31
dc.w $880

dc.w cop2lc
cophigh2:dc.w 0
dc.w cop2lc+2
coplow2:dc.w 0



dc.w $0b01,$fffe
pper:
dc.w color26
bkolmos:dc.w $a22
dc.w $1801,$ffff
dc.w color26
bkakkos:dc.w $cc0

dc.w $003f,$80fe
dc.w color1
farbe1b:dc.w $fff
dc.w $005f,$80fe
dc.w color1,$fff
dc.w color1
farbe2b:dc.w $fff
dc.w $0083,$80fe
dc.w color1,$fff
dc.w color1
farbe3b:dc.w $fff
dc.w $00a7,$80fe
dc.w color1,$fff
dc.w color1
farbe4b:dc.w $fff
dc.w $00cb,$80fe
dc.w color1,$fff
dc.w color1
farbe5b:dc.w $fff

dc.w $00e1,$80fe

dc.w $2d01,$ffff
dc.w copjmp2,$000

dc.w $ffff,$fffe

placeobj:movem.l d0-d7/a0-a6,-(sp)
lea objinho-18,a6

lsl.w #1,d0
add.w d0,a6
lsl.w #3,d0
add.w d0,a6
move.l a6,a5
move.b #3,flagoff
subq.w #1,d1
move.w d1,flagon
st dangersone
kul:
st danger
move.l a5,a6
addq.w #6,a5
move.w (a6)+,altgel
move.l (a6)+,d0
beq.L jaa
move.l d0,a6

moveq #0,d0
ili:tst.w d1
beq.s ovel
move.b (a6),d0
add.w d0,a6

subq.w #1,d1
bra.s ili


ovel:
addq.w #1,a6
clr.l phew
clr.l ei
clr.l supermask
clr.l dokurobo
clr.w heightny

moveq #0,d7
move.b (a6)+,d7
bclr #7,d7
sne yela
bclr #6,d7
sne ei
bclr #5,d7
sne id0
bclr #4,d7
beq.s yal
bsr.L textwrite
yal:
subq.w #1,d7
bmi.L huu

tst.b yela
bne.s lso

move.b (a6)+,huikka
btst #7,huikka
beq.s lso
move.b (a6)+,d0
move.w d0,dokurobo
lsl.w #6,d0
lsl.w #6,d0
move.w d0,addix
st flaggy
btst #7,dokurobo+1
beq.s olo
moveq #0,d3
move.b (a6)+,d0
move.b (a6)+,d3
lsl.w #8,d0
or.w d0,d3
move.w d3,supermask
moveq #0,d0
moveq #0,d3
st flaggy2
olo:btst #6,dokurobo+1
beq.s lso
move.b (a6)+,spec
lso:
moveq #0,d2
move.b huikka(pc),d2
tst.b yela
beq.s tequ
move.b (a6)+,d2
btst #7,d2
	beq.s tequ
	moveq #0,d0
	move.b (a6)+,d0
	move.w d0,dokurobo
	lsl.w #6,d0
	lsl.w #6,d0
	move.w d0,addix
	btst #7,dokurobo+1
	beq.s vodk
	moveq #0,d0
	move.b (a6)+,d3
	move.b (a6)+,d0
	lsl.w #8,d3
	or.w d3,d0
	move.w d0,supermask
vodk:
	clr.b spec
	btst #6,dokurobo+1
	beq.s tequ
	move.b (a6)+,spec

tequ:
	moveq #0,d0
	moveq #0,d1
	moveq #0,d3
	tst.b ei
	beq.s gelw
	move.b (a6)+,phew
gelw:	tst.b id0
	beq.s sake
	move.b (a6)+,phewwi
sake:	move.b (a6)+,d3
	lea altgel(pc),a0
	move.w (a0),d0
	beq.s koht
	bclr #14,d0
	beq.s did
	btst #2,chas
	beq.s goog
	tst.w d0
	bne.L lok
	bra.s did
goog:
	tst.w d0
	beq.L lok
	moveq #0,d0
did:	bclr #15,d0
	beq.s nau
	add.w d0,d3
	move.w d3,d0
nau:	tst.w d0
	beq.s koht
	move.w d0,d3
koht:
	move.b (a6)+,d0
	move.b (a6)+,d1
	lea gel1-20,a0
	lsl.w #2,d3
	add.w d3,a0
	lsl.w #2,d3
	add.w d3,a0
	move.w (a0),-(sp)
	move.w 18(a0),-(sp)
	move.b phew(pc),d4
	beq.s pheq
	and.w #$f,d4
	move.w d4,(a0)
	move.b phew(pc),d4
	lsr.w #4,d4
	and.w #$f,d4
	move.w d4,18(a0)
pheq:	moveq #0,d4
	move.b phewwi(pc),d4
	beq.s pheh
	move.w d4,heightny
pheh:	movem.l a0/a5-a6/d6-d7,-(sp)
	bsr.L dothejob
	clr.w heightny
	tst.b flaggy
	bne.s tti
	clr.l dokurobo
tti:	tst.b flaggy2
	bne.s ti2
	clr.w supermask
ti2:	movem.l (sp)+,a0/a5-a6/d6-d7
	move.w (sp)+,18(a0)
	move.w (sp)+,(a0)
lok:	dbf d7,lso

	clr.l dokurobo
	clr.w supermask

huu:	clr.w danger
	move.w flagon(pc),d1
	subq.b #1,flagoff
	bne.L kul

jaa:
	clr.w danger
	clr.b dangersone
	movem.l (sp)+,d0-d7/a0-a6
kolut:	st flagon
	rts

altgel:	dc.w 0
flagon:	dc.w $ffff
seonmenoo:dc.b 0
flagoff:dc.b 0
lasta:	dc.b 0
	dc.b 0
; a0 - pointer
; d0 - x
; d1 - y

i2t:	clr.b dangersone
	tst.b runxtext
	bne.S fix
	btst #0,raimo+1
	beq.s fix
	bsr.L turn
fix:	clr.b spec
	bra.L fixit2

normaltext:
	st runxtext
	st dangersone
	clr.b spec
	cmp.w #$fffe,d3
	beq.s slee
	clr.b runxtext
	move.b #%11000,spec
	btst #0,raimo+1
	beq.s slee
	bsr.L turn
slee:	move.l a0,a6
	move.w d2,d7
	moveq #0,d2
	moveq #-1,d6
	clr.w lasta

caskin:	move.b (a6)+,d5
	beq.S i2t
	ext.w d5
	cmp.b #$ff,d5
	beq.s caskin



	cmp.b #"^",d5
	beq.s qusto
	cmp.b #"*",d5
	bne.s custoa
qusto:	subq.w #1,a6
	addq.b #1,lasta
	move.l talkcrea,a3
	cmp.b #1,lasta
	bne.s cos
	cmp.b #"^",d5
	bne.s pusta
	move.b 100(a3),d5
	bclr #5,d5
	bra.s custo
pusta:	move.b 100(a3),d5
	bne.s custo
cos:	cmp.b #2,lasta
	bne.s cos3
	move.b 101(a3),d5
	bne.s custo
cos3:	cmp.b #3,lasta
	bne.s sabin
	move.b 102(a3),d5
	bne.s custo
sabin:	addq.w #1,a6
	clr.w lasta
	bra.s caskin




custoa:	cmp.b #"|",d5
	bne.s custo
	subq.w #1,a6
	addq.b #1,lasta+1
	moveq #0,d4
	move.b lasta+1(pc),d4
	subq.w #1,d4
	move.w items,d5
	beq.s sabin
	lea thingplaces-24,a3
	lsl.w #3,d5
	add.w d5,a3
	add.w d5,a3
	add.w d5,a3
	move.l 12(a3),a3
	lea 50(a3),a3
	move.b 0(a3,d4.w),d5
	beq.s sabin
custi:	bset #5,d5
custo:	cmp.b #"A",d5
	blt.s rav1
	cmp.b #"M",d5
	bgt.s rav1
	sub.b #'A',d5
	lea gel1+280,a0
	lsl.w #1,d5
	lea aaakey(pc),a5
	add.w d5,a5
	bra.L schaz
rav1:	cmp.b #'N',d5
	blt.s sablar
	cmp.b #90,d5
	bgt.s sablar
	lea gel1+500,a0
	sub.b #'N',d5
	lsl.w #1,d5
	lea nnnkey(pc),a5
	add.w d5,a5
	bra.L schaz
sablar:	cmp.b #'a',d5
	blt.s rave1
	cmp.b #'q',d5
	bgt.s rave1
	sub.b #'a',d5
	lea gel1+780,a0
	lsl.w #1,d5
	lea aaaakey(pc),a5
	add.w d5,a5
	bra.L schaz
rave1:	cmp.b #'r',d5
	blt.s blq
	cmp.b #122,d5
	bgt.s blq
	lea gel1+940,a0
	sub.b #'r',d5
	lsl.w #1,d5
	lea rrrrkey(pc),a5
	add.w d5,a5
	bra.L schaz
blq:	cmp.b #"0",d5
	blt.s rav3
	cmp.b #"9",d5
	bgt.s rav3
	sub.b #48,d5
	lsl.w #1,d5
	lea gel1+960,a0
	lea kkey0(pc),a5
	add.w d5,a5
	bra.L schaz
rav3:	lea abbkey(pc),a5
	lea gel1+940,a0

	cmp.b #"?",d5
	bne.s rav5
	lea aabkey(pc),a5
rav5:
	cmp.b #"@",d5
	bne.s rava
	lea akbkey(pc),a5
rava:
	cmp.b #'"',d5
	bne.s rav6
	lea aebkey(pc),a5
rav6:
	cmp.b #".",d5
	bne.s rav8
	lea agbkey(pc),a5
rav8:
	cmp.b #",",d5
	bne.s rav9
	lea ahbkey(pc),a5
rav9:
	cmp.b #"-",d5
	bne.s nau5
	lea afbkey(pc),a5
nau5:
	cmp.b #":",d5
	bne.s nau7
	lea aibkey(pc),a5
nau7:
	cmp.b #"$",d5
	bne.s nau8
	lea acbkey(pc),a5
nau8:
	cmp.b #"#",d5
	beq.s gq9
	cmp.b #"'",d5
	bne.s nau9
gq9:	lea ajbkey(pc),a5
nau9:
	cmp.b #"(",d5
	bne.s nau10
	lea popen(pc),a5
	lea gel1+960,a0
nau10:
	cmp.b #")",d5
	bne.s nau11
	lea pclose(pc),a5
	lea gel1+960,a0
nau11:
	cmp.b #"/",d5
	bne.s nau12
	lea bslash(pc),a5
	lea gel1+960,a0
nau12:
	cmp.b #"+",d5
	bne.s nau13
	lea plussa(pc),a5
	lea gel1+960,a0
nau13:
	cmp.b #" ",d5
	bne.s jova
	lea spage(pc),a5
	lea gel1+960,a0
jova:	bra.s schaz

schaz:	cmp.b #16,d7
	blt.s haik
	sub.b #16,d7
	addq.w #1,d0
haik:
	move.w d7,dokurobo
	move.w d7,d3
	lsl.w #6,d3
	lsl.w #6,d3
	move.w d3,addix

	moveq #0,d5
	move.b (a5)+,d5
	moveq #0,d4
	move.b (a5),d4
	add.b d4,d7
	subq.w #1,d4
	move.w #%1000000000000000,d3
	asr.w d4,d3
	move.w d3,supermask

	move.b runxtext(pc),d3
	bne.s hwt
	move.w 2(a0),-(sp)
	move.w #1,2(a0)
hwt:	move.w d5,18(a0)

	movem.l d0-d3/d6-d7/a4/a6,-(sp)
	bsr.L dothejob
	movem.l (sp)+,d0-d3/d6-d7/a4/a6
	clr.w supermask

	move.b runxtext(pc),d3
	bne.s ghq
	move.w (sp)+,2(a0)
ghq:	bra.L caskin

aaakey:	dc.b $0,8,$1,8,$2,8,$3,8,$4,8,$5,8,$6,8,$7,8,$8,8,$9,8,$a,8
	dc.b $b,8,$c,8
nnnkey:	dc.b $0,8,$1,8,$2,8,$3,8,$4,8,$5,8,$6,8,$7,8,$8,8,$9,8,$a,8
	dc.b $b,8,$c,8
aaaakey:dc.b $0,8,$1,8,$2,8,$3,8,$4,8,$5,8,$6,8,$7,8,$8,5,$9,6,$a,8
	dc.b $b,5,$c,13,$d,8,$e,8,$f,8,$10,8
rrrrkey:dc.b $0,8,$1,8,$2,8,$3,8,$5,8,$4,12,$6,8,$7,8,$8,8
aabkey:	dc.b $9,8 ;?
abbkey:	dc.b $a,8 ;!
acbkey:	dc.b $b,8 ;$
aebkey:	dc.b $c,8 ;"
afbkey:	dc.b $d,8 ;-
agbkey:	dc.b $e,8 ;.
ahbkey:	dc.b $f,8 ;,
aibkey:	dc.b $10,8 ;:
ajbkey:	dc.b $11,8 ;&
akbkey:	dc.b $12,8 ;@

kkey0:	dc.b $0,8,$1,8,$2,8,$3,8,$4,8,$5,8,$6,8,$7,8,$8,8,$9,8
popen:	dc.b $a,8 ;(
pclose:	dc.b $b,8 ;)
bslash:	dc.b $c,8 ;/
plussa:	dc.b $d,8 ;+
spage:	dc.b $e,8

textwrite:
	st danger
	bsr.L bwait
	movem.l d6-d7/a5/a1-a2,-(sp)
	move.w flagon(pc),d4
	bmi.L normaltext
	cmp.w #21,d4
	bge.L fixit2
textwritez:
	move.w flagon(pc),d4
	clr.w vinbar
	lea oliktable(pc),a0
	lsl.w #1,d4
	add.w d4,a0
	lsl.w #2,d4
	add.w d4,a0
	moveq #0,d0
	moveq #0,d1
	moveq #0,d2
	moveq #0,d3
	move.b (a0)+,d0 ;x
	move.b (a0)+,d2 ;cond
	move.b (a0)+,d7	;xtend
	move.b (a0)+,d6	;mode
	move.b (a0)+,d3	;lenght

	move.w (a6)+,d4 ;lineno
	move.l (a6)+,a5 ;pointer

	move.l a6,-(sp)
	move.l a5,a6
	move.b (a0)+,d1	;add
	add.w d1,a6

	btst #7,d4
	sne seonmenoo
	bclr #7,d4

	cmp.b #1,d4
	bne.s tgr
	move.l #line1,lip
	move.b (a0),d1
tgr:
	cmp.b #2,d4
	bne.s tgr1
	move.l #line2,lip
	move.b 1(a0),d1
tgr1:
	cmp.b #3,d4
	bne.s tgr2
	move.l #line3,lip
	move.b 2(a0),d1
tgr2:
	cmp.b #4,d4
	bne.s tgr3
	move.l #line4,lip
	move.b 3(a0),d1
tgr3:

	bclr #3,d6
	sne vinbar+1

	move.w d1,marmelade
	cmp.b #3,d6
	bne.s ooe

	move.l #siz1,tbl

ooe:
	cmp.b #4,d6
	bne.s eigw

	move.l #siz2,tbl

eigw:
	cmp.b #5,d6
	bne.s jooc

	move.l #siz3,tbl
	st vinbar

jooc:
	cmp.b #6,d6
	bne.s joon

	move.l #siz5,tbl
	moveq #7,d5
	move.l lip(pc),a0
	moveq #0,d4
nakamoto:
	add.b (a0)+,d4
	dbf d5,nakamoto
	ext.w d4
	move.w d4,tahko
	asr.w #1,d4
	add.w d4,d1
	move.l a0,lip
	tst.b vinbar+1
	bne.s lett
joon:
	cmp.b #7,d6
	bne.s eioota

	move.l #siz4,tbl
eioota:
	tst.b vinbar+1
	beq.S zwz
	moveq #-1,d5
hlaa:
	addq.w #1,d5
	tst.b (a6)+
	bne.s hlaa
	subq.w #1,a6
	cmp.w d5,d3
	ble.s lett
	move.w d5,d3
lett:
	addq.l #2,tbl

	tst.b vinbar
	beq.s gopher
	or.w #$f,d7
	bra.s zwz
gopher:	move.w d3,-(sp)
	move.w d7,d5
	and.w #$f,d5
	subq.w #2,d3
	move.l tbl(pc),a0
sinus:	addq.w #2,a0
	add.w (a0)+,d5
	dbf d3,sinus
	move.w d5,a0
	and.w #$f,d5
	and.w #$fff0,d7
	or.w d5,d7
	move.w a0,d5
	lsr.w #4,d5
	add.w d5,d0
	move.w (sp)+,d3

zwz:
	tst.l tbl
	beq.s nm

	move.l tbl(pc),a0
	tst.b vinbar+1
	bne.s kraitti
	move.w (a0)+,normalx
	move.w (a0)+,currysize
	bra.s pferd
kraitti:move.w (a0)+,currysize
	move.w (a0)+,normalx
pferd:	tst.b vinbar
	beq.s begu
	subq.l #2,tbl
	move.w #$1,normalx
begu:	addq.l #4,tbl

Nm:	subq.w #1,d3
	bmi.L fixit

	tst.b vinbar+1
	beq.s gaskin
	move.b -(a6),d5
	beq.L fixit
	bra.s gainfull
gaskin:	move.b (a6)+,d5
	beq.L fixit
gainfull:cmp.b #" ",d5
	bne.s gghh
	bsr.L updatez
	bra.s zwz
gghh:	cmp.w #$1,normalx
	seq spec
	and.b #2,spec

	cmp.b #"a",d5
	blt.s va1
	cmp.b #"p",d5
	bgt.s va1
	ext.w d5
	sub.w #97,d5
	lsl.w #1,d5
	lea akey(pc),a5
	add.w d5,a5
	bsr.L gotscha
va1:	cmp.b #"q",d5
	blt.s va2
	cmp.b #"z",d5
	bgt.s va2
	ext.w d5
	sub.w #113,d5
	lsl.w #1,d5
	lea qkey(pc),a5
	add.w d5,a5
	bsr.S gotscha
va2:	cmp.b #"0",d5
	blt.s va3
	cmp.b #"9",d5
	bgt.s va3
	ext.w d5
	sub.w #48,d5
	lsl.w #1,d5
	lea key0(pc),a5
	add.w d5,a5
	bsr.s gotscha
va3:	cmp.b #"!",d5
	bne.s va4
	lea aakey(pc),a5
	bsr.s gotscha
va4:
	cmp.b #"?",d5
	bne.S va5
	lea abkey(pc),a5
	bsr.s gotscha
va5:
	cmp.b #'"',d5
	bne.s va6
	lea ackey(pc),a5
	bsr.s gotscha
va6:
	cmp.b #"-",d5
	bne.s va7
	lea adkey(pc),a5
	bsr.s gotscha
va7:
	cmp.b #".",d5
	bne.s va8
	lea aekey(pc),a5
	bsr.s gotscha
va8:
	cmp.b #",",d5
	bne.s va9
	lea afkey(pc),a5
	bsr.s gotscha
va9:
	bra.L zwz

gotscha:moveq #0,d5
	move.b (a5)+,d5
	lea gel1-20,a0
	lsl.w #2,d5
	add.w d5,a0
	lsl.w #2,d5
	add.w d5,a0

	move.w d7,dokurobo
	move.w d7,d5
	lsl.w #6,d5
	lsl.w #6,d5
	move.w d5,addix

	move.w (a0),-(sp)
	move.w 18(a0),-(sp)

	move.b (a5)+,d5
	move.w d5,d4
	and.w #$f,d4
	move.w d4,(a0)
	move.b d5,d4
	lsr.w #4,d4
	and.w #$f,d4
	move.w d4,18(a0)

	movem.l d0-d3/d6-d7/a6,-(sp)
	bsr.L dothejob
	movem.l (sp)+,d0-d3/d6-d7/a6

	move.w (sp)+,18(a0)
	move.w (sp)+,(a0)

updatez:
	moveq #0,d5
	tst.b d6
	bne.s derdm
	addq.w #1,d0
	rts
derdm:	cmp.b #1,d6
	bne.s dergm
	bclr #3,d7
	beq.s derhm
	addq.w #1,d0
	rts
derhm:	bset #3,d7
	rts

dergm:	cmp.b #2,d6
	bne.s abrams
	btst #2,d7
	beq.s dertm
	btst #3,d7
	beq.s dertm
	addq.w #1,d0
	and.w #%11110011,d7
	rts
dertm:	btst #2,d7
	beq.s dermm
	btst #3,d7
	bne.s dermm
	eor.w #%1100,d7
	rts
dermm:	bset #2,d7
	rts

tahko:dc.w 0
marmelade:dc.w 0
vinbar:	dc.w 0

abrams:	move.l lip(pc),a0

	move.b (a0)+,d1
	move.l a0,lip
	ext.w d1
	add.w tahko(pc),d1
	move.w d1,tahko

	cmp.b #4,d6
	beq.s jkl
	cmp.b #6,d6
	bne.s jkll
jkl:	asr.w #1,d1
jkll:	cmp.b #5,d6
	beq.s jjkl
	cmp.b #7,d6
	bne.s flippi
jjkl:	asr.w #2,d1
flippi:
	add.w marmelade(pc),d1

	move.w d7,d5
	tst.b vinbar+1
	bne.s marakesh
	and.w #$f,d5
	add.w normalx(pc),d5
	btst #4,d5
	beq.s creator
	and.w #$f,d5
	addq.w #1,d0
creator:and.w #$fff0,d7
	or.w d5,d7
	moveq #0,d5
	rts
marakesh:
	and.w #$f,d5
	sub.w normalx(pc),d5
	btst #4,d5
	beq.s cret
	subq.w #1,d0
	and.w #$f,d5
cret:
	and.w #$fff0,d7
	or.w d5,d7
	moveq #0,d5
	rts


fixit:	clr.w tahko
	move.l (sp)+,a6
	tst.b seonmenoo
	bne.L textwritez

fixit2:	clr.w danger
	clr.l dokurobo
	clr.w heightny
	clr.w tahko

	clr.l currysize
	clr.l tbl
	clr.l lip
	movem.l (sp)+,d6-d7/a5/a1-a2
	bra.L kolut

tbl: dc.l 0
currysize: dc.w 0
normalx: dc.w 0
lip: dc.l 0

;	dc.b 0 ;x
;	dc.b %10100 ;cond
;	dc.b %10000 ;ext
;	dc.b $1 ;mode
;	dc.b $ff ;lenght
;	dc.b $6	;add
;	dc.b 58
;	dc.b 70
;	dc.b 85
;	dc.b 98

akey:	dc.b 12,$01,12,$11,12,$21,12,$31,12,$41,12,$51,12,$61,12,$71
	dc.b 12,$81,12,$91,12,$a1,12,$b1,12,$c1,12,$d1,12,$e1,12,$f1
qkey:	dc.b 13,$01,13,$11,13,$21,13,$31,13,$41,13,$51,13,$61,13,$71
	dc.b 13,$81,13,$91
aakey:	dc.b 13,$a1
abkey:	dc.b 13,$b1
ackey:	dc.b 13,$c1
adkey:	dc.b 13,$d1
aekey:	dc.b 13,$e1
afkey:	dc.b 13,$f1

key0:	dc.b 13,$91,13,$01,13,$11,13,$21,13,$31,13,$41,13,$51,13,$61
	dc.b 13,$71,13,$81

even
forx:	dc.w 0

copras:	move.w #$4000,intena+custom

urea:	move.w vhposr+custom,d0
	lsr.w #8,d0
	cmp.w #$28,d0
	beq.s urea
	cmp.w #$29,d0
	beq.s urea

	bclr #0,teega
	beq.s jayhk
	st teega+1
jayhk:
	tst.b minev
	beq.s venim
	st minev+1
venim:
	move.l ras1(pc),has1

	move.l ras2(pc),has2

	move.l ras3(pc),has3

	move.l ras4(pc),has4

	move.l ras5(pc),has5

	move.l ras6(pc),has6

	tst.b talk
	bne.s hall

	clr.b clearok

turn2:	addq.w #1,raimo

turn:	movem.l a0-a1/d0-d2,-(sp)
	lea ras1(pc),a0
	lea bras1(pc),a1
	moveq #5,d2
keto:
	move.l (a0),d0
	move.l (a1),d1
	move.l d1,(a0)+
	move.l d0,(a1)+
	dbf d2,keto

	movem.l (sp)+,a0-a1/d0-d2
jollk:	move.w #$c000,intena+custom
	rts

hall:	lea clrscr,a0
	btst #0,(a0)
	bne.s jollk
	bclr #1,(a0)
	bra.s jollk

placecrea:
	movem.l d0-d7/a0-a6,-(sp)
	move.l d0,a6

	move.l a6,a5 ;a5=cccpx
	move.l hymn(pc),a6 ;a6=creaxinfo

	move.b 23(a5),d7
	ext.w d7

	btst #7,18(a5)
	bne.s brutus
	add.w 20(a5),d7
	bra.s braun
brutus:	move.l 12(a5),a4
	add.w 34(a4),d7
braun:
	move.w d7,hiski

	lsl.w #2,d1
	subq.w #4,d1
	add.w d1,a6
	move.l (a6),a6 ; a6=copx
	tst.b (a6)+
	sne ruoska

	tst.w d3
	bne.s koei
	move.w alafemme(pc),d0
	bra.s dyddy
koei:
	cmp.w #1,d3
	bne.s kie
	move.w 4(a5),d0
dyddy:	lea ikenie(pc),a0
	clr.b (a0)
	btst #15,d0
	beq.s luone
	st (a0)
luone:	lea gel1-20,a0
	lsl.w #2,d0
	add.w d0,a0
	lsl.w #2,d0
	add.w d0,a0
	bra.s kid
kie:	cmp.w #2,d3
	bne.s gie
	move.w 6(a5),d0
	bra.s dyddy
gie:	move.w 8(a5),d0
	cmp.w #3,d3
	bne.s dyddy
	move.w 60(a5),d0
	bra.s dyddy

kid:	move.b ruoska(pc),d0
	beq.s skii
	add.w d2,a6
	add.w d2,a6
	add.w d2,a6
	bra.s skik
skii:	add.w d2,a6
	add.w d2,a6
	add.w d2,a6
	add.w d2,a6
	add.w d2,a6

; a0=gelpt
; a6=copxfinalpoint
; a5=cccpx
skik:	move.w (a0),raamot
	move.w 18(a0),tisbe

	move.b ruoska(pc),d0
	bne.s gile
	moveq #-1,d0
	cmp.b 3(a6),d0
	bne.s gaza
	cmp.b 4(a6),d0
	beq.s gile
gaza:	moveq #0,d0
	move.b 3(a6),d0
	move.w d0,(a0)
	move.b 4(a6),d0
	move.w d0,18(a0)

gile:
	tst.b (a6)
	bne.s lans
	tst.b 1(a6)
	beq.L juib2
lans:
	moveq #0,d0
	moveq #0,d1
	moveq #0,d2
	move.b (a6),d0
	move.b 1(a6),d1
	move.b 2(a6),d2
	btst #2,d2
	beq.s jeoi
	asr.w hiski
jeoi:	btst #3,d2
	beq.s jeoi2
	asr.w hiski
	asr.w hiski
jeoi2:	add.w hiski(pc),d1

	btst #6,18(a5)
	beq.s megg
	eor.w #2,d2
megg:
	tst.b ikenie
	beq.s juib
	eor.w #2,d2

	tst.w 18(a0)
	beq.s iams
	clr.w 18(a0)
	bra.s juib
iams:	move.w 6(a0),d7
	sub.w (a0),d7
	move.w d7,18(a0)

juib:	st dangersone

	moveq #0,d5
	move.b 22(a5),d5
	btst #4,d2
	beq.s pubbe
	move.w #16,dokurobo
	lsr.w #1,d5
pubbe:	btst #5,d2
	beq.s e77
	lsr.w #2,d5
	move.w #32,dokurobo
e77:
	bclr #7,d2
	beq.s hipg
	addq.w #8,d5
	st danger
hipg:
	lsl.w #6,d5
	lsl.w #6,d5
	move.w d5,addix
	clr.w heightny
	bsr.L dothejob ;= placegel prog
	clr.w addix
	clr.b danger
	clr.w dokurobo

juib2:	move.w raamot(pc),(a0)
	move.w tisbe(pc),18(a0)

	clr.b dangersone
	movem.l (sp)+,d0-d7/a0-a6
	rts

ikenie:	dc.w 0
raamot:	dc.w 0
tisbe:	dc.w 0
hiski:	dc.w 0

buffr:	dc.l buffer
plattemask:dc.l 0
kumpi:	dc.w 0
akseli:	dc.w 0

placeplatte:
	movem.l d1/d3-d5/d7/a1/a6,-(sp)
	lea plattemask(pc),a3
	move.l #platteout,(a3)
	clr.w seldom
	lea gleeglee(pc),a2
	clr.w (a2)
	move.l customm(pc),a4
	move.w d0,d7
	cmp.b #11,d7
	seq (a2)
	cmp.b #13,d7
	bne.s ala
	st (a2)
ala:
	subq.b #1,d7
	bne.s ine
	move.l #platte1aout,(a3)
ine:	subq.b #4,d7
	blt.s ine3
	move.l #plattebout,(a3)
ine3:	subq.b #5,d7
	blt.s ine4
	move.l #plattecout,(a3)
ine4:	subq.b #5,d7
	blt.s ine2
	move.l #plattedout,(a3)
ine2:
	move.w akseli(pc),d7
	btst #2,kumpi
	beq.s ito
	move.l a0,a1
	add.w d7,a1
	add.w d7,a1
	add.w d7,a1
	move.l a1,(a3)
ito:	clr.w flag
	lea dplaci1-18(pc),a6
	tst.w d0
	bpl.s ette
	st flag
	lea uplaci1-18(pc),a6
ette:
	lsl.w #1,d0
	add.w d0,a6
	lsl.w #3,d0
	add.w d0,a6

	bsr.L bwait
	moveq #-1,d0
	move.l d0,bltafwm(a4)

	btst #1,kumpi
	beq.s hampi
	move.l buffr(pc),a0
	clr.l taas
	move.w #1152,d0
prut:	clr.l (a0)+
	dbf d0,prut
	move.l buffr(pc),a0
hampi:	move.w 16(a6),d2
	bne.s son
	move.w d7,6(a6)
	bra.L siellaon
son:	clr.l madelaan
	tst.w d2
	bpl.L kohta2
	st seldom
	moveq #9,d0
	moveq #8,d1
	moveq #16,d4
	moveq #3,d5
	moveq #%1110000,d2
	move.l buffr(pc),a1
	bsr.L burst
	add.w akseli(pc),a0
	add.w #288,a1
	bsr.L burst
	add.w akseli(pc),a0
	add.w #288,a1
	bsr.L burst
	btst #2,kumpi
	beq.s dongel
	add.w akseli(pc),a0
	add.w #288,a1
	bsr.L burst
	move.l #buffer+864,plattemask
dongel:	btst #1,kumpi
	bne.L siellaon
	move.l buffr(pc),a0
; +1
	btst #3,kumpi
	bne.L siellaon

	move.w d6,-(sp)
	move.w #$250,d6

	clr.w bltcon1(a4)
	clr.w bltamod(a4)
	clr.w bltbmod(a4)
	clr.w bltcmod(a4)
	clr.w bltdmod(a4)

	move.w #%001111010101,bltcon0(a4)

	move.l buffr(pc),bltcpt(a4)
	move.l buffr(pc),bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%111110011001,bltcon0(a4)

	move.l #buffer+576,bltapt(a4)
	move.l #buffer+288,bltbpt(a4)
	move.l buffr(pc),bltcpt(a4)
	move.l #buffer+288,bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%111111110001,bltcon0(a4)

	move.l #buffer+576,bltapt(a4)
	move.l #buffer+288,bltbpt(a4)
	move.l buffr(pc),bltcpt(a4)
	move.l #buffer+576,bltdpt(a4)
	move.w d6,bltsize(a4)

	move.w (sp)+,d6

	bra.L siellaon

kohta2:	moveq #2,d6
	btst #2,kumpi
	beq.s hukka
	moveq #3,d6
hukka:	moveq #48,d1

	move.l buffr(pc),a1
fed:	moveq #16,d0
	move.w d0,d4
	moveq #0,d5
	bsr.L burst
	add.w 6(a6),a1
	add.w akseli(pc),a0
	dbf d6,fed

	move.l buffr(pc),a0
; -1
	btst #4,d2
	beq.L vohla

	btst #2,kumpi
	beq.s hakka
	move.l #buffer+1152,plattemask
hakka:	move.w d6,-(sp)
	move.w #$608,d6
	clr.w bltcon1(a4)
	clr.w bltamod(a4)
	clr.w bltbmod(a4)
	clr.w bltcmod(a4)
	clr.w bltdmod(a4)

	move.w #%111101010100,bltcon0(a4)

	move.l #buffer+768,bltapt(a4)
	move.l #buffer+384,bltbpt(a4)
	move.l buffr(pc),bltcpt(a4)
	move.l buffr(pc),bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%011101100110,bltcon0(a4)

	move.l #buffer+384,bltbpt(a4)
	move.l buffr(pc),bltcpt(a4)
	move.l #buffer+384,bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%111101110000,bltcon0(a4)

	move.l #buffer+768,bltapt(a4)
	move.l #buffer+384,bltbpt(a4)
	move.l buffr(pc),bltcpt(a4)
	move.l #buffer+768,bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w (sp)+,d6

vohla:	btst #5,d2
	beq.L siellaon
;-2
	btst #2,kumpi
	beq.S hakke
	move.l #buffer+288,plattemask
hakke:	move.w d6,-(sp)
	move.w #$304,d6
	clr.w bltcon1(a4)
	clr.w bltamod(a4)
	clr.w bltbmod(a4)
	clr.w bltcmod(a4)
	clr.w bltdmod(a4)

	move.w #%111110101000,bltcon0(a4)

	move.l buffr(pc),bltcpt(a4)
	move.l #buffer+96,bltbpt(a4)
	move.l #buffer+192,bltapt(a4)
	move.l buffr(pc),bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%011101010100,bltcon0(a4)
	clr.w bltadat(a4)

	move.l #buffer+192,bltbpt(a4)
	move.l #buffer+96,bltcpt(a4)
	move.l #buffer+96,bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

	move.w #%011101100110,bltcon0(a4)
	clr.w bltadat(a4)

	move.l #buffer+192,bltbpt(a4)
	move.l #buffer+96,bltcpt(a4)
	move.l #buffer+192,bltdpt(a4)
	move.w d6,bltsize(a4)

	bsr.L bwait

juov:	move.w (sp)+,d6

siellaon:
	tst.l 12(a6)
	bne.L seem

	add.w 8(a6),a0
	move.w flag(pc),d0
	bne.L haam

	moveq #40,d0
	sub.w (a6),d0
	sub.w (a6),d0
	tst.w seldom
	beq.s stup
	add.w #40,d0
stup:
	move.l a0,bltapt(a4)
	clr.w bltamod(a4)
	clr.w bltcmod(a4)
	move.w d0,bltdmod(a4)
	move.w d0,bltbmod(a4)
	move.w #%111111100100,bltcon0(a4)
	tst.b kuppa
	beq.s lah
	move.w #%111111101100,bltcon0(a4)
lah:	clr.w bltcon1(a4)
	move.w 2(a6),d0
	lsl.w #6,d0
	or.w (a6),d0

	move.l ras1(pc),a1
	add.w 10(a6),a1
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s stoppen

	add.w #40,a1
	move.l a0,bltapt(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)

stoppen:move.l ras2(pc),a1
	add.w 10(a6),a1
	add.w 6(a6),a0
	move.l a0,bltapt(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s rkki

	add.w #40,a1
	move.l a0,bltapt(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)
rkki:
	move.l ras3(pc),a1
	add.w 10(a6),a1
	add.w 6(a6),a0
	move.l a0,bltapt(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s stopp

	add.w #40,a1
	move.l a0,bltapt(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)
stopp:
	bsr.L bwait
	move.l ras4(pc),a1
	add.w 10(a6),a1
	move.w #%011111100100,bltcon0(a4)
	clr.w bltadat(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s jokkes

	add.w #40,a1
	bsr.L bwait
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)
jokkes:
	bsr.L bwait
	move.l ras5(pc),a1
	add.w 10(a6),a1
	clr.w bltadat(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s ess

	add.w #40,a1
	bsr.L bwait
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)
ess:
	bsr.L bwait
	move.l ras6(pc),a1
	add.w 10(a6),a1
	clr.w bltadat(a4)
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)	
	tst.w seldom
	beq.s sss

	add.w #40,a1
	bsr.L bwait
	move.l a1,bltdpt(a4)
	move.l a1,bltbpt(a4)
	move.l plattemask(pc),bltcpt(a4)
	move.w d0,bltsize(a4)
sss:
	bsr.L bwait

	movem.l (sp)+,d1/d3-d5/d7/a1/a6
	rts
seldom:	dc.w 0

haam:	move.w #%111111100100,bltcon0(a4)
	tst.b kuppa
	beq.s eim
	move.w #%111111101100,bltcon0(a4)
eim:	move.l a0,a5
	move.l a5,d1
	move.w (a6),d2
	move.w 2(a6),d7
	move.l plattemask(pc),a0
	add.w 8(a6),a0
	move.l a0,d6
	move.l ras1(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	add.w 6(a6),a5
	move.l a5,d1
	move.l ras2(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	add.w 6(a6),a5
	move.l a5,d1
	move.l ras3(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	move.w #%011111100100,bltcon0(a4)
	clr.w bltadat(a4)

	move.l ras4(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	move.l ras5(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	move.l ras6(pc),a0
	add.w 10(a6),a0

	bsr.S doitcb

	movem.l (sp)+,d1/d3-d5/d7/a1/a6
	rts

doitcb:	movem.l d0-d7/a0-a4/a6,-(sp)
	move.l customm(pc),a4
	tst.w seldom
	bne.s ghj
	move.w #$80,d3
	or.w d2,d3
	lsl.w #1,d2
	move.w d2,d4
	add.w d2,d4
	add.w d2,d4
	ext.l d4
	add.w #40,d2
	neg.w d2
	lsr.w #1,d7
	subq.w #1,d7
	lea bltapt(a4),a2
	lea bltsize(a4),a3
	clr.w bltamod(a4)
	clr.w bltcmod(a4)

	move.l a0,bltdpt(a4)
	move.l a0,bltbpt(a4)
	move.w d2,bltdmod(a4)
	move.w d2,bltbmod(a4)
	move.w #2,bltcon1(a4)

ee:	move.l d1,(a2)
	move.l d6,bltcpt(a4)
	move.w d3,(a3)
	sub.l d4,d1
	sub.l d4,d6
ekeek:	btst #14,dmaconr(a4)
	bne.s ekeek
	dbf d7,ee

eek:	movem.l (sp)+,d0-d7/a0-a4/a6
	rts

ghj:	move.w #$40,d3
	or.w d2,d3
	lsl.w #1,d2
	move.w d2,-(sp)
	neg.w d2
	move.w d2,bltamod(a4)
	sub.w #40,d2
	move.w d2,bltdmod(a4)
	move.w d2,bltbmod(a4)
	move.w (sp)+,d2
	ext.l d2
	lea bltapt(a4),a2
	lea bltsize(a4),a3
	move.l a0,bltdpt(a4)
	move.l a0,bltbpt(a4)
	move.w #2,bltcon1(a4)
	lea dmaconr(a4),a6
	lea bltcpt(a4),a4

	move.l d1,(a2) ;apt ;1
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio:	btst #14,(a6)
	bne.s gio
	move.l d1,(a2) ;apt ;2
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio2:	btst #14,(a6)
	bne.s gio2
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;3
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio3:	btst #14,(a6)
	bne.s gio3
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;4
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio4:	btst #14,(a6)
	bne.s gio4
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;5
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio5:	btst #14,(a6)
	bne.s gio5
	move.l d1,(a2) ;apt ;6
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio6:	btst #14,(a6)
	bne.s gio6
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;7
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio7:	btst #14,(a6)
	bne.s gio7
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;8
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio8:	btst #14,(a6)
	bne.s gio8
	sub.l d2,d1
	sub.l d2,d6
	move.l d1,(a2) ;apt ;9
	move.l d6,(a4)
	move.w d3,(a3) ;size
gio9:	btst #14,(a6)
	bne.s gio9
	move.l d1,(a2) ;apt ;10
	move.l d6,(a4)
	move.w d3,(a3) ;size
	bra.L eek

seem:	move.w 4(a6),eestaas
	tst.w flag
	bne.L jaafet

	add.w 8(a6),a0
	move.l a0,a1
	move.l plattemask(pc),a3
	add.w 8(a6),a3
	move.l 12(a6),a0
	move.l a6,a5

	move.w #%111111100010,gecko

	move.l ras1(pc),a6
	add.w 10(a5),a6
	move.w 2(a5),d7
	subq.w #1,d7
	move.w (a5),d3
	lsl.w #1,d3
	bsr.L doit

	add.w 6(a5),a1
	move.l ras2(pc),a6
	add.w 10(a5),a6
	bsr.L doit

	add.w 6(a5),a1
	move.l ras3(pc),a6
	add.w 10(a5),a6
	bsr.L doit

	move.w #%011111100010,gecko
	clr.w bltadat(a4)

	move.l ras4(pc),a6
	add.w 10(a5),a6
	bsr.L doit

	move.l ras5(pc),a6
	add.w 10(a5),a6
	bsr.L doit

	move.l ras6(pc),a6
	add.w 10(a5),a6
	bsr.L doit

	movem.l (sp)+,d1/d3-d5/d7/a1/a6
	rts

jaafet:	add.w 8(a6),a0
	move.l a0,a1
	move.l plattemask(pc),a3
	add.w 8(a6),a3
	move.l 12(a6),a0
	move.l a6,a5

	move.w #%111111100010,gecko

	move.l ras1(pc),a6
	add.w 10(a5),a6
	move.w 2(a5),d7
	subq.w #1,d7
	lsr.w #1,d7
	move.w (a5),d3
	lsl.w #1,d3
	bsr.L doitc

	add.w 6(a5),a1
	move.l ras2(pc),a6
	add.w 10(a5),a6
	bsr.L doitc

	add.w 6(a5),a1
	move.l ras3(pc),a6
	add.w 10(a5),a6
	bsr.L doitc

	move.w #%011111100010,gecko
	clr.w bltadat(a4)

	move.l ras4(pc),a6
	add.w 10(a5),a6
	bsr.L doitc

	move.l ras5(pc),a6
	add.w 10(a5),a6
	bsr.L doitc

	move.l ras6(pc),a6
	add.w 10(a5),a6
	bsr.L doitc

	movem.l (sp)+,d1/d3-d5/d7/a1/a6
	rts

flag: dc.w 0

ei:dc.b 0
id0:dc.b 0
flaggy: dc.b 0
flaggy2:dc.b 0
sizesave:dc.w 0
phew:	dc.b 0
phewwi:	dc.b 0
yela: dc.b 0
	dc.b 0
danger:	dc.b 0
spec: dc.b 0
heightny: dc.w 0
supermask: dc.w 0

madelaan: dc.l 0
taas: dc.w 0
madelaanyha: dc.w 0
madelaanela: dc.w 0

dothejob:
	cmp.l #gel1-20,a0
	beq.s noor
	bclr #5,spec
	beq.s coma
	move.w ypos,d7
	lsl.w #5,d7
	add.w xpos,d7
	lea wallmap,a5
	add.w d7,a5
	tst.b (a5)
	bne.s coma
noor:	rts
coma:

	move.l customm(pc),a5
	lea heightny(pc),a6
	move.w (a0),d3 ;size d3

	move.w 16(a0),d7
	move.w 6(a0),d6
	lsl.w #1,d6
	mulu d6,d7
	cmp.w 4(a0),d7
	beq.s gee
	move.w 16(a0),(a6)
	moveq #0,d7
	ext.l d6
	move.w 4(a0),d7
	divu d6,d7
	move.w d7,linez
	bra.s isthatall
; cnt linesno
gee:
	move.w 16(a0),d7
	move.w d7,linez
isthatall:
	btst #2,d2
	beq.s boob
	lsr.w #1,d7
boob:	btst #3,d2
	beq.s boob2
	lsr.w #2,d7
boob2:	move.w d7,line

; count no of blit lines
	tst.w (a6)
	bne.s kieli
	move.w d7,(a6)
	bra.s testif
kieli:	move.w (a6),d7
	btst #2,d2
	beq.s bo2
	lsr.w #1,d7
bo2:	btst #3,d2
	beq.s bo3
	lsr.w #2,d7
bo3:	move.w d7,(a6)

; test if already in buffer

testif:	lea madelaan(pc),a6
	bclr #6,(a6)
	cmp.l (a6),a0
	bne.s eioo

	move.w (a0),d7
	cmp.w madelaanyha(pc),d7
	bne.s eioo

	move.w 18(a0),d7
	cmp.w madelaanela(pc),d7
	bne.s eioo

	cmp.w fwidth(pc),d3
	bne.s eioo
	move.l (a6),a2
	move.w 18(a2),d7
	cmp.w 18(a0),d7
	bne.s eioo
	move.w #$fe,d5
	move.w d2,d7
	and.w d5,d7
	move.w taas(pc),d6
	and.w d5,d6
	cmp.w d6,d7
	bne.s eioo

	move.w normalx(pc),d5
	beq.s ppy
	cmp.w forx(pc),d5
	bne.s eioo
ppy:	bset #6,minkkinen2
	clr.w dokurobo
	move.w d2,d7
	lea fcond(pc),a2
	add.w (a2),d7
	btst #0,d7
	beq.L day3
	move.w (a2),d2
	eor.w #1,d2
	bra.L day4

eioo:	move.w normalx(pc),forx
	move.l a0,(a6)
	move.w d2,taas
	move.w (a0),madelaanyha
	move.w 18(a0),madelaanela
	clr.l maskp

	move.w d2,d7
	and.w #114,d7
	bne.s eiokaa

	cmp.w 6(a0),d3
	bne.s eiokaa

	move.w 4(a0),d7
	move.l 8(a0),a2
	lea source1p(pc),a3
	moveq #0,d6
	move.b 3(a0),d6
	subq.w #1,d6
lippis:	move.l a2,(a3)+
	add.w d7,a2
	dbf d6,lippis
	move.l 12(a0),maskp
	move.w d3,fwidth
	move.w d2,fcond
	bra.L day5

; y flip needed
eiokaa:	move.l 8(a0),a2

	move.b spec(pc),d7
	and.w #3,d7
	bne.L poiga

	move.w d2,d7
	and.w #114,d7
	bne.L poiga
;no flip nor size
;calc apt
	move.w 18(a0),d5
	add.w d5,a2
	add.w d5,a2
; calcamod
	move.w 6(a0),d5 ;moda
	sub.w d3,d5
	lsl.w #1,d5
	btst #2,d2
	beq.s lokc
	move.w 6(a0),d4
	add.w d4,d5
	add.w d4,d5
lokc:	btst #3,d2
	beq.s inrange
	move.w 6(a0),d6
	lsl.w #1,d6
	add.w d6,d5
	add.w d6,d5
	add.w d6,d5

inrange:move.l buffr(pc),a3
	lea source1p(pc),a4
	moveq #0,d7
	move.b 3(a0),d7
	subq.w #1,d7
	move.w line(pc),d6
	mulu d3,d6
	lsl.w #1,d6
wei:	move.l a3,(a4)+
	add.w d6,a3
	dbf d7,wei
	tst.l 12(a0)
	beq.s joe
	move.l a3,maskp
joe:

	bsr.L bwait
	move.w d5,bltamod(a5)
	clr.w bltcon1(a5)
	clr.w bltdmod(a5)
	move.l buffr(pc),bltdpt(a5)
	move.l a2,bltapt(a5)

	move.w line(pc),d7
	moveq #0,d6
	move.b 3(a0),d6
	mulu d6,d7
	lsl.w #6,d7
	or.w d3,d7

	move.w #$9f0,bltcon0(a5)
	moveq #-1,d4
	move.l d4,bltafwm(a5)
	move.w d7,bltsize(a5) ; yeah!¡
	tst.l 12(a0)
	beq.s tus
	move.l 12(a0),a2
	move.w 18(a0),d5
	add.w d5,a2
	add.w d5,a2
	move.l a2,bltapt(a5)

	move.w line(pc),d7
	lsl.w #6,d7
	or.w d3,d7
	move.w d7,bltsize(a5) ; yeah!¡

tus:	and.w #$fff3,d2
	bra.L day2

poiga:	movem.l a0-a1/d0-d1,-(sp)
	move.w linez(pc),d1
	move.w d3,d0
	moveq #0,d7
	move.b 3(a0),d7
	move.w 6(a0),d4
	move.w 18(a0),d5
	mulu d7,d1
	move.l 8(a0),a0
	move.l buffr(pc),a1
	bsr.L bwait
	bsr.L burst
	movem.l (sp)+,a0-a1/d0-d1

	move.w d3,check1
	btst #6,d2
	beq.s vasa
	btst #5,d2
	beq.s vasa
	lsl.w #1,d3
	bne.s vasa
	moveq #1,d3
	bra.s del
vasa:	btst #4,d2
	beq.s gher
	btst #5,d2
	beq.s juoyt
	bra.s her
juoyt:	lsr.w #1,d3
gher:	btst #5,d2
	beq.s her
	lsr.w #2,d3
her:	lea spec(pc),a6
	btst #0,(a6)
	beq.s rar
	lsr.w #3,d3
rar:	btst #1,(a6)
	beq.s una
	lsr.w #4,d3
una:	tst.w d3
	bne.s del
	moveq #1,d3
del:	
	tst.l 12(a0)
	beq.s jghdf
	movem.l a0-a1/d0-d1,-(sp)
	moveq #0,d0
	move.b 3(a0),d0
	move.w line(pc),d6
	mulu d3,d6
	lsl.w #1,d6
	mulu d0,d6
	move.l buffr(pc),a1
	add.w d6,a1

	move.w 16(a0),d1
	move.w check1(pc),d0
	moveq #1,d7
	move.w 6(a0),d4
	move.w 18(a0),d5

	move.l 12(a0),a0
	bsr.L burst
	movem.l (sp)+,a0-a1/d0-d1
	
jghdf:	and.w #225,d2
	move.l buffr(pc),a3
	lea source1p(pc),a4
	moveq #0,d7
	move.b 3(a0),d7
	subq.w #1,d7
	move.w line(pc),d6
	mulu d3,d6
	lsl.w #1,d6
chw:	move.l a3,(a4)+
	add.w d6,a3
	dbf d7,chw
	tst.l 12(a0)
	beq.s ika
	move.l a3,maskp
ika: 

day2:
	move.w d3,fwidth
	move.w d2,fcond




day3:
	move.w fcond(pc),d2
day4:
	move.w fwidth(pc),d3
day5:
	tst.b danger
	bne.s rld
	tst.w d0
	bne.s gym
	clr.w addix
gym:	move.w d3,d7
	subq.w #1,d7
	add.w d0,d7
	cmp.w #17,d7
	blt.s rld
	clr.w addix
rld:
	lea spec(pc),a4
	move.w heightny(pc),d6 ;size
	btst #2,(a4)
	beq.s bul
	moveq #93,d6
bul:	move.w d6,d7
	lsl.w #6,d6
	or.w d3,d6

	lsl.w #1,d3	; d3 to bytes
	moveq #0,d5
	move.b 3(a0),d5 ; no of bpls
	subq.w #1,d5

	mulu d3,d7
	move.w d7,bsize

heppa:	moveq #0,d7 ; ascend amod
	btst #2,d2
	beq.s tyr
	add.w d3,d7
tyr:	btst #3,d2
	beq.s hep3
	add.w d3,d7
	add.w d3,d7
	add.w d3,d7
hep3:	move.w d7,a3

	lsl.w #1,d0  ; words to bytes calc y + dmod

	btst #0,d2
	beq.s beppu
	moveq #-40,d4
	sub.w d3,d4
	move.w heightny(pc),d7
	add.w d1,d7
	subq.w #1,d7
	lsl.w #3,d7
	move.w d7,d1
	lsl.w #2,d7
	add.w d7,d1

	btst #2,(a4)
	beq.s esaias
	sub.w #40,d4
	bra.s esaias
beppu:	move.w d1,d4
	lsl.w #3,d4
	move.w d4,d1
	lsl.w #2,d4
	add.w d4,d1

	moveq #40,d4 ; calc y + dmod
	sub.w d3,d4
	btst #4,(a4)
	bne.s sai
	btst #2,(a4)
	beq.s esaias
sai:	add.w #40,d4
esaias:	bsr.L bwait
	tst.w addix
	beq.s ohny
	subq.w #2,d4
	subq.w #2,a3
	addq.w #1,d6

ohny:	move.w d1,-(sp)
	move.w dokurobo(pc),d1
	moveq #-1,d7
	move.l d7,bltafwm(a5)

	btst #5,d1
	beq.L kesh
	btst #4,d1
	beq.L kesh
; +1
	move.w d6,-(sp)

	btst #2,(a4)
	beq.s lll
	move.w #$2801,d6
lll:
	clr.w bltcon1(a5)
	move.w a3,bltamod(a5)
	move.w a3,bltbmod(a5)
	move.w a3,bltcmod(a5)
	move.w a3,bltdmod(a5)

	move.w #%111111010101,bltcon0(a5)

	move.l source3p(pc),bltapt(a5)
	move.l source2p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source1p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%011110011001,bltcon0(a5)

	move.l source2p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source2p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%111111110001,bltcon0(a5)

	move.l source3p(pc),bltapt(a5)
	move.l source2p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source3p(pc),bltdpt(a5)
 	move.w d6,bltsize(a5)

	move.w (sp)+,d6
	bra.L tummel

kesh:	btst #4,d1
	beq.s erkkk
; -1
	clr.w bltcon1(a5)
	move.w a3,bltamod(a5)
	move.w a3,bltbmod(a5)
	move.w a3,bltcmod(a5)
	move.w a3,bltdmod(a5)

	move.w #%111101010100,bltcon0(a5)

	move.l source1p(pc),bltcpt(a5)
	move.l source1p(pc),bltdpt(a5)
	move.l source2p(pc),bltbpt(a5)
	move.l source3p(pc),bltapt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%011101100110,bltcon0(a5)

	move.l source2p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source2p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%111101110000,bltcon0(a5)

	move.l source3p(pc),bltapt(a5)
	move.l source2p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source3p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

erkkk:	btst #5,d1
	beq.S tummel
; -2
	bsr.L bwait
	clr.w bltcon1(a5)
	move.w a3,bltamod(a5)
	move.w a3,bltbmod(a5)
	move.w a3,bltcmod(a5)
	move.w a3,bltdmod(a5)

	move.w #%111110101000,bltcon0(a5)

	move.l source2p(pc),bltapt(a5)
	move.l source3p(pc),bltbpt(a5)
	move.l source1p(pc),bltcpt(a5)
	move.l source1p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%011101000100,bltcon0(a5)
	move.l source3p(pc),bltbpt(a5)
	move.l source2p(pc),bltcpt(a5)
	move.l source2p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	move.w #%011101100110,bltcon0(a5)

	move.l source3p(pc),bltbpt(a5)
	move.l source2p(pc),bltcpt(a5)
	move.l source3p(pc),bltdpt(a5)
	move.w d6,bltsize(a5)

tummel:	move.w (sp)+,d1
	moveq #0,d7

	move.w supermask(pc),a6
	move.w d2,-(sp)
	bsr.L bwait
	move.w addix(pc),d2
	beq.s oor
	clr.w bltalwm(a5)
oor:	move.w d2,bltcon1(a5)
	move.l maskp(pc),a4
	cmp.w d7,a4
	beq.s gally
	or.w #%111111001010,d2
	cmp.w d7,a6
	beq.s sojump
	move.w a6,bltafwm(a5)

gally:	or.w #%011111001010,d2
	move.w #$ffff,bltadat(a5)
	cmp.w d7,a6
	beq.s sojump
	move.w a6,bltadat(a5)

sojump:	move.w d2,bltcon0(a5)
	move.w (sp)+,d2

	lea spec(pc),a6
	move.w a3,bltamod(a5) ; outline
	move.w a3,bltbmod(a5) ; data
	move.w d4,bltcmod(a5) ; backround
	move.w d4,bltdmod(a5) ; dest
	move.w a3,d3
	add.w d1,d0
	move.w d5,d1
	lsl.w #2,d1
	btst #2,(a6)
	beq.s tic
	moveq #54,d4
	add.w d4,d7
	add.w d4,a4
tic:
	clr.w okpop
	tst.w currysize
	beq.L numeri

	move.w #40,a3
	moveq #2,d3
	moveq #-1,d4

	and.w #$3f,d6
	or.w #64,d6

	add.w a3,d0
retainte:addq.w #1,d4
	cmp.w #8,d4
	bge.s hippinow
	btst d4,currysize+1
	bne.s donaako
	add.w d3,a4
	add.w d3,d7
	bra.s retainte
hippinow:cmp.w #16,d4
	bge.L overny
	btst d4,currysize
	bne.s donaako
	add.w d3,a4
	add.w d3,d7
	bra.s retainte
donaako:
	clr.w okpop
	movem.w d1/d5,-(sp)
varvaskipee:
	lea ras1(pc),a1
	move.l 0(a1,d1.w),a1
	add.w d0,a1

	lea source1p(pc),a2
	move.l 0(a2,d1.w),a2
	add.w d7,a2

	move.l a1,bltdpt(a5)
	move.l a2,bltbpt(a5)
	move.l a1,bltcpt(a5)
	move.l a4,bltapt(a5)
	move.w d6,bltsize(a5)

	addq.w #1,okpop
	subq.w #4,d1
	dbf d5,varvaskipee
	movem.w (sp)+,d5/d1

	add.w d3,a4
	add.w d3,d7
	add.w a3,d0

	bra.S retainte

numeri:	lea ras1(pc),a1
	move.l 0(a1,d1.w),a1
	add.w d0,a1

	lea source1p(pc),a2
	move.l 0(a2,d1.w),a2
	add.w d7,a2

	move.l a1,bltdpt(a5)
	move.l a2,bltbpt(a5)
	move.l a1,bltcpt(a5)
	move.l a4,bltapt(a5)
	move.w d6,bltsize(a5)

	bsr.L bwait

	btst #2,(a6)
	beq.s numero
	addq.w #2,a2
	addq.w #2,a4
	add.w #40,a1
	move.l a1,bltdpt(a5)
	move.l a2,bltbpt(a5)
	move.l a1,bltcpt(a5)
	move.l a4,bltapt(a5)
	move.w d6,bltsize(a5)
	subq.w #2,a4
numero:	addq.w #1,okpop
	subq.w #4,d1
	dbf d5,numeri

overny:	move.w #%101100001010,d5
	cmp.w #0,a4
	bne.s koiu
	move.w #%001100001010,d5
koiu:
	or.w addix(pc),d5
	move.w d5,bltcon0(a5)
	clr.w bltbdat(a5)
	lea ras6+4(pc),a2
	btst #3,(a6)
	bne.s lgg
elf:	cmp.w #6,okpop
	bge.S lgg
	bsr.L bwait
	move.l -(a2),a1
	add.w d0,a1
	move.l a4,bltapt(a5)
	move.l a1,bltcpt(a5)
	move.l a1,bltdpt(a5)
	move.w d6,bltsize(a5)

	btst #2,(a6)
	beq.s kedja2
	add.w #40,a1

	bsr.L bwait

	move.l a4,bltapt(a5)
	move.l a1,bltcpt(a5)
	move.l a1,bltdpt(a5)
	move.w d6,bltsize(a5)

kedja2:	addq.w #1,okpop
	bra.S elf

lgg:	bsr.L bwait
	rts

huikka:	dc.w 0
dokurobo:dc.w 0
addix:	dc.w 0
fcond:	dc.w 0
fwidth: dc.w 0
maskp:	dc.l 0
line:	dc.w 0
source1p: dc.l 0
source2p: dc.l 0
source3p: dc.l 0
source4p: dc.l 0
source5p: dc.l 0
source6p: dc.l 0
bsize: dc.w 0
check1: dc.l 0
okpop:	dc.w 0
linez:	dc.w 0
nuhru:	dc.w 0
rat:	dc.w 0

;a0-sourc
;a1-dest
;d0-xblit
;d1-height
;d2-conds
;
;d4-maxx
;d5-startx

burst:	movem.l d0-d7/a0-a6,-(sp)
	add.w d5,a0
	add.w d5,a0
	tst.w normalx
	bne.l piss2
	move.b spec(pc),d3
	and.b #$3,d3
	bne.l piss2
	move.w d2,d3
	and.w #%01110010,d3
	cmp.w #%000010,d3
	bne.s flish
	exg d0,d4
	move.w d0,d7
	sub.w d4,d7
	lsl.w #1,d7
	btst #2,d2
	beq.s ippi
	add.w d0,d7
	add.w d0,d7
ippi:	btst #3,d2
	beq.s ippi2
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
ippi2:
	subq.w #1,d1
	add.w d4,a1
	add.w d4,a1
	move.w d4,d5
	lsl.w #2,d5
	subq.w #1,d4
	bra.L flipb



flish:	cmp.w #%10000,d3
	bne.s piss
	exg d0,d4
	move.w d0,d7
	sub.w d4,d7
	lsl.w #1,d7
	btst #2,d2
	beq.s appi
	add.w d0,d7
	add.w d0,d7
appi:	btst #3,d2
	beq.s appi2
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
appi2:
	subq.w #1,d1
	moveq #0,d5
	lsr.w #1,d4
	subq.w #1,d4
	bpl.L bp
	moveq #0,d4
	bra.L brp


piss:	cmp.w #%10010,d3
	bne.s piss2
	exg d0,d4
	move.w d0,d7
	sub.w d4,d7
	lsl.w #1,d7
	btst #2,d2
	beq.s ppi
	add.w d0,d7
	add.w d0,d7
ppi:	btst #3,d2
	beq.s ppi2
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
	add.w d0,d7
ppi2:
	subq.w #1,d1
	add.w d4,a1
	move.w d4,d5
	lsl.w #1,d5
	lsr.w #1,d4
	subq.w #1,d4
	bpl.L bp2
	addq.w #1,a1
	moveq #4,d5
	moveq #0,d4
	bra.L brp2


piss2:	move.l customm(pc),a6

	move.w d0,d6
	btst #6,d2
	beq.s simson
	btst #5,d2
	beq.s simson
	lsl.w #1,d6
	bne.s harp3
	moveq #1,d6
	move.w d6,d0
	bra.s harp3
simson:	move.w d6,d0
	btst #4,d2
	beq.s harp
	btst #5,d2
	beq.s klo
	bra.S harp2
klo:	lsr.w #1,d6
harp:	btst #5,d2
	beq.s harp2
	lsr.w #2,d6
harp2:
harp3:
	lea spec(pc),a4
	btst #0,(a4)
	beq.s kekk
	lsr.w #3,d6
kekk:	btst #1,(a4)
	beq.s miracle
	lsr.w #4,d6
miracle:
	tst.w d6
	beq.s aao
	subq.w #1,d6

aao:	sub.w d0,d4

	lsl.w #1,d0 ; moduloa1+2
	move.w d0,d3
	add.w d4,d3
	add.w d4,d3
	btst #2,d2
	beq.s kippi
	lsl.w #1,d3
kippi:	btst #3,d2
	beq.s kippi2
	lsl.w #2,d3
kippi2:	move.w d3,d5
	subq.w #2,d3
	addq.w #2,d5
	neg.w d5

	move.w d6,d4
	addq.w #1,d4
	lsl.w #1,d4
	subq.w #2,d4
	move.w d4,d7
	addq.w #4,d7
	neg.w d7

	btst #1,d2
	beq.s juppiny
	add.w d4,a1

juppiny:move.w d0,a3
	move.w d1,d0
	btst #2,d2
	beq.s kieppi
	lsr.w #1,d0
kieppi:	btst #3,d2
	beq.s kieppi2
	lsr.w #2,d0
kieppi2:lsl.w #6,d0
	or.w #1,d0

	moveq #-1,d1
	move.l d1,bltafwm(a6)

	move.w d6,rat
	tst.w normalx
	beq.s thee
	move.b spec(pc),d6
	and.w #3,d6
	beq.s th
thee:	move.l a1,d6
	lea bltdpt+2(a6),a1
	move.l a0,d1
	lea bltcdat(a6),a0
th:	move.w a3,nuhru
	and.w #114,d2

	lea bltsize(a6),a2
	lea bltapt(a6),a4
	lea bltbpt+2(a6),a5
	move.l d6,bltbpt(a6)
	move.l d6,bltdpt(a6)
	lea $40(a6),a6

	btst #0,spec
	beq.s lesl
	btst #1,d2
	beq.L eightb
	bra.L eightflipb
lesl:
	btst #1,spec
	beq.s iles
	btst #1,d2
	beq.L sixteenb
	bra.L sixteenflipb
iles:
	tst.w normalx
	bne.L ajattele

	cmp.w #%100000,d2
	beq.L quarterb
	cmp.w #%110000,d2
	beq.L threequarter
	cmp.w #%1000000,d2
	beq.L onethree
	cmp.w #%1100000,d2
	beq.L dubbelb
	cmp.w #%1110000,d2
	beq.L dubbelb

	cmp.w #%110010,d2
	beq.L threequarterf
	cmp.w #%1000010,d2
	beq.L onethreef
	cmp.w #%1100010,d2
	beq.L dubbelf
	cmp.w #%1110010,d2
	beq.L dubbelf

quarterflipb:

baase1:	lea quarterflipbtable,a3
	clr.w bltbdat-$40(a6)

	clr.w bltcon1-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	moveq #3,d2
	ssmallloop t1
	moveq #2,d2
	cmp.w nuhru(pc),d2
	beq.L xit
	addq.l #2,d1

	ssmallloop t2

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop
	cmp.w #4,nuhru
	beq.L xit
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #1,d2
	ssmallloop t4

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #1,d2
	ssmallloop t5
	cmp.w #6,nuhru
	beq.s xit2
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop

	moveq #2,d2
	move.w d2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	ssmallloop t7

	addq.l #2,d1
	subq.l #2,d6
	subq.w #1,rat
	bpl.L baase1

xit2:	bra.S xit

flipb:	lea nibble,a3
	moveq #0,d0

niuh:	move.w d4,d6
niggh:	move.b (a0)+,d0
	move.b 0(a3,d0.w),-(a1)
	move.b (a0)+,d0
	move.b 0(a3,d0.w),-(a1)
	dbf d6,niggh
	add.w d5,a1
	add.w d7,a0
	dbf d1,niuh

xit:	movem.l (sp)+,d0-d7/a0-a6
	rts

bp:	lea goinhome,a3
	move.w #%0101010101010101,d2

niuh2:	move.w d4,d6
niggh2:	move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),(a1)+
	move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),(a1)+
	dbf d6,niggh2
	add.w d5,a1
	add.w d7,a0
	dbf d1,niuh2

sitx:	bra.s xit

brp:	lea goinhome,a3
	move.w #%0101010101010101,d2

aniuh2:	move.w d4,d6
aniggh2:move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),(a1)+
	clr.b (a1)+
	dbf d6,aniggh2
	add.w d7,a0
	dbf d1,aniuh2

	bra.s xit

bp2:	lea goinhome+2,a3
	move.w #%0101010101010101,d2

nih2:	move.w d4,d6
nigh2:	move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),-(a1)
	move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),-(a1)
	dbf d6,nigh2
	add.w d5,a1
	add.w d7,a0
	dbf d1,nih2

	bra.s sitx

brp2:	lea goinhome+2,a3
	move.w #%0101010101010101,d2
anih2:	move.w d4,d6
anigh2:	move.w (a0)+,d0
	and.w d2,d0
	move.b 0(a3,d0.w),-(a1)
	clr.b -(a1)
	dbf d6,anigh2
	add.w d5,a1
	add.w d7,a0
	dbf d1,anih2

	bra.s sitx

ajattele:
	cmp.w #7,normalx
	bne.s tyson2
	lea seventable2,a3
	moveq #6,d2
tyson2:	cmp.w #6,normalx
	bne.s tyson
	lea sixtable2,a3
	moveq #5,d2
tyson:	cmp.w #5,normalx
	bne.s begga
	lea fivetable2,a3
	moveq #4,d2
begga:	cmp.w #4,normalx
	bne.s never
	lea fourtable2,a3
	moveq #3,d2
never:	cmp.w #3,normalx
	bne.s doge
	lea threetable2,a3
	moveq #2,d2
doge:	cmp.w #2,normalx
	bne.s shalom
	lea twotable2,a3
	moveq #1,d2
shalom:	move.w #$8000,d3
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	clr.w bltbdat-$40(a6)
	move.b (a3)+,d6
	lsl.w #8,d6
	or.w #%0000100110100000,d6
	bra.s fifi
zloop:	move.b (a3)+,d6
	lsl.w #8,d6
	or.w #%0000110111100100,d6
fifi:	move.l a0,bltapt-$40(a6)
	move.l a1,bltbpt-$40(a6)
	move.l a1,bltdpt-$40(a6)
	move.w d6,bltcon0-$40(a6)
	move.w d3,bltcdat-$40(a6)
	move.w d0,bltsize-$40(a6)
	lsr.w #1,d3

	dbf d2,zloop

xit5:	bra.L xit

quarterb:

aaase1:	lea quarterbtable(pc),a3
	clr.w bltbdat-$40(a6)

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #3,d2
	ssmallloop t17
	cmp.w #2,nuhru
	beq.s xit5
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #1,d2
	ssmallloop t18

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #1,d2
	ssmallloop t19
	cmp.w #4,nuhru
	beq.L xit
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #2,d2
	ssmallloop t20

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop
	cmp.w #6,nuhru
	beq.s xit6
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #3,d2
	ssmallloop t22

	addq.l #2,d1
	addq.l #2,d6
	subq.w #1,rat
	bpl.L aaase1

xit6:	bra.L xit

sixteenb:

bqase1:	lea sixteenbtable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)

	veryloop
	cmp.w #2,nuhru
	beq.s xit6
	addq.l #2,d1
	veryloop
	cmp.w #4,nuhru
	beq.s xit6
	addq.l #2,d1
	veryloop
	cmp.w #6,nuhru
	beq.s xit6
	addq.l #2,d1
	veryloop
	cmp.w #8,nuhru
	beq.s xit55
	addq.l #2,d1
	veryloop
	cmp.w #10,nuhru
	beq.s xit55
	addq.l #2,d1
	veryloop
	cmp.w #12,nuhru
xit55:	beq.L xit
	addq.l #2,d1
	veryloop
	cmp.w #14,nuhru
	beq.s xit55
	addq.l #2,d1
	veryloop
	cmp.w #16,nuhru
	beq.s xit55

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)

	veryloop
	cmp.w #18,nuhru
	beq.s xit77
	addq.l #2,d1
	veryloop
	cmp.w #20,nuhru
	beq.s xit77
	addq.l #2,d1
	veryloop
	cmp.w #22,nuhru
xit77:	beq.s xit88
	addq.l #2,d1
	veryloop
	cmp.w #24,nuhru
xit88:	beq.s xit7
	addq.l #2,d1
	veryloop
	cmp.w #26,nuhru
	beq.s xit7
	addq.l #2,d1
	veryloop
	cmp.w #28,nuhru
	beq.s xit7
	addq.l #2,d1
	veryloop
	cmp.w #30,nuhru
	beq.s xit7
	addq.l #2,d1
	veryloop

	addq.l #2,d6
	subq.w #1,rat
	bpl.L bqase1

xit7:	bra.L xit
sixteenflipb:

bqqase1:lea sixteenbtable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)

	veryloop
	cmp.w #2,nuhru
	beq.s xit7
	subq.l #2,d1
	veryloop
	cmp.w #4,nuhru
	beq.s xit7
	subq.l #2,d1
	veryloop
	cmp.w #6,nuhru
	beq.s xit7
	subq.l #2,d1
	veryloop
	cmp.w #8,nuhru
	beq.s xit99
	subq.l #2,d1
	veryloop
	cmp.w #10,nuhru
	beq.s xit99
	subq.l #2,d1
	veryloop
	cmp.w #12,nuhru
xit99:	beq.L xit
	subq.l #2,d1
	veryloop
	cmp.w #14,nuhru
	beq.s xit99
	subq.l #2,d1
	veryloop
	cmp.w #16,nuhru
	beq.s xit99

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)

	veryloop
	cmp.w #18,nuhru
	beq.s xit00
	subq.l #2,d1
	veryloop
	cmp.w #20,nuhru
	beq.s xit00
	subq.l #2,d1
	veryloop
	cmp.w #22,nuhru
xit00:	beq.L xit
	subq.l #2,d1
	veryloop
	cmp.w #24,nuhru
	beq.s xit8
	subq.l #2,d1
	veryloop
	cmp.w #26,nuhru
	beq.s xit8
	subq.l #2,d1
	veryloop
	cmp.w #28,nuhru
	beq.s xit8
	subq.l #2,d1
	veryloop
	cmp.w #30,nuhru
	beq.s xit8
	subq.l #2,d1
	veryloop

	addq.l #2,d6
	subq.w #1,rat
	bpl.L bqqase1

xit8:	bra.L xit

eightb:

hasek1:	lea eightbtable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)

	moveq #1,d2
	ssmallloop t55
	cmp.w #2,nuhru
	beq.s xit8
	addq.l #2,d1

	moveq #1,d2
	ssmallloop t56
	cmp.w #4,nuhru
xit09:	beq.s xit8
	addq.l #2,d1

	moveq #1,d2
	ssmallloop t57
	cmp.w #6,nuhru
	beq.s xit09
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop
	cmp.w #8,nuhru
xit06:	beq.s xit09
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop
	cmp.w #10,nuhru
	beq.s xit06
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop
	cmp.w #12,nuhru
	beq.s xit10
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)

	moveq #1,d2
	ssmallloop t64
	cmp.w #12,nuhru
	beq.s xit10
	addq.l #2,d1

	moveq #1,d2
	ssmallloop t65
	cmp.w #12,nuhru
	beq.s xit10
	addq.l #2,d1

	addq.l #2,d6
	subq.w #1,rat
	bpl.L hasek1

xit9:
xit10:	bra.L xit

eightflipb:

hazek1:	lea eightflipbtable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)

	moveq #1,d2
	ssmallloop t66
	cmp.w #2,nuhru
	beq.s xit10
	addq.l #2,d1

	moveq #1,d2
	ssmallloop t67
	cmp.w #4,nuhru
	beq.s xit10
	addq.l #2,d1

	veryloop

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	cmp.w #6,nuhru
	beq.L xit10
	addq.l #2,d1

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	cmp.w #8,nuhru
	beq.L xit10
	addq.l #2,d1

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	cmp.w #10,nuhru
	beq.L xit11
	addq.l #2,d1

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	cmp.w #12,nuhru
	beq.s xit11
	addq.l #2,d1

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	veryloop

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	veryloop
	cmp.w #14,nuhru
	beq.s xit11
	addq.l #2,d1

	moveq #1,d2
	ssmallloop t78

	subq.l #2,d6
	subq.w #1,rat
	bpl.L hazek1

xit11:	bra.L xit

threequarter:
	lea threequartertable,a3
	cmp.w #6,nuhru
	bge.S sse1
	moveq #64,d2
	add.w d2,a3
	cmp.w #4,nuhru
	beq.s bashpaki1
	add.w d2,a3
	bra.L pakibash1
sse1:	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #11,d2

	ssmallloop t79
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #3,d2

	ssmallloop t80
	addq.l #2,d6
bashpaki1:

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #7,d2

	ssmallloop t81
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #7,d2

	ssmallloop t82
	addq.l #2,d6
pakibash1:

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #3,d2

	ssmallloop t83
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #11,d2

	ssmallloop t84

	bra.L xit


threequarterf:

	lea threequarterftable,a3
	cmp.w #6,nuhru
	bge.s ssse1
	moveq #64,d2
	addq.l #2,d1
	add.w d2,a3
	cmp.w #4,nuhru
	beq.L setbort
	add.w d2,a3
	addq.l #2,d1
	bra.L setbort1
ssse1:	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #6,d2

	ssmallloop t85

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #4,d2

	ssmallloop t86
	addq.l #2,d1

	clr.w bltcon1-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	moveq #1,d2

	ssmallloop t87

	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	moveq #1,d2

	ssmallloop t88
	subq.l #2,d6
setbort:

	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #4,d2

	ssmallloop t89

	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	moveq #2,d2

	ssmallloop t90
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #3,d2

	ssmallloop t91

	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	moveq #3,d2

	ssmallloop t92
	subq.l #2,d6
setbort1:

	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #2,d2

	ssmallloop t93

	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	veryloop
	addq.l #2,d1

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #5,d2

	ssmallloop t95

	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	moveq #5,d2

	ssmallloop t96

	bra.L xit

onethree:
	lea onethreetable,a3
	cmp.w #6,nuhru
	bge.s ssze1
	moveq #44,d2
	add.w d2,a3
	cmp.w #4,nuhru
	beq.s bashpaki
	add.w d2,a3
	bra.L pakibash

ssze1:	clr.w bltbdat-$40(a6)
	clr.w bltcon1-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	moveq #10,d2

	ssmallloop t97
	addq.l #2,d6
bashpaki:
	clr.w bltbdat-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	move.w #2,bltcon1-$40(a6)
	moveq #4,d2

	ssmallloop t98
	addq.l #2,d1

	clr.w bltcon1-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	moveq #5,d2

	ssmallloop t99
	addq.l #2,d6
pakibash:

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #9,d2

	ssmallloop t100

xit20:	bra.L xit

onethreef:
	lea onethreeftable(pc),a3
	ext.l d4
	sub.l d4,d6

issze1:	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #9,d2

	ssmallloop t101

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #5,d2

	ssmallloop t102
	moveq #2,d2
	cmp.w nuhru(pc),d2
	beq.s xit20
	addq.l #2,d6

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)

	ssmallloop t103

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #4,d2

	ssmallloop t104
	subq.l #2,d1

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #3,d2

	ssmallloop t105

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #3,d2

	ssmallloop t106
	cmp.w #4,nuhru
	beq.s xit21
	addq.l #2,d6

	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #6,d2

	ssmallloop t107

	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #8,d2

	ssmallloop t108

xit21:	bra.L xit





eestaas: dc.w 0
gleeglee: dc.w 0

doit:	movem.l d0-d7/a0-a6,-(sp)
	move.l customm(pc),a5
	lea bltcon0(a5),a2

	move.w d3,d1
	ext.l d1

	tst.w gleeglee
	beq.s skp2
	move.w #$3,bltalwm(a5)
	move.w #$ffff,bltafwm(a5)
	bra.s skdl2
skp2:	moveq #$-1,d6
	move.l d6,bltafwm(a5)
skdl2:	move.l a6,d4
	move.l a1,d5
	move.w gecko(pc),d3
	move.w eestaas(pc),d6
	tst.w seldom
	bne.S doitcd

koopss:	
	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	add.l d1,d5
	add.l d1,a3
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w d3,d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w d6,d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)

	dbf d7,koopss
	moveq #-1,d0
	move.l d0,bltafwm(a5)
	movem.l (sp)+,d0-d7/a0-a6
	rts

doitcd:	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w d3,d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w d6,d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)

	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	add.l d1,d5
	add.l d1,a3
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w d3,d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w d6,d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)

	dbf d7,doitcd
	moveq #-1,d0
	move.l d0,bltafwm(a5)
	movem.l (sp)+,d0-d7/a0-a6
	rts


dubbelf:btst #4,d2
	beq.s duardum

hikka:	bsr.L lowordblitf
	subq.l #2,d6
	addq.l #2,d1
	subq.w #1,rat
	bmi.s xit40
	bsr.s highwordblitf
	subq.l #2,d6
	subq.w #1,rat
	bmi.s xit40
	bra.s hikka
duardum:
	bsr.s highwordblitf
	subq.l #2,d6
	subq.w #1,rat
	bmi.s xit40
	bsr.S lowordblitf
	subq.l #2,d6
	addq.l #2,d1
	subq.w #1,rat
	bpl.s duardum

xit40:	bra.L xit
highwordblitf:
	lea hiwordblitftable,a3
	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #9,d2

	ssmallloop t120

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #5,d2

	ssmallloop t121

	rts
lowordblitf:
	lea lowordblitftable,a3
	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #5,d2

	ssmallloop t122

	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #9,d2

	ssmallloop t123

	rts

dubbelb:btst #4,d2
	beq.s message

tyrwaa:	bsr.S lowordblit
	addq.l #2,d6
	addq.l #2,d1
	subq.w #1,rat
	bmi.s xit30
	bsr.s highwordblit
	addq.l #2,d6
	subq.w #1,rat
	bmi.s xit30
	bra.s tyrwaa
message:
	bsr.s highwordblit
	addq.l #2,d6
	subq.w #1,rat
	bmi.s xit30
	bsr.S lowordblit
	addq.l #2,d6
	addq.l #2,d1
	subq.w #1,rat
	bpl.s message

xit30:	bra.L xit

highwordblit:
	lea highwordblittable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w d4,bltbmod-$40(a6)
	move.w d4,bltdmod-$40(a6)
	move.w d3,bltamod-$40(a6)
	clr.w bltcon1-$40(a6)
	moveq #15,d2
	ssmallloop t124
	rts
lowordblit:
	lea lowordblittable(pc),a3
	clr.w bltbdat-$40(a6)
	move.w #2,bltcon1-$40(a6)
	move.w d7,bltbmod-$40(a6)
	move.w d7,bltdmod-$40(a6)
	move.w d5,bltamod-$40(a6)
	moveq #15,d2
	ssmallloop t125

	rts

customm:dc.l $dff000

doitc:	movem.l d0-d7/a0-a6,-(sp)
	move.l customm(pc),a5
	lea bltcon0(a5),a2

	move.w d3,d1
	ext.l d1

	subq.w #8,a0
	tst.w gleeglee
	beq.S sskp2
	move.w #$7,bltalwm(a5)
	move.w #$ffff,bltafwm(a5)
	bra.S sskdl2
sskp2:	moveq #$-1,d6
	move.l d6,bltafwm(a5)
sskdl2:	moveq #16,d6
	moveq #24,d3
	move.l a6,d4
	move.l a1,d5
	tst.w seldom
	bne.L doitdc
skoopss:
	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	sub.l d1,d5
	sub.l d1,a3
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w gecko(pc),d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w eestaas(pc),d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)
	sub.w d6,a0

	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	sub.l d1,d5
	sub.l d1,a3
	sub.l d1,d5
	sub.l d1,a3
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w gecko(pc),d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w eestaas(pc),d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)
	sub.w d3,a0

	dbf d7,skoopss
kuxit:	moveq #-1,d0
	move.l d0,bltafwm(a5)
	movem.l (sp)+,d0-d7/a0-a6
	rts

gecko:	dc.w 0


oldcopper: dc.l $0
gfxbase: dc.l $0
gfxname: dc.b 'graphics.library',0,0

spurious:
	move.w #0,a0
	move.w #%0111111111111111,intena+custom
	move.w #312,d0
vaajakoski:move.l d1,(a0)+
	dbf d0,vaajakoski
	lea start(pc),a0
jamming:move.l a0,(a0)+
	bra.s jamming

ras1:	dc.l rras1
ras2:	dc.l rras2
ras3:	dc.l rras3
ras4:	dc.l rras4
ras5:	dc.l rras5
ras6:	dc.l rras6
bras1:	dc.l brras1
bras2:	dc.l brras2
bras3:	dc.l brras3
bras4:	dc.l brras4
bras5:	dc.l brras5
bras6:	dc.l brras6

start:	clr.w bltcon0+custom
	move.l $4,a6
	lea gfxname(pc),a1
	moveq #0,d0
	jsr -$228(a6)
	tst.l d0
	beq.L finalexit
	move.l d0,gfxbase
	bsr.L dosopen

	move.l customm(pc),a6
	move.l gfxbase(pc),a5
	move.l 38(a5),oldcopper
	move.l #coplist,cop1lc(a6)
	move.w dmaconr(a6),olddmareq
	move.w intenar(a6),oldintreq
	lea intrequest1,a4
	move.l $0068.w,(a4)+
	move.l $0064.w,(a4)+
	move.l $006c.w,(a4)+
	move.l $0078.w,(a4)+
	move.l $007c.w,(a4)+
	move.l $0070.w,(a4)
	move.w #%0011111111111111,intena(a6)
	lea ciab,a4
	move.b re(a4),cra
	move.b rf(a4),crb
	move.b #%01111111,rd(a4)
	move.b #%10000010,rd(a4)
	move.b #%01111111,ciaa+rd
	move.b #%10001000,ciaa+rd

	move.b #%10000000,re(a4)
	move.b #%10000000,rf(a4)
eke:	btst #5,intreqr+1(a6)
	beq.s eke

	move.l #keyboard,$0068.w
	move.l #vbih,$006c.w
	move.l #updatescreen,$0064.w
	move.l #spurious,$007c.w
	move.l #interval,$0078.w
	move.l #auddone,$0070.w

	move.w #%1010000000011100,intena(a6)

	move.l #pper,d0
	move.w d0,coplow2
	swap d0
	move.w d0,cophigh2
	move.l #luuppikaks,d0
	move.w d0,coplow
	swap d0
	move.w d0,cophigh

	move.w #$8400,dmacon(a6)
	bsr.L lines

cleanup:
	move.l customm(pc),a6
	move.w #$4000,intena(a6)
	lea ciab,a4
	move.b #%10011111,rd(a4)
	move.b #%10011111,rd+ciaa
	move.b cra(pc),re(a4)
	move.b crb(pc),rf(a4)
	lea intrequest1,a2
	move.l (a2)+,$0068.w
	move.l (a2)+,$0064.w
	move.l (a2)+,$006c.w
	move.l (a2)+,$0078.w
	move.l (a2)+,$007c.w
	move.l (a2)+,$0070.w
	move.w olddmareq(pc),d0
	and.w #%1111100001111111,d0
	or.w #$8000,d0
	move.w d0,dmacon(a6)

	move.w oldintreq(pc),d0
	or.w #$c000,d0
	move.w d0,intena(a6)

	move.l oldcopper(pc),cop1lc(a6)
	bsr.L dosclose

endng:	move.l $4,a6
	move.l gfxbase(pc),a1
	jsr -$19e(a6)
finalexit:rts

playsample:
	movem.l d0-d3/a0-a5,-(sp)
	move.l customm(pc),a5
	move.b aud1state(pc),d3
	bne.s dome1
	lea aud0+ptr(a5),a0
	lea aud0+len(a5),a1
	lea aud0+vol(a5),a2
	lea aud0+per(a5),a4
	moveq #1,d3
	st aud1state
	bra.s donedome
dome1:	move.b aud2state(pc),d3
	bne.s dome2
	lea aud1+ptr(a5),a0
	lea aud1+len(a5),a1
	lea aud1+vol(a5),a2
	lea aud1+per(a5),a4
	moveq #2,d3
	st aud2state
	bra.s donedome
dome2:	move.b aud3state(pc),d3
	bne.s dome3
	lea aud2+ptr(a5),a0
	lea aud2+len(a5),a1
	lea aud2+vol(a5),a2
	lea aud2+per(a5),a4
	moveq #4,d3
	st aud3state
	bra.s donedome
dome3:	lea aud3+ptr(a5),a0
	lea aud3+len(a5),a1
	lea aud3+vol(a5),a2
	lea aud3+per(a5),a4
	moveq #8,d3
	st aud4state
donedome:
	move.w d1,(a2)
	lsl.w #2,d0
	lea sampleinfo,a3
	add.w d0,a3
	move.w (a3)+,d0
	lsr.w #1,d0
	move.w d0,(a1)
	move.w (a3)+,(a4)
	move.l (a3)+,(a0)

	move.w d3,d0
	or.w #$8000,d3
	lsl.w #7,d0
	move.w d0,intreq(a5)
	move.w d3,dmacon(a5)

iguli:	move.w intreqr+custom,d3
	and.w d0,d3
	beq.s iguli

	clr.l (a0)
	move.w #$2,(a1)
	move.w d0,intreq(a5)
	or.w #$8000,d0
	move.w d0,intena(a5)

	movem.l (sp)+,d0-d3/a0-a5
	rts

aud1state: dc.b 0
aud2state: dc.b 0
aud3state: dc.b 0
aud4state: dc.b 0

auddone:move.l a0,-(sp)
	move.l customm(pc),a0
	btst #10,intreqr(a0)
	bne.s chan4
	btst #9,intreqr(a0)
	bne.s chan3
	btst #8,intreqr(a0)
	bne.s chan2
;chn1
	move.w #$0001,dmacon(a0)
	move.w #$0080,intreq(a0)
	clr.b aud1state
	move.w #$0080,intena(a0)
brack:	move.l (sp)+,a0
	rte

chan4:	move.w #$0008,dmacon(a0)
	move.w #$0400,intreq(a0)
	clr.b aud4state
	move.w #$0400,intena(a0)
	bra.s brack
chan3:	move.w #$0004,dmacon(a0)
	move.w #$0200,intreq(a0)
	clr.b aud3state
	move.w #$0200,intena(a0)
	bra.s brack
chan2:	move.w #$0002,dmacon(a0)
	move.w #$0100,intreq(a0)
	clr.b aud2state
	move.w #$0100,intena(a0)
	bra.s brack

; period: dc.w 215

cra:	dc.b 0
crb:	dc.b 0

bwait:	btst #14,dmaconr+custom
	bne.s bwait
	rts

dosopen:move.l $4.w,a5
	lea disk(pc),a1
	clr.l d0
	jsr -$228(a5)
	move.l d0,dosbase
	rts

dosclose: move.l $4.w,a6
	move.l dosbase(pc),a1
	jsr -$19e(a6)
	rts

disk:	dc.b "dos.library",0
dosbase: dc.l 0

count:	dc.w 0
demo:	dc.w 0
prevc:	dc.w $2a3f
changediss: dc.b 0
sleep:	dc.b 0
sistavalete:dc.b 0
movin:	dc.b 0
wall24:	dc.b 0
minkkinen:dc.b 0
dangersone:
dangerzone:dc.b 0
cokin:	dc.b 0

vin:	move.w dirpos,d0
	lsl.w #2,d0
	lea masterstr+18,a0
	add.w d0,a0
	move.l (a0),d0
	bclr #31,d0
	beq.s same
	move.l d0,a0
	btst #0,(a0)
	beq.L won
	bra.s sane
same:	move.l d0,a0
	btst #0,(a0)
	bne.L won
sane:	move.l d0,a0
	bra.s warfor

mono:	st dangerzone
	bsr.L bwait
	move.l customm(pc),a6

	tst.b masterstr+1
	beq.S vin
	move.b movin(pc),d2
	beq.L won
	move.l masterstr+18,a0
warfor:	bchg #0,(a0)
	move.l 2(a0),a0
	clr.l madelaan

	move.w masterstr+96,d0
	lsl.w #6,d0
	or.w #18,d0
	move.w d0,uuh3

	move.w masterstr+96,d0
	move.w d0,d3
	lsl.w #5,d0
	lsl.w #2,d3
	add.w d0,d3
	move.w d3,uuh2

	moveq #%10,d2
	move.w masterstr+96,d1
	moveq #18,d0
	moveq #1,d7
	moveq #18,d4
	moveq #0,d5
	move.b masterstr+42,uuuh+1
	moveq #0,d3
gyp:	btst d3,masterstr+62
	bne.s gus
	move.l buffr(pc),a1
	bsr.L burst
	bsr.s aka
	add.w uuh2(pc),a0
gus:	addq.w #1,d3
	subq.b #1,uuuh+1
	bne.s gyp

	bra.L won
aka:
	move.l #-1,bltafwm(a6)
	clr.w bltcon1(a6)
	move.l a0,bltdpt(a6)
	move.l a1,bltapt(a6)
	clr.w bltdmod(a6)
	clr.w bltamod(a6)
	move.w #%100111110000,bltcon0(a6)
	move.w uuh3(pc),bltsize(a6)
	rts
bakabullor:
	move.l #-1,bltafwm(a6)
	clr.w bltcon1(a6)
	move.l a0,bltdpt(a6)
	move.l a1,bltapt(a6)
	clr.w bltdmod(a6)
	clr.w bltamod(a6)
	move.w #%100111110000,bltcon0(a6)
	move.w uuh3(pc),bltsize(a6)
	rts

uuuh:	dc.w 0
uuh2:	dc.w 0
uuh3:	dc.w 0

jin:	move.w dirpos,d0
	lsl.w #2,d0
	lea masterstr+2,a0
	add.w d0,a0
	move.l (a0),d0
	bclr #31,d0
	beq.s qame
	move.l d0,a0
	btst #0,(a0)
	beq.L jep
	bra.s qane
qame:	move.l d0,a0
	btst #0,(a0)
	bne.L jep
qane:	bra.s varf

won:
	tst.b masterstr
	beq.s jin
	move.b movin(pc),d0
	beq.L jep
	move.l masterstr+2,a0
varf:	bchg #0,(a0)
	move.l 2(a0),a0
	moveq #0,d0
	move.l d0,madelaan

	move.b masterstr+79,d0
	lsl.w #6,d0
	or.w #18,d0
	move.w d0,uuh3

	moveq #0,d0
	move.b masterstr+79,d0
	move.w d0,d3
	lsl.w #5,d0
	lsl.w #2,d3
	add.w d0,d3
	move.w d3,uuh2

	moveq #%10,d2
	moveq #0,d1
	move.b masterstr+79,d1
	moveq #18,d0
	moveq #1,d7
	moveq #18,d4
	moveq #0,d5
	move.b masterstr+43,uuuh
	moveq #0,d3
gloop:	btst d3,masterstr+63
	bne.s gust
	move.l buffr(pc),a1
	bsr.L burst
	bsr.L bakabullor
	add.w uuh2(pc),a0
gust:	addq.w #1,d3
	subq.b #1,uuuh
	bne.s gloop

jep:	lea ras1(pc),a0
	move.w #4,bltdmod(a6)
	clr.w bltamod(a6)
	moveq #-1,d0
	move.l d0,bltafwm(a6)

	move.l masterstr+18,a2
	tst.b masterstr+1
	bne.s tuhis
	move.w dirpos,d7
	lsl.w #2,d7
	lea masterstr+18,a3
	move.l 0(a3,d7.w),d7
	bclr #31,d7
	move.l d7,a2
tuhis:	move.l 2(a2),a2

	lea bltapt(a6),a4
	lea bltdpt(a6),a1

	move.w masterstr+96,d7
	beq.s nyhj
	lsl.w #6,d7
	or.w #18,d7
	clr.w bltcon1(a6)

	move.w masterstr+44,d0
	move.w d0,d2
	lsl.w #5,d0
	lsl.w #3,d2
	add.w d2,d0
	move.w d0,a3

	move.w masterstr+96,d0
	move.w d0,d3
	lsl.w #5,d0
	lsl.w #2,d3
	add.w d0,d3

	moveq #0,d0
	move.b masterstr+42,d0
	subq.w #1,d0

	lea ras1(pc),a0
	moveq #0,d4
	move.b masterstr+62,d5
geee3:	bsr.L bwait
	move.l (a0)+,d2
	add.l a3,d2
	move.l d2,(a1)

	move.w #%100000000,bltcon0(a6)
	btst d4,d5
	bne.s nub
	move.w #%100111110000,bltcon0(a6)
	move.l a2,(a4)
	add.w d3,a2
nub:	move.w d7,bltsize(a6)

	addq.w #1,d4
	dbf d0,geee3




nyhj:	moveq #0,d1
	move.b masterstr+79,d1
	beq.L yhja
	lsl.w #6,d1
	or.w #18,d1
	lea ras1(pc),a0

	move.l masterstr+2,a5
	tst.b masterstr+1
	bne.s this
	move.w dirpos,d7
	lsl.w #2,d7
	lea masterstr+2,a3
	move.l 0(a3,d7.w),d0
	bclr #31,d0
	move.l d0,a5
this:	move.l 2(a5),a5

	move.w masterstr+46,d0
	move.w d0,d2
	lsl.w #5,d0
	lsl.w #3,d2
	add.w d2,d0
	move.w d0,a3

	moveq #0,d0
	move.b masterstr+79,d0
	move.w d0,d3
	lsl.w #5,d0
	lsl.w #2,d3
	add.w d0,d3

	moveq #0,d0
	move.b masterstr+43,d0
	subq.w #1,d0
	bsr.L bwait
	moveq #0,d4
	move.b masterstr+63,d5
kepu:	move.l (a0)+,d2
	add.w a3,d2
	move.l d2,(a1)

	move.w #%100000000,bltcon0(a6)
	btst d4,d5
	bne.s niini
	move.w #%100111110000,bltcon0(a6)
	move.l a5,(a4)
	add.w d3,a5
niini:	move.w d1,bltsize(a6)

	addq.w #1,d4
	bsr.L bwait

	dbf d0,kepu

yhja:	moveq #0,d1
	moveq #0,d2
	move.w dirpos,d0
	bne.s fugger
	move.w masterstr+34,d3
	beq.L pucx
	move.b masterstr+50,d0
	move.b masterstr+51,d1
	move.b masterstr+52,d2
	bra.s tuqx
fugger:	cmp.w #1,d0
	bne.s gerx
	move.w masterstr+36,d3
	beq.s pucx
	move.b masterstr+53,d0
	move.b masterstr+54,d1
	move.b masterstr+55,d2
	bra.s tuqx
gerx:	cmp.w #2,d0
	bne.s xreg
	move.w masterstr+38,d3
	beq.s pucx
	move.b masterstr+56,d0
	move.b masterstr+57,d1
	move.b masterstr+58,d2
	bra.s tuqx
xreg:	move.w masterstr+40,d3
	beq.s pucx
	move.b masterstr+59,d0
	move.b masterstr+60,d1
	move.b masterstr+61,d2
tuqx:	lea gel1-20,a0
	lsl.w #2,d3
	add.w d3,a0
	lsl.w #2,d3
	add.w d3,a0
	bsr.L bwait
	clr.w heightny
	clr.w supermask
	bsr.L dothejob
	bsr.L bwait
pucx:	clr.b dangerzone
	rts


keyread:lea keybuffer,a0
	move.l a0,a1
	moveq #0,d0
	move.b (a0)+,d0
	cmp.b #$ff,d0
	beq.s nokeys
	moveq #19,d1
wrx:
	move.b (a0)+,(a1)+
	dbf d1,wrx
	st (a1)
	bsr.L testkey ;d0=key
nokeys:	move.b dumpkey(pc),d0
	beq.s lechi
	tst.b txwrit
	beq.s lechi
	subq.b #1,keybak
	bpl.s lechi
	move.b keytime2(pc),keybak
	bsr.L testkey2
lechi:	rts

statusscreen:
	dc.w 0

color1save:dc.w $222
color2save:dc.w $444
color3save:dc.w $666
color4save:dc.w $888
color5save:dc.w $aaa
color6save:dc.w $ccc
color7save:dc.w $eee


keyboard:movem.l d0-d1/a0,-(sp)
	lea ciaa,a0
	move.b rd(a0),d1
	moveq #0,d0
	move.b rc(a0),d0

	move.b #$3,r4(a0)
	move.b #$00,r5(a0)
	move.b #%11010001,re(a0)
	clr.b rc(a0)
euqal:
	move.b rd(a0),d1
	and.b #8,d1
	beq.s euqal
lowactive:
	move.b #%00000000,re(a0)
	ror.b #1,d0
	not.b d0
	bclr #7,d0
	bne.s baal

	bsr.L enterkey

lonks:	move.w #$8,intreq+custom
	movem.l (sp)+,d0-d1/a0
	rte

baal:	clr.b dumpkey
	cmp.b #$61,d0
	beq.s hiin
	cmp.b #$60,d0
	bne.s lonks
hiin:	clr.b shift
	bra.s lonks

rr1:	dc.w 0
rr2:	dc.w 0
rr3:	dc.w 0

dmg: dc.b 0
chas: dc.b 0

prelude:move.w (a1)+,d0
	move.w (a1)+,d2
	move.w (a1)+,d1
	move.w (a1)+,d3
	rts

notfina:cmp.b #1,d7
	beq.s filetta
	bgt.s finetto
	bsr.s prelude
	bsr.L linedraw
	bsr.s prelude
	bsr.L linedraw
	bsr.s prelude
	bsr.L linedraw
	bsr.s prelude
	bsr.L linedraw
	rts
filetta:
	bsr.s prelude
	bsr.s yellowdraw
	bsr.s prelude
	bsr.s yellowdraw
	bsr.s prelude
	bsr.s yellowdraw
	bsr.s prelude
	bsr.s yellowdraw
	rts
finetto:bsr.s prelude
	bsr.s reddraw
	bsr.s prelude
	bsr.s reddraw
	bsr.s prelude
	bsr.s reddraw
	bsr.s prelude
	bsr.s reddraw
	rts
yellowdraw:
	move.l a0,aanolla
	move.l ras1(pc),a0
	bsr.L tyy
	move.l ras2(pc),a0
	bsr.L tyy
	move.l ras3(pc),a0
	bsr.L tyy
	move.l ras4(pc),a0
	bsr.L tyy
	rts
reddraw:move.l a0,aanolla
	move.l ras4(pc),a0
	bsr.L tyy
	move.l ras5(pc),a0
	bsr.L tyy
	move.l ras1(pc),a0
	bsr.L tyy
dldlaa:	rts

fiina:	bra.L notfina

r1state:dc.b 0
r2state:dc.b 0
r3state:dc.b 0
r4state:dc.b 0
r5state:dc.b 0
r6state:dc.b 0
r7state:dc.b 0
	dc.b 0
vorking:dc.b $ff
tuutmir:dc.b 0
newtalk:dc.b 0
byetxt:	dc.b 0
bye2:	dc.b 0
result:	dc.b 0
talkshow:
	tst.b askstr
	beq.L tree
	tst.b vorking
	bne.L tree
	lea tuutmir(pc),a5
	lea askstr(pc),a6
	lea cmdstr,a0
	lea scrcmd(pc),a1
	moveq #35,d0
kiitos:	move.b (a0),d1
	move.b d1,(a1)
	tst.b (a5)
	beq.s peecc
	clr.b (a0)
peecc:	addq.w #1,a0
	addq.w #1,a1
	tst.b d1
	dbeq d0,kiitos
	tst.b (a5)
	beq.s chic
	st result
	subq.w #1,a1
	bra.s urg
chic:	move.b #'@',-(a1)
	addq.w #1,a1

urg:	move.b #" ",(a1)+
	tst.b (a1)
	bne.s urg

	lea scrcmd-1(pc),a0
	move.w #168,d1
	moveq #0,d0
	moveq #0,d2
	moveq #-2,d3
	st dangersone
	bsr.L textwrite
	clr.b dangersone
	tst.b (a5)
	beq.s freee
	clr.b (a5)
	clr.b (a6)
freee:	bra.L tree





rege:	tst.b talk
	bne.L talkshow
	bsr.L bwait
	st dangerzone

	move.l customm(pc),a6
	moveq #-1,d0
	move.l d0,bltafwm(a6)
	clr.w bltcon1(a6)
	clr.w bltamod(a6)
	moveq #20,d1
	lsl.w #6,d1
	or.w #2,d1

	lea rrock1,a2
	lea r1state(pc),a3
	moveq #6,d7
	moveq #36,d6
	move.w d6,bltdmod(a6)
	move.w #%100111110000,bltcon0(a6)
poppa:	moveq #2,d0
	tst.b (a3)+
	beq.s uninvi
	move.l 4(a2),bltapt(a6)
	bra.s adx

uninvi:	move.l (a2),bltapt(a6)
adx:	addq.w #8,a2
	lea ras1(pc),a0

aaxx:	move.l (a0)+,a4
	add.w d6,a4
	move.l a4,bltdpt(a6)
	move.w d1,bltsize(a6)

	bsr.L bwait

	dbf d0,aaxx

	add.w #840,d6

	dbf d7,poppa

	clr.w dangerzone

	move.b #3,r7state+1

	bsr.L getem

	move.b 98(a0),d7
	lea headtable,a1
	bsr.L fiina

	move.b 101(a0),d7
	lea breasttable,a1
	bsr.L fiina
	move.b 103(a0),d7
	lea upperfoottable,a1
	bsr.L fiina
	move.b 102(a0),d7
	lea lowerfoottable,a1
	bsr.L fiina
	move.b 99(a0),d7
	lea lefthandtable,a1
	bsr.L fiina
	move.b 100(a0),d7
	lea righthandtable,a1
	bsr.L fiina
	move.b 99(a0),d7
	lea upperringtable,a1
	bsr.L fiina
	move.b 100(a0),d7
	lea lowerringtable,a1
	bsr.L fiina

	move.l (a0),a0
	
	moveq #0,d0
	moveq #1,d1
	moveq #0,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	lea taapeli,a0
logi:	move.w (a0)+,d0
	bmi.s mito
	move.w (a0)+,d2
	move.w (a0)+,d1
	move.w (a0)+,d3
	bsr.L linedraw
	bra.s logi
mito:	lea rnsm(pc),a0
	moveq #0,d0
	moveq #0,d1
	moveq #0,d3
reku:	move.w (a0)+,d0
	bmi.L raka
	move.w (a0)+,d1
	move.w (a0)+,d3
	bsr.L plazeitem
	tst.l ausnahme
	beq.s reku
	moveq #41,d0
	moveq #4,d1
	moveq #12+21,d3
	bsr.L plazeitem
	bra.s reku


runo:	ext.w d7
	lsl.w #3,d7
	move.w 0(a1,d7.w),d0
	move.w 2(a1,d7.w),d1
	move.w 4(a1,d7.w),d3
	bsr.L plazeitem
	rts

raka:	bsr.L getem

	lea rapu(pc),a1
	move.b 99(a0),d7
	bsr.s runo
	lea rapu2(pc),a1
	move.b 100(a0),d7
	bsr.s runo
	lea rapu3(pc),a1
	move.b 98(a0),d7
	bsr.s runo
	lea rapu4(pc),a1
	move.b 103(a0),d7
	bsr.s runo
	lea rapu5(pc),a1
	move.b 102(a0),d7
	bsr.s runo
	lea rapu6(pc),a1
	move.b 99(a0),d7
	bsr.s runo
	lea rapu7(pc),a1
	move.b 100(a0),d7
	bsr.s runo
	lea rapu8(pc),a1
	move.b 101(a0),d7
	bsr.s runo

	move.w 68(a0),d4
	beq.s closedc
	lea taapeli2,a0
hey:
	move.w (a0)+,d0
	bmi.s closedc
	move.w (a0)+,d2
	move.w (a0)+,d1
	move.w (a0)+,d3
	bsr.L linedraw

	bra.s hey
closedc:

	moveq #0,d0
	move.b statusscreen(pc),d0
	lsl.w #2,d0
	lea party-4(pc),a0
	move.l 0(a0,d0.w),a0
	lea joss(pc),a1

sut:
	move.w (a1)+,d0
	bmi.s llich
	move.w 0(a0,d0.w),d0
	beq.s ratt
	lea thingplaces-24,a2
	lsl.w #3,d0
	add.w d0,a2
	add.w d0,a2
	add.w d0,a2
	move.l 12(a2),a2
	move.w (a2),d0

	move.w (a1)+,d1
	move.w (a1)+,d3

	bsr.L plazeitem

	bra.s sut

ratt:
	addq.w #4,a1
	bra.s sut

llich:

	bsr.L getem
	tst.w 68(a0)
	beq.L lich
	lea mamq(pc),a1

stt:
	move.w (a1)+,d0
	bmi.L lich
	move.w 0(a0,d0.w),d0
	beq.s catt
	lea thingplaces-24,a2
	lsl.w #3,d0
	add.w d0,a2
	add.w d0,a2
	add.w d0,a2
	move.l 12(a2),a2
	move.w (a2),d0

	move.w (a1)+,d1
	move.w (a1)+,d3

	bsr.L plazeitem

	bra.s stt

catt:
	addq.w #4,a1
	bra.s stt

logical:dc.b 0
weights:dc.b "WEIGHTS "
fjarde:	dc.b 0
tredje:	dc.b 0
andra:	dc.b 0
	dc.b "."
forsta:	dc.b 0
	dc.b " KG",0,0

str:	dc.b "STRENGHT",0
str2:	dc.b 0
str1:	dc.b 0
	dc.b " / "
strm2:	dc.b 0
strm1:	dc.b 0
	dc.b 0

con:	dc.b "CONSTITUTION",0
con2:	dc.b 0
con1:	dc.b 0
	dc.b " / "
conm2:	dc.b 0
conm1:	dc.b 0
	dc.b 0

int:	dc.b "INTELLIGENCE",0
int2:	dc.b 0
int1:	dc.b 0
	dc.b " / "
intm2:	dc.b 0
intm1:	dc.b 0
	dc.b 0

wis:	dc.b "WISDOM",0
wis2:	dc.b 0
wis1:	dc.b 0
	dc.b " / "
wism2:	dc.b 0
wism1:	dc.b 0
	dc.b 0

dex:	dc.b "DEXTERITY",0
dex2:	dc.b 0
dex1:	dc.b 0
	dc.b " / "
dexm2:	dc.b 0
dexm1:	dc.b 0
	dc.b 0

cha:	dc.b "CHARISMA",0
cha2:	dc.b 0
cha1:	dc.b 0
	dc.b " / "
cham2:	dc.b 0
cham1:	dc.b 0
	dc.b 0
	dc.b 0

stru:	dc.b "           "
klaz:	dc.b "        ",0
stru2:	dc.b "EXP. "
ex7:	dc.b '9' ;$ff
ex6:	dc.b '9' ;$ff
ex5:	dc.b '9' ;$ff
ex4:	dc.b '9' ;$ff
ex3:	dc.b '9' ;$ff
ex2:	dc.b '9' ;$ff
ex1:	dc.b '9' ;$ff
	dc.b " POINTS",0
inf:	dc.b "INFRAVISUAL ABILITY",0
mone:	dc.b "WEALTH "
mo7:	dc.b '9' ;$ff
mo6:	dc.b '9' ;$ff
mo5:	dc.b '9' ;$ff
mo4:	dc.b '9' ;$ff
mo3:	dc.b '9' ;$ff
mo2:	dc.b '9' ;$ff
mo1:	dc.b '9' ;$ff
	dc.b ' GP',0
tggt:	dc.b "(EDIBLE)",0
dldl:	dc.b "Sleeping",0
dydy:	dc.b "Flow of time frozen",0
off:	dc.b "It's cursed. You can't get rid of it.",0
once:	dc.b 0
	dc.b ")"
scrcmd:	dc.b "                                   "
return:	dc.b $0
beang:	dc.b 0
even

lich:
	move.l ausnahme(pc),d0
	bne.L hap
	bsr.L getem

	move.l 108(a0),d0
	bsr.L todeci

	lea jd6(pc),a2
	lea ex7(pc),a1
	moveq #6,d0
	moveq #48,d2
lk:	move.b (a2)+,(a1)
	add.b d2,(a1)+
	dbf d0,lk

	move.l money(pc),d0
	bsr.L todeci

	lea jd6(pc),a2
	lea mo7(pc),a1
	moveq #6,d0
	moveq #48,d2
lkaa:	move.b (a2)+,(a1)
	add.b d2,(a1)+
	dbf d0,lkaa

	lea ex7(pc),a1
	moveq #5,d3
fgmode:	cmp.b (a1),d2
	bne.s irti
	st (a1)+
	dbf d3,fgmode
irti:

	lea mo7(pc),a1
	moveq #5,d3
fgm:	cmp.b (a1),d2
	bne.s iris
	st (a1)+
	dbf d3,fgm
iris:

	lea stru(pc),a1
	lea nams(pc),a2
	move.b 112(a0),d0
tutt:	subq.b #1,d0
	beq.s taran
utt:	tst.b (a2)+
	bne.s utt
	bra.s tutt
taran:	moveq #9,d0
taya:	move.b (a2)+,(a1)+
	dbeq d0,taya
	subq.w #1,a1
	moveq #" ",d3
mank:	move.b d3,(a1)+
	dbf d0,mank


	moveq #0,d0
	move.b 113(a0),d0
	lsl.w #3,d0
	lea class1-8,a1
	add.w d0,a1
	lea klaz+1(pc),a2

fefe:	move.b (a1)+,(a2)+
	bne.s fefe

	move.l a0,a5

	move.b 114(a0),d0
	mulu #9,d0
	lea race1-9,a0
	add.w d0,a0
	moveq #7,d0
	move.w #112+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	lea stru(pc),a0
	moveq #7,d0
	move.w #122+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea stru2(pc),a0
	moveq #7,d0
	move.w #132+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	lea mone(pc),a0
	moveq #7,d0
	move.w #152+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	tst.b 81(a5)
	beq.s mamaa
	moveq #7,d0
	move.w #142+21,d1
	lea inf(pc),a0
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait	
mamaa:

hap:	move.l ausnahme(pc),d0
	beq.L valm
	bpl.L kans
	move.l d0,a1

	bsr.L getem
	move.l a0,a2

	move.w 88(a2),d0
	lea str2(pc),a0
	bsr.L oxygene
	move.w 88(a2),d0
	lea strm2(pc),a0
	bsr.L oxygene
	move.w 90(a2),d0
	lea con2(pc),a0
	bsr.L oxygene
	move.w 90(a2),d0
	lea conm2(pc),a0
	bsr.L oxygene
	move.w 92(a2),d0
	lea int2(pc),a0
	bsr.L oxygene
	move.w 92(a2),d0
	lea intm2(pc),a0
	bsr.L oxygene
	move.w 94(a2),d0
	lea wis2(pc),a0
	bsr.L oxygene
	move.w 94(a2),d0
	lea wism2(pc),a0
	bsr.L oxygene
	move.w 96(a2),d0
	lea dex2(pc),a0
	bsr.L oxygene
	move.w 96(a2),d0
	lea dexm2(pc),a0
	bsr.L oxygene
	move.w 120(a2),d0
	lea cha2(pc),a0
	bsr.L oxygene
	move.w 120(a2),d0
	lea cham2(pc),a0
	bsr.L oxygene

	lea str(pc),a0
	moveq #7,d0
	moveq #88+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea str2(pc),a0
	moveq #13,d0
	moveq #88+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea con(pc),a0
	moveq #7,d0
	moveq #98+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea con2(pc),a0
	moveq #13,d0
	moveq #98+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea dex(pc),a0
	moveq #7,d0
	move.w #108+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea dex2(pc),a0
	moveq #13,d0
	move.w #108+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea int(pc),a0
	moveq #7,d0
	move.w #118+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea int2(pc),a0
	moveq #13,d0
	move.w #118+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea wis(pc),a0
	moveq #7,d0
	move.w #128+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea wis2(pc),a0
	moveq #13,d0
	move.w #128+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea cha(pc),a0
	moveq #7,d0
	move.w #138+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea cha2(pc),a0
	moveq #13,d0
	move.w #138+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	bra.L thought
oxygene:
	bsr.L todeci
	move.b jd0(pc),d0
	move.b jd1(pc),d1
	moveq #48,d4
	add.w d4,d0
	add.w d4,d1
	cmp.w d4,d1
	bne.s dest
	moveq #32,d1
dest:	move.b d1,(a0)+
	move.b d0,(a0)+
	rts

kans:
	move.l d0,a1
	move.l 12(a1),a0
	lea 50(a0),a0
	moveq #7,d0
	moveq #78+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	move.l 12(a1),a0
	tst.w 26(a0)
	beq.s viuu1
	lea tggt(pc),a0
	moveq #7,d0
	moveq #98+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	move.l 12(a1),a0
viuu1:	move.w 30(a0),d0
	ext.l d0
	bsr.L todeci
	move.b jd0(pc),d0
	move.b jd1(pc),d1
	move.b jd2(pc),d2
	move.b jd3(pc),d3
	moveq #48,d4
	add.b d4,d0
	add.b d4,d1
	add.b d4,d2
	add.b d4,d3
	cmp.b d4,d3
	bne.s eijayniin
	st d3
jayniin:
	cmp.b d4,d2
	bne.s eijayniin
	st d2
eijayniin:
	move.b d3,fjarde
	move.b d2,tredje
	move.b d1,andra
	move.b d0,forsta
	lea weights(pc),a0
	moveq #7,d0
	moveq #88+21,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

	bra.L thought

getem:	move.w d0,-(sp)
	moveq #0,d0
	move.b statusscreen(pc),d0
	lsl.w #2,d0
	lea party-4(pc),a0
	add.w d0,a0
	move.l (a0),a0
	move.w (sp)+,d0
	rts

fo:	dc.b "FOOD",0
wa:	dc.b "WATER",0
wen:	dc.b 0

valm:
	bsr.s getem

	moveq #0,d5
	move.b 86(a0),d7
	cmp.b #20,d7
	blt.s leqel
	moveq #%101001,d6
	bsr.s viivaa
	bra.s innoc
leqel:	cmp.b #8,d7
	bgt.s eeli
	moveq #%11000,d6
	bsr.s viivaa
	bra.s innoc
eeli:	moveq #%1110,d6
	bsr.s viivaa
innoc:

	moveq #1,d5
	move.b 87(a0),d7
	cmp.b #20,d7
	blt.s leqel2
	moveq #%10110,d6
	bsr.s viivaa
	bra.L innoc2
leqel2:	cmp.b #8,d7
	bgt.L eeli2
	moveq #%11000,d6
	bsr.s viivaa
	bra.L innoc2

viivaa:	btst #0,d6
	beq.s eval1
	move.l ras1(pc),a1
	bsr.s viva
eval1:	btst #1,d6
	beq.s eval2
	move.l ras2(pc),a1
	bsr.s viva
eval2:	btst #2,d6
	beq.s eval3
	move.l ras3(pc),a1
	bsr.s viva
eval3:	btst #3,d6
	beq.s eval4
	move.l ras4(pc),a1
	bsr.s viva
eval4:	btst #4,d6
	beq.s eval5
	move.l ras5(pc),a1
	bsr.s viva
eval5:	btst #5,d6
	beq.s eval6
	move.l ras6(pc),a1
	bsr.s viva
eval6:	rts

viva:	tst.w d5
	beq.s viivaa2
	add.w #640,a1
viivaa2:add.w #4080+21,a1
	move.w d7,d0
	ext.w d0
	moveq #7,d1
	move.w d0,d2
	lsr.w #3,d2
	and.w #$7,d0
	move.w #%1111111100000000,d4
	lsr.w d0,d4
fill:	move.l a1,a2
	move.w d2,d3
unh:	st (a2)+
	dbf d3,unh
	and.b d4,-(a2)

	add.w #40,a1
	dbf d1,fill
	rts


eeli2:	moveq #%1110,d6
	bsr.L viivaa
innoc2:




	lea fo(pc),a0
	moveq #7,d0
	moveq #103,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait
	lea wa(pc),a0
	moveq #7,d0
	moveq #119,d1
	moveq #4,d2
	moveq #-2,d3
	bsr.L textwrite
	bsr.L bwait

thought:bsr.L getem
	move.l a0,a2

	moveq #0,d0
	moveq #0,d1
	moveq #0,d2
	move.w 70(a2),d0
	bsr.L todeci
	lea hp3(pc),a0
	bsr.L oxy

	move.w 72(a2),d0
	bsr.L todeci
	lea hpm3(pc),a0
	bsr.L oxy

	move.w 74(a2),d0
	bsr.L todeci
	lea sp3(pc),a0
	bsr.L oxy

	move.w 76(a2),d0
	bsr.L todeci
	lea spm3(pc),a0
	bsr.L oxy

	move.w 106(a2),d0
	bsr.L todeci
	lea ld3(pc),a0
	bsr.L oxy

	move.w 104(a2),d0
	bsr.L todeci
	lea ldm3(pc),a0
	bsr.L oxy

	lea hoopee(pc),a0
	moveq #0,d0
	move.w #125+21,d1
	moveq #0,d2
	moveq #-2,d3
	bsr.L textwrite
	lea stamin(pc),a0
	moveq #0,d0
	move.w #135+21,d1
	moveq #0,d2
	moveq #-2,d3
	bsr.L textwrite
	lea lod(pc),a0
	moveq #0,d0
	move.w #145+21,d1
	moveq #0,d2
	moveq #-2,d3
	bsr.L textwrite
	lea ld3(pc),a0
	moveq #0,d0
	move.w #155+21,d1
	moveq #0,d2
	moveq #-2,d3
	bsr.L textwrite


	move.w 72(a2),d0
	lsr.w #2,d0

	cmp.w 70(a2),d0
	blt.s eihanna

	lsr.w #1,d0
	cmp.w 70(a2),d0
	blt.s prt3

	move.w #5840,d0
	bsr.L kalsar
	bra.s eihanna
prt3:	move.w #5840,d0
	bsr.S kalsar2
eihanna:

	move.w 76(a2),d0
	lsr.w #2,d0

	cmp.w 74(a2),d0
	blt.s eiha

	lsr.w #1,d0
	cmp.w 74(a2),d0
	blt.s prt2

	move.w #6240,d0
	bsr.s kalsar
	bra.s eiha
prt2:	move.w #6240,d0
	bsr.s kalsar2
eiha:
	move.w 104(a2),d0
	lsr.w #2,d0
	move.w d0,d1
	add.w d0,d1
	add.w d0,d1

	cmp.w 106(a2),d1
	bgt.s eihataa

	add.w d0,d1
	cmp.w 106(a2),d1
	bgt.s prt

	move.w #6640,d0
	bsr.s kalsar
	bra.s eihataa
prt:	move.w #6640,d0
	bsr.s kalsar2
	bra.s eihataa

clear:	move.l ras2(pc),a0
	move.l ras1(pc),a1
	move.l ras4(pc),a4
	move.l ras3(pc),a5
	move.l ras5(pc),a6
	add.w d0,a0
	add.w d0,a1
	add.w d0,a4
	add.w d0,a5
	add.w d0,a6

	moveq #2,d0
	moveq #8,d4
	moveq #28,d5
	rts

kalsar2:bsr.s clear
pore:	move.w d0,d3
fobe:	move.l (a0),(a1)+
	move.l (a0),(a5)+
	move.l (a0),(a4)+
	clr.l (a0)+
	dbf d3,fobe
	add.w d5,a0
	add.w d5,a1
	add.w d5,a4
	add.w d5,a5
	dbf d4,pore

	rts

kalsar:	bsr.s clear

pore2:	move.w d0,d3
fobe2:	move.l (a0),(a1)+
	move.l (a0),(a4)+
	move.l (a0),(a6)+
	clr.l (a0)+
	dbf d3,fobe2
	add.w d5,a0
	add.w d5,a1
	add.w d5,a4
	add.w d5,a6
	dbf d4,pore2
	rts

eihataa:bra.L tree




oxy:
	move.b jd0(pc),d0
	move.b jd1(pc),d1
	move.b jd2(pc),d2
	moveq #48,d4
	add.w d4,d0
	add.w d4,d1
	add.w d4,d2
	cmp.w d4,d2
	bne.s pest
	st d2
jrutto:	cmp.w d4,d1
	bne.s pest
	st d1
pest:	move.b d2,(a0)+
	move.b d1,(a0)+
	move.b d0,(a0)+
	rts

hoopee:	dc.b "HP "
hp3:	dc.b 0
hp2:	dc.b 0
hp1:	dc.b 0
	dc.b " / "
hpm3:	dc.b 0
hpm2:	dc.b 0
hpm1:	dc.b 0
	dc.b 0
stamin:	dc.b "SP "
sp3:	dc.b 0
sp2:	dc.b 0
sp1:	dc.b 0
	dc.b " / "
spm3:	dc.b 0
spm2:	dc.b 0
spm1:	dc.b 0
	dc.b 0
lod:	dc.b "LOAD ",0
ld3:	dc.b 0
ld2:	dc.b 0
ld1:	dc.b 0
	dc.b " / "
ldm3:	dc.b 0
ldm2:	dc.b 0
ldm1:	dc.b 0
	dc.b " KG",0
even



aanolla:dc.l 0

linedraw:move.l a0,aanolla
	move.l ras3(pc),a0
tyy:
	movem.l d0-d7/a0-a1/a6,-(sp)
	move.l customm(pc),a6
	bsr.L bwait
	st dangerzone
	move.w #$ffff,bltbdat(a6)
	move.w #$8000,bltadat(a6)
	move.w d0,rietasten
	move.w d0,d5
	lsr.w #3,d5
	move.w d1,d4
	lsl.w #3,d4
	add.w d4,d5
	lsl.w #2,d4
	add.w d4,d5
	add.w d5,d4
	lea 0(a0,d5.w),a1

	cmp.w d2,d0
	bmi.s storage

	cmp.w d1,d3
	bpl.s kumi

	move.w d0,d4
	sub.w d2,d4
	move.w d1,d5
	sub.w d3,d5

	cmp.w d4,d5
	bgt.s arnoldi
	move.w d4,d7
	move.w #%0000000001011101,d6
	bra.s inkivaari
arnoldi:
	move.w d5,d7
	move.w #%0000000001001101,d6
	exg d0,d1
	exg d2,d3
	bra.s inkivaari
kumi:	move.w d0,d4
	sub.w d2,d4
	move.w d3,d5
	sub.w d1,d5

	cmp.w d4,d5
	bgt.s arnoldi2
	move.w d4,d7
	move.w #%0000000001010101,d6
	bra.s inkivaari
arnoldi2:
	move.w d5,d7
	exg d0,d1
	exg d2,d3
	move.w #%0000000001001001,d6
	bra.s inkivaari

rietasten:dc.w 0

storage:cmp.w d3,d1
	bmi.s kumi5

	move.w d2,d4
	sub.w d0,d4
	move.w d1,d5
	sub.w d3,d5

	cmp.w d4,d5
	bgt.s ino
	move.w d4,d7
	move.w #%0000000001011001,d6
	bra.s inkivaari
ino:	move.w d5,d7
	exg d0,d1
	exg d2,d3
	move.w #%0000000001000101,d6
	bra.s inkivaari
kumi5:	move.w d2,d4
	sub.w d0,d4
	move.w d3,d5
	sub.w d1,d5

	cmp.w d4,d5
	bgt.s jugurtti
	move.w d4,d7
	move.w #%0000000001010001,d6
	bra.s inkivaari
jugurtti:exg d0,d1
	exg d2,d3
	move.w d5,d7
	move.w #%0000000001000001,d6
inkivaari:
	move.w rietasten(pc),d5
	and.w #$f,d5
	lsl.w #6,d5
	lsl.w #6,d5
	or.w d5,d6
	move.w d6,bltcon1(a6)
	or.w #%0000101111001010,d5
	move.w d5,bltcon0(a6)
	moveq #40,d5
	move.w d5,bltcmod(a6)
	move.w d5,bltdmod(a6)

	move.l a1,bltcpt(a6)
	move.l a1,bltdpt(a6)
	sub.w d0,d2
	bpl.s pooli
	neg.w d2
pooli:	sub.w d1,d3
	bpl.s pooli2
	neg.w d3
pooli2:	move.w d2,d0
	move.w d3,d1

	lsl.w #1,d3
	sub.w d2,d3
	move.w d3,bltapt+2(a6)

	lsl.w #2,d0
	lsl.w #2,d1
	move.w d1,bltbmod(a6)
	sub.w d0,d1
	move.w d1,bltamod(a6)

	addq.w #1,d7
	lsl.w #6,d7
	or.w #2,d7
	move.w d7,bltsize(a6)
	bsr.L bwait
	clr.b dangerzone
	movem.l (sp)+,d0-d7/a0-a1/a6
	move.l aanolla(pc),a0
	rts

buttonbottom: dc.b 0
minkkinen2:dc.b 0
cmdnotf:dc.b 0
	dc.b 0

dumpkey:dc.b 0
keytime:dc.b 9
keytime2:dc.b 0
keybak:	dc.b 0
even


testkey:
	move.b d0,dumpkey
	move.b keytime(pc),keybak
testkey2:
	cmp.w #$45,d0
	bne.s krunkx
	st change
	move.w #$004,intena+custom
krunkx:
	cmp.b #$60,d0
	beq.s nuht
	cmp.b #$61,d0
	bne.s nuth
nuht:	st shift
	rts
nuth:
	tst.b txwrit
	beq.L naahm
	lea rawkey,a0
	lea cmdstr,a1
	cmp.b #$44,d0
	bne.s pede
	tst.b cmdnotf
	bne.s reject
	moveq #9,d1
	lea lastcmd,a2
liur:	clr.l (a2)
	move.l (a1)+,(a2)+
	dbf d1,liur
	st cmdnotf
	st tuutmir
	lea return(pc),a0
	bsr.L talkprint
reject:	lea lastcmd,a2
uni:	cmp.b #65,(a2)
	blt.s korg
	cmp.b #90,(a2)
	bgt.s korg
	bset #5,(a2)
korg:	tst.b (a2)+
	bne.s uni
korb:	rts

pede:	moveq #39,d4
miner:	tst.b (a1)+
	dbeq d4,miner
	subq.w #1,a1
	moveq #" ",d1
disj:	move.b 1(a0),d2
	beq.s nigr
	cmp.b d2,d0
	beq.s glhl
dism:	addq.w #3,a0
	bra.s disj
glhl:	move.b 2(a0),d2
	cmp.b shift,d2
	bne.s dism
	move.b (a0),d1
	cmp.b #254,d1
	bne.s nigr
	cmp.b #39,d4
	beq.s tubo
	clr.b -(a1)
	rts
nigr:	tst.b d4
	bmi.s tubo
	move.b d1,(a1)
tubo:	rts
naahm:
	tst.b paused
	beq.s titi
	clr.b r6state
	rts
titi:	tst.b sleep
	bne.s nebu
	cmp.w #$5f,d0
	bne.S logy
nebu:	tst.b sleep
	bne.s handehoch
	st r2state
	rts
handehoch:
	clr.b r2state
	rts

hedgeh:	st sleep
	move.b #1,bak
	clr.b buk
	move.b #3,logical
	move.w #%0100001000000000,moped
	rts

log:	clr.b sleep
	bsr.L updatepalette
	clr.w haga
	move.b #10,bak
	move.w #%0110001000000000,moped
	rts

logy:	cmp.w #$42,d0
	bne.L bion
	tst.b r3state
	beq.s toggl
	clr.b r3state
	rts
toggl:	st r3state
	rts

offinfr:tst.w infrav
	beq.s hielf
	clr.w infrav
	bsr.L updatepalette
	rts
hielf:	lea party(pc),a0
	lea place1person(pc),a1
	moveq #0,d0
	bsr.s WWW
	moveq #1,d0
	bsr.s WWW
	moveq #2,d0
	bsr.s WWW
	moveq #3,d0
	bsr.s WWW
	bsr.L updatepalette
rexit:	rts

WWW:
	move.b 0(a1,d0.w),d1
	cmp.b #$3,d1
	bge.s love
	move.w d0,d1
	lsl.w #2,d1
	move.l 0(a0,d1.w),a2
	tst.b 80(a2)
	bne.s love
	tst.b 81(a2)
	beq.s love
	st infrav
love:	rts
selmem:	dc.b "Select member (1-4)",0

bion:	cmp.w #$14,d0
	bne.s krx
	st r4state
	tst.b statusscreen
	bne.s krx
	st selm
	lea selmem(pc),a0
	bsr.L print
krx:	cmp.w #$04,d0
	bgt.s mies
	move.b statusscreen(pc),d1
	cmp.b d1,d0
	beq.s ryyppy
	tst.b d0
	beq.s ryyppy
	move.b d0,statusscreen
	lsl.w #2,d0
	lea party-4(pc),a0
	add.w d0,a0
	move.l (a0),a0
	tst.b 80(a0)
	bne.s daap
	clr.b selm
	clr.w currlight
	bsr.L updatepalette
	bra.s mies
daap:	move.b d1,statusscreen
	bra.s mies
ryyppy:	tst.b r4state
	bne.s mies
	clr.w statusscreen
	st sedi+1
	st deppad+1
	st entinen
	bsr.L torchupdate
	bsr.L updatepalette

mies:	cmp.w #$20,d0
	beq.s yepo3
	cmp.w #$2d,d0
	beq.s yepo3
	cmp.w #$4f,d0
	bne.s nero
yepo3:	move.w dirpos(pc),d0
	subq.w #1,d0
	and.w #$3,d0
	move.w d0,dirpos
	rts
nero:	cmp.w #$22,d0
	beq.s yepo2
	cmp.w #$2f,d0
	beq.s yepo2
	cmp.w #$4e,d0
	bne.s nerokas
yepo2:	move.w dirpos(pc),d0
	addq.w #1,d0
	and.w #$3,d0
	move.w d0,dirpos
	rts
fileroidaan:
	dc.b "too tired! ",0
tootired:lea member1+74,a2
	tst.b 6(a2)
	bne.s o1
	tst.w (a2)
	beq.s kyllaon
o1:	lea member2+74,a2
	tst.b 6(a2)
	bne.s o2
	tst.w (a2)
	beq.s kyllaon
o2:	lea member3+74,a2
	tst.b 6(a2)
	bne.s o3
	tst.w (a2)
	beq.s kyllaon
o3:	lea member4+74,a2
	tst.b 6(a2)
	bne.s o4
	tst.w (a2)
	beq.s kyllaon
o4:	moveq #0,d1
	rts
kyllaon:lea fileroidaan(pc),a0
	bsr.L print
	moveq #1,d1
onhanse:rts

nerokas:cmp.w #$31,d0
	beq.s jolly
	cmp.w #$1d,d0
	bne.s gilgame
jolly:	subq.w #1,dirpos
	and.w #$3,dirpos
	bsr.S yepo
	addq.w #1,dirpos
	and.w #$3,dirpos
	rts
gilgame:cmp.w #$33,d0
	beq.s molly
	cmp.w #$1f,d0
	bne.s gilgeimit
molly:	addq.w #1,dirpos
	and.w #$3,dirpos
	bsr.S yepo
	subq.w #1,dirpos
	and.w #$3,dirpos
onhansed:rts
gilgeimit:
	cmp.w #$21,d0
	beq.s yepo
	cmp.w #$2e,d0
	beq.s yepo
	cmp.w #$3e,d0
	beq.s yepo
	cmp.w #$4c,d0
	bne.L joksanpoika


yepo:	bsr.L tootired
	bne.s onhansed

	move.w dirpos(pc),d0
	tst.w d0
	bne.L helloworld

kutunjuusto:
	lea wallmap,a0
	move.w ypos(pc),d1
	subq.w #1,d1
	lsl.w #5,d1
	add.w xpos(pc),d1
	add.w d1,a0
	moveq #0,d0
	move.b (a0),d0
	lea objoverlap-1,a1
	add.w d0,a1
	add.w d0,a1
	bsr.S wwiz
	beq.s kuppella
	subq.w #1,ypos
kuppella:rts
wwiz:	btst #4,(a1)
	beq.s cafee
	add.w #32,ypos
cafee:	btst #5,(a1)
	beq.s blahblah
	sub.w #32,ypos
blahblah:
	btst #7,(a1)
	beq.s ca2e
	move.b #$1,sattimaan
	bra.s nuppe
ca2e:	btst #0,-1(a1)
	beq.s b2a
	move.b #$2,sattimaan
	bra.s nuppe
b2a:
	btst #1,(a1)
	beq.s kuppe

nuppe:	bsr.L testchange
	bsr.L testcrea
kuppe:	rts


; filepointer a6
; a5 destination
; d7=lenght
opload:	bsr.L ssave
	move.l a6,d1
	move.l #$3ed,d2
	move.l dosbase(pc),a4
	jsr -$1e(a4) ;open
	tst.l d0
	beq.s ler

	move.l d0,d1
	move.l d0,d6
	move.l a5,d2
	move.l d7,d3
	
	jsr -$2a(a4) ;load

	move.l d6,d1
	jsr -$24(a4) ;close

ler:	bsr.s rstore
	rts

rstore:	move.w #%0011111111111111,intena+custom
	move.l #keyboard,$0068.w
	move.l #vbih,$006c.w
	move.l #updatescreen,$0064.w
	move.l #interval,$0078.w

	lea ciab,a4
	move.b #%01111111,rd(a4)
	move.b #%10000010,rd(a4)
	move.b #%01111111,ciaa+rd
	move.b #%10001000,ciaa+rd

	move.b #%10000000,re(a4)
	move.b #%10000000,rf(a4)

	move.w #%1010000000011100,intena+custom

	rts

; a5 destination
; d7 lenght
; filepointer a6
opsave:	bsr.s ssave
	move.l a6,d1
	move.l #$3ed,d2
	move.l dosbase(pc),a4
	jsr -$1e(a4) ;open
	tst.l d0
	beq.s ffat

	move.l d0,d1
	move.l d0,d6
	move.l a5,d2
	move.l d7,d3
	
	jsr -$30(a4) ;save

	move.l d6,d1
	jsr -$24(a4) ;close

ffat:	bsr.L rstore
	rts

ssave:	move.w #%0011111111111111,intena+custom
	lea intrequest1,a4
	move.l (a4)+,$68.w
	move.l (a4)+,$64.w
	move.l (a4)+,$6c.w
	move.l (a4)+,$78.w
	move.l (a4)+,$7c.w

	lea ciab,a4
	move.b #%10011111,rd(a4)
	move.b #%10011111,rd+ciaa
	move.b cra(pc),re(a4)
	move.b crb(pc),rf(a4)

	move.w #32,intreq+custom

	move.w oldintreq(pc),d0
	or.w #$c000,d0
	move.w d0,intena+custom


	rts

savingthrow:
	move.w #%0000001000000000,moped
	bsr.S ssave

	bsr.L thingsotku

	rts

updatus:
	bsr.L thingorder

	bsr.L rstore
	st minev
	move.b #63,r7state+1
	rts

minev:	dc.b 0
	dc.b 0

testcrea:lea creaplaces+16,a0
kuu3:
	move.l (a0)+,d0
	beq.s fortsatter3
	move.l d0,a1
	move.w 14(a1),d3
	lsl.w #5,d3
	add.w 12(a1),d3
	cmp.w d3,d1
	bne.s kuu3
	moveq #0,d0
	rts
fortsatter3:
	moveq #1,d0
	rts

helloworld:cmp.w #1,d0
	bne.S helloworld2
helloword:
	lea wallmap,a0
	move.w ypos(pc),d1
	lsl.w #5,d1
	add.w xpos(pc),d1
	addq.w #1,d1
	add.w d1,a0
	moveq #0,d0
	move.b (a0),d0
	lea objoverlap-1,a1
	add.w d0,a1
	add.w d0,a1
	bsr.L wwiz
	beq.s kuppe2
	addq.w #1,xpos
kuppe2:	rts

helloworld2:cmp.w #2,d0
	bne.s helloworld3

helloword2:
	lea wallmap,a0
	move.w ypos(pc),d1
	addq.w #1,d1
	lsl.w #5,d1
	add.w xpos(pc),d1
	add.w d1,a0
	moveq #0,d0
	move.b (a0),d0
	lea objoverlap-1,a1
	add.w d0,a1
	add.w d0,a1
	bsr.L wwiz
	beq.s kuppe3
	addq.w #1,ypos
kuppe3:	rts

helloworld3:
	lea wallmap,a0
	move.w ypos(pc),d1
	lsl.w #5,d1
	add.w xpos(pc),d1
	subq.w #1,d1
	add.w d1,a0
	moveq #0,d0
	move.b (a0),d0
	lea objoverlap-1,a1
	add.w d0,a1
	add.w d0,a1
	bsr.L wwiz
	beq.s kuppe4
	subq.w #1,xpos
kuppe4:	rts

testchange:
	btst #2,(a1)
	beq.s eikax
	addq.w #2,dirpos
	and.w #3,dirpos
eikax:	rts

joksanpoika:
	cmp.w #$32,d0
	beq.s oidipus
	cmp.w #$1e,d0
	beq.s oidipus
	cmp.w #$4d,d0
	bne.s erkinpoika
oidipus:addq.w #2,dirpos
	and.w #$3,dirpos
	bsr.L yepo
	subq.w #2,dirpos
	and.w #$3,dirpos
	rts
erkinpoika: rts

goindown:
	bset #0,buttonbottom
	bne.s din

	moveq #0,d0
	cmp.w #10,lastcursor
	bne.s hissa
	moveq #$2e,d0
hissa:	cmp.w #12,lastcursor
	bne.s mudda
	moveq #$1e,d0
mudda:	cmp.w #11,lastcursor
	bne.s mudda1
	moveq #$2f,d0
mudda1:	cmp.w #13,lastcursor
	bne.s mudda2
	moveq #$2d,d0
mudda2:
	tst.w d0
	beq.s kke

	bsr.L enterkey

	bra.s din
kke:
	lea buttonbuffer,a0
	moveq #10,d0
tuuhonen:subq.w #1,d0
	tst.l (a0)+
	bpl.s tuuhonen
	tst.w d0
	bmi.s din

doodone:move.w cursory(pc),-(a0)
	sub.w #$2a,(a0)
	move.w cursorx(pc),-(a0)
	sub.w #$3f,(a0)
	lsl.w (a0)

	tst.w cursorthing
	beq.s din
	addq.w #8,(a0)
	addq.w #8,2(a0)
din:
	rts

currx:	dc.w 0
curry:	dc.w 0
rightbutton:dc.b 0
	dc.b 1
yola:	dc.l 0


thingorder:
	move.w majorno,d0
	mulu majorln(pc),d0
	move.l majorspl,a1
	add.w d0,a1
	lea thingplaces,a0
	moveq #0,d4
verba:	tst.l 12(a0)
	beq.s ditho
	addq.w #1,d4
	add.w #24,a0
	bra.s verba
ditho:	move.l a1,yola
	lea brras5,a3 ;thingminor table
	lea 548(a3),a4 ;thingmajor table
	lea 1096(a3),a5 ;thingminor data
	lea 4384(a3),a6 ;thingmajor data

; drop double majors

	move.w majorno,d5
	move.w numberagain(pc),d0
	subq.w #1,d0
	bmi.s ruisk
	clr.w numberagain
sard:	move.w 48(a6),d1

	move.l majorspl,a2
	move.w majorno,d7
	subq.w #1,d7
eiigh:	cmp.w 48(a2),d1
	beq.s siel
	add.w majorln(pc),a2
	dbf d7,eiigh

	cmp.l #$7ff9c,a1
	bgt.s laon

	move.w majorln(pc),d6
	lsr.w #1,d6
	subq.w #1,d6
alle:	move.l (a6)+,(a1)+
	dbf d6,alle

	addq.w #1,numberagain
	addq.w #1,majorno
	bra.s laon

siel:	add.w majorln(pc),a6
laon:	dbf d0,sard
ruisk:

; add thingminors and solve memberitemno
; dissolve 12

	move.w again(pc),d0
	subq.w #1,d0
	bmi.s nytton

feffi:	move.w 12(a5),d1
	beq.s nyht

	move.l majorspl,a4
	sub.w majorln(pc),a4
rembr:	add.w majorln(pc),a4

	cmp.l #$7ff9c,a4
	blt.s lakoon
	add.w #24,a5
	bra.s diffu
lakoon:	cmp.w 48(a4),d1
	bne.s rembr

	move.l a4,12(a5)

	moveq #5,d1

	addq.w #1,d4
	move.l (a3)+,a2
	move.w d4,(a2)	
feffa:	move.l (a5)+,(a0)+
	dbf d1,feffa
diffu:	dbf d0,feffi
nyht:	clr.l 12(a0)
nytton:

; 72 and 76

	tst.w numberagain
	beq.s faf
	move.w majorno,d0
	sub.w d5,d0
	subq.w #1,d0
	move.l yola(pc),a5

karst:	move.w 76(a5),d1
	beq.s bitof
	bsr.s sehit
	move.l a2,76(a5)
bitof:
	move.w 72(a5),d1
	beq.s bitof2
	bsr.s sehit
	move.l a2,72(a5)
bitof2:
	add.w majorln(pc),a5

	dbf d0,karst
faf:
	rts

sehit:	move.l majorspl,a2
	sub.w majorln(pc),a2
njett:	add.w majorln(pc),a2
	cmp.w 48(a2),d1
	bne.s njett
	rts







thingsotku:
	move.l #brras5,a0 ;thingminor table
	move.l a0,a1
	move.w #273,d0
pato:	clr.l (a1)+
	dbf d0,pato

	clr.l again
	lea 548(a0),a1  ;thingmajor table
	lea 1096(a0),a2 ;thingminor data
	lea 4384(a0),a5 ;thingmajor data

	lea member1+6,a3
	moveq #31,d0
	bsr.L fugc
	lea member1+82,a3
	moveq #1,d0
	bsr.L fugc
	lea member2+6,a3
	moveq #31,d0
	bsr.L fugc
	lea member2+82,a3
	moveq #1,d0
	bsr.L fugc
	lea member3+6,a3
	moveq #31,d0
	bsr.L fugc
	lea member3+82,a3
	moveq #1,d0
	bsr.L fugc
	lea member4+6,a3
	moveq #31,d0
	bsr.L fugc
	lea member4+82,a3
	moveq #1,d0
	bsr.L fugc
	lea cursorthing(pc),a3
	moveq #0,d0
	bsr.L fugc

; tiivista


	lea thingplaces+4800,a3
	move.w #200,d7
	lea thingplaces-24,a4
	moveq #-1,d6
wily:	addq.w #1,d6
	add.w #24,a4
gily:	btst #7,16(a4)
	bne.s safl
	tst.l 12(a4)
	bne.s wily
safl:	subq.w #1,d7
	sub.w #24,a3
	tst.l 12(a3)
	beq.s safl

	cmp.l a4,a3
	blt.s fiqqi
	bgt.s ryhta
	bclr #7,16(a4)
	clr.l 12(a4)
	bra.s gily
ryhta:	bsr.s priri
	move.l a3,a5
	moveq #5,d1
ticd:	move.l (a5)+,(a4)+
	dbf d1,ticd
	addq.w #1,d6
	clr.l 12(a3)

	bra.s gily
priri:	lea creaplaces,a5
tyht:	move.l (a5)+,d1
	beq.s dumper
	move.l d1,a6
	move.w 48(a6),d1
	cmp.w d1,d7
	bne.s iyui
	move.w d6,48(a6)
iyui:
	move.w 50(a6),d1
	cmp.w d1,d7
	bne.s iuiy
	move.w d6,50(a6)
iuiy:
	bra.s tyht
dumper:	rts
fiqqi:

; look which majors needed

	lea thingplaces,a4
	move.w majorln(pc),d7
	lsr.w #1,d7
	subq.w #1,d7
	lea buffer,a5
	lea brras1,a1
	clr.w majorno
	move.l majorspl,a0

hijr:	move.l 12(a4),d2
	beq.s ssqx
	move.l d2,a3
	move.l 76(a3),d1
	beq.s effu
	move.l d1,a3
effu:	bset #7,47(a3)
	bne.s nermal
	addq.w #1,majorno
	move.l a3,(a5)+
	move.l a0,(a5)+
	add.w majorln(pc),a0

	move.w d7,d6
	move.l a3,a6
flaa:	move.w (a3)+,(a1)+
	dbf d6,flaa
	move.l a1,a6
	sub.w majorln(pc),a6
	bclr #7,47(a6)
	move.l a6,a3

nermal:	move.l 72(a3),d1
	beq.s eidr
	move.l d1,a3
	bra.s effu
eidr:	add.w #24,a4
	bra.s hijr
ssqx:

; copy from brras1

	move.l majorspl,a2
	lea brras1,a1
	move.w majorno,d0
	mulu majorln(pc),d0
	lsr.w #1,d0
	subq.w #1,d0
doos:	move.w (a1)+,(a2)+
	dbf d0,doos

	move.l a2,lopetus

	lea thingplaces-24,a0
antis:	add.w #24,a0
	move.l 12(a0),d0
	beq.s ohion222
	bsr.s muutama
	move.l d0,12(a0)
	move.l d0,a1
	bra.s antis
ohion222:
	move.l majorspl,a0
	move.w majorno,d2
jornoo:	subq.w #1,d2
	bmi.s ohion111
	move.l 76(a0),d0
	bsr.s muutama
	move.l d0,76(a0)

	move.l 72(a0),d0
	bsr.s muutama
	move.l d0,72(a0)

	add.w majorln(pc),a0
	bra.s jornoo
ohion111:rts

muutama:tst.l d0
	beq.s ohion111
	lea buffer-4,a1
gongo:	addq.w #4,a1
	move.l (a1)+,d1
	cmp.l d0,d1
	bne.s gongo
	move.l (a1),d0
	rts
again:	dc.w 0
numberagain:dc.w 0









fugc:	move.w (a3),d1
	beq.L proq

; copy

	addq.w #1,again
	move.l a3,(a0)+
	lsl.w #3,d1
	lea thingplaces-24,a4
	add.w d1,a4
	add.w d1,a4
	add.w d1,a4
	moveq #5,d2
	move.l 12(a4),a6
rif:	move.l (a4)+,(a2)+
	dbf d2,rif
	clr.l -12(a4)
	move.w 48(a6),-12(a2)

; test if already majorcopy in buffer

	move.l 76(a6),d1
	beq.s rruffe
	move.l d1,a6
rruffe:	lea brras5+548,a4
raun:	move.l (a4)+,d1
	beq.s proh
	cmp.l d1,a6
	beq.s proq
	bra.s raun

; copy major

proh:	addq.w #1,numberagain
	move.l a6,(a1)+
	move.w majorln(pc),d1
	lsr.w #1,d1
	subq.w #1,d1
	move.l a5,a4
rpa:	move.w (a6)+,(a5)+
	dbf d1,rpa

	sub.w majorln(pc),a6

	move.l 76(a6),d1
	beq.s imbi
	move.l a6,d3
	move.l d1,a6
	move.w 48(a6),76(a4)
	move.l d3,a6
imbi:
	move.l 72(a6),d1
	beq.S eadr
	move.l d1,a6
	move.w 48(a6),72(a4)
	bra.s rruffe
eadr:
proq:	addq.w #2,a3
	dbf d0,fugc
	rts











vbih:	movem.l d0-d7/a0-a6,-(sp)

	move.l customm(pc),a6

	lea ras1(pc),a0
	bsr.L bwait
	tst.b statusscreen
	bne.L csc

	bclr #0,logical
	bne.L csc
	bclr #1,logical
	bne.L csc
	tst.b sleep
	bne.L csc

	lea bltapt(a6),a4
	lea bltdpt(a6),a1

	moveq #0,d1
	move.b masterstr+79,d1
	beq.s hajja

; ceiling jutut

	lsl.w #6,d1
	or.w #18,d1

	moveq #5,d0

	lea ras1(pc),a0

	move.w masterstr+46,d3
	move.w d3,d4
	lsl.w #5,d3
	lsl.w #3,d4
	add.w d4,d3

	moveq #0,d4
kepuro:	move.l (a0)+,d2
	btst d4,masterstr+64
	beq.s nayta
	st dangerzone
	move.w #%0000000100000000,bltcon0(a6)
	clr.w bltcon1(a6)
	move.w #4,bltdmod(a6)
	add.w d3,d2
	move.l d2,(a1)
	move.w d1,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait
nayta:	addq.w #1,d4

	dbf d0,kepuro

; vali jutut

hajja:	move.w masterstr+48,d0
	move.w d0,d1
	lsl.w #5,d0
	lsl.w #3,d1
	add.w d1,d0
	move.w d0,a3

	move.w #186,d1
	sub.b masterstr+79,d1
	sub.w masterstr+96,d1
	ble.s tila
	lsl.w #6,d1
	or.w #18,d1
	
	moveq #5,d0
	lea ras1(pc),a0
kepurii:st dangerzone
	move.w #%0000000100000000,bltcon0(a6)
	clr.w bltcon1(a6)
	move.w #4,bltdmod(a6)
	move.l (a0)+,d2
	add.w a3,d2
	move.l d2,(a1)
	move.w d1,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait

	dbf d0,kepurii

; floor jutut

tila:	move.w masterstr+96,d7
	beq.s hajjo
	lsl.w #6,d7
	or.w #18,d7

	moveq #0,d3
	move.w masterstr+44,d3
	move.w d3,d4
	lsl.w #5,d3
	lsl.w #3,d4
	add.w d4,d3

	lea ras1(pc),a0
	moveq #5,d0
	moveq #0,d4
geee:	move.l (a0)+,d2
	btst d4,masterstr+103
	beq.s vera
	st dangerzone
	move.w #%0000000100000000,bltcon0(a6)
	clr.w bltcon1(a6)
	move.w #4,bltdmod(a6)
	add.l d3,d2
	move.l d2,(a1)

	move.w d7,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait
vera:	addq.w #1,d4
	dbf d0,geee



hajjo:	bclr #0,r7state+1
	bne.s oh
	bclr #1,r7state+1
	bne.s oh
	bclr #4,r7state+1
	beq.s ofth
oh:
	moveq #5,d0
	moveq #36,d6
	move.w #$2e02,d7
	lea ras1(pc),a0
peee:	st dangersone
	move.w #%0000000100000000,bltcon0(a6)
	move.w d6,bltdmod(a6)
	clr.w bltcon1(a6)
	move.l (a0)+,a2
	add.w d6,a2
	move.l a2,(a1)

	move.w d7,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait

	dbf d0,peee


ofth:	clr.b changediss
	move.w #$10,intena(a6)
	tst.b updateit
	beq.s tiheys
	clr.b updateit
	bsr.L updateparty
tiheys:	movem.l (sp)+,d0-d7/a0-a6
retee:	rte


csc:	clr.b logical
	clr.w bltcon1(a6)
	lea bltdpt(a6),a1
	lea dmaconr(a6),a3

	lea ras1(pc),a0
	moveq #0,d3
	moveq #18,d1
	tst.b talk
	beq.s drusus
	bclr #0,clrscr
	beq.s drusus2
	or.w #159*64,d1
	move.w #26*40,d3
	bra.s claud
drusus:	or.w #11904,d1
claud:
	moveq #5,d0
aaz:	st dangerzone
	move.w #%0000000100000000,bltcon0(a6)
	clr.w bltcon1(a6)
	move.w #4,bltdmod(a6)
	move.l (a0)+,d2
	add.w d3,d2
	move.l d2,(a1)
	move.w d1,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait

	dbf d0,aaz

drusus2:tst.b laddaa
	beq.S praa
	lea faal(pc),a6
	lea buffer,a5
	move.l #5832,d7
	bsr.L opload
	clr.b laddaa

	move.l customm(pc),a6
	lea bltdpt(a6),a1
	lea dmaconr(a6),a3

	moveq #18,d1
	or.w #27*64,d1

	moveq #5,d0
	move.w #972,d3
	lea ras1(pc),a2
	lea buffer,a0
alaaf:	st dangerzone
	move.w #%0000100111110000,bltcon0(a6)
	clr.w bltcon1(a6)
	move.w #4,bltdmod(a6)
	clr.w bltamod(a6)
	move.l (a2)+,(a1)
	move.l a0,bltapt(a6)
	add.w d3,a0
	move.w d1,bltsize(a6)
	clr.b dangerzone

	bsr.L bwait

	dbf d0,alaaf

	move.b #$83,r7state+1

praa:	bra.L hajjo

faal:	dc.b "discuss",0
buk:	dc.b 0
bak:	dc.b 10


interval:
	movem.l d0-d7/a0-a6,-(sp)
	move.w #$2000,intreq+custom

	bclr #0,teega+1
	beq.s taiga

	move.w #$ccc,bb1+58
	clr.w bb1+56
	lea cc1,a6
	lea bb1(pc),a1
	moveq #29,d1
milla:	move.w (a1)+,(a6)+
	addq.w #2,a6
	dbf d1,milla

taiga:

	addq.b #1,buk
	move.b buk(pc),d0
	cmp.b bak(pc),d0
	bne.s hiippa
	move.w #$8004,intreq+custom
	clr.b buk
hiippa:
	move.l has1,d0
	move.w d0,pt1l
	swap d0
	move.w d0,pt1h

	move.l has2,d0
	move.w d0,pt2l
	swap d0
	move.w d0,pt2h

	move.l has3,d0
	move.w d0,pt3l
	swap d0
	move.w d0,pt3h

	move.l has4,d0
	move.w d0,pt4l
	swap d0
	move.w d0,pt4h

	move.l has5,d0
	move.w d0,pt5l
	swap d0
	move.w d0,pt5h

	move.l has6,d0
	move.w d0,pt6l
	swap d0
	move.w d0,pt6h

	lea mopo2,a0
	move.w cc1,(a0)
	move.w cc1+4,4(a0)
	move.w cc1+8,8(a0)

	tst.b clearok
	bne.s nyl
	tst.b talk
	beq.s uru
	btst #1,clrscr
	bne.s uru
nyl:	st clearok
	moveq #-40,d0
	clr.w (a0)
	clr.w 4(a0)
	clr.w 8(a0)
uru:
	tst.b minev+1
	beq.s lugu
	clr.w minev
	move.w #%0110001000000000,moped
lugu:
	lea curry+2(pc),a0
	bsr.L doodone
	move.b pot0dat+custom,d0
	clr.b rightbutton
	cmp.b rightbutton+1(pc),d0
	beq.s roa
	move.b d0,rightbutton+1
	st rightbutton
roa:
	move.w cursorthing(pc),d1
	move.w lastcursorthing(pc),d0
	beq.s stalag
	cmp.w d0,d1
	beq.L mitatammosta
	lea thingplaces-24,a0
	lsl.w #3,d0
	add.w d0,a0
	add.w d0,a0
	add.w d0,a0
	btst #13,18(a0)
	beq.s kuus
	st deppad+1
	st sedi+1
kuus:	move.l cursordats1+2(pc),2(a0)
	move.l cursordats1+12(pc),12(a0)
	move.w cursordats1+18(pc),d0
	or.w d0,18(a0)

stalag:	move.w d1,lastcursorthing
	beq.s blanking
	lea thingplaces-24,a0
	lsl.w #3,d1
	add.w d1,a0
	add.w d1,a0
	add.w d1,a0
	btst #13,18(a0)
	beq.s viis
	st deppad+1
	st sedi+1
viis:	moveq #5,d0
	move.l a0,a2
	lea cursordats1(pc),a1
yritan:	move.l (a0)+,(a1)+
	dbf d0,yritan
	move.l 12(a2),a0
	move.w (a0),currentcursor
	moveq #17,d0
	lea cursordats2(pc),a1
yyritan:move.l (a0)+,(a1)+
	dbf d0,yyritan
	bra.s mitatammosta
dats3:	dc.l 0
blanking:
	move.w #9,currentcursor
	moveq #5,d0
	lea cursordats1(pc),a0
stigmata:clr.l (a0)+
	dbf d0,stigmata

	moveq #17,d0
	lea cursordats2(pc),a0
blan:	clr.l (a0)+
	dbf d0,blan

mitatammosta:
	lea lastcursor(pc),a5
	lea makecursor(pc),a6
	move.w cursory(pc),d3
	move.w cursorx(pc),d2
	tst.b statusscreen
	bne.s punaiset
	cmp.w #50+$2a,d3
	bgt.s punaiset
	cmp.w #128+$3f,d2
	bgt.S punaiset
	move.w bcursory(pc),d0
	move.w bcursorx(pc),d1
	sub.w d3,d0
	sub.w d2,d1
	tst.w d1
	beq.s sivulle
	bmi.s alasp
	cmp.w #2,d1
	blt.s oneand
	moveq #13,d0
	move.w d0,(a5)
	jsr (a6)
	bra.s oneand
alasp:	cmp.w #-2,d1
	bgt.s oneand
	moveq #11,d0
	move.w d0,(a5)
	jsr (a6)
	bra.s oneand
sivulle:tst.w d0
	beq.s oneand
	bmi.s vasemp
	cmp.w #2,d0
	blt.s oneand
	moveq #10,d0
	move.w d0,(a5)
	jsr (a6)
	bra.s oneand
vasemp:	cmp.w #-2,d0
	bgt.s oneand
	moveq #12,d0
	move.w d0,(a5)
	jsr (a6)
oneand:	bra.L onyxbonyx


punaiset:
	tst.b inaction
	bne.L onyxbonyx
	tst.l hitzeit1
	bne.L onyxbonyx
	tst.l hitzeit1+4
	bne.L onyxbonyx

	tst.b dangerzone
	bne.L onyxbonyx

	move.b cursorperson(pc),d0
	bne.L onyxbonex

	tst.b cokin
	bne.s tanalfa

	move.w lastcursor(pc),d0
	cmp.w currentcursor(pc),d0
	beq.L onyxbonex

tanalfa:clr.b cokin
	move.w cursorthing(pc),d0
	move.w d0,d7

	lea rras1+8680,a0
	move.w #160,d1
ballet:	clr.l (a0)+
	dbf d1,ballet

	tst.w d7
	beq.s vapau
	lsl.w #3,d0
	lea thingplaces-24,a0
	add.w d0,a0
	add.w d0,a0
	add.w d0,a0
	move.l 12(a0),a0
	lea 50(a0),a0
	moveq #0,d0
	move.w #217,d1
	moveq #0,d2
	moveq #0,d3
	bsr.L textwrite

vapau:	tst.w d7
	bne.L nje
	tst.b masterstr+78
	bne.s nje

	move.b hour(pc),d0
	tst.b d0
	beq.s byss
	cmp.b #23,d0
	blt.s hyss
byss:	lea midn(pc),a0
	bra.s hyss10
hyss:	cmp.b #1,d0
	blt.s hyss2
	lea nigh(pc),a0
hyss2:	cmp.b #4,d0
	blt.s hyss3
	lea dawn(pc),a0
hyss3:	cmp.b #6,d0
	blt.s hyss4
	lea morn(pc),a0
hyss4:	cmp.b #8,d0
	blt.s hyss5
	lea fore(pc),a0
hyss5:	cmp.b #11,d0
	blt.s hyss6
	lea noon(pc),a0
hyss6:	cmp.b #13,d0
	blt.s hyss7
	lea afte(pc),a0
hyss7:	cmp.b #16,d0
	blt.s hyss8
	lea even(pc),a0
hyss8:	cmp.b #18,d0
	blt.s hyss9
	lea suns(pc),a0
hyss9:	cmp.b #20,d0
	blt.s hyss10
	lea nigh(pc),a0
hyss10:	moveq #0,d0
	move.w #217,d1
	moveq #0,d2
	moveq #0,d3
	bsr.L textwrite

nje:	bset #0,sistavalete
shita:
	move.w currentcursor(pc),d0
	move.w d0,lastcursor
	bsr.L makecursor
onyxbonex:
	tst.w cursorthing
	bne.s onyxbonyx
scro:	move.w #$9,currentcursor
onyxbonyx:
	move.w cursory(pc),bcursory
	move.w cursorx(pc),bcursorx

	tst.b rightbutton
	bne.s ning
	btst #6,ciaa+r0
	bne.s fitswell
	bsr.L goindown
	bra.s ning
fitswell:tst.b buttonbottom
	beq.s ning
	clr.l ausnahme
	clr.b buttonbottom
ning:

	lea ctls(pc),a5
	lea poss(pc),a6

	move.w joy0dat+custom,d0
	tst.l ausnahme
	bne.L strumpfhosen
	tst.b paused
	bne.s hyx
	tst.b sleep
hyx:	bne.L strumpfhosen
	move.w prevc(pc),d1
	move.w d0,d2
	move.w d1,d3
	
	and.w #$ff,d2
	and.w #$ff,d3
	sub.w d3,d2
	move.w d2,d4
	bpl.s kukkuu
	neg.w d4
kukkuu:	cmp.w #127,d4
	ble.s jsus
	tst.w d2
	bpl.s juusto

	add.w #255,d2
	bra.s jsus
juusto:	move.w #255,d3
	sub.w d3,d4
	move.w d4,d2
jsus:	move.w (a6),d3
	and.w #$fffe,(a5)
	and.w #$ff,d3
	lsl.w #1,d3
	add.w d2,d3
	lsr.w #1,d3
	bcc.s kukkane
	or.w #$1,(a5)	
kukkane:btst #14,d3
	beq.s kipps
	bset #15,d3
kipps:	cmp.w #$3f,d3
	bge.s cutthroat
	moveq #$3f,d3
cutthroat:cmp.w #$df,d3
	ble.s bandit
	move.w #$df,d3
bandit:	move.w d3,cursorx
	and.w #$ff00,(a6)
	or.w d3,(a6)
	move.w d0,prevc

nomove:	move.w d0,d2
	move.w d1,d3
	
	and.w #$ff00,d2
	and.w #$ff00,d3
	sub.w d3,d2
	lsr.w #8,d2
	ext.w d2
	move.w d2,d4
	bpl.s kukkude
	neg.w d4
kukkude:cmp.w #127,d4
	ble.s jsuskr
	tst.w d2
	bpl.s juuso

	add.w #255,d2
	bra.s jsuskr
juuso:	move.w #255,d3
	sub.w d3,d4
	move.w d4,d2

jsuskr:	move.w (a6),d3
	lsr.w #8,d3
	btst #2,1(a5)
	beq.s juku
	bset #8,d3
juku:	add.w d2,d3

	cmp.w #$2a,d3
	bge.s cuth
	moveq #$2a,d3
cuth:	cmp.w #$128,d3
	ble.S bandito
	move.w #$128,d3
bandito:move.w d3,cursory
	and.w #$81,(a5)
	btst #8,d3
	beq.s jello
	bset #2,1(a5)
jello:	move.w d3,d4
	add.w heights(pc),d4
	subq.w #1,d4
	btst #8,d4
	beq.s yelli
	bset #1,1(a5)
yelli:
	lsl.w #8,d3
	lsl.w #8,d4
	and.w #$00ff,(a6)
	and.w #$00ff,(a5)
	or.w d3,(a6)
	or.w d4,(a5)
strumpfhosen:
	move.w d0,prevc

nomovey:
	move.l (a6),poss2
	bset #7,ctls2+1

	tst.b deppad
	beq.s fluxc
	clr.w lastcursor	
fluxc:
	cmp.w #268,currx
	ble.s hogie
	cmp.w #$db,curry
	bgt.s dogie
hogie:	lea place1person(pc),a0
	moveq #1,d2
	tst.b -1(a0,d2.w)
	beq.s pouta
	moveq #2,d2
	tst.b -1(a0,d2.w)
	beq.s pouta
	moveq #3,d2
	tst.b -1(a0,d2.w)
	beq.s pouta
	moveq #4,d2
	tst.b -1(a0,d2.w)
	bne.s dogie
pouta:	bsr.L otatai

dogie:	lea tick+1(pc),a6
	tst.b sleep
	beq.s nslpt
	addq.b #8,-(a6)
	addq.w #1,a6
nslpt:	addq.b #1,-(a6)
	cmp.b #50,(a6)
	blt.L heikki
	clr.b (a6)
	addq.b #1,-(a6)
	cmp.b #60,(a6)
	blt.L heikki
	clr.b (a6)
	addq.b #1,-(a6)
	cmp.b #60,(a6)
	blt.s hheikk
	clr.b (a6)
	addq.b #1,-(a6)
	cmp.b #24,(a6)
	blt.s hheikk
	clr.b (a6)
hheikk:	tst.b masterstr+78
	bne.L heikki
	move.w hour(pc),d1

	moveq #$e,d0

	cmp.w #$31e,d1
	blt.s tuhl2
	cmp.w #$141e,d1
	bgt.s tuhl2
	moveq #13,d0
tuhl2:	cmp.w #$400,d1
	blt.s tuhl3
	cmp.w #$1400,d1
	bgt.s tuhl3
	moveq #12,d0
tuhl3:	cmp.w #$41e,d1
	blt.s tuhl4
	cmp.w #$131e,d1
	bgt.s tuhl4
	moveq #11,d0
tuhl4:	cmp.w #$42d,d1
	blt.s tuhl5
	cmp.w #$130f,d1
	bgt.s tuhl5
	moveq #10,d0
tuhl5:	cmp.w #$500,d1
	blt.s tuhl6
	cmp.w #$1200,d1
	bgt.s tuhl6
	moveq #9,d0
tuhl6:	cmp.w #$50f,d1
	blt.s tuhl7
	cmp.w #$112d,d1
	bgt.s tuhl7
	moveq #8,d0
tuhl7:	cmp.w #$51e,d1
	blt.s tuhl8
	cmp.w #$111e,d1
	bgt.s tuhl8
	moveq #7,d0
tuhl8:	cmp.w #$52d,d1
	blt.s tuhl9
	cmp.w #$100f,d1
	bgt.s tuhl9
	moveq #6,d0
tuhl9:	cmp.w #$600,d1
	blt.s tuhl10
	cmp.w #$1000,d1
	bgt.s tuhl10
	moveq #5,d0
tuhl10:	cmp.w #$60f,d1
	blt.s tuhl11
	cmp.w #$f2d,d1
	bgt.s tuhl11
	moveq #4,d0
tuhl11:	cmp.w #$61e,d1
	blt.s tuhl12
	cmp.w #$f1e,d1
	bgt.s tuhl12
	moveq #3,d0
tuhl12:	cmp.w #$62d,d1
	blt.s tuhl13
	cmp.w #$f0f,d1
	bgt.s tuhl13
	moveq #2,d0
tuhl13:	cmp.w #$700,d1
	blt.s tuhl14
	cmp.w #$f00,d1
	bgt.s tuhl14
	moveq #1,d0
tuhl14:	cmp.w #$70f,d1
	blt.s tuhl15
	cmp.w #$e2d,d1
	bgt.s tuhl15
	moveq #0,d0
tuhl15:	move.w d0,currlight
	bsr.L updatepalette

heikki:	lea inaction+1(pc),a5

	lea printbuffer(pc),a0
	tst.l (a0)
	beq.s ntp
	tst.w printscroll
	bne.s ntp
	tst.b dangerzone
	bne.s ntp
	tst.b -1(a5)
	bne.s ntp

	move.l a0,a1
	move.l (a0)+,a2
	moveq #6,d0
tpss:	move.l (a0)+,(a1)+
	dbf d0,tpss
	clr.l (a1)

	moveq #0,d0
	move.w #283,d1
	moveq #0,d2
	move.l a2,a0
	bsr.L textwrite

	move.w #8,printscroll	
ntp:
	tst.w printscroll
	beq.s noscroll
	tst.b -1(a5)
	bne.s noscroll
	tst.l hitactive
	bne.s noscroll
	btst #0,tick
	beq.s noscroll

	move.l #rras1,a0
	move.l a0,a1
	add.w #9360,a0
	add.w #9440,a1
	move.w #640,d0
diit1:	move.l (a1)+,(a0)+
	dbf d0,diit1
	subq.w #1,printscroll
noscroll:


	tst.b clearok
	beq.L nroll
	tst.b talk
	beq.L nroll

	tst.w pscroll
	bne.s vnkkort
	tst.w typebuff+2
	bne.s nroll22
	clr.b vorking
	bra.L nroll
vnkkort:btst #0,tick
	beq.s nroll22

	move.l ras1(pc),a0
	move.l a0,a1
	add.w #1120,a0
	add.w #1160,a1
	move.w #1549,d0
dt1:	move.l (a1)+,(a0)+
	dbf d0,dt1

	move.l ras2(pc),a0
	move.l a0,a1
	add.w #1120,a0
	add.w #1160,a1
	move.w #1549,d0
dt2:	move.l (a1)+,(a0)+
	dbf d0,dt2

	move.l ras2(pc),a0
	move.l ras1(pc),a1
	add.w #7320,a0
	add.w #7320,a1
	moveq #9,d0
prof:	clr.L (a0)+
	clr.L (a1)+
	dbf d0,prof

	subq.w #1,pscroll
nroll22:st vorking

	tst.w pscroll
	bne.s bunkr
	tst.b dangerzone
	bne.s bunkr
	lea typebuff(pc),a0
	tst.l (a0)
	beq.s bunkr
	move.l (a0),a2
	move.l a0,a3
	moveq #0,d0
	move.w #186-10,d1
	moveq #0,d2
	moveq #-2,d3
	move.l a2,a0
	move.l a3,-(sp)
	bsr.L textwrite
	move.l (sp)+,a3

duhh:	tst.b (a2)+
	bne.s duhh

	lea pscroll(pc),a4

	tst.b (a2)
	beq.s dunker
	move.l a2,(a3)
	move.w #8,(a4)
	bra.s bunkr
dunker:	moveq #16,d0
	move.w #8,(a4)
	move.l a3,a1
	addq.w #4,a3
tupajumi:move.l (a3)+,(a1)+
	dbf d0,tupajumi
	clr.l (a1)
bunkr:
nroll:

	lea hitzeit1-2(pc),a0
	lea hitactive-1(pc),a1
	moveq #4,d7
urkenevi:
	subq.w #1,d7
	bmi.L gaad
	addq.w #1,a1
	addq.w #2,a0
	move.b (a1),d1
	move.w (a0),d0
	beq.L onneksi
	bmi.L onneksi
	subq.w #1,(a0)
	tst.b dangerzone
	bne.s urkenevi
	moveq #3,d2
	sub.w d7,d2
	mulu #18,d2
	tst.b -1(a5)
	beq.s tabacc
	cmp.b (a5),d2
	beq.L gaad
tabacc:	tst.l hitactive
	bne.s urkenevi
	st (a1)
	bsr.s hoosianna
	lea moik(pc),a0
	move.w #249,d1
	lsr.w #1,d0
	addq.w #3,d0
	moveq #0,d2
	bsr.L textwrite
	bra.L gaad
moik:	dc.b "   ",0
hoosianna:
	lea rajahdys,a2
	lea rajahdysout,a3
	lea rras1+9202-480-200,a4
	moveq #3,d6
	sub.w d7,d6
	mulu #18,d6
	move.w d6,d0
	add.w d6,a4
	moveq #68,d6
	moveq #41,d5
raa:	moveq #2,d1
raa2:	move.l (a4),d4
	move.l d4,d2
	move.l (a3)+,d3
	eor.l #$ffffffff,d3
	and.l d3,d4
	eor.l #$ffffffff,d3
	move.l (a2),d7
	and.l d3,d7
	or.l d7,d4
	move.l d2,(a2)+
	move.l d4,(a4)+
	dbf d1,raa2
	add.w d6,a4
	dbf d5,raa
	rts
deppad:	dc.w 0
onneksi:move.w d1,d2
	move.l a1,a6

	addq.w #4,a1
	move.b (a1),d1
	beq.s fluff
	tst.w -8(a0)
	bne.s fluff
	clr.b (a1)
	ext.w d1
	lea party-4(pc),a1
	move.l 0(a1,d1.w),a1

	moveq #20,d1
	move.w 0(a1,d1.w),d0
	bne.s setta
	moveq #22,d1
	move.w 0(a1,d1.w),d0
	bne.s setta
	moveq #24,d1
	move.w 0(a1,d1.w),d0
	bne.s setta
	moveq #26,d1
	move.w 0(a1,d1.w),d0
	bne.s setta
	bra.s fluff
setta:	clr.w 0(a1,d1.w)
	moveq #8,d1
	tst.w 0(a1,d1.w)
	beq.s plazen
	moveq #6,d1
	tst.w 0(a1,d1.w)
	bne.s fluff
plazen:	move.w d0,0(a1,d1.w)
	st updateit
fluff:	move.l a6,a1
	move.w d2,d1

	tst.b d1
	beq.L urkenevi
	moveq #3,d1
	sub.w d7,d1
	mulu #18,d1
	tst.b -1(a5)
	beq.s asser
	cmp.b (a5),d1
	beq.s gaad
asser:	clr.b (a1)
	bsr.L hoosianna



gaad:	lea wartezeit1(pc),a0
	lea farbe1b,a1
	lea farbe1,a2
	moveq #3,d0
	moveq #0,d2
virpi:	move.w #$fff,(a1)
	move.w #$fff,(a2)
	tst.w (a0)+
	beq.s seura
	move.w #$666,(a2)
	subq.w #1,-2(a0)
	tst.b -1(a5)
	beq.s seura
	cmp.b (a5),d2
	bne.s seura
	move.w #$666,(a1)
seura:
	add.w #12,a1
	addq.w #8,a2
	add.w #18,d2
	dbf d0,virpi


	tst.b rightbutton
	beq.S bimmer
	move.w currx(pc),d0
	move.w curry(pc),d1
	cmp.w #$dd,d1
	blt.s bimmer
	cmp.w #$121,d0
	blt.s bimmer

	cmp.w #$130,d0
	bgt.s hino
	cmp.w #$ed,d1
	bgt.s ruuhka
	moveq #1,d0
	bra.s shinob
ruuhka:	moveq #3,d0
	bra.s shinob
hino:	cmp.w #$ed,d1
	bgt.s ruuh
	moveq #2,d0
	bra.s shinob
bakdee:	dc.w 0
ruuh:	moveq #4,d0
shinob:	tst.w cursorperson
	bne.s bimmer2
	tst.w bakdee
	bne.s bimmer2
	move.w d0,bakdee
	move.w d0,d2
	lea place1person-1(pc),a6
	add.w d0,a6
	move.b (a6),d0
	ext.w d0
	lea pos1person-1(pc),a6
	add.w d0,a6
	move.b (a6),d0
	bmi.L dipper
	addq.w #1,d0
	and.w #$3,d0
	move.b d0,(a6)
	move.w d0,d1
	move.w d2,d0
	bsr.L peopledo
	bra.L dipper

bimmer:	clr.w bakdee
bimmer2:


	tst.b dangerzone
	bne.L nopeyepo
	tst.b rightbutton
	beq.L fippi
	cmp.w #186,curry
	blt.L fippi
	move.w currx(pc),d0
	move.w curry(pc),d1
	cmp.w #$120,d0
	bgt.L dipper
	moveq #-1,d1
secr:
	addq.w #1,d1
	sub.w #72,d0
	bpl.s secr

	cmp.w #4,d1
	blt.s ElHakim
	moveq #3,d1
ElHakim:
	lsl.w #1,d1
	move.w d1,d2
	lea wartezeit1(pc),a6
	move.w 0(a6,d1.w),a6
	lsl.w #1,d1
	move.w d1,d3
	lea party(pc),a0
	move.l 0(a0,d3.w),a0
	lsl.w #2,d1
	add.w d1,d2
	tst.b 80(a0)
	beq.s viko
	tst.b -1(a5)
	bne.L urge
	bra.L nopeyepo
viko:
	tst.b -1(a5)
	beq.L giulia
	cmp.b (a5),d2
	bne.L urge
shithappens:
;<rip!>
	cmp.w #288,currx
	bgt.L qgh
	move.w curry(pc),d1
	cmp.w #226,d1
	blt.S qgh
	cmp.w #253,d1
	bgt.S qgh

	move.w 8(a0),d0
	beq.s ttant
	lea thingplaces-24,a2
	lsl.w #3,d0
	add.w d0,a2
	add.w d0,a2
	add.w d0,a2
	move.l 12(a2),a2
	move.w 44(a2),d0
	lea hitchance(pc),a2
	lsl.w #1,d0
	add.w d0,a2
	lsl.w #3,d0
	add.w d0,a2
	bra.s rant
ttant:	lea hitchance+18+18(pc),a2
rant:
	cmp.w #0,a6
	bne.S qgh
	cmp.w #226+10,d1
	bgt.s x29r
	tst.w (a2)
	beq.S qgh
	moveq #1,d3
x29r:
	cmp.w #226+10,d1
	ble.s hills
	tst.w 6(a2)
	beq.S qgh
	moveq #2,d3
hills:
	cmp.w #226+10+10,d1
	ble.s drag
	tst.w 12(a2)
	beq.S qgh
	moveq #3,d3
drag:
	cmp.w rewq(pc),d3
	beq.L nopeyepo
	bsr.s wrq
	move.w d3,rewq
	bsr.s wrq
	bra.L nopeyepo
qgh:
	bsr.S wrq
	clr.w rewq
	bra.L nopeyepo

wartezeit1:dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
hitzeit1:dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
hitactive:dc.b 0,0,0,0
pocketzeit1:dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0

wrq:
	movem.w d0-d4,-(sp)
	move.w rewq(pc),d3
	beq.s fluxcage
	subq.w #1,d3
	move.l #rras1+8920,a0
	mulu #80,d3
	add.w d3,a0
	add.w d3,a0
	add.w d3,a0
	lsl.w #3,d3
	add.w d3,a0
	add.w d2,a0

	moveq #7,d1
	moveq #-1,d2
	moveq #5,d3
myll:
	move.l a0,a1
	eor.w #%0000011111111111,(a1)+
	move.w d3,d4
spac:
	eor.w d2,(a1)+
	dbf d4,spac
	eor.w #%1111111111100000,(a1)+
	add.w #80,a0
	dbf d1,myll
fluxcage:movem.w (sp)+,d0-d4
	rts
	
rewq:dc.w 0

giulia:	move.b d2,(a5)
	move.l a0,a2
	lea hitframe,a0
	lea rras1+8760,a1
	add.w d2,a1
	move.w d2,d7
	moveq #80-16,d0 ;modulo
	moveq #3,d1	;width(long)
	moveq #34,d2	;height
aaaa:
	move.w d1,d3
ssw:	move.l (a0),d4
	move.l (a1),d5
	move.l d5,(a0)+
	move.l d4,(a1)+
	dbf d3,ssw

	add.w d0,a1

	dbf d2,aaaa

	move.w 8(a2),d0
	beq.s blankki
	lea thingplaces-24,a2
	lsl.w #3,d0
	add.w d0,a2
	add.w d0,a2
	add.w d0,a2
	move.l 12(a2),a2
	move.w 44(a2),d0
	lsl.w #1,d0
	move.w d0,d1
	lsl.w #3,d0
	add.w d0,d1
	lea hitchance(pc),a2
	add.w d1,a2
	bra.s geggi
blankki:cmp.b #2,100(a2)
	blt.s leea
	lea hitchance+108(pc),a2
	bra.s geggi
leea:	lea hitchance+36(pc),a2
geggi:	lsr.w #1,d7
	move.w d7,d0
	move.w #223,d1
	moveq #8,d2
	move.l 2(a2),a0
	bsr.L textwrite
	move.w d7,d0
	move.w #245,d1
	moveq #8,d2
	move.l 8(a2),a0
	bsr.L textwrite
	move.w d7,d0
	move.w #267,d1
	moveq #8,d2
	move.l 14(a2),a0
	bsr.L textwrite

	st -1(a5)
	bra.S nopeyepo

pekka:	dc.w 0,0,0,0,0,0,0,0,-1

fippi:
dipper:	tst.b -1(a5)
	beq.s nopeyepo

	lea pekka(pc),a0
bitm:
	tst.w (a0)+
	bmi.s bits
	bne.s bitm
bits:
	move.b rewq+1(pc),-(a0)
	move.b (a5),d2
	lsr.b #4,d2
	move.b d2,-(a0)

urge:	moveq #0,d2
	move.b (a5),d2
	bsr.L wrq
	clr.w rewq
	lea hitframe,a0
	lea rras1+8760,a1
	moveq #0,d1
	move.b (a5),d1
	add.w d1,a1
	moveq #80-16,d0 ;modulo
	moveq #3,d1	;width(long)
	moveq #34,d7	;height
poaaa:
	move.w d1,d3
assuan:	move.l (a0),d4
	move.l (a1),d5
	move.l d5,(a0)+
	move.l d4,(a1)+
	dbf d3,assuan

	add.w d0,a1

	dbf d7,poaaa

	clr.b -1(a5)

nopeyepo:
	movem.l (sp)+,d0-d7/a0-a6
	rte


inaction:dc.b 0
	dc.b 0

print:	move.l a1,-(sp)
	lea printbuffer(pc),a1
jummit:	tst.l (a1)+
	bmi.s hera
	bne.s jummit
	move.l a0,-(a1)
hera:	move.l (sp)+,a1
	rts

talkprint:
	move.l a1,-(sp)
era:	lea typebuff(pc),a1
junker:	tst.l (a1)+
	bmi.s era
	bne.s junker
	move.l a0,-(a1)
	move.l (sp)+,a1
	rts



pscroll: dc.w 0

printscroll: dc.w 0

typebuff:
dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.l -1

printbuffer:
	dc.l 0,0,0,0,0,0,0,0,$ffffffff

lastmehu:dc.w 0
heights:dc.w 16
bcursorx:dc.w 0
bcursory:dc.w 0
cursorx: dc.w $2a
cursory: dc.w $3f

updatepalette:
	move.w currpalette(pc),d0
palette:movem.l a0-a1/a6/d1-d6,-(sp)
	move.b masterstr+102,d1
	beq.s mast
	move.b d1,currlight+1
mast:	move.w currlight,lastmehu
	move.w d0,currpalette

	move.l #plette1,a0
	mulu #62,d0
	add.w d0,a0
	move.l customm(pc),a6
	move.w (a0)+,color0(a6)

	lea bb1(pc),a1
	moveq #29,d0
proze:	move.w (a0)+,(a1)+
	dbf d0,proze

	lea dd1,a1
	lea bb1(pc),a0
	moveq #24,d0
prow:	move.w (a0)+,(a1)+
	addq.w #2,a1
	dbf d0,prow

	tst.b statusscreen
	bne.s runna
	tst.b sleep
	bne.s runna

	tst.w infrav
	bne.s ultv

runna:	move.w currlight,d0
	beq.L jalkkari

	tst.b statusscreen
	bne.L jalkkari

	tst.b sleep
	bne.L jalkkari

ultv:	lea bb1(pc),a0
	moveq #29,d7
liquid:	move.w (a0),d0
	tst.b infrav
	bne.s nile4

	tst.w d7
	beq.s nile
	tst.b masterstr+101
	bne.s nail
nile:
	cmp.w #1,d7
	bne.s nile2
	tst.b masterstr+100
	bne.s nail
nile2:
	cmp.w #3,d7
	bne.s nile3
	tst.b masterstr+99
	bne.s nail
nile3:
	cmp.w #4,d7
	bne.s nile4
	tst.b masterstr+98
	bne.s nail
nile4:
	bsr.S jaakari
nail:	move.w d0,(a0)+
	dbf d7,liquid
	bra.s jalkkari

jaakari:moveq #0,d1
	moveq #0,d2
	moveq #0,d3
	move.w d0,d1
	lsr.w #4,d0
	move.w d0,d2
	lsr.w #4,d0
	move.w d0,d3
	moveq #$f,d0
	and.w d0,d1
	and.w d0,d2
	and.w d0,d3
	move.w d1,d4
	move.w d2,d5
	move.w d3,d6
	tst.b statusscreen
	bne.s pppf
	tst.w infrav
	beq.s pppf
	add.w d3,d1
	add.w d2,d1
	divu #3,d1
	move.w d1,d0
	lsl.w #8,d0
	rts

pppf:	move.w currlight,d0

	mulu d0,d1
	mulu d0,d2
	mulu d0,d3

	lsr.w #4,d1
	lsr.w #4,d2
	lsr.w #4,d3

	sub.w d1,d4
	bpl.s rat1
	moveq #0,d4
rat1:	sub.w d2,d5
	bpl.s rat2
	moveq #0,d5
rat2:	sub.w d3,d6
	bpl.s rat3
	moveq #0,d6
rat3:

	lsl.w #4,d5
	lsl.w #8,d6
	or.w d4,d6
	or.w d5,d6
	move.w d6,d0	
	rts
jalkkari:
	st teega
jalkkari2:
	movem.l (sp)+,a0-a1/a6/d1-d6
	rts

teega:	dc.w 0

lines:	move.l #rras1+7440,d0
	move.w d0,bpt1l
	swap d0
	move.w d0,bpt1h
	move.l #rras2+7440,d0
	move.w d0,bpt2l
	swap d0
	move.w d0,bpt2h
	move.l #rras3+7440,d0
	move.w d0,bpt3l
	swap d0
	move.w d0,bpt3h
	move.l #rras4+7440,d0
	move.w d0,bpt4l
	swap d0
	move.w d0,bpt4h
	move.l #rras5+7440,d0
	move.w d0,bpt5l
	swap d0
	move.w d0,bpt5h
	move.l #rras6+7440,d0
	move.w d0,bpt6l
	swap d0
	move.w d0,bpt6h
	move.l #rras1+12000,d0
	move.w d0,cpt1l
	swap d0
	move.w d0,cpt1h

	move.l #cursor,d0
	move.w d0,sppt0l
	swap d0
	move.w d0,sppt0h
	move.l #cursor2,d0
	move.w d0,sppt1l
	swap d0
	move.w d0,sppt1h

	move.l #dummysp,d0
	move.w d0,sppt2l
	move.w d0,sppt7l
	swap d0
	move.w d0,sppt2h
	move.w d0,sppt7h

	move.l #mpr1,d0
	move.w d0,sppt3l
	swap d0
	move.w d0,sppt3h
	move.l #mpr2,d0
	move.w d0,sppt4l
	swap d0
	move.w d0,sppt4h
	move.l #mpr3,d0
	move.w d0,sppt5l
	swap d0
	move.w d0,sppt5h
	move.l #mpr4,d0
	move.w d0,sppt6l
	swap d0
	move.w d0,sppt6h

	moveq #9,d0
	bsr.L makecursor

	move.l customm(pc),a5
	moveq #0,d0
	bsr.L palette
	st updateit

	lea welcome,a0
	bsr.L print
	lea welcome2,a0
	bsr.L print
	lea welcome3,a0
	bsr.L print
	lea welcome4,a0
	bsr.L print

	bsr.L copras

	moveq #1,d0 ;member1-4
	moveq #0,d1 ;dirpos 0-3
	bsr.s peopledo
	moveq #2,d0 ;member1-4
	moveq #0,d1 ;dirpos 0-3
	bsr.s peopledo
	moveq #3,d0 ;member1-4
	moveq #0,d1 ;dirpos 0-3
	bsr.s peopledo
	moveq #4,d0 ;member1-4
	moveq #0,d1 ;dirpos 0-3
	bsr.s peopledo

herewego:
	tst.b sattimaan
	bne.L jumpingjack
	tst.b change
	beq.s herewego
	rts

peopledo:
	movem.l a0-a2/d0-d2,-(sp)
	move.w d0,d2
	lsl.w #2,d2
	lea ouugh-4(pc),a2
	move.l 0(a2,d2.w),a0
	move.l a0,a2

	tst.w d1
	bpl.s surr
	moveq #17,d2
tekari:	clr.l (a0)+
	dbf d2,tekari
	bra.s kath
surr:	mulu #72,d1
	lea pnorth,a1
	add.w d1,a1
	moveq #17,d2

oulu:
	move.l (a1)+,(a0)+
	dbf d2,oulu
kath:
	cmp.w #1,d0
	bne.s kasa
	move.w #$08d0,(a2)+
	move.w #$1806,(a2)
kasa:
	cmp.w #2,d0
	bne.s kunkku
	move.w #$08d8,(a2)+
	move.w #$1806,(a2)
kunkku:	cmp.w #3,d0
	bne.s aries
	move.w #$18d0,(a2)+
	move.w #$2806,(a2)
aries:	cmp.w #4,d0
	bne.s spiral
	move.w #$18d8,(a2)+
	move.w #$2806,(a2)
spiral:	movem.l (sp)+,a0-a2/d0-d2
	rts

ouugh:	dc.l people1,people3,people2,people4


jumpingjack:
	bsr.L savingthrow
	bsr.L updatus
	clr.b sattimaan
	bra.L herewego

superupdate:dc.b 1
sattimaan:  dc.b 0

midn:dc.b "It's midnight.",0
nigh:dc.b "It's night.",0
dawn:dc.b "It's dawn.",0
morn:dc.b "It's morning.",0
fore:dc.b "It's forenoon.",0
noon:dc.b "It's noon.",0
afte:dc.b "It's afternoon.",0
even:dc.b "It's evening.",0
suns:dc.b "It's sunset.",0
	even

updateparty:
	move.b superupdate(pc),d0
	beq.s valta
	lea rras1+12080,a0
	move.w #180,d0
diit3:	clr.l (a0)+
	dbf d0,diit3
valta:
	st dangerzone
	bsr.L bwait
	lea party(pc),a0
	move.l (a0),a0
	move.w 6(a0),d0
	moveq #1,d1
	moveq #0,d2
	move.w #192,d3
	bsr.L placeitem
	move.w 8(a0),d0
	moveq #4,d1
	moveq #1,d2
	move.w #192,d3
	bsr.L placeitem
	move.b superupdate(pc),d0
	beq.s troot1
	move.l (a0),a0
	moveq #0,d0
	move.w #304,d1
	moveq #8,d2
	bsr.L textwrite
troot1:	lea party(pc),a0
	move.l 4(a0),a0
	move.w 6(a0),d0
	moveq #10,d1
	moveq #0,d2
	move.w #192,d3
	bsr.L placeitem
	move.w 8(a0),d0
	moveq #13,d1
	moveq #1,d2
	move.w #192,d3
	bsr.L placeitem
	move.b superupdate(pc),d0
	beq.s troot2
	move.l (a0),a0
	moveq #9,d0
	move.w #304,d1
	moveq #8,d2
	bsr.L textwrite
troot2:	lea party(pc),a0
	move.l 8(a0),a0
	move.w 6(a0),d0
	moveq #19,d1
	moveq #0,d2
	move.w #192,d3
	bsr.L placeitem
	move.w 8(a0),d0
	moveq #22,d1
	moveq #1,d2
	move.w #192,d3
	bsr.L placeitem
	move.b superupdate(pc),d0
	beq.s troot3
	move.l (a0),a0
	moveq #18,d0
	move.w #304,d1
	moveq #8,d2
	bsr.L textwrite
troot3:	lea party(pc),a0
	move.l 12(a0),a0
	move.w 6(a0),d0
	moveq #28,d1
	moveq #0,d2
	move.w #192,d3
	bsr.L placeitem
	move.w 8(a0),d0
	moveq #31,d1
	moveq #1,d2
	move.w #192,d3
	bsr.L placeitem
	move.b superupdate(pc),d0
	beq.s troot
	move.l (a0),a0
	moveq #27,d0
	move.w #304,d1
	moveq #8,d2
	bsr.L textwrite
troot:	clr.b superupdate
	clr.b dangerzone
	lea party(pc),a0
	moveq #0,d0
loadloop:move.l (a0)+,a1
	addq.w #1,d0
	cmp.w #5,d0
	beq.L fff
	move.w 88(a1),d1
	cmp.w #21,d1
	ble.s burstbrush
	moveq #21,d1
burstbrush:
	lsl.w #1,d1
	lea maxload(pc),a2
	add.w d1,a2
	move.w (a2),d2
	move.w d2,d3
	lsr.w #3,d3

	tst.b 99(a1)
	beq.s eidut
	sub.w d3,d2
	cmp.b #2,99(a1)
	bne.s eidut
	sub.w d3,d2
	sub.w d3,d2
eidut:
	tst.b 100(a1)
	beq.s edut
	sub.w d3,d2
	cmp.b #2,100(a1)
	bne.s edut
	sub.w d3,d2
	sub.w d3,d2
edut:
	tst.b 103(a1)
	beq.s showtin
	sub.w d3,d2
showtin:
	tst.b 102(a1)
	beq.s shoes
	sub.w d3,d2
	cmp.w #2,102(a1)
	bne.s shoes
	sub.w d3,d2
	sub.w d3,d2
shoes:

	tst.w d2
	bpl.s khyv
	moveq #0,d2
khyv:
	move.w d2,104(a1)
	moveq #0,d2

	moveq #31,d3
	move.l a1,a3
	addq.w #6,a3
tumpata:
	move.w (a3)+,d1
	bsr.s crg
	dbf d3,tumpata

	lea 82(a1),a3
	move.w (a3)+,d1
	bsr.s crg
	move.w (a3)+,d1
	bsr.s crg
	divu #10,d2
	move.w d2,106(a1)

	bra.L loadloop	

crg:
	tst.w d1
	beq.s dumd
	lea thingplaces-24,a2
	lsl.w #3,d1
	add.w d1,a2
	add.w d1,a2
	add.w d1,a2
	move.l 12(a2),a2
	add.w 30(a2),d2
dumd:	rts

fff:	bsr.S longero
	rts

maxload:dc.w 10,13,15,19,22,25,29,34,39, 44,49,54,60,66,72,80
	dc.w 90,100,130,160,200

countit:moveq #0,d0
	moveq #0,d2
	move.w 72(a1),d0
	move.w 70(a1),d2
	beq.s outagain
teri:
	lsl.w #3,d0
	lsl.w #3,d2
	divu #21,d0
	beq.s outagain
	and.l #$ffff,d0
	divu d0,d2
	tst.w d2
	bpl.s dialling
outagain:moveq #0,d2
dialling:rts

then:
	moveq #0,d0
	moveq #0,d2
	move.w 76(a1),d0
	move.w 74(a1),d2
	beq.s outagain
	bra.s teri

longero:lea member1,a1
	bsr.s countit
	move.l 116(a1),a2
	moveq #0,d0
	bsr.s displayed
	bsr.s then
	move.l 116(a1),a2
	moveq #1,d0
	bsr.s displayed

	lea member2,a1
	bsr.s countit
	move.l 116(a1),a2
	moveq #0,d0
	bsr.s displayedd
	bsr.s then
	move.l 116(a1),a2
	moveq #1,d0
	bsr.s displayedd

	lea member3,a1
	bsr.S countit
	move.l 116(a1),a2
	moveq #0,d0
	bsr.s displayed
	bsr.s then
	move.l 116(a1),a2
	moveq #1,d0
	bsr.s displayed

	lea member4,a1
	bsr.L countit
	move.l 116(a1),a2
	moveq #0,d0
	bsr.s displayedd
	bsr.S then
	move.l 116(a1),a2
	moveq #1,d0
	bsr.s displayedd

	rts

displayedd:
	addq.w #4,a2
	move.w #%0001111000000000,d1
	move.w d1,d3
	tst.w d0
	beq.s bravda
	moveq #%111100,d1
	move.w d1,d3
	bra.s jumbo	

displayed:
	addq.w #4,a2
	move.w #%0001111000000000,d3
	moveq #0,d1
	tst.w d0
	beq.s bravda
	moveq #%111100,d3
	moveq #0,d1
	bra.s jumbo
bravda:

	move.l a2,a3
	moveq #20,d4
hakky:
	clr.l (a2)+
	dbf d4,hakky
	move.l a3,a2


jumbo:	tst.w d2
	beq.s rips
	cmp.w #21,d2
	ble.s bups
	moveq #21,d2
bups:	add.w #84,a2
	tst.w d0
	bne.s bastard
jokellus:move.w d3,-(a2)
	move.w d1,-(a2)
	subq.w #1,d2
	bne.s jokellus
rips:	rts

bastard:
sinan:	or.w d3,-(a2)
	or.w d1,-(a2)
	subq.w #1,d2
	bne.s sinan
	rts

surfoffight: dc.w 0
placeitem:
	movem.l a0-a3/d0-d5,-(sp)
	lea rush1(pc),a2
	tst.b 80(a0)
	beq.s nekku
	moveq #29,d0
	bra.s sauna
nekku:
	tst.w d0
	bne.s sauva
	tst.w d2
	beq.s erma

	tst.b 100(a0)
	bne.s giral
	moveq #2,d0
	bra.s sauna
giral:	cmp.b #2,100(a0)
	beq.s yit
	moveq #31,d0
	bra.s sauna
yit:	moveq #37,d0
	bra.s sauna

erma:	tst.b 99(a0)
	bne.s giral2
	moveq #3,d0
	bra.s sauna
giral2:	cmp.b #2,99(a0)
	beq.s yit2
	moveq #32,d0
	bra.s sauna
yit2:	moveq #38,d0
	bra.s sauna

plazeitem:
	movem.l a0-a3/d0-d5,-(sp)
	lea ras1(pc),a2
	bra.s sauna

sauva:	lea thingplaces-24,a1
	lsl.w #3,d0
	add.w d0,a1
	add.w d0,a1
	add.w d0,a1
	move.l 12(a1),a1
	move.w (a1),d0
sauna:
	lsl.w #3,d3
	add.w d3,d1
	lsl.w #2,d3
	add.w d3,d1
	lea pchars1,a1
	lsl.w #6,d0
	add.w d0,a1
	lsl.w #1,d0
	add.w d0,a1
	moveq #5,d5
	move.w d1,d2
kysskyss:
	moveq #15,d4
	move.w d2,d1
	move.l (a2)+,a3
aisoa:	move.b (a1)+,0(a3,d1.w)
	addq.w #1,d1
	and.b #$1,0(a3,d1.w)
	move.b (a1)+,d0
	or.b d0,0(a3,d1.w)
	add.w #39,d1

	dbf d4,aisoa

	dbf d5,kysskyss
	movem.l (sp)+,a0-a3/d0-d5
	rts

rush1:	dc.l rras1,rras2,rras3,rras4,rras5,rras6
	
baseboint: dc.l 0
sikana: dc.l 0
raimo:	dc.w 0
deenolla: dc.w 0
pappablob: dc.b 0
ruoska:	dc.b 0
puufer:	dc.w 0
hopsis:	move.l maskel(pc),d3
	move.w d1,d5
	subq.w #1,d5
	cmp.w #18,d5
	bgt.s gideon
	btst d5,d3 ; d1 place will stay true¡
	bne.s pihvi
gideon:	cmp.w #24,d1
	bne.s muros
	move.b wall24(pc),d0
	beq.s pihvi
	ext.w d0
	bra.s tupo
muros:	move.l baseboint(pc),a0
	lea w1(a0),a1
	moveq #0,d0
	move.b 0(a1,d5.w),d0
	beq.s pihvi
tupo:	bsr.L placeobj
pihvi:	rts

blobsis:move.l maskel(pc),d3
	tst.w d1
	beq.s pihvi
	move.w d1,d5
	add.w #18,d5
wrathofgod:
	btst d5,d3
	bne.s pihvi

kopsis:	moveq #0,d6
	moveq #3,d7
	clr.l cee1
koppaus:move.w d1,d5
	subq.w #1,d5
	lsl.w #2,d5
	add.w d6,d5
	move.l baseboint(pc),a1
	lea c1a(a1),a0
	moveq #0,d0
	move.b 0(a0,d5.w),d0
	beq.s rais
	move.w d0,puufer ;d0=creano
	subq.w #1,d0
	lsl.w #2,d0
	lea creaplaces,a1
	move.l 0(a1,d0.w),a1
	move.w 18(a1),d0
	bne.s risc
	moveq #1,d0
risc:	lea cee1-1(pc),a1
	add.w d0,a1
	move.b puufer+1(pc),(a1)

rais:	addq.w #1,d6
	dbf d7,koppaus

	tst.l cee1
	beq.s pihvi
	move.b cee1(pc),d0
	move.b cee2(pc),d4
	move.b cee3(pc),d6
	move.b cee4(pc),d7
	tst.w dirpos
	beq.s weasel
	cmp.w #1,dirpos
	bne.s legion
	move.b d6,cee1
	move.b d0,cee2
	move.b d7,cee3
 	move.b d4,cee4
	bra.s weasel
legion:	cmp.w #2,dirpos
	bne.s stor
	move.b d7,cee1
	move.b d6,cee2
	move.b d4,cee3
	move.b d0,cee4
	bra.s weasel
stor:
	move.b d4,cee1
	move.b d7,cee2
	move.b d0,cee3
	move.b d6,cee4
weasel:	tst.b pappablob
	beq.s kiva
	
	moveq #2,d7
	bsr.S veke
	moveq #3,d7
	bsr.S veke
	rts
kiva:
	moveq #0,d7
	bsr.S veke
	moveq #1,d7
	bsr.S veke
veksi:	rts

veke:	lea cee1(pc),a0
	moveq #0,d0
	move.b 0(a0,d7.w),d0
	beq.s veksi

	lsl.w #2,d0

	lea creaplaces-4,a0
	move.l 0(a0,d0.w),a0
	move.l a0,d0
	moveq #0,d2
	tst.w 18(a0)
	beq.s jokk
	move.w d7,d2
	addq.w #1,d2
jokk:	move.l (a0),hymn
	move.w 16(a0),d5
	move.w dirpos(pc),d4
	sub.w d4,d5
	and.w #3,d5
	bne.s eio
	moveq #2,d3
	bsr.L placecrea
	rts
eio:	cmp.w #2,d5
	bne.s eise
	moveq #1,d3
	bsr.L placecrea
	rts
eise:	cmp.w #3,d5
	bne.s eita
	moveq #3,d3
	bsr.L placecrea
	rts
eita:
	moveq #4,d3
	bsr.L placecrea
kuttuketut:rts
cee1:	dc.b 0
cee2:	dc.b 0
cee3:	dc.b 0
cee4:	dc.b 0

dorkafiilis:
	tst.b pappablob
	bne.s noi
	tst.w d1
	beq.s noi
	move.l maskel(pc),d3
	move.w d1,d5
	add.w #18,d5

	btst d5,d3
	bne.s kuttuketut

noi:
	move.l baseboint(pc),a0
	lea cp0(a0),a2
	move.w d1,d5
	lsl.w #1,d5
	add.w d5,a2
	move.w (a2),d5
	moveq #0,d0

	tst.w dirpos
	bne.s heihoi
	moveq #1,d7
	moveq #2,d6
	moveq #3,d4
	moveq #4,d3
	bra.s kohti
heihoi:	cmp.w #1,dirpos
	bne.s hoihei
	moveq #3,d7
	moveq #1,d6
	moveq #4,d4
	moveq #2,d3
	bra.s kohti
hoihei:	cmp.w #2,dirpos
	bne.s lppuu
	moveq #4,d7
	moveq #3,d6
	moveq #2,d4
	moveq #1,d3
	bra.s kohti
lppuu:
	moveq #2,d7
	moveq #4,d6
	moveq #1,d4
	moveq #3,d3
kohti:

	tst.b pappablob
	beq.s lht
	move.w d7,currplaz
	move.w d6,-(sp)
	bsr.s pit
	move.w (sp)+,d6
	move.w d6,currplaz
	bsr.s pit
	move.w #5,currplaz
	bsr.s pit
	rts
lht:
	move.w d4,currplaz
	move.w d3,-(sp)
	bsr.s pit
	move.w (sp)+,d3
	move.w d3,currplaz
	bsr.s pit
kuttukettu:moveq #0,d6
	rts

pit:
	move.w #$7fff,lel1
kop:	lea thingplaces,a0
	move.w lel1(pc),d4
	moveq #0,d3
	moveq #0,d0
	clr.w lowerth

kopx:	addq.w #1,d0
	move.l a0,a1
	add.w #24,a0
	tst.l 12(a1)
	beq.s kkettu
	moveq #0,d6
	move.b 10(a1),d6
	cmp.w currplaz(pc),d6
	bne.s kopx
	move.w 8(a1),d6
	lsl.w #5,d6
	add.w 6(a1),d6

	cmp.w d5,d6
	bne.s kopx
	cmp.w 20(a1),d4
	ble.s kopx
	move.w lowerth(pc),d6
	cmp.w 20(a1),d6
	bgt.s kopx

	move.w d0,d3
	move.w 20(a1),lowerth
	move.l a1,siellavaan
	bra.s kopx
kkettu:	move.w d3,d0
	beq.S kuttukettu

	clr.l fee1
	clr.l fee3
	clr.w fee5
	move.w lowerth(pc),lel1

	move.w currplaz(pc),d4
	cmp.w #1,d4
	bne.s asfdff
	move.w d0,fee1
asfdff:	cmp.w #2,d4
	bne.s asdf
	move.w d0,fee2
asdf:	cmp.w #3,d4
	bne.s asdff
	move.w d0,fee3
asdff:	cmp.w #4,d4
	bne.s qwer
	move.w d0,fee4
qwer:	cmp.w #5,d4
	bne.s qwrrr
	move.w d0,fee5
qwrrr:
	move.l siellavaan(pc),a1
	move.l 12(a1),a2
	move.l 22(a2),hymn
	move.w 8(a2),alafemme
	btst #0,19(a1)
	beq.L outofgaso
	move.l 4(a2),hymn

	st dmg
	bclr #6,18(a1)
	move.b 16(a1),d7
	sub.w dirpos(pc),d7
	bne.L ggjhh

	moveq #10,d3
	moveq #12,d4
rolan:
	move.w dirpos(pc),d6
	bne.s rightway
	move.w xpos(pc),d7
	cmp.w 6(a1),d7
	blt.s okki1
	bgt.s okki2
	btst #0,10(a1)
	bne.s okki1
	bra.s okki2
rightway:cmp.w #$1,d6
	bne.s yngh
	move.w ypos(pc),d7
	cmp.w 8(a1),d7
	blt.s okki1
	bgt.s okki2
	moveq #0,d7
	move.b 10(a1),d7
	cmp.w #$2,d7
	bgt.s okki1
	bra.s okki2
yngh:	cmp.w #$2,d6
	bne.s ynghhh
	move.w xpos(pc),d7
	cmp.w 6(a1),d7
	bgt.s okki1
	blt.s okki2
	btst #0,10(a1)
	beq.s okki1
	bra.s okki2
ynghhh:	move.w ypos(pc),d7
	cmp.w 8(a1),d7
	bgt.s okki1
	blt.s okki2
	moveq #0,d7
	move.b 10(a1),d7
	cmp.w #$2,d7
	bgt.s okki2
	bra.s okki1
okki1:	move.l 12(a1),a2
	move.w 0(a2,d4.w),alafemme
	bra.s outofgaso
okki2:	move.l 12(a1),a2
	move.w 0(a2,d3.w),alafemme
	bra.s outofgaso
ggjhh:	and.w #$3,d7
	cmp.w #$1,d7
	bne.s hyppylanka

	move.l 12(a1),a2
	move.w 16(a2),alafemme
	bra.s outofgaso
hyppylanka:
	cmp.w #$2,d7
	bne.s ank

	moveq #20,d3
	moveq #18,d4
	bra.L rolan
ank:
	move.l 12(a1),a2
	move.w 14(a2),alafemme

outofgaso:bclr #7,alafemme
	beq.s mohe
	bset #6,18(a1)

mohe:	move.w d5,-(sp)
	bsr.s jokkekinnunen
	move.w (sp)+,d5
	bra.L kop

alafemme:dc.w 0
siellavaan: dc.l 0
lel1:	dc.w 0
currplaz:dc.w 0
lowerth:dc.w 0

JokkeKinnunen:
	move.w fee1(pc),d0
	move.w fee2(pc),d4
	move.w fee3(pc),d5
	move.w fee4(pc),d7

	move.w dirpos(pc),d6

	tst.w d1
	bne.S warp9zulu

	tst.w d6
	bne.s asel
	move.w d5,fee1
	move.w d7,fee2
asel:	cmp.w #1,d6
	bne.s lllegion
	move.w d7,fee1
	;2 to2
lllegion:cmp.w #2,d6
	bne.s stormin
	move.w d4,fee1
	move.w d0,fee2
stormin:
	cmp.w #3,d6
	bne.S wweasel
	;1 to 1
	move.w d5,fee2
	bra.S wweasel

warp9zulu:
	tst.w d6
	beq.s wweasel
	cmp.w #1,d6
	bne.s llegion
	move.w d5,fee1
	move.w d0,fee2
	move.w d7,fee3
 	move.w d4,fee4
llegion:cmp.w #2,d6
	bne.s clm
	move.w d7,fee1
	move.w d5,fee2
	move.w d4,fee3
	move.w d0,fee4
clm:
	cmp.w #3,d6
	bne.s ryz
	move.w d4,fee1
	move.w d7,fee2
	move.w d0,fee3
	move.w d5,fee4
ryz:
wweasel:
	moveq #8,d7
	bsr.S tuplaveke
	moveq #4,d7
	bsr.s tuplaveke
	moveq #6,d7
	bsr.s tuplaveke
	moveq #0,d7
	bsr.s tuplaveke
	moveq #2,d7
	bsr.s tuplaveke
jukutt:	rts

tuplaveke:lea fee1(pc),a0
	move.w 0(a0,d7.w),d0
	beq.s jukutt
	move.w d0,d4
	lsl.w #3,d4
	lea thingplaces-24,a0
	add.w d4,a0
	add.w d4,a0
	add.w d4,a0
	move.l a0,d0
	move.w d7,d2
	lsr.w #1,d2
	moveq #0,d3

	bsr.L placecrea
	rts

money:	dc.l 0
party:	dc.l member1
	dc.l member2
	dc.l member3
	dc.l member4
hymn:	dc.l 0

fee1:	dc.w 0
fee2:	dc.w 0
fee3:	dc.w 0
fee4:	dc.w 0
fee5:	dc.w 0

jd6:	dc.b 0
jd5:	dc.b 0
jd4:	dc.b 0
jd3:	dc.b 0
jd2:	dc.b 0
jd1:	dc.b 0
jd0:	dc.b 0
jd7:
change:	dc.b 0

add3:	dc.b 0
add2:	dc.b 0
add1:	dc.b 0
add0:	dc.b 0
add7:

	dc.b $0,$00,$00,$01
ap1:	dc.b $0,$00,$00,$02
ap2:	dc.b $0,$00,$00,$04
ap3:	dc.b $0,$00,$00,$08
ap4:	dc.b $0,$00,$00,$16
ap5:	dc.b $0,$00,$00,$32
ap6:	dc.b $0,$00,$00,$64
ap7:	dc.b $0,$00,$01,$28
ap8:	dc.b $0,$00,$02,$56
ap9:	dc.b $0,$00,$05,$12
ap10:	dc.b $0,$00,$10,$24
ap11:	dc.b $0,$00,$20,$48
ap12:	dc.b $0,$00,$40,$96
ap13:	dc.b $0,$00,$81,$92
ap14:	dc.b $0,$01,$63,$84
ap15:	dc.b $0,$03,$27,$68
ap16:	dc.b $0,$06,$55,$35
ap17:	dc.b $0,$13,$10,$72
ap18:	dc.b $0,$26,$21,$44
ap19:	dc.b $0,$52,$42,$88
ap20:	dc.b $1,$04,$85,$76
ap21:	dc.b $2,$09,$71,$52
ap22:	dc.b $4,$19,$43,$04
ap23:	dc.b $8,$38,$86,$08
ap24:

todeci:	movem.l d0-d2/a0-a1,-(sp)
	clr.l jd6
	clr.w jd2
	clr.b jd0
	clr.l add3

	btst #0,d0
	beq.s mz1
	lea ap1(pc),a0
	bsr.L sumup
mz1:	btst #1,d0
	beq.s mz2
	lea ap2(pc),a0
	bsr.s sumup
mz2:	btst #2,d0
	beq.s mz3
	lea ap3(pc),a0
	bsr.s sumup
mz3:	btst #3,d0
	beq.s mz4
	lea ap4(pc),a0
	bsr.s sumup
mz4:	btst #4,d0
	beq.s mz5
	lea ap5(pc),a0
	bsr.s sumup
mz5:	btst #5,d0
	beq.s mz6
	lea ap6(pc),a0
	bsr.s sumup
mz6:	btst #6,d0
	beq.s mz7
	lea ap7(pc),a0
	bsr.s sumup
mz7:	btst #7,d0
	beq.s mz8
	lea ap8(pc),a0
	bsr.s sumup
mz8:	btst #8,d0
	beq.s mz9
	lea ap9(pc),a0
	bsr.s sumup
mz9:	btst #9,d0
	beq.s mz10
	lea ap10(pc),a0
	bsr.s sumup
mz10:btst #10,d0
	beq.s mz11
	lea ap11(pc),a0
	bsr.s sumup
mz11:btst #11,d0
	beq.s mz12
	lea ap12(pc),a0
	bsr.s sumup
	bra.s mz12

sumup:	lea add7(pc),a1
	move.w #0,ccr
	abcd -(a0),-(a1)
	abcd -(a0),-(a1)
	abcd -(a0),-(a1)
	abcd -(a0),-(a1)
	rts

mz12:btst #12,d0
	beq.s mz13
	lea ap13(pc),a0
	bsr.s sumup
mz13:btst #13,d0
	beq.s mz14
	lea ap14(pc),a0
	bsr.s sumup
mz14:btst #14,d0
	beq.s mz15
	lea ap15(pc),a0
	bsr.s sumup
mz15:btst #15,d0
	beq.s mz16
	lea ap16(pc),a0
	bsr.s sumup
mz16:btst #16,d0
	beq.s mz17
	lea ap17(pc),a0
	bsr.s sumup
mz17:btst #17,d0
	beq.s lrx18
	lea ap18(pc),a0
	bsr.s sumup
lrx18:	btst #18,d0
	beq.s lrx19
	lea ap19(pc),a0
	bsr.s sumup
lrx19:	btst #19,d0
	beq.s lrx20
	lea ap20(pc),a0
	bsr.s sumup
lrx20:
	btst #20,d0
	beq.s lrx21
	lea ap21(pc),a0
	bsr.s sumup
lrx21:
	btst #21,d0
	beq.s lrx22
	lea ap22(pc),a0
	bsr.L sumup
lrx22:
	btst #22,d0
	beq.s lrx23
	lea ap23(pc),a0
	bsr.L sumup
lrx23:
	btst #23,d0
	beq.s lrx24
	lea ap24(pc),a0
	bsr.L sumup
lrx24:
	moveq #$f,d2

	move.b add0(pc),d0
	move.w d0,d1
	and.b d2,d0
	lsr.w #4,d1
	and.b d2,d1
	move.b d0,jd0
	move.b d1,jd1

	move.b add1(pc),d0
	move.w d0,d1
	and.b d2,d0
	lsr.w #4,d1
	and.b d2,d1
	move.b d0,jd2
	move.b d1,jd3

	move.b add2(pc),d0
	move.w d0,d1
	and.b d2,d0
	lsr.w #4,d1
	and.b d2,d1
	move.b d0,jd4
	move.b d1,jd5

	move.b add3(pc),d0
	and.b #$f,d0
	move.b d0,jd6

	movem.l (sp)+,d0-d2/a0-a1
	rts

rnd:	movem.l d2-d4,-(sp)

	moveq #0,d4
	subq.w #1,d0
	subq.w #1,d1

notice:	move.w vhposr+custom,d2
	move.w d2,d3
	and.b #$ff,d2
	lsr.w #1,d2
	and.w d0,d2
	addq.w #1,d2
	add.w d2,d4
	lsr.w #4,d3
	lsr.w #6,d3

noDice:	dbf d3,noDice

	dbf d1,notice	

	move.w d4,d0

	movem.l (sp)+,d2-d4
	rts

realrnd:movem.l d2-d5,-(sp)

	tst.w d0
	beq.s kwik
	tst.w d1
	beq.s kwik

	moveq #0,d4
lakemist:
	btst d4,d0
	beq.s bumban
	move.w d4,d2
bumban:	addq.w #1,d4
	cmp.w #6,d4
	ble.s lakemist

	moveq #0,d5
	addq.w #1,d2
	bset d2,d5

	move.w d0,d2
	move.w d5,d0
	moveq #0,d4
	subq.w #1,d0
	subq.w #1,d1

noti:	move.w vhposr+custom,d5
	move.w d5,d3
	and.b #$ff,d5
	lsr.w #1,d5
	and.w d0,d5
	addq.w #1,d5
	lsr.w #4,d3
	lsr.w #6,d3

ice:	dbf d3,ice
	cmp.w d5,d2
	blt.s noti
	add.w d5,d4

	dbf d1,noti

	move.w d4,d0

kwik:	movem.l (sp)+,d2-d5
	rts

yrt:
	dc.b 3,4,1,2
	dc.b 4,2,3,1
	dc.b 2,1,4,3
	dc.b 1,3,2,4
mxn:
	rts
updategels:
	lea gelutable,a0
	moveq #0,d0
	moveq #0,d1
hydro:	move.b (a0),d0
	beq.s mxn
	move.b 1(a0),d1
	subq.w #1,4(a0)
	bpl.s emma
	move.w 2(a0),4(a0)
	lea gel1-20,a1
	move.l a1,a2
	lsl.w #2,d0
	lsl.w #2,d1
	add.w d0,a1
	add.w d1,a2
	lsl.w #2,d0
	lsl.w #2,d1
	add.w d0,a1
	add.w d1,a2
	moveq #4,d2
errer:	move.l (a1),d0
	move.l (a2),d1
	move.l d1,(a1)+
	move.l d0,(a2)+
	dbf d2,errer
emma:	addq.w #8,a0
	bra.s hydro

updatescreen:
	movem.l d0-d7/a0-a6,-(sp)
	tst.b rd+ciaa
	move.w #4,intreq+custom
	tst.b sattimaan
	bne.L baseexit

	link a6,#-140
	move.l a6,sikana
	move.l sp,baseboint

	move.l sp,a0
	moveq #26,d0
klf:	clr.l (a0)+
	dbf d0,klf

fliri:	btst #0,teega+1
	bne.s fliri

	move.w ypos(pc),d5
	lsl.w #5,d5
	add.w xpos(pc),d5
	move.w d5,platze0l
	move.w dirpos(pc),d4
	lsl.w #2,d4
	lea yrt(pc),a3
	add.w d4,a3
	move.b (a3)+,platze0l+3
	move.b (a3)+,platze0r+3
	move.b (a3)+,platze1l+3
	move.b (a3)+,platze1r+3
	move.w dirpos(pc),d4
	bne.s ma
	sub.w #32,d5
ma:	cmp.w #$1,d4
	bne.s ma2
	addq.w #1,d5
ma2:	cmp.w #$2,d4
	bne.s ma3
	add.w #32,d5
ma3:	cmp.w #$3,d4
	bne.s ma4
	subq.w #1,d5
ma4:	move.w d5,platze1l

	bsr.L touchpoints

	clr.b movin
	move.w dirpos(pc),rr1
	move.w xpos(pc),rr2
	move.w ypos(pc),rr3
	tst.b minkkinen
	beq.s wroom
	subq.b #1,minkkinen
	bra.s screiben
ding:	dc.w 0
wroom:	tst.b dmg
	beq.s lilu
	bchg #7,chas
	bne.s screiben
lilu:
	bsr.L keyread

	move.l xpos(pc),d0
	move.l d0,xpos2
	move.l d0,xpos3
	move.l d0,xpos4
	move.w dirpos(pc),d0
	move.w d0,dirpos2
	move.w d0,dirpos3
	move.w d0,dirpos4
	lsl.w #2,d0
	lea yrt(pc),a0
	add.w d0,a0
	move.b (a0)+,dirpos+3
	move.b (a0)+,dirpos2+3
	move.b (a0)+,dirpos3+3
	move.b (a0)+,dirpos4+3
screiben:clr.b dmg
	move.w ypos(pc),d0
	cmp.w rr3(pc),d0
	bne.s dotdot
	move.w xpos(pc),d0
	cmp.w rr2(pc),d0
	bne.s dotdot
	move.w dirpos(pc),d0
	cmp.w rr1(pc),d0
	beq.L notnott


dotdot:	st movin
	moveq #1,d2
	moveq #1,d7
	bsr.L koti
	moveq #2,d2
	bsr.L koti
	moveq #3,d2
	bsr.L koti
	moveq #4,d2
	bsr.L koti

	addq.w #1,ding
	move.w ding(pc),d0
	and.w #$3,d0
	lea party(pc),a0
	lsl.w #2,d0
	move.l 0(a0,d0.w),a0
	tst.b 80(a0)
	bne.s notnott
	moveq #32,d0
	moveq #1,d1
	bsr.L rnd
	subq.w #4,d0
	sub.w 90(a0),d0
	bmi.s notnott

	st updateit
	cmp.b #1,102(a0)
	blt.s trium
	bgt.s mitat
	subq.w #1,74(a0)
	bra.s trium
mitat:
	subq.w #2,74(a0)
trium:	move.w 104(a0),d0
	lsr.w #2,d0
	move.w d0,d1
	add.w d0,d1
	add.w d0,d1

	cmp.w 106(a0),d1
	bgt.s eitung
	subq.w #1,74(a0)
	add.w d0,d1
	cmp.w 106(a0),d1
	bgt.s eitung
	subq.w #1,74(a0)
eitung:

	lea 74(a0),a0
	subq.w #1,(a0)
	bpl.s waln
	clr.w (a0)
waln:	move.w 2(a0),d0
	lsr.w #2,d0
	cmp.w (a0),d0
	ble.s notnott
	subq.w #4,a0
	subq.w #1,(a0)
	bpl.s notnott
	clr.w (a0)
notnott:

	bsr.L torchupdate

	st changediss
	move.w #$8010,intena+custom

	tst.b paused
	bne.L llll

	bsr.L updategels
	bsr.L updatecreas
	bchg #2,chas

	move.w ypos(pc),d6
	move.w dirpos(pc),d4
	moveq #32,d5
	lsl.w #5,d6
	add.w xpos(pc),d6
	lea wallmap,a5
	add.w d6,a5
	lea plattemap,a6
	lsl.w #1,d6
	add.w d6,a6
	move.w d5,d7
	lsl.w #1,d7
	move.b (a5),wall24

	tst.w d4
	bne.L joksa1
	move.b -1(a5),w22(sp)
	move.b 1(a5),w23(sp)
	sub.w d5,a5
	move.b (a5),w1(sp)
	move.b -1(a5),w20(sp)
	move.b -1(a5),w15(sp)
	move.b 1(a5),w21(sp)
	move.b 1(a5),w10(sp)
	sub.w d5,a5
	move.b (a5),w2(sp)
	move.b -1(a5),w4(sp)
	move.b 1(a5),w5(sp)
	move.b -2(a5),w18(sp)
	move.b 2(a5),w13(sp)
	move.b -1(a5),w16(sp)
	move.b 1(a5),w11(sp)
 	sub.w d5,a5
	move.b (a5),w3(sp)
	move.b -1(a5),w7(sp)
	move.b -2(a5),w6(sp)
	move.b 1(a5),w8(sp)
	move.b 2(a5),w9(sp)
	move.b -2(a5),w19(sp)
	move.b 2(a5),w14(sp)
	move.b -1(a5),w17(sp)
	move.b 1(a5),w12(sp)

	move.w (a6),p1(sp)
	move.w -2(a6),p15(sp)
	move.w 2(a6),p16(sp)
	sub.w d7,a6
	move.w (a6),p3(sp)
	move.w -2(a6),p2(sp)
	move.w 2(a6),p4(sp)

	sub.w d7,a6
	move.w (a6),p7(sp)
	move.w -2(a6),p6(sp)
	move.w -4(a6),p5(sp)
	move.w 2(a6),p8(sp)
	move.w 4(a6),p9(sp)

	sub.w d7,a6
	move.w (a6),p12(sp)
	move.w -2(a6),p11(sp)
	move.w -4(a6),p10(sp)
	move.w 2(a6),p13(sp)
	move.w 4(a6),p14(sp)

	bra.L joksa4

joksa1:	cmp.w #1,d4
	bne.L joksa2

	move.b 1(a5),w1(sp)
	move.b 2(a5),w2(sp)
	move.b 3(a5),w3(sp)
	sub.w d5,a5
	move.b (a5),w22(sp)
	move.b 1(a5),w20(sp)
	move.b 1(a5),w15(sp)
	move.b 2(a5),w4(sp)
	move.b 2(a5),w16(sp)
	move.b 3(a5),w7(sp)
	move.b 3(a5),w17(sp)
	sub.w d5,a5
	move.b 2(a5),w18(sp)
	move.b 3(a5),w6(sp)
	move.b 3(a5),w19(sp)
	add.w d5,a5
	add.w d5,a5
	add.w d5,a5
	move.b (a5),w23(sp)
	move.b 1(a5),w21(sp)
	move.b 1(a5),w10(sp)
	move.b 2(a5),w5(sp)
	move.b 2(a5),w11(sp)
	move.b 3(a5),w8(sp)
	move.b 3(a5),w12(sp)
	add.w d5,a5
	move.b 2(a5),w13(sp)
	move.b 3(a5),w9(sp)
	move.b 3(a5),w14(sp)

	move.w (a6),p1(sp)
	move.w 2(a6),p3(sp)
	move.w 4(a6),p7(sp)
	move.w 6(a6),p12(sp)
	add.w d7,a6
	move.w (a6),p16(sp)
	move.w 2(a6),p4(sp)
	move.w 4(a6),p8(sp)
	move.w 6(a6),p13(sp)
	add.w d7,a6
	move.w 4(a6),p9(sp)
	move.w 6(a6),p14(sp)
	sub.w d7,a6
	sub.w d7,a6
	sub.w d7,a6
	move.w (a6),p15(sp)
	move.w 2(a6),p2(sp)
	move.w 4(a6),p6(sp)
	move.w 6(a6),p11(sp)
	sub.w d7,a6
	move.w 4(a6),p5(sp)
	move.w 6(a6),p10(sp)

	bra.L joksa4

joksa2:	cmp.w #2,d4
	bne.L joksa3

	move.b 1(a5),w22(sp)
	move.b -1(a5),w23(sp)
	add.w d5,a5
	move.b (a5),w1(sp)
	move.b 1(a5),w20(sp)
	move.b 1(a5),w15(sp)
	move.b -1(a5),w21(sp)
	move.b -1(a5),w10(sp)
	add.w d5,a5
	move.b (a5),w2(sp)
	move.b 1(a5),w4(sp)
	move.b -1(a5),w5(sp)
	move.b 2(a5),w18(sp)
	move.b -2(a5),w13(sp)
	move.b 1(a5),w16(sp)
	move.b -1(a5),w11(sp)
 	add.w d5,a5
	move.b (a5),w3(sp)
	move.b 1(a5),w7(sp)
	move.b 2(a5),w6(sp)
	move.b -1(a5),w8(sp)
	move.b -2(a5),w9(sp)
	move.b 2(a5),w19(sp)
	move.b -2(a5),w14(sp)
	move.b 1(a5),w17(sp)
	move.b -1(a5),w12(sp)

	move.w (a6),p1(sp)
	move.w 2(a6),p15(sp)
	move.w -2(a6),p16(sp)

	add.w d7,a6
	move.w (a6),p3(sp)
	move.w -2(a6),p4(sp)
	move.w 2(a6),p2(sp)

	add.w d7,a6
	move.w (a6),p7(sp)
	move.w -2(a6),p8(sp)
	move.w -4(a6),p9(sp)
	move.w 2(a6),p6(sp)
	move.w 4(a6),p5(sp)
	add.w d7,a6
	move.w (a6),p12(sp)
	move.w -2(a6),p13(sp)
	move.w -4(a6),p14(sp)
	move.w 2(a6),p11(sp)
	move.w 4(a6),p10(sp)
	bra.L joksa4

joksa3:	move.b -1(a5),w1(sp)
	move.b -2(a5),w2(sp)
	move.b -3(a5),w3(sp)
	add.w d5,a5
	move.b (a5),w22(sp)
	move.b -1(a5),w20(sp)
	move.b -1(a5),w15(sp)
	move.b -2(a5),w4(sp)
	move.b -2(a5),w16(sp)
	move.b -3(a5),w7(sp)
	move.b -3(a5),w17(sp)
	add.w d5,a5
	move.b -2(a5),w18(sp)
	move.b -3(a5),w6(sp)
	move.b -3(a5),w19(sp)
	sub.w d5,a5
	sub.w d5,a5
	sub.w d5,a5
	move.b (a5),w23(sp)
	move.b -1(a5),w21(sp)
	move.b -1(a5),w10(sp)
	move.b -2(a5),w5(sp)
	move.b -2(a5),w11(sp)
	move.b -3(a5),w8(sp)
	move.b -3(a5),w12(sp)
	sub.w d5,a5
	move.b -2(a5),w13(sp)
	move.b -3(a5),w9(sp)
	move.b -3(a5),w14(sp)

	move.w (a6),p1(sp)
	move.w -2(a6),p3(sp)
	move.w -4(a6),p7(sp)
	move.w -6(a6),p12(sp)
	sub.w d7,a6
	move.w (a6),p16(sp)
	move.w -2(a6),p4(sp)
	move.w -4(a6),p8(sp)
	move.w -6(a6),p13(sp)
	sub.w d7,a6
	move.w -4(a6),p9(sp)
	move.w -6(a6),p14(sp)
	add.w d7,a6
	add.w d7,a6
	add.w d7,a6
	move.w (a6),p15(sp)
	move.w -2(a6),p2(sp)
	move.w -4(a6),p6(sp)
	move.w -6(a6),p11(sp)
	add.w d7,a6
	move.w -4(a6),p5(sp)
	move.w -6(a6),p10(sp)

joksa4:	;jtkuu

	moveq #0,d3 ;mask
	lea w1(sp),a1
	lea w1-1(sp),a4
	lea objoverlap-1,a2
	moveq #18,d5
	moveq #0,d4
jihuu:	moveq #0,d0
	move.b (a1)+,d0
	lsl.w #1,d0
	btst #0,0(a2,d0.w)
	beq.s debfi
	
trey:	addq.w #4,d4
	dbf d5,jihuu
	bra.s jerubbaal

debfi:	lea overlay,a3
	move.l 0(a3,d4.w),a3
bebfi:	or.l (a3)+,d3	
aebbi:
	move.w (a3)+,d1
	beq.s trey
	moveq #0,d0
	move.b 0(a4,d1.w),d0
	bne.s lebfi
	addq.w #4,a3
	bra.s aebbi
lebfi:	lsl.w #1,d0
	btst #0,0(a2,d0.w)
	beq.s bebfi
	addq.w #4,a3
	bra.s aebbi
maskel: dc.l 0
hellowo: dc.l 0
jerubbaal:
	move.l d3,maskel

	move.w ypos(pc),d1
	lsl.w #5,d1
	moveq #32,d2
	add.w xpos(pc),d1
	move.w d1,cp0(sp)

	tst.w dirpos
	bne.s liuksiala
	move.w d1,d0
	sub.w d2,d0
	move.w d0,cp2(sp)
	subq.w #1,d0
	move.w d0,cp1(sp)
	addq.w #2,d0
	move.w d0,cp3(sp)
	sub.w d2,d0
	move.w d0,cp7(sp)
	addq.w #1,d0
	move.w d0,cp8(sp)
	subq.w #2,d0
	move.w d0,cp6(sp)
	subq.w #1,d0
	move.w d0,cp5(sp)
	subq.w #1,d0
	move.w d0,cp4(sp)
	sub.w d2,d0
	move.w d0,cp9(sp)
	addq.w #1,d0
	move.w d0,cp10(sp)
	addq.w #1,d0
	move.w d0,cp11(sp)
	addq.w #1,d0
	move.w d0,cp12(sp)
	addq.w #1,d0
	move.w d0,cp13(sp)
	bra.L endofl
liuksiala:cmp.w #1,dirpos
	bne.s pizza
	move.w d1,d0
	addq.w #1,d0
	move.w d0,cp2(sp)
	sub.w d2,d0
	move.w d0,cp1(sp)
	add.w d2,d0
	add.w d2,d0
	move.w d0,cp3(sp)
	addq.w #1,d0
	add.w d2,d0
	move.w d0,cp8(sp)
	sub.w d2,d0
	move.w d0,cp7(sp)
	sub.w d2,d0
	move.w d0,cp6(sp)
	sub.w d2,d0
	move.w d0,cp5(sp)
	sub.w d2,d0
	move.w d0,cp4(sp)
	addq.w #1,d0
	move.w d0,cp9(sp)
	add.w d2,d0
	move.w d0,cp10(sp)
	add.w d2,d0
	move.w d0,cp11(sp)
	add.w d2,d0
	move.w d0,cp12(sp)
	add.w d2,d0
	move.w d0,cp13(sp)
	bra.L endofl
pizza:	cmp.w #2,dirpos
	bne.s mahk
	move.w d1,d0
	add.w d2,d0
	move.w d0,cp2(sp)
	addq.w #1,d0
	move.w d0,cp1(sp)
	subq.w #2,d0
	move.w d0,cp3(sp)
	add.w d2,d0
	subq.w #1,d0
	move.w d0,cp8(sp)
	addq.w #1,d0
	move.w d0,cp7(sp)
	addq.w #1,d0
	move.w d0,cp6(sp)
	addq.w #1,d0
	move.w d0,cp5(sp)
	addq.w #1,d0
	move.w d0,cp4(sp)
	add.w d2,d0
	move.w d0,cp9(sp)
	subq.w #1,d0
	move.w d0,cp10(sp)
	subq.w #1,d0
	move.w d0,cp11(sp)
	subq.w #1,d0
	move.w d0,cp12(sp)
	subq.w #1,d0
	move.w d0,cp13(sp)
	bra.s endofl
mahk:
	move.w d1,d0
	subq.w #1,d0
	move.w d0,cp2(sp)
	add.w d2,d0
	move.w d0,cp1(sp)
	sub.w d2,d0
	sub.w d2,d0
	move.w d0,cp3(sp)
	subq.w #1,d0
	sub.w d2,d0
	move.w d0,cp8(sp)
	add.w d2,d0
	move.w d0,cp7(sp)
	add.w d2,d0
	move.w d0,cp6(sp)
	add.w d2,d0
	move.w d0,cp5(sp)
	add.w d2,d0
	move.w d0,cp4(sp)
	subq.w #1,d0
	move.w d0,cp9(sp)
	sub.w d2,d0
	move.w d0,cp10(sp)
	sub.w d2,d0
	move.w d0,cp11(sp)
	sub.w d2,d0
	move.w d0,cp12(sp)
	sub.w d2,d0
	move.w d0,cp13(sp)
endofl:	
	lea creaplaces,a0
	moveq #0,d1

senare:	addq.w #1,d1
	move.l (a0)+,d0
	beq.s sistavarv
	move.l d0,a1
	move.w 14(a1),d3
	lsl.w #5,d3
	add.w 12(a1),d3

	lea cp1(sp),a2
	lea c1a(sp),a3
	subq.w #4,a3
	moveq #12,d4

eioo1:	addq.w #4,a3
	cmp.w (a2)+,d3
	beq.s hiekoitus
	dbf d4,eioo1
	bra.s senare
hiekoitus:
	tst.b (a3)+
	bne.s hiekoitus
	move.b d1,-(a3)
	bra.s senare
sistavarv:

; don't change order

	bsr.L pekkacheck

	bsr.L touchpoints

	bsr.L plattetouchpoints

	bsr.L updatedoors

	bsr.L updatethings

	bsr.L updatemembers

	tst.b sleep
	beq.s kukkudeny
llll:	tst.b logical
	bne.s kude
	bsr.L updatepalette
kude:
	tst.b changediss
	beq.s haaa
	stop #%0010000100000000
	bra.S kude
haaa:
flflf:	moveq #6,d0
	lea dldl(pc),a0
	tst.b paused
	beq.s luuta
	lea dydy(pc),a0
	moveq #3,d0
luuta:	moveq #8,d2
	moveq #70,d1
	moveq #-2,d3
	bsr.L bwait
	bsr.L textwrite
	bra.L tree
kukkudeny:

	tst.b changediss
	beq.s hhhh
	stop #%0010000100000000
	bra.S kukkudeny
hhhh:	
	tst.b statusscreen
	beq.S wartr
	moveq #0,d0
	move.b statusscreen(pc),d0
	subq.w #1,d0
	lea party(pc),a0
	lsl.w #2,d0
	add.w d0,a0
	move.l (a0),a0
	tst.b 80(a0)
	bne.s hyvva
	bra.L rege
hyvva:	tst.b r1state
	bne.L rege
	st r1state
	bra.L rege
wartr:
	bsr.L mono
	bsr.L bwait

	moveq #18,d1
	moveq #15,d4
	moveq #1,d5
	lea p1(sp),a1

	st dangerzone

	move.l maskel(pc),d3
lopsis:	cmp.w #32,d1
	bge.s hyppyjump
	cmp.w #1,d5
	beq.s hyppyjump
	btst d1,d3
	bne.L kikvi
hyppyjump: moveq #0,d0
	move.b (a1)+,d0
	beq.s kikvi4
	move.w #$8000,d7
	bsr.s julia
	
kikvi4:	moveq #0,d0
	move.b (a1)+,d0
	beq.L kkikvi2
	moveq #0,d7
	bsr.s julia
	bra.L kkikvi2
julia:	lea platteplaces-8,a0
	lsl.w #3,d0
	add.w d0,a0
	btst #3,5(a0)
	beq.s hamppari
	move.w dirpos(pc),d0
	lsl.w #3,d0
	add.w d0,a0
	add.w d0,a0
	add.w d0,a0
	cmp.w #13,d5
	beq.s bua
	cmp.w #14,d5
	beq.s bua
	cmp.w #16,d5
	beq.s bua
	cmp.w #8,d5
	beq.s bua
	cmp.w #9,d5
	beq.s bua
	cmp.w #4,d5
	beq.s bua

	cmp.w #3,d5
	beq.s hua
	cmp.w #7,d5
	beq.s hua
	cmp.w #12,d5
	beq.s hua
	cmp.w #1,d5
	bne.s hamppari
hua:	subq.w #8,a0
bua:	add.w #16,a0
hamppari:move.b 5(a0),kumpi
	btst #4,5(a0)
	beq.s tngram
	cmp.w #1,d5
	bne.s tngram
	bset #1,kumpi
tngram:	move.w 6(a0),akseli
	move.l a0,a6
	move.l (a0),a0
	move.w d7,d0
	or.w d5,d0
	bsr.L placeplatte
	btst #5,kumpi
	beq.s riihi
	addq.w #8,a6
	move.l a6,a0
	st kuppa
	bra.S hamppari
riihi:	clr.b kuppa
	rts

kuppa:	dc.w 0

kikvi:	addq.w #2,a1
kkikvi2:addq.w #1,d1
	addq.w #1,d5

	dbf d4,lopsis

;-walls------------
;-... & creas------
	clr.b dangerzone

	moveq #9,d1
	bsr.L dorkafiilis ;thin
	moveq #19,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #9,d1
	bsr.L blobsis ;crea
	moveq #6,d1
	bsr.L hopsis ;wall
	moveq #9,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #9,d1
	bsr.L blobsis ;crea
	moveq #17,d1
	bsr.L hopsis ;wall
	moveq #10,d1
	bsr.L dorkafiilis ;thin
	st pappablob
	moveq #10,d1
	bsr.L blobsis ;crea
	moveq #7,d1
	bsr.L hopsis ;wall
	moveq #10,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #10,d1
	bsr.L blobsis ;crea
	moveq #13,d1
	bsr.L dorkafiilis ;thin
	moveq #14,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #13,d1
	bsr.L blobsis ;crea
	moveq #9,d1
	bsr.L hopsis ;wall
	moveq #13,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #13,d1
	bsr.L blobsis ;crea
	moveq #12,d1
	bsr.L dorkafiilis ;thin
	moveq #12,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #12,d1
	bsr.L blobsis ;crea
	moveq #8,d1
	bsr.L hopsis ;wall
	moveq #12,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #12,d1
	bsr.L blobsis ;crea

	moveq #11,d1
	bsr.L dorkafiilis ;thin
	st pappablob
	moveq #11,d1
	bsr.L blobsis ;crea
	moveq #3,d1
	bsr.L hopsis ;wall
	moveq #11,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #11,d1
	bsr.L blobsis ;crea

	moveq #4,d1
	bsr.L dorkafiilis ;thin
	moveq #18,d1
	bsr.L hopsis ;wall
	moveq #8,d1
	bsr.L dorkafiilis ;thin
	moveq #13,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #4,d1
	bsr.L blobsis ;crea
	moveq #8,d1
	bsr.L blobsis ;crea
	clr.b pappablob
	moveq #4,d1
	bsr.L blobsis ;crea
	moveq #8,d1
	bsr.L blobsis ;crea
	moveq #5,d1
	bsr.L dorkafiilis ;thin
	moveq #16,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #5,d1
	bsr.L blobsis ;crea
	moveq #4,d1
	bsr.L hopsis ;wall
	moveq #5,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #5,d1
	bsr.L blobsis ;crea
	moveq #7,d1
	bsr.L dorkafiilis ;thin
	moveq #11,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #7,d1
	bsr.L blobsis ;crea
	moveq #5,d1
	bsr.L hopsis ;wall
	moveq #7,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #7,d1
	bsr.L blobsis ;crea
	moveq #6,d1
	bsr.L dorkafiilis ;thin

	st pappablob
	moveq #6,d1
	bsr.L blobsis ;crea
	moveq #2,d1
	bsr.L hopsis ;wall
	moveq #6,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #6,d1
	bsr.L blobsis ;crea

	moveq #1,d1
	bsr.L dorkafiilis ;thin
	moveq #15,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #1,d1
	bsr.L blobsis ;crea
	moveq #20,d1
	bsr.L hopsis ;wall
	clr.b pappablob
	moveq #1,d1
	bsr.L blobsis ;crea

	moveq #3,d1
	bsr.L dorkafiilis ;thin
	moveq #10,d1
	bsr.L hopsis ;wall
	st pappablob
	moveq #3,d1
	bsr.L blobsis ;crea
	moveq #21,d1
	bsr.L hopsis ;wall
	clr.b pappablob
	moveq #3,d1
	bsr.L blobsis ;crea

	moveq #2,d1
	bsr.L dorkafiilis ;thin
	st pappablob
	moveq #2,d1
	bsr.L blobsis ;crea
	moveq #1,d1
	bsr.L hopsis ;wall
	moveq #2,d1
	bsr.L dorkafiilis
	clr.b pappablob
	moveq #2,d1
	bsr.L blobsis ;crea

	moveq #22,d1
	bsr.L hopsis ;wall
	moveq #23,d1
	bsr.L hopsis ;wall
	moveq #0,d1
	bsr.L dorkafiilis
	moveq #24,d1
	bsr.L hopsis ;wall

tree:
	bsr.L copras

	move.l sikana(pc),a6
	unlk a6
	moveq #0,d0

	btst #7,ciaa+r0
	bne.s loppo
	move.w #$4,intena+custom
loppo:

	tst.b entinen+1
	beq.s dumppan
	clr.b entinen+1
	tst.b kafka
	bne.s dumppan
	bsr.L updatepalette
dumppan:
	bclr #5,minkkinen2
	beq.s pnba
	moveq #4,d2
orig:
	moveq #16,d0
	moveq #2,d1
	bsr.L rnd
	move.w d2,d1
	bsr.L partyhit
	subq.w #1,d2
	bne.s orig

	add.w #32,ypos
pnba:
abortsl:
	move.w ypos(pc),d0
	move.w xpos(pc),d1
	lsl.w #1,d1
	lsl.w #6,d0
	add.w d1,d0
	lea plattemap,a0
	add.w d0,a0
	moveq #0,d0
	move.b 1(a0),d0
	beq.s kymm
	lea platteplaces-3,a0
	lsl.w #3,d0
	add.w d0,a0
	btst #0,(a0)
	beq.s kymm
	tst.b sattimaan
	bne.s kymm
	bset #5,minkkinen2
kymm:

baseexit:
	movem.l (sp)+,d0-d7/a0-a6
	rte


sedi:	dc.b 99,1
haga:	dc.w 0

talk:	dc.b 0
laddaa:	dc.b 0
talkcrea:dc.l 0

;d0 result 0-neut 1=yes -1=no

guff:	tst.w d0
	bne.s notdf
	moveq #1,d0
notdf:	neg.w d0
siin:	rts

teston:	tst.w d7
	beq.L konen
	move.l a1,a2
	moveq #" ",d6
durg:	cmp.b #'n',(a2)
	bne.s sirt
	cmp.b #"#",1(a2)
	bne.s sirt
	cmp.b #'t',2(a2)
	bne.s sirt
	move.b d6,(a2)
	move.b d6,1(a2)
	move.b d6,2(a2)
	bsr.s guff
sirt:	cmp.b #' ',-1(a2)
	bne.s cirt
	cmp.b #'u',(a2)
	bne.s cirt
	cmp.b #"n",1(a2)
	bne.s cirt
	move.b d6,(a2)
	move.b d6,1(a2)
	bsr.s guff
cirt:
	cmp.b #' ',-1(a2)
	bne.s cirt2
	cmp.b #'d',(a2)
	beq.s thang
	cmp.b #'m',(a2)
	bne.s cirt2
thang:	cmp.b #"i",1(a2)
	bne.s cirt2
	cmp.b #"s",2(a2)
	bne.s cirt2
	move.b d6,1(a2)
	move.b d6,2(a2)
	bsr.L guff
cirt2:	cmp.b #' ',-1(a2)
	bne.s cirt3
	cmp.b #'i',(a2)
	bne.s cirt3
	cmp.b #"r",1(a2)
	bne.s cirt3
	move.b d6,(a2)
	move.b d6,1(a2)
	bsr.L guff
cirt3:	cmp.b #' ',-1(a2)
	bne.s cirt4
	cmp.b #'i',(a2)
	bne.s cirt4
	cmp.b #"m",1(a2)
	bne.s cirt4
	move.b d6,(a2)
	move.b d6,1(a2)
	bsr.L guff
cirt4:
	tst.b (a2)+
	bne.L durg

konen:	move.l a1,a2
	moveq #-1,d1
	tst.b (a2)
	beq.L siin
colia:	addq.w #1,d1
	tst.b (a2)
	beq.s sinu
	cmp.b #' ',(a2)+
	bne.s colia
sinu:	tst.w d1
	beq.L teston

	move.l a0,a3

lala2:	tst.b (a3)
	bne.s robesp
	move.l a2,a1
	bra.L teston	
robesp:	move.w d1,d2
	subq.w #1,d2

	move.l a1,a4
lala:	move.b (a3)+,d3
	bne.s pyyks
yyhs:	tst.b d7
	beq.s fhgg
	tst.w d0
	bne.s anot
	moveq #1,d0
anot:	neg.w d0
	bra.s lala2
fhgg:	tst.w d0
	bne.s lala2
	moveq #1,d0
	bra.s lala2
pyyks:	cmp.b (a4)+,d3
	bne.s jacob
	dbf d2,lala
	tst.b (a3)
	beq.s yyhs

jacob:	tst.b (a3)+
	bne.s jacob
	bra.s lala2





angr:	dc.b "^ refuses to talk and angrily",0
	dc.b "turned away.",0,0
attc:	dc.b "^ looks at you for a moment with",0
	dc.b "deep disgust and then attacks",0
	dc.b "with a cry.",0,0
even

strhex:	lea shift,a0
kitara:	tst.b -(a0)
	beq.s kitara
	moveq #1,d1
	addq.w #1,a0
ganga:	move.b -(a0),d0
	sub.b #"0",d0
	bmi.s cscii
	cmp.b #9,d0
	bgt.s cscii
	mulu d1,d0
	add.w d0,strnr
	mulu #10,d1
	bra.s ganga
cscii:	rts

torchupdate:
; update icons
	tst.b talk
	beq.L melenc

	move.l talkcrea(pc),a6
	tst.b newtalk
	beq.s lenc
	clr.b newtalk
	move.l 92(a6),a0
	bsr.L talkprint
	bra.L melenc
lenc:	tst.b byetxt
	beq.s dyrer
	clr.b byetxt
	move.l 96(a6),a0
	bsr.L talkprint
	lea return(pc),a0
	bsr.L talkprint
	bra.L melenc
dyrer:	tst.b bye2
	bne.L melenc
	tst.b askstr
	bne.L melenc

; moral check

	cmp.b #50,62(a6)
	blt.s eifin
	cmp.b #80,62(a6)
	bgt.s immd
imdo:	lea angr(pc),a1
	bra.s immd2
immd:	lea attc(pc),a1
	btst #3,26(a6)
	bne.s imdo
	st beang
immd2:	lea return(pc),a0
	bsr.L talkprint
	move.l a1,a0
	bsr.L talkprint
	st bye2
	clr.b askstr
	bra.L melenc
eifin:

	tst.b where
	bne.s splend
	move.b #1,where
splend:	cmp.b #1,where
	bne.L fragen

	move.L tyyppi(pc),d0
	bne.L part2th

antr:	moveq #0,d0
	move.b 66(a6),d0
	mulu #44,d0
	move.l 80(a6),a5
	add.w d0,a5



	btst #4,(a5)
	beq.s viuuh
	clr.b 66(a6)
	bra.s antr
viuuh:	addq.b #$1,66(a6)

	btst #3,(a5)
	bne.L fragen
	tst.b 1(a5)
	bne.L trade

	moveq #20,d0
	moveq #1,d1
	bsr.L realrnd
	cmp.b 11(a5),d0
	bgt.L fragen

	move.b 10(a5),d7
	bmi.s rety
	move.b d7,67(a6)
	btst #7,(a5)
	beq.s rety
	ext.w d7
	mulu #40,d7
	move.l 84(a6),a4
	add.w d7,a4
	bclr #7,1(a4)
rety:
	move.b 16(a5),d7
	bmi.s rety2
	move.b d7,66(a6)
	btst #7,(a5)
	beq.s rety2
	ext.w d7
	mulu #44,d7
	move.l 80(a6),a4
	add.w d7,a4
	bclr #3,(a4)
rety2:
	move.l a5,tyyppi

	lea return(pc),a0
	bsr.L talkprint
	move.l 12(a5),a0
	bsr.L talkprint
	lea return(pc),a0
	bsr.L talkprint
	bsr.L talkprint

	st askstr
	clr.b result
	bra.L melenc

trade:	bra.L melenc

part2th:move.l d0,a5
	clr.l tyyppi

; d7=no/yes 1/0
	moveq #0,d0
	moveq #1,d7
	move.l 6(a5),a0
	lea lastcmd,a1
	bsr.L teston

	moveq #0,d7
	move.l 2(a5),a0
	lea lastcmd,a1
	bsr.L teston

; -1=no 1=yes 

	tst.b d0
	bne.s ampli
	move.b 21(a5),d1
	move.b 22(a5),d2
	move.b 23(a5),d3
	move.b 24(a5),d4
	move.l 34(a5),a0
	btst #1,(a5)
	bra.s ampli3
ampli:	bmi.s ampli2
	move.b 17(a5),d1
	move.b 18(a5),d2
	move.b 19(a5),d3
	move.b 20(a5),d4
	move.l 30(a5),a0
	btst #0,(a5)
	bra.s ampli3
ampli2:	move.b 25(a5),d1
	move.b 26(a5),d2
	move.b 27(a5),d3
	move.b 28(a5),d4
	move.l 38(a5),a0
	btst #2,(a5)
ampli3:	beq.s ernst
	bset #3,(a5)
ernst:	add.b d1,62(a6)
	add.b d2,63(a6)
	add.b d3,64(a6)
	add.b d4,65(a6)

	bsr.L talkprint

	clr.b cmdnotf
	clr.b where
	bra.L melenc


tyyppi:	dc.l 0

items:	dc.w 0
prlow:	dc.w 0
prhigh:	dc.w 0
strnr:	dc.w 0
offer:	dc.b 0
where:	dc.b 0
mellody:dc.b 0
iconok:	dc.b 0
answerask:
	st result
;	tst.b askstr
;	bne.L melenc
;	moveq #0,d0
;	move.l 84(a6),a1
;	move.b 67(a6),d0
;	mulu #48,d0
;	add.w d0,a1

;	lea reply(pc),a2
;	tst.w (a2)
;	bne.s exci
;	move.l 22(a1),a0
;	bsr.L talkprint
;exci:	tst.w (a2)
;	bmi.s tyhjj
;	move.l 18(a1),a0
;	bsr.L talkprint
;tyhjj:	tst.w (a2)
;	bpl.s tyhjj2
;	move.l 14(a1),a0
;	bsr.L talkprint
;tyhjj2:

;	bra.s melenc

;	btst #4,(a5)
;	beq.s kaix
;	clr.b 66(a6)
;	bra.s fragen
;kaix:	tst.b 1(a5)
;	beq.s mello
;	moveq #0,d0
;	move.b 1(a5),d0
;	move.w 0(a6,d0.w),d0
;	move.b d0,items+1
;	move.w 26(a5),prlow
;	move.w 30(a5),prhigh
;	moveq #0,d0
;	cmp.b #30,63(a6)
;	bgt.s nuuh
;	move.b 32(a5),d0
;nuuh:	cmp.b #70,63(a6)
;	blt.s nuuh2
;	move.b 34(a5),d0
;nuuh2:	sub.w d0,prlow
;	sub.w d0,prhigh
;	move.l 14(a5),a0
;	bsr.L talkprint
;	st askstr
;	bra.s melenc
;mello:
	bra.s melenc

tronic:	lea lastcmd,a0
	lea nber1(pc),a1
	moveq #0,d6
	moveq #1,d7
tauoni:	move.l a0,a2
duh:	move.b (a1)+,d0
	beq.s pioni
	cmp.b (a2)+,d0
	beq.s duh
uroni:	tst.b (a1)+
	bne.s uroni
	bra.s hadron
pioni:	move.w d7,d6
hadron:	addq.w #1,d7
	cmp.b #12,d7
	bne.s tauoni
	tst.w d6
	beq.s melenc
	move.w #$fff,color0+custom
	bra.s melenc

fragen:	tst.b mellody
	bne.s tronic
	tst.b vorking
	beq.s melenc
	clr.b result
	st mellody
	st iconok
	move.b #2,where
	st askstr
	lea return(pc),a0
	bsr.L talkprint
	bsr.L talkprint

melenc:	tst.b iconok
	beq.L eicon
	lea threat(pc),a0
	tst.b (a0)
	beq.s vrv
	lea nber1(pc),a2
	bra.L vrv7
vrv:	tst.b 1(a0)
	beq.s vrv1
	lea nber2(pc),a2
	bra.L vrv7
vrv1:	tst.b 2(a0)
	beq.s vrv2
	lea nber3(pc),a2
	bra.L vrv7
vrv2:	tst.b 3(a0)
	beq.s vrv3
	lea nber4(pc),a2
	bra.s vrv7
vrv3:	tst.b 4(a0)
	beq.s vrv4
	lea nber5(pc),a2
	bra.s vrv7
vrv4:	tst.b 5(a0)
	beq.s vrv5
	lea nber6(pc),a2
	bra.s vrv7
vrv5:	tst.b 6(a0)
	beq.s vrv6
	lea nber7(pc),a2
	bra.s vrv7
vrv6:	tst.b 7(a0)
	beq.s vrv8
	lea nber8(pc),a2
	bra.s vrv7
vrv8:	tst.b 8(a0)
	beq.s vrv9
	lea nber9(pc),a2
	bra.s vrv7
vrv9:	tst.b 9(a0)
	beq.s vrv10
	lea nber10(pc),a2
	bra.s vrv7
vrv10:	tst.b 9(a0)
	beq.L eicon
	lea nber11(pc),a2
vrv7:	lea cmdstr,a3
vrv111:	move.b (a2)+,(a3)+
	bne.s vrv111

reta:	clr.b (a3)+
	bne.s reta

	moveq #$44,d0
	bsr.s enterkey
	bra.s eicon

enterkey:
	lea keybuffer,a0
sing:	cmp.b #$fe,(a0)
	beq.s fer
	cmp.b #$ff,(a0)+
	bne.s sing
fer:	move.b d0,-(a0)
	rts

varaus:	dc.b 0
	dc.b 0
nber1:	dc.b '(threat)',0
nber2:	dc.b '(give)',0
nber3:	dc.b '(beg)',0
nber4:	dc.b '(buy)',0
nber5:	dc.b '(sell)',0
nber6:	dc.b '(curse)',0
nber7:	dc.b '(bribe)',0
nber8:	dc.b '(greet)',0
nber9:	dc.b '(chat)',0
nber10:	dc.b '(advice)',0
nber11:	dc.b '(info)',0

eicon:	lea r1state(pc),a0

	tst.b selm
	bne.L dila

	tst.b 3(a0)
	beq.L dila
	bchg #6,chas
	beq.L dila
	clr.b 3(a0)
	move.l xpos(pc),d0
	move.l #$10000,d3
	move.w dirpos(pc),d1
	bne.s lion
	subq.w #1,d0
lion:	cmp.b #1,d1
	bne.s tigf
	add.l d3,d0
tigf:	cmp.b #2,d1
	bne.s tigf2
	addq.w #1,d0
tigf2:	cmp.b #3,d1
	bne.s tigf3
	sub.l d3,d0

tigf3:
	lea creaplaces+16,a0
simon:	move.l (a0)+,d1
	beq.s dilada
	move.l d1,a1
	cmp.l 12(a1),d0
	bne.s simon
	cmp.b #$ff,62(a1)
	beq.s dilada
	bset #0,52(a1)
	move.l a1,talkcrea
	move.b statusscreen(pc),talk
	st laddaa
	st clrscr
	st txwrit
	st vorking
	st newtalk
	clr.b dumpkey
	move.b #3,bak
	clr.b buk

dilada:	lea r1state(pc),a0
dila:	tst.b (a0)
	beq.s ylha
	bset #0,haga+1
	beq.s ylha
	clr.b haga+1
	clr.b (a0)
	clr.w statusscreen
	st sedi+1
	st deppad+1
	st entinen
	bsr.L torchupdate
	bsr.L updatepalette
	lea r1state(pc),a0
ylha:	tst.b 1(a0)
	beq.S ylvas

	bset #1,haga
	beq.S sll
	bset #0,haga
	beq.S sll

	bsr.L hedgeh
	bra.s sll
ylvas:	tst.b sleep
	beq.s sll
	bsr.L log
sll:
	tst.b 5(a0)
	beq.S wiebitte

	bset #1,haga
	beq.S sill
	bset #0,haga
	beq.S sill

	bsr.L hedgeh
	st paused
	bra.s sill
wiebitte:tst.b paused
	beq.s sill
	bsr.L log
	clr.b paused
sill:	tst.b paused
	bne.L dens

	tst.b 2(a0)
	beq.S yva
	tst.b infrav
	bne.s avyh
	bsr.L offinfr
	bra.s avyh
yva:	tst.b 2(a0)
	bne.s yva
	tst.b infrav
	beq.s avyh
	bsr.L offinfr
avyh:


; update torch
	tst.b masterstr+78
	beq.s dens
	lea sedi(pc),a0
	tst.b 1(a0)
	bne.s hillum
	addq.b #1,(a0)
	cmp.b #200,(a0)
	bne.s dens
hillum:	clr.b 1(a0)
	moveq #0,d7 ;illu
	lea member1,a0
	bsr.s ollia
	lea member2,a0
	bsr.s ollia
	lea member3,a0
	bsr.s ollia
	lea member4,a0
	bsr.s ollia
	clr.b deppad+1
	cmp.b entinen(pc),d7
	beq.s dens
	move.b d7,entinen
	not.b d7
	and.w #$f,d7
	addq.w #1,d7
	move.w d7,currlight
	st entinen+1
dens:	rts

entinen:dc.b $f,0

ollia:	move.w 6(a0),d0
	beq.s kiuass
	bsr.s kollia
kiuass:	move.w 8(a0),d0
	beq.s kiu
	bsr.s kollia
kiu:	rts

kollia:	lea thingplaces-24,a1
	lsl.w #3,d0
	add.w d0,a1
	add.w d0,a1
	add.w d0,a1
	btst #13,18(a1)
	beq.s kiu
	move.b 4(a1),d0
	move.l 12(a1),a2
	cmp.b d0,d7
	bgt.s nolla
	move.b d0,d7
nolla:	tst.b deppad+1
	bne.s kiu
	subq.b #1,3(a1)
	bne.s kiu
	move.b 29(a2),3(a1)
	subq.b #1,4(a1)
kou:	subq.b #1,5(a1)
	bne.s kau
	btst #3,47(a2)
	beq.s faug
	addq.b #1,2(a1)
	move.l 12(a1),a3
	move.l 72(a3),a3
	move.l a3,12(a1)
	move.b 70(a3),4(a1)
	move.b 28(a3),5(a1)
	move.b 29(a3),3(a1)
	bra.s kau
faug:	bclr #13,18(a1)
kau:	rts

doitdc:	bsr.s nuf
	sub.w d6,a0
	bsr.s nuf
	sub.l d1,d5
	sub.l d1,a3
	sub.w d3,a0
	bsr.s nuf
	sub.l d1,d5
	sub.l d1,a3
	sub.w d6,a0
	bsr.s nuf
	sub.l d1,d5
	sub.l d1,a3
	sub.w d3,a0
	bsr.s nuf
	sub.w d6,a0
	bsr.s nuf
	sub.l d1,d5
	sub.l d1,a3
	sub.w d3,a0
	bsr.s nuf

	bra.L kuxit

nuf:
	move.l d4,a6
	move.l d5,a1
	move.l a3,a4
	add.l #40,d4
	add.w (a0)+,a6
	add.w (a0),a1
	add.w (a0)+,a4
	move.w (a0),d0
	or.w gecko(pc),d0
	move.w d0,(a2)
	move.w (a0)+,d0
	or.w eestaas(pc),d0
	move.w d0,bltcon1(a5)
	move.l a6,bltdpt(a5)
	move.l a6,bltcpt(a5)
	move.l a1,bltapt(a5)
	move.l a4,bltbpt(a5)
	move.w (a0)+,bltsize(a5)
fits:	rts

threat:	dc.b 0
give:	dc.b 0
beg:	dc.b 0
buy:	dc.b 0
sell:	dc.b 0
curse:	dc.b 0
bribe:	dc.b 0
chat:	dc.b 0
advice:	dc.b 0
info:	dc.b 0

selm:	dc.b 0
clrscr:	dc.b 0
clearok:dc.b 0
askstr:	dc.b 0



touchpoints:
	bsr.L getcursor
	cmp.w #$ffff,d1
	beq.S fits

	tst.b paused
	beq.s hysch
	clr.b r6state
	rts
hysch:	tst.b sleep
	beq.s fullofp
	clr.b r2state
	rts
fullofp:move.w d0,cx
	move.w d1,cy
	tst.b talk
	beq.L rumbu
	tst.b bye2
	bne.s endtalk
	cmp.w #251,d0
	blt.L tuhka
	cmp.w #280,d0
	bgt.L tuhka
	cmp.w #27,d1
	bgt.L tuhka
	clr.b askstr
	st byetxt
	st bye2
	rts
endtalk:clr.b bye2
	clr.b talk
	clr.b txwrit
	clr.b cmdnotf
	clr.b clrscr
	clr.l tyyppi
	clr.b where
	clr.b mellody
	clr.b iconok
	move.b #10,bak

	moveq #17,d0
	lea typebuff(pc),a4
sulla:	clr.l (a4)+
	dbf d0,sulla

	moveq #9,d0
	lea cmdstr,a4
dugh:	clr.l (a4)+
	dbf d0,dugh

	move.l talkcrea(pc),a4
	bclr #0,beang
	beq.s ang
	or.b #%1100000,35(a4)
ang:	bclr #0,52(a4)
	bsr.L turn2
	rts
tuhka:	cmp.w #13,d1
	bgt.s asher
	cmp.w #53,d0
	bgt.s ruum
	st threat
	rts
ruum:	cmp.w #190,d0
	blt.s suum
	st sell
	rts
suum:	cmp.w #99,d0
	bgt.s diina
	st give
	rts
diina:	cmp.w #140,d0
	bgt.s wert
	st beg
	rts
wert:	st buy
	rts
asher:	cmp.w #27,d1
	bgt.s duuma
	cmp.w #53,d0
	bgt.s um
	st curse
	rts
um:	cmp.w #190,d0
	blt.s jum
	st info
	rts
jum:	cmp.w #99,d0
	bgt.s gina
	st bribe
	rts
gina:	cmp.w #140,d0
	bgt.s vert
	st chat
	rts
vert:	st advice
	rts

duuma:	cmp.w #186,d1
	bgt.s rumbu
	rts
rumbu:	tst.b statusscreen
	bne.L thingtake
	move.w dirpos(pc),d1
	move.w ypos(pc),d0
	lsl.w #5,d0
	add.w xpos(pc),d0
	tst.w d1
	bne.s ramona
	sub.w #32,d0
ramona:	cmp.w #$1,d1
	bne.s foinix
	addq.w #1,d0
foinix:	cmp.w #$2,d1
	bne.s einix
	add.w #32,d0
einix:	cmp.w #$3,d1
	bne.s seloppu
	subq.w #1,d0
seloppu:
	lea touchtable,a0
goinfor:tst.l (a0)
	beq.L thingtake
	move.l (a0)+,a1
	move.w 2(a1),d1
	add.w (a1),d1
	cmp.w d1,d0
	bne.s goinfor

	move.l a1,a0

	move.w cx(pc),d0
	cmp.w 4(a0),d0
	blt.L thingtake
	cmp.w 6(a0),d0
	bgt.L thingtake
	move.w cy(pc),d0
	cmp.w 8(a0),d0
	blt.L thingtake
	cmp.w 10(a0),d0
	bgt.L thingtake

	add.w #12,a0
	bsr.s jateputki
	bra.L thingtake
rexor:	rts

jateputki:
	move.l (a0)+,d0
	beq.s rexor
	move.l d0,a1
	move.w (a0)+,d0
	cmp.b #$20,d0
	blt.s fykee
	move.l (a0)+,d1
	bra.s sikee
fykee:	move.w (a0)+,d1
sikee:	move.l (a0)+,d2
	beq.s tug
	move.l d2,a2
	cmp.w #$2000,d0
	blt.s ral
	move.l (a0)+,d2
	move.l (a0)+,d3
	cmp.l (a2),d2
	bgt.s jateputki
	cmp.l (a2),d3
	blt.s jateputki
	bra.s tug
ral:
	cmp.w #$1000,d0
	bge.s sis
	move.b (a0)+,d2
	move.b (a0)+,d3
	cmp.b (a2),d2
	bgt.s jateputki
	cmp.b (a2),d3
	blt.s jateputki
	bra.s tug
sis:
	move.w (a0)+,d2
	move.w (a0)+,d3
	cmp.w (a2),d2
	bgt.s jateputki
	cmp.w (a2),d3
	blt.s jateputki
tug:

	move.w d0,d2
	and.w #$f0,d0
	and.w #$0f,d2
	tst.w d0
	bne.s nenuun

	lsr.w #$8,d1

	tst.w d2
	bne.s nej1
	neg.b (a1)
nej1:	cmp.w #1,d2
	bne.s nej2
	not.b (a1)
nej2:	cmp.w #2,d2
	bne.s nej3
	move.b d1,(a1)
nej3:	cmp.w #3,d2
	bne.s nej4
	add.b d1,(a1)
nej4:	cmp.w #4,d2
	bne.s nej5
	sub.b d1,(a1)
nej5:	cmp.w #5,d2
	bne.s nej6
	or.b d1,(a1)
nej6:	cmp.w #6,d2
	bne.s nej7
	and.b d1,(a1)
nej7:	cmp.w #7,d2
	bne.s nej8
	eor.b d1,(a1)
nej8:	bra.L jateputki

nenuun:	cmp.w #$10,d0
	bne.s tyksis

	tst.w d2
	bne.s onej1
	neg.w (a1)
onej1:	cmp.w #1,d2
	bne.s onej2
	not.w (a1)
onej2:	cmp.w #2,d2
	bne.s onej3
	move.w d1,(a1)
onej3:	cmp.w #3,d2
	bne.s onej4
	add.w d1,(a1)
onej4:	cmp.w #4,d2
	bne.s onej5
	sub.w d1,(a1)
onej5:	cmp.w #5,d2
	bne.s onej6
	or.w d1,(a1)
onej6:	cmp.w #6,d2
	bne.s onej7
	and.w d1,(a1)
onej7:	cmp.w #7,d2
	bne.s onej8
	eor.w d1,(a1)
onej8:	bra.L jateputki

tyksis:	tst.w d2
	bne.s nnej1
	neg.l (a1)
nnej1:	cmp.w #1,d2
	bne.s nnej2
	not.l (a1)
nnej2:	cmp.w #2,d2
	bne.s nnej3
	move.l d1,(a1)
nnej3:	cmp.w #3,d2
	bne.s nnej4
	add.l d1,(a1)
nnej4:	cmp.w #4,d2
	bne.s nnej5
	sub.l d1,(a1)
nnej5:	cmp.w #5,d2
	bne.s nnej6
	or.l d1,(a1)
nnej6:	cmp.w #6,d2
	bne.s nnej7
	and.l d1,(a1)
nnej7:	cmp.w #7,d2
	bne.s nnej8
	eor.l d1,(a1)
nnej8:	bra.L jateputki

cx:	dc.w 0
cy:	dc.w 0

getcursor:
	moveq #-1,d0
	moveq #-1,d1
	move.l buttonbuffer,d0
	bmi.s suxit
	lea buttonbuffer,a1
	lea 4(a1),a0
	moveq #9,d1
forefalla:move.l (a0)+,(a1)+
	dbf d1,forefalla
	move.l d0,d1
	swap d0
suxit:	rts

plattetouchpoints:
	lea plattetouchtable,a6
rotation:move.l (a6)+,d0
	beq.s suxit
	move.l d0,a1
	moveq #0,d0
	move.b 5(a1),d0
	clr.w d4
	move.l (a1),d2
	move.b 4(a1),d1
	cmp.b #2,d1
	bge.s noccheck
	lea creaplaces,a2
scooping:move.l (a2)+,d3
	beq.s noccheck
	move.l d3,a3
	cmp.l 12(a3),d2
	bne.s scooping
downyougo:
	btst #0,35(a3)
	bne.s scooping
	st d4
noccheck:
	tst.b d1
	bne.s juuuu
	lea thingplaces-12,a2
scoopy:	add.w #24,a2
	tst.l (a2)
	beq.s juuuu
	cmp.l -6(a2),d2
	bne.s scoopy
	btst #0,7(a2)
	bne.s scoopy
	st d4
juuuu:	cmp.l xpos(pc),d2
	bne.s vaisu
	st d4
vaisu:	move.b d4,5(a1)

	lea 12(a1),a0

	cmp.w d4,d0
	beq.s eimuut
	blt.s alas

ylos:	move.l 6(a1),a0
	beq.s eimuut

alas:	tst.l (a0)
	beq.s eimuut
muutto:	bsr.L jateputki
eimuut:	bra.S rotation

lastcursor:
	dc.w 0
currentcursor:
	dc.w 9
cursorthing:
	dc.w 0
lastcursorthing:
	dc.w 0
cursordats2:
	blk.b 80,0

cursorperson:
	dc.w 0

platze0l:dc.w 0,0 ;platze,secplaz
platze0r:dc.w 0,0
platze1l:dc.w 0,0
platze1r:dc.w 0,0

place1person:dc.b 1
place2person:dc.b 2
place3person:dc.b 3
place4person:dc.b 4

pos1person: dc.b 0
pos2person: dc.b 0
pos3person: dc.b 0
pos4person: dc.b 0


placeperson:
	lea place1person-1(pc),a0
	move.b 0(a0,d2.w),d3
	move.l a0,a1
	addq.w #1,a1
	tst.b (a1)+
	beq.s tut1
	tst.b (a1)+
	beq.s tut1
	tst.b (a1)+
	beq.s tut1
	addq.w #1,a1
tut1:	move.b d3,-(a1)
	move.b cursorperson(pc),0(a0,d2.w)
	bsr.s relocc
	bra.s upscolors
relocc:	clr.w hik1
	move.w #$ccc,hik2
	move.w #$070,hik3
	clr.b deppad
	clr.b cursorperson
	rts


otatai:	tst.b cursorperson
	bne.s placeperson
	lea place1person-1(pc),a0
	move.b 0(a0,d2.w),cursorperson
	lea party-4(pc),a1
	lsl.w #2,d2
	add.w d2,a1
	lsr.w #2,d2
	move.l (a1),a1
	tst.b 80(a1)
	bne.s relocc

	clr.b 0(a0,d2.w)

upscolors:
	st superupdate
	st updateit
	addq.w #1,a0
	moveq #0,d0
	moveq #3,d3
yli:	move.b (a0)+,d1
	beq.s blanker
	bsr.L dane
atp:	addq.w #1,d0
	dbf d3,yli
	bra.L dun


blanker:move.w bnelos,d7
	tst.b d0
	bne.s buug1
	move.w bykkos,d7
buug1:	cmp.b #1,d0
	bne.s buug2
	move.w bkakkos,d7
buug2:	cmp.b #2,d0
	bne.s buug3
	move.w bkolmos,d7
buug3:
	move.w #$aaf,hik1
	move.w d7,hik2
	move.w #$880,hik3

	move.w d0,d6
	ext.w d6
	lea ouugh(pc),a1
	lsl.w #2,d6
	add.w d6,a1
	move.l (a1),a1

	lea data1l,a3
	lea 8(a1),a2
	moveq #15,d7
ffii:	move.l (a2)+,(a3)+
	dbf d7,ffii

	lea data1l2,a3
	moveq #15,d7
fiiz:	clr.l (a3)+
	dbf d7,fiiz

	addq.w #4,a1
	moveq #15,d7
eimahu:	clr.l (a1)+
	dbf d7,eimahu
	st deppad

	bsr.s dane
	bra.L atp


dane:	lea varit-2(pc),a4
	ext.w d1
	add.w d1,a4
	add.w d1,a4

	tst.w d0
	bne.s gghhy
	move.w (a4),bykkos
gghhy:	cmp.w #1,d0
	bne.s gunn
	move.w (a4),bkakkos
	move.w (a4),ckakkos
gunn:	cmp.w #2,d0
	bne.s gunnb
	move.w (a4),bkolmos
gunnb:	cmp.w #3,d0
	bne.s gunnc
	move.w (a4),bnelos
gunnc:	rts

varit:	dc.w $06c,$cc0,$a22,$2a2
fql: dc.l mpr1,mpr2,mpr3,mpr4
soq:	dc.w $f05b,$f07f,$f0a3,$f0c7
order:	dc.l member1,member2,member3,member4

dun:	lea place1person(pc),a6
	lea fql-4(pc),a1
	lea order-4(pc),a4
	lea party(pc),a5
	lea soq-2(pc),a0
	moveq #3,d2
	moveq #0,d3
	moveq #0,d0

luku:	addq.w #2,d3
	move.b (a6)+,d0
	bne.s laku
	move.b cursorperson(pc),d0
laku:	lsl.w #2,d0
	move.l 0(a4,d0.w),(a5)+
	move.l 0(a1,d0.w),a2
	move.w 0(a0,d3.w),(a2)
	dbf d2,luku

	lea place1person(pc),a1
	lea pos1person(pc),a0
	moveq #3,d2
	moveq #1,d3
tqt:
	move.b (a1)+,d0
	beq.s grb
	ext.w d0
	move.b -1(a0,d0.w),d1
	ext.w d1
	move.w d3,d0
	bsr.L peopledo
grb:
	addq.w #1,d3
	dbf d2,tqt

	rts

underflow:
	tst.w cursorthing
	bne.s jupu
	cmp.w #$d4,d1
	blt.s jupu
	cmp.w #$120,d0	
	blt.s jupu

	move.b cursorperson(pc),d2
	beq.s hyvajuttu
	addq.w #8,d0
	addq.w #8,d1
hyvajuttu:

	cmp.w #$ed,d1
	bge.s leiri
	cmp.w #$130,d0
	bgt.s ork
	moveq #1,d2
	bra.s ota
ork:	moveq #2,d2
	bra.s ota
leiri:	cmp.w #$130,d0
	bgt.s ykr
	moveq #3,d2
	bra.s ota
ykr:	moveq #4,d2
ota:	bra.L otatai
jupu:	cmp.w #195,d1
	blt.S mneroya
	cmp.w #222,d1
	bgt.S mneroya

	cmp.w #55,d0
	blt.s mneroya
	cmp.w #71,d0
	bgt.s nerva
	moveq #1,d0
	bsr.L enterkey
	bra.s nerva


nerva:	cmp.w #127,d0
	blt.s miisael
	cmp.w #143,d0
	bgt.s miisael
	moveq #2,d0
	bsr.L enterkey
miisael:cmp.w #199,d0
	blt.s asarja
	cmp.w #215,d0
	bgt.s asarja
	moveq #3,d0
	bsr.L enterkey
asarja:
	cmp.w #264,d0
	blt.s mneroya
	cmp.w #288,d0
	bgt.s mneroya
	moveq #4,d0
	bsr.L enterkey
mneroya:cmp.w #201,d1
	blt.L hickup
	cmp.w #217,d1
	bgt.L hickup

	moveq #0,d1

yx1a:	cmp.w #8,d0
	blt.s yx1b
	cmp.w #24,d0
	bgt.s yx1b

	moveq #1,d1
	moveq #0,d2

yx1b:	cmp.w #32,d0
	blt.s yx2a
	cmp.w #48,d0
	bgt.s yx2a

	moveq #1,d1
	moveq #1,d2

yx2a:	cmp.w #80,d0
	blt.s yx2b
	cmp.w #96,d0
	bgt.s yx2b

	moveq #2,d1
	moveq #0,d2

yx2b:	cmp.w #104,d0
	blt.s yx3a
	cmp.w #120,d0
	bgt.s yx3a

	moveq #2,d1
	moveq #1,d2

yx3a:	cmp.w #152,d0
	blt.s yx3b
	cmp.w #168,d0
	bgt.s yx3b

	moveq #3,d1
	moveq #0,d2

yx3b:	cmp.w #176,d0
	blt.s yx4a
	cmp.w #194,d0
	bgt.s yx4a

	moveq #3,d1
	moveq #1,d2

yx4a:	cmp.w #224,d0
	blt.s yx4b
	cmp.w #240,d0
	bgt.s yx4b

	moveq #4,d1
	moveq #0,d2

yx4b:	cmp.w #248,d0
	blt.s yx5a
	cmp.w #264,d0
	bgt.s yx5a

	moveq #4,d1
	moveq #1,d2

yx5a:	tst.w d1
	beq.s hickup

	cmp.b #7,cursordats2+32
	beq.s mullikka

	subq.w #1,d1
	lea party(pc),a0
	lsl.w #2,d1
	add.w d1,a0
	move.l (a0),a0
	tst.b 80(a0)
	bne.s mullikka
	lsl.w #1,d2
	move.w 6(a0,d2.w),d1
	beq.s juna
	lea thingplaces-24,a1
	lsl.w #3,d1
	add.w d1,a1
	add.w d1,a1
	add.w d1,a1
	lsr.w #3,d1
	btst #3,18(a1)
	beq.s juna
hypote:	lea off(pc),a0
	bsr.L print
	rts
juna:	move.w cursorthing(pc),d0
	beq.s takemyhand

	move.w d0,6(a0,d2.w)
	move.w d1,cursorthing
	beq.s leavetheplace
jerusalem:
	clr.l 6(a1)

leavetheplace:
	st updateit
mullikka:
	rts
updateit:dc.b 0
txwrit:	dc.b 0

takemyhand:
	tst.w d1
	beq.s mullikka

	clr.w 6(a0,d2.w)
	move.w d1,cursorthing
	bra.s jerusalem

hickup:

	rts
thingtake:
	move.w cx(pc),d0
	move.w cy(pc),d1

	cmp.w #288,d0
	blt.s lflf
	tst.b statusscreen
	beq.s lflf
	moveq #0,d2
	move.w d1,d2
	divu #21,d2
	cmp.w #7,d2
	bge.s lflf
	lea r1state(pc),a0
	add.w d2,a0
	not.b (a0)
lflf:	cmp.w #186,d1
	bgt.L underflow
	tst.w cursorthing
	bne.L placething

	moveq #0,d2
	move.b statusscreen,d2
	beq.L tyrnava

	cmp.w #32,d0
	blt.s ling
	cmp.w #32+16,d0
	bgt.s ling
	cmp.w #12+21,d1
	blt.s ling
	cmp.w #12+16+21,d1
	bgt.s ling
	move.w #-1,ausnahme
ling:
	move.w d2,d5

	lsl.w #2,d2
	lea party-4(pc),a0
	add.w d2,a0
	move.l (a0),a0
	lea gettable,a1
	move.l a1,a2

geworden:
bradley:tst.w (a1)
	bmi.s juoiz
	cmp.w (a1)+,d0
	blt.s juoiza
	cmp.w (a1)+,d0
	bgt.s juoiza
	cmp.w (a1)+,d1
	blt.s juoiza
	cmp.w (a1)+,d1
	bgt.s juoiza
	move.w (a1)+,d2
	move.l a0,a3
	add.w d2,a0
	move.w (a0),d3
	beq.s juoizus
	lea thingplaces-24,a1
	lsl.w #3,d3
	add.w d3,a1
	add.w d3,a1
	add.w d3,a1
	lsr.w #3,d3
	btst #3,18(a1)
	beq.s fern
	cmp.w #20,d2
	ble.L hypote
fern:	clr.w (a0)
	move.w d3,cursorthing
	clr.b 11(a1)
	move.l 12(a1),a1
	cmp.b #7,32(a1)
	bne.s ainaaina
	moveq #9,d0
	add.w #28,a3
hananja:clr.l (a3)+
	dbf d0,hananja
ainaaina:
	st updateit
	bra.s juoizus
juoiza:	move.l a2,a1
	add.w #12,a1
	move.l a1,a2
	bra.s geworden
juoiz:	cmp.w #-2,(a1)
	beq.s juoizus
	addq.w #2,a1
	move.l a1,a2
	tst.w 68(a0)
	bne.L bradley
juoizus:rts



tyrnava:
	lea wallmap,a6
	add.w platze1l(pc),a6
	moveq #0,d2
	move.b (a6),d2

	lea objoverlap-1,a6
	add.w d2,a6
	add.w d2,a6
	btst #3,(a6)
	beq.s erakko2
	cmp.w #130,d1
	bgt.s erakko2
	cmp.w #86,d1
	blt.s erakko2
	cmp.w #80,d0
	blt.s erakko2
	cmp.w #192,d0
	bgt.s erakko2

	moveq #1,d0
	moveq #5,d1
	bsr.L searchit
	bra.s ornasaker

erakko2:cmp.w #170,d1
	blt.s monopol1
	cmp.w #186,d1
	bgt.s monopol1

	cmp.w #144,d0
	blt.s monopol2
	cmp.w #272,d0
	bgt.s monopol2

	moveq #0,d1
	moveq #1,d0
	bsr.L searchit
	tst.w d0
	bne.s ornasaker
	moveq #1,d1
	moveq #1,d0
	bsr.S searchit
ornasaker:tst.w d0
	beq.S kothing
	move.w d0,cursorthing
	clr.l 6(a1)
kothing:rts
monopol2:
	cmp.w #16,d0
	blt.s monopol1
	cmp.w #144,d0
	bgt.s monopol1

	moveq #0,d1
	moveq #0,d0
	bsr.s searchit
	tst.w d0
	bne.s ornasaker
	moveq #1,d1
	moveq #0,d0
	bsr.S searchit
	bra.s ornasaker

monopol1:
	cmp.w #146,d1
	blt.s nothing
	cmp.w #170,d1
	bgt.s nothing

	cmp.w #144,d0
	blt.s mmonopol2
	cmp.w #256,d0
	bgt.s mmonopol2

	moveq #1,d1
	moveq #1,d0
	bsr.s searchit
	tst.w d0
	bne.s ornasaker
	moveq #0,d1
	moveq #1,d0
	bsr.S searchit
	bra.s ornasaker
mmonopol2:
	cmp.w #32,d0
	blt.s nothing
	cmp.w #144,d0
	bgt.s nothing

	moveq #1,d1
	moveq #0,d0
	bsr.s searchit
	tst.w d0
	bne.s ornasaker
	moveq #0,d1
	moveq #0,d0
	bsr.S searchit
	bra.S ornasaker
nothing:rts
searchit:tst.w d0
	bne.s veljes
	tst.w d1
	bne.s ykkonen
	move.w platze0l(pc),d0
	move.w platze0l+2(pc),d1
	bra.s veljex
ykkonen:move.w platze1l(pc),d0
	move.w platze1l+2(pc),d1
	bra.s veljex
veljes:	tst.w d1
	bne.s mykonen
	move.w platze0l(pc),d0
	move.w platze0r+2(pc),d1
	bra.s veljex
mykonen:move.w platze1l(pc),d0
	cmp.w #5,d1
	beq.s veljex
	move.w platze1r+2(pc),d1

veljex:	lea creaplaces+16,a2
slutupp:move.l (a2)+,d4
	beq.s srr
	move.l d4,a1
	move.w 14(a1),d4
	lsl.w #5,d4
	add.w 12(a1),d4
	cmp.w d4,d0
	bne.s slutupp
	cmp.w 18(a1),d1
	bne.s slutupp
	moveq #0,d0
	rts
srr:
	lea thingplaces,a0
	move.w d1,d4
	move.w d0,d5
	move.w #$7fff,d2
	moveq #0,d3
	moveq #0,d0
	clr.l thatsit

koppiz:	addq.w #1,d0
	move.l a0,a1
	add.w #24,a0
	tst.l 12(a1)
	beq.S nokettu
	move.w 8(a1),d6
	lsl.w #5,d6
	add.w 6(a1),d6
	cmp.w d5,d6
	bne.s koppiz
	cmp.b 10(a1),d4
	bne.s koppiz
	cmp.w 20(a1),d2
	blt.s koppiz
	btst #0,19(a1)
	bne.s koppiz
	move.w 20(a1),d2
	move.l a1,thatsit
	move.w d0,d3
	bra.s koppiz
thatsit:dc.l 0
nokettu:move.w d3,d0
	move.l thatsit(pc),a1
	rts

placething:
	moveq #0,d2
	move.b statusscreen,d2
	beq.L ora

	cmp.w #32,d0
	blt.s fiiling
	cmp.w #32+16,d0
	bgt.s fiiling
	cmp.w #12+21,d1
	blt.s fiiling
	cmp.w #12+16+21,d1
	bgt.s fiiling
	bsr.s nyyh
	move.l a1,ausnahme
	rts
nyyh:	lea thingplaces-24,a1
	move.w cursorthing(pc),d2
	lsl.w #3,d2
	add.w d2,a1
	add.w d2,a1
	add.w d2,a1
	rts
ausnahme:dc.l 0

fiiling:
	cmp.w #80,d0
	blt.L buh
	cmp.w #96,d0
	bgt.S buh
	cmp.w #12+21,d1
	blt.s buh
	cmp.w #28+21,d1
	bgt.s buh
	bsr.s nyyh
	bsr.L getem
	move.l 12(a1),a2		
	moveq #90,d1

	tst.w 26(a2)
	beq.s taipan

	move.b 26(a2),d0
	beq.s jolla

	add.b d0,86(a0)
	cmp.b 86(a0),d1
	bge.s jolla
	move.b d1,86(a0)

jolla:	move.b 27(a2),d0
	beq.s olla

	add.b d0,87(a0)
	cmp.b 87(a0),d1
	bge.s olla
	move.b d1,87(a0)

olla:	tst.L 72(a2)
	beq.s femma
	move.l 72(a2),cursordats1+12
	move.l 72(a2),12(a1)
	st cokin
	st updateit
taipan:	rts
femma:	bset #7,16(a1)
	clr.w cursorthing
	clr.w lastcursor
	rts

buh:	move.w d2,d5

	lsl.w #2,d2
	lea party-4(pc),a0
	add.w d2,a0
	move.l (a0),a0
	lea gettable,a1
	move.l a1,a2

werden:	tst.w (a1)
	bmi.L ajuoiz
	cmp.w (a1)+,d0
	blt.L ajuoiza
	cmp.w (a1)+,d0
	bgt.L ajuoiza
	cmp.w (a1)+,d1
	blt.L ajuoiza
	cmp.w (a1)+,d1
	bgt.L ajuoiza

	move.w 2(a1),d5
	cmp.b #7,cursordats2+32
	beq.s pruuth
	tst.w d5
	beq.s fiudeit
	cmp.w #8,d5
	beq.s fiudeit
pruuth:	lea cursordats2(pc),a3
	cmp.w #6,d5
	bne.s etna
	cmp.b #7,32(a3)
	beq.s etna
	cmp.w #10,30(a3)
	bge.L ajuoiza
	bra.s fiudeit
etna:	cmp.b 32(a3),d5
	bne.L ajuoiza
fiudeites:
fiudeit:
	move.w cursorthing(pc),d4

	move.w (a1)+,d2
	move.l a1,a5
	move.l a0,a3
	add.w d2,a0
	move.w (a0),d3
	move.w d3,cursorthing
	move.w d4,(a0)
	add.w #68,a3
	tst.w d3
	beq.s aainaaina
antena:
	lea thingplaces-24,a1
	lsl.w #3,d3
	add.w d3,a1
	add.w d3,a1
	add.w d3,a1
	clr.b 11(a1)
	move.l 12(a1),a1
	cmp.b #7,32(a1)
	bne.s aainaaina
	moveq #9,d0
	sub.w #40,a3
ahananja:clr.l (a3)+
	dbf d0,ahananja
	
aainaaina:
	cmp.w #8,(a5)
	bne.s einstau
	lea thingplaces-24,a4
	lsl.w #3,d4
	add.w d4,a4
	add.w d4,a4
	add.w d4,a4
	lsr.w #3,d4
	move.b 1(a3),11(a4)
einstau:

	cmp.w #7,(a5)
	bne.s serti

	move.w d4,(a3)
	sub.w #40,a3
	lea thingplaces-24,a1
	moveq #1,d6

whar:	add.w #24,a1
	tst.l 12(a1)
	beq.s serti

	cmp.b 11(a1),d4
	bne.s nichtwahr
	
	move.w d6,(a3)+

nichtwahr:
	addq.w #1,d6
	bra.s whar

serti:	st updateit
	bra.L juoizus

ajuoiza:move.l a2,a1
	add.w #12,a1
	move.l a1,a2
	bra.L werden
ajuoiz:	cmp.w #-2,(a1)
	beq.s ajuoizus
	addq.w #2,a1
	move.l a1,a2
	tst.w 68(a0)
	bne.L werden
ajuoizus:rts
	
ora:
	lea wallmap,a6
	add.w platze1l(pc),a6
	moveq #0,d2
	move.b (a6),d2

	lea objoverlap-1,a6
	add.w d2,a6
	add.w d2,a6
	btst #3,(a6)
	beq.s erakko
	cmp.w #130,d1
	bgt.s erakko
	cmp.w #96,d1
	blt.s erakko
	cmp.w #80,d0
	blt.s erakko
	cmp.w #192,d0
	bgt.s erakko

	move.w platze1l(pc),d5
	moveq #5,d6

	bra.s brkn

erakko:	move.w platze1l(pc),d5
	
	cmp.w #170,d1
	blt.L monopol11
	cmp.w #186,d1
	bgt.L monopol11

	cmp.w #144,d0
	blt.L monopol22
	cmp.w #272,d0
	bgt.L monopol22

	move.w platze0l(pc),d5
	move.w platze0r+2(pc),d6

brkn:
	lea thingplaces,a0
tessal:	move.l a0,a1
	add.w #24,a0
	tst.l 12(a1)
	beq.s outoftess
	cmp.b 10(a1),d6
	bne.s tessal
	move.w 8(a1),d7
	lsl.w #5,d7
	add.w 6(a1),d7
	cmp.w d5,d7
	bne.s tessal
	addq.w #1,20(a1)
	bra.s tessal
outoftess:
	move.w cursorthing(pc),d0
	subq.w #1,d0
	lsl.w #3,d0
	lea thingplaces,a1
	add.w d0,a1
	add.w d0,a1
	add.w d0,a1
	move.w #$1,20(a1)
	move.w d5,6(a1)
	and.w #31,6(a1)
	lsr.w #5,d5
	move.w d5,8(a1)
	move.b d6,10(a1)

	clr.w cursorthing
	move.w #$9,currentcursor

pulju:	moveq #8,d0
	moveq #1,d1
	bsr.L rnd
	move.b d0,22(a1)
	moveq #8,d0
	moveq #1,d1
	bsr.L rnd
	move.b d0,23(a1)

	rts

monopol22:
	cmp.w #16,d0
	blt.s monopol11
	cmp.w #144,d0
	bgt.s monopol11

	move.w platze0l(pc),d5
	move.w platze0l+2(pc),d6

	bra.L brkn

nothing1:rts
monopol11:
	lea wallmap,a6
	add.w platze1l(pc),a6
	moveq #0,d2
	move.b (a6),d2

	lea objoverlap-1,a6
	add.w d2,a6
	add.w d2,a6
	btst #1,(a6)
	beq.s nothing1

	cmp.w #140,d1
	blt.s nope
	cmp.w #170,d1
	bgt.s nope

	cmp.w #144,d0
	blt.s mmonopol22
	cmp.w #256,d0
	bgt.s mmonopol22

	move.w platze1l(pc),d5
	move.w platze1r+2(pc),d6

	bra.L brkn

mmonopol22:
	cmp.w #32,d0
	blt.S mykene
	cmp.w #144,d0
	bgt.S mykene

	move.w platze1l(pc),d5
	move.w platze1l+2(pc),d6

	bra.L brkn

nope:	cmp.w #50,d1
	blt.s mykene
	cmp.w #140,d1
	bgt.s mykene

	cmp.w #144,d0
	bgt.L geetee

	move.w platze0l(pc),d5
	move.w platze0l+2(pc),d6

	bsr.L brkn

vika:	moveq #0,d2
vika2:	clr.w 22(a1)
	lea place1person(pc),a2
	moveq #0,d7
	moveq #0,d3
	lea pos1person-1(pc),a3

	moveq #2,d6
	bsr.s br
	moveq #0,d6
	bsr.s br
	moveq #3,d6
	bsr.s br
	moveq #1,d6
	bsr.s br

	moveq #2,d6
	bsr.s br2
	moveq #0,d6
	bsr.s br2
	moveq #3,d6
	bsr.s br2
	moveq #1,d6
	bsr.s br2

	bset #1,19(a1)
mykene:	rts

br:	tst.b d7
	bne.s er
	add.w d6,d2
	move.w d2,d4
	and.w #$3,d4
	move.b 0(a2,d4.w),d3
	tst.b 0(a3,d3.w)
	bne.s rrr
	st d7
	bsr.s ruby
rrr:	sub.w d6,d2
er:	rts
br2:	tst.b d7
	bne.s er
	add.w d6,d2
	move.w d2,d4
	and.w #$3,d4
	move.b 0(a2,d4.w),d3
	cmp.b #$ff,0(a3,d3.w)
	beq.s rrr2
	st d7
	bsr.s ruby
rrr2:	sub.w d6,d2
	rts

ruby:	bset #13,18(a1)
	lsl.b #5,d4
	or.b #%10000000,d4
	and.b #%10011111,19(a1)
	or.b d4,19(a1)
autf:	rts


geetee:	cmp.w #288,d0
	bgt.s mykene
	move.w platze0l(pc),d5
	move.w platze0r+2(pc),d6

	bsr.L brkn

	moveq #1,d2

	bra.L vika2

updatethings:
	lea thingplaces,a0
updateloop:
	move.l a0,a1
	add.w #24,a0
	tst.l 12(a1)
	beq.s autf

	bclr #1,19(a1)
	beq.s muut
	move.b #2,minkkinen
	bsr.s eieieiei
muut:
	btst #0,19(a1)
	beq.s sotavete
	bsr.L legionare
	bra.s kyme2
sotavete:
	move.w 8(a1),d0
	cmp.w #$100,d0
	bge.s kyme2
	move.w 6(a1),d1
	lsl.w #1,d1
	lsl.w #6,d0
	add.w d1,d0
	lea plattemap,a2
	add.w d0,a2
	move.b 1(a2),d0
	beq.s kyme2
	ext.w d0
	lea platteplaces-3,a2
	lsl.w #3,d0
	add.w d0,a2
	btst #0,(a2)
	beq.s kyme2
	add.w #32,8(a1)
kyme2:
	bra.s updateloop





eieieiei:
	move.l 12(a1),a2
	move.b 3(a2),d4

	add.w #$4000,20(a1)
	or.w #5,18(a1)

	lea place1person(pc),a2
	moveq #0,d0
	move.b 19(a1),d0
	lsr.w #5,d0
	bclr #2,d0
	bne.s urkki
	add.w #$200,20(a1)
	clr.b minkkinen
	bra.L turkka
urkki:	move.b dirpos+1(pc),16(a1)
	add.w d0,a2
	lea wartezeit1(pc),a3
	lsl.w #1,d0
	tst.w 0(a3,d0.w)
	bne.s hups
	move.w #120,0(a3,d0.w)
hups:
	lea party(pc),a4
	add.w d0,a4
	add.w d0,a4
	move.l (a4),a4

	moveq #0,d2

	cmp.b #3,113(a4)
	bne.s ninj
	move.b 112(a4),d2
	lsl.w #2,d2
	sub.w d2,0(a3,d0.w)
	bpl.s ninj
	clr.w 0(a3,d0.w)
ninj:
	moveq #0,d2
	lsr.w #1,d0
	move.b (a2),d2

	move.w 88(a4),d3
	cmp.w #12,d3
	ble.s loo
	sub.w #12,d3
	add.b d3,d4
	bra.s supi
loo:	cmp.w #6,d3
	bgt.s supi
	subq.w #5,d3
	sub.b d3,d4
supi:
	move.w 96(a4),d3
	cmp.w #12,d3
	ble.s los
	sub.w #12,d3
	add.b d3,d4
	bra.s fiif
los:	cmp.w #6,d3
	bgt.s fiif
	subq.w #5,d3
	sub.b d3,d4
fiif:	
	move.b 18(a1),d3
	and.b #$f,d3
	bclr #3,d3
	beq.s huhhui
	neg.w d3
huhhui:	add.b d3,d4

	moveq #0,d3
	move.b 11(a1),d3
	beq.s eibou
	lea thingplaces-24,a5
	lsl.w #3,d3
	add.w d3,a5
	add.w d3,a5
	add.w d3,a5
	move.b 18(a5),d3
	and.b #$f,d3
	bclr #3,d3
	beq.s huhhuijaa
	neg.w d3
huhhuijaa:add.b d3,d4

	move.l 12(a5),a5
	add.b 2(a5),d4
	tst.b 99(a4)
	beq.s eibou
	move.b d4,d3
	lsr.b #2,d3
	sub.b d3,d4
eibou:


	cmp.b #3,113(a4)
	bne.s neen
	move.b 112(a4),d3
	add.b d3,d4
neen:	tst.b 100(a4)
	beq.s jouko
	move.b d4,d3
	lsr.b #2,d3
	sub.b d3,d4
jouko:
	move.w d0,d7
	moveq #4,d0
	moveq #1,d1
	bsr.L rnd
	subq.b #3,d4
	add.b d0,d4
	moveq #2,d0
	cmp.b d4,d0
	blt.s turkka
	move.b d0,d4
turkka:	move.b d4,17(a1)
	move.w d7,d0
	btst #7,19(a1)
	beq.s lakeus

	lea pos1person(pc),a2
	move.b -1(a2,d2.w),d2
	bclr #13,18(a1)
	bne.s ruho
	add.b d2,16(a1)
	and.b #$3,16(a1)

	tst.w d0
	bne.s rako
	tst.w d2
	beq.s ruho
	cmp.w #3,d2
	bne.s ruoko
	bra.s ruho
rako:	cmp.w #1,d0
	bne.s yelo
	cmp.w #1,d2
	bgt.s ruoko
lakeus:
ruho:	rts
yelo:	cmp.w #2,d0
	bne.s fallen
	cmp.w #1,d2
	ble.s ruoko
	bra.s ruho
fallen:	tst.w d2
	beq.s ruoko
	cmp.w #3,d2
	bne.s ruho
ruoko:	bset #4,19(a1)
	rts
legionare:
	move.w 6(a1),d0
	move.w 8(a1),d1
	move.w d1,d2
	lsl.w #5,d2
	add.w d0,d2	
	move.w d2,idontcare
	moveq #0,d7
	move.b 10(a1),d7
	subq.w #1,d7

	bclr #3,19(a1)
	bne.L haka

	bclr #2,19(a1)
	bne.s skan
	bclr #4,19(a1)
	bne.S skan
	bsr.L testaacrea
	bne.L haka
skan:

	lea wallmap,a2
	lea objoverlap-1,a3

	subq.b #1,17(a1)
	bmi.L stopfly

	moveq #0,d6
	move.b 16(a1),d6
	bne.s kerttu

	addq.w #2,d7
	btst #1,d7
	bne.L uar
	and.w #%11,d7
	sub.w #32,d2
	subq.w #1,d1

kerttu:	cmp.w #1,d6
	bne.s kepa

	addq.w #1,d7
	btst #0,d7
	bne.s uar
	subq.w #2,d7
	addq.w #$1,d2
	addq.w #$1,d0

kepa:	cmp.w #2,d6
	bne.s ripe

	subq.w #2,d7
	btst #1,d7
	beq.s uar
	and.w #%11,d7
	add.w #32,d2
	addq.w #1,d1

ripe:	cmp.w #3,d6
	bne.s ihalainen

	subq.w #1,d7
	btst #0,d7
	beq.s uar
	addq.w #2,d7
	subq.w #$1,d2
	subq.w #$1,d0

ihalainen:
	add.w d2,a2
	moveq #0,d6
	move.b (a2),d6
	add.w d6,a3
	add.w d6,a3

	btst #2,(a3)
	beq.s hyppytunti
	addq.b #2,16(a1)
	and.b #$3,16(a1)
hyppytunti:
	btst #1,(a3)
	bne.s dwn
	move.w idontcare(pc),d2
	bra.L stopfly
dwn:
	btst #4,(a3)
	beq.s ght
	add.w #$100,d1
	bra.s hyokk
ght:
	btst #5,(a3)
	beq.s uar
	sub.w #$100,d1
hyokk:	move.w d1,8(a1)
	bra.L stopfly
uar:
	btst #4,19(a1)
	bne.s slar
	bsr.S testaacrea
	beq.S wuh
	bset #3,19(a1)
slar:
wuh:	addq.w #1,d7
	move.b d7,10(a1)
	move.w d0,6(a1)
	move.w d1,8(a1)
	rts
idontcare: dc.w 0

haka:
	bra.L stopfly

testaacrea:
	lea creaplaces,a2
	addq.w #1,d7
	moveq #0,d5
slutup:	addq.w #1,d5
	move.l (a2)+,d6
	beq.L sirkkeli
	move.l d6,a3
	move.w 14(a3),d6
	lsl.w #5,d6
	add.w 12(a3),d6
	cmp.w d6,d2
	bne.s slutup
	cmp.w #100,28(a3)
	blt.s slutup
	cmp.w #4,d5
	bgt.s tri
	lsl.w #2,d5
	lea party-4(pc),a4
	add.w d5,a4
	move.l (a4),a4
	lsr.w #2,d5
	tst.b 80(a4)
	bne.s slutup
tri:	move.w 18(a3),d6
	beq.S chq
	cmp.w d6,d7
	bne.s slutup
chq:	subq.w #1,d7

	movem.l a0-a2/a6/d0-d3/d7,-(sp)

	move.w d5,d7
	move.l a1,a0
	move.l 12(a0),a1
	move.w 36(a1),d0
	move.w 38(a1),d1
	bsr.L realrnd
	move.b 19(a0),d1
	move.w #0,a2
	btst #7,d1
	beq.s mexx
	and.b #%00011111,19(a0)
	and.w #%01100000,d1
	lsr.w #3,d1
	lea party(pc),a2
	move.l 0(a2,d1.w),a2

mexx:	lea creaplaces-4,a6
	lsl.w #2,d7
	add.w d7,a6
	move.l (a6),a6
; a2 = throw crea or member
; a0 = throwm item
; a1 = throwm item major
; a6 = hit crea or member

	move.b 18(a0),d1
	and.w #$f,d1
	bclr #3,d1
	beq.s anttus
	neg.w d1
anttus:	add.w d1,d0

	cmp.w #16,d7
	ble.s fane
	move.b 40(a6),d3
	cmp.b #-7,d3
	bgt.s elja
	move.w d0,d3
	lsr.w #2,d3
	sub.w d3,d0
	sub.w d3,d0
	sub.w d3,d0
	bra.s fane
elja:
	cmp.b #-3,d3
	bgt.s antio
	lsr.w #1,d0
	bra.s fane
antio:
	cmp.b #2,d3
	bgt.s fane
	move.w d0,d3
	lsr.w #2,d3
	sub.w d3,d0
fane:

	moveq #0,d5
	move.w 16(a6),d6
	move.b 16(a0),d5
	cmp.w d6,d5
	bne.s eisama
	lsl.w #1,d0
	bra.s suora
eisama:	sub.w d5,d6
	cmp.w #2,d6
	beq.s suora
	cmp.w #-2,d6
	bne.s suora
	move.w d0,d3
	lsr.w #2,d3
	add.w d3,d0	
suora:
	cmp.w #0,a2
	beq.s radio
	moveq #0,d1
	move.w 88(a2),d1
	cmp.w #13,d1
	blt.s yomi
	sub.w #12,d1
	add.b d1,d0
	bra.s radio
yomi:	cmp.w #6,d1
	bgt.s om
	subq.w #7,d0
	add.w d1,d0
om:	tst.b 100(a2)
	beq.s radio
	move.w d0,d1
	lsr.w #2,d1
	sub.w d1,d0
radio:	


	cmp.w #16,d7
	bgt.s arz
	move.w d7,d1
	lsr.w #2,d1
	bsr.L partyhit
	bra.L fuhh
arz:
	move.w d0,d6

; range

	moveq #14,d3
	move.w 2(a1),d4
	moveq #0,d1
	move.b 17(a0),d1

	moveq #2,d5
	move.w d4,d2
	lsr.w #2,d2
joojust:sub.w d2,d4
	cmp.w d4,d1
	bgt.s hippo
	addq.w #2,d3
hippo:	dbf d5,joojust

; conds
	tst.b 81(a2)
	bne.s dem4
	move.w lastmehu(pc),d5
	cmp.w #$d,d5
	bne.s dem2
	addq.w #2,d5
dem2:
	cmp.w #$e,d5
	bne.s dem3
	addq.w #3,d5
dem3:
	cmp.w #$f,d5
	bne.s dem4
	addq.w #7,d5
dem4:
; crea
	sub.b 40(a6),d3

; item

; check if backhit
	move.b 16(a0),d0
	cmp.b 17(a6),d0
	bne.s mrt
	subq.b #4,d3
mrt:
; plus
	move.b 18(a0),d2
	and.w #$f,d2
	bclr #3,d2
	beq.s mrx
	neg.w d2
mrx:	sub.b d2,d3

; shootitem

	move.b 11(a0),d0
	beq.s rampada
	clr.b 11(a0)
	ext.w d0
	lea thingplaces-24,a3
	lsl.w #3,d0
	add.w d0,a3
	add.w d0,a3
	add.w d0,a3

	move.b 18(a3),d2
	and.w #$f,d2
	bclr #3,d2
	beq.s amrxy
	neg.b d2
amrxy:	sub.b d2,d3
	move.l 12(a3),a3
	move.w 40(a3),d0
	move.w 42(a3),d1
	bsr.L realrnd
	add.w d0,d6
	add.w d2,d6
	sub.b 71(a3),d3
	cmp.w #0,a2
	beq.s eiwzard

; -left-hand?

	tst.b 99(a2)
	beq.s eiward
	move.w d6,d2
	lsr.w #2,d2
	sub.w d2,d6
eiward:	btst #0,47(a3)
	bne.s eiwzard
	cmp.b #2,113(a2)
	bne.s eiwzard
	addq.w #5,d3
eiwzard:

; member
;--------

; dexterity

rampada:cmp.w #0,a2
	beq.s heh
	moveq #0,d1
	move.w 96(a2),d1
	cmp.w #14,d1
	blt.s jyomix
	sub.w #13,d3
	sub.w d1,d3
jyomix:	cmp.w #6,d1
	bgt.s omelet
	subq.w #7,d3
	sub.w d1,d3
omelet:

; race

	move.b 114(a2),d0
	cmp.w #2,d0
	bne.s ghjk
	subq.w #2,d3
ghjk:	cmp.w #4,d0
	bne.s ghjk2
	subq.w #1,d3
ghjk2:

;exp level
;& class

	move.b 112(a2),d0
	lsr.w #1,d0
	cmp.w #10,d0
	ble.s naminami
	moveq #10,d0
naminami:
	move.b 113(a2),d1
	cmp.b #2,d1
	bne.s uraa
	lsr.w #2,d0
	addq.w #2,d3
	btst #0,47(a0)
	bne.s uraa
	addq.w #5,d3
uraa:	cmp.b #4,d1
	beq.s hoh
	cmp.b #1,d1
	bne.s hehhe
hoh:	lsr.w #1,d0

hehhe:	sub.b d0,d3

; handstate

	tst.b 100(a2)
	beq.s sire
	move.w d3,d2
	lsr.w #2,d2
	add.w d2,d3
sire:
heh:

; final test

	moveq #20,d0
	moveq #1,d1
	bsr.L realrnd
	sub.b d0,d3
	bmi.s imi
	moveq #0,d6
imi:
	move.w d6,d0
	beq.s neero
	cmp.w #0,a2
	beq.s neero2
	moveq #0,d3
	move.w 54(a6),d3
	divu 24(a6),d3
	mulu d0,d3
	cmp.w 54(a6),d3
	ble.s kalu2
	move.w 54(a6),d3
kalu2:	ext.l d3
	add.l d3,108(a2)

	bsr.s levelch

neero2:	sub.w d0,26(a6)
neero:	bsr.L hitseuraukset
	tst.w 26(a6)
	bpl.s fuhh
	bsr.L itdies
fuhh:	movem.l (sp)+,a0-a2/a6/d0-d3/d7
	moveq #1,d6
	rts

levelch:movem.l d0-d4/a0-a2,-(sp)

	lea party(pc),a0
	move.l (a0)+,a1
	bsr.s teilaus
	move.l (a0)+,a1
	bsr.s teilaus
	move.l (a0)+,a1
	bsr.s teilaus
	move.l (a0)+,a1
	bsr.s teilaus

	movem.l (sp)+,d0-d4/a0-a2
	rts

teilaus:moveq #0,d0
	move.b 113(a1),d0
	subq.w #1,d0
	lea fl1,a2
	lsl.w #4,d0
	add.w d0,a2
	lsl.w #2,d0
	add.w d0,a2
	moveq #0,d1
	move.b 112(a1),d1
	move.l 108(a1),d2

	moveq #-1,d4
riski:	addq.w #1,d4
	move.l (a2)+,d3
	cmp.l d3,d2
	bge.s riski

	lea fnl1-1,a2
	moveq #0,d0
	move.b 113(a1),d0
	subq.w #1,d0
	lsl.w #2,d0
	add.w d0,a2
	lsl.w #2,d0
	add.w d0,a2	
	add.w d4,a2

	sub.w d4,d1
	bpl.s tyrni
	move.w d1,d2
kolli:	cmp.b #20,112(a1)
	bge.s teilipyora
	moveq #0,d0
	moveq #1,d1
	move.b (a2),d0
	bsr.L realrnd
	add.w d0,72(a1)
	subq.w #1,a2
	addq.b #1,112(a1)
	addq.w #1,d2
	bne.s kolli

tyrni:	beq.s teilipyora
	move.w d1,d2
nalli:	tst.b 112(a1)
	beq.s yora
	moveq #0,d0
	moveq #1,d1
	move.b (a2)+,d0
	bsr.L realrnd
	sub.w d0,72(a1)
	sub.w d0,70(a1)
	subq.b #1,112(a1)
	subq.w #1,d2
	bne.s nalli

teilipyora:
	tst.w 70(a1)
	bmi.s yora

	rts

yora:	clr.w 70(a1)
	clr.w 72(a1)
	rts

nams:	dc.b "Novice",0
	dc.b "Disciple",0
	dc.b "Apprentice",0
	dc.b "Acolyte",0
	dc.b "Advanced",0
	dc.b "Adept",0
	dc.b "Expert",0
	dc.b "Master",0
	dc.b "Lord",0
	dc.b "Megadox",0
	dc.b "Pyridon",0
	dc.b "Dominar",0
	dc.b "Imidant",0

even

sirkkeli:subq.w #1,d7
	moveq #0,d6
sublis:	rts

cmq:	lea creaplaces,a4
puc:	move.l (a4)+,d5
	beq.s pot
	move.l d5,a5
	btst #0,57(a5)
	beq.s puc
	cmp.l 12(a5),d4
	beq.s fuq
	bra.s puc
pot:	tst.b d2
	beq.s iee
	ext.w d2
	lea objoverlap-1,a1
	add.w d2,a1
	add.w d2,a1
	btst #6,(a1)
	beq.s iee
fuq:	cmp.w d7,d6
	bge.s iee
	move.w d6,d7
iee:	rts

kafka:	dc.w 0

updatemembers:
	tst.b masterstr+78
	beq.s vravo
	lea wallmap,a0
	move.w ypos(pc),d1
	lsl.w #5,d1
	add.w d1,a0
	add.w xpos(pc),a0

	lea currlight,a6
	move.w (a6),d7
	lea raabel,a2
	lea karsten,a3
	moveq #39,d1

fifix:	move.b (a2)+,d6
	move.b (a2)+,d0
	ext.w d0
	ext.w d6
	move.b 0(a0,d0.w),d2
	move.b (a3)+,d0
	move.b (a3)+,d3
	ext.w d0
	ext.w d3
	move.w xpos(pc),d4
	add.w d0,d4
	swap d4
	move.w ypos(pc),d4
	add.w d3,d4
	bsr.L cmq
	dbf d1,fifix

	cmp.w (a6),d7
	beq.s nchn
	move.w (a6),d6
	move.w d7,(a6)
	bsr.L updatepalette
	move.w d6,(a6)
	st kafka
	bra.s vravo
nchn:	tst.b kafka
	beq.s vravo
	clr.b kafka
	bsr.L updatepalette

vravo:	addq.w #1,dia
	addq.w #1,dia+2

neenee:	lea party(pc),a0
	moveq #0,d7
poika:	move.l (a0)+,a1
	addq.w #1,d7
	cmp.w #5,d7
	beq.s ixis

	cmp.w #4000,dia
	blt.s liz
	clr.w dia
liz:	cmp.w #25,dia+2
	blt.s fieex
	clr.w dia+2
fieex:	rts
ixis:
	tst.b 80(a1)
	bne.s poika

	tst dia
	beq.s susanna

	move.w 90(a1),d2
	subq.w #8,d2
	bmi.s juu
	lsl.w #2,d2
	moveq #32,d0
	moveq #1,d1
	bsr.L rnd
	sub.w d2,d0
	bmi.s susanna
	beq.s susanna
juu:	st updateit
	subq.b #1,86(a1)
	bpl.s tuotheti
	clr.b 86(a1)
tuotheti:subq.b #2,87(a1)
	bpl.s susanna
	clr.b 87(a1)
susanna:

	cmp.w #25,dia+2
	blt.s sanna
	tst.b 86(a1)
	bne.s blackness
	st updateit
	subq.w #2,74(a1)
	bpl.s blas
	clr.w 74(a1)
blas:
blackness:tst.b 87(a1)
	bne.s sanna
	st updateit
	subq.w #3,74(a1)
	bpl.s sanna
	clr.w 74(a1)
	subq.w #3,70(a1)
	bmi.s johann

sanna:	cmp.b #2,98(a1)
	bne.s eihed
	bra.s hess
johann:	clr.w 70(a1)
hess:	move.l a1,a3
	move.w d7,d1
	st updateit
	movem.l a0/a1/d7,-(sp)
	bsr.L ded
	movem.l (sp)+,a0/a1/d7
eihed:

	cmp.b #2,99(a1)
	bne.s nodes
	moveq #0,d3
	lea 6(a1),a4
	move.w d7,d1
	bsr.L occ
	moveq #0,d3
	lea 82(a1),a4
	move.w d7,d1
	bsr.L occ
nodes:	cmp.b #2,100(a1)
	bne.s nodesof
	moveq #0,d3
	lea 8(a1),a4
	move.w d7,d1
	bsr.L occ
	moveq #0,d3
	lea 84(a1),a4
	move.w d7,d1
	bsr.L occ
nodesof:cmp.b #2,102(a1)
	bne.s gfgf
	moveq #0,d3
	lea 18(a1),a4
	move.w d7,d1
	bsr.L occ
gfgf:
	bra.L poika

pekkacheck:
	lea pekka+2(pc),a0
	lea pekka(pc),a1
	move.w (a1),d0
	beq.L quickexit
	moveq #6,d1
russin:	move.w (a0)+,(a1)+
	dbf d1,russin
	clr.w (a1)

	move.w d0,d1
	lsr.w #8,d0 ;d0=inaction (0-3) d1=high (1-3)
	and.w #$ff,d1
	lsl.w #2,d0
	lea party(pc),a0
	move.l 0(a0,d0.w),a0
	lsr.w #2,d0
	moveq #0,d2
	tst.b 80(a0)
	bne.L sublis
	move.l d2,a1
	move.l d2,a3
	lea hitchance+18+18(pc),a2
	move.w 8(a0),d2
	beq.s eiweaponia

	lea thingplaces-24,a1
	mulu #24,d2
	add.w d2,a1
	move.l a1,a3
	move.l 12(a1),a1
	move.w 44(a1),d2
	lea hitchance(pc),a2
	mulu #18,d2
	add.w d2,a2
eiweaponia:

	move.w d1,d2
	subq.w #1,d2
	mulu #6,d2
	move.w 0(a2,d2.w),d3
	beq.s quickexit




	cmp.w #1,d3
	bne.S ethr

	btst #3,18(a3)
	bne.L hypote
	clr.w 8(a0)
taaf:
	lea pocketzeit1(pc),a4
	move.w d0,d1
	addq.w #1,d1
	lsl.w #2,d1
	move.b d1,0(a4,d0.w)
	move.l xpos(pc),6(a3)
	move.w dirpos(pc),d3
	lea yrt(pc),a4
	lsl.w #2,d3
	add.w d3,a4
	add.w d0,a4
	move.b (a4),10(a3)
	bset #7,19(a3)
	move.w d0,d2
	lsl.w #5,d2
	or.b d2,19(a3)

	st updateit
	bset #1,19(a3)
quickexit:rts

blacken:dc.b "can't reach!",0
even

ethr:
	cmp.w #2,d3
	bne.L eiswing

	lea place1person(pc),a4
	add.w d0,a4
	moveq #0,d3
	move.b (a4),d3
	lea pos1person-1(pc),a4
	add.w d3,a4
	moveq #0,d2
	move.b (a4),d2
	move.w d0,d3

	tst.w d3
	bne.s ko
	tst.w d2
	beq.s ruho2
	cmp.w #3,d2
	bne.s ruoko2
	bra.s ruho2
ko:	cmp.w #1,d3
	bne.s ye
	cmp.w #1,d2
	bgt.s ruoko2
	bra.s ruho2
ye:	cmp.w #2,d3
	bne.s faen
	cmp.w #1,d2
	ble.s ruoko2
	bra.s ruho2
faen:	tst.w d2
	beq.s ruoko2
	cmp.w #3,d2
	beq.s ruoko2
ruho2:	bra.S klasse


ruoko2:	move.w d0,d6
	tst.w d2
	bne.s kouluja
	subq.w #2,d6
	bra.s flush
kouluja:cmp.w #1,d2
	bne.s kaynyt
	addq.w #1,d6
	bra.s flush
kaynyt:	cmp.w #2,d2
	bne.s luss
	addq.w #2,d6
	bra.s flush
luss:	subq.w #1,d6

flush:	lea party(pc),a4
	lsl.w #2,d6
	move.l 0(a4,d6.w),a4

	tst.b 80(a4)
	bne.s klasse

	lea blacken(pc),a0
	bsr.L print
	rts

david:	dc.b 3,4,3,4
	dc.b 4,4,2,2
	dc.b 1,2,1,2
	dc.b 3,3,1,1

	dc.b 4,2,4,2
	dc.b 2,2,1,1
	dc.b 3,1,3,1
	dc.b 4,4,3,3

	dc.b 2,1,2,1
	dc.b 1,1,3,3
	dc.b 4,3,4,3
	dc.b 2,2,4,4

	dc.b 1,3,1,3
	dc.b 3,3,4,4
	dc.b 2,4,2,4
	dc.b 1,1,2,2

klasse:
	lea david(pc),a4
	move.w dirpos(pc),d3
	lsl.w #4,d3
	lsl.w #2,d2
	add.w d3,a4
	add.w d2,a4
	add.w d0,a4
	lsr.w #2,d2
	lsr.w #4,d3
	moveq #0,d7
	move.b (a4),d7
	add.w d2,d3
	and.w #$3,d3

	move.b d7,d2

	moveq #0,d7
	move.w d7,a6

	tst.w d3
	bne.s einnorth
	move.w xpos(pc),d4
	move.w ypos(pc),d5
	subq.w #1,d5
	moveq #0,d6
	bsr.s lkin
	move.w d2,d6
	subq.w #2,d6
	bsr.s lkin
	move.w d2,d6
	subq.w #3,d6
	bne.s itit
	moveq #2,d6
itit:	bsr.s lkin
	move.w d2,d6
	bsr.s lkin	
	move.w d2,d6
	subq.w #1,d6
	cmp.w #2,d6
	bne.s ritir
	moveq #4,d6
ritir:	bsr.s lkin
sillasiisti:
	bra.L itte

lkin:
	cmp.w #0,a6
	bne.s leoko
	lea creaplaces,a4
zard:
	move.l (a4)+,a5
	cmp.w #0,a5
	beq.s leoko
	cmp.w 12(a5),d4
	bne.s zard
	cmp.w 14(a5),d5
	bne.s zard
	cmp.w 18(a5),d6
	bne.s zard
	move.l a5,a6	
	move.w 16(a5),d6
	sub.w d3,d6
	and.w #3,d6
	cmp.w #2,d6
	beq.s fulamarken
	moveq #2,d7
fulamarken:
	cmp.w 16(a5),d3
	bne.s dels
	bset #0,d7
dels:
; dont trash d4-d5 !!!
leoko:	rts

einnorth:cmp.w #1,d3
	bne.s isaotomita
	move.w xpos(pc),d4
	move.w ypos(pc),d5
	addq.w #1,d4
	moveq #0,d6
	bsr.s lkin
	move.w d2,d6
	subq.w #1,d6
	bsr.s lkin
	move.w d2,d6
	subq.w #3,d6
	bpl.s itit2
	moveq #3,d6
itit2:	bsr.s lkin
	move.w d2,d6
	bsr.s lkin	
	move.w d2,d6
	subq.w #2,d6
	bne.s titi2
	moveq #4,d6
titi2:	bsr.s lkin
	bra.s itte
isaotomita:cmp.w #2,d3
	bne.s ration
	move.w xpos(pc),d4
	move.w ypos(pc),d5
	addq.w #1,d5
	moveq #0,d6
	bsr.L lkin
	move.w d2,d6
	addq.w #2,d6
	bsr.L lkin
	moveq #4,d6
	cmp.w #2,d2
	bne.s itit3
	moveq #3,d6
itit3:	bsr.L lkin
	move.w d2,d6
	bsr.L lkin	
	move.w d2,d6
	subq.w #1,d6
	bne.s titi3
	moveq #2,d6
titi3:	bsr.L lkin
	bra.s itte
ration:	move.w xpos(pc),d4
	move.w ypos(pc),d5
	subq.w #1,d4
	moveq #0,d6
	bsr.L lkin
	move.w d2,d6
	addq.w #1,d6
	bsr.L lkin
	move.w d2,d6
	subq.w #1,d6
	bne.s itit4
	moveq #4,d6
itit4:	bsr.L lkin
	move.w d2,d6
	bsr.L lkin	
	move.w d2,d6
	subq.w #2,d6
	bpl.s titi4
	moveq #3,d6
titi4:	bsr.L lkin

itte:

	lea wartezeit1(pc),a4
	add.w d0,a4
	add.w d0,a4
	move.w #140,(a4)

	moveq #0,d3
	move.b 112(a0),d3

	cmp.b #1,113(a0)
	beq.s flx
	cmp.b #4,113(a0)
	bne.s flxs
	lsl.w #1,d3
	bra.s hyppy
flx:	lsl.w #2,d3
hyppy:	sub.w d3,(a4)
	bpl.s flxs
	clr.w (a4)
flxs:	cmp.w #0,a6
	beq.L tajuttoman
; ja seuraukset tahan

; check if hit (base plus bonuss)
	move.w d0,prtt
	moveq #10,d3
	sub.b 40(a6),d3
	btst #0,d7
	beq.s tuutteli
	subq.b #5,d3
tuutteli:btst #1,d7
	beq.s tuutteli2
	subq.b #2,d3
tuutteli2:move.b 18(a3),d2
	and.w #$f,d2
	bclr #3,d2
	beq.s mkr
	neg.w d2
mkr:	sub.b d2,d3
	sub.b 112(a0),d3
	addq.w #1,d3
	cmp.b #2,113(a0)
	bne.s qual
	addq.w #3,d3
	btst #0,47(a1)
	bne.s qual
	addq.w #5,d3
qual:	cmp.b #3,113(a0)
	bne.s he
	addq.w #2,d3
	btst #1,47(a1)
	bne.s he
	addq.w #4,d3
he:	tst.b 81(a0)
	bne.s pozz
	move.w lastmehu(pc),d5
	cmp.w #$d,d5
	bne.s den2
	addq.w #2,d5
den2:
	cmp.w #$e,d5
	bne.s den3
	addq.w #3,d5
den3:
	cmp.w #$f,d5
	bne.s den4
	addq.w #7,d5
den4:
pozz:	moveq #20,d0
	moveq #1,d1
	bsr.L realrnd
	sub.b d0,d3
	bpl.L ohimeni

	move.w 40(a1),d0
	move.w 42(a1),d1
	bsr.L realrnd
	move.b 18(a3),d1
	and.w #$f,d1
	bclr #3,d1
	beq.s ekual
	neg.w d1
ekual:	add.w d1,d0
	move.w 74(a0),d1
	move.w 76(a0),d2
	lsr.w #1,d2
	cmp.w d1,d2
	ble.s eitarvitse
	move.w d0,d3
	lsr.w #1,d2
	cmp.w d1,d2
	bge.s onkopuolet
	lsr.w #2,d3
	bra.s eitarvetta
onkopuolet:
	lsr.w #1,d3
eitarvetta:
	sub.w d3,d0
eitarvitse:
	move.b 40(a6),d3
	cmp.b #-7,d3
	bgt.s eiko
	move.w d0,d3
	lsr.w #2,d3
	sub.w d3,d0
	sub.w d3,d0
	sub.w d3,d0
	bra.s epifanes
eiko:
	cmp.b #-3,d3
	bgt.s anti
	lsr.w #1,d0
	bra.s epifanes
anti:
	cmp.b #2,d3
	bgt.s miks
	move.w d0,d3
	lsr.w #2,d3
	sub.w d3,d0
miks:
	cmp.b #7,d3
	blt.s epifanes
	move.w d0,d3
	lsr.w #2,d3
	add.w d3,d0
epifanes:
	btst #0,d7
	beq.s feil
	lsl.w #1,d0
feil:	cmp.b #13,88(a0)
	blt.s ryomi
	sub.w #12,d0
	add.b 88(a1),d0
ryomi:	cmp.b #6,88(a0)
	bgt.s luomi
	subq.w #7,d0
	add.w 88(a0),d0
luomi:
	tst.b 100(a0)
	beq.s fille
	lsr.w #1,d0
fille:	tst.w d0
	beq.s ohimeni
	bmi.s ohimeni
	moveq #0,d3
	move.w 54(a6),d3
	divu 24(a6),d3
	mulu d0,d3
	cmp.w 54(a6),d3
	ble.s kalu
	move.w 54(a6),d3
kalu:	add.l d3,108(a0)
	bsr.L todeci
	lea moik(pc),a5
	moveq #48,d3
	move.b jd2(pc),(a5)
	add.b d3,(a5)+
	move.b jd1(pc),(a5)
	add.b d3,(a5)+
	move.b jd0(pc),(a5)
	add.b d3,(a5)
	subq.w #2,a5
	cmp.b (a5)+,d3
	bne.s tuotteita
	st -1(a5)
tuotteita:
	cmp.b (a5),d3
	bne.s llai
	move.b #32,(a5)
llai:
	sub.w d0,26(a6)
	bpl.s tten
	bsr.L itdies
	bra.s jai
tten:
	bsr.L hitseuraukset
jai:	bsr.L levelch
	lea hitzeit1(pc),a4
	add.w prtt(pc),a4
	add.w prtt(pc),a4
	move.w #60,(a4)
	bra.s tajuttoman
ohimeni:clr.l hitzeit1
	clr.l hitzeit1+4
	
tajuttoman:
	rts
prtt:	dc.w 0




eiswing:cmp.w #4,d3
	bne.s eishoot
	move.w 6(a0),d3
	beq.s eishoot
	lsl.w #3,d3
	lea thingplaces-24,a6
	add.w d3,a6
	add.w d3,a6
	add.w d3,a6
	move.l 12(a6),a4
	btst #2,47(a4)
	beq.s able
	btst #3,18(a6)
	bne.L hypote
	clr.w 6(a0)
	move.b 9(a0),11(a6)
	move.l a6,a3

	lea wartezeit1(pc),a4
	add.w d0,a4
	add.w d0,a4
	move.w #180,(a4)

	cmp.b #3,113(a0)
	bne.s thou
	moveq #0,d2
	move.b 112(a0),d2
	sub.w d2,(a4)
	lsl.w #2,d2
	sub.w d2,(a4)
	bpl.s thou
	clr.w (a4)
thou:	bra.L taaf

nott:	dc.b "not shootable",0
able:	lea nott(pc),a0
	bsr.L print
eishoot:

	cmp.w #5,d3
	bne.s eilight
	moveq #0,d3
	move.b 2(a3),d3
	bne.s alrb
	move.l 12(a3),a6
	move.l 72(a6),a6
	move.b #1,2(a3)
	move.l a6,12(a3)
	move.b 70(a6),4(a3)
	move.b 29(a6),3(a3)
	move.b 28(a6),5(a3)
	bra.s fauni
alrb:
	move.l 12(a3),a6
alba:	move.l 72(a6),a6
	subq.w #1,d3
	bne.s alba

	move.l a6,12(a3)

fauni:	st sedi+1
	st deppad+1
	bset #13,18(a3)
	st updateit
	rts


eilight:cmp.w #6,d3
	bne.s eiext
	bclr #13,18(a3)

	move.l 12(a3),a6
	move.l 76(a6),12(a3)

	st deppad+1
	st sedi+1
	st updateit
	rts

eiext:
endofit:rts

deeyks:	dc.w 0
;d1 = membr
;d0 = damage
partyhit:
	movem.l d2-d7/a0-a6,-(sp)
	clr.b r2state
	move.w d1,deeyks
	lsl.w #2,d1
	lea party-4(pc),a3
	move.l 0(a3,d1.w),a3
	tst.b 80(a3)
	bne.L ruth
	move.w d0,d5
	moveq #6,d0
	moveq #1,d1
	bsr.L realrnd
	move.w d0,d6
	cmp.w #1,d0
	bne.s farewell
	move.w 10(a3),d0
	bsr.s sear
	bra.s travelwell
sear:	tst.w d0
	beq.s man1
	lea thingplaces-24,a4
	lsl.w #3,d0
	add.w d0,a4
	add.w d0,a4
	add.w d0,a4
	move.b 18(a4),d2
	and.w #$f,d2
	move.l 12(a4),a4
	add.b 46(a4),d2
	sub.w d2,d5
	bpl.s man1
	moveq #0,d5
man1:
	rts
farewell:cmp.w #5,d0
	bne.s welll3
	move.w 18(a3),d0
	bsr.s sear
	bra.s travelwell
welll3:	cmp.w #6,d0
	bne.s welll4
	move.w 16(a3),d0
	bsr.s sear
	bra.s travelwell
welll4:
	cmp.w #2,d0
	blt.s travelwell
	cmp.w #4,d0
	bgt.s travelwell
	move.w 12(a3),d0
	bsr.s sear
travelwell:

	move.w d5,d0
	beq.s ruth

	bclr #0,arp
	beq.s hart
	ext.l d0
	sub.l d0,108(a3)
	bpl.s ruth
	clr.l 108(a3)
	bsr.L youareadeadman
	bra.s eiwound
hart:	sub.w d0,70(a3)
	bpl.s maiskis
	clr.w 70(a3)
	bsr.L youareadeadman
	bra.s eiwound
maiskis:move.w d0,d7
	lsr.w #1,d0
	sub.w d0,74(a3)
	bpl.s pruuths
	clr.w 74(a3)
pruuths:
	moveq #16,d0
	moveq #1,d1
	bsr.L rnd
	bsr.s wounded 
eiwound:st updateit
ruth:	movem.l (sp)+,d2-d7/a0-a6
sund:	rts


wounded:cmp.w #6,d0
	bgt.s sund

	move.w d6,d0
	cmp.b #3,d0
	bgt.s thud3
	move.w 10(a3),d1
thud3:	cmp.b #4,d0
	bne.s thud4
	move.w 12(a3),d1
thud4:	cmp.b #5,d0
	bne.s thud5
	move.w 18(a3),d1
thud5:	cmp.b #6,d0
	bne.s thud6
	move.w 16(a3),d1
thud6:	tst.w d1
	beq.s ness
	lea thingplaces-24,a4
	lsl.w #3,d1
	add.w d1,a4
	add.w d1,a4
	add.w d1,a4
	move.b 18(a4),d1
	and.b #$f,d1
	move.l 12(a4),a4
	add.b 46(a4),d1
ness:	addq.b #1,d1
	cmp.b d1,d7
	ble.s studs
	move.b d1,d5
	ext.w d5

	move.w d7,d0
	moveq #1,d1
	bsr.L realrnd

	cmp.w d5,d0
	ble.s studs

	lea 97(a3,d6.w),a4
	addq.b #1,(a4)
	cmp.b #1,(a4)
	ble.s studs
	cmp.b #4,d6
	beq.s lehti
	cmp.b #6,d6
	beq.s lehti
	cmp.b #3,(a4)
	blt.s studs
lehti:	subq.b #1,(a4)
studs:	rts


youareadeadman:
	move.w deeyks(pc),d1
ded:	cmp.b talk(pc),d1
	bne.s tuhk
	bsr.L endtalk
tuhk:	st 80(a3)
	st superupdate

	moveq #0,d0
	lea place1person-1(pc),a4
	add.w d1,a4
	move.b (a4),d0
	bne.s huorin
	moveq #10,d0
	sub.b place1person(pc),d0
	sub.b place2person(pc),d0
	sub.b place3person(pc),d0
	sub.b place4person(pc),d0
	move.b d0,(a4)
	bsr.L relocc
huorin:	lea pos1person-1(pc),a4
	add.w d0,a4
	move.b #-1,(a4)

	move.w d1,d0
	moveq #-1,d1
	bsr.L peopledo

	move.w d0,d1
	lea 6(a3),a4
	moveq #31,d3
	bsr.s occ
	lea 82(a3),a4
	moveq #1,d3
	bsr.s bantningskur
	
	tst.w infrav
	beq.s studs
	clr.w infrav
	bsr.L offinfr
	rts

asko:	dc.l 0

occ:	subq.w #1,d1
	move.w dirpos(pc),d6
	lsl.w #2,d6
	add.w d1,d6
	lea yrt(pc),a5
	add.w d6,a5
	move.b (a5),d1
	move.l xpos(pc),asko

bantningskur:
	move.w (a4),d4
	beq.s abu
	st updateit
	st deppad+1
	st sedi+1
	bsr.s yksa
	lea thingplaces-24,a5
	lsl.w #3,d4
	add.w d4,a5
	add.w d4,a5
	add.w d4,a5
	move.l asko(pc),6(a5)
	move.b d1,10(a5)
	clr.b 11(a5)
	move.w #$1,20(a5)
abu:
	clr.w (a4)+
	dbf d3,bantningskur
	rts

yksa:
	lea thingplaces+20,a6
tessu:
	move.l asko(pc),d7
	cmp.l -14(a6),d7
	bne.s paluu
	addq.w #1,(a6)
paluu:
	add.w #24,a6
	tst.l -8(a6)
	bne.s tessu
	rts

fiude:	dc.l 0
; a6=creapointer
hitseuraukset:
	or.b #%01100000,35(a6)
	and.b #%11100000,34(a6)

	tst.b 30(a6)
	beq.s lic
	lea creaplaces+16(pc),a5
	moveq #4,d7
paaa:
	addq.w #1,d7
	cmp.l (a5)+,a6
	bne.s paaa
cup:
	lea creaplaces+16(pc),a5
loki:
	move.l (a5)+,d0
	beq.s lic
	move.l d0,a4
	cmp.b 31(a4),d7
	beq.s kom
	cmp.b 32(a4),d7
	beq.s kom
	cmp.b 33(a4),d7
	bne.s loki
kom:	or.b #%01100000,35(a4)
	and.b #%11100000,34(a4)
lic:



	move.w 24(a6),d0
	lsr.w #1,d0
	cmp.w 26(a6),d0
	blt.S clp
	lsr.w #1,d0
	cmp.w 26(a6),d0
	bgt.S pinb
	moveq #0,d0
	move.b 38(a6),d3
	moveq #16,d0
	moveq #2,d1
	bsr.L rnd
	cmp.b d3,d0
	bgt.S clp
	bset #13,34(a6)
sizzler:
	tst.b 30(a6)
	beq.S clp

	clr.l 30(a6)
	lea creaplaces+16(pc),a5
	moveq #4,d7
pay:
	addq.w #1,d7
	move.l (a5)+,d0
	beq.s cu
	cmp.l a6,d0
	bne.s pay
cu:

	lea creaplaces+16(pc),a5
lokki:
	move.l (a5)+,d0
	beq.s clp
	move.l d0,a4
	cmp.b 31(a4),d7
	bne.s che
	clr.b 31(a4)
che:
	cmp.b 32(a4),d7
	bne.s bull
	clr.b 32(a4)
bull:	cmp.b 33(a4),d7
	bne.s lokki
	clr.b 33(a4)
	bra.s lokki




pinb:
	moveq #0,d3
	move.b 38(a6),d3
	moveq #8,d0
	moveq #2,d1
	bsr.L rnd
	cmp.b d3,d0
	bgt.s clp
	bset #13,34(a6)
	bra.S sizzler
clp:
	rts



itdies:	move.l a6,-(sp)
	lea 48(a6),a4
	moveq #1,d3
	btst #4,57(a6)
	beq.s bore
	moveq #0,d3
	addq.w #2,a4
bore:	btst #5,57(a6)
	beq.s euca
	tst.w d3
	beq.s multi
	moveq #0,d3
euca:	move.w 18(a6),d1
	move.l 12(a6),asko
	bsr.L bantningskur
multi:	move.l (sp)+,a6

	clr.l 12(a6)
	tst.b 30(a6)
	bne.S ruputiimi
	st 30(a6)
	moveq #0,d0
	moveq #0,d1
	moveq #0,d2
	moveq #0,d3
	moveq #0,d4
	moveq #0,d5
	move.b 31(a6),d0
	move.b 32(a6),d1
	move.b 33(a6),d2
	move.b d0,d3
	move.b d1,d4
	move.b d2,d5
	lea creaplaces-4(pc),a5
	lsl.w #2,d0
	lsl.w #2,d1
	lsl.w #2,d2

	tst.w d0
	beq.s runningblade
	move.l 0(a5,d0.w),a4
	clr.l 30(a4)
	move.b d4,31(a4)
	move.b d5,32(a4)
	clr.b 33(a4)
koko:	btst #13,34(a6)
	beq.s piko
	bset #13,34(a4)
piko:	rts
runningblade:
	tst.w d1
	beq.s blademan
	move.l 0(a5,d1.w),a4
	clr.l 30(a4)
	move.b d5,31(a4)
	clr.w 32(a4)
	bra.s koko
blademan:tst.w d2
	beq.s piko
	move.l 0(a5,d2.w),a4
	clr.l 30(a4)
	bra.s koko

ruputiimi:
	lea creaplaces+16(pc),a5

	lea creaplaces+16(pc),a4
	moveq #5,d0
nedic:	cmp.l (a4)+,a6
	beq.s redic
	addq.w #1,d0
	bra.s nedic
redic:	move.l (a5)+,d1
	beq.s rmc
	move.l d1,a6

	cmp.b 31(a6),d0
	bne.s lvr
	clr.b 31(a6)
lvr:	cmp.b 32(a6),d0
	bne.s lvr2
	clr.b 32(a6)
lvr2:	cmp.b 33(a6),d0
	bne.s redic
	clr.b 33(a6)
rmc:	rts

healingoper:dc.w 0
updatecreas:
	addq.w #1,healingoper
	cmp.w #80,healingoper
	bne.L rusku
	clr.w healingoper
	lea creaplaces+16(pc),a0
deadman:move.l (a0)+,d0
	beq.S rousku
	move.l d0,a1
	tst.l 12(a1)
	beq.s deadman
	moveq #0,d0
	move.b 39(a1),d0
	add.w d0,26(a1)
	move.w 26(a1),d0
	cmp.w 24(a1),d0
	ble.s deadman
	move.w 24(a1),26(a1)
	bra.s deadman
rousku:	lea member1,a1
	bsr.s geht
	lea member2,a1
	bsr.s geht
	lea member3,a1
	bsr.s geht
	lea member4,a1
	bsr.s geht
	st updateit

	bra.s rusku

geht:
	tst.b 80(a1)
	bne.s kolm
	moveq #0,d0
	move.b 78(a1),d0
	add.w d0,70(a1)
	move.b 79(a1),d0
	add.w d0,74(a1)

	move.w 70(a1),d0
	cmp.w 72(a1),d0
	ble.s roughly
	move.w 72(a1),70(a1)
roughly:
	move.w 74(a1),d0
	cmp.w 76(a1),d0
	ble.s kolm
	move.w 76(a1),74(a1)
kolm:	rts

rnskuno:dc.w 0

rusku:	lea creaplaces+16(pc),a0
	clr.w rnskuno

ronsku:	addq.w #1,rnskuno
	move.l (a0)+,d0
	beq.s kolm
	move.l d0,a1
	move.w 14(a1),d7
	lsl.w #5,d7
	add.w 12(a1),d7
	beq.s ronsku

	btst #15,56(a1)
	bne.s mdulo
	btst #7,57(a1)
	bne.s mdulo
	btst #13,56(a1)
	beq.s nothrt
mdulo:	tst.w 48(a1)
	beq.s jpaa
	tst.w 50(a1)
	bne.s nothrt
jpaa:	move.l 12(a1),d0
	move.w 18(a1),d1
	lea thingplaces-12(pc),a2
	moveq #24,d3
	moveq #0,d4
fstlop:	addq.w #1,d4
	add.w d3,a2
	move.l (a2),d2
	beq.s nothrt
	cmp.l -6(a2),d0
	bne.s fstlop
	cmp.b -2(a2),d1
	bne.s fstlop
	btst #0,19(a2)
	bne.s fstlop
	move.l d2,a3
	btst #15,56(a1)
	beq.s huyxw
	tst.l 40(a3)
	beq.s fstlop
	bra.s sneex
huyxw:	btst #13,57(a1)
	beq.s sneex
	btst #4,47(a3)
	beq.s fstlop
sneex:	and.b #%11001111,57(a1)
	clr.l -6(a2)
	tst.w 48(a1)
	bne.s rppr
	move.w d4,48(a1)
	bra.s prrp
rppr:	move.w d4,50(a1)
prrp:	


nothrt:
	subq.b #1,42(a1)
	bmi.s dooria
	bne.s dr3
	bclr #11,56(a1)
;	beq.s jonkin
;	move.w 4(a1),d0
;	move.w 10(a1),d1
;	move.w d0,60(a1)
;	move.w d1,4(a1)
;	bra.s dooria
;jonkin:
	move.w 4(a1),d0
	move.w 10(a1),d1
	move.w d0,10(a1)
	move.w d1,4(a1)
dooria:	clr.b 42(a1)
dr3:	subq.b #1,53(a1)
	bmi.s feri
	bne.s tiys
	bset #14,34(a1)
feri:	clr.b 53(a1)
tiys:	move.w d7,d6
	lsl.w #1,d6
	move.w 16(a1),d5
	lea plattemap,a3
	moveq #0,d0
	move.b 1(a3,d6.w),d0
	lea platteplaces-3(pc),a3
	lsl.w #3,d0
	btst #0,0(a3,d0.w)
	beq.s kommu
	btst #0,35(a1)
	bne.s kommu
	add.w #32,14(a1)
	bra.L ronsku
kommu:

	subq.b #1,37(a1)
	bpl.L murske
	move.b 36(a1),37(a1)

	btst #0,52(a1)
	bne.L murske
	btst #1,52(a1)
	bne.L murske

	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	move.w d0,d2
	addq.w #4,d2
	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	addq.w #4,d2
	lsl.w #8,d0
	or.w d0,d2
	move.w d2,22(a1)

	tst.b 30(a1)
	bne.L slaverout

	or.w #$1e,34(a1)
	lea wallmap,a2
	lea plattemap,a3
	lea objoverlap-1(pc),a4
	lea platteplaces-3(pc),a5

	moveq #1,d1
	moveq #0,d3
	move.w d7,d0
	sub.w #32,d0
	move.b -32(a2,d7.w),d3
	move.w -64(a3,d6.w),d2
	bsr.L testaanyte
	addq.w #1,d1
	move.w d7,d0
	addq.w #1,d0
	move.b 1(a2,d7.w),d3
	move.w 2(a3,d6.w),d2
	bsr.L testaanyte
	addq.w #1,d1
	move.w d7,d0
	add.w #32,d0
	move.b 32(a2,d7.w),d3
	move.w 64(a3,d6.w),d2
	bsr.L testaanyte
	addq.w #1,d1
	move.w d7,d0
	subq.w #1,d0
	move.b -1(a2,d7.w),d3
	move.w -2(a3,d6.w),d2
	bsr.L testaanyte

	tst.l 30(a1)
	bne.s pyor

	tst.w 18(a1)
	beq.s vipe
	cmp.w #1,18(a1)
	bne.s barium
	moveq #3,d0
	moveq #1,d1
	bsr.s tera
	moveq #2,d0
	moveq #2,d1
	bsr.s tera
	bra.s vipe
barium:	cmp.w #2,18(a1)
	bne.s enymmarra
	moveq #4,d0
	moveq #1,d1
	bsr.s tera
	moveq #1,d0
	moveq #4,d1
	bsr.s tera
	bra.s vipe
enymmarra:
	cmp.w #3,18(a1)
	bne.s johanna
	moveq #1,d0
	moveq #3,d1
	bsr.s tera
	moveq #4,d0
	moveq #2,d1
	bsr.s tera
vipe:	bra.s pyor
johanna:moveq #2,d0
	moveq #3,d1
	bsr.s tera
	moveq #3,d0
	moveq #4,d1
	bsr.s tera
	bra.s pyor


tera:
	lea creaplaces+16(pc),a6
toottori:move.l (a6)+,d2
	beq.s pohj
	move.l d2,a3
	move.w 14(a3),d2
	lsl.w #5,d2
	add.w 12(a3),d2
	cmp.w d2,d7
	bne.s toottori
	cmp.w 18(a3),d0
	bne.s toottori
	bclr d1,35(a1)
pohj:
	rts

pyor:
	bra.s rubberball

testaanyte:
	move.w d2,-(sp)
	lea creaplaces(pc),a6
roottori:move.l (a6)+,d2
	beq.s wieder
	move.l d2,a3
	move.w 14(a3),d2
	lsl.w #5,d2
	add.w 12(a3),d2
	cmp.w d2,d0
	bne.s roottori
	bclr d1,35(a1)
wieder:	lea plattemap,a3
	move.w (sp)+,d2

	btst #0,35(a1)
	bne.s goom
	and.w #$ff,d2
	lsl.w #3,d2
	btst #0,0(a5,d2.w)
	beq.s goom
	bclr d1,35(a1)
goom:
	lsl.w #1,d3
	btst #1,0(a4,d3.w)
	bne.s hbandy
	bclr d1,35(a1)
hbandy:	rts

rubberball:
	btst #6,35(a1)
	beq.L wutend





foundya:
	bclr #2,52(a1)
	move.w xpos(pc),d4
	move.w ypos(pc),d3
	move.w 12(a1),d2
	move.w 14(a1),d1
	btst #13,34(a1)
	bne.L pentfant



	cmp.w d2,d4
	bne.L lenfant
	move.w d1,d0
	sub.w d3,d0
	cmp.w #1,d0
	beq.L hurme
	cmp.w #-1,d0
	beq.L hurme

	bsr.s silta
	beq.L pentfant

jokunimi:lea 31(a1),a2
	moveq #2,d2
tasanko:move.b (a2)+,d0
	beq.s spaceofworld
	ext.w d0
	lsl.w #2,d0
	lea creaplaces-4(pc),a3
	add.w d0,a3
	move.l (a3),a3
	bset #6,57(a3)
spaceofworld:
	dbf d2,tasanko
	bra.L ronsku

tele:	movem.w d0/d1,-(sp)
	cmp.w #1,d0
	blt.s goi
	cmp.w #3,d5
	beq.s cemera
	bra.L housems
goi:	cmp.w #1,d5
	bne.L housems
cemera:	bra.s ceme

silta:	movem.w d0/d1,-(sp)
	cmp.w #1,d0
	blt.s tyyy
	tst.w d5
	beq.s ceme
	bra.L housems
tyyy:	cmp.w #2,d5
	bne.L housems
ceme:	moveq #8,d0
	moveq #1,d1
	bsr.L rnd
	move.b 56(a1),d7
	and.w #$7,d7
	cmp.w d7,d0
	bgt.L housems

	moveq #0,d7
	moveq #0,d1
	btst #2,57(a1)
	beq.L gfds
	move.w 48(a1),d0
	beq.L gfds

	moveq #4,d1

gaggada:lea thingplaces-24(pc),a2
	lsl.w #3,d0
	add.w d0,a2
	add.w d0,a2
	add.w d0,a2

	btst d1,57(a1)
	beq.s eifl
	btst #3,57(a1)
	beq.s gfds
	tst.l 6(a2)
	bne.s gfds
eifl:	move.l 12(a1),6(a2)
	move.w d5,d0
	move.b d0,16(a2)
	lsl.w #2,d0
	add.w 18(a1),d0
	move.b 19(a1),10(a2)
	lea khaired-1,a4
	add.w d0,a4
	tst.b (a4)
	beq.s eitule
	bset #4,19(a2)
eitule:	and.b #%00011111,19(a2)

	bset d1,57(a1)
	bset #1,19(a2)

	move.b 43(a1),42(a1)
	move.w 4(a1),d0
	move.w 10(a1),d1
	move.w d0,10(a1)
	move.w d1,4(a1)
	bset #11,56(a1)

	tst.b d7
	beq.s jon
	clr.w 50(a1)
jon:	tst.b d7
	bne.s anderson
	clr.w 48(a1)
anderson:
	movem.w (sp)+,d0/d1
	move.w #$00,ccr
	rts

gfds:	tst.w d7
	bne.s housems

	btst #1,57(a1)
	beq.s housems

	moveq #5,d1

	st d7
	move.w 50(a1),d0
	bne.L gaggada

housems:movem.w (sp)+,d0/d1
	move.w #$ff,ccr
	rts






urbaani:bsr.L tele
	beq.L pentfant
	bra.L jokunimi

lenfant:cmp.w d1,d3
	bne.L pentfant
	move.w d2,d0
	sub.w d4,d0
	cmp.w #1,d0
	bgt.S urbaani
	cmp.w #-1,d0
	blt.S urbaani

hurme:	moveq #0,d0
	cmp.w d2,d4
	bgt.s itaan
	blt.s lanteen
	cmp.w d1,d3
	blt.s antt
	moveq #2,d0
antt:
	move.w 16(a1),d5
	cmp.b d0,d5
	beq.s testaasecplz
	bclr #0,zos
	bne.L ronsku
	and.b #%11111100,34(a1)
	bset #7,35(a1)
	or.b d0,34(a1)
	bra.L pentfant
lanteen:moveq #3,d0
	bra.s antt
itaan:	moveq #1,d0
	bra.s antt

testaasecplz:
	bclr #0,zos
	move.w 18(a1),d6
	beq.L kyke
	cmp.w #2,d5
	bne.s southplax
	cmp.w #1,d6
	beq.L kyke
	cmp.w #2,d6
	beq.L kyke
	subq.w #2,d6
	bsr.S vangelis
	bne.L fizard
	move.w d6,18(a1)
southplax:cmp.w #1,d5
	bne.s eastplax
	cmp.w #2,d6
	beq.L kyke
	cmp.w #4,d6
	beq.L kyke
	addq.w #1,d6
	bsr.S vangelis
	bne.L fizard2
	move.w d6,18(a1)
eastplax:tst.w d5
	bne.s rge
	cmp.w #3,d6
	beq.L kyke
	cmp.w #4,d6
	beq.L kyke
	addq.w #2,d6
	bsr.s vangelis
	bne.s fizard3
	move.w d6,18(a1)
rge:
	cmp.w #3,d5
	bne.s eiky
	cmp.w #1,d6
	beq.L kyke
	cmp.w #3,d6
	beq.L kyke
	subq.w #1,d6
	bsr.s vangelis
	bne.s fizard4
	move.w d6,18(a1)
eiky:
	bclr #12,56(a1)
	bra.L ronsku

vangelis:lea creaplaces+16(pc),a2
evan:
	move.l (a2)+,d0
	beq.s viuviu
	move.l d0,a3
	move.w 14(a3),d0
	lsl.w #5,d0
	add.w 12(a3),d0
	cmp.w d0,d7
	bne.s evan
	cmp.w 18(a3),d6
	bne.s evan
	moveq #1,d0
viuviu:	rts

fizard:	subq.w #1,d6
	bne.s pruppu
	moveq #2,d6
pruppu:	bsr.s vangelis
	bne.s eiky
	addq.w #2,d6
	bsr.s vangelis
	bne.s eiky
	move.w d6,18(a1)
	bra.s eiky
fizard2:subq.w #2,d6
	bne.s pruppu2
	moveq #4,d6
pruppu2:bsr.s vangelis
	bne.s eiky
	subq.w #1,d6
	bsr.s vangelis
	bne.s eiky
	move.w d6,18(a1)
	bra.s eiky
fizard3:addq.w #1,d6
	cmp.w #5,d6
	bne.s pruppu3
	moveq #3,d6
pruppu3:bsr.s vangelis
	bne.s eiky
	subq.w #2,d6
	bsr.s vangelis
	bne.s eiky
	move.w d6,18(a1)
	bra.s eiky
fizard4:subq.w #2,d6
	bpl.s pruppu4
	moveq #3,d6
pruppu4:bsr.s vangelis
	bne.s eiky
	addq.w #1,d6
	bsr.s vangelis
	bne.L eiky
	move.w d6,18(a1)
	bra.L eiky





kyke:	bset #12,56(a1)
	beq.L ronsku
	tst.b 42(a1)
	bne.L tojaut
	tst.b 53(a1)
	bne.s uho
	move.b 41(a1),53(a1)
uho:	bclr #14,34(a1)
	beq.L tojaut
	move.b 43(a1),42(a1)
	move.w 4(a1),d0
	move.w 10(a1),d1
	move.w d0,10(a1)
	move.w d1,4(a1)
; aanet ym

;calc aija to be hit
	move.w 18(a1),d1
	bne.s seroplasi
	moveq #1,d1
seroplasi:
	move.w 16(a1),d0
	bne.s das
	moveq #1,d2
	subq.w #3,d1
	add.w d1,d2
	bsr.s kuur
das:
	cmp.w #1,d0
	bne.s karn
	moveq #1,d2
	subq.w #2,d1
	add.w d1,d2
	bsr.s kuur
karn:
	cmp.w #2,d0
	bne.s hain
	moveq #3,d2
	subq.w #1,d1
	add.w d1,d2
	bsr.s kuur
hain:	cmp.w #3,d0
	bne.L vakomitta
	moveq #2,d2
	subq.w #1,d1
	add.w d1,d2
	bsr.s kuur

	bra.L vakomitta
kuur:
	move.w dirpos(pc),d3
	lsl.w #2,d3
	add.w d2,d3
	subq.w #1,d3
	lea yrt(pc),a2
	add.w d3,a2
	move.b (a2),d2
	lsl.w #2,d2
	lea party-4(pc),a2
	add.w d2,a2
	lsr.w #2,d2
	move.l (a2),a2
	tst.b 80(a2)
	beq.s nnuri
	lea party(pc),a2
	moveq #0,d2
hiillos:addq.w #1,d2
	move.l (a2)+,a3
	tst.b 80(a3)
	beq.s nnuri
	bra.s hiillos
nnuri:
	cmp.w #4,d2
	bgt.s movvved
	rts
movvved:moveq #0,d2
	rts





fii:	cmp.w #1,dirpos
	bne.s jooh
	exg d0,d1
	neg.w d0
jooh:	cmp.w #2,dirpos
	bne.s jooh2
	neg.w d1
	neg.w d0
jooh2:	cmp.w #3,dirpos
	bne.s jooh3
	neg.w d0
	exg d0,d1
jooh3:	add.w xpos(pc),d0
	add.w ypos(pc),d1
	rts

leftchk:moveq #-1,d0
	moveq #0,d1
	bsr.s fii
	moveq #3,d7
niring:	lea creaplaces(pc),a4
ronin:	move.l (a4)+,d6
	beq.s fuji
	move.l d6,a5
	cmp.w 12(a5),d0
	bne.s ronin
	cmp.w 14(a5),d1
	bne.s ronin
	btst #5,35(a5)
	beq.s ronin
	lea leftright(pc),a4
	st 0(a4,d7.w)
fuji:	rts

rightchk:moveq #1,d0
	moveq #0,d1
	bsr.s fii
	moveq #1,d7
	bra.s niring
upchk:	moveq #-1,d1
	moveq #0,d0
	bsr.s fii
	moveq #0,d7
	bra.s niring
downchk:moveq #0,d0
	moveq #1,d1
	bsr.s fii
	moveq #2,d7
	bra.s niring

leftright:dc.b 0,0,0,0

tutki:	lea party-4(pc),a4
	lsl.w #2,d3
	add.w d3,a4
	lsr.w #2,d3
	move.l (a4),a4
	tst.b 80(a4)
huugo:	rts

vakomitta:
	tst.w d2
	beq.L tojaut
	moveq #0,d7
	bsr.s koti
	bra.L noriega

; d2= 0-3 peopleno

koti:	cmp.b cursorperson(pc),d2
	beq.s huugo

	move.w d7,-(sp)

	clr.l leftright

	cmp.w #1,d2
	bne.s lux
	bsr.s upchk
	bsr.L leftchk
	move.w d2,d3
	addq.w #2,d3
	bsr.s tutki
	beq.s pims
	bsr.s downchk
pims:	subq.w #1,d3
	bsr.s tutki
	beq.s lux
	bsr.s rightchk

lux:	cmp.w #2,d2
	bne.s lux2
	bsr.s upchk
	bsr.s rightchk
	move.w d2,d3
	addq.w #2,d3
	bsr.s tutki
	beq.s pims2
	bsr.s downchk
pims2:	subq.w #3,d3
	bsr.s tutki
	beq.s lux2
	bsr.L leftchk

lux2:	cmp.w #3,d2
	bne.s lux3
	bsr.s downchk
	bsr.L leftchk
	move.w d2,d3
	subq.w #2,d3
	bsr.s tutki
	beq.s pims3
	bsr.L upchk
pims3:	addq.w #3,d3
	bsr.L tutki
	beq.s lux3
	bsr.L rightchk

lux3:	cmp.w #4,d2
	bne.s lux4
	bsr.L downchk
	bsr.L rightchk
	move.w d2,d3
	subq.w #2,d3
	bsr.L tutki
	beq.s pims4
	bsr.L upchk
pims4:	addq.w #1,d3
	bsr.L tutki
	beq.s lux4
	bsr.L leftchk

lux4:
	move.w (sp)+,d7

	lea place1person-1(pc),a4
	add.w d2,a4
	moveq #0,d3
	move.b (a4),d3
	lea pos1person-1(pc),a4
	add.w d3,a4
	move.b (a4),d3
	lea leftright(pc),a5
	tst.b 0(a5,d3.w)
	bne.s krit

	moveq #0,d3
	tst.b (a5)
	bne.s liiku
	moveq #1,d3
	tst.b 1(a5)
	bne.s liiku
	moveq #2,d3
	tst.b 2(a5)
	bne.s liiku
	moveq #3,d3
	tst.b 3(a5)
	bne.s liiku

	tst.w d7
	beq.s krit

	move.b #0,(a4)
	move.w d2,d0
	moveq #0,d1
	bsr.L peopledo
	rts
liiku:	move.b d3,(a4)
	move.w d2,d0
	move.w d3,d1
	bsr.L peopledo

krit:	rts




noriega:lsl.w #2,d2
	lea party-4(pc),a2
	add.w d2,a2
	lsr.w #2,d2
	move.l (a2),a2

	moveq #12,d3

	moveq #0,d7
	btst #15,56(a1)
	beq.s frnd
	move.w 50(a1),d5
	bne.s tryag
	move.w 48(a1),d5
	beq.s frnd
tryag:	lea thingplaces-12(pc),a3
	lsl.w #3,d5
	add.w d5,a3
	add.w d5,a3
	add.w d5,a3
	move.l (a3),a4

	moveq #0,d6
	move.b 44(a1),d6
	move.b 45(a1),d7
	mulu d6,d7
	move.w 40(a4),d6
	mulu 42(a4),d6
	cmp.w d7,d6
	bmi.s notk

	move.b 18(a3),d4
	and.w #$f,d4
	bclr #3,d4
	bne.S holmes
	neg.w d4
holmes:
	sub.w d4,d3
	move.w d4,d6
	move.l a4,d7
	bra.s frnd

notk:	moveq #0,d7
frnd:

;calc to hit roll (dex,armorclass)
	add.b 46(a1),d3
	move.w 96(a2),d4
	cmp.b #2,102(a2)
	bne.s dedar
	cmp.w #5,d4
	blt.s dedar
	moveq #5,d4
dedar:	cmp.w #12,d4
	blt.s tyt
	subq.w #1,d3
	cmp.w #14,d4
	blt.s tyt
	subq.w #1,d3
	cmp.w #16,d4
	blt.s tyt
	subq.w #1,d3
tyt:
	cmp.w #7,d4
	bgt.s gyg
	addq.w #1,d3
	cmp.w #5,d4
	bgt.s gyg
	addq.w #1,d3
	cmp.w #3,d4
	bgt.s gyg
	addq.w #1,d3
gyg:	move.w 14(a2),d4
	bsr.s tulen
	bra.s eineck

tulen:	tst.w d4
	beq.s eiii
	lea thingplaces-24(pc),a3
	lsl.w #3,d4
	add.w d4,a3
	add.w d4,a3
	add.w d4,a3
	move.b 18(a3),d4
	move.l 12(a3),a3
	and.w #$f,d4
	bclr #3,d4
	bne.S kolmas
	neg.w d4
kolmas:	move.b 46(a3),d5
	lsr.w #1,d5
	add.b d5,d4
	sub.w d4,d3
eiii:	rts

eineck:	move.w 82(a2),d4
	bsr.s tulen
	move.w 84(a2),d4
	bsr.s tulen
	move.w 12(a2),d4
	bsr.s tulen
	move.w 6(a2),d4
	bsr.s tulen
	move.w 8(a2),d4
	bsr.s tulen

	btst #16,34(a1)
	bne.s infe
	move.w lastmehu(pc),d5
	cmp.w #$d,d5
	bne.s des2
	subq.w #2,d5
des2:
	cmp.w #$e,d5
	bne.s des3
	subq.w #3,d5
des3:
	cmp.w #$f,d5
	bne.s des4
	subq.w #7,d5
des4:
infe:	moveq #20,d0
	moveq #1,d1
	bsr.L realrnd
	sub.w d0,d3
	bmi.s ohio

	tst.w d7
	beq.s ryyp
	move.l d7,a3
	move.w 40(a3),d0
	move.w 42(a3),d1
	bsr.L realrnd
	add.w d6,d0
	bmi.s ohio
	bra.s mee
ryyp:	moveq #0,d0
	moveq #0,d1
	move.b 44(a1),d0
	move.b 45(a1),d1
	bsr.L realrnd
mee:	move.w d2,d1
	btst #4,52(a1)
	sne arp
	bsr.L partyhit
ohio:
	
tojaut:	bra.L ronsku

arp:	dc.w 0





pentfant:
	bclr #7,35(a1)
	bne.L wiqz
	btst #13,34(a1)
	beq.s wheaaa
	move.w 24(a1),d2
	lsr.w #2,d2
	cmp.w 26(a1),d2
	bgt.s pulppari
	moveq #20,d0
	moveq #1,d1
	bsr.L rnd
	cmp.w #1,d0
	bne.s wheaaa
pulssari:bclr #5,34(a1)
pulppari:
	moveq #16,d0
	moveq #2,d1
	bsr.L rnd
	cmp.w #16,d0
	beq.s pulssari
wheaaa:	move.b 35(a1),d0
	lsr.b #1,d0
	and.b #$f,d0
	move.b d0,blbp+1
	move.b d0,pandora+1
	move.w d2,d0
	sub.w d4,d0
	cmp.w d3,d1
	bne.s juf
	cmp.w #1,d0
	beq.s fimaa
	cmp.w #-1,d0
	bne.s juf
fimaa:	btst #1,blbp+1
	bne.s ticca2
filmtic2:btst #3,blbp+1
	beq.s filmatic2
ticca2:	bclr #0,blbp+1
	bclr #2,blbp+1
filmatic2:
	bra.s juf
offtrack:bclr #6,35(a1)
	bra.L wutend
juf:
	cmp.w #8,d0
	bgt.s offtrack
	cmp.w #-8,d0
	blt.s offtrack

	move.w d1,d0
	sub.w d3,d0
	cmp.w d4,d2
	bne.s filmatic
	cmp.w #1,d0
	beq.s justfor
	cmp.w #-1,d0
	bne.s filmatic
justfor:btst #0,blbp+1
	bne.s ticca
filmtic:btst #2,blbp+1
	beq.s filmatic
ticca:	bclr #1,blbp+1
	bclr #3,blbp+1
filmatic:
	cmp.w #6,d0
	bgt.s offtrack
	cmp.w #-6,d0
	blt.s offtrack

	btst #4,34(a1)
	beq.s tiitaa
	move.b 34(a1),d0
	and.b #%00001100,d0
	lsr.w #2,d0
	bclr d0,blbp+1
tiitaa:
	move.b 34(a1),d0
	and.b #%00000011,d0
	btst d0,blbp+1
	bne.s nob
	lsl.w #2,d0
	and.b #%11110011,34(a1)
	or.b d0,34(a1)
	bset #4,34(a1)
nob:

	move.b blbp+1(pc),d0

	cmp.w d3,d1
	bne.s oksidant
	bclr #0,d0
	bclr #2,d0
oksidant:bpl.s DeLa
	bclr #0,d0
	bra.s oksidi
DeLa:
	bclr #2,d0

oksidi:	cmp.w d4,d2
	bne.s oksut
	bclr #3,d0
	bclr #1,d0
oksut:	bpl.s fillari
	bclr #3,d0
	bra.s oksiini
fillari:
	bclr #1,d0
oksiini:
	move.b d0,blbp
	clr.b pandora
tiiuuii:
	btst d5,d0
	beq.s fier
	move.b d5,d1
	bra.S derb
fier:	btst #0,d0
	beq.s cough
	moveq #0,d1
	bra.s derb
cough:	btst #1,d0
	beq.s cough1
	moveq #1,d1
	bra.s derb
cough1:	btst #2,d0
	beq.s cough2
	moveq #2,d1
	bra.s derb
cough2:	btst #3,d0
	beq.s cough3
	moveq #3,d1
	bra.s derb
cough3:	move.b blbp+1(pc),d6
	st pandora
	move.w d5,d1
	btst d5,d6
	bne.s derb
	tst.b d6
	beq.s samba
pat:
	cmp.w d1,d3
	bne.s nena
	moveq #0,d1
	btst d1,d6
	bne.s derb
	moveq #2,d1
	btst d1,d6
	bne.s derb
nena:	cmp.w d2,d4
	bne.s zaq
	moveq #1,d1
	btst d1,d6
	bne.s derb
	moveq #3,d1
	btst d3,d6
	bne.s derb
zaq:

	moveq #4,d0
	moveq #1,d1
	bsr.L rnd
	subq.w #1,d0
	btst d0,d6
	beq.s pat
	move.w d0,d1
	bra.s derb
pandora:dc.w 0
samba:	move.b pandora+1(pc),d6
	bne.s zaq
	moveq #0,d1
	bclr #5,34(a1)

derb:
	tst.b pandora
	beq.s hqr
	move.w d1,d0
	and.b #%11110011,34(a1)
	addq.w #2,d0
	and.w #$3,d0
	lsl.w #2,d0
	or.b d0,34(a1)
	bset #4,34(a1)
hqr:	and.b #%11111100,34(a1)
	or.b d1,34(a1)
	bset #7,35(a1)
	bra.L foundya
blbp:	dc.b 0
	dc.b 0

ztep:	move.b 34(a1),d0
	btst #4,d0
	beq.s eic
	and.w #%00001100,d0
	lsr.w #2,d0
	addq.w #2,d0
	and.w #3,d0
	cmp.w d0,d5
	beq.s eic
	and.b #%11100011,34(a1)
eic:
	bra.L step

wiqz:
	moveq #3,d1
	move.b 34(a1),d0
	btst #5,d0
	beq.s ekvater
	and.w d1,d0
	move.w d0,d2

	addq.w #2,d0
	and.w d1,d0
	addq.w #1,d0
	btst d0,35(a1)
	bne.s cks
	move.w d2,d0
	addq.w #1,d0
	and.w d1,d0
	addq.w #1,d0
	btst d0,35(a1)
	bne.s cks
	move.w d2,d0
	subq.w #1,d0
	and.w d1,d0
	addq.w #1,d0
	btst d0,35(a1)
	bne.s cks
	move.w d2,d0
	bra.s ekvater
cks:
	subq.w #1,d0

ekvater:and.w d1,d0
	beq.s northward
	cmp.w d1,d0
	beq.s westward
	cmp.w #2,d0
	beq.S southward

eastward:
	cmp.w #1,d5
	beq.S ztep
turneast:tst.w d5
	bne.s addip
	addq.w #2,16(a1)
	and.w #$3,16(a1)
addip:	subq.w #1,16(a1)
	and.w #$3,16(a1)
	move.w 16(a1),d5
	bra.L tehomopo

westward:
	cmp.w #3,d5
	beq.L ztep
turnwest:tst.w d5
	beq.s addiop
	addq.w #2,16(a1)
	and.w #$3,16(a1)
addiop:	subq.w #1,16(a1)
	and.w #$3,16(a1)
	move.w 16(a1),d5
	bra.L tehomopo


northward:
	tst.w d5
	beq.L ztep
northturn:cmp.w #1,d5
	beq.s addip2
	addq.w #2,16(a1)
	and.w #$3,16(a1)
addip2:	subq.w #1,16(a1)
	and.w #$3,16(a1)
	move.w 16(a1),d5
	bra.L tehomopo

southward:
	cmp.w #2,d5
	beq.L ztep
turnsouth:cmp.w #1,d5
	beq.s addiop2
	subq.w #2,16(a1)
	and.w #$3,16(a1)
addiop2:addq.w #1,16(a1)
	and.w #$3,16(a1)
	move.w 16(a1),d5
	bra.L tehomopo



step:	move.w d5,d1
	addq.w #1,d1
	btst d1,35(a1)
	beq.L turning
	bra.s step2

wutend:	moveq #8,d0
	moveq #1,d1
	bsr.L rnd
	btst #2,52(a1)
	bne.s negro
	cmp.w #1,d0
	beq.L turning
negro:
	move.w d5,d1
	addq.w #1,d1
	btst d1,35(a1)
	beq.L turning
step2:
	move.w 12(a1),d4
	move.w 14(a1),d3
	tst.w d5
	bne.s mammona
	subq.w #1,d3
mammona:cmp.w #2,d5
	bne.s mr2
	addq.w #1,d3
mr2:
	cmp.w #1,d5
	bne.s mammona2
	addq.w #1,d4
mammona2:cmp.w #3,d5
	bne.s rkr
	subq.w #1,d4
rkr:

	move.w d3,d2
	lsl.w #5,d2
	add.w d4,d2
	lea wallmap,a2
	add.w d2,a2
	moveq #0,d0
	move.b (a2),d0
	lsl.w #1,d0
	lea objoverlap-1(pc),a2
	btst #2,0(a2,d0.w)
	beq.s gef
	addq.w #2,d5
	and.w #$3,d5
gef:

	move.l a1,a3
	bsr.s rumppan
	lea creaplaces-4(pc),a2

	moveq #0,d2
	move.b 31(a1),d2
	beq.s murske3
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	bsr.s rumppan
murske3:moveq #0,d2
	move.b 32(a1),d2
	beq.s murske4
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	bsr.s rumppan
murske4:moveq #0,d2
	move.b 33(a1),d2
	beq.S murske
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	bsr.s rumppan
	bra.s murske

rumppan:move.w d4,12(a3)
	move.w d3,14(a3)
	move.w d5,16(a3)
	rts


murske:	btst #5,35(a1)
	beq.L ronsku
	btst #6,35(a1)
	bne.L ronsku
	move.w 14(a1),d4
	lsl.w #5,d4
	add.w 12(a1),d4
	move.w ypos(pc),d3
	lsl.w #5,d3
	add.w xpos(pc),d3

	lea wallmap,a3
	lea objoverlap-1(pc),a2

	tst.w d5
	bne.s abound
	moveq #1,d0
	moveq #32,d1
	bra.s cel
abound:
	cmp.w #1,d5
	bne.s gcr
	moveq #32,d0
	moveq #-1,d1
	bra.s cel
gcr:
	cmp.w #2,d5
	bne.s dif
	moveq #-1,d0
	moveq #-32,d1
	bra.s cel
dif:	moveq #-32,d0
	moveq #1,d1

cel:
	sub.w d0,d4
	cmp.w d3,d4
	beq.L qz
	add.w d0,d4
	add.w d0,d4
	cmp.w d3,d4
	beq.L qz
	sub.w d0,d4
	sub.w d1,d4
	cmp.w d3,d4
	beq.L qz
	move.w d4,d2
	bsr.L rqg
	bne.L notfound
	sub.w d0,d4
	cmp.w d3,d4
	beq.L qz
	add.w d0,d4
	add.w d0,d4
	cmp.w d3,d4
	beq.L qz
	sub.w d1,d4
	sub.w d0,d4
	cmp.w d3,d4
	beq.L qz

	sub.w d0,d4
	cmp.w d3,d4
	bne.s dreyfus
	move.w d4,d2
	add.w d0,d2	
	bsr.L rqg
	bne.L notfound
	add.w d1,d2
	bsr.L rqg
	beq.L qz
dreyfus:add.w d0,d4
	cmp.w d3,d4
	bne.s disques
	move.w d4,d2
	add.w d0,d2
	bsr.L rqg
	bne.L notfound
	move.w d4,d2
	add.w d1,d2
	bsr.L rqg
	beq.L qz
disques:add.w d0,d4
	add.w d0,d4
	add.w d0,d4
	cmp.w d3,d4
	bne.s tap
	move.w d4,d2
	sub.w d0,d2
	bsr.L rqg
	bne.L notfound
	add.w d1,d2
	bsr.L rqg
	beq.L qz
tap:
	sub.w d0,d4
	cmp.w d3,d4
	bne.s torsti
	move.w d4,d2
	sub.w d0,d2
	bsr.L rqg
	bne.L notfound
	move.w d4,d2
	add.w d1,d2
	bsr.L rqg
	beq.L qz
torsti:	add.w d0,d4
	sub.w d1,d4
	cmp.w d3,d4
	bne.s horsti
	move.w d4,d2
	add.w d1,d2
	sub.w d0,d2
	add.w d1,d2
	bsr.L rqg
	bne.L notfound
	sub.w d1,d2
	bsr.L rqg
	bne.L notfound
	move.w d4,d2
	add.w d1,d2
	bsr.L rqg
	beq.S qz
	move.w d4,d2
	sub.w d0,d2
	bsr.L rqg
	beq.S qz
horsti:	sub.w d0,d4
	cmp.w d3,d4
	bne.s folio
	move.w d4,d2
	add.w d1,d2
	bsr.L rqg
	bne.L notfound
	sub.w d0,d2
	bsr.L rqg
	beq.s qz
folio:	sub.w d0,d4
	cmp.w d3,d4
	bne.s yhdt
	move.w d4,d2
	add.w d1,d2
	bsr.L rqg
	beq.s qz
yhdt:
	sub.w d0,d4
	cmp.w d3,d4
	bne.s antarc
	add.w d1,d2
	bsr.L rqg
	bne.L notfound
	add.w d0,d2
	bsr.L rqg
	beq.s qz
	add.w d1,d2
	sub.w d0,d2
	bsr.L rqg
	beq.s qz
antarc:	move.w d4,d2
	sub.w d0,d4
	cmp.w d3,d4
	bne.s notfound
	add.w d1,d2
	bsr.s rqg
	bne.s notfound
	add.w d1,d2
	bsr.s rqg
	bne.s notfound
	move.w d4,d2
	add.w d1,d2
	bsr.s rqg
	beq.s qz
	move.w d4,d2
	add.w d0,d2
	bsr.s rqg
	beq.s qz	
	bra.s notfound

qz:	btst #15,34(a1)
	bne.s cyl
	move.w lastmehu(pc),d0
	cmp.w #$c,d0
	blt.s cyl
	moveq #3,d2
	cmp.w #$d,d0
	blt.s rdq
	moveq #5,d2
	cmp.w #$e,d0
	blt.s rdq
	moveq #7,d2
	cmp.w #$f,d0
	bne.s rdq
	moveq #9,d2
rdq:
	cmp.b #5,38(a1)
	bge.s eisu
	addq.b #5,d2
	sub.b 38(a1),d2
eisu:	moveq #10,d0
	moveq #1,d1
	bsr.L realrnd
	cmp.b d0,d2
	bge.s eix
cyl:
	bset #6,35(a1)
eix:	bra.L ronsku
notfound:bclr #6,35(a1)
	bra.L ronsku
rqg:
	move.w d0,-(sp)
	moveq #0,d0
	move.b 0(a3,d2.w),d0
	lsl.w #1,d0
	btst #0,0(a2,d0.w)
	beq.s himpsu
	move.w (sp)+,d0
	move.w #$4,ccr
	rts
himpsu:	move.w (sp)+,d0
	move.w #$0,ccr
	rts

slaverout:
	move.w xpos(pc),d4
	move.w ypos(pc),d3
	move.w 12(a1),d2
	move.w 14(a1),d1
	clr.w d6

	btst #1,57(a1)
	bne.s rytt
	btst #2,57(a1)
	beq.s tytt
rytt:	tst.l 48(a1)
	beq.s tytt
	moveq #8,d0
	moveq #1,d1
	bsr.L rnd
	subq.w #1,d0
	move.b 56(a1),d1
	and.w #$7,d1
	cmp.w d0,d1
	bmi.s tytt
	bclr #6,57(a1)
	move.w rnskuno(pc),d0
	lea creaplaces(pc),a2
ruut:	move.l (a2)+,d1
	beq.s tytt
	move.l d1,a3
	cmp.b 31(a3),d0
	beq.s loytis
	cmp.b 32(a3),d0
	beq.s loytis
	cmp.b 33(a3),d0
	bne.s ruut
loytis:	bset #6,57(a1)
	bset #12,56(a3)
tytt:	bclr #6,57(a1)
	beq.s pamppu
	st d6
pamppu:	cmp.w d2,d4
	bne.s fqq
	move.w d1,d0
	sub.w d3,d0
	cmp.w #1,d0
	bgt.s bronze2
	cmp.w #-1,d0
	blt.s bronze2
	bset #0,zos
	bra.L hurme
bronze2:tst.w d6
	beq.s brontse
	bsr.L silta
	beq.s brontse
	bclr #12,56(a3)
	bra.s brontse
fqq:	cmp.w d1,d3
	bne.s brontse
	move.w d2,d0
	sub.w d4,d0
	cmp.w #1,d0
	bgt.s bronze3
	cmp.w #-1,d0
	blt.s bronze3
	bset #0,zos
	bra.L hurme
bronze3:tst.w d6
	beq.s brontse
	bsr.L tele
	beq.s brontse
	bclr #12,56(a3)
brontse:bra.L ronsku
zos:	dc.w 0



turning:btst #2,52(a1)
	beq.s eipat
	moveq #1,d0
	btst #3,52(a1)
	beq.s eipate
	moveq #2,d0
	bra.s eipate
eipat:	moveq #2,d0
	moveq #1,d1
	bsr.L rnd
eipate:	cmp.w #1,d0
	beq.s ryppynen
	addq.w #1,d5
	and.w #3,d5

	move.w d5,d1
	addq.w #1,d1
	btst d1,35(a1)
	bne.s sprm
	subq.w #2,d5
	and.w #3,d5
sprm:
	move.w d5,16(a1)
tehomopo:
	lea creaplaces-4(pc),a2

	moveq #0,d2
	move.b 31(a1),d2
	beq.s rs
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	move.w d5,16(a3)

rs:	moveq #0,d2
	move.b 32(a1),d2
	beq.s rs2
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	move.w d5,16(a3)

rs2:	moveq #0,d2
	move.b 33(a1),d2
	beq.s rs3
	lsl.w #2,d2
	move.l 0(a2,d2.w),a3
	move.w d5,16(a3)
	
rs3:	bra.L ronsku

ryppynen:
	subq.w #1,d5
	and.w #3,d5

	move.w d5,d1
	addq.w #1,d1
	btst d1,35(a1)
	bne.s sprm
	addq.w #2,d5
	and.w #3,d5
	bra.s sprm

stopfly:bclr #6,18(a1)
	move.l 12(a1),a2
	tst.b 33(a2)
	beq.s eides
	clr.l 6(a1)
eides:	moveq #0,d4
	move.b 10(a1),d4
	lea thingplaces-24(pc),a3
jitarr:	add.w #24,a3
	tst.l 12(a3)
	beq.s axq
	move.l a3,a2
	cmp.b 10(a2),d4
	bne.s jitarr
	move.w 8(a2),d7
	lsl.w #5,d7
	add.w 6(a2),d7
	cmp.w d2,d7
	bne.s jitarr
	addq.w #1,20(a2)
	bra.s jitarr
axq:
	move.w #$1,20(a1)

	bclr #0,19(a1)
	bra.L pulju

makecursor:
	move.l #pchars1,a0
	move.w d0,d1
	lsl.w #6,d1
	add.w d1,a0
	add.w d1,a0
	add.w d1,a0
	cmp.b #9,d0
	beq.s grx

	lea data1h,a1
	moveq #15,d1
da2:
	moveq #0,d0
	move.w (a0),d0
	or.w 32(a0),d0
	or.w 64(a0),d0
	or.w 96(a0),d0
	or.w 128(a0),d0
	or.w 160(a0),d0
	move.w d0,(a1)
	addq.w #2,a0
	addq.w #4,a1
	dbf d1,da2

	lea data1l,a1
	moveq #15,d1
da5:	clr.w (a1)+
	addq.w #2,a1
	dbf d1,da5

	lea data1l2,a1
	lea data1h,a2
	moveq #15,d1
da9:	move.w (a2)+,(a1)+
	addq.w #2,a1
	addq.w #2,a2
	dbf d1,da9

	lea data1h2,a1
	lea data1h,a2
	moveq #15,d1
da15:	move.w (a2)+,(a1)+
	addq.w #2,a1
	addq.w #2,a2
	dbf d1,da15

mrq:	rts

grx:	lea data1l,a1
	moveq #15,d1
da3:	move.w (a0)+,(a1)
	addq.w #4,a1
	dbf d1,da3

	lea data1h,a1
	moveq #15,d1
da4:	move.w (a0)+,(a1)
	addq.w #4,a1
	dbf d1,da4

	lea data1l2,a1
	moveq #15,d1
da6:	move.w (a0)+,(a1)
	addq.w #4,a1
	dbf d1,da6

	lea data1h2,a1
	moveq #15,d1
da7:	move.w (a0)+,(a1)
	addq.w #4,a1
	dbf d1,da7

	rts


updatedoors:
	lea doorplaces(pc),a0
nexttest:move.l (a0)+,d0
	beq.s mrq
	move.l d0,a1

	tst.b 6(a1)
	beq.L next1
	bmi.s downwards
	move.b 5(a1),d0
	addq.b #1,d0
	cmp.b 7(a1),d0
	bgt.L next1
	move.b d0,5(a1)
	bra.L calcnew	
downwards:tst.b 5(a1)
	beq.L next1
	subq.b #1,5(a1)
	move.w 2(a1),d7
	lsl.w #5,d7
	add.w (a1),d7
	lea creaplaces+12(pc),a2
	moveq #3,d5
byc:
	addq.w #1,d5
	move.l (a2)+,d0
	beq.L calcnew
	move.l d0,a3
	move.w 14(a3),d6
	lsl.w #5,d6
	add.w 12(a3),d6
	cmp.w d6,d7
	bne.s byc
	moveq #0,d0
	move.w 28(a3),d0
	divu #35,d0
	cmp.b 5(a1),d0
	bmi.s byc
	beq.s byc
	bset #0,giolla
nellie:	cmp.w #4,d5
	bgt.s epark

	movem.l a0-a2,-(sp)

	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	moveq #1,d1
	bsr.L partyhit
	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	moveq #2,d1
	bsr.L partyhit
	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	moveq #3,d1
	bsr.L partyhit
	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	moveq #4,d1
	bsr.L partyhit

	movem.l (sp)+,a0-a2
console:bra.s byc

epark:
	move.w d5,-(sp)
	moveq #4,d0
	moveq #2,d1
	bsr.L rnd
	sub.w d0,26(a3)
	bmi.s stq
	move.l a3,a6
	bsr.L hitseuraukset
apy:	move.w (sp)+,d5
	bra.s console

stq:
	move.l a3,a6
	bsr.L itdies
	bra.s apy

giolla:	dc.w 0

calcnew:bclr #0,giolla
	beq.s ege
	addq.b #2,5(a1)
ege:	move.b 5(a1),d0
	add.b 4(a1),d0
	move.w 2(a1),d1
	lsl.w #5,d1
	add.w (a1),d1
	lea wallmap,a2
	add.w d1,a2
	move.b d0,(a2)
next1:

	bra.L nexttest
	rts





















majorln:dc.w 82

class1:	dc.b "Fighter",0
class2:	dc.b "Mage   ",0
class3:	dc.b "Thief  ",0
class4:	dc.b "Ranger ",0

race1:	dc.b "Human   ",0
race2:	dc.b "Elf     ",0
race3:	dc.b "Dwarf   ",0
race4:	dc.b "Halfling",0
even

blank:	dc.b "           ",0
action1:dc.b "throw      ",0
action2:dc.b "swing      ",0
action3:dc.b "hit        ",0
action4:dc.b "shoot      ",0
action5:dc.b "ignite     ",0
action6:dc.b "extinguish ",0
hitchance:
	dc.w 1
	dc.l action1
	dc.w 0
	dc.l blank
	dc.w 0
	dc.l blank

	dc.w 2
	dc.l action2
	dc.w 1
	dc.l action1
	dc.w 3
	dc.l action3

	dc.w 3
	dc.l action3
	dc.w 0
	dc.l blank
	dc.w 0
	dc.l blank

	dc.w 4
	dc.l action4
	dc.w 0
	dc.l blank
	dc.w 0
	dc.l blank

	dc.w 2
	dc.l action2
	dc.w 5
	dc.l action5
	dc.w 0
	dc.l blank

	dc.w 2
	dc.l action2
	dc.w 6
	dc.l action6
	dc.w 0
	dc.l blank

	dc.w 0
	dc.l blank
	dc.w 0
	dc.l blank
	dc.w 0
	dc.l blank


name1:	dc.b "Jokke",0
name2:	dc.b "Erkki",0
name3:	dc.b "Blobi",0
name4:	dc.b "Klapi",0
even

currpalette: dc.w 0
hour: dc.b 0
min: dc.b 0
sec: dc.b 59
tick:dc.b 49
infrav:	dc.w 0

cccp0a:	dc.l 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
xpos:	dc.w 1
ypos:	dc.w 1
dirpos:	dc.w 1
	dc.w 3
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 0
	dc.w 190
cccp0b:	dc.l 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
xpos2:	dc.w 1
ypos2:	dc.w 1
dirpos2:dc.w 1
	dc.w 4
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 0
	dc.w 190
cccp0c:	dc.l 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
xpos3:	dc.w 1
ypos3:	dc.w 1
dirpos3:dc.w 1
	dc.w 1
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 0
	dc.w 190
cccp0d:	dc.l 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
xpos4:	dc.w 1
ypos4:	dc.w 1
dirpos4:dc.w 1
	dc.w 2
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 0
	dc.w 190

stringyes:
	dc.b 'beauti',0,'nice',0,'good',0,'peacef',0,'brilli',0
	dc.b 'ama',0,'wonderf',0,'great',0,'fine',0,'gorge',0
	dc.b 'magnif',0,'super',0,'grand',0,'prett',0,'intell',0
	dc.b 'genius',0,'ideal',0,'hero',0,'wise',0,'talent',0
	dc.b 'clever',0,'kind',0,'agree',0,'yes',0,'think',0
	dc.b 'mild',0,'gendl',0,'valian',0,'just',0,'honest',0
	dc.b 'humble',0,'true',0,'prefer',0,'right',0,'same',0
	dc.b 'hol',0,'sane',0,'certailn',0,'sure',0,'attrac',0
	dc.b 'yep',0,'yeah',0,'ok',0,'like',0,'adore',0,'admir',0
	dc.b 'mirac',0,'worth',0,'suppo',0,'very',0,'much',0
	dc.b 0

stringno:
	dc.b 'bad',0,'awful',0,'odd',0,'poor',0,'curse',0,'weak',0
	dc.b 'naugh',0,'nasty',0,'mean',0,'ugly',0
	dc.b 'feeble',0,'wrong',0,'evil',0,'foul',0,'stupid',0
	dc.b 'dull',0,'fool',0,'coward',0,'basta',0,'silly',0
	dc.b 'mad',0,'bor',0,'cruel',0,'shy',0,'assh',0,'desper',0
	dc.b 'idiot',0,'fuck',0,'shit',0
	dc.b 'asham',0,'proud',0,'prid',0,'rude',0,'less',0
	dc.b 'no',0,'hate',0
	dc.b 0

hello:	dc.b " ",0,'^ says: "Bye."',0,0

even

pchars1:
c0:		blk.b 192,0
c1:		blk.b 192,0
c2:		blk.b 192,0
c3:		blk.b 192,0
c4:		blk.b 192,0
c5:		blk.b 192,0
c6:		blk.b 192,0
c7:		blk.b 192,0
c8:		blk.b 192,0
c9:		blk.b 192,0
c10:		blk.b 192,0
c11:		blk.b 192,0
c12:		blk.b 192,0
c13:		blk.b 192,0
c14:		blk.b 192,0
c15:		blk.b 192,0
c16:		blk.b 192,0
c17:		blk.b 192,0
c18:		blk.b 192,0
c19:		blk.b 192,0
c20:		blk.b 192,0
c21:		blk.b 192,0
c22:		blk.b 192,0
c23:		blk.b 192,0
c24:		blk.b 192,0
c25:		blk.b 192,0
c26:		blk.b 192,0
c27:		blk.b 192,0
c28:		blk.b 192,0
c29:		blk.b 192,0
c30:		blk.b 192,0
c31:		blk.b 192,0
c32:		blk.b 192,0
c33:		blk.b 192,0
c34:		blk.b 192,0
c35:		blk.b 192,0
c36:		blk.b 192,0
c37:		blk.b 192,0
c38:		blk.b 192,0
c39:		blk.b 192,0
c40:		blk.b 192,0
c41:		blk.b 192,0
c42:		blk.b 192,0
c43:		blk.b 192,0
c44:		blk.b 192,0
c45:		blk.b 192,0
c46:		blk.b 192,0
c47:		blk.b 192,0
c48:		blk.b 192,0
c49:		blk.b 192,0
c50:		blk.b 192,0
c51:		blk.b 192,0

boots:		blk.b 468,0
helmet:		blk.b 384,0
legging:	blk.b 396,0
necklace:	blk.b 132,0
plate:		blk.b 432,0
bootsout:	blk.b 156,0
helmetout:	blk.b 128,0
leggingout:	blk.b 132,0
necklaceout:	blk.b 44,0
plateout:	blk.b 144,0
key:		blk.b 96,0
keyout:		blk.b 12,0
sack:		blk.b 312,0
sackout:	blk.b 52,0
pouch:		blk.b 384,0
pouchout:	blk.b 64,0
ring:		blk.b 96,0
ringout:	blk.b 16,0
buckler:	blk.b 1248,0
bucklerout:	blk.b 192,0
apple:		blk.b 240,0
appleout:	blk.b 40,0
arrow2:		blk.b 96,0
arrow2out:	blk.b 16,0
bow:		blk.b 768,0
bowout:		blk.b 128,0
arrow:		blk.b 192,0
arrowout:	blk.b 32,0
sword:		blk.b 576,0
swordout:	blk.b 96,0
swordl:		blk.b 156,0
swordlout:	blk.b 26,0
thingtorch:	blk.b 192,0
thingtorchout:	blk.b 32,0
even














;------------------
; Levelable data  |
;------------------

masterstr:
	dc.b 0 ;turningceiling
	dc.b 1 ;turningfloor when moving
	dc.l ceiling ;ceiling ptr n,e,s,w +$80000000 =turn
	dc.l ceiling+$80000000
	dc.l ceiling
	dc.l ceiling+$80000000

	dc.l floor ; floor ptr n,e,s,w
	dc.l floor
	dc.l floor
	dc.l floor

	dc.w 50 ;gel ceiling n
	dc.w 0 ; e
	dc.w 0 ; s
	dc.w 0 ; w
	dc.b 3 ;floorbpls
	dc.b 5 ;ceiling bpls
	dc.w 84 ;floor put y
	dc.w 0 ;ceiling put y
	dc.w 71 ;cleararea between puty

	dc.b 5,20,0 ;gelplace x,y,d2 n
	dc.b 0,0,0 ; e
	dc.b 0,0,0 ; s
	dc.b 0,0,0 ; w

	dc.b %00000 ;bpls floor 0-mask
	dc.b %00100 ;bpls ceil 0-mask
	dc.b %100100 ;clearbpls ceiling
	dc.b 0,0,0
	dc.b 0,0,0
	dc.b 0,0,0

	dc.l 0 ; lenght of the whole level
	dc.b 1 ; dungeon (1) / outdoor (0)
	dc.b 71 ; ceilingheight
	dc.l level2 ; (1) up gehenameptr
	dc.l level2 ; (2) ner
	dc.l level2 ; (3) east
	dc.l level2 ; (4) west
	dc.w 102 ; floorheight
	dc.b 1 ;color26 lock
	dc.b 1 ;color27 lock
	dc.b 0 ;color28 lock
	dc.b 0 ;color31 lock
	dc.b $0 ;currlight if static
	dc.b %111000 ;clearbpls floor
	dc.l level1
majorno:dc.w 22
lopetus:dc.l 0
dia:	dc.w 0
	dc.w 0
majorspl:dc.l thingmajors
currlight: dc.w $1 ;0=best

doorplaces: dc.l door1,door2,door3,door4
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

	dc.l 0

touchtable:dc.l touch1
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

	dc.l 0

plattetouchtable:
	dc.l ptouch1
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

	dc.l 0

gelutable:
	dc.b 42,43
	dc.w 4
	dc.w 4
	dc.w 0
	dc.b 44,45
	dc.w 5
	dc.w 5
	dc.w 0

	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0
	dc.w 0,0,0,0

	dc.b 0,0	

; 50 creas (-4 party)

creaplaces: dc.l cccp0a,cccp0b,cccp0c,cccp0d
	dc.l cccp5,cccp6,cccp7,cccp8,cccp9
	dc.l cccp10,0 ; 0=end
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

	dc.l 0

; if 2 or more mnsters then the LEADER FIRST!!!!!

sampleinfo:
	dc.w 11230 ;lenght
	dc.w 413 ;per
	dc.l sample1 ;pointer

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0

	dc.w 0
	dc.w 413
	dc.l 0


plette1:dc.w $0
	dc.w $222
	dc.w $444
	dc.w $666
	dc.w $888
	dc.w $aaa
	dc.w $ccc
	dc.w $eee
	dc.w $520
	dc.w $630
	dc.w $960
	dc.w $b62
	dc.w $f77
	dc.w $ca4
	dc.w $da0
	dc.w $ef2

	dc.w $070
	dc.w $084
	dc.w $2a2
	dc.w $0c6
	dc.w $3e3
	dc.w $014
	dc.w $06c
	dc.w $3cc
	dc.w $700
	dc.w $b00

	dc.w $112
	dc.w $122
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0

; %1 = fall
; %10 = no bpls
; %100 = out afterbpls
; %1000 = hole
; %10000 = blank 0-place
; %100000 = or with next

	dc.w 0 ;wichtich
	dc.w 0
platteplaces:
	dc.l platte1a
	dc.w %100
	dc.w 1536
	dc.l platte2a
	dc.w %1
	dc.w 1536
	dc.l platte4a
	dc.w %100
	dc.w 1216

	dc.l platte3a ; northleftright
	dc.w %01001
	dc.w 1536
	dc.l platte3a
	dc.w %01001
	dc.w 1536
	dc.l platte3a
	dc.w %01001
	dc.w 1536

	dc.l platte5a ;eastleftright
	dc.w %01001
	dc.w 1536
	dc.l platte5a
	dc.w %101001
	dc.w 1536
	dc.l platte6a
	dc.w %01001
	dc.w 1536

	dc.l platte3a ;southleftright
	dc.w %01001
	dc.w 1536
	dc.l platte3a
	dc.w %01001
	dc.w 1536
	dc.l platte3a
	dc.w %01001
	dc.w 1536

	dc.l platte5a ;westleftmiddleright
	dc.w %01001
	dc.w 1536
	dc.l platte5a
	dc.w %101001
	dc.w 1536
	dc.l platte6a
	dc.w %01001
	dc.w 1536

	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0
	dc.l 0,0


; %01 = see through %10 = go through
; %100 = add #2 to dirpos
; %1000 = allowed cupboarding
; %10000 = down
; %100000 = up
; %1000000 = light
; %10000000 = downlevel
; %100000000 = uplevel
	dc.w %11 ;vital!!!
objoverlap:
	dc.w %00,%00,%01,%01,%01,%01,%01,%01,%11,%11,%00,%00
	dc.w %111,%1000,%10000001,%100000001,%1000000

	dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
even

; 0=noobj

objinho:
	;obj1
	dc.w 0
	dc.l obj1 ; 0 = slut pa ovning tre
	dc.w 0
	dc.l 0
	dc.w 0
	dc.l 0
	;obj2
	dc.w 0
	dc.l obj1
	dc.w 0
	dc.l oggii
	dc.w 0
	dc.l 0
	;obj3
	dc.w 0
	dc.l tobj1
	dc.w 3
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj4
	dc.w 0
	dc.l tobj1
	dc.w 16
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj5
	dc.w 0
	dc.l tobj1
	dc.w 20
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj6
	dc.w 0
	dc.l tobj1
	dc.w 21
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj7
	dc.w 0
	dc.l tobj1
	dc.w 22
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj8
	dc.w 0
	dc.l tobj1
	dc.w 23
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj9
	dc.w 0
	dc.l tobj1
	dc.w 24
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj10
	dc.w 0
	dc.l tobj1
	dc.w 25
	dc.l hobj1
	dc.w 0
	dc.l 0
	;obj11
	dc.w 0
	dc.l obj1
	dc.w 0
	dc.l wallf
	dc.w 0
	dc.l 0
	;obj12
	dc.w $8000+27
	dc.l obj1 ; 0 = slut pa ovning tre
	dc.w 0
	dc.l 0
	dc.w 0
	dc.l 0
	;obj13
	dc.w $4000
	dc.l gobj1
	dc.w $4001
	dc.l qobj1
	dc.w 0
	dc.l 0
	;obj14
	dc.w 0
	dc.l obj1
	dc.w 0
	dc.l sobj1
	dc.w 0
	dc.l 0
	;obj15
	dc.w 0
	dc.l zobj1
	dc.w 0
	dc.l 0
	dc.w 0
	dc.l 0
	;obj16
	dc.w 0
	dc.l iobj1
	dc.w 0
	dc.l 0
	dc.w 0
	dc.l 0
	;obj17
	dc.w 0
	dc.l obj1
	dc.w 0
	dc.l robj1
	dc.w 0
	dc.l 0

	;obj18
	dc.w 0,0,0,0,0,0,0,0,0
	;obj19
	dc.w 0,0,0,0,0,0,0,0,0
	;obj20
	dc.w 0,0,0,0,0,0,0,0,0
	;obj21
	dc.w 0,0,0,0,0,0,0,0,0
	;obj22
	dc.w 0,0,0,0,0,0,0,0,0
	;obj23
	dc.w 0,0,0,0,0,0,0,0,0
	;obj24
	dc.w 0,0,0,0,0,0,0,0,0
	;obj25
	dc.w 0,0,0,0,0,0,0,0,0
	;obj26
	dc.w 0,0,0,0,0,0,0,0,0
	;obj27
	dc.w 0,0,0,0,0,0,0,0,0
	;obj28
	dc.w 0,0,0,0,0,0,0,0,0
	;obj29
	dc.w 0,0,0,0,0,0,0,0,0
	;obj30
	dc.w 0,0,0,0,0,0,0,0,0
	;obj31
	dc.w 0,0,0,0,0,0,0,0,0
	;obj32
	dc.w 0,0,0,0,0,0,0,0,0
	;obj33
	dc.w 0,0,0,0,0,0,0,0,0
	;obj34
	dc.w 0,0,0,0,0,0,0,0,0
	;obj35
	dc.w 0,0,0,0,0,0,0,0,0
	;obj36
	dc.w 0,0,0,0,0,0,0,0,0
	;obj37
	dc.w 0,0,0,0,0,0,0,0,0
	;obj38
	dc.w 0,0,0,0,0,0,0,0,0
	;obj39
	dc.w 0,0,0,0,0,0,0,0,0
	;obj40
	dc.w 0,0,0,0,0,0,0,0,0
	;obj41
	dc.w 0,0,0,0,0,0,0,0,0
	;obj42
	dc.w 0,0,0,0,0,0,0,0,0
	;obj43
	dc.w 0,0,0,0,0,0,0,0,0
	;obj44
	dc.w 0,0,0,0,0,0,0,0,0
	;obj45
	dc.w 0,0,0,0,0,0,0,0,0
	;obj46
	dc.w 0,0,0,0,0,0,0,0,0
	;obj47
	dc.w 0,0,0,0,0,0,0,0,0
	;obj48
	dc.w 0,0,0,0,0,0,0,0,0
	;obj49
	dc.w 0,0,0,0,0,0,0,0,0
	;obj50
	dc.w 0,0,0,0,0,0,0,0,0
	;obj51
	dc.w 0,0,0,0,0,0,0,0,0
	;obj52
	dc.w 0,0,0,0,0,0,0,0,0
	;obj53
	dc.w 0,0,0,0,0,0,0,0,0
	;obj54
	dc.w 0,0,0,0,0,0,0,0,0
	;obj55
	dc.w 0,0,0,0,0,0,0,0,0
	;obj56
	dc.w 0,0,0,0,0,0,0,0,0
	;obj57
	dc.w 0,0,0,0,0,0,0,0,0
	;obj58
	dc.w 0,0,0,0,0,0,0,0,0
	;obj59
	dc.w 0,0,0,0,0,0,0,0,0
	;obj60
	dc.w 0,0,0,0,0,0,0,0,0

thingplaces:
thingie1:dc.l 0
	dc.w 0
	dc.w 0,0
	dc.b 4,0
	dc.l thingsword
	dc.w 0
	dc.w $8a00
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;2
	dc.w 0
	dc.w 0,0
	dc.b 0,0
	dc.l thingsword
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;3
	dc.w 0
	dc.w 0,0
	dc.b 3,0
	dc.l thingsword
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;4
	dc.w 0
	dc.w 3,1
	dc.b 4,0
	dc.l thingsword
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;5
	dc.w 0
	dc.w 3,2
	dc.b 1,0
	dc.l thinghelmet
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;6
	dc.w 0
	dc.w 3,2
	dc.b 4,0
	dc.l thingboots
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;7
	dc.w 0
	dc.w 3,2
	dc.b 3,0
	dc.l thingplate
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;8
	dc.w 0
	dc.w 3,1
	dc.b 2,0
	dc.l thingnecklace
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;9
	dc.w 0
	dc.w 4,1
	dc.b 1,0
	dc.l thinglegging
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;10
	dc.w 0
	dc.w 4,1
	dc.b 2,0
	dc.l thingkey
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;11
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingsack
	dc.w 0
	dc.w $8000
	dc.w 4 ;lay
	dc.w $0702 ;addx,y
	dc.l 0			;12
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingsack
	dc.w 0
	dc.w $8000
	dc.w 3 ;lay
	dc.w $0505 ;addx,y
	dc.l 0			;13
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingsack
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0005 ;addx,y
	dc.l 0			;14
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingsack
	dc.w 0
	dc.w $8000
	dc.w 2 ;lay
	dc.w $0003 ;addx,y
	dc.l 0			;15
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingring
	dc.w 0
	dc.w $8000
	dc.w 5 ;lay
	dc.w $0003 ;addx,y
	dc.l 0			;16
	dc.w 0
	dc.w 3,1
	dc.b 3,0
	dc.l thingbuckler
	dc.w 0
	dc.w $8000
	dc.w 2 ;lay
	dc.w $0003 ;addx,y
	dc.l 0			;17
	dc.w 0
	dc.w 3,1
	dc.b 4,0
	dc.l thingbuckler
	dc.w 0
	dc.w $8000
	dc.w 2 ;lay
	dc.w $0205 ;addx,y

	dc.l 0			;18
	dc.w 0
	dc.w 2,1
	dc.b 2,0
	dc.l thingarrow
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0400 ;addx,y
	dc.l 0			;19
	dc.w 0
	dc.w 4,0
	dc.b 5,0
	dc.l thingbow
	dc.w 0
	dc.w $8000
	dc.w 10 ;lay
	dc.w $0403 ;addx,y
	dc.l 0			;20
	dc.w 0
	dc.w 3,1
	dc.b 4,0
	dc.l thingapple
	dc.w 0
	dc.w $8000
	dc.w 3 ;lay
	dc.w $0000 ;addx,y
	dc.l 0			;21
	dc.w 0
	dc.w 3,1
	dc.b 2,0
	dc.l thingarrow
	dc.w 0
	dc.w $8000
	dc.w 3 ;lay
	dc.w $0100 ;addx,y
	dc.l 0			;22
	dc.w 0
	dc.w 0,0
	dc.b 2,0
	dc.l thingarrow
	dc.w 0
	dc.w $8000
	dc.w 4 ;lay
	dc.w $0100 ;addx,y
	dc.l 0			;23
	dc.w 0
	dc.w 2,1
	dc.b 4,0
	dc.l thingtorches
	dc.w 0
	dc.w $8000
	dc.w 3 ;lay
	dc.w $0202 ;addx,y
	dc.l 0			;24
	dc.w 0
	dc.w 2,3
	dc.b 1,0
	dc.l thingpouch
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0205 ;addx,y
	dc.l 0			;25
	dc.w 0
	dc.w 2,3
	dc.b 4,0
	dc.l thingpouch2
	dc.w 0
	dc.w $8000
	dc.w 1 ;lay
	dc.w $0105 ;addx,y
	blk.b 24,0 ;26
	blk.b 24,0 ;27
	blk.b 24,0 ;28
	blk.b 24,0 ;29
	blk.b 24,0 ;30
	blk.b 24,0 ;31
	blk.b 24,0 ;32
	blk.b 24,0 ;33
	blk.b 24,0 ;34
	blk.b 24,0 ;35
	blk.b 24,0 ;36
	blk.b 24,0 ;37
	blk.b 24,0 ;38
	blk.b 24,0 ;39
	blk.b 24,0 ;40
	blk.b 24,0 ;41
	blk.b 24,0 ;42
	blk.b 24,0 ;43
	blk.b 24,0 ;44
	blk.b 24,0 ;45
	blk.b 24,0 ;46
	blk.b 24,0 ;47
	blk.b 24,0 ;48
	blk.b 24,0 ;49
	blk.b 24,0 ;50
	blk.b 24,0 ;51
	blk.b 24,0 ;52
	blk.b 24,0 ;53
	blk.b 24,0 ;54
	blk.b 24,0 ;55
	blk.b 24,0 ;56
	blk.b 24,0 ;57
	blk.b 24,0 ;58
	blk.b 24,0 ;59
	blk.b 24,0 ;60
	blk.b 24,0 ;61
	blk.b 24,0 ;62
	blk.b 24,0 ;63
	blk.b 24,0 ;64
	blk.b 24,0 ;65
	blk.b 24,0 ;66
	blk.b 24,0 ;67
	blk.b 24,0 ;68
	blk.b 24,0 ;69
	blk.b 24,0 ;70
	blk.b 24,0 ;71
	blk.b 24,0 ;72
	blk.b 24,0 ;73
	blk.b 24,0 ;74
	blk.b 24,0 ;75
	blk.b 24,0 ;76
	blk.b 24,0 ;77
	blk.b 24,0 ;78
	blk.b 24,0 ;79
	blk.b 24,0 ;80
	blk.b 24,0 ;81
	blk.b 24,0 ;82
	blk.b 24,0 ;83
	blk.b 24,0 ;84
	blk.b 24,0 ;85
	blk.b 24,0 ;86
	blk.b 24,0 ;87
	blk.b 24,0 ;88
	blk.b 24,0 ;89
	blk.b 24,0 ;90
	blk.b 24,0 ;91
	blk.b 24,0 ;92
	blk.b 24,0 ;93
	blk.b 24,0 ;94
	blk.b 24,0 ;95
	blk.b 24,0 ;96
	blk.b 24,0 ;97
	blk.b 24,0 ;98
	blk.b 24,0 ;99
	blk.b 24,0 ;100
	blk.b 24,0 ;101
	blk.b 24,0 ;102
	blk.b 24,0 ;103
	blk.b 24,0 ;104
	blk.b 24,0 ;105
	blk.b 24,0 ;106
	blk.b 24,0 ;107
	blk.b 24,0 ;108
	blk.b 24,0 ;109
	blk.b 24,0 ;110
	blk.b 24,0 ;111
	blk.b 24,0 ;112
	blk.b 24,0 ;113
	blk.b 24,0 ;114
	blk.b 24,0 ;115
	blk.b 24,0 ;116
	blk.b 24,0 ;117
	blk.b 24,0 ;118
	blk.b 24,0 ;119
	blk.b 24,0 ;120
	blk.b 24,0 ;121
	blk.b 24,0 ;122
	blk.b 24,0 ;123
	blk.b 24,0 ;124
	blk.b 24,0 ;125
	blk.b 24,0 ;126
	blk.b 24,0 ;127
	blk.b 24,0 ;128
	blk.b 24,0 ;129
	blk.b 24,0 ;130
	blk.b 24,0 ;131
	blk.b 24,0 ;132
	blk.b 24,0 ;133
	blk.b 24,0 ;134
	blk.b 24,0 ;135
	blk.b 24,0 ;136
	blk.b 24,0 ;137
	blk.b 24,0 ;138
	blk.b 24,0 ;139
	blk.b 24,0 ;140
	blk.b 24,0 ;141
	blk.b 24,0 ;142
	blk.b 24,0 ;143
	blk.b 24,0 ;144
	blk.b 24,0 ;145
	blk.b 24,0 ;146
	blk.b 24,0 ;147
	blk.b 24,0 ;148
	blk.b 24,0 ;149
	blk.b 24,0 ;150
	blk.b 24,0 ;151
	blk.b 24,0 ;152
	blk.b 24,0 ;153
	blk.b 24,0 ;154
	blk.b 24,0 ;155
	blk.b 24,0 ;156
	blk.b 24,0 ;157
	blk.b 24,0 ;158
	blk.b 24,0 ;159
	blk.b 24,0 ;160
	blk.b 24,0 ;161
	blk.b 24,0 ;162
	blk.b 24,0 ;163
	blk.b 24,0 ;164
	blk.b 24,0 ;165
	blk.b 24,0 ;166
	blk.b 24,0 ;167
	blk.b 24,0 ;168
	blk.b 24,0 ;169
	blk.b 24,0 ;170
	blk.b 24,0 ;171
	blk.b 24,0 ;172
	blk.b 24,0 ;173
	blk.b 24,0 ;174
	blk.b 24,0 ;175
	blk.b 24,0 ;176
	blk.b 24,0 ;177
	blk.b 24,0 ;178
	blk.b 24,0 ;179
	blk.b 24,0 ;180
	blk.b 24,0 ;181
	blk.b 24,0 ;182
	blk.b 24,0 ;183
	blk.b 24,0 ;184
	blk.b 24,0 ;185
	blk.b 24,0 ;186
	blk.b 24,0 ;187
	blk.b 24,0 ;188
	blk.b 24,0 ;189
	blk.b 24,0 ;190
	blk.b 24,0 ;191
	blk.b 24,0 ;192
	blk.b 24,0 ;193
	blk.b 24,0 ;194
	blk.b 24,0 ;195
	blk.b 24,0 ;196
	blk.b 24,0 ;197
	blk.b 24,0 ;198
	blk.b 24,0 ;199
	blk.b 24,0 ;200

	dc.l 0,0,0,0 ; ende der sachen

gel1:	dc.w 8,3,1280,8		;1
	dc.l gela,0
	dc.w 80,0
	dc.w 1,3,240,1		;2
	dc.l gelaa,0
	dc.w 120,0
	dc.w 4,3,864,4		;3
	dc.l gelab,gelabout
	dc.w 108,0
	dc.w 4,3,1280,4		;4
	dc.l geld,geldout
	dc.w 160,0
	dc.w 4,6,576,4		;5
	dc.l crea1,crea1out
	dc.w 72,0
	dc.w 4,6,576,4		;6
	dc.l crea1back,crea1backout
	dc.w 72,0
	dc.w 4,6,576,4		;7
	dc.l crea1side2,crea1side2out
	dc.w 72,0
	dc.w 2,3,480,2		;8
	dc.l gelac,gelacout
	dc.w 120,0
	dc.w 4,3,96,4		;9
	dc.l gelad,0
	dc.w 12,0
	dc.w 4,6,576,4		;10
	dc.l crea1side,crea1sideout
	dc.w 72,0
	dc.w 3,3,1116,3		;11
	dc.l gelf,0
	dc.w 186,0
	dc.w 16,3,1536,16	;12
	dc.l chars2,chars2out
	dc.w 16,0
	dc.w 16,3,1536,16	;13
	dc.l chars2+512,chars2out+512
	dc.w 16,0
	dc.w 16,3,1536,16	;14
	dc.l chars2+1024,chars2out+1024
	dc.w 16,0
	dc.w 1,2,0,13		;15    bacca1
	dc.l bacca1,0
	dc.w 8,0
	dc.w 4,3,864,4		;16
	dc.l gelab+128,gelabout+128
	dc.w 92,0
	dc.w 4,4,320,4		;17
	dc.l crea2,crea2out
	dc.w 40,0
	dc.w 4,4,320,4		;18
	dc.l crea2back,crea2backout
	dc.w 40,0
	dc.w 4,4,320,4		;19
	dc.l crea2side,crea2sideout
	dc.w 40,0
	dc.w 4,3,864,4		;20
	dc.l gelab+256,gelabout+256
	dc.w 76,0
	dc.w 4,3,864,4		;21
	dc.l gelab+384,gelabout+384
	dc.w 60,0
	dc.w 4,3,864,4		;22
	dc.l gelab+512,gelabout+512
	dc.w 44,0
	dc.w 4,3,864,4		;23
	dc.l gelab+640,gelabout+640
	dc.w 28,0
	dc.w 4,3,864,4		;24
	dc.l gelab+736,gelabout+736
	dc.w 16,0
	dc.w 4,3,864,4		;25
	dc.l gelab+800,gelabout+800
	dc.w 8,0
	dc.w 1,2,0,13		;26    bacca2
	dc.l bacca2,0 ;bacca2
	dc.w 8,0
	dc.w 4,6,496,4		;27
	dc.l crea3,crea3out
	dc.w 62,0
	dc.w 8,3,1280,8		;28
	dc.l gelh,0
	dc.w 80,0
	dc.w 8,6,1280,8		;29
	dc.l geli,geliout
	dc.w 80,0
	dc.w 4,6,256,4		;30
	dc.l gelj,geljout
	dc.w 32,0
	dc.w 4,3,1280,4		;31
	dc.l gelg,geldout
	dc.w 160,0
	dc.w 4,6,256,4		;32
	dc.l gelk,gelkout
	dc.w 32,0
	dc.w 4,6,352,4		;33
	dc.l gell,gellout
	dc.w 44,0
	dc.w 4,6,352,4		;34
	dc.l gelm,gelmout
	dc.w 44,0
	dc.w 4,6,640,4		;35
	dc.l geln,0
	dc.w 80,0
	dc.w 2,6,256,2		;36
	dc.l gelo,geloout
	dc.w 64,0
	dc.w 8,3,1408,8		;37
	dc.l gelp,0
	dc.w 88,0
	dc.w 8,3,2560,8		;38
	dc.l gelq,0
	dc.w 160,0
	dc.w 0,0,0,0		;39
	dc.l 0,0
	dc.w 0,0
	dc.w 1,2,0,17		;40    bacca3
	dc.l bacca3,0 ;bacca3
	dc.w 8,0
	dc.w 1,6,56,1		;41
	dc.l holder2,holder2out
	dc.w 28,0
	dc.w 1,6,96,1		;42
	dc.l fronttorch,fronttorchout
	dc.w 48,0
	dc.w 1,6,96,1		;43
	dc.l fronttorch2,fronttorchout
	dc.w 48,0
	dc.w 2,6,112,2		;44
	dc.l sidetorch,sidetorchout
	dc.w 28,0
	dc.w 2,6,112,2		;45
	dc.l sidetorch2,sidetorchout
	dc.w 28,0
	dc.w 1,6,40,1		;46
	dc.l holder,holderout
	dc.w 20,0
	dc.w 4,6,576,4		;47
	dc.l crea1hit,crea1hitout
	dc.w 72,0
	dc.w 1,2,0,19		;48    bacca4
	dc.l bacca4,0 ;bacca4
	dc.w 8,0
	dc.w 1,2,0,15		;49    bacca5
	dc.l bacca5,0 ;bacca5
	dc.w 8,0
	dc.w 2,6,108,2		;50
	dc.l planet,0
	dc.w 27,0
	blk.b 20,0	;51
	blk.b 20,0	;52
	blk.b 20,0	;53
	blk.b 20,0	;54
	blk.b 20,0	;55
	blk.b 20,0	;56
	blk.b 20,0	;57
	blk.b 20,0	;58
	blk.b 20,0	;59
	blk.b 20,0	;60
	blk.b 20,0	;61
	blk.b 20,0	;62
	blk.b 20,0	;63
	blk.b 20,0	;64
	blk.b 20,0	;65
	blk.b 20,0	;66
	blk.b 20,0	;67
	blk.b 20,0	;68
	blk.b 20,0	;69
	blk.b 20,0	;70
	blk.b 20,0	;71
	blk.b 20,0	;72
	blk.b 20,0	;73
	blk.b 20,0	;74
	blk.b 20,0	;75
	blk.b 20,0	;76
	blk.b 20,0	;77
	blk.b 20,0	;78
	blk.b 20,0	;79
	blk.b 20,0	;80
	blk.b 20,0	;81
	blk.b 20,0	;82
	blk.b 20,0	;83
	blk.b 20,0	;84
	blk.b 20,0	;85
	blk.b 20,0	;86
	blk.b 20,0	;87
	blk.b 20,0	;88
	blk.b 20,0	;89
	blk.b 20,0	;90
	blk.b 20,0	;91
	blk.b 20,0	;92
	blk.b 20,0	;93
	blk.b 20,0	;94
	blk.b 20,0	;95
	blk.b 20,0	;96
	blk.b 20,0	;97
	blk.b 20,0	;98
	blk.b 20,0	;99
	blk.b 20,0	;100
	blk.b 20,0	;101
	blk.b 20,0	;102
	blk.b 20,0	;103
	blk.b 20,0	;104
	blk.b 20,0	;105
	blk.b 20,0	;106
	blk.b 20,0	;107
	blk.b 20,0	;108
	blk.b 20,0	;109
	blk.b 20,0	;110
	blk.b 20,0	;111
	blk.b 20,0	;112
	blk.b 20,0	;113
	blk.b 20,0	;114
	blk.b 20,0	;115
	blk.b 20,0	;116
	blk.b 20,0	;117
	blk.b 20,0	;118
	blk.b 20,0	;119
	blk.b 20,0	;120
	blk.b 20,0	;121
	blk.b 20,0	;122
	blk.b 20,0	;123
	blk.b 20,0	;124
	blk.b 20,0	;125
	blk.b 20,0	;126
	blk.b 20,0	;127
	blk.b 20,0	;128
; standart gels
	dc.w 4,6,192,4		;129
	dc.l buckler,bucklerout
	dc.w 24,0
	dc.w 1,6,16,1		;130
	dc.l ring,ringout
	dc.w 8,0
	dc.w 1,6,16,1		;131
	dc.l key,keyout
	dc.w 8,0
	dc.w 2,6,52,2		;132
	dc.l sack,sackout
	dc.w 13,0
	dc.w 2,3,128,2		;133
	dc.l helmet,helmetout
	dc.w 32,0
	dc.w 3,3,156,3		;134
	dc.l boots,bootsout
	dc.w 26,0
	dc.w 3,3,144,3		;135
	dc.l plate,plateout
	dc.w 24,0
	dc.w 2,3,44,2		;136
	dc.l necklace,necklaceout
	dc.w 11,0
	dc.w 3,3,132,3		;137
	dc.l legging,leggingout
	dc.w 22,0
	dc.w 1,6,26,1		;138
	dc.l swordl,swordlout
	dc.w 13,0
	dc.w 4,6,96,4		;139
	dc.l sword,swordout
	dc.w 12,0
	dc.w 4,6,128,4		;140
	dc.l bow,bowout
	dc.w 16,0
	dc.w 2,6,32,2		;141
	dc.l arrow,arrowout
	dc.w 8,0
	dc.w 1,6,40,1		;142
	dc.l apple,appleout
	dc.w 20,0
	dc.w 1,6,16,1		;143
	dc.l arrow2,arrow2out
	dc.w 8,0
	dc.w 2,6,32,2		;144
	dc.l thingtorch,thingtorchout
	dc.w 8,0
	dc.w 2,6,64,2		;145
	dc.l pouch,pouchout
	dc.w 16,0
	blk.b 20,0	;146
	blk.b 20,0	;147
	blk.b 20,0	;148
	blk.b 20,0	;149
	blk.b 20,0	;150
	blk.b 20,0	;151
	blk.b 20,0	;152
	blk.b 20,0	;153
	blk.b 20,0	;154
	blk.b 20,0	;155
	blk.b 20,0	;156
	blk.b 20,0	;157
	blk.b 20,0	;158
	blk.b 20,0	;159
	blk.b 20,0	;160
	blk.b 20,0	;161
	blk.b 20,0	;162
	blk.b 20,0	;163
	blk.b 20,0	;164
	blk.b 20,0	;165
	blk.b 20,0	;166
	blk.b 20,0	;167
	blk.b 20,0	;168
	blk.b 20,0	;169
	blk.b 20,0	;170
	blk.b 20,0	;171
	blk.b 20,0	;172
	blk.b 20,0	;173
	blk.b 20,0	;174
	blk.b 20,0	;175
	blk.b 20,0	;176
	blk.b 20,0	;177
	blk.b 20,0	;178
	blk.b 20,0	;179
	blk.b 20,0	;180
	blk.b 20,0	;181
	blk.b 20,0	;182
	blk.b 20,0	;183
	blk.b 20,0	;184
	blk.b 20,0	;185
	blk.b 20,0	;186
	blk.b 20,0	;187
	blk.b 20,0	;188
	blk.b 20,0	;189
	blk.b 20,0	;190
	blk.b 20,0	;191
	blk.b 20,0	;192
	blk.b 20,0	;193
	blk.b 20,0	;194
	blk.b 20,0	;195
	blk.b 20,0	;196
	blk.b 20,0	;197
	blk.b 20,0	;198
	blk.b 20,0	;199
	blk.b 20,0	;200
	blk.b 20,0	;201
	blk.b 20,0	;202
	blk.b 20,0	;203
	blk.b 20,0	;204
	blk.b 20,0	;205
	blk.b 20,0	;206
	blk.b 20,0	;207
	blk.b 20,0	;208
	blk.b 20,0	;209
	blk.b 20,0	;210
	blk.b 20,0	;211
	blk.b 20,0	;212
	blk.b 20,0	;213
	blk.b 20,0	;214
	blk.b 20,0	;215
	blk.b 20,0	;216
	blk.b 20,0	;217
	blk.b 20,0	;218
	blk.b 20,0	;219
	blk.b 20,0	;220
	blk.b 20,0	;221
	blk.b 20,0	;222
	blk.b 20,0	;223
	blk.b 20,0	;224
	blk.b 20,0	;225
	blk.b 20,0	;226
	blk.b 20,0	;227
	blk.b 20,0	;228
	blk.b 20,0	;229
	blk.b 20,0	;230
	blk.b 20,0	;231
	blk.b 20,0	;232
	blk.b 20,0	;233
	blk.b 20,0	;234
	blk.b 20,0	;235
	blk.b 20,0	;236
	blk.b 20,0	;237
	blk.b 20,0	;238
	blk.b 20,0	;239
	blk.b 20,0	;240
	blk.b 20,0	;241
	blk.b 20,0	;242
	blk.b 20,0	;243
	blk.b 20,0	;244
	blk.b 20,0	;245
	blk.b 20,0	;246
	blk.b 20,0	;247
	blk.b 20,0	;248
	blk.b 20,0	;249
	blk.b 20,0	;250
	blk.b 20,0	;251
	blk.b 20,0	;252
	blk.b 20,0	;253
	blk.b 20,0	;254
	blk.b 20,0	;255
	blk.b 20,0	;256

hitframe:	blk.b 544,0
rajahdys:	blk.b 492,0
rajahdysout:	blk.b 492,0


; holes can be made by dividing room into 2 32*32 rooms
; and putting holes into first room
; notice: only 64 y height !!!!
plattemap:
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$01010000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000303,$03030000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000404,$04040404,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
dc.l $00000000,$00000000,$00000000,$00000000
blk.b 3648,0


; 2 backups
blk.b 64,0
; notice: only 64 y height !!!!
wallmap:
dc.l $0c110c01,$0e0b0c01,$0c010c01,$0c010c01,$0c010c01,$0c010c01
dc.l $00000000,$00000000
dc.l $0c000000,$0004000d,$0000000d,$00000000,$00000000,$0000000f
dc.l $01000000,$00000000
dc.l $0e000000,$000b0000,$00000000,$00000000,$00000001,$0c010c01
dc.l $00000000,$00000000
dc.l $0c000000,$00050001,$0c010c01,$00000000,$00000000,$00000010
dc.l $01000000,$00000000
dc.l $11000000,$000b0c00,$00000000,$00010c01,$00010c01,$0c010c01
dc.l $00000000,$00000000
dc.l $0c000000,$00060101,$0c010c01,$00000000,$0c000000,$00000d0c
dc.l $00000000,$00000000
dc.l $0e000000,$000b0000,$00000000,$00000000,$00000000,$00000001
dc.l $00000000,$00000000
dc.l $0c000202,$0202010c,$01000000,$0000000d,$00000000,$00000d0c
dc.l $00000000,$00000000
dc.l $01000000,$00000000,$00000000,$00000000,$00000000,$00000001
dc.l $00000000,$00000000
dc.l $0c010c01,$0c010c01,$0c010c01,$0c010c01,$0c010c01,$0c010c0c
dc.l $00000000,$00000000

blk.b 1792,0

buffer: blk.b 8960,$80

;----------------------------------
; OTHER NOT BASE RELOCATIBLE DATAS
;----------------------------------






; buffer can be modified by leaving space here
; current 5120 bytes









miscdata:

level1:	dc.b "level001a",0
	dc.b "level001b",0
level2:	dc.b "level002a",0
	dc.b "level002b",0

floor:	dc.w 0	;flipstate
	dc.l floor1
ceiling:dc.w 0	;flipstate
	dc.l ceiling1

touch1:	dc.w 4
	dc.w 0
	dc.w 80
	dc.w 192
	dc.w 86
	dc.w 130

	dc.l testaus
	dc.w $0002
	dc.b 1,0
	dc.l cursorthing+1
	dc.b 1
	dc.b 1

	dc.l testaus
	dc.w $0002
	dc.b -1,0
	dc.l cursorthing+1
	dc.b 0
	dc.b 0

	dc.l 0

ptouch1:dc.w 2
	dc.w 3
	dc.b 0,0
	dc.l miuku
	dc.w 0

	dc.l testaus
	dc.w $0002
	dc.b 1,0
	dc.l 0

	dc.l 0

miuku:	dc.l testaus
	dc.w $0002
	dc.b -1,0
	dc.l 0

	dc.l 0



cccp5:	dc.l crea1info
	dc.w 5
	dc.w 6
	dc.w 7
	dc.w 47
	dc.w 4,3,1
	dc.w 2
	dc.w 8
	dc.b 1
	dc.b 1
	dc.w 18
	dc.w 18
	dc.w 190
	dc.b 0
	dc.b 6
	dc.b 7
	dc.b 8
	dc.w 32
	dc.b 5
	dc.b 0
	dc.b 8
	dc.b 7
	dc.b 6
	dc.b 21
	dc.b 0
	dc.b 6

	dc.b 4
	dc.b 3
	dc.b 5
	dc.b 0
	dc.w 22
	dc.w 0
	dc.b %11100
	dc.b 1
	dc.w 50
	dc.w %0010010000000111
	dc.w 800
	dc.w 10		;side2gelno
	dc.b $ff
	dc.b 0

cccp6:	dc.l crea1info
	dc.w 5		;frontgel
	dc.w 6		;backgel
	dc.w 7		;sidegel
	dc.w 47		;hitgel
	dc.w 4,3,2	;x,y,dirpos
	dc.w 4		;secplz
	dc.w 8		;-,+ y convert div4!
	dc.b 3		;xposrnd
	dc.b -2		;yposrnd
	dc.w 10		;hitpointsmax
	dc.w 10		;hitpointscurr
	dc.w 190	;heightcent
	dc.b 1		;slave1/0
	dc.b 0		;slave1
	dc.b 0		;slave2
	dc.b 0		;slave3
	dc.w 32		;statusword
	dc.b 5		;speed
	dc.b 0		;speedbup
	dc.b 8		;intelligence
	dc.b 0		;regeneration/30rounds
	dc.b 6		;armorclass
	dc.b 20		;1hit / x rounds
	dc.b 0		;waithitzeit start=0
	dc.b 6		;-- ... ---  bak

	dc.b 4		;normalhitdamage
	dc.b 3		;normalhitdice
	dc.b 2		;level of monster 1-10
	dc.b 0		;hitsound
	dc.w 1		;lefthandthing
	dc.w 3		;righthandthing
	dc.b 0		;
	dc.b 1		;hitroundsbak preload with 1
	dc.w 50		;exp points value
	dc.w %1100010000000110 ;statusw 2
	dc.w 800	;weight * 100g
	dc.w 10		;side2gelno
	dc.b $ff
	dc.b 0

cccp7:	dc.l crea1info
	dc.w 5
	dc.w 6
	dc.w 7
	dc.w 47
	dc.w 4,3,3
	dc.w 1
	dc.w 8
	dc.b 4
	dc.b -1
	dc.w 22
	dc.w 22
	dc.w 190
	dc.b 1
	dc.b 0
	dc.b 0
	dc.b 0
	dc.w 32
	dc.b 5
	dc.b 0
	dc.b 8
	dc.b 1
	dc.b 5
	dc.b 20
	dc.b 0
	dc.b 6

	dc.b 4
	dc.b 3
	dc.b 5
	dc.b 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 1
	dc.w 50
	dc.w %110
	dc.w 800
	dc.w 10
	dc.b $ff
	dc.b 0

cccp8:	dc.l crea1info
	dc.w 5
	dc.w 6
	dc.w 7
	dc.w 47
	dc.w 4,3,4
	dc.w 3
	dc.w 8
	dc.b 3
	dc.b 2
	dc.w 19
	dc.w 19
	dc.w 190
	dc.b 1
	dc.b 0
	dc.b 0
	dc.b 0
	dc.w 32
	dc.b 5
	dc.b 0
	dc.b 7
	dc.b 1
	dc.b 8
	dc.b 21
	dc.b 0
	dc.b 6

	dc.b 4
	dc.b 3
	dc.b 5
	dc.b 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 1
	dc.w 50
	dc.w %110
	dc.w 800
	dc.w 10
	dc.b $ff
	dc.b 0

cccp9:	dc.l crea1info
	dc.w 17
	dc.w 18
	dc.w 19
	dc.w 17
	dc.w 8,2,0
	dc.w 0
	dc.w 40
	dc.b 3
	dc.b -1
	dc.w 45
	dc.w 45
	dc.w 90
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.w 0
	dc.b 4
	dc.b 0
	dc.b 10
	dc.b 1
	dc.b 4
	dc.b 24
	dc.b 0
	dc.b 4

	dc.b 4
	dc.b 4
	dc.b 6
	dc.b 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 1
	dc.w 100
	dc.w %110
	dc.w 800
	dc.w 19+$8000

	dc.b 0 ;anger
	dc.b 50 ;loyal
	dc.b 60 ;friend
	dc.b 70 ;moral
	dc.b 0 ;curr ask dialog
	dc.b $ff ;curr answ dialog ($ff=none)
	dc.b 0 ;beg used times
	dc.b 0 ;threat
	dc.b 0 ;bribe
	dc.b 0 ;greet
	dc.b 0 ;chat
	dc.b 0 ;give
	dc.b 0 ;curse
	dc.b 0 ;trade to mem
	dc.b 0 ;trade from mem
	dc.b 0 ;barg max
	dc.w 0 ;wealth
	dc.l askstrt ;ask pointer start
	dc.l ansstrt ;answer pointer start
	dc.b %11 ;0-takegive 1-takebribe
	dc.b 0
	dc.b 0
	dc.b 0
	dc.l welc ;you meet txt
	dc.l hello ;bye txt
	dc.b 'he',0,0
	dc.l idont

cccp10:	dc.l crea1info
	dc.w 27
	dc.w 27
	dc.w 27
	dc.w 27
	dc.w 10,1,3
	dc.w 4
	dc.w 0
	dc.b 3
	dc.b -2
	dc.w 40
	dc.w 40
	dc.w 190
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.w 1
	dc.b 1
	dc.b 0
	dc.b 22
	dc.b 0
	dc.b 3
	dc.b 12
	dc.b 0
	dc.b 5

	dc.b 8
	dc.b 3
	dc.b 10
	dc.b 0
	dc.w 1
	dc.w 0
	dc.b 0
	dc.b 1
	dc.w 100
	dc.w %110
	dc.w 800
	dc.w 27+$8000

	dc.b 0 ;anger
	dc.b 50 ;loyal
	dc.b 60 ;friend
	dc.b 70 ;moral
	dc.b 0 ;curr ask dialog
	dc.b $ff ;curr answ dialog ($ff=none)
	dc.b 0 ;beg used times
	dc.b 0 ;threat
	dc.b 0 ;bribe
	dc.b 0 ;greet
	dc.b 0 ;chat
	dc.b 0 ;give
	dc.b 0 ;curse
	dc.b 0 ;trade to mem
	dc.b 0 ;trade from mem
	dc.b 0 ;barg max
	dc.w 0 ;wealth
	dc.l askstrt ;ask pointer start
	dc.l ansstrt ;answer pointer start
	dc.b %11 ;0-takegive 1-takebribe
	dc.b 0
	dc.b 0
	dc.b 0
	dc.l welc ;you meet txt
	dc.l hello
	dc.b 'she',0
	dc.l idont

idont:	dc.b '"I don#t know more."',0
drdr:	dc.b 'Do you like my |?',0,0
dbdb:	dc.b 'Do you like my beard?',0,0

dede:	dc.b 'Are intrested in my |?',0
	dc.b 'Only for \!',0,0
dada:	dc.b "OK. It's yours.",0,0
didi1:	dc.b 'Thank you.',0,0
didi2:	dc.b 'I see...',0,0
didi3:	dc.b 'You bastard.',0,0
even

askstrt:dc.b %111 ;dialog used flags (dialogstate bit3) 4-lastask
	dc.b 0 ;type
	dc.l stringyes ;yesstring
	dc.l stringno ;nostring
	dc.b $ff ;answerdialog
	dc.b 20 ;askrnd
	dc.l drdr ;askstring
	dc.b $ff ;nextaskdialog
	dc.b 0 ;anger yes
	dc.b 0 ;loyal
	dc.b 0 ;friend
	dc.b 0 ;moral
	dc.b 0 ;anger nots
	dc.b 0 ;loyal
	dc.b 0 ;friend
	dc.b 0 ;moral
	dc.b 0 ;anger no
	dc.b 0 ;loyal
	dc.b 0 ;friend
	dc.b 0 ;moral
	dc.b 0
	dc.l didi1 ;str yes
	dc.l didi2 ;str nots
	dc.l didi3 ;str no
	dc.b 0
	dc.b 0

	dc.b %111
	dc.b 0
	dc.l stringyes
	dc.l stringno
	dc.b $ff
	dc.b 20
	dc.l drdr
	dc.b $ff
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.l didi1
	dc.l didi2
	dc.l didi3
	dc.b 0
	dc.b 0

	dc.b 8
	dc.b 0

ansstrt:dc.w 0 ;answer to which?
	dc.l didi1 ;string truth
	dc.l didi3 ;string hiding
	dc.l didi2 ;string lieing
	dc.b 0 ;loyal low
	dc.b 0 ;loyal high
	dc.b 0 ;moral low
	dc.b 0 ;moral high
	dc.b $ff ;begmax #$ff =nomax
	dc.b $ff ;threat
	dc.b $ff ;bribe
	dc.b $ff ;advice
	dc.b $ff ;greet
	dc.b $ff ;chat
	dc.b $ff ;give
	dc.b $ff ;curse
	dc.w 0 ;bribe/give lowprice
	dc.b $ff ;nextanswerno
	dc.b $ff ;nextaskno
	dc.w 0 ;bribe/give hiprice
	dc.b 0 ;anger change
	dc.b 0 ;loyal
	dc.b 0 ;friend
	dc.b 0 ;moral

	dc.w %1001000000000000 ;lastdia

	dc.w 0
	dc.l didi1
	dc.l didi3
	dc.l didi2
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.b $ff
	dc.w 0
	dc.b $ff
	dc.b $ff
	dc.w 0
	dc.b 0
	dc.b 0
	dc.b 0
	dc.b 0

door1:	dc.w 5 ;x
	dc.w 1 ;y
	dc.b 3 ;baseobj
	dc.b 0 ;up/down state
testaus:dc.b 0 ;move state 1=up -1=dowm
	dc.b 7 ;maxup state (7)

door2:	dc.w 5 ;x
	dc.w 3 ;y
	dc.b 3 ;baseobj
	dc.b 0 ;up/down state
	dc.b 0 ;move state
	dc.b 0 ;

door3:	dc.w 5 ;x
	dc.w 5 ;y
	dc.b 3 ;baseobj
	dc.b 0 ;up/down state
	dc.b 0 ;
	dc.b 0 ;

door4:	dc.w 21 ;x
	dc.w 1 ;y
	dc.b 3 ;baseobj
	dc.b 0 ;up/down state
	dc.b 0 ;
	dc.b 0 ;


; maximum number of gels = 15,- / obj

wallf:	dc.b 8
	dc.b 1
	dc.b %10000000
	dc.b %01001000
	dc.b %00100000
	dc.b 11
	dc.b 7,0

	dc.b 0 ;nowall
	dc.b 0

tobj1:	dc.b 26 ;size
	dc.b 6+128
	dc.b %00000000
	dc.b 2
	dc.b 3,24
	dc.b %00000010
	dc.b 2
	dc.b 14,24
	dc.b %00000000
	dc.b 9
	dc.b 5,24
	dc.b %00000010
	dc.b 9
	dc.b 9,24
	dc.b %00000000
	dc.b 8
	dc.b 4,24
	dc.b %00000010
	dc.b 8
	dc.b 12,24
tobj2:	dc.b 36 ;size
	dc.b 6+128
	dc.b %10010100
	dc.b %10010000
	dc.b $ff,00
	dc.b 2
	dc.b 6,50
	dc.b %10010110
	dc.b %10010000
	dc.b $00,$ff
	dc.b 2
	dc.b 11,50

	dc.b %10010100
	dc.b %00010000
	dc.b 9
	dc.b 7,50
	dc.b %10010110
	dc.b %00010000
	dc.b 9
	dc.b 9,50

	dc.b %10010100
	dc.b %00011000
	dc.b 8
	dc.b 6,50
	dc.b %10010110
	dc.b %00011000
	dc.b 8
	dc.b 10,50
tobj3:	dc.b 36 ;size
	dc.b 6+128
	dc.b %10101000
	dc.b %10101000
	dc.b $f0,$00
	dc.b 2
	dc.b 7,62
	dc.b %10101010
	dc.b %10101000
	dc.b $00,$0f
	dc.b 2
	dc.b 9,62

	dc.b %10101000
	dc.b %00100000
	dc.b 9
	dc.b 8,62
	dc.b %10101010
	dc.b %00100000
	dc.b 9
	dc.b 9,62

	dc.b %10101000
	dc.b %00101100
	dc.b 8
	dc.b 7,62
	dc.b %10101010
	dc.b %00100100
	dc.b 8
	dc.b 9,62
tobj4:	dc.b 29 ;size
	dc.b 5+128
	dc.b %10010100
	dc.b %10010000
	dc.b $ff,$00
	dc.b 2
	dc.b 0,50

	dc.b %10010100
	dc.b %00010000
	dc.b 9
	dc.b 1,50
	dc.b %10010110
	dc.b %00010000
	dc.b 9
	dc.b 3,50

	dc.b %10010100
	dc.b %00011000
	dc.b 8
	dc.b 0,50
	dc.b %10010110
	dc.b %00011000
	dc.b 8
	dc.b 4,50
tobj5:	dc.b 29 ;size
	dc.b 5+128
	dc.b %10010110
	dc.b %10010000
	dc.b $00,$ff
	dc.b 2
	dc.b 17,50

	dc.b %10010100
	dc.b %00010000
	dc.b 9
	dc.b 13,50
	dc.b %10010110
	dc.b %00010000
	dc.b 9
	dc.b 15,50

	dc.b %10010100
	dc.b %00011000
	dc.b 8
	dc.b 12,50
	dc.b %10010110
	dc.b %00011000
	dc.b 8
	dc.b 16,50

tobj6:	dc.b 24 ;size
	dc.b 4+128
	dc.b %10101000
	dc.b %10100000
	dc.b $f0,$00
	dc.b 2
	dc.b 1,62

	dc.b %10101000
	dc.b %00101000
	dc.b 9
	dc.b 1,62
	dc.b %10101010
	dc.b %00101000
	dc.b 9
	dc.b 2,62

	dc.b %10101000
	dc.b %00100100
	dc.b 8
	dc.b 1,62

tobj7:	dc.b 29 ;size
	dc.b 5+128
	dc.b %10101000
	dc.b %10101000
	dc.b $f0,$00
	dc.b 2
	dc.b 4,62

	dc.b %10101000
	dc.b %00100000
	dc.b 9
	dc.b 5,62
	dc.b %10101010
	dc.b %00100000
	dc.b 9
	dc.b 6,62

	dc.b %10101000
	dc.b %00101100
	dc.b 8
	dc.b 4,62
	dc.b %10101010
	dc.b %00100100
	dc.b 8
	dc.b 6,62

tobj8:	dc.b 29 ;size
	dc.b 5+128
	dc.b %10101010
	dc.b %10101000
	dc.b $00,$0f
	dc.b 2
	dc.b 12,62

	dc.b %10101000
	dc.b %00100000
	dc.b 9
	dc.b 11,62
	dc.b %10101010
	dc.b %00100000
	dc.b 9
	dc.b 12,62

	dc.b %10101000
	dc.b %00101100
	dc.b 8
	dc.b 10,62
	dc.b %10101010
	dc.b %00100100
	dc.b 8
	dc.b 12,62

tobj9:	dc.b 24 ;size
	dc.b 4+128
	dc.b %10101010
	dc.b %10100000
	dc.b $00,$0f
	dc.b 2
	dc.b 16,62

	dc.b %10101000
	dc.b %00101000
	dc.b 9
	dc.b 14,62
	dc.b %10101010
	dc.b %00101000
	dc.b 9
	dc.b 15,62

	dc.b %10101010
	dc.b %00101100
	dc.b 8
	dc.b 15,62
tobj10:	dc.b 8
	dc.b 1+64
	dc.b %11110010
	dc.b %00001000
	dc.b $30
	dc.b 4
	dc.b 16,9
tobj11:	dc.b 8
	dc.b 1+64
	dc.b %10000110
	dc.b %00011000
	dc.b $31
	dc.b 4
	dc.b 12,41
tobj12:	dc.b 8
	dc.b 1+64
	dc.b %10011010
	dc.b %00010100
	dc.b $31
	dc.b 4
	dc.b 10,57
tobj13:	dc.b 8
	dc.b 1+64
	dc.b %11000110
	dc.b %00010000
	dc.b $31
	dc.b 4
	dc.b 17,41
tobj14:	dc.b 8
	dc.b 1+64
	dc.b %10111010
	dc.b %00100000
	dc.b $02
	dc.b 4
	dc.b 13,59
tobj15:	dc.b 8
	dc.b 1+64
	dc.b %11110000
	dc.b %00001000
	dc.b $30
	dc.b 4
	dc.b 0,9
tobj16:	dc.b 8
	dc.b 1+64
	dc.b %10000100
	dc.b %00011000
	dc.b $31
	dc.b 4
	dc.b 4,41
tobj17:	dc.b 8
	dc.b 1+64
	dc.b %10011000
	dc.b %00011100
	dc.b $31
	dc.b 4
	dc.b 6,57
tobj18:	dc.b 8
	dc.b 1+64
	dc.b %11000100
	dc.b %00010000
	dc.b $31
	dc.b 4
	dc.b 0,41
tobj19:	dc.b 8
	dc.b 1+64
	dc.b %10111000
	dc.b %00100000
	dc.b $12
	dc.b 4
	dc.b 3,57
tobj20:	dc.b 7
	dc.b 1+64
	dc.b %00000000
	dc.b $31
	dc.b 9
	dc.b 0,24
tobj21:	dc.b 7
	dc.b 1+64
	dc.b %00000000
	dc.b $01
	dc.b 9
	dc.b 17,24

	dc.b 0
	dc.b 0

hobj1:	dc.b 10
	dc.b 2+128
	dc.b %000000 ;door
	dc.b 3
	dc.b 5,37
	dc.b %000010 ;door
	dc.b 3
	dc.b 9,37 
hobj2:	dc.b 12
	dc.b 2+128
	dc.b %10010100 ;door
	dc.b %00010000
	dc.b 3
	dc.b 7,57
	dc.b %10010110 ;door
	dc.b %00010000
	dc.b 3
	dc.b 9,57 
hobj3:	dc.b 12
	dc.b 2+128
	dc.b %10101000 ;door
	dc.b %00100000
	dc.b 3
	dc.b 8,65
	dc.b %10101010 ;door
	dc.b %00100000
	dc.b 3
	dc.b 9,65
hobj4:	dc.b 12
	dc.b 2+128
	dc.b %10010100 ;door
	dc.b %00010000
	dc.b 3
	dc.b 1,57
	dc.b %10010110 ;door
	dc.b %00010000
	dc.b 3
	dc.b 3,57 
hobj5:	dc.b 12
	dc.b 2+128
	dc.b %10010100 ;door
	dc.b %00010000
	dc.b 3
	dc.b 13,57
	dc.b %10010110 ;door
	dc.b %00010000
	dc.b 3
	dc.b 15,57 
hobj6:	dc.b 12
	dc.b 2+128
	dc.b %10101000 ;door
	dc.b %00101000
	dc.b 3
	dc.b 1,65
	dc.b %10101010 ;door
	dc.b %00101000
	dc.b 3
	dc.b 2,65
hobj7:	dc.b 12
	dc.b 2+128
	dc.b %10101000 ;door
	dc.b %00100000
	dc.b 3
	dc.b 5,65
	dc.b %10101010 ;door
	dc.b %00100000
	dc.b 3
	dc.b 6,65
hobj8:	dc.b 12
	dc.b 2+128
	dc.b %10101000 ;door
	dc.b %00100000
	dc.b 3
	dc.b 11,65
	dc.b %10101010 ;door
	dc.b %00100000
	dc.b 3
	dc.b 12,65
hobj9:	dc.b 12
	dc.b 2+128
	dc.b %10101000 ;door
	dc.b %00101000
	dc.b 3
	dc.b 14,65
	dc.b %10101010 ;door
	dc.b %00101000
	dc.b 3
	dc.b 15,65
hobj10:	dc.b 2
	dc.b 0
hobj11:	dc.b 2
	dc.b 0
hobj12:	dc.b 2
	dc.b 0
hobj13:	dc.b 2
	dc.b 0
hobj14:	dc.b 2
	dc.b 0
hobj15:	dc.b 2
	dc.b 0
hobj16:	dc.b 2
	dc.b 0
hobj17:	dc.b 2
	dc.b 0
hobj18:	dc.b 2
	dc.b 0
hobj19:	dc.b 2
	dc.b 0

hobj20:	dc.b 7
	dc.b 1+64
	dc.b %000000 ;door
	dc.b $31
	dc.b 3
	dc.b 0,35
hobj21:	dc.b 7
	dc.b 1+64
	dc.b %000010 ;door
	dc.b $31
	dc.b 3
	dc.b 17,35

	dc.b 0
	dc.b 0



obj1:	dc.b 15 ;size including this byte
	dc.b 4
	dc.b %000000
	dc.b 1
	dc.b 1,9
	dc.b 1
	dc.b 9,89
	dc.b 1
	dc.b 9,9
	dc.b 1
	dc.b 1,89
obj2:	dc.b 16 ;size
	dc.b 4
	dc.b %10010100
	dc.b %00010000
	dc.b 1
	dc.b 5,41
	dc.b 1
	dc.b 9,41
	dc.b 1
	dc.b 5,81
	dc.b 1
	dc.b 9,81
obj3:	dc.b 16 ;size
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 1
	dc.b 7,57
	dc.b 1
	dc.b 9,57
	dc.b 1
	dc.b 7,77
	dc.b 1
	dc.b 9,77
obj4:	dc.b 20
	dc.b 4+64
	dc.b %10010100
	dc.b %00010000
	dc.b %00000000
	dc.b 1
	dc.b 1,41
	dc.b %00000000
	dc.b 1
	dc.b 1,81
	dc.b %01100010
	dc.b 1
	dc.b 0,41
	dc.b %01100010
	dc.b 1
	dc.b 0,81
obj5:	dc.b 20
	dc.b 4+64
	dc.b %10010100
	dc.b %00010000
	dc.b %00000000
	dc.b 1
	dc.b 13,41
	dc.b %00000000
	dc.b 1
	dc.b 13,81
	dc.b %00000010
	dc.b 1
	dc.b 17,41
	dc.b %00000010
	dc.b 1
	dc.b 17,81
obj6:	dc.b 20
	dc.b 4+64
	dc.b %10101000
	dc.b %00100000
	dc.b %00000000
	dc.b 1
	dc.b 1,57
	dc.b %00000000
	dc.b 1
	dc.b 1,77
	dc.b %01000100
	dc.b 1
	dc.b 0,57
	dc.b %01000100
	dc.b 1
	dc.b 0,77
obj7:	dc.b 16
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 1
	dc.b 3,57
	dc.b 1
	dc.b 3,77
	dc.b 1
	dc.b 5,57
	dc.b 1
	dc.b 5,77
obj8:	dc.b 16
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 1
	dc.b 11,57
	dc.b 1
	dc.b 11,77
	dc.b 1
	dc.b 13,57
	dc.b 1
	dc.b 13,77
obj9:	dc.b 20
	dc.b 4+64
	dc.b %10101000
	dc.b %00100000
	dc.b %00000000
	dc.b 1
	dc.b 15,57
	dc.b %00000000
	dc.b 1
	dc.b 15,77
	dc.b %00000100
	dc.b 1
	dc.b 17,57
	dc.b %00000100
	dc.b 1
	dc.b 17,77
obj10:	dc.b 6
	dc.b 1
	dc.b %000010
	dc.b 4
	dc.b 13,9
obj11:	dc.b 7
	dc.b 1
	dc.b %10010110
	dc.b %00010000
	dc.b 4
	dc.b 11,41
obj12:	dc.b 7
	dc.b 1
	dc.b %10101010
	dc.b %00100000
	dc.b 4
	dc.b 10,57
obj13:	dc.b 8
	dc.b 1+64
	dc.b %11000110
	dc.b %00010000
	dc.b $33
	dc.b 4
	dc.b 15,41
obj14:	dc.b 8
	dc.b 1+64
	dc.b %10111010
	dc.b %00100000
	dc.b $03
	dc.b 4
	dc.b 12,57
obj15:	dc.b 6
	dc.b 1
	dc.b %000000
	dc.b 4
	dc.b 1,9
obj16:	dc.b 7
	dc.b 1
	dc.b %10010100
	dc.b %00010000
	dc.b 4
	dc.b 5,41
obj17:	dc.b 7
	dc.b 1
	dc.b %10101000
	dc.b %00100000
	dc.b 4
	dc.b 7,57
obj18:	dc.b 8
	dc.b 1+64
	dc.b %11000100
	dc.b %00010000
	dc.b $23
	dc.b 4
	dc.b 0,41
obj19:	dc.b 8
	dc.b 1+64
	dc.b %10111000
	dc.b %00100000
	dc.b $03
	dc.b 4
	dc.b 3,57
obj20:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %01110001
	dc.b 1
	dc.b 0,9
	dc.b %01110001
	dc.b 1
	dc.b 0,89
obj21:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %00000001
	dc.b 1
	dc.b 17,9
	dc.b %00000001
	dc.b 1
	dc.b 17,89
obj22:	dc.b 9
	dc.b 1+64
	dc.b %11110000
	dc.b %01110000
	dc.b %00000100
	dc.b %00110000
	dc.b 4
	dc.b 0,0
obj23:	dc.b 9
	dc.b 1+64
	dc.b %11110010
	dc.b %01110000
	dc.b %00000100
	dc.b %00110000
	dc.b 4
	dc.b 17,0
obj24:	dc.b 0
	dc.b 0

robj1:	dc.b 7 ;size including this byte
	dc.b 1
	dc.b %10000000
	dc.b %00001000
	dc.b 42
	dc.b 8,58
robj2:	dc.b 7 ;size
	dc.b 1
	dc.b %10010100
	dc.b %00011100
	dc.b 42
	dc.b 8,66
robj3:	dc.b 7 ;size
	dc.b 1
	dc.b %10101000
	dc.b %00101110
	dc.b 42
	dc.b 8,70
robj4:	dc.b 7 ;size
	dc.b 1
	dc.b %10010100
	dc.b %00011100
	dc.b 42
	dc.b 0,66
robj5:	dc.b 7 ;size
	dc.b 1
	dc.b %10010100
	dc.b %00011100
	dc.b 42
	dc.b 16,66
robj6:	dc.b 7 ;size
	dc.b 1
	dc.b %10101000
	dc.b %00101110
	dc.b 42
	dc.b 0,70
robj7:	dc.b 7 ;size
	dc.b 1
	dc.b %10101000
	dc.b %00101110
	dc.b 42
	dc.b 4,70
robj8:	dc.b 7 ;size
	dc.b 1
	dc.b %10101000
	dc.b %00101110
	dc.b 42
	dc.b 12,70
robj9:	dc.b 7 ;size
	dc.b 1
	dc.b %10101000
	dc.b %00101110
	dc.b 42
	dc.b 16,70
robj10:	dc.b 9
	dc.b 2
	dc.b %00000010
	dc.b 46
	dc.b 14,68
	dc.b 44
	dc.b 13,58
robj11:	dc.b 12
	dc.b 2+128
	dc.b %10010110
	dc.b %00010100
	dc.b 46
	dc.b 11,69
	dc.b %10010110
	dc.b %00010000
	dc.b 44
	dc.b 11,64
robj12:	dc.b 6
	dc.b 1
	dc.b %00101010
	dc.b 44
	dc.b 10,70
robj13:	dc.b 12
	dc.b 2+128
	dc.b %10010110
	dc.b %00010000
	dc.b 46
	dc.b 17,71
	dc.b %10010110
	dc.b %00010000
	dc.b 44
	dc.b 17,66
robj14:	dc.b 7
	dc.b 1+128
	dc.b %10101010
	dc.b %00010000
	dc.b 44
	dc.b 13,70

robj15:	dc.b 9
	dc.b 2
	dc.b %00000000
	dc.b 46
	dc.b 3,68
	dc.b 44
	dc.b 3,58
robj16:	dc.b 12
	dc.b 2+128
	dc.b %10010100
	dc.b %00011000
	dc.b 46
	dc.b 5,69
	dc.b %10010100
	dc.b %00011000
	dc.b 44
	dc.b 5,64
robj17:	dc.b 6
	dc.b 1
	dc.b %00101000
	dc.b 44
	dc.b 7,70
robj18:	dc.b 12
	dc.b 2+128
	dc.b %10010100
	dc.b %00010000
	dc.b 46
	dc.b 0,71
	dc.b %10010100
	dc.b %00010000
	dc.b 44
	dc.b 0,66
robj19:	dc.b 7
	dc.b 1+128
	dc.b %10101000
	dc.b %00011000
	dc.b 44
	dc.b 4,70
robj20:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %01110001
	dc.b 1
	dc.b 0,9
	dc.b %01110001
	dc.b 1
	dc.b 0,89
robj21:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %00000001
	dc.b 1
	dc.b 17,9
	dc.b %00000001
	dc.b 1
	dc.b 17,89
robj22:	dc.b 9
	dc.b 1+64
	dc.b %11110000
	dc.b %01110000
	dc.b %00000100
	dc.b %00110000
	dc.b 4
	dc.b 0,0
robj23:	dc.b 9
	dc.b 1+64
	dc.b %11110010
	dc.b %01110000
	dc.b %00000100
	dc.b %00110000
	dc.b 4
	dc.b 17,0
robj24:	dc.b 0
	dc.b 0

sobj1:	dc.b 10 ;size including this byte
	dc.b 2+128
	dc.b %000000
	dc.b 35
	dc.b 5,52
	dc.b %000010
	dc.b 35
	dc.b 9,52
sobj2:	dc.b 12 ;size
	dc.b 2+128
	dc.b %10010100
	dc.b %00010000
	dc.b 35
	dc.b 7,63
	dc.b %10010110
	dc.b %00010000
	dc.b 35
	dc.b 9,63
sobj3:	dc.b 12 ;size
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 35
	dc.b 8,69
	dc.b %10101010
	dc.b %00100000
	dc.b 35
	dc.b 9,69
sobj4:	dc.b 14 ;size
	dc.b 2+128+64
	dc.b %10010100
	dc.b %00010000
	dc.b $22
	dc.b 35
	dc.b 0,63
	dc.b %10010110
	dc.b %00010000
	dc.b $00
	dc.b 35
	dc.b 1,63
sobj5:	dc.b 14 ;size
	dc.b 2+128+64
	dc.b %10010100
	dc.b %00010000
	dc.b $00
	dc.b 35
	dc.b 15,63
	dc.b %10010110
	dc.b %00010000
	dc.b $22
	dc.b 35
	dc.b 17,63
sobj6:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 35
	dc.b 0,69
	dc.b %10101010
	dc.b %00100000
	dc.b 35
	dc.b 1,69
sobj7:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 35
	dc.b 4,69
	dc.b %10101010
	dc.b %00100000
	dc.b 35
	dc.b 5,69
sobj8:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 35
	dc.b 12,69
	dc.b %10101010
	dc.b %00100000
	dc.b 35
	dc.b 13,69
sobj9:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 35
	dc.b 16,69
	dc.b %10101010
	dc.b %00100000
	dc.b 35
	dc.b 17,69

sobj10:	dc.b 6
	dc.b 1
	dc.b %000010
	dc.b 36
	dc.b 14,56
sobj11:	dc.b 7
	dc.b 1
	dc.b %10010110
	dc.b %00011000
	dc.b 36
	dc.b 11,64
sobj12:	dc.b 7
	dc.b 1
	dc.b %10101010
	dc.b %00100100
	dc.b 36
	dc.b 10,69
sobj13:	dc.b 8
	dc.b 1+64
	dc.b %10010110
	dc.b %00010000
	dc.b $11
	dc.b 36
	dc.b 17,64
sobj14:	dc.b 7
	dc.b 1
	dc.b %10011010
	dc.b %00100000
	dc.b 36
	dc.b 13,69

sobj15:	dc.b 6
	dc.b 1
	dc.b %000000
	dc.b 36
	dc.b 2,56
sobj16:	dc.b 7
	dc.b 1
	dc.b %10010100
	dc.b %00011000
	dc.b 36
	dc.b 5,64
sobj17:	dc.b 7
	dc.b 1
	dc.b %10101000
	dc.b %00100100
	dc.b 36
	dc.b 7,69
sobj18:	dc.b 8
	dc.b 1+64
	dc.b %10010100
	dc.b %00010000
	dc.b $11
	dc.b 36
	dc.b 0,64
sobj19:	dc.b 7
	dc.b 1
	dc.b %10011000
	dc.b %00100000
	dc.b 36
	dc.b 4,69

	dc.b 0,0


qobj1:	dc.b 15 ;size including this byte
	dc.b 4
	dc.b %000000
	dc.b 29
	dc.b 1,9
	dc.b 29
	dc.b 9,89
	dc.b 29
	dc.b 9,9
	dc.b 29
	dc.b 1,89
qobj2:	dc.b 16 ;size
	dc.b 4
	dc.b %10010100
	dc.b %00010000
	dc.b 29
	dc.b 5,41
	dc.b 29
	dc.b 9,41
	dc.b 29
	dc.b 5,81
	dc.b 29
	dc.b 9,81
qobj3:	dc.b 16 ;size
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 29
	dc.b 7,57
	dc.b 29
	dc.b 9,57
	dc.b 29
	dc.b 7,77
	dc.b 29
	dc.b 9,77
qobj4:	dc.b 20
	dc.b 4+64
	dc.b %10010100
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,41
	dc.b %00000000
	dc.b 29
	dc.b 1,81
	dc.b %01100010
	dc.b 29
	dc.b 0,41
	dc.b %01100010
	dc.b 29
	dc.b 0,81
qobj5:	dc.b 20
	dc.b 4+64
	dc.b %10010100
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 13,41
	dc.b %00000000
	dc.b 29
	dc.b 13,81
	dc.b %00000010
	dc.b 29
	dc.b 17,41
	dc.b %00000010
	dc.b 29
	dc.b 17,81
qobj6:	dc.b 20
	dc.b 4+64
	dc.b %10101000
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 1,57
	dc.b %00000000
	dc.b 29
	dc.b 1,77
	dc.b %01000100
	dc.b 29
	dc.b 0,57
	dc.b %01000100
	dc.b 29
	dc.b 0,77
qobj7:	dc.b 16
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 29
	dc.b 3,57
	dc.b 29
	dc.b 3,77
	dc.b 29
	dc.b 5,57
	dc.b 29
	dc.b 5,77
qobj8:	dc.b 16
	dc.b 4
	dc.b %10101000
	dc.b %00100000
	dc.b 29
	dc.b 11,57
	dc.b 29
	dc.b 11,77
	dc.b 29
	dc.b 13,57
	dc.b 29
	dc.b 13,77
qobj9:	dc.b 20
	dc.b 4+64
	dc.b %10101000
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 15,57
	dc.b %00000000
	dc.b 29
	dc.b 15,77
	dc.b %00000100
	dc.b 29
	dc.b 17,57
	dc.b %00000100
	dc.b 29
	dc.b 17,77
qobj10:	dc.b 15
	dc.b 3+64
	dc.b %000010
	dc.b $04
	dc.b 29
	dc.b 13,41
	dc.b $00
	dc.b 30
	dc.b 13,9
	dc.b $00
	dc.b 33
	dc.b 13,121
qobj11:	dc.b 16
	dc.b 3+64
	dc.b %10010110
	dc.b %00010000
	dc.b $04
	dc.b 29
	dc.b 11,57
	dc.b $00
	dc.b 30
	dc.b 11,41
	dc.b $00
	dc.b 33
	dc.b 11,97
qobj12:	dc.b 16
	dc.b 3+64
	dc.b %10101010
	dc.b %00100000
	dc.b $04
	dc.b 29
	dc.b 10,66
	dc.b $00
	dc.b 30
	dc.b 10,58
	dc.b $00
	dc.b 33
	dc.b 10,85
qobj13:	dc.b 38
	dc.b 6+64+128
	dc.b %10101010
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 15,57
	dc.b %10101010
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 15,77
	dc.b %10101010
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 17,57
	dc.b %10101010
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 17,77

	dc.b %11000110
	dc.b %00010000
	dc.b $33
	dc.b 30
	dc.b 15,41
	dc.b %11000110
	dc.b %00010000
	dc.b $33
	dc.b 33
	dc.b 15,98

qobj14:	dc.b 26
	dc.b 4+64+128
	dc.b %10101010
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 12,66
	dc.b %10101010
	dc.b %00100000
	dc.b $44
	dc.b 29
	dc.b 14,66

	dc.b %10111010
	dc.b %00100000
	dc.b $03
	dc.b 30
	dc.b 12,58
	dc.b %10111010
	dc.b %00100000
	dc.b $03
	dc.b 33
	dc.b 12,86
qobj15:	dc.b 15
	dc.b 3+64
	dc.b %000000
	dc.b $04
	dc.b 29
	dc.b 1,41
	dc.b $00
	dc.b 30
	dc.b 1,9
	dc.b $00
	dc.b 33
	dc.b 1,121
qobj16:	dc.b 16
	dc.b 3+64
	dc.b %10010100
	dc.b %00010000
	dc.b $04
	dc.b 29
	dc.b 5,57
	dc.b $00
	dc.b 30
	dc.b 5,41
	dc.b $00
	dc.b 33
	dc.b 5,97
qobj17:	dc.b 16
	dc.b 3+64
	dc.b %10101000
	dc.b %00100000
	dc.b $04
	dc.b 29
	dc.b 7,66
	dc.b $00
	dc.b 30
	dc.b 7,58
	dc.b $00
	dc.b 33
	dc.b 7,85
qobj18:	dc.b 38
	dc.b 6+64+128
	dc.b %10101000
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,57
	dc.b %10101000
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,77
	dc.b %10101000
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 0,57
	dc.b %10101000
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 0,77

	dc.b %11000100
	dc.b %00010000
	dc.b $23
	dc.b 30
	dc.b 0,41
	dc.b %11000100
	dc.b %00010000
	dc.b $23
	dc.b 33
	dc.b 0,98

qobj19:	dc.b 26
	dc.b 4+64+128
	dc.b %10101000
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 4,66
	dc.b %10101000
	dc.b %00100000
	dc.b $44
	dc.b 29
	dc.b 3,66

	dc.b %10111000
	dc.b %00100000
	dc.b $03
	dc.b 30
	dc.b 3,58
	dc.b %10111000
	dc.b %00100000
	dc.b $03
	dc.b 33
	dc.b 3,86

qobj20:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %01110001
	dc.b 29
	dc.b 0,9
	dc.b %01110001
	dc.b 29
	dc.b 0,89
qobj21:	dc.b 11
	dc.b 2+64
	dc.b %00000010
	dc.b %00000001
	dc.b 29
	dc.b 17,9
	dc.b %00000001
	dc.b 29
	dc.b 17,89
qobj22:	dc.b 11
	dc.b 2+64
	dc.b %00000000
	dc.b %01110001
	dc.b 29
	dc.b 0,9
	dc.b %01110001
	dc.b 29
	dc.b 0,89
qobj23:	dc.b 11
	dc.b 2+64
	dc.b %00000010
	dc.b %00000001
	dc.b 29
	dc.b 17,9
	dc.b %00000001
	dc.b 29
	dc.b 17,89
qobj24:	dc.b 0
	dc.b 9+64+32
	dc.b %00000000
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 0,0
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 8,0
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 0,80
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 8,80
	dc.b $0
	dc.b 26
	dc.b 29
	dc.b 0,160
	dc.b $0
	dc.b 26
	dc.b 29
	dc.b 8,160
	dc.b $02
	dc.b 80
	dc.b 29
	dc.b 16,0
	dc.b $02
	dc.b 80
	dc.b 29
	dc.b 16,80
	dc.b $02
	dc.b 26
	dc.b 29
	dc.b 16,160

gobj1:	dc.b 15 ;size including this byte
	dc.b 4
	dc.b %000001
	dc.b 29
	dc.b 1,9
	dc.b 29
	dc.b 9,89
	dc.b 29
	dc.b 9,9
	dc.b 29
	dc.b 1,89
gobj2:	dc.b 16 ;size
	dc.b 4
	dc.b %10010101
	dc.b %00010000
	dc.b 29
	dc.b 5,41
	dc.b 29
	dc.b 9,41
	dc.b 29
	dc.b 5,81
	dc.b 29
	dc.b 9,81
gobj3:	dc.b 16 ;size
	dc.b 4
	dc.b %10101001
	dc.b %00100000
	dc.b 29
	dc.b 7,57
	dc.b 29
	dc.b 9,57
	dc.b 29
	dc.b 7,77
	dc.b 29
	dc.b 9,77
gobj4:	dc.b 20
	dc.b 4+64
	dc.b %10010101
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,41
	dc.b %00000000
	dc.b 29
	dc.b 1,81
	dc.b %01100010
	dc.b 29
	dc.b 0,41
	dc.b %01100010
	dc.b 29
	dc.b 0,81
gobj5:	dc.b 20
	dc.b 4+64
	dc.b %10010101
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 13,41
	dc.b %00000000
	dc.b 29
	dc.b 13,81
	dc.b %00000010
	dc.b 29
	dc.b 17,41
	dc.b %00000010
	dc.b 29
	dc.b 17,81
gobj6:	dc.b 20
	dc.b 4+64
	dc.b %10101001
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 1,57
	dc.b %00000000
	dc.b 29
	dc.b 1,77
	dc.b %01000100
	dc.b 29
	dc.b 0,57
	dc.b %01000100
	dc.b 29
	dc.b 0,77
gobj7:	dc.b 16
	dc.b 4
	dc.b %10101001
	dc.b %00100000
	dc.b 29
	dc.b 3,57
	dc.b 29
	dc.b 3,77
	dc.b 29
	dc.b 5,57
	dc.b 29
	dc.b 5,77
gobj8:	dc.b 16
	dc.b 4
	dc.b %10101001
	dc.b %00100000
	dc.b 29
	dc.b 11,57
	dc.b 29
	dc.b 11,77
	dc.b 29
	dc.b 13,57
	dc.b 29
	dc.b 13,77
gobj9:	dc.b 20
	dc.b 4+64
	dc.b %10101001
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 15,57
	dc.b %00000000
	dc.b 29
	dc.b 15,77
	dc.b %00000100
	dc.b 29
	dc.b 17,57
	dc.b %00000100
	dc.b 29
	dc.b 17,77
gobj10:	dc.b 17
	dc.b 3+64+128
	dc.b %000011
	dc.b $04
	dc.b 29
	dc.b 13,41
	dc.b %000010
	dc.b $00
	dc.b 32
	dc.b 13,9
	dc.b %000010
	dc.b $00
	dc.b 34
	dc.b 13,121
gobj11:	dc.b 20
	dc.b 3+64+128
	dc.b %10010111
	dc.b %00010000
	dc.b $04
	dc.b 29
	dc.b 11,57
	dc.b %10010110
	dc.b %00010000
	dc.b $00
	dc.b 32
	dc.b 11,41
	dc.b %10010110
	dc.b %00010000
	dc.b $00
	dc.b 34
	dc.b 11,97
gobj12:	dc.b 20
	dc.b 3+64+128
	dc.b %10101011
	dc.b %00100000
	dc.b $04
	dc.b 29
	dc.b 10,66
	dc.b %10101010
	dc.b %00100000
	dc.b $00
	dc.b 32
	dc.b 10,58
	dc.b %10101010
	dc.b %00100000
	dc.b $00
	dc.b 34
	dc.b 10,85
gobj13:	dc.b 38
	dc.b 6+64+128
	dc.b %10101011
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 15,57
	dc.b %10101011
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 15,77
	dc.b %10101011
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 17,57
	dc.b %10101011
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 17,77

	dc.b %11000110
	dc.b %00010000
	dc.b $33
	dc.b 32
	dc.b 15,41
	dc.b %11000110
	dc.b %00010000
	dc.b $33
	dc.b 34
	dc.b 15,98

gobj14:	dc.b 26
	dc.b 4+64+128
	dc.b %10101011
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 12,66
	dc.b %10101011
	dc.b %00100000
	dc.b $44
	dc.b 29
	dc.b 14,66

	dc.b %10111010
	dc.b %00100000
	dc.b $03
	dc.b 32
	dc.b 12,58
	dc.b %10111010
	dc.b %00100000
	dc.b $03
	dc.b 34
	dc.b 12,86
gobj15:	dc.b 17
	dc.b 3+64+128
	dc.b %000001
	dc.b $04
	dc.b 29
	dc.b 1,41
	dc.b %000000
	dc.b $00
	dc.b 32
	dc.b 1,9
	dc.b %000000
	dc.b $00
	dc.b 34
	dc.b 1,121
gobj16:	dc.b 20
	dc.b 3+64+128
	dc.b %10010101
	dc.b %00010000
	dc.b $04
	dc.b 29
	dc.b 5,57
	dc.b %10010100
	dc.b %00010000
	dc.b $00
	dc.b 32
	dc.b 5,41
	dc.b %10010100
	dc.b %00010000
	dc.b $00
	dc.b 34
	dc.b 5,97
gobj17:	dc.b 20
	dc.b 3+64+128
	dc.b %10101001
	dc.b %00100000
	dc.b $04
	dc.b 29
	dc.b 7,66
	dc.b %10101000
	dc.b %00100000
	dc.b $00
	dc.b 32
	dc.b 7,58
	dc.b %10101000
	dc.b %00100000
	dc.b $00
	dc.b 34
	dc.b 7,85
gobj18:	dc.b 38
	dc.b 6+64+128
	dc.b %10101001
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,57
	dc.b %10101001
	dc.b %00010000
	dc.b %00000000
	dc.b 29
	dc.b 1,77
	dc.b %10101001
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 0,57
	dc.b %10101001
	dc.b %00010000
	dc.b %00000100
	dc.b 29
	dc.b 0,77

	dc.b %11000100
	dc.b %00010000
	dc.b $23
	dc.b 32
	dc.b 0,41
	dc.b %11000100
	dc.b %00010000
	dc.b $23
	dc.b 34
	dc.b 0,98

gobj19:	dc.b 26
	dc.b 4+64+128
	dc.b %10101001
	dc.b %00100000
	dc.b %00000000
	dc.b 29
	dc.b 4,66
	dc.b %10101001
	dc.b %00100000
	dc.b $44
	dc.b 29
	dc.b 3,66

	dc.b %10111000
	dc.b %00100000
	dc.b $03
	dc.b 32
	dc.b 3,58
	dc.b %10111000
	dc.b %00100000
	dc.b $03
	dc.b 34
	dc.b 3,86

gobj20:	dc.b 11
	dc.b 2+64
	dc.b %00000001
	dc.b %01110001
	dc.b 29
	dc.b 0,9
	dc.b %01110001
	dc.b 29
	dc.b 0,89
gobj21:	dc.b 11
	dc.b 2+64
	dc.b %00000011
	dc.b %00000001
	dc.b 29
	dc.b 17,9
	dc.b %00000001
	dc.b 29
	dc.b 17,89
gobj22:	dc.b 11
	dc.b 2+64
	dc.b %00000001
	dc.b %01110001
	dc.b 29
	dc.b 0,9
	dc.b %01110001
	dc.b 29
	dc.b 0,89
gobj23:	dc.b 11
	dc.b 2+64
	dc.b %00000011
	dc.b %00000001
	dc.b 29
	dc.b 17,9
	dc.b %00000001
	dc.b 29
	dc.b 17,89
gobj24:	dc.b 0
	dc.b 9+64+32
	dc.b %00000001
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 0,0
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 8,0
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 0,80
	dc.b $0
	dc.b 80
	dc.b 29
	dc.b 8,80
	dc.b $0
	dc.b 26
	dc.b 29
	dc.b 0,160
	dc.b $0
	dc.b 26
	dc.b 29
	dc.b 8,160
	dc.b $02
	dc.b 80
	dc.b 29
	dc.b 16,0
	dc.b $02
	dc.b 80
	dc.b 29
	dc.b 16,80
	dc.b $02
	dc.b 26
	dc.b 29
	dc.b 16,160

zobj1:	dc.b 10
	dc.b 2+128
	dc.b %0000000
	dc.b 37
	dc.b 1,82
	dc.b %0000010
	dc.b 37
	dc.b 9,82
zobj2:	dc.b 12
	dc.b 2+128
	dc.b %10010100
	dc.b %00010000
	dc.b 37
	dc.b 5,78
	dc.b %10010110
	dc.b %00010000
	dc.b 37
	dc.b 9,78
zobj3:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 37
	dc.b 7,76
	dc.b %10101010
	dc.b %00100000
	dc.b 37
	dc.b 9,76
zobj4:	dc.b 0
	dc.b 0

iobj1:	dc.b 10
	dc.b 2+128
	dc.b %0000000
	dc.b 38
	dc.b 1,10
	dc.b %0000010
	dc.b 38
	dc.b 9,10
iobj2:	dc.b 12
	dc.b 2+128
	dc.b %10010100
	dc.b %00010000
	dc.b 38
	dc.b 5,42
	dc.b %10010110
	dc.b %00010000
	dc.b 38
	dc.b 9,42
iobj3:	dc.b 12
	dc.b 2+128
	dc.b %10101000
	dc.b %00100000
	dc.b 38
	dc.b 7,58
	dc.b %10101010
	dc.b %00100000
	dc.b 38
	dc.b 9,58
iobj4:	dc.b 0
	dc.b 0

even
oggii:	dc.b 0 ;size
	dc.b 0+16
	dc.w 2
	dc.l roland



roland:	dc.b " jarre on mopo! ",0 ; 16marks!

welc:	dc.b "You meet an old man with a barret",0
	dc.b "and a long cloak.",0,0
welcome: dc.b "limpun viipale!",0
welcome2:dc.b "boring isnt it?",0
welcome3:dc.b "tamapoika lahtee vahan tangolle...",0
welcome4:dc.b "herra halofaani !?,.()/+-%:: 01234567890!000!!",0
even













;----------------
; Bit-Planes	|
;----------------

>extern "taulut",taulu,2128
>extern "qq1",quarterflipbtable,64
>extern "qq2",halvebtable,64
>extern "qq3",halveflipbtable,64
>extern "qq4",quarterbtable,64
>extern "qq5",sixteenbtable,64
>extern "qq6",eightbtable,64
>extern "qq7",eightflipbtable,64
>extern "qq8",threequartertable,192
>extern "qq9",threequarterftable,192
>extern "qq10",onethreetable,128
>extern "qq11",onethreeftable,192
>extern "qq12",hiwordblitftable,64
>extern "qq13",lowordblitftable,64
>extern "zz1",ol1,330
>extern "zz2",cop11,248
>extern "zz3",thin0,254
>extern "zz4",fhin0,154
>extern "zz5",chin0,182
>extern "zz6",siz1,64
>extern "zz7",siz2,66
>extern "zz8",siz3,32
>extern "zz9",siz4,64
>extern "zz10",siz5,34
>extern "zz11",taapeli2,114
>extern "zz12",taapeli,242
>extern "oliktable",oliktable,210
>extern "nibble",nibble,256


>extern "platte1a",platte1a,4608
>extern "platte2a",platte2a,4608
>extern "platte3a",platte3a,4608
>extern "platte5a",platte5a,4608
>extern "platte6a",platte6a,4608
>extern "gela",gela,3840
>extern "geld",geld,3840
>extern "geldout",geldout,1280
>extern "platte1aout",platte1aout,1536
>extern "platteaout",platteout,1536
>extern "platte2aout",plattebout,384
>extern "platte3aout",plattecout,96
>extern "platte5aout",plattedout,288
>extern "sword",sword,576
>extern "swordout",swordout,96
>extern "swordl",swordl,156
>extern "swordlout",swordlout,26
>extern "crea1",crea1,3456
>extern "crea1hit",crea1hit,3456
>extern "crea1back",crea1back,3456
>extern "crea1side",crea1side,3456
>extern "crea1side2",crea1side2,3456
>extern "crea1out",crea1out,576
>extern "crea1backout",crea1backout,576
>extern "crea1sideout",crea1sideout,576
>extern "crea1side2out",crea1side2out,576
>extern "crea1hitout",crea1hitout,576
>extern "crea2",crea2,1280
>extern "crea2out",crea2out,320
>extern "crea2side",crea2side,1280
>extern "crea2sideout",crea2sideout,320
>extern "crea2back",crea2back,1280
>extern "crea2backout",crea2backout,320
>extern "gelaa",gelaa,720
>extern "gelab",gelab,2592
>extern "gelabout",gelabout,864
>extern "gelac",gelac,1440
>extern "gelacout",gelacout,480
>extern "gelad",gelad,288
>extern "chars2",chars2,4608
>extern "chars2out",chars2out,1536
>extern "ceiling3",ceiling1,7020
>extern "floor1",floor1,11016
>extern "sound/drop.ss",sample1,11234
>extern "gelf",gelf,3348
>extern "pchars1",pchars1,3648
>extern "gelg",gelg,3840
>extern "gelh",gelh,3840
>extern "geli",geli,7680
>extern "geliout",geliout,1280
>extern "frame1",rras1+7440,1120
>extern "frame2",rras2+7440,1120
>extern "frame3",rras3+7440,1120
>extern "crea3",crea3,2976
>extern "crea3out",crea3out,496
>extern "gelj",gelj,1536
>extern "gelk",gelk,1536
>extern "geljout",geljout,256
>extern "gelkout",gelkout,256
>extern "gell",gell,2112
>extern "gelm",gelm,2112
>extern "gellout",gellout,352
>extern "gelmout",gelmout,352
>extern "geln",geln,3840
>extern "gelo",gelo,1536
>extern "geloout",geloout,256
>extern "gelp",gelp,4224
>extern "gelq",gelq,7680
>extern "boots",boots,468
>extern "helmet",helmet,384
>extern "legging",legging,396
>extern "necklace",necklace,132
>extern "plate",plate,432
>extern "bootsout",bootsout,156
>extern "helmetout",helmetout,128
>extern "leggingout",leggingout,132
>extern "necklaceout",necklaceout,44
>extern "plateout",plateout,144
>extern "sack",sack,312
>extern "sackout",sackout,52

>extern "key",key,96
>extern "keyout",keyout,16
>extern "ring",ring,96
>extern "ringout",ringout,16
>extern "buckler",buckler,1248
>extern "bucklerout",bucklerout,192
>extern "apple",apple,240
>extern "appleout",appleout,40
>extern "bow",bow,720
>extern "bowout",bowout,120
>extern "arrow",arrow,192
>extern "arrowout",arrowout,32
>extern "arrow2",arrow2,96
>extern "arrow2out",arrow2out,16
>extern "pouch",pouch,384
>extern "pouchout",pouchout,64

>extern "celli",hitframe,544
>extern "rajahdys",rajahdys,492
>extern "rajahdysout",rajahdysout,492
>extern "c0",c0,192
>extern "c1",c1,192
>extern "c2",c2,192
>extern "c3",c3,192
>extern "c4",c4,192
>extern "c5",c5,192
>extern "c6",c6,192
>extern "c7",c7,192
>extern "c53",c8,192
>extern "c9",c9,192
>extern "c10",c10,192
>extern "c11",c11,192
>extern "c12",c12,192
>extern "c13",c13,192
>extern "c54",c14,192
>extern "c15",c15,192
>extern "c16",c16,192
>extern "c17",c17,192
>extern "c18",c18,192
>extern "c19",c19,192
>extern "c20",c20,192
>extern "c21",c21,192
>extern "c22",c22,192
>extern "c23",c23,192
>extern "c24",c24,192
>extern "c25",c25,192
>extern "c26",c26,192
>extern "c27",c27,192
>extern "c28",c28,192
>extern "c29",c29,192
>extern "c30",c30,192
>extern "c31",c31,192
>extern "c32",c32,192
>extern "c33",c33,192
>extern "c34",c34,192
>extern "c35",c35,192
>extern "c36",c36,192
>extern "c37",c37,192
>extern "c38",c38,192
>extern "c39",c39,192
>extern "c40",c40,192
>extern "c52",c41,192
>extern "c42",c42,192
>extern "c43",c43,192
>extern "c44",c44,192
>extern "c45",c45,192
>extern "c46",c46,192
>extern "c47",c47,192
>extern "c48",c48,192
>extern "c49",c49,192
>extern "c50",c50,192
>extern "c51",c51,192
>extern "pnorth",pnorth,72
>extern "peast",peast,72
>extern "psouth",psouth,72
>extern "pwest",pwest,72
>extern "platte4aout",platte4aout,1536
>extern "platte4a",platte4a,3648
>extern "fronttorch",fronttorch,576
>extern "fronttorch2",fronttorch2,576
>extern "fronttorchout",fronttorchout,96
>extern "thingtorch",thingtorch,192
>extern "thingtorchout",thingtorchout,32
>extern "sidetorch",sidetorch,672
>extern "sidetorch2",sidetorch2,672
>extern "sidetorchout",sidetorchout,112
>extern "holder",holder,240
>extern "holderout",holderout,40
>extern "holder2",holder2,336
>extern "holder2out",holder2out,56
>extern "rock1",rock1,240
>extern "rock2",rock2,240
>extern "rock3",rock3,240
>extern "rock4",rock4,240
>extern "rock5",rock5,240
>extern "rock6",rock6,240
>extern "rock7",rock7,240
>extern "rock1b",rock1b,240
>extern "rock2b",rock2b,240
>extern "rock3b",rock3b,240
>extern "rock4b",rock4b,240
>extern "rock5b",rock5b,240
>extern "rock6b",rock6b,240
>extern "rock7b",rock7b,240
>extern "bacca1",bacca1,208
>extern "bacca2",bacca2,208
>extern "bacca3",bacca3,272
>extern "bacca4",bacca4,304
>extern "bacca5",bacca5,240
>extern "planet",planet,648
>extern "stars1",ceiling1,5112
>extern "stars2",ceiling1+5112,5112

floor1:		blk.b 3672,0 ;11016
		blk.b 3672,0
		blk.b 3672,0

;ceiling1:	blk.b 2340,0
;		blk.b 2340,0
;		blk.b 2340,0

ceiling1:	blk.b 10224,0

planet:		blk.b 648,0

sample1:	blk.b 11234,0

fronttorch:	blk.b 576,0
fronttorch2:	blk.b 576,0
fronttorchout:	blk.b 96,0
sidetorch:	blk.b 672,0
sidetorch2:	blk.b 672,0
sidetorchout:	blk.b 112,0
holder:		blk.b 240,0
holderout:	blk.b 40,0
holder2:	blk.b 336,0
holder2out:	blk.b 56,0


platte1a:	blk.b 4608,0
platte1aout:	blk.b 1536,0
platte2a:	blk.b 4608,0
platte3a:	blk.b 4608,0
platte4a:	blk.b 3648,0
platte4aout:	blk.b 1536,0
platte5a:	blk.b 4608,0
platte6a:	blk.b 4608,0
gela:		blk.b 3840,0
geld:		blk.b 3840,0
gelf:		blk.b 3348,0
gelg:		blk.b 3840,0
gelh:		blk.b 3840,0
geli:		blk.b 7680,0
geliout:	blk.b 1280,0
gelj:		blk.b 1536,0
geljout:	blk.b 256,0
gelk:		blk.b 1536,0
gelkout:	blk.b 256,0
gell:		blk.b 2112,0
gellout:	blk.b 352,0
gelm:		blk.b 2112,0
gelmout:	blk.b 352,0
geln:		blk.b 3840,0
gelo:		blk.b 1536,0
gelp:		blk.b 4224,0
gelq:		blk.b 7680,0
geloout:	blk.b 256,0
geldout:	blk.b 1280,0
gelaa:		blk.b 720,0
gelab:		blk.b 2592,0
gelabout:	blk.b 864,0
gelac:		blk.b 1440,0
gelacout:	blk.b 480,0
gelad:		blk.b 288,0
crea1:		blk.b 3456,0
crea1hit:	blk.b 3456,0
crea1back:	blk.b 3456,0
crea1side:	blk.b 3456,0
crea1side2:	blk.b 3456,0
crea1out:	blk.b 576,0
crea1hitout:	blk.b 576,0
crea1sideout:	blk.b 576,0
crea1side2out:	blk.b 576,0
crea1backout:	blk.b 576,0
crea3:		blk.b 2976,0
crea3out:	blk.b 496,0
crea2:		blk.b 1280,0
crea2out:	blk.b 320,0
crea2back:	blk.b 1280,0
crea2backout:	blk.b 320,0
crea2side:	blk.b 1280,0
crea2sideout:	blk.b 320,0
chars2:		blk.b 4608,0
chars2out:	blk.b 1536,0

bacca1:		blk.b 208,0
bacca2:		blk.b 208,0
bacca3:		blk.b 272,0
bacca4:		blk.b 304,0
bacca5:		blk.b 240,0

thingmajors:

thingsword:
	dc.w 0
	dc.w 10
	dc.l thinginfo2
	dc.w 139
	dc.w 138
	dc.w 138+$8000
	dc.w 139
	dc.w 139+$8000
	dc.w 138
	dc.w 138+$8000
	dc.l thinginfo1
	dc.l 0
	dc.w 50
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 8
	dc.w 2
	dc.w 4
	dc.w 3
	dc.w 1
	dc.b 0
	dc.b 16
	dc.w 1
	dc.b "Sword",0,"             ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 6

thingbuckler:
	dc.w 40
	dc.w 6
	dc.l thinginfo2
	dc.w 129
	dc.w 129
	dc.w 129
	dc.w 129
	dc.w 129
	dc.w 129
	dc.w 129
	dc.l thinginfo1
	dc.l 0
	dc.w 40
	dc.b 0
	dc.b 0
	dc.w -10
	dc.w 4
	dc.w 1
	dc.w 8
	dc.w 1
	dc.w 1
	dc.b 4
	dc.b 0
	dc.w 2
	dc.b "Buckler",0,"           ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 4

thingbow:
	dc.w 42
	dc.w 6
	dc.l thinginfo2
	dc.w 140
	dc.w 140
	dc.w 140
	dc.w 140
	dc.w 140
	dc.w 140
	dc.w 140
	dc.l thinginfo1
	dc.l 0
	dc.w 15
	dc.b 0
	dc.b 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 6
	dc.w 3
	dc.w 3
	dc.b 0
	dc.b %10
	dc.w 3
	dc.b "Long bow",0,"          ",0
	dc.b 0
	dc.b 4
	dc.l 0
	dc.l 0
	dc.w 8

thingarrow:
	dc.w 43
	dc.w 6
	dc.l thinginfo2
	dc.w 141
	dc.w 143
	dc.w 143+$8000
	dc.w 141
	dc.w 141+$8000
	dc.w 143
	dc.w 143+$8000
	dc.l thinginfo1
	dc.l 0
	dc.w 4
	dc.b 0
	dc.b 0
	dc.w 1
	dc.w 1
	dc.w 2
	dc.w 0
	dc.w 0
	dc.w 1
	dc.b 0
	dc.b %10111
	dc.w 4
	dc.b "Arrow",0,"             ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 1

thingapple:
	dc.w 44
	dc.w 8
	dc.l thinginfo2
	dc.w 142
	dc.w 142
	dc.w 142
	dc.w 142
	dc.w 142
	dc.w 142
	dc.w 142
	dc.l thinginfo3
	dc.b 20,10,0,0
	dc.w 1
	dc.b 0
	dc.b 0
	dc.w -5
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 5
	dc.b "Apple",0,"             ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 1

thingring:
	dc.w 28
	dc.w 8
	dc.l thinginfo2
	dc.w 130
	dc.w 130
	dc.w 130
	dc.w 130
	dc.w 130
	dc.w 130
	dc.w 130
	dc.l thinginfo3
	dc.l 0
	dc.w 1
	dc.b 9
	dc.b 0
	dc.w 0
	dc.w 1
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 6
	dc.b "Ring",0,"              ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 2

thingnecklace:
	dc.w 20
	dc.w 5
	dc.l thinginfo2
	dc.w 136
	dc.w 136
	dc.w 136
	dc.w 136
	dc.w 136
	dc.w 136
	dc.w 136
	dc.l thinginfo3
	dc.l 0
	dc.w 05
	dc.b 3
	dc.b 0
	dc.w 2
	dc.w 2
	dc.w 2
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 7
	dc.b "Necklace",0,"          ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 3

thinghelmet:
	dc.w 23
	dc.w 5
	dc.l thinginfo2
	dc.w 133
	dc.w 133
	dc.w 133
	dc.w 133
	dc.w 133
	dc.w 133
	dc.w 133
	dc.l thinginfo1
	dc.l 0
	dc.w 30
	dc.b 1
	dc.b 0
	dc.w -19
	dc.w 2
	dc.w 3
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 6
	dc.b 0
	dc.w 8
	dc.b "Helmet",0,"            ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 4

thinglegging:
	dc.w 21
	dc.w 4
	dc.l thinginfo2
	dc.w 137
	dc.w 137
	dc.w 137
	dc.w 137
	dc.w 137
	dc.w 137
	dc.w 137
	dc.l thinginfo1
	dc.l 0
	dc.w 70
	dc.b 4
	dc.b 0
	dc.w -9
	dc.w 2
	dc.w 2
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 8
	dc.b 0
	dc.w 9
	dc.b "Leggings",0,"          ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 5

thingboots:
	dc.w 22
	dc.w 6
	dc.l thinginfo2
	dc.w 134
	dc.w 134
	dc.w 134
	dc.w 134
	dc.w 134
	dc.w 134
	dc.w 134
	dc.l thinginfo1
	dc.l 0
	dc.w 20
	dc.b 5
	dc.b 0
	dc.w -13
	dc.w 2
	dc.w 2
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 5
	dc.b 0
	dc.w 10
	dc.b "Leather boots",0,"     ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 3

thingplate:
	dc.w 19
	dc.w 4
	dc.l thinginfo2
	dc.w 135
	dc.w 135
	dc.w 135
	dc.w 135
	dc.w 135
	dc.w 135
	dc.w 135
	dc.l thinginfo1
	dc.l 0
	dc.w 100
	dc.b 2
	dc.b 0
	dc.w -11
	dc.w 2
	dc.w 3
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 10
	dc.b 0
	dc.w 11
	dc.b "Breast plate",0,"      ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 10

thingkey:
	dc.w 24
	dc.w 10
	dc.l thinginfo2
	dc.w 131
	dc.w 131
	dc.w 131
	dc.w 131
	dc.w 131
	dc.w 131
	dc.w 131
	dc.l thinginfo3
	dc.l 0
	dc.w 1
	dc.b 0
	dc.b 0
	dc.w 7
	dc.w 2
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 12
	dc.b "Gold key",0,"          ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 0

thingsack:
	dc.w 25
	dc.w 6
	dc.l thinginfo2
	dc.w 132
	dc.w 132
	dc.w 132
	dc.w 132
	dc.w 132
	dc.w 132
	dc.w 132
	dc.l thinginfo1
	dc.l 0
	dc.w 1
	dc.b 7
	dc.b 0
	dc.w 2
	dc.w 2
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b 0
	dc.w 13
	dc.b "Sack",0,"              ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 0

thingtorches:
	dc.w 45
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.l 0
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 4
	dc.w 2
	dc.w 1
	dc.w 1
	dc.w 1
	dc.w 4
	dc.b 0
	dc.b %11
	dc.w 14
	dc.b "Torch",0,"             ",0
	dc.b 0
	dc.b 0
	dc.l thingtorchlit5
	dc.l 0
	dc.w 1

thingtorchlit5:
	dc.w 46
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.w 0
	dc.b 4
	dc.b 1
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 4
	dc.w 4
	dc.w 1
	dc.w 4
	dc.w 1
	dc.w 5
	dc.b 0
	dc.b %1011
	dc.w 15
	dc.b "Torch",0,"             ",0
	dc.b 15
	dc.b 0
	dc.l thingtorchlit4
	dc.l thingtorches
	dc.w 0

thingtorchlit4:
	dc.w 47
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.w 0
	dc.b 4
	dc.b 1
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 4
	dc.w 4
	dc.w 1
	dc.w 4
	dc.w 1
	dc.w 5
	dc.b 0
	dc.b %1011
	dc.w 16
	dc.b "Torch",0,"             ",0
	dc.b 12
	dc.b 0
	dc.l thingtorchlit3
	dc.l thingtorches
	dc.w 0

thingtorchlit3:
	dc.w 48
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.w 0
	dc.b 4
	dc.b 1
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 4
	dc.w 3
	dc.w 1
	dc.w 3
	dc.w 1
	dc.w 5
	dc.b 0
	dc.b %1011
	dc.w 17
	dc.b "Torch",0,"             ",0
	dc.b 8
	dc.b 0
	dc.l thingtorchlit2
	dc.l thingtorches
	dc.w 0

thingtorchlit2:
	dc.w 49
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.w 0
	dc.b 4
	dc.b 1
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 5
	dc.w 2
	dc.w 1
	dc.w 2
	dc.w 1
	dc.w 5
	dc.b 0
	dc.b %1011
	dc.w 18
	dc.b "Torch",0,"             ",0
	dc.b 4
	dc.b 0
	dc.l thingtorchlit1
	dc.l thingtorches
	dc.w 0

thingtorchlit1:
	dc.w 50
	dc.w 10
	dc.l thinginfo2
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.w 144
	dc.l thinginfo1
	dc.l 0
	dc.w 2
	dc.b 0
	dc.b 0
	dc.w 4
	dc.w 1
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b %011
	dc.w 19
	dc.b "Burned torch",0,"      ",0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l 0
	dc.w 0

thingpouch:
	dc.w 51
	dc.w 8
	dc.l thinginfo2
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.l thinginfo1
	dc.b 0,20
	dc.w 0
	dc.w 6
	dc.b 0
	dc.b 0
	dc.w -4
	dc.w 1
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b %11
	dc.w 20
	dc.b "Waterpouch (full)",0," ",0
	dc.b 0
	dc.b 0
	dc.l thingpouch2
	dc.l 0
	dc.w 1

thingpouch2:
	dc.w 51
	dc.w 8
	dc.l thinginfo2
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.l thinginfo1
	dc.b 0,20
	dc.w 0
	dc.w 6
	dc.b 0
	dc.b 0
	dc.w -4
	dc.w 1
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b %11
	dc.w 21
	dc.b "Waterpouch (half)",0," ",0
	dc.b 0
	dc.b 0
	dc.l thingpouch3
	dc.l thingpouch
	dc.w 1

thingpouch3:
	dc.w 51
	dc.w 8
	dc.l thinginfo2
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.w 145
	dc.l thinginfo1
	dc.w 0
	dc.b 0,0
	dc.w 6
	dc.b 0
	dc.b 0
	dc.w -4
	dc.w 1
	dc.w 1
	dc.w 0
	dc.w 0
	dc.w 0
	dc.b 0
	dc.b %11
	dc.w 22
	dc.b "Waterpouch (empty)",0,0
	dc.b 0
	dc.b 0
	dc.l 0
	dc.l thingpouch
	dc.w 1

loppu: