Mercurial > hg > Members > kono > nitros9-code
changeset 2561:3cc7671a7364
removed jmps
author | boisy |
---|---|
date | Thu, 09 Sep 2010 15:14:20 +0000 |
parents | 51ce94850ca0 |
children | 8198c6098b8f |
files | 3rdparty/packages/raakatu/raakatu.asm |
diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/3rdparty/packages/raakatu/raakatu.asm Thu Sep 09 14:58:53 2010 +0000 +++ b/3rdparty/packages/raakatu/raakatu.asm Thu Sep 09 15:14:20 2010 +0000 @@ -305,7 +305,7 @@ L06DD bne L06CF ; Continue running list L06DF stb u01B3 ; ?? ... then store if equal? -L06E2 jmp $0731 ; Continue with next word +L06E2 lbra L0731 ; Continue with next word L06E5 deca ; List 2 Noun @@ -349,7 +349,7 @@ L072B stb u01B4 ; Preposition L072E stb u01B5 ; Preoposition given (noun should follow) L0731 puls X ; Restore token pointer -L0733 jmp $06B7 ; Next word +L0733 lbra L06B7 ; Next word L0736 tst u01B3 ; Verb given? @@ -438,7 +438,7 @@ L07E7 leax 1,X ; Skip ... L07E9 leax 1,X ; ... to ... L07EB leax 2,X ; ... next entry -L07ED jmp $077F ; Keep looking +L07ED lbra L077F ; Keep looking ; Unlike BEDLAM, there is no giving a command to something else. Just ; ignore any commanded object and give the phrase to the user. @@ -461,7 +461,7 @@ L0817 lbsr L0F66 ; Allow objects to move L081A lda #$0D ; Print ... L081C lbsr L1184 ; ... CR -L081F jmp $0630 ; Top of game loop +L081F lbra L0630 ; Top of game loop ; This function decodes the NOUN descriptor pointed to by X. The AJECTIVE-NOUN @@ -535,7 +535,7 @@ L089D lda u01BF ; Object found? L08A0 bne L08A5 ; Yes ... out -L08A2 jmp $0948 ; No ... "?WHAT?" +L08A2 lbra L0948 ; No ... "?WHAT?" L08A5 rts ; Done L08A6 puls X ; Restore object pointer @@ -707,7 +707,7 @@ L09C9 bne L09C3 ; ... word L09CB lbsr L0A63 ; Get input line -L09CE jmp $0637 ; Continue processing +L09CE lbra L0637 ; Continue processing L09D1 lbsr L0A00 ; Flash message and pause L09D4 bra L09A5 ; Continue flashing and read new line @@ -882,7 +882,7 @@ L0AD5 decb ; ... the ... L0AD6 bne L0AD3 ; ... bottom row -L0AD8 jmp $0A60 ; Go get another key +L0AD8 lbra L0A60 ; Go get another key ; L0ADB tfr X,U ; Hold X L0ADD leay 1,X ; Clear trailing ... @@ -1076,7 +1076,7 @@ L0BFA bne L0BF5 ; No ... skip all L0BFC puls X ; Restore pointer to word L0BFE leay 1,Y ; Skip word data -L0C00 jmp $0B8B ; Keep trying +L0C00 lbra L0B8B ; Keep trying ;##ProcessCommand ; Either a direct command or a common command @@ -1096,7 +1096,7 @@ L0C1D rts ; Out L0C1E tfr B,A ; Hold original command -L0C20 ldy #$12E5 ; Function table +L0C20 ldy #L12E5 ; Function table L0C24 asla ; Jump to ... L0C25 jmp [A,Y] ; ... command @@ -1314,7 +1314,7 @@ ;##Com02_CheckObjectIsOwnedByActive L0DA6 ldb ,X+ -L0DA8 jmp $0F5F +L0DA8 lbra L0F5F ;##Com03_IsObjectYAtX ; Check to see if an object is at a target location. @@ -1774,7 +1774,7 @@ L10AA lbsr L1184 ; ... CR L10AD lda #$0D ; Print second ... L10AF lbsr L1184 ; ... CR -L10B2 jmp $060C ; Restart game +L10B2 lbra L060C ; Restart game ;##Com24_EndlessLoop