NUM DEFB 0FF
DEFB 0FF
PAR1 DEFB 0
PAR2 DEFB 0
PAR3 DEFB 0
PAR4 DEFB 0
PAR5 DEFB 0
SAL5 DEFB 0
SAL4 DEFB 0
SAL3 DEFB 0
SAL2 DEFB 0
SAL1 DEFB 0
DEFB 0FF
OPC4: LDX MENS4 ; PRIMERA PALABRA=PRINT
CALL ESCR
LD VALIDA2
SUB #6
JNZ OPC41
LDX SIG_LIN
CALL ESCR
LDX VARIA1
CALL ESCR
LD HEXVA1
STO NUM
LD HEXVA1+1
STO NUM+1
CALL IMPRI
LDX SIG_LIN
CALL ESCR
LDX VARIA2
CALL ESCR
LD HEXVA2
STO NUM
LD HEXVA2+1
STO NUM+1
CALL IMPRI
LDX SIG_LIN
CALL ESCR
LDX VARIA3
CALL ESCR
LD HEXVA3
STO NUM
LD HEXVA3+1
STO NUM+1
CALL IMPRI
LDX SIG_LIN
CALL ESCR
LDX VARIA4
CALL ESCR
LD HEXVA4
STO NUM
LD HEXVA4+1
STO NUM+1
CALL IMPRI
LDX SIG_LIN
CALL ESCR
LDX VARIA5
CALL ESCR
LD HEXVA5
STO NUM
LD HEXVA5+1
STO NUM+1
CALL IMPRI
LDX SIG_LIN
CALL ESCR
LDX VARIA6
CALL ESCR
LD HEXVA6
STO NUM
LD HEXVA6+1
STO NUM+1
CALL IMPRI
JZ NPI
JNZ NPI
OPC41 CALL IDVAR1
SUB #1
JZ NPI
LD X
STO NUM
INX
LD X
STO NUM+1
CALL IMPRI
JZ NPI
JNZ NPI
SUMDEC: PUSH A
LD #0
ADD #0
POP A
ADC X
ADC Y
STO Y
LD #1
ADD #0FF
LD #9
SBC Y
LD #0
ADC #0
JZ REGRET
LD Y
ADD #6
SUB #10
STO Y
LD #1
REGRET: RET
A_1: SUB #0
JZ REGRET
PUSH A
LD #0
LDX PAR1
LDY SAL1
CALL SUMDEC
LDX PAR2
LDY SAL2
CALL SUMDEC
LDX PAR3
LDY SAL3
CALL SUMDEC
LDX PAR4
LDY SAL4
CALL SUMDEC
LDX PAR5
LDY SAL5
CALL SUMDEC
POP A
SUB #1
JZ A_1
JNZ A_1
IMPRI: LD #0
STO SAL1
STO SAL2
STO SAL3
STO SAL4
STO SAL5
STO PAR5
LD #4
STO PAR4
LD #0
STO PAR3
LD #9
STO PAR2
LD #6
STO PAR1
LD NUM
AND #0F0
SR
SR
SR
SR
CALL A_1
SIG2: LD #0
STO PAR4
LD #2
STO PAR3
LD #5
STO PAR2
LD #6
STO PAR1
LD NUM
AND #0F
CALL A_1
SIG3: LD #0
STO PAR3
LD #1
STO PAR2
LD #6
STO PAR1
LD NUM+1
AND #0F0
SR
SR
SR
SR
CALL A_1
SIG4: LD #0
STO PAR2
LD #1
STO PAR1
LD NUM+1
AND #0F
CALL A_1
SIG5:
LD SAL1
ADD #30
STO SAL1
LD SAL2
ADD #30
STO SAL2
LD SAL3
ADD #30
STO SAL3
LD SAL4
ADD #30
STO SAL4
LD SAL5
ADD #30
STO SAL5
LDX SAL5
CALL ESCR
RET
(
geocities.com/v.iniestra/apuntes) (
geocities.com/v.iniestra)