* DISASSEMBLY BY DYNAMITE OF 1.PROMON2.BIN * STANDARD PRE-NAMED LABEL EQUATES CMDADR EQU $C100 CMDEND EQU $C700 LECDEM EQU $CD00 WARMS EQU $CD03 * ASCII CODE EQUATES SOH EQU $01 ETX EQU $03 EOT EQU $04 ENQ EQU $05 BEL EQU $07 HT EQU $09 LF EQU $0A VT EQU $0B CR EQU $0D SI EQU $0F DC1 EQU $11 ESC EQU $1B * EXTERNAL LABEL EQUATES L0000 EQU $0000 L0001 EQU $0001 L0003 EQU $0003 L0009 EQU $0009 L000A EQU $000A L000B EQU $000B L000C EQU $000C L0012 EQU $0012 L001B EQU $001B L0020 EQU $0020 L0027 EQU $0027 L0035 EQU $0035 L0039 EQU $0039 L003F EQU $003F L0040 EQU $0040 L0045 EQU $0045 L0051 EQU $0051 L0072 EQU $0072 L0076 EQU $0076 L007C EQU $007C L007D EQU $007D L007F EQU $007F L0080 EQU $0080 L0086 EQU $0086 L008D EQU $008D L008E EQU $008E L008F EQU $008F L0091 EQU $0091 L0093 EQU $0093 L0099 EQU $0099 L009B EQU $009B L009C EQU $009C L009E EQU $009E L00A0 EQU $00A0 L00B6 EQU $00B6 L00F0 EQU $00F0 L00F4 EQU $00F4 L00F5 EQU $00F5 L00F8 EQU $00F8 L00FA EQU $00FA L00FB EQU $00FB L00FE EQU $00FE L00FF EQU $00FF L0144 EQU $0144 L060C EQU $060C L0D59 EQU $0D59 L0F55 EQU $0F55 L1000 EQU $1000 L1153 EQU $1153 L1341 EQU $1341 L1427 EQU $1427 L156E EQU $156E L1B7F EQU $1B7F PIA2AD EQU $2000 L2010 EQU $2010 CRTR01 EQU $2080 L2081 EQU $2081 L3100 EQU $3100 L3F04 EQU $3F04 L3F0B EQU $3F0B L45FE EQU $45FE L5064 EQU $5064 L50F3 EQU $50F3 L5EE0 EQU $5EE0 L5FB2 EQU $5FB2 L5FCC EQU $5FCC L5FCE EQU $5FCE L5FD0 EQU $5FD0 L5FD2 EQU $5FD2 L5FE2 EQU $5FE2 L5FE6 EQU $5FE6 L5FE8 EQU $5FE8 L5FEA EQU $5FEA L601C EQU $601C L6172 EQU $6172 L61FB EQU $61FB L6207 EQU $6207 L634B EQU $634B L7D00 EQU $7D00 L8620 EQU $8620 L8E30 EQU $8E30 L8EBB EQU $8EBB LA109 EQU $A109 LA1FC EQU $A1FC LADFC EQU $ADFC LB708 EQU $B708 LBFFD EQU $BFFD LC718 EQU $C718 LCD01 EQU $CD01 LCE17 EQU $CE17 LD719 EQU $D719 LDE4E EQU $DE4E LE0FC EQU $E0FC LE200 EQU $E200 LE201 EQU $E201 LE500 EQU $E500 LE8FE EQU $E8FE LEB00 EQU $EB00 LEB09 EQU $EB09 LEB0E EQU $EB0E LEF40 EQU $EF40 LEF45 EQU $EF45 LEF46 EQU $EF46 LEF6F EQU $EF6F LEF7B EQU $EF7B LEF7E EQU $EF7E LEF86 EQU $EF86 LEF87 EQU $EF87 LEF8A EQU $EF8A LEF8B EQU $EF8B LEFD8 EQU $EFD8 LEFDE EQU $EFDE LEFF2 EQU $EFF2 LF172 EQU $F172 LF450 EQU $F450 ORG $F800 LF800 ROR $EF87 BSR LFD52 -> $EF88 BSR LFD52 -> $EF89 BSR LFD52 -> $EF8A jour semaine BSR LFD51 -> $EF8B Jour du mois BSR LFD51 -> $EF8C BSR LFD51 -> $EF8D LDX #LFF55 Pointe sur jour semaine LDY #LEF46 Mmoire systme LDA LEF8A BSR LFD89 Ecrit jour de la semaine LDX #LEF8B BSR LFD5C Calcule jour en Decimal LDX #LFF6A Pointe sur mois anne LDA LEF8A CMPA #$0A BMI LFD24 SUBA #6 LFD24 BSR LFD89 Ecrit mois de l'anne LDX #LEF8B LDY #LEF7E LDB #3 LFD2F BSR LFD5C Calcule jour en Decimal DECB BNE LFD2F LFD34 PULS A,B,X,Y,PC LFD36 CLR LEF8A TST LEF45 BEQ LFD34 CLR LEF45 LDS LEF6F PSHS X LDX #LFD71 SWI FCB $03 MSG Heure non valide PULS X LBRA L634B LFD51 DECB LFD52 DECB STB LE200 LDA LE201 STA 0,X+ RTS LFD5C LDA 0,X+ PSHS A LSRA LSRA LSRA LSRA ADDA #$30 STA 0,Y+ PULS A ANDA #$0F ADDA #$30 STA 0,Y++ RTS LFD71 FCB $1B FCB $32 FCC "Heure non valide",ESC,"0" FCC LF,CR,BEL,EOT * Ecrit jour de la semaine LFD89 LDB #3 MUL LEAX B,X LDA 0,X+ STA 0,Y+ LDA 0,X+ STA 0,Y+ LDA 0,X+ STA 0,Y++ RTS LFD9B TST L0000 STU LFF00 NEG L0000 STU LFF00 NEG L0000 STU LFF00 NEG L0000 STU LFF00 NEG L0000 STU LFF00 NEG L0000 STU LFF00 NEG L0001 BRA LFECC LFECC NEG