SUBRUTINAS

Flussdiagrammknoten

• CALCULA_TBLPTR

• W = SWAPF MENU

• W = SWAPF OPCION

• W = W + SUBMENU

• W --> TBLPTRH

• W --> TBLPTRL

• RETURN

• INCREMENTA_AÑO_BIS

• CONT_AÑO_BIS = 04H

• INCF CONT_AÑO_BIS

• 01H --> CONT_AÑO_BIS

• RETURN

• INCREMENTA_DIA_LETRA

• CONT_DIA_LETRA= 07H

• INCF CONT_DIA_LETRA

• 01H --> CONT_DIA_LETRA

• RETURN

• SI

• SI

• NO

• NO

• OB_TOTAL_DIAS_TABLA

• 50H --> W

• W = W + CONT_MES_D

• W --> TBLPTRH

• CONT_MES_U --> TMP

• F0H --> W

• TMP = W + TMP

• W = SWAPF TMP

• W --> TBLPTRL

• TBLRD*+

• RETURN

• NO_AÑO

• NO_DIA

• RETURN_DIA

• RETURN_AÑO