Change several JMP instructions to BRL.
This avoids the need for run-time relocation and makes executables smaller.
This commit is contained in:
parent
a5504be621
commit
a81a9964c2
8
orca.asm
8
orca.asm
|
@ -53,7 +53,7 @@ lb1 rtl
|
||||||
*
|
*
|
||||||
enddesk start
|
enddesk start
|
||||||
|
|
||||||
jmp ~ENDDESK
|
brl ~ENDDESK
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
@ -64,7 +64,7 @@ enddesk start
|
||||||
*
|
*
|
||||||
endgraph start
|
endgraph start
|
||||||
|
|
||||||
jmp ~ENDGRAPH
|
brl ~ENDGRAPH
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
@ -119,7 +119,7 @@ id dc 8c' ',i1'0'
|
||||||
*
|
*
|
||||||
startdesk start
|
startdesk start
|
||||||
|
|
||||||
jmp ~STARTDESK
|
brl ~STARTDESK
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
@ -130,7 +130,7 @@ startdesk start
|
||||||
*
|
*
|
||||||
startgraph start
|
startgraph start
|
||||||
|
|
||||||
jmp ~STARTGRAPH
|
brl ~STARTGRAPH
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
|
|
@ -37,7 +37,7 @@ abort start
|
||||||
ph2 #SIGABRT
|
ph2 #SIGABRT
|
||||||
jsl raise
|
jsl raise
|
||||||
lda #-1
|
lda #-1
|
||||||
jmp ~C_QUIT
|
brl ~C_QUIT
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
@ -440,14 +440,14 @@ exit start
|
||||||
_exit entry
|
_exit entry
|
||||||
_Exit entry
|
_Exit entry
|
||||||
lda 4,S
|
lda 4,S
|
||||||
jmp ~C_QUIT
|
brl ~C_QUIT
|
||||||
end
|
end
|
||||||
|
|
||||||
quick_exit start
|
quick_exit start
|
||||||
|
|
||||||
jsr ~QUICKEXIT
|
jsr ~QUICKEXIT
|
||||||
lda 4,S
|
lda 4,S
|
||||||
jmp ~C_QUIT
|
brl ~C_QUIT
|
||||||
end
|
end
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
|
Loading…
Reference in New Issue