
r0              .Equ    0
r1              .Equ    1
r2              .Equ    2
r3              .Equ    3
r4              .Equ    4
r5              .Equ    5
r6              .Equ    6
r7              .Equ    7
r8              .Equ    8
r9              .Equ    9
rA              .Equ    $A
rB              .Equ    $B
rC              .Equ    $C
rD              .Equ    $D
rE              .Equ    $E
rF              .Equ    $F

Port2           .Equ    2
                
                .ORG    $95C
                Jp      Patch1
                
                .ORG    $998
                Jp      Patch2
                
                
                .ORG    $F00
Patch1:         Pop     !r0
                Tm      $5A,#$03
                Jp      Nz,$97B
                Jp      $96B
                 
Patch2:         Jp      Ge,$99B
                 Ld     !r2,#.HIBYTE. $279F
                 Ld     !r3,#.LOWBYTE. $279F
                Call    $4AF
                Jp      $8F2
                
                 
                .LSTOFF
                
