LBL and END handling on the PX41CX and in PX41CX_Interface.xls

[krischik]

Found another one:

Code:


PX41
04 00000000000000 45472054455354 00000000000052 00000000000000 
08 47000000000000 40000002d98000 0000000000c000 00000000000000 
0c 00000000001190 1a70016919c18f 0000012c044000 00000000017027 
18c 00000000000000 00000000000000 00000000000000 06000085c80c2d 
190 99899c059d049e e3926392e3995a 906390e3ce63ce 18ce99916391e3 
194 989591169017ce 119a929b939814 968e978f9a109b 958a2b960c970d 
198 85928693879489 93029403950491 54455354309201 c000f800524547 
A: 09999999999000  B: 0000012c0440fd  C: 000000012c00fd
S: 00100001000000
M: 001018a5ff83d3  N: 000000000c1440  G: 00
EOF

Line 40 .. 44 should look like this

Code:


; LASTX =  0.000000000E+00
; ALPHA = '                REG TEST'
; SIZE =  100
; A: 09999999999000  B: 0000012c0440fd  C: 000000012c00fd
; S: 00100001000000
; M: 001018a5ff83d3  N: 000000000c1440  G: 00
; PRG = 19B .. 18F
LBL 'REGTEST'       ; C000F80052454754455354
STO 00              ; 30
ST+ 01              ; 9201
ST- 02              ; 9302
ST* 03              ; 9403
ST/ 04              ; 9504
STO IND 05          ; 9185
ST+ IND 06          ; 9286
ST- IND 07          ; 9387
ST* IND 09          ; 9489
ST/ IND 10          ; 958A
RCL 11              ; 2B
ISG 12              ; 960C
DSE 13              ; 970D
ISG IND 14          ; 968E
DSE IND 15          ; 978F
ASTO 16             ; 9A10
ARCL 17             ; 9B11
ASTO IND 18         ; 9A92
ARCL IND 19         ; 9B93
VIEW 20             ; 9814
VIEW IND 21         ; 9895
STO 22              ; 9116
RCL 23              ; 9017
X<> 24              ; CE18
X<> IND 25          ; CE99
STO 99              ; 9163
STO IND 99          ; 91E3
RCL 99              ; 9063
RCL IND 99          ; 90E3
X<> 99              ; CE63
X<> IND 99          ; CEE3
ST+ 99              ; 9263
ST+ IND 99          ; 92E3
SREG 90             ; 995A
SREG IND 09         ; 9989
FIX 5               ; 9C05
SCI 4               ; 9D04
ENG 6               ; 9E06
RTN                 ; 85
.END.               ; C80C2D

That should be easy to fix ?.

Code:

    
    '-------------------------------------------------------
    ' Check for FIX, SCI and ENG
    If Left(CodeString, 2) = "9C" Or Left(CodeString, 2) = "9D" Or Left(CodeString, 2) = "9E" Then
        codecomp = Mid(CodeString, 1, 2)
        Instruction = Decode_HP41(codecomp) & Val("&h" & Mid(CodeString, 3, 2))
        codecomp = Mid(CodeString, 1, 4)