Asm to Basic

skimask · - 30th March 2007, 14:56

Subroutine_1A: VarA = 8 : PortB.4 = 1
Subroutine_1B: If PortB4 = 1 then GoTo Subroutine_1B
W = 0 : VarA = Var | $80 : GoTo Subroutine_1G
Subroutine_1C: VarA = Var & $7F : GoTo Subroutine_1G
Subroutine_1D: VarW = VarW >> 1 : If PortB.4 = 1 then VarW = VarW | $80
VarA = VarA | $40 : GoTo Subroutine_1G
Subroutine_1E: VarA = VarA & $BF : VarA = VarA - 1 : If VarA > 0 then Goto Subroutine_1D
VarA = VarA | $20 : GoTo Subroutine_1G
Subroutine_1F: VarA = VarA &DF : VarB = VarW : GoTo Subroutine_1I
Subroutine_1G: VarA = $3F
If VarA.7 = 0 then
VarA = $3F
Else
VarA = $11
EndIf
Subroutine_1H: VarB = VarB - 1 : If VarB > 0 Then GoTo Subroutine_1H
If VarA.7 = 0 Then GoTo Subroutine_1C
If VarA.6 = 0 Then GoTo Subroutine_1E
If VarA.5 = 0 Then GoTo Subroutine_1F
GoTo Subroutine_1D
Subroutine_1I: Return

What is this subroutine doing? Who knows...who cares...
But if that above actually translated correctly and really worked...I would poopy myself

**brenda** · - 30th March 2007, 15:13

Hi Skimask

Really appreciate your work. I'll let you know what is the function of this routine once I completed analyzing it. Might take time but I will try.

brenda