-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy path3-data162.asm
63 lines (61 loc) · 870 Bytes
/
3-data162.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
; vi: syntax=asm68k
;:4368 3/data162[148]
movea.l 0(a6), a0
move.w (a0), d0
subq.w #1, 6(a6)
bgt.s 0x43ba
clr.w 6(a6)
cmp.w 4(a6), d0
beq.w 0x43fa
move.w d0, 4(a6)
bge.s 0x4386
clr.w d0
;:4386
cmpi.w #99, d0
ble.s 0x4390
move.w #99, d0
;:4390
move.w #2, 6(a6)
lea 12(a6), a0
move.w #$02ca, (a0)+
move.b #'0', (a0)+
swap d0
clr.w d0
swap d0
;:43a8
divu.w #10, d0
swap d0
addi.w #'0', d0
move.b d0, -(a0)
clr.w d0
swap d0
bne.s 0x43a8
;:43ba
cmpi.w #2, 6(a6)
ble.s 0x43c8
move.w #1, 6(a6)
;:43c8
lea -0x16(a5), a0
cmpa.l -0x60(a5), a0
bne.s 0x43d8
pea -0x3a(a5)
;:43d6
bra.s 0x43dc
;:43d8
pea glob251(a5)
;:43dc $a875(BitMap *)
_SetPBits
movea.l 8(a6), a4
pea 2(a4)
; $a8a2(Rect *)
_PaintRect
move.w 4(a4), -(sp)
move.w 2(a4), -(sp)
addq.w #7, (sp)
; $a893(h,v)
_MoveTo
pea 12(a6)
; $a884(Str255 *)
_DrawString
;:43fa
rts