Code: Select all
;------------------------------------------------------------
; Move Moutain to the left
;------------------------------------------------------------
MoveMoutainLeft:
Move.l 4(A6),A0 ; Y offset In Mountain Clip Art
Neg.w D1
Cmp.w #$11,D1
Bcs.s L010E
Moveq #$10,D1
L010E:
Lea 160(A0),A0
Move.w 2(A6),D7 ; Height
L0110:
Move.l A0,A1
Moveq #19,D0
Moveq #0,D2
Moveq #0,D3
Moveq #0,D4
Moveq #0,D5
ScollLoop:
;-bp1
Moveq #0,D6
Move.w -(A1),D6
Swap D6
Ror.l D1,D6
Or.w D6,D2
Move.w D2,(A1)
Swap D6
Move.w D6,D2
;-bp2
Moveq #0,D6
Move.w -(A1),D6
Swap D6
Ror.l D1,D6
Or.w D6,D3
Move.w D3,(A1)
Swap D6
Move.w D6,D3
;-bp3
Moveq #0,D6
Move.w -(A1),D6
Swap D6
Ror.l D1,D6
Or.w D6,D4
Move.w D4,(A1)
Swap D6
Move.w D6,D4
;-bp4
Moveq #0,D6
Move.w -(A1),D6
Swap D6
Ror.l D1,D6
Or.w D6,D5
Move.w D5,(A1)
Swap D6
Move.w D6,D5
Dbra D0,ScollLoop
Or.w D2,-2(A0)
Or.w D3,-4(A0)
Or.w D4,-6(A0)
Or.w D5,-8(A0)
Lea 160(A0),A0
Dbra D7,L0110
Rts
;----------------------------------------------------------------------
; Printer Horizont
;----------------------------------------------------------------------
PR_MOUNT:
Lea MountainHeader,A6
Move.w MOUNT_NO,D0
Lsl.w #3,D0
Add.w D0,A6
Move.w HORIZON,D2
Move.w 2(A6),D0
Sub.w D0,D2
Move.w D2,TOPY
Move.w MAXYOM,D1
Sub.w D2,D1
Bhi.s L0119
Add.w D1,TOPY
Bra L011D
L0119:
Cmp.w D1,D0
Bcs.s L011A
Move.w D1,D0
L011A:
;----------------------------------------------------------------------
Lsl.w #5,D2 ;Mul160
Move.w D2,D1
Lsl.w #2,D2
Add.w D1,D2
;----------------------------------------------------------------------
Move.l LOG_SCR,A0
Add.w D2,A0
Move.l 4(A6),A1
; Printer Mountain
L011B:
Movem.l (A1)+,D2-D7/A2-A3
Movem.l D2-D7/A2-A3,(A0)
Movem.l (A1)+,D2-D7/A2-A3
Movem.l D2-D7/A2-A3,32(A0)
Movem.l (A1)+,D2-D7/A2-A3
Movem.l D2-D7/A2-A3,64(A0)
Movem.l (A1)+,D2-D7/A2-A3
Movem.l D2-D7/A2-A3,96(A0)
Movem.l (A1)+,D2-D7/A2-A3
Movem.l D2-D7/A2-A3,128(A0)
Lea 160(A0),A0
Dbf D0,L011B
L011D: RTS
Here is the code about in text format only the code about i just a bit nicer in the tabs....